API-Funktionen von FindFirst usw?

[MathiasSimmack]

Das ist ein Denkfehler, den du von der SysUtils-Variante "FindFirst" übernommen hast. Die API-Funktion "FindFirstFile" ist eine bool-Funktion. Das "Handle" ist in dem Fall der erste Parameter. Verkürzt sieht die Sache so aus:

Delphi-Quellcode:

    res := FindFirstFile('*.*',ds);
    if(res <> INVALID_HANDLE_VALUE) then
    try
      while(res <> ERROR_NO_MORE_FILES) do
      begin
        { ... }

        if(not FindNextFile(res,ds)) then break;
      end;
    finally
      FindClose(res);
    end;