function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
procedure TLog_Form.FormCreate(Sender: TObject);
begin
Login :=False ;
if inetIsOffline(0) then
begin
statusbar1.Panels[1].Text :='该计算机目前没有连接到internet' ;
Login :=False ;
end
else
begin
statusbar1.Panels[1].Text :='该计算机目前以连接到internet';
Login :=True ;
end;
end;好象我拔掉网线还是提示连接到了internet了?
procedure TLog_Form.FormCreate(Sender: TObject);
begin
Login :=False ;
if inetIsOffline(0) then
begin
statusbar1.Panels[1].Text :='该计算机目前没有连接到internet' ;
Login :=False ;
end
else
begin
statusbar1.Panels[1].Text :='该计算机目前以连接到internet';
Login :=True ;
end;
end;好象我拔掉网线还是提示连接到了internet了?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货