Создание системной горячей клавиши

[Seqular]

Подскажите пожалста, как создать системную (глобальную) горячую клавишу (Чтобы действовала за пределами формы) не используя модуль Forms?

[Romanus]

делаешь обработчик WM_HOTKEY

[Cezar]

делаешь обработчик WM_HOTKEY

Вот об этом поподробнее, самому интересно стало...

[Seqular]

Если это будет работать, даже если наша форма НЕАКТИВНА - расскажи подробнее!

[Romanus]

Объясняю в поле приват запихиваем
procedure WMHotKey(var Mess:TWMHotKey);message WM_HOTKEY;

Далее в создание и удаление формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//Вы можете забивать сюда любое сочетание клавиш
//в данном случае это Ctrl-F12
RegisterHotKey(Handle, 1 ,MOD_CONTROL, vk_F12);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(Handle, 1);
end;
А в инициализацию процедуры обработки сообщений(WMHotKey(var Mess:TWMHotKey)) пишем то что должно происходить по нажатии горячих клавиш например впишите туда такой код
procedure TForm1.WMHotKey(var Mess: TWMHotKey);
begin
if Form1.Visible then Form1.Visible:=False
else Form1.Visible:=True;
end;
и получится что по нажатии сочетания клавиш форма исчезнет с экрана и таскбара а потом по этому сочетанию появится.

[Seqular]

Секундочку... Romanus, почитай мой первый пост! Подключение модуля Forms запрещено по условию. А ты приводишь код с объектами форм...

[Romanus]

Друг мой не используй формы а пропиши все это в начале и завершении программы. А вообще если хочешь сделать без форм и без ничего делай через Dll.

[Seqular]

Т.е. поставить хук?.. А иначе можно?
Вот интересно мне, где брать секцию private, в консольном приложении?

[Romanus]

Да блин никакой private не нужен просто делаешь отдельный модуль в котором прописываешь выше упомянутую процедуру обработки горячей клавиши а внутри ее пиши что должно происходить при нажатии этой комбинации. И не хук. В памяти висит библиотека которая регистрирует нажатие гор. кл. в впоследствии выполняет какие то функции