用OpenProcess、GetExitCodeProcess和TerminateProcess关闭进程

如果需要结束其他进程的执行，可以使用TerminateProcess函数。

BOOL TermintaeProcess(HANDLE hProcess,UINT uExitCode );

hProcess是要结束的目标进程的句柄，uExitCode指定目标进程的退出代码，可以使用GetExitCodeProcess取得一个进程的退出代码。

?

对于一个已经存在的进程，只能使用OpenProcess函数来取得这个进程的访问权限。

HANDLE OpenProcess(DWORD dwDesiredAccess,BOOL bInheritHandle,DWORD dwProcessId );

dwDesiredAccess参数指定了对该进程的访问权限，这些权限可以是：PROCESS_ALL_ACCESS即所有可进行的权限；PROCESS_QUERY_INFORMATION即查看该进程信息的权限；还有很多。bInheritHandle参数指定此函数返回的句柄是否可以被继承。dwProcessId参数指定了要打开进程的ID号，可以从任务管理器中找到它们，也可以使用ToolHelp函数获取。

?

我用VB写的shellCmd类：

?
我用VB写的调用这个类的函数：
'shellCmd在ASP中调用CMD.EXE执行DOS下的EXE程序'cmdStr为由CMD.exe及DOS下的EXE文件名路径名组成的字符串'返回值为执行EXE所用的秒数Public Function myShell(cmdStr) As Single    Dim start, b, PID, ret, useTime, hProcess    Set myshellclass = New shellCmd    startTime = GetTickCount()    useTime = 0    PID = Shell(cmdStr, vbHide)     'vbNormalFocus显示窗口    Do While myshellclass.IsRunning(PID) And useTime < 3000        useTime = GetTickCount() - startTime        DoEvents    Loop    Call myshellclass.CloseProcess(PID) '若该进程在运行则关闭它    myShell = GetTickCount() - startTimeEnd Function
?