Главная страница
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.024 c
14-1097305958
QuasiLamo
2004-10-09 11:12
2004.10.31
Изменение строковых констант


14-1097498711
SeriousSam
2004-10-11 16:45
2004.10.31
Оцените прогу


6-1093386512
nimble
2004-08-25 02:28
2004.10.31
TCP/IP программирование


3-1096464925
Хома
2004-09-29 17:35
2004.10.31
Connect to Informix


4-1096128648
Yuri Btr
2004-09-25 20:10
2004.10.31
Проблема с VCL компонентами при установке таймера timeSetEvent