─α≥α ∩ε±δσΣφσπε Φτ∞σφσφΦ ⌠αΘδα

╩αΩ Γ√ ±φΦ≥ⁿ Σα≥≤ ∩ε±δσΣφσπε Φτ∞σφσφΦ ⌠αΘδα?

─δ Γ√ ±φσφΦ Σα≥√ ∩ε±δσΣφσπε Φτ∞σφσφΦ ⌠αΘδα ∞εµφε Γε±∩εδⁿτεΓα≥ⁿ± ±δσΣ≤■∙σΘ ⌠≤φΩ÷ΦσΘ:


function GetFileDate(FileName: string): string;

var
  FHandle: Integer;

begin
  FHandle := FileOpen(FileName, 0);
  try
    Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
  finally
    FileClose(FHandle);
  end;
end;

╤εΓσ≥√ φα≈Φφα■∙Φ∞