阿杰 发表于 2011-12-21 08:29:52

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

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

xmlpull 发表于 2011-12-21 13:31:58

{:soso_e176:}看看。！

wzx740120 发表于 2013-5-28 20:16:20

学习了。
页: [1]
查看完整版本: 在FOXPRO中结束当前进程的方法