Текущий архив: 2005.11.06;
Скачать: CL | DM;
Вниз
Как програмно изменить фоновый рисунок рабочего стола? Найти похожие ветки
← →
ЗЛО © (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.
← →
Игорь Шевченко © (2005-08-29 16:56) [8]Отгадал все буквы, не смог назвать слово.
← →
easy © (2005-08-29 16:57) [9]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 23:48) [10]Надо же, работает.
>begin...end © (29.08.05 16:54) [7]
>Дык тогда [1].
>procedure SetWallpaper(FileName: string);
>begin
> SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(FileName), SPIF_UPDATEINIFILE)
>end.
Ведь можешь, если захочешь.
Страницы: 1 вся ветка
Текущий архив: 2005.11.06;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.039 c
