Formular auf Desktop zeichnen...

[E307]

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.