[Code]
//#############################IsNotProcessRun函数###################################
// 自定义函数,判断软件是否运行,参数为需要判断的软件的exe名称
//系统运行strExeName这个exe,返回真,否则返回false
function IsNotProcessRun(strExeName: String): Boolean;
// 变量定义
var ErrorCode: Integer;
var bRes: Boolean;
var strFileContent: AnsiString;
var strTmpPath: String; // 临时目录
var strTmpFile: String; // 临时文件,保存查找软件数据结果
var strCmdFind: String; // 查找软件命令
begin
strTmpPath := GetTempDir();
strTmpFile := Format('%sfindSoftRes.txt', [strTmpPath]);
strCmdFind := Format('/c tasklist /nh|find /c /i "%s" > "%s"', [strExeName, strTmpFile]);
bRes := ShellExec('open', ExpandConstant('{cmd}'), strCmdFind, '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
bRes := LoadStringFromFile(strTmpFile, strFileContent);
strFileContent := Trim(strFileContent);
if StrToInt(strFileContent) > 0 then begin
result:=true;
end else result:=false;
end;
//#############################IsNotProcessRun函数###################################
procedure InitializeWizard();
begin
if IsNotProcessRun('httpd.exe') then begin
MsgBox('httpd正在运行', mbInformation, MB_OK);
end else
MsgBox('httpd没有运行', mbInformation, MB_OK);
end;