关闭所有正在运行的程序_Delphi

  • 内容
  • 评论
  • 相关

(运行此程序前请保存所有修改过的文件)
procedure TForm1.ButtonKillAllClick(Sender: TObject);
var
    pTask : PTaskEntry;
    Task : Bool;
    ThisTask: THANDLE;
begin
    GetMem (pTask, SizeOf (TTaskEntry));
    pTask^.dwSize := SizeOf (TTaskEntry);
    Task := TaskFirst (pTask);

http://www.gaodaima.com/65617.html关闭所有正在运行的程序_Delphi

    while Task do
    begin
        if pTask^.hInst = hInstance then
        ThisTask := pTask^.hTask
    else
        TerminateApp (pTask^.hTask, NO_UAE_BOX);
        Task := TaskNext (pTask);
    end;
    TerminateApp (ThisTask, NO_UAE_BOX);
end;

欢迎大家阅读《关闭所有正在运行的程序_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 关闭所有正在运行的程序_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注