Delphi 杀进程(包括系统进程)


本文整理自网络,侵删。

 uses TLHelp32;
{$R *.dfm}
const
KILL_ERR=0;
KILL_NOTSUPPORTED=-1;
KILL_ERR_OPENPROCESS=-2;
KILL_ERR_TERMINATEPROCESS=-3;

ENUM_NOERR=0;
ENUM_NOTSUPPORTED=-1;
ENUM_ERR_OPENPROCESSTOKEN=-2;
ENUM_ERR_LookupPrivilegeValue=-3;
ENUM_ERR_AdjustTokenPrivileges=-4;

SE_DEBUG_NAME='SeDebugPrivilege';

function EnableDebugPrivilegeNT:integer;
var
hToken:THANDLE;
DebugValue:TLargeInteger;
tkp:TTokenPrivileges ;
ReturnLength:DWORD;
PreviousState:TTokenPrivileges;
begin
if (OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken)=false) then
result:=ENUM_ERR_OPENPROCESSTOKEN
else
begin
if (LookupPrivilegeValue(nil,SE_DEBUG_NAME,DebugValue)=false) then
result:=ENUM_ERR_LookupPrivilegeValue
else
begin
ReturnLength:=0;
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Luid:=DebugValue;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken,false,tkp,SizeOf(TTokenPrivileges),PreviousState,ReturnLength);
if (GetLastError <> ERROR_SUCCESS) then
result:=ENUM_ERR_AdjustTokenPrivileges
else
result:=ENUM_NOERR;
end;
end;
end;

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
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;

procedure TForm1.Button1Click(Sender: TObject);
var
TemStr:String;
begin
EnableDebugPrivilegeNT();

TemStr:='QQ.EXE';

if TemStr<>'' then
begin
if KillTask(TemStr)=KILL_ERR then
messagebox(0,'Fail!','kill',0)
else
messagebox(0,'Success!','kill',0);
end;
end;

相关阅读 >>

Delphi fmx 安卓跳转到支付宝付款页面

Delphi 删除整个目录

Delphi 删除memo某一行

Delphi twebbrowser 屏蔽右键菜单

Delphi 动态创建组件,单个创建、单个销毁

Delphi自动以管理员身份在vista 和 windows7 下运行程序

Delphi 捕捉全局异常错误的方法

Delphi button 实现下拉列表

为什么编程是独一无二的职业

Delphi中关闭“返回值…可能未定义”的警告

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...