FindFirstFile NIL übergeben?

[MathiasSimmack]

So ähnlich sieht die Funktion bei Borland aus:

Delphi-Quellcode:

function fileexists(const szFilename: string): boolean;
var
  Handle   : THandle;
  FindData : TWin32FindData;
begin
  Handle   := FindFirstFile(pchar(szFilename),FindData);
  Result   := (Handle <> INVALID_HANDLE_VALUE);

  if(Result) then Windows.FindClose(Handle);
end;

Funktioniert auch für Ordner.