T tsedlinux Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-11 #1 在XP/2000下用什么方法能够检测是否已经在网上?(拨号方式)
N naughtboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-12 #4 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;
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;