Пожалуйста откройте мне глаза на мою ошибку, потому что я ее не вижу :(
Прописала, как советовали: implementation Uses ShlObj, ComObj; procedure ChangeWallpaper; const CLSID_ActiveDesktop: TGUID = ‘{75048700-EF1F-11D0-9888-006097DEACF9}’; var ActiveDesktop: IActiveDesktop; begin ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop; ActiveDesktop.SetWallpaper(’d:\Обои\55160_1024_768 .jpg’, 0); ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE); end; procedure TForm1.ButtonClick(Sender: TObject); begin ChangeWallpaper; end; Не работает. То есть вроде что-то происходит, но вместа новох обоев остается чистый фон. Таже беда и со вторым способом: uses ...Registry; ... procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegIniFile; begin Reg := TRegIniFile.Create('Control Panel'); Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Установка.bmp'); Reg.WriteString('desktop', 'TileWallpaper', '0'); Reg.Free; SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE); end; Пожалуйста подскажите где я ошиблась. Заранее благодарна :) |
попробуй в первом способе грузить не jpg-рисунок, а bmp.
|
Цитата:
|
Материнская плата
Всем привет ! Подскажите кто знает: какую (максимально сильную) видеокарту Ge Force , можно поставить на материнскую плату Gigabyte GA-8PE 800 Soc-478 i845PE , при условии максимально эффективной работы .:confused:
|
у вас слот на материнке Слот AGP4x
или geforce 7600 или radeon hd 2400 pro |
Здравствуйте Endrew ! Старая видеокарта GF FX 5200-8x 128mb DVI DDR TV-out.
|
Часовой пояс GMT +4, время: 18:04. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.