前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >InnoSetup功能函数合集

InnoSetup功能函数合集

作者头像
俊采
发布2018-05-15 11:19:10
1.9K0
发布2018-05-15 11:19:10
举报
文章被收录于专栏:LEo的网络日志

10 Jan 2016 InnoSetup功能函数合集

1 检测系统是否win7

代码语言:javascript
复制
function CheckWin7(): Boolean;
begin
  GetWindowsVersionEx(Version);
  if Version.Major = 6 then
  begin
    Result := True;
  end else
  begin
      Result := False;
  end;
end;

2 检测是否是silent安装

代码语言:javascript
复制
function CheckSilentInstall():Boolean;
begin
  if Lowercase(ExpandConstant('{param:conf|n}')) = 'y' then 
  begin
    SilentInstall := 'y';
    Log('silent install');
    Result := True;
  end else
  begin
    SilentInstall := 'n';
    Result := False;
  end;
end;

3 检测端口是否被占用

代码语言:javascript
复制
function CheckPortOccupied(Port:String):Boolean;
var
  ResultCode: Integer;
begin
 Exec(ExpandConstant('{cmd}'),  '/C netstat -na | findstr'+' /C:":'+Port+' "', '', 0,ewWaitUntilTerminated, ResultCode);
  if ResultCode  <> 1 then 
  begin
    Log('this port('+Port+') is occupied');
    Result := True; 
  end else
  begin
    Result := False;
  end;
end;

4 检测无效端口

代码语言:javascript
复制
function CheckWrongPort(Port:String):Boolean;
var
  iPort,lMax,lMin:Longint;
begin
  lMax := 65535;
  lMin := 0;
  iPort := StrToIntDef(Port,-1); 
  if  iPort <> -1  then //有效字符
  begin
    if (iPort >= lMin) and (iPort <= lMax) then    
      Result := False    
    else
      Result := True;
  end else 
    Result := True;
end;

5 检测有效端口

代码语言:javascript
复制
function CheckValidPort(Port:String):Boolean;
var
  iPort,lMax,lMin:Longint;
begin
  lMax := 65535;
  lMin := 1024;
  iPort := StrToIntDef(Port,0);
  if (iPort <=lMax) and (iPort >= lMin) then
    Result := True
  else
    Result := False;
end;

6 检测用户是否域用户

代码语言:javascript
复制
function CheckDomainUser():Boolean;
var
DosCmd : String;
ResultCode: Integer;
begin
  UserName := ExpandConstant('{username}');
  DomainName := ExpandConstant('{USERDOMAIN}');
  DosCmd := '/C net localgroup Administrators | findstr '+'"'+DomainName+'\'+UserName+'"';
  Exec(ExpandConstant('{cmd}'),DosCmd, '',  SW_HIDE,ewWaitUntilTerminated, ResultCode);
  if ResultCode = 0 then
  begin
    Result := True
    Log('this user('+UserName+') is a domain user');
  end else
    Result := False;
end;

7 修改环境变量

代码语言:javascript
复制
procedure SetEnv(aEnvName, aEnvValue: string; aIsInstall, aIsInsForAllUser: Boolean);
begin
  if aIsInstall then
  begin
    if not RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', aEnvName, aEnvValue) then
      Log('set env:'+aEnvName+' fail');
  end;
  if not aIsInstall then
  begin
    RegDeleteValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', aEnvName);
  end; 
end;

8 检测中文安装路径

代码语言:javascript
复制
function CheckChinesePath(Ch: Char): Boolean;
var
  i:Integer;
begin
  i:=Ord(Ch);
  if (i>=127) then
    Result := False 
  else 
    Result := True;
end;

9 修改配置文件

代码语言:javascript
复制
procedure ModConf(FileName,OldString,NewString:string);
var
  FileLines: TArrayOfString;
  i: Integer;
begin
  LoadStringsFromFile(FileName, FileLines); 
  for i:=0 to GetArrayLength(FileLines)-1 do 
  if (Pos(OldString, FileLines[i]) > 0) then 
  StringChange(FileLines[i], OldString, NewString); 
  SaveStringsToFile(FileName, FileLines, False); 
end;

LEo at 09:11

本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2016.01.10,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
目录
  • 10 Jan 2016 InnoSetup功能函数合集
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档