【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：Frm_CloseExe.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit Frm_CloseExe;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, XPMan;
    
    type
      TFrmClose = class(TForm)
        BtnCloseExe: TButton;
        GBxList: TGroupBox;
        LBxWinList: TListBox;
        XPManifest1: TXPManifest;
        BtnClose: TButton;
        procedure FormShow(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
        procedure BtnCloseExeClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmClose: TFrmClose;
    
    function Mynum(hand:HWND;lparam:Lparam):integer;stdcall;
    
    
    implementation
    
    {$R *.dfm}
    function Mynum(hand:HWND;lparam:Lparam):integer;stdcall;
    var
      buff:Array[0..255] of char;
      dc:HDC;
    begin
      if Hand<>0 then
      begin
        getwindowtext(hand,buff,255);
        if trim(buff) <> '' then
        FrmClose.LBxWinList.Items.Add(buff);
        result:=hand;
      end;
    end;
    
    procedure TFrmClose.FormShow(Sender: TObject);
    begin
      EnumWindows(@Mynum,0);
    end;
    
    procedure TFrmClose.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TFrmClose.BtnCloseExeClick(Sender: TObject);
    var
      CloHan:HWND;
    begin
      CloHan:=FindWindow(nil,pchar(LbxWinList.Items.Strings[LbxWinList.ItemIndex]));
      if CloHan <> 0 then
      begin
        postMessage(CloHan,WM_QUIT,0,0);
      end
      else showmessage('没有发现窗口！！');
      LbxWinlist.Clear;
      EnumWindows(@Mynum,0);
    end;
    
    end.