发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: .编程关闭所有的应用程序
发信站: 哈工大紫丁香 (Mon Sep  4 16:13:28 2000), 转信

TERMINATEALLAPPLICATION.PAS


procedure TForm1.ButtonKillAllClick(Sender: TObject);
var
  pTask   : PTaskEntry;
  Task    : Bool;
  ThisTask: THANDLE;
begin
  GetMem (pTask, SizeOf (TTaskEntry));
  pTask^.dwSize := SizeOf (TTaskEntry);

  Task := TaskFirst (pTask);
  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;

--
※ 修改:．haojs 于 Sep  4 16:11:05 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]