在FOXPRO中结束当前进程的方法

阿杰

1. Local procId,lhx
   
2. Declare Integer GetCurrentProcessId In kernel32.Dll
   
3. Declare Integer OpenProcess In kernel32.Dll;
   
4. integer,Integer,Integer
   
5. Declare Integer TerminateProcess In kernel32.Dll;
   
6. integer hProcess,Integer exitCode
   
7. Declare Integer CloseHandle In kernel32.Dll;
   
8. integer
   
9. procId=GetCurrentProcessId()&&获得当前进程的PID
   
10. Messagebox(procId)
    
11. lhx=OpenProcess(2035711,1,procId)&&提升操作当前进程的权限
    
12. Messagebox(lhx)
    
13. If lhx<>0&&如果提升权限成功
    
14. =TerminateProcess(lhx,0)&&结束当前进程
    
15. =CloseHandle(lhx)&&销毁事件对像
    
16. EndifClear Dlls**这样在调试的时候可以直接退出VFP

复制代码

xmlpull

{:soso_e176:}看看。！

wzx740120

学习了。