EXE EN COURS D'EXECUTION
Résolu
CTI13
Messages postés
6
Date d'inscription
lundi 15 février 2010
Statut
Membre
Dernière intervention
15 juillet 2015
-
7 mars 2014 à 15:41
Whismeril Messages postés 19034 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 2 mai 2024 - 8 mars 2014 à 07:13
Whismeril Messages postés 19034 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 2 mai 2024 - 8 mars 2014 à 07:13
A voir également:
- Select * from win32_process where name
- Decompiler un exe ✓ - Forum C / C++ / C++.NET
- Erreur d'execution 9 ✓ - Forum Visual Basic 6
- Erreur d'exécution '9' : l'indice n'appartient pas à la sélection ✓ - Forum Visual Basic 6
- Erreur d'exécution 9 ✓ - Forum Visual Basic 6
- Erreur d'exécution 424 ✓ - Forum Visual Basic
1 réponse
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
35
8 mars 2014 à 02:46
8 mars 2014 à 02:46
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)
8 mars 2014 à 07:13