Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.28;
Скачать: CL | DM;

Вниз

Фоновый рисунок рабочего стола   Найти похожие ветки 

 
Гриха   (2005-08-10 07:42) [0]

Как программно менять фоновый рисунок рабочего стола?


 
begin...end ©   (2005-08-10 07:51) [1]

SystemParametersInfo


 
Big Joe ©   (2005-08-10 07:59) [2]

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;


 
Duracell ©   (2005-08-10 08:44) [3]

SystemParametersInfo(
                      SPI_SETDESKWALLPAPER,
                      NULL,
                      BmpFile,                // <-- Wallpaper
                      SPIF_SENDWININICHANGE |
                      SPIF_UPDATEINIFILE
                   );


 
Bekzhan   (2005-08-10 08:57) [4]

uses
 ComObj, ShlObj;

procedure ChangeActiveWallpaper;
const
 CLSID_ActiveDesktop: TGUID = "{75048700-EF1F-11D0-9888-006097DEACF9}";
var
 ActiveDesktop: IActiveDesktop;
begin
 ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
   as IActiveDesktop;
 ActiveDesktop.SetWallpaper("c:\windows\forest.bmp", 0);
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;


 
Bekzhan   (2005-08-10 08:59) [5]

{Обновить}
uses
  ShlObj;

procedure RefreshDesktop1;
begin
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;



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

Текущий архив: 2005.08.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
14-1122652741
TStas
2005-07-29 19:59
2005.08.28
Чью программу ну хоть раз взламывали?


3-1121673729
Juice
2005-07-18 12:02
2005.08.28
Дата и диалект ?


3-1121691780
GekaNaz
2005-07-18 17:03
2005.08.28
Ошибка - конец файла


9-1115369239
Slavikk
2005-05-06 12:47
2005.08.28
Lod в GLScene


1-1123166385
КодеКорешь
2005-08-04 18:39
2005.08.28
Аналог ShowMessage