Как програмно изменить фоновый рисунок рабочего стола?

← →
ЗЛО © (2005-08-28 20:29) [0]

← →
begin...end © (2005-08-28 21:16) [1]

SystemParametersInfo

← →
ЗЛО © (2005-08-29 13:32) [2]

Попробую.

Можно было-бы и поподробней.

← →
Lamer@fools.ua © (2005-08-29 15:01) [3]

>Можно было-бы и поподробней.

Та без проблем.

http://www.google.com/search?client=opera&rls=en&q=SystemParametersInfo&sourceid=opera&ie=utf-8&oe=utf-8

← →
ЗЛО © (2005-08-29 16:11) [4]

...
var
mypic : TBitMap;
...

Надо mypic разместить на рабочем столе без перезапуска.

procedure (pic:tbitmap);
begin
?
end;

← →
begin...end © (2005-08-29 16:13) [5]

> ЗЛО © (29.08.05 16:11) [4]

> mypic : TBitMap

А файла нету?

← →
ЗЛО © (2005-08-29 16:47) [6]

>А файла нету?

Или если хотите

procedure (FileName:String);
begin
?
end;

← →
begin...end © (2005-08-29 16:54) [7]

> ЗЛО © (29.08.05 16:47) [6]

Дык тогда [1].

procedure SetWallpaper(FileName: string);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(FileName), SPIF_UPDATEINIFILE)
end.

Отгадал все буквы, не смог назвать слово.

http://delphiworld.narod.ru/base/change_wallpaper.html
http://delphiworld.narod.ru/base/change_wallpaper2.html
http://delphiworld.narod.ru/base/change_wallpaper3.html
http://delphiworld.narod.ru/base/change_wallpaper4.html

Надо же, работает.

>begin...end © (29.08.05 16:54) [7]
>Дык тогда [1].
>procedure SetWallpaper(FileName: string);
>begin
> SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(FileName), SPIF_UPDATEINIFILE)
>end.

Ведь можешь, если захочешь.

Как програмно изменить фоновый рисунок рабочего стола? Найти похожие ветки