Delphi-Quellcode:
procedure TForm1.ChangeWallpaper;
var s : String;
a : Array[0..1024] of Char;
begin
s := 'C:\Test.bmp';
if FileExists(s) then begin
StrPCopy(a, s);
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @a, SPIF_UPDATEINIFILE);
end;
end;
So. Wie kann ich jetzt
s aus dem Arbeitsspeicher laden? Ich habe sowas bis jetzt erste einmal gemacht (für Genesis3D), aber da sah der Befehl anders aus. Der versuch, einfach ein TBitmap- Objekt zu erstellen und es dann mit
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @bmp, SPIF_UPDATEINIFILE);
als wallpaper zu setzten hat nicht funktioniert.