您现在的位置：首页 >> 硬件系统 >> 硬件系统 >> 内容

Delphi相关进程与文件操作(PsAPI)(2)

时间：2011/9/3 15:20:25 点击：


//(2)杀死某进程：
procedure TForm1.Button3Click(Sender: TObject);
var lppe: TProcessEntry32;
found : boolean;
Hand : THandle;
P:DWORD;
sExeFile,sSelect:string;
killed:boolean;
begin
p :=DWORD(ListBox1.Items.Objects[ListBox1.itemindex]);
if P<>0 then
begin
killed := TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);
if not killed then
messagebox(self.handle,pchar(sExeFile+'无法杀死！'),'提示',MB_OK or MB_ICONWARNING)
else
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
end;

上一页1234567下一页

Tags:相关 关进 进程 文件 操作 
作者：网络　来源：转载
  • 上一篇：Delphi实现对注册表的监视和扫描
  • 下一篇：Delphi利用CreateRemoteThread远程注入
    • 共有评论 0 条相关评论
    发表我的评论
    • 大名：
    • 内容：
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号