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
To Search:
File list (Check if you may need any files):
进程模块\DllUnit.dcu
........\DllUnit.pas
........\DllUnit.~pas
........\FKFAP.sys
........\ProcessDelUnit.dcu
........\ProcessDelUnit.ddp
........\ProcessDelUnit.dfm
........\ProcessDelUnit.pas
........\ProcessDelUnit.~ddp
........\ProcessDelUnit.~dfm
........\ProcessDelUnit.~pas
........\ProcessUnit.dcu
........\ProcessUnit.ddp
........\ProcessUnit.dfm
........\ProcessUnit.pas
........\ProcessUnit.~ddp
........\ProcessUnit.~dfm
........\ProcessUnit.~pas
........\Project1.cfg
........\Project1.dof
........\Project1.dpr
........\Project1.res
........\Project1.stat
........\Project1.~dpr
........\RKHit.sys
........\Win32API.dll
进程模块
Download