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

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

← →
Volkodav ©   (2006-03-06 18:52) [0]

Уважаемые Мастера, подскажите, как изменить фоновый рисунок рабочего стола посредством Delphi !Заранее благодарен !

---

← →
begin...end ©   (2006-03-06 18:53) [1]

SystemParametersInfo

---

← →
antonn ©   (2006-03-06 19:12) [2]

сначала найти тот рисунок:
function GetWallpaper: string;
var Reg: TRegistry;
begin
{$IFDEF WIN32}
 Reg := TRegistry.Create;
 Reg.RootKey := HKEY_CURRENT_USER;
 Reg.OpenKey("\Control Panel\desktop\", False);
 Result := Reg.ReadString("Wallpaper");
 Reg.Free;
{$ELSE}
 Reg := TIniFile.Create(WinIniPath);
 Result := Reg.ReadString("Desktop", "Wallpaper", "");
 Reg.Free;
{$ENDIF}
end;

загрузить, изменить.
сохранить на диск, и указать этот файл как картинку рабочего стола:
procedure SetWallpaper(Value: string);
begin
   SystemParametersInfo(spi_SetDeskWallpaper, 0, PChar(Value) , spif_UpdateIniFile);
end;

---

← →
Volkodav ©   (2006-03-06 19:36) [3]

А куда писать имя файла-картинки?
Объясните пожалуйста на примере:имеется файл "c:\bitmap.bmp" надо сделать его фоновым рисунком рабочего стола.

---

← →
EvS   (2006-03-06 19:49) [4]

>А куда писать имя файла-картинки?

procedure SetWallpaper(Value: string); Value-это вот оно и есть

---

← →
Volkodav ©   (2006-03-06 19:51) [5]

Спасибо!

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.025 c