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

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

Разные возможности установки фона рабочего стола

zero-g ©   (2005-04-04 05:04:00) 

Здравствуйте.

Вообщем я устанавливаю картинку на рабочий стол
    SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(path_),SPIF_SENDCHANGE);

Она ставиться как "растянуть", а как сделать чтоб было "замостить" и "по сентру"?

---

zero-g   (2005-04-05 01:31:00) [1]

Да, забыл дописать

uses Registry, WinProcs;

---

zero-g   (2005-04-05 01:27:00) [2]

Да, уже нашел что куда :)
Если кому интересно, то вот:

procedure SetWallpaper(sWallpaperBMPPath : String; bTile : byte);
 var
   reg : TRegIniFile;
 begin
   reg := TRegIniFile.Create('Control Panel\Desktop' );
   with reg do begin
     WriteString( '', 'Wallpaper', sWallpaperBMPPath );
     if bTile = 1 then //по центру
     begin
       WriteString('', 'TileWallpaper', '0' );
       WriteString('', 'WallpaperStyle', '0' );
     end;
     if bTile = 2 then //по замостить
     begin
       WriteString('','TileWallpaper', '1');
       WriteString('','WallpaperStyle', '0');
     end;
     if bTile = 3 then //по центру
     begin
       WriteString('', 'TileWallpaper', '0' );
       WriteString('', 'WallpaperStyle', '2' );
     end;
   end;
   reg.Free;
 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil,DWININICHANGE );
 end;

//пример вызова
SetWallpaper('C:\001.bmp',1);

---

MBo   (2005-04-04 14:21:00) [3]

в реестр придется писать

---

Наверх