请问Delphi中如何获得Windows任务管理器中的应用程序任务数 请问Delphi中如何获得Windows任务管理器中的应用程序任务数 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function KillTask(ExeFileName: string): Integer;const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin Result := 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while Integer(ContinueLoop) <> 0 do begin //showmessage(ExtractFileName(FProcessEntry32.szExeFile)+#1310+FProcessEntry32.szExeFile); 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); end; CloseHandle(FSnapshotHandle);end; 人民币200元,求读取TWebbrowser中带HTTPONLY属性的Cookie 如何判断字符串中有空格? Delphi发送消息lParm参数值在VC窗口中不一样. 不说再见。——致ari 关于dbcombobox的问题 在DELPHI写的程序中如何按回车键跳到下一个控件文本框中进行输入? 怎样判断一个数据库(ACCESS)里的某一个数据表是否存在?急!! 数据库的备份 wininet httpsendrequestex 同一request 为什么都是新连接 送100分,谁能帮我把这个文件下载下来? 一个新手的简单问题 请问Delphi中如何获得Windows任务管理器中的应用程序任务数
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
//showmessage(ExtractFileName(FProcessEntry32.szExeFile)+#1310+FProcessEntry32.szExeFile);
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);
end;
CloseHandle(FSnapshotHandle);
end;