Три вопроса по клавиатуре

[Никки]

Привет всем!!

У меня вот такая задача!

1. Как сделать так, чтобы моя программа следила за нажатиями клавишь во всех приложениях?

2. У меня на ноутбуке есть функцеональная клавиша Fn она на всех ноутбуках есть! Как мне узнать что была нажата именно эта клавиша?

3. Как узнать, что была надата не одна клавиша, а их сочетание? И какие клавишы были нажаты?

Заранее спасибо!

[Domovoy]

Ет смахивает на клавиатурного шпиона
Осуществи ка поиск по форуму по след. словам и думаю ты найдёшь то что тебе надо
SetWindowsHookEx()
UnhookWindowsHookEx()
CallNextHookEx()

[Никки]

нееет!

это просто у меня ноутбук Асус и ужасно неудобно сделано изменение громкости Fn+F10 и Fn+F11 ужас просто! А вот на ноутбуках Тошиба это так: Fn + стрелка вверх и Fn + стрелка вниз! Мне надо сделать это так же!

[NoName_emaNoN]

Посмотри тему http://www.programmersforum.ru/showt...EE%F7%ED%E0%FF я сам этой же проблемой занимался, всё очень просто, только нужно знать код клавиши, и как-то решить проблему, когда приложение не в фокусе.

[Никки]

Вот я и думал про код клавиши!

Нашёл пример всё вроде просто, но... там используется VK_Space ну для других обычных кнопок можно посмотреть в модуле Windows, а для необычных как?? как узнать код?

[NoName_emaNoN]

Ты видел ссылки на предыдущей теме, там дан сайт майкрософтовский, где есть темы и коды специальные. Посмотри, правда там на английском.

[Никки]

пытаюсь сделать так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var
        MyHookHandle:HHook = 0;
{$R *.dfm}

function MyCoolHook(Code: integer; wParam: word; lParam: Longint):LongInt;
	begin
		if code<0 then Result := CallNextHookEx(MyHookHandle,Code,wParam,lParam)
		else //проверка, какая кнопка нажата
                begin
                        Form1.Memo1.Lines.Add(IntToStr(wParam));
			result:=1;
			CallNextHookEx(MyHookHandle,Code, wParam, lParam) //вызываю следующую ловушку
		end;

end;


procedure SetHook;
begin
	MyHookHandle := SetWindowsHookEx(WH_Keyboard, @MyCoolHook, hInstance, 0);
	//устанавливаю хук
end;

procedure UnHook;
begin
	UnhookWindowsHookEx(MyHookHandle);//снимаю хук
end;



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

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

end.

результат - на всех кнопках 40, а на той которой нужно нет ничего! + Explorer вылитает куда то....

[Никки]

с сайтом микрософта всё понятно, но там даны функции для "С", в делфи я таких на нашёл!

[Карась]

Вот программка которая показывает коды клавишь....

[Никки]

спасибо! моя тоже запоказывала! но у этой кнопки кода нет!

и в той что ты дал тоже кода нет!

ЧТО ДЕЛАТЬ????