Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира


Как сменить обои в Windows 95/NT

 

var
  Reg: TRegIniFile;
begin
  Reg := TRegIniFile.Create('Control Panel');
  Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\mybmp.bmp');
  Reg.WriteString('desktop', 'TileWallpaper', '1');
  Reg.Free;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

 

 

 

 


Основные разделы сайта


 

Реклама