WIN 8 - 64Bit
DELPHI 2009
Vielleicht gibt es unterschiedliche Versionen.
Meine sieht so aus:
Delphi-Quellcode:
function DirectoryExists(const Directory: string): Boolean; //SysUtils.pas in Delphi 2009
var
Code: Cardinal;
begin
Code := GetFileAttributes(PChar(Directory));
Result := (Code <> INVALID_FILE_ATTRIBUTES) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
end;