//添加 TIdIPWatch 控件: IdIPWatch1
procedure TForm1.Button1Click(Sender: TObject);
var
  ip: string;
begin
  ip := IdIPWatch1.LocalIP;
  ShowMessage(ip);
end;

posted on 2009-03-08 22:45  万一  阅读(3053)  评论(5编辑  收藏  举报