Fehleranfääliges DirectoryExists auch in Delphi > XE 1?

**CCRDude**

Unter Delphi XE finde ich in der SysUtils.pas:

Delphi-Quellcode:

			function DirectoryExists(const Directory: string; FollowLink: Boolean = True): Boolean;

var

  Code: Cardinal;

  Handle: THandle;

  LastError: Cardinal;

begin

  Result := False;

  Code := GetFileAttributes(PChar(Directory));

  if Code <> INVALID_FILE_ATTRIBUTES then

  begin

    [...]  

  end

  else

  begin

    LastError := GetLastError;

    Result := (LastError <> ERROR_FILE_NOT_FOUND) and

      (LastError <> ERROR_PATH_NOT_FOUND) and

      (LastError <> ERROR_INVALID_NAME);

  end;

end;

Leider ist das fehleranfällig - es gibt Situationen, in denen GetLastError bei nicht existierenden Pfaden ungleich einer der drei Fehlermeldungen ist und damit die Existenz eines nicht existierenden Verzeichnisses angenommen wird. So erlebt unter Windows PE (Vista, Win7, Win 8 AIK/ADK-Versionen), allerdings nicht generell. Welcher Fehler dort gemeldet wird, habe ich noch nicht rausgefunden, da er nur bei Kunden auftritt, und ich ihn meist schon umschifft habe, indem ich Verzeichnisse mit FindFirst suche.

Generell ist es natürlich fehleranfällig, Erfolg anzunehmen, nur weil drei bestimmte Fehler nicht aufgetreten sind.

Daher meine Frage: ist dies in neueren Delphi-Versionen besser gelöst, kann da jemand mal in die SysUtils.pas / System.SysUtils.pas schauen bitte?
Kann das selber nicht nachschauen, die Trial hat scheinbar keine Sourcen dabei.

Fehleranfääliges DirectoryExists auch in Delphi > XE 1?

Fehleranfääliges DirectoryExists auch in Delphi > XE 1?

Forumregeln