Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
5. Jan 2005
Ups. :oops: Ich war irgendwann mal gerade dabei den Parameter der Funktion in einen String zu ändern, als ich wohl mal wieder Delphi Support per ICQ spielen musste. :roll:
Ihr glaubt gar nicht wie viele Tastaturen ohne die F1 Taste ausgeliefert werden. :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
5. Jan 2005
Ich benutze immer das:
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;