Programm nach x Minuten beenden

[marabu]

Hi,

geht es um eine Uhrzeit (15 Minuten später) oder soll das Programm maximal 15 Minuten (crippleware) benutzbar sein?

Da in meinen Programmen fast immer ApplicationEvents bearbeitet werden, brauche ich keinen TTimer:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
    ApplicationEvents: TApplicationEvents;
    procedure ApplicationEventsActivate(Sender: TObject);
    procedure ApplicationEventsDeactivate(Sender: TObject);
    procedure ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
  private
    Timer: TDateTime;
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

uses
  DateUtils;

procedure TDemoForm.ApplicationEventsActivate(Sender: TObject);
begin
  Timer := Now - Timer;
end;

procedure TDemoForm.ApplicationEventsDeactivate(Sender: TObject);
begin
  Timer := Now - Timer;
end;

procedure TDemoForm.ApplicationEventsIdle(Sender: TObject;
  var Done: Boolean);
begin
  Done := Application.Active and ((Now - Timer) >= (15 * OneMinute));
  if Done then
    Close;
end;

Freundliche Grüße