FileGetDate
Adam Boduch
FileDateToDateTime
Moduł: SysUtils
program Foo;
uses Dialogs, SysUtils;
var
Date : Integer;
S : String;
FileHandle : Integer;
begin
{ wyświetl okno służące do wskazania pliku }
if PromptForFileName(S) then
begin
FileHandle := FileOpen(S, fmOpenRead);
try
Date := FileGetDate(FileHandle);
ShowMessage(DateTimeToStr(FileDateToDateTime(Date)));
finally
FileClose(FileHandle);
end;
end;
end.
Uchwyt pliku musi być liczbą 32-bitową uzyskaną w wyniku jego otwarcia (funkcja FileOpen) lub utworzenia (FileCreate).
Zobacz też: