inno-setup – 如何在Inno Setup中获取完整的计算机名称

发布时间：2020-12-15 09:37:06 所属栏目：大数据来源：网络整理

导读：我想知道如何在Inno Setup中获取完整的计算机名称,例如下图中的Win8-CL01.cpx.local. 我已经知道如何使用GetComputerNameString获取计算机名称,但我也想拥有计算机的域名.如何获取此完整的计算机名称或此域名？解决方法在Inno Setup中没有内置功能.您可以

我想知道如何在Inno Setup中获取完整的计算机名称,例如下图中的Win8-CL01.cpx.local.

我已经知道如何使用GetComputerNameString获取计算机名称,但我也想拥有计算机的域名.如何获取此完整的计算机名称或此域名？

解决方法

在Inno Setup中没有内置功能.您可以使用 GetComputerNameEx Windows API函数：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}My Program

[Code]
#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif

const
  ERROR_MORE_DATA = 234;

type
  TComputerNameFormat = (
    ComputerNameNetBIOS,ComputerNameDnsHostname,ComputerNameDnsDomain,ComputerNameDnsFullyQualified,ComputerNamePhysicalNetBIOS,ComputerNamePhysicalDnsHostname,ComputerNamePhysicalDnsDomain,ComputerNamePhysicalDnsFullyQualified,ComputerNameMax
  );

function GetComputerNameEx(NameType: TComputerNameFormat; lpBuffer: string; var nSize: DWORD): BOOL;
  external 'GetComputerNameEx{#AW}@kernel32.dll stdcall';

function TryGetComputerName(Format: TComputerNameFormat; out Output: string): Boolean;
var
  BufLen: DWORD;
begin
  Result := False;
  BufLen := 0;
  if not Boolean(GetComputerNameEx(Format,'',BufLen)) and (DLLGetLastError = ERROR_MORE_DATA) then
  begin
    SetLength(Output,BufLen);
    Result := GetComputerNameEx(Format,Output,BufLen);
  end;    
end;

procedure InitializeWizard;
var
  Name: string;
begin
  if TryGetComputerName(ComputerNameDnsFullyQualified,Name) then
    MsgBox(Name,mbInformation,MB_OK);
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!