Google
 

Tuesday, April 1, 2008

Are we connected to the Internet ?

procedure TForm1.Button1Click(Sender: TObject) ;



function FuncAvail(_dllname, _funcname: string;

var _p: pointer): boolean;

{return True if _funcname exists in _dllname}

var _lib: tHandle;

begin

Result := false;

if LoadLibrary(PChar(_dllname)) = 0 then exit;

_lib := GetModuleHandle(PChar(_dllname)) ;

if _lib <> 0 then begin

_p := GetProcAddress(_lib, PChar(_funcname)) ;

if _p <> NIL then Result := true;

end;

end;



{

Call SHELL32.DLL for Win < Win98

otherwise call URL.dll

}

{button code:}

var

InetIsOffline : function(dwFlags: DWORD):

BOOL; stdcall;

begin

if FuncAvail('URL.DLL', 'InetIsOffline',

@InetIsOffline) then

if InetIsOffLine(0) = true

then ShowMessage('Not connected')

else ShowMessage('Connected!') ;

end;