摘要: uses WinInet;procedure TForm1.Button1Click(Sender: TObject);begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');end; 阅读全文
posted @ 2010-04-24 08:35 delphi中间件 阅读(272) 评论(0) 推荐(0) 编辑