По нажатию, каких сочетаний клавиш можно программно развернуть приложение, если оно свернуто в трее?

[Johnny_B]

Подскажите как можно развернуть программу если она свернута в трее, по нажатию каких то сочитаний клавишь. Зарание спасибо

[Трофимов Александр]

Выставляем горячие клавиши для Delphi приложения

Как сделать так, чтобы при минимизации приложения в Tray его можно было вызвать определённой комбинацией клавиш, например Alt-Shift-F9 ?
В обработчике события OnCreate основной формы создаём горячую клавишу:
If not RegisterHotkey (Handle, 1, MOD_ALT or MOD_SHIFT, VK_F9) Then ShowMessage('Unable to assign Alt-Shift-F9 as hotkey.');
//В событии OnClose удаляем горячую клавишу:
UnRegisterHotkey( Handle, 1 );
//Добавляем обработчик в форму для сообщения
//WM_HOTKEY:
private // в секции объявлений формы
Procedure WMHotkey( Var msg: TWMHotkey );
message WM_HOTKEY;
Procedure TForm1.WMHotkey( Var msg: TWMHotkey );
Begin
If msg.hotkey = 1 Then
Begin
If IsIconic( Application.Handle ) Then Application.Restore;
BringToFront;
End;
End;