Code:
procedure TForm1.Button1Click(Sender: TObject);
var d:TOpendialog;
begin
d:=TOpendialog.Create(self);
d.Execute;
caption := d.FileName;
d.free;
end;
Bei Caption:
C:\Documents and Settings\HP_Eigenaar\Bureaublad\Test.doc
Dass ist doch nich kurtz!
Peter