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

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
1-1097705573
saNat
2004-10-14 02:12
2004.10.31
Как убрать курсор в TMemo


1-1097907829
acsoft
2004-10-16 10:23
2004.10.31
Как по известному Handle программы узнать её расположение на диск


8-1091407249
widoms
2004-08-02 04:40
2004.10.31
Компоненты для работы с изображениями.


10-1054293402
DreamDesire
2003-05-30 15:16
2004.10.31
Разнородные DCom клиент и сервер (в т.ч. в Midas)


1-1097571033
MakNik
2004-10-12 12:50
2004.10.31
QReport