unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,StdCtrls;


type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
  MouseIn: Boolean;
  procedure CMMouseLeave (var Message: TMessage); message CM_MOUSELEAVE;
    { Private declarations }
  public
     { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.CMMouseLeave(var Message:TMessage); //水标移出窗口时 关闭
begin
 inherited;
  MouseIn:=False;
WINDOWS.sleep(10000);// 不活动10秒后关闭
  Form1.Close;

end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval=10000 // 不活动10秒后关闭
if Form1.Active=False then //窗口不活动时关闭
Form1.Close;
end;

end.