delphi 中关闭进程
来源:互联网 发布:淘宝网站外推广 编辑:程序博客网 时间:2024/05/21 11:28
delphi 中关闭进程。代码如下
需要引用单元 TlHelp32
function KillTask(ExeFileName: string): boolean;
constPROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
res:Integer;
begin
Result :=false;
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
res := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
if res<>0 then Result :=True;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);//当前进程列表中所有的快照
end;
CloseHandle(FSnapshotHandle);
end;
- delphi 中关闭进程
- DELPHI关闭进程
- delphi 关闭进程方法
- DELPHI 关闭进程
- Delphi关闭进程
- DELPHI根据进程名强制关闭进程
- delphi中结束进程
- 转:delphi中结束进程
- Delphi中直接关闭子窗体
- 很强的用DELPHI关闭进程代码
- DELPHI实现关闭指定进程,自身防杀
- Delphi中强制结束一个进程
- delphi中对于进程的操作
- Delphi中Hook API进行进程保护
- DELPHI 中如何提升进程令牌
- 在Delphi中隐藏程序进程
- Delphi中强制结束一个进程
- Delphi中强制结束一个进程
- div里面的ul居左对齐
- eclipse 3个地方部署tomcat
- Starting MySQL… ERROR! The server quit without updating PID file
- 【discuzx2】button标签是双闭合标签
- LeetCode题解:Binary Tree Level Order Traversal I and II
- delphi 中关闭进程
- 如何高效利用GitHub
- ubuntu12.04LTS 用到了的命令【持续更新【20131104】
- 简单实用方便的ajax评论完整代码
- I2C设备驱动编写
- UI的旋转
- discuz子导航下面的版块只有图标没有标题,什么原因?
- 索引
- 上下滑屏调节声音、亮度