JPEG и фоновый рисунок рабочего стола

← →
Гриха (2005-08-11 09:20) [0]

Здрасьте!
Подскажите, пожалуюста, как программным образом поменять фоновый рисунок рабочего стола. Systemparametersinfo может устанавливат на обои только BMP. А как установить допустим, JPEG?
Заранее спасибо!

← →
Defunct © (2005-08-11 09:33) [1]

А зачем программным образом трогать системные настройки? Руки поотрывать любителям менять настройки пользователя, еще и вешать на рабочий стол порнокартинки в JPEG"ах.

← →
Kazakh (2005-08-11 09:35) [2]

Лови, из JPEG в Bmp (И меняй на здоровье)
uses
JPEG;

procedure JPEGtoBMP(const FileName: TFileName);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(ChangeFileExt(FileName, ".bmp"));
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;

← →
Kazakh (2005-08-11 09:39) [3]

{Меняй следующим оброзом}

uses ...Registry; //подключаем модуль
...
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create("Control Panel");
Reg.WriteString("desktop", "Wallpaper", "c:\windows\Установка.bmp");
Reg.WriteString("desktop", "TileWallpaper", "0");
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

JPEG и фоновый рисунок рабочего стола Найти похожие ветки