Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c