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

← →
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);

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

uses Registry, WinProcs;

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