[Delphi] Tapeta systemu Zmienianie 'dynamiczne'

Mam pytanie....
Mam kodzik:
var  S : String; begin  S := 'zdjecie.bmp';  SystemParametersInfo(SPI_SETDESKWALLPAPER,0, PChar(s),   SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);

I chciałbym aby w programie była opcja zmienienia tej linii kodu:
zdjecie.bmp

po prostu by było pole edit i btn i by się wpisywało ściężkę albo wybierało z opcji "przeglądaj".
Jak to zrobić?

---

//onclick buttona var s: string; begin  S := Edit1.Text; SystemParametersInfo(SPI_SETDESKWALLPAPER,0, PChar(s),  SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE); end;

:huh:

nie działa ...


nie działa ...

---

nie działa ...

zmienia się tylko jeżeli jest bitmapa....
Użytkownik Magister_Z edytował ten post 01 listopad 2005, 13:05

po prostu się nie zmienia...

if FileExists('...') then
ShowMessage('Plik isnieje!')
else
ShowMessage('Plik nie istnieje!');

ale co wpisać pomiędzy '...'

czy znów uzywać btn i edita?


if FileExists('...') then
ShowMessage('Plik isnieje!')
else
  ShowMessage('Plik nie istnieje!');
ale co wpisać pomiędzy '...'
czy znów uzywać btn i edita?

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl