| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как програмно изменить фоновый рисунок рабочего стола?
ЗЛО © (2005-08-28 20:29:00)Как програмно изменить фоновый рисунок рабочего стола?
ЗЛО (2005-08-29 23:48:00) [1]Надо же, работает.
>begin...end © (29.08.05 16:54) [7]
>Дык тогда [1].
>procedure SetWallpaper(FileName: string);
>begin
> SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(FileName), SPIF_UPDATEINIFILE)
>end.
Ведь можешь, если захочешь.
easy (2005-08-29 16:57:00) [2]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
Игорь Шевченко (2005-08-29 16:56:00) [3]Отгадал все буквы, не смог назвать слово.
begin...end (2005-08-29 16:54:00) [4]> ЗЛО © (29.08.05 16:47) [6]
Дык тогда [1].
procedure SetWallpaper(FileName: string);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(FileName), SPIF_UPDATEINIFILE)
end.
ЗЛО (2005-08-29 16:47:00) [5]>А файла нету?
Или если хотите
procedure (FileName:String);
begin
?
end;
begin...end (2005-08-29 16:13:00) [6]> ЗЛО © (29.08.05 16:11) [4]
> mypic : TBitMap
А файла нету?
ЗЛО (2005-08-29 16:11:00) [7]...
var
mypic : TBitMap;
...
Надо mypic разместить на рабочем столе без перезапуска.
procedure (pic:tbitmap);
begin
?
end;
Lamer@fools.ua (2005-08-29 15:01:00) [8]> Можно было-бы и поподробней.
Та без проблем.
http://www.google.com/search?client=opera&rls=en&q=SystemParametersInfo&sourceid=opera&ie=utf-8&oe=utf-8
ЗЛО (2005-08-29 13:32:00) [9]Попробую.
Можно было-бы и поподробней.
begin...end (2005-08-28 21:16:00) [10]SystemParametersInfo
| |
