Как проверить соединение с Интернетом? |
Написал Ярослав Гасов | |
19.10.2009 | |
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; |