Большая Тёрка / Клубы / Софтклуб / Romahska / Delphi 7

semen-nsk

28 июля 2011 в 07:24

LinuxDale, Пхахахахахаххахахаххаххахаххахаххахаххахаххах Можно и обои сменить

Uses ShlObj, ComObj;

procedure ChangeWallpaper;
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F‑11D0–9888–006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
as IActiveDesktop;
ActiveDesktop.SetWallpaper('Путь к файлу', 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

Только зачем тебе это? Ахахахаха

Вся веткаНет комментариев