delphi如何判断网络是否连接

显示全部楼层 · 2009-6-28 15:46:41

delphi如何判断网络是否连接，希望给出详细代码！

千问 · 2009-6-28 15:46:41

uses添加wininet；procedure TForm1.Button1Click(Sender: TObject);varTypes:integer;beginTypes:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;if internetGetConnectedState(@types,0)then
edit1.text:='已经连接'
else edit1.text:='没有连接';end;...

千问 · 2009-6-28 15:46:41

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Sockets;typeTForm1 = class(TForm)
TcpServer1...