Readme

This utility is a 32 bit command line tool that queries running processes.

Usage:
The following command line checks if bds.exe is running.

    processviewer.exe bds.exe

If bds.exe is running, processviewer.exe exits with 1, and prints out "found". Otherwise, it exits with 0, and prints out "not found".

So in your Inno Setup script, you can include processviewer.exe in [Files] sections like below,

    [Files]
    ; exe used to check running notepad at install time
    Source: "processviewer.exe"; Flags: dontcopy
    
    ; exe is installed in {app} folder, so it will be
    ; loaded at uninstall time ;to check if notepad is running
    Source: "processviewer.exe"; DestDir: "{app}"

Then in [Code] section you can write the follow snippet to check if the expected process (such as notepad.exe) is running,

    function ProductRunning(): Boolean;
    var
      ResultCode: Integer;
    begin  
      ExtractTemporaryFile('processviewer.exe');
      if Exec(ExpandConstant('{tmp}\processviewer.exe'), 'notepad.exe', '', SW_HIDE,
         ewWaitUntilTerminated, ResultCode) then
      begin
        Result := ResultCode > 0;
        Exit;    
      end;  
      
      MsgBox('failed to check process', mbError, MB_OK);
    end;
    
    function ProductRunningU(): Boolean;
    var
      ResultCode: Integer;
    begin  
      if Exec(ExpandConstant('{app}\processviewer.exe'), 'notepad.exe', '', SW_HIDE,
         ewWaitUntilTerminated, ResultCode) then
      begin
        Result := ResultCode > 0;
        Exit;    
      end;  
      
      MsgBox('failed to check process.', mbError, MB_OK);
    end;