>On Lutz Scheffer pointing this is a simple code how to use the ed Rauh process class
>

>*using ED RAUH api_run class
>*can download the zip from UT at :
> https://www.levelextreme.com/Report.aspx?Report=11&Numero=9477
>
> 
>
>oo=Newobject("api_apprun","process.vcx")
>
>With oo
>	.icCommandline="notepad.exe"
>	.icLaunchDir=Addbs(Justpath(Sys(16,1)))
>	.icWindowMode=''
>	.launchApp()
>
>	Inkey(2)  &&wait 2sec
>	If Messagebox("Want to terminate "+.icCommandline +" ?",4+64+4096)=6
>		.killProc(.icCommandline)
>		If  !Empty(.icErrorMessage)
>			Messagebox("ErrorMessage="+.icErrorMessage)
>		Endi
>	Endi
>
>	Messagebox( .icCommandline+"terminated with return code="+Trans(.checkprocessexitcode()))
>Endwith
>

>
>can also use the class browser and convert it as prg and use : set procedure to api_apprun additive....
>
>to terminate any running process (and return an exitcode) can also use this scripting methods:
>
>

>run/n notepad
>run/n notepad
>inke(1)
>
>LOCAL loWMI, lcQuery, loResult, loProcess
>loWMI = GetObject("winmgmts://")
>lcQuery= "select * from win32_process where name='notepad.exe'"  &&here the exe name application to kill
>loResult = loWMI.ExecQuery(lcQuery)
>local x
>FOR EACH loProcess IN loResult
>	x=loProcess.Terminate(0)
>messagebox("exitcode="+trans(x),0+32+4096,'',1000)
>NEXT
>

Yousfi,

If you execute your code and if you click on the closebox(cross) you will get an error: "OLE lDispatch exception code" etc
Anyway to code around this?

Regards,
Koen