Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 853

•  TDictionary Custom Sort  6 833

•  Fast Watermark Sources  6 614

•  3D Designer  9 578

•  Sik Screen Capture  6 957

•  Patch Maker  7 400

•  Айболит (remote control)  7 348

•  ListBox Drag & Drop  6 206

•  Доска для игры Реверси  98 257

•  Графические эффекты  7 522

•  Рисование по маске  6 804

•  Перетаскивание изображений  5 656

•  Canvas Drawing  6 041

•  Рисование Луны  5 832

•  Поворот изображения  5 281

•  Рисование стержней  3 870

•  Paint on Shape  3 024

•  Генератор кроссвордов  3 983

•  Головоломка Paletto  3 158

•  Теорема Монжа об окружностях  3 998

•  Пазл Numbrix  2 638

•  Заборы и коммивояжеры  3 454

•  Игра HIP  2 368

•  Игра Go (Го)  2 286

•  Симулятор лифта  2 681

•  Программа укладки плитки  2 245

•  Генератор лабиринта  2 803

•  Проверка числового ввода  2 404

•  HEX View  2 746

•  Физический маятник  2 436
 
скрыть

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