Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c