随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253


uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');
end;

posted on 2009-03-08 22:39  万一  阅读(...)  评论(...编辑  收藏