文件名称：Delphi Kill task
文件大小：163KB
文件格式：RAR
更新时间：2013-06-15 16:26:59
Delphi kil杀windows进程
杀windows进程 FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while Integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := Integer(TerminateProcess( OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0)); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
【文件预览】：
KillTask
----Project1.dof(2KB)
----Unit1.dcu(4KB)
----Project1.exe(364KB)
----Unit1.dfm(637B)
----Project1.cfg(434B)
----Project1.dpr(190B)
----Unit1.pas(2KB)
----Project1.res(876B)
----新增文字文件.txt(0B)