Inno Setup で EXE の起動を確認する

必要なプログラム

• processviewer

スクリプト

[Files]
Source: "processviewer.exe"; Flags: dontcopy

[Code]
function IsProcessRunning(ProceeeName: String): Boolean;
var
  ResultCode: Integer;
begin  
  ExtractTemporaryFile('processviewer.exe');
  if Exec(ExpandConstant('{tmp}\processviewer.exe'), ProceeeName, '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
  begin
    Result := ResultCode > 0;
    Exit;    
  end;  
  MsgBox('Failed to check process', mbError, MB_OK);
end;