摘要：
//添加 TIdIPWatch 控件: IdIPWatch1 procedure TForm1.Button1Click(Sender: TObject); var ip: string; begin ip := IdIPWatch1.LocalIP; ShowMessage(ip); end; 阅读全文
posted @ 2009-03-08 22:45
万一
阅读(3071)
评论(5)
推荐(0)
摘要：
uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接'); end; 阅读全文
posted @ 2009-03-08 22:39
万一
阅读(8744)
评论(17)
推荐(0)
浙公网安备 33010602011771号