Ouvrir un programme externe et le fermer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 55 365 fois - Téléchargée 96 fois


Contenu du snippet

Comment puis-je ouvrir un programme externe puis le fermer ?

Mettez ce code dans un Module :

Source / Exemple :


Public hProcess, nRet, Retour as Long
Const PROCESS_QUERY_INFORMATION = &H400

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

' Pour lancer le programme :

Retour = shell("LeProg.exe",1)

' Pour Fermer le programme :

hProcess = OpenProcess(fdwAccess, False, Retour)
GetExitCodeProcess hProcess, nRet
Call TerminateProcess(hProcess, nRet)
Call CloseHandle(hProcess)

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Jean-Luc

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.