then Form2.Show;

[beegl]

NikLik, у меня ПК завис из-зи хука того ... пришлось reset нажимать. Мог бы предупредить. ... Я хотел сказать, что если WebBrowser на форме, то Form1 думает, что никаких действий не происходит, попробуй это с WebBrowser. И можеш ли ты решить этот вопрос? Подскажи пожулуйста.

[NikLik]

Хм...
1)Можно создавать новый класс на основе TWebBrowser, добавляя к нему обработчики событий mousemove и т.д., но на мой взгляд легче сделать всё через
2) Хук. Тотже самый хук, теперь виснуть не должен(добавлено несколько проверок). Исходник прилагается.

P.S.За хук--извиняюсь, у меня всё нормально работает...да и не только у меня, я часто этот код на форуме вижу(код не мой, я лично взял его из DelphiWorld)
P.P.S. если всё-таки начнёт глючить, нажми ctrl+alt+del, должно помочь

[beegl]

NikLik, это тоже самое, токо с

else
     showmessage('blin!');

можна сказать, что это флуд на форуме. Не хорошо с твоей стороны

[NikLik]

)))Удали эту строку, это я для себя добавлял
Сорри, забыл удалить
в TForm2.ApplicationEvents1Message удали

      if not(JHook > 0) then
     showmessage('blin!');

в TForm2.FormCreate удали

     else
     showmessage('blin!');

ЗЫ если не хочешь--не используй, но на мой взгляд это оптимальный вариант.

[beegl]

NikLik, у меня обраьно ПК завис. Получяеца ты там ничего не изменил. И в коде ни одного упоминания о WebBrowse небыло.

[NikLik]

Да, упоминания и не должно быть)
Когда конкретно он виснет? При запуске или просто во время работы?

[beegl]

во время работы

не долже виснуть?

procedure TForm2.ApplicationEvents1Message(var Msg: tagMSG;
   var Handled: Boolean);
 begin
   Handled := False;
   if (Msg.message = WM_CANCELJOURNAL) then         //при нажатии Ctrl+alt+del hook останавливается,
     JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, hinstance, 0);//мы его запускаем заново
       if not(JHook > 0) then
     showmessage('blin!');
 end;

и //мы его запускаем заново

[NikLik]

вот всё, чтоу меня получилось сделать
но компонент не хочет регистрироваться(

[beegl]

да, действительно, хороший пример, жаль, что не хочет работать

[The_Darkness]

насчет виснет. JournalRecord у меня вешал систему когда я прогу из Delphi запускал, и потом тыкал на самом Delphi. Попробуй из exe заупустить, вроде должно помоч.
P.S. А Handeled в true переставить не надо? А то я точно не помню..

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;   
  Shift: TShiftState);   
begin   
Form2.Hide;  
Form1.Show;
end;   
  
procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;   
  Shift: TShiftState; X, Y: Integer);   
begin   
Form2.Hide;  
Form1.Show;
  
end;   
  
procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,   
  Y: Integer);   
begin   
Form2.Hide;  
Form1.Show;
end;

Вот так форм2 будет исчезать при любом действии, и снова появиться форм1