Спрашивает дочка у мамы:
-Мам, а кто этот волосатый дяненька с красными глазками?
-Это твой папа, доченька.
-А он что, заболел?
-Да нет, он к интернету подключился.
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;
Статья Как проверить соединение с Интернетом 2 раздела Интернет и Сети Интернет может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.