Действие при простои программы

[Volkogriz]

Доброе время суток!!!
Как выполнить действие,например воспроизвести звук если программа запущена но ей никто не пользуется в течении определенного времени?
Заранее благодарен !!!!!
С уважением Volkogriz!!!

[SNUPY]

ИМХО самый простой способ это завести таймер и глобальную переменную что-нибудь типа AlarmTimeouble И каждый раз изменять перенную на событие формы OnMouseMove . Когда таймер чухнет, что AlarmTime наспупило он проиграет мелодию.

[Volkogriz]

А можно поподробней как это осущиствить?
Зарание благодарен Volkogriz!!!

[VVM]

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    MediaPlayer1: TMediaPlayer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    Idle: integer;
  public
    { Public declarations }
  end;


procedure TForm1.FormShow(Sender: TObject);
begin
  Idle := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not form1.Active then
    inc(Idle);
  if Idle = 1000 then
    //тут типа сигнал инграем, например так:
    MediaPlayer1.Play;
end;

[Volkogriz]

Благодарю !!!!