Er der forbindelse til fil

Hola

Jeg har min databasefil liggende på en anden maskine i et lan. Mister mit program forbinelsen (database-maskinen mister lan-forbindelse) så hænger programmet. Hvordan kan jeg undgå det?

Jeg har prøvet med

if Database.connected then //den er stadig registreret som connected, så det duer ikke.

prøvede en meget længere smøre:

CONST
  INTERNET_CONNECTION_LAN        = 2;

type
  TfrmMain = class(TForm)
  //en masse
  private
    function IsConnectedToNetwork() : boolean;
  public
    { Public declarations }
  end;

  function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall; external 'WININET.DLL';

function TfrmMain.IsConnectedToNetwork() : boolean;
var
  dwConnectionTypes: Integer;
begin
  try
    dwConnectionTypes := INTERNET_CONNECTION_LAN;
    if InternetGetConnectedState(@dwConnectionTypes,0) then
      Result := true
    else
      Result := false;
  except
    Result := false;
  end;
end;


if IsConnectedToNetwork then //og det er jeg for min computer er stadig på LAN'et.

Andre gode måder at gøre det på?

På forhånd tak