Oder noch einfacher:
Delphi-Quellcode:
function myfilesize(afile: string): integer;
var
FileHandle: THandle;
begin
FileHandle := FileOpen(FFileName, fmOpenRead or fmShareDenyWrite);
result := -1; // Fehler
if FileHandle <> 0 then
try
result := GetFileSize(FileHandle, nil);
finally
CloseHandle(FileHandle);
end;
end;
Die Fileopen-Attribute entscheiden über das Gelingen der Datei, falls schon geöffnet:
fmOpenRead or fmShareDenyWrite sollte gehen, guck nochmal in die Hilfe zu den verschiedenen Attributen.
Grüßle,
Karl-Heinz
[edit=Luckie]Das nöächste mal setzt bitte die Delphi-Tags selber! Mfg, Luckie[/edit]