| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

JPEG и фоновый рисунок рабочего стола [D7, WinXP]

Гриха ©   (2005-08-11 09:20:00) 

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

---

Kazakh   (2005-08-11 09:39:00) [1]

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

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;

---

Kazakh   (2005-08-11 09:35:00) [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;

---

Defunct   (2005-08-11 09:33:00) [3]

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

---

Наверх