Как узнать, подключен ли компьютер к сети

procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
    ShowMessage('Computer is attached to a network!')
  else
    ShowMessage('Computer is not attached to a network!');
end;

Похожие по теме исходники

БД Компьютерный магазин

Учет посетителей интернет-салона

Автонастройщик сети

Передача видео по сети

Передача удаленного экрана по сети (Remote Screen)

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 404 • TDictionary Custom Sort 3 527 • Fast Watermark Sources 3 268 • 3D Designer 5 034 • Sik Screen Capture 3 527 • Patch Maker 3 735 • Айболит (remote control) 3 938 • ListBox Drag & Drop 3 190 • Доска для игры Реверси 83 071 • Графические эффекты 4 149 • Рисование по маске 3 420 • Перетаскивание изображений 2 794 • Canvas Drawing 2 955 • Рисование Луны 2 745 • Поворот изображения 2 366 • Рисование стержней 2 241 • Paint on Shape 1 641 • Генератор кроссвордов 2 326 • Головоломка Paletto 1 833 • Теорема Монжа об окружностях 2 350 • Пазл Numbrix 1 724 • Заборы и коммивояжеры 2 107 • Игра HIP 1 318 • Игра Go (Го) 1 270 • Симулятор лифта 1 519 • Программа укладки плитки 1 264 • Генератор лабиринта 1 594 • Проверка числового ввода 1 409 • HEX View 1 553 • Физический маятник 1 395