Entwickler-Ecke

Dateizugriff - Netzwerk-Ordner auf Verfügbarkeit prüfen?


Seven of Nine - Mo 23.11.09 21:31
Titel: Netzwerk-Ordner auf Verfügbarkeit prüfen?
Folgende Codezeilen wollte ich verwenden um zu prüfen und reagieren ob "ein bestimmter Pfad im Netzwerk verfügbar ist", oder eben auch nicht.


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 user profile iconKlabautermann: Code- durch Delphi-Tags ersetzt.