Показать сообщение отдельно
  #2  
Старый 24.11.2014, 07:19
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от kristall000
...Может быть для делфи есть какой то другой код для этих кнопок?
Этот код отличается для разных моделей, константного стандарта пока нет. Посмотрите его значение самостоятельно данным "пробником-крысоловкой"
Код:
var
mh: HHOOK;

function lmp(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;
begin
 Result:= CallNextHookEx(mh, nCode, WParam, LParam);
 Form1.Label1.Caption:= IntToStr(WParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 mh:= SetWindowsHookEx(14, @lmp, HInstance, 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 UnhookWindowsHookEx(mh);
end;
возможно что ловушка его и перехватывает
Ответить с цитированием