Выставляем Горячие Клавиши Для Delphi Приложения

[Lomanu4]

Как сделать так, чтобы при минимизации приложения в Tray его можно было вызвать определённой комбинацией клавиш, например Alt-Shift-F9 ?
//В обработчике события OnCreate
//основной формы создаём горячую клавишу:

procedure TForm1.FormCreate(Sender: TObject);

begin

    if not RegisterHotkey(Handle, 1, MOD_ALT or MOD_SHIFT, VK_F9) then

    ShowMessage('Unable to assign Alt-Shift-F9 as hotkey.');

end;

//В событии OnClose удаляем горячую клавишу:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin
    UnRegisterHotkey( Handle, 1 );

end;

//Добавляем обработчик в форму для сообщения
//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;

Пробуем

 

[SsSsSr]

можно все проще сделать через цикл и перечисление клавишь в цикле с переменной

 

[Sascha]

можно все проще сделать через цикл и перечисление клавишь в цикле с переменной

Может и можно только приведеные тому примеры дадут понять что на самом деле можно проще