API-Funktion zur Pfadüberprüfung

[shmia]

Aus der JCL kopiert:

Delphi-Quellcode:

function DirectoryExists(const Name: string): Boolean;
var
  R: DWORD;
begin
  R := GetFileAttributes(PChar(Name));
  Result := (R <> DWORD(-1)) and ((R and FILE_ATTRIBUTE_DIRECTORY) <> 0);
end;