Wallpaper-skifter

Som et forsøg prøver jeg at lave en Wallpaper-skifter, og bruger koden


SystemParametersInfo(SPI_SETDESKWALLPAPER,
0,

PChar(her skal placeringen af billedfilen stå);
SPIF_SENDWININICHANGE);

Hvordan for jeg Edit1.Text til at stå mellem PChar parenteserne??

Jeg har forsøgt PChar(Edit1.Text) men det duer ikke!
Please hjælp jeg er newbie!

Kode 

procedure ChangeWallpaper(AFileName : String);
begin
  SystemParametersInfo(SPI_SETDESKWALLPAPER,
                       0,
                       PChar(AFileName),
                       SPIF_SENDWININICHANGE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeWallpaper(Edit1.Text);
end;

Som et forsøg prøver jeg at lave en Wallpaper-skifter, og bruger koden


SystemParametersInfo(SPI_SETDESKWALLPAPER,
0,

PChar(her skal placeringen af billedfilen stå);
SPIF_SENDWININICHANGE);

Hvordan for jeg Edit1.Text til at stå mellem PChar parenteserne??

Jeg har forsøgt PChar(Edit1.Text) men det duer ikke!
Please hjælp jeg er newbie!
Hej,

Du skal ikke ha' ";" efter "PChar(...)" men der i mod ",".

Prøv med:

Kode 

procedure ChangeWallpaper(AFileName : String);
begin
  SystemParametersInfo(SPI_SETDESKWALLPAPER,
                       0,
                       PChar(AFileName),
                       SPIF_SENDWININICHANGE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeWallpaper(Edit1.Text);
end;

/Michael.