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

[nizcoz]

I want to the uninstall fails when the program is running. I see the AppMutex function.

In this page: http://www.jrsoftware.org/ishelp/index.php?topic=setup_appmutex I see that the code CreateMutex(NULL, FALSE, "MyProgramsMutexName"); should be executed during your application's startup, but where do I put this?

 

[Nemko]

nizcoz

Спойлер: Exp Install

#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;

 

[nizcoz]

@Nemko How to modify this to avoid that the uninstaller runs when the program is running?

 

[Nemko]

In theory, like that, but the problem is that unins000.dat can be read once and an error is displayed (unins000.dat the file is being occupied by another program). Sorry, I do not know how to get around this mistake.

Спойлер: theory

#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;

 

[nizcoz]

I am trying to use this:

http://www.vincenzo.net/isxkb/index.php?title=PSVince

http://www.vincenzo.net/isxkb/index.php?title=Call_psvince.dll_on_install_and_uninstall

Is it possible to modify this to work on windows 7?

 

[Nemko]

Sorry, i misunderstood you, so here's the "crutch". "nil" file - empty file, any ..

Спойлер: crutch

#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;

I am trying to use this:

http://www.vincenzo.net/isxkb/index.php?title=PSVince

http://www.vincenzo.net/isxkb/index.php?title=Call_psvince.dll_on_install_and_uninstall

Is it possible to modify this to work on windows 7?

Ammm... Try it, it can work out.

 

[Ramiro Cruzo]

nizcoz, Why do you want mutex? You can simply try to create a file stream with Share none property, if it's successfully created, that means the program is not running, if not, then program is running and cancel wizard

 

[nizcoz]

@Ramiro Cruzo Do you mean the previous example? (@Nemko) . Could you give me an example?