Графика [D5, D7, Win95/98, WinME, WinXP]
Артём © (2003-03-27 08:05:00)
Как программным способом менять картинку на рабочем столе?
Заранее благодарю!
AlexT1000 (2003-03-28 16:32:00) [1]
uses
Windows,
ComObj,
Registry,
ShlObj,
SysUtils,
var
ActiveDesktop: IActiveDesktop;
procedure SetWallpaper(FileName:String;bTile:boolean);
var reg : TRegIniFile;
WallPaperFile : string;
Temp: array[0..255] of Char;
prevW : string;
PrevT : string;
begin
// Изменяем ключи реестра
// HKEY_CURRENT_USER
// Control Panel\Desktop
// TileWallpaper (REG_SZ)
// Wallpaper (REG_SZ)
reg := TRegIniFile.Create("Control Panel\Desktop" );
GetWindowsDirectory(Temp, 256);
WallPaperFile := StrPas(Temp) + "\" + "Wallpaper.bmp" ;
// эта функция конвртит файл из любого формата в bmp это
специфическая функция из одной очень платной библиотеки
главное цель! переконверитить файл в bmp реализуй своими
методами
L_FileConvert(PChar(FileName), PChar(WallPaperFile),
FILE_BMP, 0, 0, 24, 0, nil, nil, nil);
reg.WriteString("", "Wallpaper", WallPaperFile );
reg.WriteString("", "TileWallpaper",
IntToStr(integer(bTile)));
reg.Free;
// Оповещаем всех о том, что мы изменили системные настройки
try
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as
IActiveDesktop;
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
except
ActiveDesktop := nil;
CursorWaitStop();
end;//try
end;
Наверх 
ЧАТ |
Орешник |
|
