Netzwerk-Ordner auf Verfügbarkeit prüfen?

Seven of Nine · Verfasst: Mo 23.11.09 21:31

Folgende Codezeilen wollte ich verwenden um zu prüfen und reagieren ob "ein bestimmter Pfad im Netzwerk verfügbar ist", oder eben auch nicht.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var ErrMode: Cardinal;
ANetworkPath:String;

begin
  ErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    if DirectoryExists(ANetworkPath) then
      //path exists... do something
    else
     //path does not exist... do something else
  finally
    SetErrorMode(ErrMode);
  end;
end;

Problem: Bei "nicht verfügbarer Netzwerk-Resource" hängt sich das Programm ca 60 sec lang auf und quittiert dann den dienst mit einer EAccessViolaton
Was mache ich da falsch? Wie mache ich's besser.

lG Martin

Moderiert von Klabautermann: Code- durch Delphi-Tags ersetzt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme