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

Летит компьютеp с 9-го этажа, и дyмает: "Вот бы щас зависнyть..."

Воспользуемся функцией GetSystemMetrics(), переслав ей флаг SM_NETWORK:

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

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

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

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

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

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

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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 709 • TDictionary Custom Sort 6 703 • Fast Watermark Sources 6 484 • 3D Designer 9 421 • Sik Screen Capture 6 818 • Patch Maker 7 257 • Айболит (remote control) 7 219 • ListBox Drag & Drop 6 068 • Доска для игры Реверси 97 750 • Графические эффекты 7 390 • Рисование по маске 6 691 • Перетаскивание изображений 5 543 • Canvas Drawing 5 931 • Рисование Луны 5 694 • Поворот изображения 5 163 • Рисование стержней 3 763 • Paint on Shape 2 951 • Генератор кроссвордов 3 877 • Головоломка Paletto 3 089 • Теорема Монжа об окружностях 3 905 • Пазл Numbrix 2 565 • Заборы и коммивояжеры 3 347 • Игра HIP 2 296 • Игра Go (Го) 2 197 • Симулятор лифта 2 605 • Программа укладки плитки 2 200 • Генератор лабиринта 2 710 • Проверка числового ввода 2 351 • HEX View 2 689 • Физический маятник 2 358