Inno Setup打包程序添加hosts解析

在一些特殊情况下，需要指定某个域名的IP地址。在Inno Setup打包程序时，可以直接设置。

在Inno Setup脚本中，加入[Code]字段。代码如下：

[Code]
#ifdef Unicode
#define A "W"
#else
#define A "A"
#endif


const
myMark = '我是为什么添加';   // 作为标识

function GetFileAttributes(lpFileName: String): Cardinal;
external 'GetFileAttributes{#A}@kernel32.dll stdcall';

function SetFileAttributes(lpFileName: String; dwFileAttributes: Cardinal): Boolean;
external 'SetFileAttributes{#A}@kernel32.dll stdcall';

function LineInFile(sLine, fPath: string): Boolean;
var
aos: TArrayOfString;
n: Integer;
begin
Result:= false;
if LoadStringsFromFile(fPath, aos) then
for n:= 0 to GetArrayLength(aos)-1 do
  if aos[n] = sLine then
    begin
    Result := true;
    Exit;
    end;
end;

procedure AddHosts(newItem, comments: string);
var
OldFileAttribute: Cardinal;
hfPath, newLine: string;
begin
hfPath := ExpandConstant('{sys}driversetchosts');
if not LineInFile(newItem, hfPath) then       // 仅添加 Hosts 中还没有的项目
  begin
  OldFileAttribute:= GetFileAttributes(hfPath);
  SetFileAttributes(hfPath, FILE_ATTRIBUTE_NORMAL);
  newLine := newItem + ' # ' + myMark;
  If comments > ' ' then
    newLine := newLine + ' / ' + comments;
  SaveStringToFile(hfPath, #13#10 + newLine, True);
  SetFileAttributes(hfPath, OldFileAttribute);
  end;
end;

procedure RemoveHosts(sItem: string);
var
OldFileAttribute: Cardinal;
hfPath, newLine: string;
stl: TStringList;
n: Integer;
begin
hfPath := ExpandConstant('{sys}driversetchosts');
newLine := sItem + ' # ' + myMark;
stl:= TStringList.Create;
stl.LoadFromFile(hfPath);
for n:= stl.Count-1 downto 0 do
  if Pos(newLine, stl.Strings[n]) = 1 then
    stl.Delete(n);
OldFileAttribute:= GetFileAttributes(hfPath);
SetFileAttributes(hfPath, FILE_ATTRIBUTE_NORMAL);
stl.SaveToFile(hfPath);
stl.Free;
SetFileAttributes(hfPath, OldFileAttribute);
end;

procedure Initializewizard;
begin
AddHosts('10.255.1.160  10-255-1-160.6307999.cn', '我是注释'); // 在 Hosts 中添加新项目，带注释
AddHosts('10.255.1.160  report.6307999.cn', '');       // 在 Hosts 中添加新项目，不带注释
end;

procedure DeinitializeUninstall;
begin
RemoveHosts('10.255.1.160  10-255-1-160.6307999.cn'); // 从 Hosts 中删除项目
RemoveHosts('10.255.1.160  report.6307999.cn');       // 从 Hosts 中删除项目
end;

 卸载时，会从hosts文件中删除掉添加的内容。