Как определить, Internet connected or disconnected? - Компьютерный форум OSzone.net

Я не программирую в Дельфи, но в немецком инете нашёл следущее, может это то, что нужно

Код:

Function Connection: boolean;



var



flags: dword;



begin



result:= InternetGetConnectedState(@flags, 0);



end;

Добавлено:

А ещё такое нашёл

Код:

interface 

uses 

Windows,SysUtils,Registry,WinSock,WinInet; 

type 

 &nbsp;TConnectionType=(ctNone,ctProxy,ctDialup); 

function ConnectedToInternet:TConnectionType; 

function RasConnectionCount:Integer; 



implementation 

// For RasConnectionCount = = = = = = = = = = = = = = = = = = = = = = = 

const 

cERROR_BUFFER_TOO_SMALL=603; 

cRAS_MaxEntryName=256; 

cRAS_MaxDeviceName=128; 

cRAS_MaxDeviceType=16; 

type 

 &nbsp;ERasError=class( Exception); 

 &nbsp;HRASConn=DWord; 

 &nbsp;PRASConn=^TRASConn; 

 &nbsp;TRASConn=record 

 &nbsp;dwSize:DWORD; 

 &nbsp;rasConn:HRASConn; 

 &nbsp;szEntryName:Array[0..cRAS_MaxEntryName]Of Char; 

 &nbsp;szDeviceType:Array[0..cRAS_MaxDeviceType]Of Char; 

 &nbsp;szDeviceName:Array[0..cRAS_MaxDeviceName]of char; 

end; 

TRasEnumConnections= 

function (RASConn:PrasConn;{ buffer to receive Connections data } 

var BufSize:DWord;{ size in bytes of buffer } 

 &nbsp;var Connections:DWord { number of Connections written to buffer } 

 &nbsp;):LongInt;stdcall; 

 &nbsp;// End RasConnectionCount = = = = = = = = = = = = = = = = = = = = = = = 

 &nbsp; 

function ConnectedToInternet:TConnectionType; 

var 

 &nbsp;Reg:TRegistry; 

 &nbsp;bUseProxy:Boolean; 

 &nbsp;UseProxy:LongWord; 

begin 

 &nbsp;Result:=ctNone; 

 &nbsp;Reg:=TRegistry.Create; 

 &nbsp;with REG do 

 &nbsp;try 

 &nbsp; &nbsp;try 

 &nbsp; &nbsp; &nbsp;RootKey:=HKEY_CURRENT_USER; 

 &nbsp; &nbsp; &nbsp;if OpenKey( '\Software\Microsoft\Windows\CurrentVersion\Internet settings',False) then begin 

 &nbsp; &nbsp; &nbsp; &nbsp;// I just try to read it , and trap an exception 

 &nbsp; &nbsp; &nbsp; &nbsp;if GetDataType( 'ProxyEnable')=rdBinary then 

 &nbsp; &nbsp; &nbsp; &nbsp;ReadBinaryData( 'ProxyEnable',UseProxy,SizeOf( LongWord)) 

 &nbsp; &nbsp; &nbsp; &nbsp;else begin 

 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;bUseProxy:=ReadBool( 'ProxyEnable'); 

 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;if bUseProxy then 

 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;UseProxy:=1 

 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;else 

 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;UseProxy:=0; 

 &nbsp; &nbsp; &nbsp; &nbsp;end; 

 &nbsp; &nbsp; &nbsp; &nbsp;if (UseProxy&lt;&gt;0) and (ReadString( 'ProxyServer')&lt;&gt;'') then Result:=ctProxy; 

 &nbsp; &nbsp; &nbsp;end; 

 &nbsp; &nbsp;except 

 &nbsp; &nbsp; &nbsp;// Obviously not connected through a proxy 

 &nbsp; &nbsp; &nbsp;end; 

 &nbsp; &nbsp;finally 

 &nbsp; &nbsp; &nbsp;Free; 

 &nbsp; &nbsp;end; 

 &nbsp; &nbsp;// We can check RasConnectionCount even if dialup networking is not installed 

 &nbsp; &nbsp;// simply because it will return 0 if the DLL is not found . 

 &nbsp; &nbsp;if Result=ctNone then begin 

 &nbsp; &nbsp; &nbsp;if RasConnectionCount&gt;0 then Result:=ctDialup; 

 &nbsp; &nbsp;end; 

 &nbsp;end; 

function RasConnectionCount:Integer; 

var 

 &nbsp;RasDLL:HInst; 

 &nbsp;Conns:Array[1..4]of TRasConn; 

 &nbsp;RasEnums:TRasEnumConnections; 

 &nbsp;BufSize:DWord; 

 &nbsp;NumConns:DWord; 

 &nbsp;RasResult:Longint; 

begin 

 &nbsp;Result:=0; 

 &nbsp;// Load the RAS DLL 

 &nbsp;RasDLL:=LoadLibrary( 'rasapi32.dll'); 

 &nbsp;if RasDLL=0 then exit; 

 &nbsp;try 

 &nbsp; &nbsp;RasEnums:=GetProcAddress( RasDLL,'RasEnumConnectionsA'); 

 &nbsp; &nbsp;if @RasEnums=nil then 

 &nbsp; &nbsp;raise ERasError.Create( 'RasEnumConnectionsA not found in rasapi32.dll'); 

 &nbsp; &nbsp;Conns[1].dwSize:=Sizeof (Conns[1]); 

 &nbsp; &nbsp;BufSize:=SizeOf( Conns); 

 &nbsp; &nbsp;RasResult:=RasEnums( @Conns,BufSize,NumConns); 

 &nbsp; &nbsp;If (RasResult=0) or (Result=cERROR_BUFFER_TOO_SMALL) then Result:=NumConns; 

 &nbsp;finally 

 &nbsp; &nbsp;FreeLibrary( RasDLL); 

 &nbsp;end; 

end;