1:
2:
3:
4:
5:
6:
7:
8:

function DirExists(const szDirname: string): boolean;
var
  dummy : string;
begin
  dummy  := GetCurrentDir;
  Result := SetCurrentDir(szDirname);
  SetCurrentDir(dummy); // zurück ins Ausgangsverzeichnis
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function DirExists(const szDirname: string): boolean;
var
  dummy : string;
begin
  GetDir(0,dummy);
  {$I-}
  ChDir(szDirName); Result := (IoResult = 0);
  {$I+}
  ChDir(dummy); // zurück ins Ausgangsverzeichnis
end;					

1:
2:
3:
4:

function CheckDir(DirName: string): Boolean;
begin
   Result := GetFileAttributes(PChar(DirName + '\.')) <> $FFFFFFFF;
end;