怎样关闭一个正在运行的应用程序（delphi）

Question

你先列出系统所有的进程，然后将其杀死。

Answer 1

unit Unit1;  interface  uses  
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  
  StdCtrls;  type  
  TForm1 = class(TForm)  
    Hide: TButton;  
    Show: TButton;  
    procedure HideClick(Sender: TObject);  
    procedure ShowClick(Sender: TObject);  
  private  
    { Private declarations }  
  public  
    { Public declarations }  
  end;  var  
  Form1: TForm1;  function RegisterServiceProcess(dwProcessID,dwType : DWORD) :  
                      DWORD; stdcall; external 'KERNEL32.DLL';  implementation  {$R *.DFM}  procedure TForm1.HideClick(Sender: TObject);  
begin  
  RegisterServiceProcess(GetCurrentProcessID, 1);  
end;  procedure TForm1.ShowClick(Sender: TObject);  
begin  
  RegisterServiceProcess(GetCurrentProcessID, 0);  
end;  end. 只能在win98下有效