没人知道：怎样检测本机是否与局域网络联通？怎样用代码实现访问服务器（已经知道帐号和密码）？ 给一点面子嘛

Question

对于这个问题，我是没一点办法

Answer 1

怎样检测本机是否与局域网络联通？
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;

Answer 2

shellexecute('net start ...')具体请看shellexecute 和'net start 的帮助。或写信给我：[email protected]

Answer 3

to crazyz
请问那个方法适用于广域网吗

Answer 4

to crazyz
你说的方法不行啦！