When I was doing an installation package, because my code needs to use the node environment, I need to install the node environment for the user. InnoSetupVersion=5.5.0AppName=Adobe Flash Player 15 + Shockwave Player 12 + Adobe Air 15 - AiOAppVersion=15.12.15AppPublisher=Adobe Systems, Inc.AppPublisherURL=Systems IncorporatedVersionInfoDescription=Adobe Runtimes AiO (Adobe Shockwave Player v12.1.4.154 + Flash Player v15.0.0.223 + Adobe AIR) RePacked SetupVersionInfoProductName=Adobe Runtimes AiOVersionInfoProductVersion=15.12.15VersionInfoProductTextVersion=12.12.Automatically install other msi files (take node as an example) Please copy the *.iss files to the directory. You can get a file named 'CheckAppRunning.iss'. The attachment 'CheckAppRunning.zip' is the script. You can use it where you need just like:zylIsAppRunning('notdpad.exe', false) Īn example project for Unicode Inno Setup is provided as download. I wish you have installed the Unicode Inno Setup (the 5.5.x version or more).(If not, you can download it from the home page ) If (AnsiLowercase(filename) = AnsiLowercase(procName)) then If (GetModuleFileNameExW(hProcess, hMod, lpFilename, Length(lpFilename)) > 0)įilename := Copy(Lowercase(lpFilename), 1, filenameEnd - 1) IsModuleShot := EnumProcessModules(hProcess, hMod, SizeOf(hMod), NA) IsModuleShot := EnumProcessModulesEx(hProcess, hMod, SizeOf(hMod), NA, $3) Ma圎ntries := ma圎ntries / SizeOf(ma圎ntries) īegin //EnumProcessModulesEx $3，surport 32-bit modules and 64-bit modules the sametiem If (EnumProcesses(processes, SizeOf(processes), ma圎ntries)) then ZylIsAppRunning(procName : String fullPath : Boolean) : Boolean 64-bit using EnumProcessModulesEx 32-bite using EnumProcessModulesįunction EnumProcessModulesEx(hProcess : HANDLE var lphModule : pHMODULE cb : DWORD var lpcbNeeded : LPDWORD dwFilterFlag : DWORD) : BOOL Įxternal stdcall delayload' function EnumProcessModules(hProcess : HANDLE var lphModule : pHMODULE cb : DWORD var lpcbNeeded : LPDWORD) : BOOL įunction GetModuleFileNameExW(hProcess : HANDLE hModule : HMODULE lpFilename : LPTSTR nSize : DWORD) : DWORD notice:delayload EnumProcessModules and EnumProcessModulesEx functions LPDWORD = DWORD PDWORD = Array of DWORD įunction OpenProcess(dwDesiredAccess : DWORD bInheritHandle : Boolean dwProcessId : DWORD) : HANDLE įunction CloseHandle(hObject : HANDLE) : BOOL įunction EnumProcesses(var pProcessIds : PDWORD cb : DWORD var pBytesReturned : DWORD) : BOOL So we can check the app is whether running. The Pascal script can call standard Win32 API functions inside standard Windows DLLs. Such as using a external DLL.But I do not like this way.

Inno setup run