我想知道如何在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;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。