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