title image


Smiley Die einfachste Sache mit der API !!!
Hallo !Hier sind zwei API-Funktionen für diesen Fall !Public Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPublic Declare Function GetExitCodeProcess Lib "kernel32" Alias "GetExitCodeProcess" (ByVal hProcess As Long, lpExitCode As Long) As LongDim SHELL_ID As LongDim PROCESS_ID As LongDim retVal As LongConst STILL_ACTIVE = &H103Const fdwAccess = &H100000Mit SHELL_ID = Shell("C:\Windows\Calc.exe",vbNormalNoFocus)PROCESS_ID = OpenProcess(fdwAccess, True, SHELL_ID)Dein Programm starten.Zum Überprüfen die folgende Schleife verwenden:DoCall GetExitCodeProcess(PROCESS_ID, retVal)DoEventsLoop While retVal = STILL_ACTIVEWenn Du hier landest, dann ist Dein aufgerufenes Programm beendet worden !_Andreas

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: