[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    function GetFileDate(TheFileName: string): string;
    var
      FHandle: integer;
    begin
      FHandle := FileOpen(TheFileName, 0);
      try
        Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
      finally
        FileClose(FHandle);
      end;
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]