如何使用Inno Setup获取本地IP地址

Question

如何使用Inno Setup获取用户的本地IP地址？

我考虑过使用Win32 API GetIpAddrTable，但不清楚如何进行调整。

有人有别的办法吗？或者知道怎么做？

Answer 1

这取决于您想要IPv4地址还是IPv6地址。但由于您提到了GetIpAddrTable，并且它只返回IPv4地址，我怀疑这正是您想要的。

每台机器可以有多个本地IP地址。所以我将它们作为TStringList返回
我在下面测试的机器上有5个IP地址。

由于Inno-Setup不支持指针，所以我必须通过Array of Byte为缓冲区执行所有操作。

下面的代码是一个完整的Inno-Setup脚本，演示了如何使用这个函数。

[Setup]
AppName=Test
AppVersion=1.5
DefaultDirName={pf}test
[Code]
const
 ERROR_INSUFFICIENT_BUFFER = 122;

function GetIpAddrTable( pIpAddrTable: Array of Byte;
  var pdwSize: Cardinal; bOrder: WordBool ): DWORD;
external '[e-mail] stdcall';

procedure GetIpAddresses(Addresses : TStringList);
var 
 Size : Cardinal;
 Buffer : Array of Byte;
 IpAddr : String;
 AddrCount : Integer;
 I, J : Integer;
begin
  { Find Size }
  if GetIpAddrTable(Buffer,Size,False) = ERROR_INSUFFICIENT_BUFFER then
  begin
     { Allocate Buffer with large enough size }
     SetLength(Buffer,Size);
     { Get List of IP Addresses into Buffer }
     if GetIpAddrTable(Buffer,Size,True) = 0 then
     begin
       { Find out how many addresses will be returned. }
       AddrCount := (Buffer[1] * 256) + Buffer[0];
       { Loop through addresses. }
       For I := 0 to AddrCount - 1 do
       begin
         IpAddr := '';
         { Loop through each byte of the address }
         For J := 0 to 3 do
         begin
           if J > 0 then
             IpAddr := IpAddr + '.';
           { Navigate through record structure to find correct byte of Addr }
           IpAddr := IpAddr + IntToStr(Buffer[I*24+J+4]);
         end;
         Addresses.Add(IpAddr);
       end;
     end;
  end;
end;
function InitializeSetup(): Boolean;
var
 SL : TStringList;
begin
  SL := TStringList.Create;
  GetIpAddresses(SL);
  MsgBox(SL.Text, mbInformation, MB_OK);
  SL.Free;
end;

Answer 2

构建一个返回IP地址列表的外部DLL，并在Inno Setup脚本中读取该列表。

在本文中，您将找到如何构建DLL以及如何在InnoSetup脚本中调用它的代码示例。

在这篇SO文章中，你会发现如何使用Indy库或纯WinApi获取IP地址。