Как определить - подключен ли компьютер к сети
Летит компьюте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; |
Далее: Как работать с поименованными каналами под Win95-NT в сети »»