本文整理自网络,侵删。
delphi一句话获取本机IP
//添加 TIdIPWatch 控件: IdIPWatch1
procedure TForm1.Button1Click(Sender: TObject);
var
ip: string;
begin
ip := IdIPWatch1.LocalIP;
ShowMessage(ip);
end;
本文来源转载请注明出处:http://www.3464.com/JiShu/Html_589.asp
相关阅读 >>
Delphi2010读取mysql数据库text类型乱码的解决方案
Delphi代码,直截注入别的进程,之后直截运行在别的进程中的代码!
更多相关阅读请进入《Delphi》频道 >>