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

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 (Тетрис) 3 978 • TDictionary Custom Sort 6 089 • Fast Watermark Sources 5 886 • 3D Designer 8 711 • Sik Screen Capture 6 209 • Patch Maker 6 645 • Айболит (remote control) 6 637 • ListBox Drag & Drop 5 495 • Доска для игры Реверси 95 491 • Графические эффекты 6 845 • Рисование по маске 6 041 • Перетаскивание изображений 5 025 • Canvas Drawing 5 392 • Рисование Луны 5 118 • Поворот изображения 4 657 • Рисование стержней 3 280 • Paint on Shape 2 521 • Генератор кроссвордов 3 413 • Головоломка Paletto 2 727 • Теорема Монжа об окружностях 3 515 • Пазл Numbrix 2 315 • Заборы и коммивояжеры 3 003 • Игра HIP 1 957 • Игра Go (Го) 1 875 • Симулятор лифта 2 223 • Программа укладки плитки 1 940 • Генератор лабиринта 2 378 • Проверка числового ввода 2 064 • HEX View 2 387 • Физический маятник 2 021