判断网络状况 添加wininet单元。 procedure TForm1.Button1Click(Sender: TObject); var Types:integer; begin Types:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY; if internetGetConnectedState(@types,0) then edit1.text:='on line' else edit1.text:='off line'; end;
添加wininet单元。
procedure TForm1.Button1Click(Sender: TObject);
var
Types:integer;
begin
Types:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
if internetGetConnectedState(@types,0) then
edit1.text:='on line'
else
edit1.text:='off line';
end;