Delphi-PRAXiS - Delphi Opendialog ?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Opendialog ? (https://www.delphipraxis.net/67916-opendialog.html)

hallo,

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject); 

var HandleDerDatei : THandle; 

    DT             : TDateTime; 

begin 

DT:= StrToDateTime('01.04.1999 15:15'); 

HandleDerDatei:= FileOpen('C:\bootlog.txt', fmOpenWrite  

OR fmShareDenyNone); 

FileSetDate(HandleDerDatei,DateTimeToFileDate(DT)); 

FileClose(HandleDerDatei); 

end;

hier in diesem code muß ich die datei reinschreiben bei der ich das datum ändern will

Delphi-Quellcode:

			HandleDerDatei:= FileOpen('C:\bootlog.txt', fmOpenWrite  

OR fmShareDenyNone);

ich möchte das mit opendialog machen, wie geht das ???
mfg vader

Re: Opendialog ?

Mit openDialog.Execute öffnest du den Dialog. nach dem Auswählen einer Datei durch den Anwender befindet sich der dateiname( inkl. Pfad) in der Eigenschaft Opendilaog.FileName.

Delphi-Quellcode:

HandleDerDatei:= FileOpen(Opendialog.FileName, fmOpenWrite );

Re: Opendialog ?