Hi Delphianer.
Ich öffne mitels Opendialog eine Datei und möchte die Dateigrösse der Datei in eine Litvie schreiben.
Delphi-Quellcode:
Li.SubItems.Add(GetFileSize(ClientForm.opendialog1.Files[i]));
Delphi-Quellcode:
function GetFileSize(FileName:
string): integer;
var
Handle: THandle;
begin
Result := 0;
Handle := CreateFile(pchar(FileName),GENERIC_READ,FILE_SHARE_READ,
nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if Handle <> INVALID_HANDLE_VALUE
then Result := windows.GetFileSize(
Handle,
nil);
CloseHandle(
handle);
end;
Allerdings bekomme ich da immer die Fehlermeldung: Inkompatible Typen: NativeUInt und String;