DLL<->Exe

[Человек_Борща]

Использовать Low-Lovel hook, вместо WH_KEYBOARD использовать WH_KEYBOARD_LL. Callback измениться и гемороя прибавится, но работать будет.

[AndXor]

Нашёл вот такой интересный код отлова клавиши без длл, но что-то он не во всех приложениях хочет работать(( Ну тоесть я сворачию свою программу и хочу нажать PrintScreen и далеко не всегда срабатывает. Например когда голый рабочий стол то работает, а когда открыт Total Commander или AkelPad то работать не хочет. В чём может быть косяк или этот код не подходит?(

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  const
 WH_KEYBOARD_LL = 13;
 LLKHF_EXTENDED = KF_EXTENDED shr 8;
 LLKHF_INJECTED = $00000010;
 LLKHF_ALTDOWN = KF_ALTDOWN shr 8;
 LLKHF_UP = KF_UP shr 8;
type
 tagKBDLLHOOKSTRUCT = packed record
   vkCode : DWord;
   scanCode : DWord;
   flags : DWord;
   time : DWord;
   dwExtraInfo : PDWord;
 end;
 TKBDLLHOOKSTRUCT = tagKBDLLHOOKSTRUCT;
 PKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTRUCT;

var
  Form1: TForm1;
    hook: HHOOK;

implementation

{$R *.dfm}
function LowLevelKeyboardProc(nCode :Longint; awParam: WParam; alParam:
LParam): nativeint; stdcall;
var
 p: PKBDLLHOOKSTRUCT;
begin
  if (nCode = HC_ACTION) then
     case (awParam) of
       WM_KEYDOWN, WM_SYSKEYDOWN:
        begin
          p := PKBDLLHOOKSTRUCT(alParam);
          if (p.vkCode = VK_SNAPSHOT) then
            ShowMessage('Хук сработал');;
        end;
     end;
  Result := CallNextHookEx(0, nCode, awParam, alParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if hook=0 then
    hook := SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, hInstance, 0);
end;

end.

[AndXor]

Народ...Посмотрите код, может он всё таки пригодный но тут где-то косяк?

[Человек_Борща]

но тут где-то косяк?

Угу, один супер-маленький.
Хуки, особенно глобальные, живут исключительно в DLL.

[eval]

Хуки, особенно глобальные, живут исключительно в DLL.

с чего это?

[northener]

Хуки, особенно глобальные, живут исключительно в DLL.

Кроме Low-Level хуков.

[AndXor]

Блин код вроде рабочий, но не во всех приложениях работает. В чём косяк? Или может есть готовые решения.... или покажите хотя бы пример из чего можно сделать рабочий вариант.... а то получается что делаю глобальный хук DLL, callback работать не хочет, делаю без DLL не хочет работать во всех приложениях. ;(

[Silver_S]

Попробуйте так, без DLL:

SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, 0, 0);

[AndXor]

Всё тоже самое, не хочет он работать в некоторых приложениях.

[eval]

В каких например?