Изменение фонового рисунка рабочего стола

← →
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-это вот оно и есть

Спасибо!

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