Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: FileSize nicht für Textdateien?

    Delphi
    by Luckie, 7. Dez 2005
  Und dafür machst du bitte ein neues Thema auf, da es mit dem ursprünglichen Thema nichts zu tun hat. Ich schließe den Thread deswegen an dieser Stelle, da dein ursprüngliches Problem ja gelöst ist.
• Forum: Sonstige Fragen zu Delphi

  Re: FileSize nicht für Textdateien?

    Delphi
    by Luckie, 7. Dez 2005
  function GetFileSize(szFile: PChar): Int64;
  var
  fFile : THandle;
  wfd : TWIN32FINDDATA;
  begin
  result := 0;
  if not FileExists(szFile) then exit;
  fFile := FindFirstfile(pchar(szFile), wfd);
  if fFile = INVALID_HANDLE_VALUE then exit;
  result := (wfd.nFileSizeHigh * (Int64(MAXDWORD) + 1)) + wfd.nFileSizeLow;