Discussion :

[CocoNuts974]

Bonjour,

je recherche la bonne solution afin de mettre fin à monficher.exe en cours d'utilisation et sans message d'information pour pouvoir installer une nouvelle version de mon programme sans être obligé de désinstaller l'ancienne version installée


[Files]
Source: {App}\monficher.exe; DestDir: {app}; BeforeInstall: TaskKill('monficher.exe')

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TaskKill(FileName: String);
var
  ResultCode: Integer;
begin
    Exec(ExpandConstant('taskkill.exe'), '/f /im ' + '"' + FileName + '"', '', SW_HIDE,
     ewWaitUntilTerminated, ResultCode);
end;

Merci

CocoNuts974

[Andnotor]

Je le ferais dans CurStepChanged lorsque CurStep vaut ssInstall.

[pprem]

je recherche la bonne solution afin de mettre fin à monficher.exe en cours d'utilisation et sans message d'information

C'est pas faute de gueuler à longueur d'année contre Microsoft et ses mises à jour "transparentes" qui rebootaient Windows alors qu'on faisait quelque chose...

On ne ferme pas un programme sans l'accord de l'utilisateur. Telle est la voie !

[CocoNuts974]

Merci bien pour votre aide, voici les codes utilisés qui fonctionnent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure CurStepChanged(CurStep: TSetupStep);
var
  ResultCode: Integer;
  Uninstall: String;
  begin
  if (CurStep = ssInstall) then begin
    if RegQueryStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\Signal Phone_is1', 'UninstallString', Uninstall) then begin
      MsgBox('Warning: an old version of YourApp is installed! Now the old one will be removed and installed the new!', mbInformation, MB_OK);
      Exec(RemoveQuotes(Uninstall), ' /SILENT', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
    end;
  end;
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
function InitializeSetup(): Boolean;
var
  ErrorCode: Integer;  
  begin        
        ShellExec('open',
          'taskkill.exe',
          '/f /im signal.exe','',SW_HIDE,ewNoWait,ErrorCode);
 
        ShellExec('open',
          'tskill.exe',
          'signal','',SW_HIDE,ewNoWait,ErrorCode);
        result := True;
  end;