Перехват нажатых клавиш.

[-=Virus=-]

Пишу программу которая будет перехватывать нажатие клавиш пульта от тв тюнера.

Суть проблемы такова:
Научился перехватывать нажатие одной клавиши, а как сделать для двух клавиш. Допустим одна клавиша прибавляет звук а вторая убавляет.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, Menus, ShellApi;

type
  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure WMHotKey(var Msg: TWMHotKey);

  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  MyHotKey = ord('1');

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var
I:Integer;
begin
    ShellExecute(0,PChar('open'),PChar('C:/Gotview/nircmd.exe'),PChar('changesysvolume -1000'),nil,SW_SHOWNORMAL);
    I:=ProgressBar1.Position;
    ProgressBar1.Position:=I-2;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Form1.Handle, MyHotKey, 0, MyHotKey);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Form1.Handle, MyHotKey);
end;

end.

Так перехватываю только нажатие одной. Если создаю на вторую клавишу только срабатывает одно действие или прибавить или убавить.

[Пепел Феникса]

второй параметр функции RegisterHotKey, это id хоткея, он же приходит в обработчик, и по нему можно различать какой же хоткей был нажат.
msg.HotKey

MyHotKey_1=ord('1');
MyHotKey_2=ord('2');

RegisterHotKey(Handle,MyHotKey_1,0,MyHotKey_1);
RegisterHotKey(Handle,MyHotKey_1,0,MyHotKey_1);

а в обработчике:

case msg.HotKey of
 MyHotKey_1: begin end;
 MyHotKey_2: begin end;
end;

[-=Virus=-]

Сообщение от Пепел Феникса

второй параметр функции RegisterHotKey, это id хоткея, он же приходит в обработчик, и по нему можно различать какой же хоткей был нажат.
msg.HotKey

MyHotKey_1=ord('1');
MyHotKey_2=ord('2');

RegisterHotKey(Handle,MyHotKey_1,0,MyHotKey_1);
RegisterHotKey(Handle,MyHotKey_1,0,MyHotKey_1);

а в обработчике:

case msg.HotKey of
 MyHotKey_1: begin end;
 MyHotKey_2: begin end;
end;

Спасибо вроде всё работает.

Хм... Странно вообще не стал реагировать на нажатие клавиш.

[navodri]

Код польность рабочий! Проверено!

  
 private
    { Private declarations }
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
...

implementation

{$R *.DFM}

const
  MyHotKey_1=ord('1');
  MyHotKey_2=ord('2');

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var
I:Integer;
begin
 case msg.HotKey of
  MyHotKey_1: MessageBox(0,'MyHotKey_1','',0);
  MyHotKey_2: MessageBox(0,'MyHotKey_2','',0);
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle,MyHotKey_1,0,MyHotKey_1);
  RegisterHotKey(Handle,MyHotKey_2,0,MyHotKey_2);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnRegisterHotKey(Form1.Handle, MyHotKey_1);
 UnRegisterHotKey(Form1.Handle, MyHotKey_2);
end;

[-=Virus=-]

Похоже delphi xe кривит или может сама винда 7.

[-=Virus=-]

Всем спасибо нашёл свой косяк.

[Neef-El]

Привет всем.
Я не использую QWidget, использую QTimer и QSocket, как мне получить события нажатия клавиш?

[Johnson]

Я бы для этих целей углубился в изучение драйвера устройства.
Практичнее читать буфер устройства, чем пытаться обработать хоткеи его утилиты.

[Пепел Феникса]

смотря что за устройство, кстати может оно прямое АПИ имеет?
пульт от тюнера Beholder, имеет такое.