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

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

← →
zero-g ©   (2005-04-04 05:04) [0]

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

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

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

---

← →
MBo ©   (2005-04-04 14:21) [1]

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

---

← →
zero-g ©   (2005-04-05 01:27) [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);

---

← →
zero-g ©   (2005-04-05 01:31) [3]

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

uses Registry, WinProcs;

---

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

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



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