如何删除一个进程

[liuxing2004]

我写了一个程序，此程序有时不能正常退出，即屏幕上已经没了，但在task manager中还可以看到。因此，我想通过FindWindow查找此进程的主窗口，如果此窗口是隐藏的，则说明此进程没有正常退出。因此我想把此进程删掉，但我只知道此进程的主窗口的句柄，而无法得到此进程的id，请问如何才能得到。用PSAPI可以，但我想问问有没有更简单的方法。
解决立即送分。

[Pipi0714]

估计你的程序有非法操作了。

[madhappy]

删除进程不是解决的办法阿

一定是你的程序有问题了

检查一下内存泄漏等，NEW的东东是不是都DELETE了

[liuxing2004]

此程序是用VB写的，也不是每次都会出现不能正常退出。

[csdnzhu]

/*
ｺｯ ﾊ ﾃ・FindProcessHandleAndKill
ｺｯﾊｹｦﾄﾜ:ｸﾝｴｰｿﾚﾃ軏鰈ﾒｵｽｴｰｿﾚﾋﾄｽﾌ,ｲ｢ﾇﾒｰﾑﾕ篋ﾌﾉｱﾋﾀ
ｰ・ｱｾ ｺﾅ:1.0
ﾍ・ﾉﾈﾕﾆﾚ:2004/03/05
ｷｵ ｻﾘ ﾖｵ:ｳﾉｹｦｷｵｻﾘTRUE,ｷｧｰﾜｷｵｻﾘFALSE
ｲﾎ ﾊ 1:ﾒﾔﾗﾖｷ逸ｮｱ桄ｾｵﾄｴｰｿﾚｵﾄﾃ﨤ﾆ
ﾆ萢・ｵﾃ・
ﾓｦﾓﾃﾊｾﾀ:
BOOL ret=FindProcessHandleAndKill("1");//ｲ鰈ﾒｴｰｿﾚｱ・簧ｪ1ｵﾄｴｰｿﾚ
*/

BOOL FindProcessHandleAndKill(const CString &cs_WndName)
{
HWND hWnd;
DWORD ProcessID;
HANDLE hProcess;

hWnd=::FindWindow(NULL, cs_WndName);
if(hWnd==NULL)//ﾃｻﾓﾐﾕﾒｵｽｴｰｿﾚ
{
return FALSE;
}
else
{
if(GetWindowThreadProcessId(hWnd, &ProcessID)==0)//ﾊｧｰﾜ
{
return FALSE;
}
else
{
hProcess=OpenProcess(PROCESS_ALL_ACCESS,FALSE,ProcessID);
if(hProcess==NULL)
{
return FALSE;
}
else
{
if(TerminateProcess(hProcess, 0))
{
return TRUE;
}
else
{
return FALSE;
}
}
}
}

}

[csdnzhu]

/*
ｺｯ ﾊ ﾃ・FindProcessHandleAndKillInSnapShot
ｺｯﾊｹｦﾄﾜ:ﾔﾚｽﾌｵﾄﾄﾚｴ貔ｵﾏﾐﾕﾒｵｽﾖｸｶｨｵﾄｳﾌﾐﾌｲ｢ﾇﾒｰﾑﾋ・ｱﾋﾀ
ｰ・ｱｾ ｺﾅ:1.0
ﾍ・ﾉﾈﾕﾆﾚ:2004/03/05
ｷｵ ｻﾘ ﾖｵ:ｳﾉｹｦｷｵｻﾘTRUE,ｷｧｰﾜｷｵｻﾘFALSE
ｲﾎ ﾊ 1:ﾒﾔﾗﾖｷ逸ｮｱ桄ｾｵﾄｳﾌﾐ・ﾈ・winword.exe"
ﾆ萢・ｵﾃ・ﾈ郢鉷ｬﾒｻｸﾌﾐﾐｶ犧ｵﾀﾔﾚﾔﾋﾐﾐ｣ｬﾄﾇﾃｴｽｫﾖｻﾉｱﾋﾀﾒｻｸ・ﾗ｢ﾒ箏ﾄﾊﾇﾕ篋ｯﾊﾖｻﾊﾊﾓﾃﾓﾚWin2000ﾏｵﾍｳ｣ｬﾒｪWin98ﾏﾂｽﾌﾃ釗ｹﾓﾐﾂｷｾｶ
ﾓｦﾓﾃﾊｾﾀ:
FindProcessHandleAndKillInSnapShot("winword.exe");
*/
BOOL FindProcessHandleAndKillInSnapShot(const CString &cs_sExeName)
{
PROCESSENTRY32 pe;
pe.dwSize=sizeof(PROCESSENTRY32);
HANDLE hProcess=NULL;
HANDLE hSnapShot;
hSnapShot=::CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if(hSnapShot==NULL)
{
return FALSE;//cannot get the snapshot handle
}

::Process32First(hSnapShot, &pe);

do//find the assign process name
{
CString str;
str=pe.szExeFile;
if(str.CompareNoCase(cs_sExeName)==0)
{
hProcess = ::OpenProcess(PROCESS_TERMINATE, FALSE,pe.th32ProcessID);
break;
}
}while (::Process32Next(hSnapShot, &pe));

if(hProcess==NULL)
{
//return FALSE;
}
if(::WaitForSingleObject(hProcess, 10000)!= WAIT_OBJECT_0)
{
::TerminateProcess(hProcess,0);//kill process
}

::CloseHandle(hProcess);
::CloseHandle(hSnapShot);
Sleep(5*SLEEP_TIME);
return TRUE;
}

[liuxing2004]

谢谢：csdnzhu(我什么也不会)
应该这样就可以。