uses WinInet;
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');
end;
转载于:https://www.cnblogs.com/hnxxcxg/archive/2010/04/24/2940720.html
uses WinInet;
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');
end;
转载于:https://www.cnblogs.com/hnxxcxg/archive/2010/04/24/2940720.html