如何把下面的函数转化成delphi
BOOL CloseProcess(CString strProcessName)
{
HANDLE Snapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
PROCESSENTRY32 pe32;
pe32.dwSize = sizeof( PROCESSENTRY32 );
BOOL bWork = Process32First(Snapshot, &pe32);
while (bWork)
{
CString strFile = pe32.szExeFile;
if (strFile == strProcessName)
{
HANDLE hProcess = OpenProcess(PROCESS_ALL_ACCESS,NULL,pe32.th32ProcessID);
DWORD dwExitCode = 0;
GetExitCodeProcess(hProcess,&dwExitCode);
TerminateProcess(hProcess,dwExitCode);
CloseHandle(hProcess);
break;
}
bWork = Process32Next(Snapshot, &pe32);
}
CloseHandle(Snapshot);
return TRUE;
}
为了多条裤衩，up
lz正解。
另外介绍一个超级强而且简单的办法
ntsd -c q -pPID
可以终结几乎所有的进程。
可以用ShellExecute()调用。
呵呵，确实很方便呀！
我是要在inno setup中使用
这里面无法识别
uses
TlHelp32;
也无法识别
TH32CS_SNAPPROCESS
