Активировать приложение после нажатие горячей клавиши

[Kovalchuk.Dmytro]

Доброго времени суток! Я пишу приложение, в котором будет строка, в которую я буду вводить команды и по нажатию на "ентер", будут происходить заранне записаное действие. Само приложение запускается, затем я тераяю фокус приложения, так как работаю в других. Затем я нажимаю Ф6(посредством хука ловлю). и приложение должно получить фокус(строка фокус ввода соответсвенно). Чего у меня не получается, так что же нужно сделать???

Вот листинг кода:

unit uCommand;//Само приложение

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmCommand = class(TForm)
    edtCommand: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    procedure WMAPP100(var Msg: TMessage); message WM_APP+$100;
  end;

var
  frmCommand: TfrmCommand;

procedure SetHook(); external 'FAHook.dll';
procedure UnSetHook(); external 'FAHook.dll';  
  
implementation

{$R *.dfm}

procedure TfrmCommand.FormCreate(Sender: TObject);
begin
  SetHook;
end;

procedure TfrmCommand.FormDestroy(Sender: TObject);
begin
  UnSetHook;
end;

procedure TfrmCommand.WMAPP100(var Msg: TMessage);
begin
  //когда F6, попадет в ловушку нужно активировать снова прилодение, иначе ничего не делать 
end;

end.

library FAHook;//библиотека с отловом
 
uses
  Windows,
  Messages;

type
  KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: DWORD;
  end;
  PBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;
 
const
  WH_KEYBOARD_LL: Integer = 13;
 
var
  hCallWndProc: HHOOK = 0;

function LowLevelKeyboardProc(code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  if code>=0 then
  begin
    if (wParam=WM_KEYDOWN) then
      case PBDLLHOOKSTRUCT(lParam).vkCode of
        VK_F6: SendMessage(FindWindow('TfrmCommand', 'frmCommand'), WM_APP+$100, 0, 0);
      end;
  end;
  Result:=CallNextHookEx(0, code, wParam, lParam)
end;
 
procedure SetHook();
begin
  hCallWndProc:=SetWindowsHookEx(WH_KEYBOARD_LL, @LowLevelKeyboardProc, HInstance, 0);
end;
 
procedure UnSetHook();
begin
  if hCallWndProc<>0 then UnhookWindowsHookEx(hCallWndProc);
end;
 
exports
  SetHook, UnSetHook;
 
begin
end.

[Iron Monk]

Зачем хук? Почему не так?

if not RegisterHotkey(Handle, 1, 0, VK_F6) then
ShowMessage('Ошибка регистрации горячей клавиши!');

[Kovalchuk.Dmytro]

В планах реализовать свертываемость в трей, а там данный способ не сработает...

Сообщение от Iron Monk

Зачем хук? Почему не так?

if not RegisterHotkey(Handle, 1, 0, VK_F6) then
ShowMessage('Ошибка регистрации горячей клавиши!');

[Iron Monk]

Сообщение от Kovalchuk.Dmytro

В планах реализовать свертываемость в трей, а там данный способ не сработает...

С какой печали? Всё прекрасно работает.

[Kovalchuk.Dmytro]

Сообщение от Iron Monk

С какой печали? Всё прекрасно работает.

Нужно протестить, может я и ошибся...

[Iron Monk]

Сообщение от Kovalchuk.Dmytro

Нужно протестить, может я и ошибся...

Нужно будет - даже по памяти, без отладки. код наберу...

[Kovalchuk.Dmytro]

Все разобрался спасибо, вот код, может кому на будущее...

unit uCommand;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Menus;

type
  TfrmCommand = class(TForm)
    edtCommand: TEdit;
    tray: TTrayIcon;
    TrayMenu: TPopupMenu;
    nExit: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtCommandChange(Sender: TObject);
    procedure nExitClick(Sender: TObject);
  private
    procedure OnHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCommand: TfrmCommand;

implementation

{$R *.dfm}

procedure TfrmCommand.edtCommandChange(Sender: TObject);
begin
 if edtCommand.Text='~q' then frmCommand.Hide;
end;

procedure TfrmCommand.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnregisterHotKey(Handle, 1); // снятие регистрации
end;

procedure TfrmCommand.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 1, MOD_Control+MOD_Shift, Ord('U'));
end;

procedure TfrmCommand.nExitClick(Sender: TObject);
begin
  frmCommand.Close;
end;

procedure TfrmCommand.OnHotKey(var Msg: TWMHotKey);
begin
   inherited;
   frmCommand.Show; frmCommand.SetFocus;
end;

end.