БОЛЬШОЙ FAQ ПО DELPHI



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

Если Вы хотите позаботиться о дизайне той машины, на которой запускаете свою прогу, то наиболее эффектно будет изменение фона рабочего стола. Я показываю как это сделать по нажатию кнопки - Button1:


 uses ...Registry; //подключаем модуль
 ...
 procedure TForm1.Button1Click(Sender: TObject);
 var
   Reg: TRegIniFile;
 begin
   Reg := TRegIniFile.Create('Control Panel');
   Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Установка.bmp');
   Reg.WriteString('desktop', 'TileWallpaper', '0');
   Reg.Free;
   SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ