Изменить фон рабочего стола
Если Вы хотите позаботиться о дизайне той машины, на которой запускаете свою прогу, то наиболее эффектно будет изменение фона рабочего стола. Я показываю как это сделать по нажатию кнопки - 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;
|
|
|
|
|
отсрочка от армии по учебе . Конверты на выписку. Конверт на выписку для малыша. . Машины для отделки бетонных полов - заглаживающие машины. Оборудование для отделки полов. . Электрическая беговая дорожка Air Machine. Беговая дорожка купить со склада киев украина. . |
