MZP@ !L!This program must be run under Microsoft Windows. $NE @PP q 00h0H0P0 d/0@0processLIBENTRYWEP˸ Borland Standard File@|~@ cFormUIManagerUIContainerUIObjectPageFormObjButtonText f&open+close+canArrive2arrive2setFocus+canDepart2removeFocus+depart2mouseEnter,mouseExit,mouseMove,mouseDown,mouseUp,mouseDouble,mouseRightDown,mouseRightUp,mouseRightDouble,keyPhysical-keyChar-action.menuAction/timer4pushButton+changeValue0calcField+run+newValue+proc+error3status1mouseClick,init+stringListChange+UsesTypeVarConstProcfEP  CUo ]Tn *3?.4Cd:\w\Corel\WordPerfect Office 2000\Paradox\PDOXHome\DEFAULT.FTB#Formdata1POST> ETn  6P  *02< J RemplString10 UE$ method pushButton(var eventInfo Event) ; Michel Claveau Informatique var oa oleauto str,sret string endvar if not oa.open("Ponx.Mci") then errorshow() return endif str="def wprocess(lstSuppr=[]): import win32com,win32com.client"+" WMIService =win32com.client.GetObject(r'winmgmts:{impersonationLevel=impersonate}!//.\\root\\cimv2') listProcess = WMIService.ExecQuery('Select * from Win32_Process') for item in listProcess:"+" vifi('') vifi('Nom :'+str(item.Name)) vifi('Ligne de commande :'+str(item.CommandLine)) vifi('Descriptif :'+str(item.Description)) vifi('Path d excution :'+str(item.ExecutablePath))"+" vifi('Statut :'+str(item.Status)) vifi('Pririt :'+str(item.Priority)) vifi('Caption :'+str(item.Caption))"+" vifi('IdProcess :'+str(item.ProcessId)) vifi('IdProcess Parent :'+str(item.ParentProcessId))"+" if item.name in lstSuppr: try: item.Terminate() except: pass"+" wprocess(['notepad.exe','WINWORD.EXE'])" ; entre parenthses, les process supprimer. sret=oa.PRun(str) msginfo("Retourn par PONX",sret) oa.close() endMethod pushButton+0 U" :02< !J   ! 02<   Infos sur les Process windows  @-t"Arial Narrownsed22@"Arial Narrownsed22pV0dN) CONTAINERd\bACTIVE>LASTMOUSECLICKED\SUBJECTbZLASTMOUSERIGHTCLICKED<0(SELFZ #FORMDATA1?[#PAGE2  REMPLSTRING1\(" N#TEXTE33C!\\ PUSHBUTTON METHOD_SELF EVENTINFOE1Z METHOD_SELF  EVENTINFOOASTRPSRETlr>r lp7Sr" + "#$%  "t i"DD&83",'A," "P%(%(%( %((%(D%(*""lDP- *t#"`lMA$"DD%" D,8DPl +    u`LDG(B =83.)$ 0Ponx.Mci?def wprocess(lstSuppr=[]): import win32com,win32com.client WMIService =win32com.client.GetObject(r'winmgmts:{impersonationLevel=impersonate}!//.\root\cimv2') listProcess = WMIService.ExecQuery('Select * from Win32_Process') for item in listProcess: vifi('') vifi('Nom :'+str(item.Name)) vifi('Ligne de commande :'+str(item.CommandLine)) vifi('Descriptif :'+str(item.Description)) vifi('Path d excution :'+str(item.ExecutablePath)) vifi('Statut :'+str(item.Status)) vifi('Pririt :'+str(item.Priority)) vifi('Caption :'+str(item.Caption))x vifi('IdProcess :'+str(item.ProcessId)) vifi('IdProcess Parent :'+str(item.ParentProcessId)) if item.name in lstSuppr: try: item.Terminate() except: pass- wprocess(['notepad.exe','WINWORD.EXE'])PRUNRetourn par PONX