Как проверить соединение с Интернетом 2
|
Спрашивает дочка у мамы:
-Мам, а кто этот волосатый дяненька с красными глазками?
-Это твой папа, доченька.
-А он что, заболел?
-Да нет, он к интернету подключился.
|
const INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTdState';
{$R *.DFM}
procedure TForm1.CheckState(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=IC_MODEM+IC_LAN+IC_PROXY;
if InternetGetConnectedState(@dwConnectionTypes,0) then
ShowMessage('Youa connected')
else
ShowMessage('No Connection');
end;
|
|
