procedure TForm1.Button1Click(Sender: TObject); var File_Name: string; DateTimeStamp: integer; Date_Time: TDateTime; begin File_Name := 'c:\mydocuments\test.doc'; DateTimeStamp := FileAge(File_Name); // FileAge returns -1 if file not found if DateTimeStamp < 0 then ShowMessage('File not found') else begin // Convert to TDateTime format Date_Time := FileDateToDateTime(DateTimeStamp); Label1.Caption := DateToStr(Date_Time); Label2.Caption := TimeToStr(Date_Time); end; end; |
|
TOP
DC Library FAQ
Crash Course Delphi Tips Source
Code Downloads Links
© Copyright 1999-2019
Studiebureau Festraets