Das kannst du mit Hilfe der Registry lösen. Hier hast du eine Prozedur, die das erledigen kann (sofern du Zugriffsrechte auf die Registry hast):
Delphi-Quellcode:
procedure SetCenter(status: Boolean);
var
reg: TRegIniFile;
stat: String;
begin
if status then
stat := '0'
else
stat := '2';
reg := TRegIniFile.Create('Control Panel\Desktop');
try
with reg do
WriteString('', 'WallpaperStyle', stat);
finally
reg.Free;
end;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;
Der Aufruf würde so aussehen:
Delphi-Quellcode:
SetCenter(True); //mittig (center=0)
SetCenter(False); //gestreckt (streched=2)
MfG Pr0g