Как Определить Время Последнего Изменения Файла?

[Sascha]

function GetFileModifyDate( FileName: string ): TDateTime;
var
  h: THandle;
  Struct: TOFSTRUCT;
  LastWrite: Integer;
begin
   // h := OpenFile( PChar( FileName ), Struct, OF_SHARE_DENY_NONE );
   h := CreateFile( PChar( FileName ), GENERIC_READ, FILE_SHARE_READ, nil,
                    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 );
   try
      if h <> HFILE_ERROR then
      begin
         LastWrite := FileGetDate( h );
         Result := FileDateToDateTime( lastwrite );
      end;
   finally
      CloseHandle( h );
   end;
end;

Код для использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Caption := FormatDateTime( 'dddd, d. mmmm yyyy hh:mm:ss',
      GetFileModifyDate( 'c:\Dir1\1.txt' ) );
end;