hab mal bischen probiert und die Funktion "MultinetGetConnectionPerformance" kann man für diesen zweck missbrauchen.
So hab ich das umgesetzt:
Delphi-Quellcode:
function IsNetworkResAvailable(ARes: String): Boolean;
var LRes: TNetResource;
LInfo: TNetConnectInfoStruct;
begin
ZeroMemory(@LRes, SizeOf(LRes));
LRes.lpLocalName := nil;
LRes.lpRemoteName := PChar(ARes);
LInfo.cbStructure := SizeOf(LInfo);
result := MultinetGetConnectionPerformance(@LRes, @LInfo) = NOERROR;
end;