FileExists mit UNC Dateifreigabe

[ol1uw]

Hallo Allerseits

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  FileHandle    : Integer ;
  Exists   : Boolean ;   
Begin

  FileHandle := FileOpen('\\192.168.1.2\public\test.txt', fmOpenRead or fmShareDenyNone);
  if FileHandle > 0 then
   Begin
    Exists:=True;
    Fileclose(FileHandle);
   end
  else
    Exists:=False;

end;




procedure TForm1.FormCreate(Sender: TObject);
var
  Exists   : Boolean ;

Begin
 Exists := FileExists('\\192.168.1.2\public\test.txt');
end;

Beide Versuche funktionieren prima solange die Freigabe existiert, wenn nun aber das Freigabe nicht erreichbar ist
(Computer aus) benötigen beide ca. 10 - 20 Sekunden um festzustellen das die Datei nicht existiert.
Nun die Frage gibt es eine "schnellere" Methode ? bzw.
Wie die Erreichbarkeit einer Freigabe testen ?

MfG Uwe