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

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

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


//(4)取得窗口列表
begin
ListBox1.Items.Clear ;
EnumWindows(@EnumWindowsProc, 0);
end;
//(5)杀死窗口进程
procedure TForm1.Button6Click(Sender: TObject);
var
H:THandle;
P:DWORD;
s:string;
killed:boolean;
begin
s := ListBox1.Items[ListBox1.ItemIndex];
H:=FindWindow(nil,pchar(s));
if H<>0 then
begin
GetWindowThreadProcessId(H,@P);
if P<>0 then
killed:=TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);
if not killed then
messagebox(self.handle,pchar(s+'无法杀死！'),'提示',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号