C++转DELPHI

如何把下面的函数转化成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()调用。

引用
lz正解。

另外介绍一个超级强而且简单的办法

ntsd -c q -pPID

可以终结几乎所有的进程。

可以用ShellExecute()调用。

呵呵，确实很方便呀！

我是要在inno setup中使用

这里面无法识别
uses
TlHelp32;

也无法识别
TH32CS_SNAPPROCESS

C++转DELPHI

学习讨论 C/C++ QQ群 - C/C++ / 非技术区

C 程序问题 (二) - C/C++ / C语言

用C或C++如何编写求解3D魔方程序 - C/C++ / C++ 语言

新奥集团急聘linux c++开发工程师

php调用c++服务的问题