inno脚本获取本机IP

上传：qq_16789 浏览： 46 推荐： 0 文件：ZIP 大小：1.2KB 上传时间：2019-03-07 02:16:03 版权申诉

procedure GetIpButtonOnClick(Sender: TObject); var KeyNames: TArrayOfString; I: Integer; CardIdKeyName, KeyName, ValueName: String; ServiceKey, IpAdd: String; begin CardIdKeyName := 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards'; if RegGetSubkeyNames(HKLM, CardIdKeyName, Ke