Вопрос How to get the uninstaller fail if the application is running?

#define NameProc "Setup"

[Setup]
AppName={#NameProc}
AppVersion={#NameProc}
DefaultDirName={sd}\{#NameProc}
AppMutex={#NameProc}

[Code]
var
  Mutex: THandle;

function CreateMutex(lpMutexAttributes: Longint; bInitialOwner: BOOL; lpName: AnsiString): THandle; external 'CreateMutexA@kernel32.dll stdcall';
function ReleaseMutex(hMutex: THandle): BOOL; external 'ReleaseMutex@kernel32.dll stdcall';
function CloseHandle(hObject: THandle): BOOL; external 'CloseHandle@kernel32.dll stdcall';

procedure SMutex;
begin
  Mutex:= CreateMutex(0, False, ExpandConstant('{#SetupSetting("AppMutex")}'));
end;

function InitializeSetup(): Boolean;
begin
  Result:= not CheckForMutexes(ExpandConstant('{#SetupSetting("AppMutex")}'));
  if not Result then
  MsgBox('One version of the installer is already running. Simultaneous startup is prohibited.', mbError,mb_Ok);
  CloseHandle(Mutex);
end;

procedure InitializeWizard();
begin
  SMutex;
end;

#define NameProc "MySetup"

[Setup]
AppName={#NameProc}
AppVersion={#NameProc}
DefaultDirName={sd}\{#NameProc}
AppMutex={#NameProc}

[Code]
var
  Mutex: THandle;

function CreateMutex(lpMutexAttributes: Longint; bInitialOwner: Boolean; lpName: AnsiString): THandle; external 'CreateMutexA@kernel32.dll stdcall';
function ReleaseMutex(hMutex: THandle): Boolean; external 'ReleaseMutex@kernel32.dll stdcall';
function CloseHandle(hObject: THandle): Boolean; external 'CloseHandle@kernel32.dll stdcall';

function InitializeUninstall(): Boolean;
begin
Result:= not CheckForMutexes(ExpandConstant('{#SetupSetting("AppMutex")}'));
if not Result then
  MsgBox('One version of the installer is already running. Simultaneous startup is prohibited.', mbError,mb_Ok);
  CloseHandle(Mutex);
end;

procedure InitializeUninstallProgressForm();
begin
  Mutex:=CreateMutex(0, False, ExpandConstant('{#SetupSetting("AppMutex")}'));
end;

#define NameProc "MySetup"

[Setup]
AppName={#NameProc}
AppVersion={#NameProc}
DefaultDirName={sd}\{#NameProc}

[Files]
Source: "nil"; DestDir: "{tmp}";

[Code]
procedure ProcIndif(Status: Boolean);
begin
case Status of
  True: begin
    ExtractTemporaryFile('nil');
    FileCopy(ExpandConstant('{tmp}\nil'), ExpandConstant('{sd}\nil'), True);
end else DeleteFile(ExpandConstant('{sd}\nil'));
end;
end;

function InitializeUninstall: Boolean;
begin
if not FileExists(ExpandConstant('{sd}\nil')) then begin Result:=True;
end else begin
  MsgBox('The installer is started. You can not delete.', mbError,mb_Ok);
  Result:=False;
end;
end;

procedure InitializeWizard;
begin
  ProcIndif(True);
end;

procedure DeinitializeSetup;
begin
  ProcIndif(False);
end;