При простое мышки открывается другая форма как в Screenserver

[xew]

Здраствуйте можете помочь реализовать следующие дейсвия:
У меня на форме есть компонент WebBrowser нужно чтобы при простое больше 5 минут открывалась другая форма но если двигается мышка то ничего не происходит и все так же виден WebBrowser т.е надо реализовать метод что то наподобие Screenserver'a можете помочь в какую строну копать (

[_Troy]

function LastInput: DWord;
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := Format('Система простаивает %d ms', [LastInput]);
end;

Интервал таймера = 1

[xew]

Спасибо большое работает ))) а не могли бы подсказать как сделать onClick на компонент WebBrowser ?


Все спасибо решил данную проблему по другому )))

[_Troy]

Это уже вроде как другая тема, но все же

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
  private
    OtherWndProc: TWndMethod;
    procedure WindowProcess(var Message: TMessage);
  public
    procedure AfterConstruction; override;
  end;

procedure TForm1.AfterConstruction;
begin
  inherited;
  if not (csDesigning in ComponentState) then
  begin
    OtherWndProc := WebBrowser1.WindowProc;
    WebBrowser1.WindowProc:= WindowProcess;
  end;
end;

procedure TForm1.WindowProcess(var Message: TMessage);
begin
  if Message.Msg = WM_LBUTTONDOWN then
  begin
    MessageBox(Handle, 'OnMouseDown', 'Event', MB_OK);
  end else
    OtherWndProc(Message);
end;