FileDateTime
ファイル日時
FileDateTime関数は指定されたファイルのタイムスタンプを返します。
Delphiでは FileGetDate関数を使用します。
この関数で返ってくる値は整数型なのでさらに FileDateToDateTime関数を使用してTDateTime型にキャストします。
| ■ FileGetDate , FileDateToDateTime の使用例 |
procedure TForm1.Button1Click(Sender: TObject);
var
F : integer;
i : integer;
d : TDateTime;
begin
if OpenDialog1.Execute then begin
F := FileOpen(OpenDialog1.FileName, fmOpenRead);
i := FileGetDate(F);
d := FileDateToDateTime(i);
ShowMessage(OpenDialog1.FileName + #13#10 + DateTimeToStr(d));
FileClose(F);
end;
end;
|