problem ze zmianą tła pulpitu

Do zmiany tla pulpitu sluzy funkcja z danymi:

SystemParametersInfo(SPI_SETDESKWALLPAPER,0, pchar(''),SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);

W tym przypadku usunie tlo pulpitu. Ale dziala to mi dopiero jak uruchomie program z debugowaniem w delphi. Natomiast jak sam program uruchomie po skompilowaniu juz jako plik wynikowy nic sie nie dzieje. Czy spotkal sie juz ktos z tym problemem?

var
s : string;
begin
   S := 'C:\Tlo.bmp';
  SystemParametersInfo(SPI_SETDESKWALLPAPER,0, PChar(s),
  SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);

Ten kod działa
Pozdrawiam

Ok, ale jak usunac tabete bo na tym mi raczej zalezy. :) . Bo jest problem z tym nadal taki jaki opisalem.

spróbuj tak:

uses registry;

procedure ZmienTapete(tapeta: string);
var reg:TRegistry;
begin
  reg:=TRegistry.Create;
  with reg do
    try
      if OpenKey('\Control Panel\desktop', False) then begin
      reg.WriteString ('Wallpaper', tapeta) ;
      SystemParametersInfo (SPI_SETDESKWALLPAPER,0, nil,SPIF_SENDWININICHANGE) ;
      end;
    finally
      reg.Free;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
begin
  ZmienTapete('');
end;

Inaczej zrobilem. Ten kod powyzej gdy dasz nil to ustawia wpis na (none). Dlatego zrobilem tak:

var s:string;
begin
 s:='';
 SystemParametersInfo(SPI_SETDESKWALLPAPER,0, Pointer(@s),SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);
end.

I dziala jak powinno.