[code lang=”delphi”]procedure TForm1.Button2Click(Sender: TObject);
Var
S1 : String;
F1 : File;
FStruct : TOFSTRUCT;
TheDate : TDateTime;
Han1 : Integer;
I : Integer;
begin
S1 := FileListBox1.Filename;
Han1 := OpenFile(PChar(S1), FStruct, OF_SHARE_DENY_NONE);
I := FileGetDate(Han1);
TheDate := FileDateToDateTime(I);
Label4.Caption := DateTimeToStr(TheDate);
_lclose(Han1);
end;
[/code]
[tags]Delphi, System, Files[/tags]
0 Kommentare zu “GetFileDate”