本文主要是介绍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 判断系统端口占用函数的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
