Delphi Bytes einer Datei berechnen

Thema durchsuchen

Ansicht

Themen-Optionen

Bytes einer Datei berechnen

Ein Thema von HW764 · begonnen am 7. Sep 2004 · letzter Beitrag vom 7. Sep 2004

Vorheriger Beitrag

Nächster Beitrag

mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge

Delphi 2010 Professional

Re: Bytes einer Datei berechnen

7. Sep 2004, 20:35

Ich stelle jetzt mal einfach so meine Funktion in den Raum

zusammenfalten · markieren

Delphi-Quellcode:

			  function GetFileSize(const FileName: String; var Size: Int64): Boolean;

  var

    sr: TWin32FindData;

    h: HWND;

  begin

    h := FindFirstFile(PChar(FileName), sr);

    Result := (h <> 0) and (FileExists(FileName)) and (sr.dwFileAttributes and

       FILE_ATTRIBUTE_DIRECTORY = 0);

    if Result then

      Size := (sr.nFileSizeHigh * MAXDWORD) + sr.nFileSizeLow else Size := 0;

    Windows.FindClose(h);

  end;