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;