Suche eine Funktion, die mir alle Dateiinfos zurückgibt

[Alallart]

Wo ist hier der Fehler?

Delphi-Quellcode:

type
  TFileInfo = record
    FileName: string;
    FileSize: Int64;
  end;



function GetFileInfo(const FilePath: string): TFileInfo;
var
  FileInfo: TFileInfo;
  FileHandle: THandle;
  FindData: TWin32FindData;
  SystemTime: TSystemTime;
begin
  FillChar(FileInfo, SizeOf(TFileInfo), 0);

  FileInfo.FileName := ExtractFileName(FilePath);

  FileHandle := FindFirstFile(PChar(FilePath), FindData);
  if FileHandle <> INVALID_HANDLE_VALUE then
  try
    FileInfo.FileSize := (Int64(FindData.nFileSizeHigh) shl 32) + FindData.nFileSizeLow;
  finally
    FindClose(FileHandle);  //<<<<<< Hier Fehlermeldung (Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen)
  end;

  Result := FileInfo;
end;

Das habe ich aus einem anderen Programm von mir kopiert, das ich schon vor Jahren erstellt habe. In dem anderen Programm gibt es keine Probleme, hier kommt die Meldung.

Auf jeden Fall sehe ich auf die Schnelle das Problem nicht.

[Uwe Raabe]

Es gibt ein FindClose in System.SysUtils und eins in Winapi.Windows. Je nachdem wie die uses-Anweisung ist, findet der Compiler das zuletzt deklarierte.

Lösung: Winapi.Windows.FindClose(FileHandle) schreiben.

[Alallart]

Das war es. Danke. Hätte mir eigentlich auch selbst einfallen können.