EXE EN COURS D'EXECUTION [Résolu]

Messages postés
7
Date d'inscription
lundi 15 février 2010
Dernière intervention
15 juillet 2015
- - Dernière réponse : Whismeril
Messages postés
12933
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
23 mars 2019
- 8 mars 2014 à 07:13
Bonjour,

Je souhaite savoir si un exe est en cours d'exécution lors de la désinstallation avec INNOSETUP. Existe-t-il une fonction en delphi 7.
Par avance merci
Cordialement
Afficher la suite 

Votre réponse

1 réponse

Messages postés
4307
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
33
0
Merci
function IsAppRunning(const FileName : string): Boolean;
var
FSWbemLocator: Variant;
FWMIService : Variant;
FWbemObjectSet: Variant;
begin
Result := false;
FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator');
FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', '');
FWbemObjectSet := FWMIService.ExecQuery(Format('SELECT Name FROM Win32_Process Where Name="%s"',[FileName]));
Result := (FWbemObjectSet.Count > 0);
FWbemObjectSet := Unassigned;
FWMIService := Unassigned;
FSWbemLocator := Unassigned;
end;

Ensuite il suffit de regarder l'aide InnoSetup pour l'execution de fonction, tu devra surement faire une DLL (de mémoire)
Whismeril
Messages postés
12933
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
23 mars 2019
350 -
Bonjour, ce message constitue une réponse et non un commentaire. Je me suis permis de le déplacer.
Commenter la réponse de f0xi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.