Daten auf Festplatte statt in Speicher schreiben

[himitsu]

Zitat von Christian Seehase:

stimmt, aber dabei geht es ja auch nicht um FindFirstFile, sondern um den Code, der zwischen einem erfolgreichen Aufruf von FindFirstFile und FindClose steht.

Code:

function GetFileSize(szFile: string): Int64;
var fFile : THandle;
    wfd   : TWIN32FINDDATA;
begin
  result := -1;
  fFile := FindFirstfile(pchar(szFile), wfd);
  [b]if fFile = INVALID_HANDLE_VALUE then exit;
  result := (Int64(wfd.nFileSizeHigh) shl 32) or wfd.nFileSizeLow;[/b]
  windows.FindClose(fFile);
end;

Na ja, die beiden Zeilen sind schon recht "harmlos"

Wobei es so bestimmt auch recht "sicher" wäre

Code:

function GetFileSize(szFile: string): Int64;
var fFile : THandle;
    wfd   : TWIN32FINDDATA;
begin
  fFile := FindFirstfile(pchar(szFile), wfd);
  [b]windows.FindClose(fFile);[/b]
  if fFile = INVALID_HANDLE_VALUE then result := -1
  else result := (Int64(wfd.nFileSizeHigh) shl 32) or wfd.nFileSizeLow;
end;