Технический форум

Технический форум (http://www.tehnari.ru/)
-   Форум программистов (http://www.tehnari.ru/f22/)
-   -   Прога не меняет фоновый рисунок (http://www.tehnari.ru/f22/t11680/)

Mistris 24.05.2008 22:57

Пожалуйста откройте мне глаза на мою ошибку, потому что я ее не вижу :(
Прописала, как советовали:

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;

Пожалуйста подскажите где я ошиблась. Заранее благодарна :)

ToLuna 27.05.2008 20:13

попробуй в первом способе грузить не jpg-рисунок, а bmp.

Mistris 31.05.2008 14:50

Цитата:

Сообщение от ToLuna
попробуй в первом способе грузить не jpg-рисунок, а bmp.

Попробовала. К сожалению, результат тот же...

Bonyfacu 14.12.2009 17:12

Материнская плата
 
Всем привет ! Подскажите кто знает: какую (максимально сильную) видеокарту Ge Force , можно поставить на материнскую плату Gigabyte GA-8PE 800 Soc-478 i845PE , при условии максимально эффективной работы .:confused:

Endrew 14.12.2009 17:26

у вас слот на материнке Слот AGP4x
или geforce 7600 или radeon hd 2400 pro

Bonyfacu 14.12.2009 17:37

Здравствуйте 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.