Get a file’s date and time stamp

Function GetFileDate ( TheFileName : String ) : String ;

Var

   FHandle     : integer ;

Begin

   FHandle := FileOpen ( TheFileName , 0 ) ;

   Try

      Result := DateTimeToStr ( FileDateToDateTime ( FileGetDate ( FHandle ) ) ) ;

   Finally

      FileClose ( FHandle ) ;

   End ;

End ;

Example :

        Caption := GetFileDate ( 'c:\windows\notepad.exe' ) ;