Информация сайта компьютерной безопасности
<<< Hack Style >>>

как определить мы в инете иле нет ? да вот так :

для работы нам необходимо импортировать функцию InetIsOffline из URL.DLL:  
 
function InetIsOffline(Flag: Integer): Boolean;stdcall; external 'URL.DLL';
 
а затем поместить в программу простой вызов для проверки соединения: 

if InetIsOffline(0) then 
   ShowMessage('This computer is not connected to Internet!') 
else 
   ShowMessage(You are connected to Internet!'); 

да но эта функция нередко ошибается по этому вот другая ...

функция GetSystemMetrics() - правдо определяется наличие сети
но я думаю вам пригодиться...
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
ShowMessage('Machine is attached to network') else
ShowMessage('Machine is not attached to network');
end; 

я думаю два примеру будет достаточно...

 
 



 

Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru