Ist evtl. nicht die beste Lösung, aber eine wäre sie:
Delphi-Quellcode:
var
AFile : file;
AFileName : String;
AFileSize : integer;
begin
fileMode := fmOpenRead;
AssignFile(AFile, AFileName);
Reset(AFile, 1);
AFileSize := filesize(AFile);
CloseFile(AFile);
end;
[edit]
oder so:
Delphi-Quellcode:
var
hFile : Integer;
AFileName : String;
AFileSize : integer;
begin
hFile := FileOpen(AFileName, fmOpenRead);
AFileSize := FileSeek(hFile, 0, 2);
FileClose(hFile);
end;
[/edit]