Onlinestatus ermitteln

[corgan]

Zitat von "emsländer:

Delphi-Quellcode:

function Tisacheck.isOnline(VerifyUrl : String; ConnectIfOffline : Boolean=false) : Boolean;
Var bOn : Boolean;
 // Sub-Procedure
procedure checkOnline;
  Var wsaData : TwsaData;
  begin
  if(WsaStartup(MAKEWORD(1,1),wsadata) = 0) then
    try
      // Internetverbindung prüfen
      bOn := (InternetGetConnectedState(nil,0));
    finally
      WsaCleanUp;
    end;
  end;
//Main-Function
begin
  result := false;
  checkOnLine;
  if (not bOn) and (ConnectIfOffline) then begin
    if InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or   INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then begin
      checkOnline;
      result := bOn;
    end;
  end
  else
    result := bOn;
end;

wofür ist denn die variable VerifyUrl : String; gedacht ?
die wird doch garnicht angesprochen ??

greetz Corgan