高手请帮忙:关于判断网络是否连接,很急!(10分)

S

sculsy

Unregistered / Unconfirmed
GUEST, unregistred user!
有什么最简单的办法判断本机与win2000服务器是否连接?
 
Ping ip 地址
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
ShowMessage('Machine is attached to network') else
ShowMessage('Machine is not attached to network');
end;
 
ping IP 地址如何在delphi中实现?我现在的情况是这样的:我们的内外网实现了物理隔离,
win2000服务器连接在内网,现在我的程序需要判断当前客户端是连接在内网还是外网,我想用
ping IP 地址是可以实现的,但是在delphi中如何实现?或者还有什么更好的办法?请高手指教!
 
ping ????.????.????.????
看结果呀
 

Similar threads

顶部