ProID
所属分类:Pascal/Delphi编程
开发工具:Delphi
文件大小:107KB
下载次数:32
上传日期:2011-11-28 11:56:54
上 传 者:
麦秆
说明: 获取所有进程路径,查看进程属性,描述,结束进程
(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 )
文件列表:
进程模块\DllUnit.dcu (2332, 2011-04-07)
进程模块\DllUnit.pas (2148, 2011-04-07)
进程模块\DllUnit.~pas (1411, 2011-04-07)
进程模块\FKFAP.sys (13760, 2009-04-21)
进程模块\ProcessDelUnit.dcu (21779, 2011-04-07)
进程模块\ProcessDelUnit.ddp (51, 2011-04-07)
进程模块\ProcessDelUnit.dfm (53882, 2011-04-07)
进程模块\ProcessDelUnit.pas (19816, 2011-04-07)
进程模块\ProcessDelUnit.~ddp (51, 2011-04-07)
进程模块\ProcessDelUnit.~dfm (53876, 2011-04-07)
进程模块\ProcessDelUnit.~pas (19777, 2011-04-07)
进程模块\ProcessUnit.dcu (21718, 2011-04-07)
进程模块\ProcessUnit.ddp (51, 2011-04-07)
进程模块\ProcessUnit.dfm (53876, 2011-04-07)
进程模块\ProcessUnit.pas (19774, 2011-04-07)
进程模块\ProcessUnit.~ddp (51, 2011-04-07)
进程模块\ProcessUnit.~dfm (53876, 2011-04-07)
进程模块\ProcessUnit.~pas (19778, 2011-04-07)
进程模块\Project1.cfg (434, 2011-04-07)
进程模块\Project1.dof (2014, 2011-04-07)
进程模块\Project1.dpr (262, 2011-04-07)
进程模块\Project1.res (876, 2009-03-10)
进程模块\Project1.stat (180, 2011-04-07)
进程模块\Project1.~dpr (247, 2011-04-07)
进程模块\RKHit.sys (33272, 2009-02-05)
进程模块\Win32API.dll (32768, 2009-04-23)
进程模块 (0, 2011-11-28)
近期下载者:
相关文件:
收藏者: