cHeRsAnYa1, 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;
Ссылка на пост
31 мар 2008 в 17:04