ファイルのタイムスタンプを取得する

ファイルのタイムスタンプを取得するには FileGetDate 関数を使用します。しかしこの関数では整数型で値が戻ってくるのでさらに FileDateToDateTime 関数を使用して日付型に変換します。

■ ファイルのタイムスタンプを取得する例 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    FileHnd     : integer;
    intDosDate  : integer;
    datFileDate : TDateTime;
  begin
    try
      { ファイルのハンドルを取得 }
      FileHnd :=  FileOpen('d:\borland\cbuilder3\bin\bcb.exe',fmOpenRead);   
      { ファイルのタイムスタンプを取得 }
      intDosDate      :=  FileGetDate(FileHnd);
      { タイムスタンプを日付型に変換 }
      datFileDate     :=  FileDateToDateTime(intDosDate);
      Label1.Caption  :=  DateTimeToStr(datFileDate);
    finally
      FileClose(FileHnd);
    end;
  end;