Près d'exécuter la version de programme avant d'installer la mise à jour (Inno Setup)

Dans la version 5.5.0 (Publié en Mai 2012) Inno Setup ajouté le support pour le Le Gestionnaire De Redémarrage API sur Windows Vista et versions ultérieures.

Citation de MSDN liés à la documentation (l'emphase est mienne):

La principale raison de l'installation de logiciels et mises à jour nécessitent un redémarrage du système est que certains des fichiers qui sont en cours de mise à jour sont actuellement utilisés par une application en cours d'exécution ou d'un service. Gestionnaire de redémarrage permet à tous, mais les applications et les services critiques pour être arrêté et redémarré. Ceci libère les fichiers en cours d'utilisation et permet des opérations d'installation pour terminer. Il peut aussi éliminer ou de réduire le nombre de redémarrages du système qui sont nécessaires pour compléter une installation ou d'une mise à jour.

La bonne chose est que vous n'avez pas besoin d'écrire du code personnalisé dans le programme d'installation ou de votre application, pour demander à l'utilisateur de le fermer ou de le fermer automatiquement.

Si vous voulez que votre demande de redémarrer après la mise à jour est terminée, vous devez appeler le RegisterApplicationRestart fonction de votre application.

Les valeurs par défaut pour les nouvelles directives ferme tous les .exe, .dll et .chm fichiers contenus dans le [Files] section de l'installateur.

Les changements liés à la il sont là (notes de version):

• Ajouté de nouvelles [Setup] section directive: CloseApplications, qui est par défaut yes. Si la valeur est oui et le programme d'Installation ne s'exécute pas en mode silencieux, le programme d'Installation va maintenant faire une pause sur la Préparation à l'Installation de page de l'assistant si il détecte les applications à l'aide de fichiers qui doivent être mis à jour par le [Files] ou [InstallDelete] section, montrant les applications et demander à l'utilisateur si le programme d'Installation doit fermer automatiquement les applications et de les redémarrer une fois l'installation terminée. Si la valeur est oui et le programme d'Installation s'exécute en mode silencieux, le programme d'Installation va toujours fermer et redémarrer de telles applications, à moins que dit de ne pas via la ligne de commande (voir ci-dessous).
• Ajouté de nouvelles [Setup] section directive: CloseApplicationsFilter, qui est par défaut *.exe,*.dll,*.chm. Les contrôles des fichiers de Configuration va vérifier pour être en cours d'utilisation. Mettre ce paramètre à *.* peut fournir une meilleure vérification au détriment de la vitesse.
• Ajouté de nouvelles [Setup] section directive: RestartApplications, qui est par défaut yes. Remarque: pour l'Installation pour être en mesure de redémarrer une application une fois l'installation terminée, l'application a besoin d'utiliser le Windows RegisterApplicationRestart la fonction de l'API.
• Ajouté de nouveaux paramètres de ligne de commande pris en charge par le programme d'Installation: /NOCLOSEAPPLICATIONS et /NORESTARTAPPLICATIONS. Ceux-ci peuvent être utilisés pour remplacer la nouvelle CloseApplications et RestartApplications directives.
• Ajouté de nouvelles [Code] fonction support: RmSessionStarted.
• TWizardForm: Ajout de nouveaux PreparingMemo propriété.

Si vous êtes à l'aide de InnoSetup, vous pouvez regarder dans l'obtention de votre InnoSetup installer pour faire un Windows SendBroadcastMessage, et d'obtenir votre application pour écouter le message. Lorsque votre application reçoit le message, il doit s'arrêter lui-même.

Je l'ai fait moi-même avec un InnoSetup programme d'installation, et il fonctionne très bien.

Si vous êtes heureux d'écrire votre propre DLL, vous pouvez utiliser l'outil d'aide de l'API pour TlHelp32.pas de déterminer quelles applications sont en cours d'exécution, et ensuite obtenir un handle de fenêtre à l'aide de EnumWindows, puis envoyer un message WM_CLOSE à la poignée de la fenêtre.

C'est un peu de douleur, mais il devrait fonctionner:
J'ai une certaine utilité des classes wrapper que j'ai développé avec un ami d'un certain temps. Ne peut pas se souvenir si l'on se base sur quelqu'un d'autre code.

TWindows.ProcessISRunning et TWindows.StopProcess peut aider.

interface
uses
Classes,
Windows,
SysUtils,
Contnrs,
Messages;
type
TProcess = class(TObject)
public
ID: Cardinal;
Name: string;
end;
TWindow = class(TObject)
private
FProcessID: Cardinal;
FProcessName: string;
FHandle: THandle;
FProcessHandle : THandle;
function GetProcessHandle: THandle;
function GetProcessID: Cardinal;
function GetProcessName: string;
public
property Handle : THandle read FHandle;
property ProcessName : string read GetProcessName;
property ProcessID : Cardinal read GetProcessID;
property ProcessHandle : THandle read GetProcessHandle;
end;
TWindowList = class(TObjectList)
private
function GetWindow(AIndex: Integer): TWindow;
protected
public
function Add(AWindow: TWindow): Integer; reintroduce;
property Window[AIndex: Integer]: TWindow read GetWindow; default;
end;
TProcessList = class(TObjectList)
protected
function GetProcess(AIndex: Integer): TProcess;
public
function Add(AProcess: TProcess): Integer; reintroduce;
property Process[AIndex: Integer]: TProcess read GetProcess; default;
end;
TWindows = class(TObject)
protected
public
class function GetHWNDFromProcessID(ProcessID: Cardinal; BuildList: Boolean = True): THandle;
class function GetProcessList: TProcessList;
class procedure KillProcess(ProcessName: string);
class procedure StopProcess(ProcessName: string);
class function ExeIsRunning(ExeName: string): Boolean;
class function ProcessIsRunning(PID: Cardinal): Boolean;
end;
implementation
uses
Forms,
Math,
PSAPI,
TlHelp32;
const
cRSPUNREGISTERSERVICE = 0;
cRSPSIMPLESERVICE = 1;
type
TProcessToHWND = class(TObject)
public
ProcessID: Cardinal;
HWND: Cardinal;
end;
function RegisterServiceProcess(dwProcessID, dwType: DWord): DWord; stdcall; external 'KERNEL32.DLL';
function GetDiskFreeSpaceEx(lpDirectoryName: PChar;
var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: TLargeInteger;
lpTotalNumberOfFreeBytes: PLargeInteger): Boolean; stdcall;external 'KERNEL32.DLL' name 'GetDiskFreeSpaceExA'
var
GProcessToHWNDList: TObjectList = nil;
function EnumerateWindowsProc(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
var
proc: TProcessToHWND;
begin
if Assigned(GProcessToHWNDList) then
begin
proc := TProcessToHWND.Create;
proc.HWND := hwnd;
GetWindowThreadProcessID(hwnd, proc.ProcessID);
GProcessToHWNDList.Add(proc);
Result := True;
end
else
Result := False; //stop enumeration
end;
{ TWindows }
class function TWindows.ExeIsRunning(ExeName: string): Boolean;
var
processList: TProcessList;
i: Integer;
begin
Result := False;
processList := GetProcessList;
try
for i := 0 to processList.Count - 1 do
begin
if (UpperCase(ExeName) = UpperCase(processList[i].Name)) or
(UpperCase(ExeName) = UpperCase(ExtractFileName(processList[i].Name))) then
begin
Result := True;
Break;
end;
end;
finally
processList.Free;
end;
end;
class function TWindows.GetHWNDFromProcessID(
ProcessID: Cardinal; BuildList: Boolean): THandle;
var
i: Integer;
begin
Result := 0;
if BuildList or (not Assigned(GProcessToHWNDList)) then
begin
GProcessToHWNDList.Free;
GProcessToHWNDList := TObjectList.Create;
EnumWindows(@EnumerateWindowsProc, 0);
end;
for i := 0 to GProcessToHWNDList.Count - 1 do
begin
if TProcessToHWND(GProcessToHWNDList[i]).ProcessID = ProcessID then
begin
Result := TProcessToHWND(GProcessToHWNDList[i]).HWND;
Break;
end;
end;
end;
class function TWindows.GetProcessList: TProcessList;
var
handle: THandle;
pe: TProcessEntry32;
process: TProcess;
begin
Result := TProcessList.Create;
handle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
pe.dwSize := Sizeof(pe);
if Process32First(handle, pe) then
begin
while True do
begin
process := TProcess.Create;
process.Name := pe.szExeFile;
process.ID := pe.th32ProcessID;
Result.Add(process);
if not Process32Next(handle, pe) then
Break;
end;
end;
CloseHandle(handle);
end;
function EnumWindowsProc(Ahwnd : HWND;      //handle to parent window
ALParam : Integer) : BOOL;stdcall;
var
List : TWindowList;
Wnd : TWindow;
begin
Result := True;
List := TWindowList(ALParam);
Wnd := TWindow.Create;
List.Add(Wnd);
Wnd.FHandle := Ahwnd;
end;
class procedure TWindows.KillProcess(ProcessName: string);
var
handle: THandle;
pe: TProcessEntry32;
begin
//Warning: will kill all process with ProcessName
//NB won't work on NT 4 as Tool Help API is not supported on NT
handle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
try
pe.dwSize := Sizeof(pe);
if Process32First(handle, pe) then
begin
while True do begin
if (UpperCase(ExtractFileName(pe.szExeFile)) = UpperCase(ExtractFileName(ProcessName))) or
(UpperCase(pe.szExeFile) = UpperCase(ProcessName)) then
begin
if not TerminateProcess(OpenProcess(PROCESS_TERMINATE, False,
pe.th32ProcessID), 0) then
begin
raise Exception.Create('Unable to stop process ' + ProcessName + ': Error Code ' + IntToStr(GetLastError));
end;
end;
if not Process32Next(handle, pe) then
Break;
end;
end;
finally
CloseHandle(handle);
end;
end;
class function TWindows.ProcessIsRunning(PID: Cardinal): Boolean;
var
processList: TProcessList;
i: Integer;
begin
Result := False;
processList := GetProcessList;
try
for i := 0 to processList.Count - 1 do
begin
if processList[i].ID = PID then
begin
Result := True;
Break;
end;
end;
finally
processList.Free;
end;
end;
class procedure TWindows.StopProcess(ProcessName: string);
var
processList: TProcessList;
i: Integer;
hwnd: THandle;
begin
//Warning: will attempt to stop all process with ProcessName
if not Assigned(GProcessToHWNDList) then
GProcessToHWNDList := TObjectList.Create
else
GProcessToHWNDList.Clear;
//get list of all current processes
processList := GetProcessList;
//enumerate windows only once to determine the window handle for the processes
if EnumWindows(@EnumerateWindowsProc, 0) then
begin
for i := 0 to processList.Count - 1 do
begin
if UpperCase(ExtractFileName(processList[i].Name)) = UpperCase(ExtractFileName(ProcessName)) then
begin
hwnd := GetHWNDFromProcessID(processList[i].ID, False);
SendMessage(hwnd, WM_CLOSE, 0, 0);
end;
end;
end;
end;
{ TProcessList }
function TProcessList.Add(AProcess: TProcess): Integer;
begin
Result := inherited Add(AProcess);
end;
function TProcessList.GetProcess(AIndex: Integer): TProcess;
begin
Result := TProcess(Items[AIndex]);
end;
{ TWindowList }
function TWindowList.Add(AWindow: TWindow): Integer;
begin
Result := inherited Add(AWindow);
end;
function TWindowList.GetWindow(AIndex: Integer): TWindow;
begin
Result := TWindow(Items[AIndex]);
end;
{ TWindow }
function TWindow.GetProcessHandle: THandle;
begin
if FProcessHandle = 0 then
FProcessHandle := OpenProcess(Windows.SYNCHRONIZE or Windows.PROCESS_TERMINATE,
True, FProcessID);
Result := FProcessHandle;
end;
function TWindow.GetProcessID: Cardinal;
var
Pid : Cardinal;
begin
if FProcessID = 0 then
begin
Pid := 1;
GetWindowThreadProcessId(Handle, Pid);
FProcessID := Pid;
end;
Result := FProcessID;
end;
function TWindow.GetProcessName: string;
var
Buffer : packed array [1..1024] of char;
len : LongWord;
begin
FillChar(Buffer, SizeOf(Buffer), 0);
if FProcessName = '' then
begin
len := GetWindowModuleFileName(Handle, @Buffer[1], 1023);
FProcessName := Copy(Buffer, 1, Len);
end;
Result := FProcessName;
end;
end.

InnoSetup vous permet de fixer Pascal scripts à divers endroits dans le processus de construction. Essayez de fixer un script qui appelle ShellExecute. (Que vous pouvez importer le moteur de script si elle ne l'est pas déjà.)