inno setup 判断系统端口占用函数

本文主要是介绍inno setup 判断系统端口占用函数，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

//#############################IsNotPortOccupation函数###################################
// 自定义函数，判断端口占用
function IsNotPortOccupation(strPortNum: String): Boolean;
// 变量定义
var ErrorCode: Integer;
var bRes: Boolean;
var strFileContent: AnsiString;
var strTmpPath: String;  // 临时目录
var strTmpFile: String;  // 临时文件，保存查找软件数据结果
var strCmdFind: String;  // 查找端口命令， netstat  -natp tcp |findstr "LISTENING" |findstr "135"| find /C  "135"  找到的话返回个数，找不到为0
beginstrTmpPath := GetTempDir();strTmpFile := Format('%sfindProtRes.txt', [strTmpPath]);strCmdFind := Format('/c netstat -natp tcp |findstr "LISTENING" |findstr  ":%s"|find /C ":%s" > "%s"', [strPortNum, strPortNum ,strTmpFile]);log(strCmdFind);bRes := ShellExec('open', ExpandConstant('{cmd}'), strCmdFind, '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);  bRes := LoadStringFromFile(strTmpFile, strFileContent);strFileContent := Trim(strFileContent);if StrToInt(strFileContent)   > 0 then beginresult:=true;end else result:=false;end;
//#############################IsNotProcessRun函数###################################
procedure InitializeWizard();
beginif IsNotPortOccupation('80') then beginMsgBox('80端口占用', mbInformation, MB_OK);end elseMsgBox('80端口没有占用', mbInformation, MB_OK);
end;

 

延伸，判断 windows 系统有没有安装指定服务的方法类似。代码如下：

//#############################IsNotInstalledServices函数###################################
// 自定义函数，查看系统有没有安装的服务
function IsNotInstalledServices(strServiceName: String): Boolean;
// 变量定义
var ErrorCode: Integer;
var bRes: Boolean;
var strFileContent: AnsiString;
var strTmpPath: String;  // 临时目录
var strTmpFile: String;  // 临时文件，保存查找软件数据结果
var strCmdFind: String;  // 查找端口命令
beginstrTmpPath := GetTempDir();strTmpFile := Format('%sfindServicesRes.txt', [strTmpPath]);strCmdFind := Format('/c sc query state= all  | findstr "%s"| findstr "SERVICE_NAME" | find /C "%s" > "%s"', [strServiceName, strServiceName ,strTmpFile]);log(strCmdFind);bRes := ShellExec('open', ExpandConstant('{cmd}'), strCmdFind, '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);  bRes := LoadStringFromFile(strTmpFile, strFileContent);strFileContent := Trim(strFileContent);if StrToInt(strFileContent)   > 0 then beginresult:=true;end else result:=false;end;
procedure InitializeWizard();
beginif IsNotInstalledServices('Apache2.4') then beginMsgBox('Apache2.4服务已安装', mbInformation, MB_OK);end elseMsgBox('Apache2.4服务未安装', mbInformation, MB_OK);
end;
//#############################IsNotInstalledServices函数###################################

 

这篇关于inno setup 判断系统端口占用函数的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---