Форум: "Потрепаться";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Смена обоев на рабочем столе   Найти похожие ветки 

← →
Undert ©   (2004-10-07 12:25) [0]

Помогите найти пример по сабжу - кладовка закрыта, а помню что там это было ...

---

← →
Rouse_ ©   (2004-10-07 12:58) [1]

var
 reg: TRegIniFile;
begin
 reg := TRegIniFile.Create("Control Panel\Desktop");
 with reg do
 begin
   WriteString("", "Wallpaper", "C:\1.bmp");
     WriteString("", "TileWallpaper", "0");
 end;
 reg.Free;
 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

---

← →
Undert ©   (2004-10-09 18:23) [2]

Спасибо!!
Это видел, но к примеру с JPG такая функция не сработает - как быть?

---

← →
bigis   (2004-10-09 21:43) [3]

ComObj, ShlObj, StdCtrls, ShellAPI посмотри эти модули.
или вот...
procedure anithing;
const
 CLSID_ActiveDesktop: TGUID = "{75048700-EF1F-11D0-9888-006097DEACF9}";
var
 ActiveDesktop: IActiveDesktop;
begin
 ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
   as IActiveDesktop;
 ActiveDesktop.SetWallpaper("c:\10.jpg", 0);
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

---

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

Форум: "Потрепаться";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c