Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Смена обоев

Автор: Artem91 10.5.2008, 15:52

Хочу сделать прогу, которая поменяет обои на заданную картинку. Вроде бы все нормально, но картинка устанавливается на рабочий стол, только если её расширение bmp. Нигде не нашел примера для установки обоев других расширений (jpg, gif и тд) Может кто знает рабочий код!!!
Спасибо.

Автор: Poseidon 10.5.2008, 16:39

Код


uses
ComObj, ShlObj;
 
procedure ChangeWallpaper;
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)as IActiveDesktop;
ActiveDesktop.SetWallpaper('c:\windows\aaa.jpg', 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

Автор: Artem91 10.5.2008, 19:08

Спасибо