Состояние подключения к сети

procedure

TForm1.Button1Click(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

;

Другое по теме:

• Как подключать сетевые диски
• Как подключить и отключить сетевые диски
• Отобразить, присоединить сетевые диски