Description: 可以SeDebugPrivilege用户权限用打开系统的进程-SeDebugPrivilege user permissions can be used to open the process of system Platform: |
Size: 1024 |
Author:jking |
Hits:
Description: 获取所有进程路径,查看进程属性,描述,结束进程-procedure TProcessDelForm.EndProcessBtnClick(Sender: TObject)
var
Li: TListItem
Ls:TStrings
P: PPluginsItemInfo
ID,i:Integer
begin
Ls:=TStringlist.Create
EnablePrivilege(GetCurrentProcess, SeDebugPrivilege , True)
for i:=0 to ProListView.Items.Count-1 do
begin
Li:=ProListView.Items[i]
if Li <> nil then
begin
P:= PPluginsItemInfo(Li.Data)
if P^.CheckState= NODESTATE_CHECKED then
begin
Ls.Add(P^.PID)
end
end
end
for i:=0 to Ls.Count-1 do
begin
try
ID:=Strtoint(Ls.Strings[i])
KillProc(ID)
sleep(200)
CloseProcess(ID)
finally
end
end
FPEdit.Text:=
DesEdit.Text:=
ComEdit.Text:=
Ls.Free
end Platform: |
Size: 109568 |
Author:李庆 |
Hits:
Description: 可以SeDebugPrivilege用户权限用打开系统的进程-SeDebugPrivilege user permissions can be used to open the process of system Platform: |
Size: 1024 |
Author:haoa856i824 |
Hits: