ファイルの更新日時を取得する

■ファイルの更新日時を取得する処理

procedure

 TForm1.Button1Click(Sender: TObject);

      Var

      　hFile : Integer;

      　Dos : Integer;

      　FileData :TDateTime;

      begin

      

      　//ファイルのハンドルを取得

      　hFile :=FileOpen('C:\Windows\Calc.exe',0);

      

      　//ファイルの更新日時を取得(DOSの日付時刻値が戻る）

      　Dos :=FileGetDate(hFile) ;

      

      　//ファイルのハンドル閉じる

      　FileClose(hFile);

      

      　//DOSの日付時刻値をTDateTimeに変換

      　FileData
:=FileDateToDateTime(Dos);

      

      　//TDateTimeの日付を文字列に変換して表示

      　ShowMessage(DateTostr(FileData));

      

      end;

Delphi　Tipsのページへ