Delphi 取当前电脑所有IP地址

• 函数类型：　自定义函数

• 函数说明：

取当前电脑所有IP地址

• 代码如下：

 function GetStaticIps: TStrings;
begin
  TIdStack.IncUsage;
  try
    Result := TStringList.Create;
    Result.StrictDelimiter := True;
    GStack.AddLocalAddressesToList(Result);
  finally
    TIdStack.DecUsage;
  end;
end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》