Горячие клавиши делфи

[webersol]

Всем привет! Проблема заключается в следующем: создаю приложение с реакцией на нажатие кнопки F10. НО! Не могу создать чтоб параллельно работала кнопка F11. Как это реализовать?

 procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;
const
  MyHotKey = ord(VK_F10);
  MyHotKey1 = ord(VK_F11);

RegisterHotKey(Form1.Handle, MyHotKey, 0, MyHotKey);
RegisterHotKey(Form1.Handle, MyHotKey1, 0, MyHotKey1);


procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var wind:HWND;
begin
wind:= GetForegroundWindow ;
SendMessage(wind,WM_SYSCOMMAND,SC_MINIMIZE,0);
if getasynckeystate($20)<>0 then Show;
end;

это мои отрывки кода. работает только F10.

[min@y™]

Тебе нужно именно глобально зарезервировать клавиши? Именно, чтобы до проги доходило нажатие, даже когда её окно неактивно/свёрнуто/невидимо?

[northener]

Сообщение от webersol

Всем привет! Проблема заключается в следующем: создаю приложение с реакцией на нажатие кнопки F10. НО! Не могу создать чтоб параллельно работала кнопка F11. Как это реализовать?

procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
public
{ Public declarations }
end;
const
MyHotKey = ord(VK_F10);
MyHotKey1 = ord(VK_F11);

RegisterHotKey(Form1.Handle, MyHotKey, 0, MyHotKey);
RegisterHotKey(Form1.Handle, MyHotKey1, 0, MyHotKey1);


procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var wind:HWND;
begin
wind:= GetForegroundWindow ;
SendMessage(wind,WM_SYSCOMMAND,SC_M INIMIZE,0);
if getasynckeystate($20)<>0 then Show;
end;


это мои отрывки кода. работает только F10.

Я могу тебе дать отрыжки моего кода, где много чего не работает. Тебе это поможет?

[webersol]

ДА! Обьявить кнопки нужно глобально, чтоб реакция была при отсутствии окна, и в зависимости от нажатой кнопки происходило то или иное

[min@y™]

В таком случае могу дать исходники к своей старой дебильной программе, которую писал от нефиг делать на работе ещё под windows xp (под win8.1x64 работает). Прога регает на себя некоторые комбинации клавиш:

for HotKeyID:= 0 to 9 do
    RegisterHotKey(Application.Handle, HotKeyID, MOD_WIN, $30 + HotKeyID); // Win + 0...9 - звуки юзера
  RegisterHotKey(Application.Handle, 253, MOD_CONTROL or MOD_WIN, VK_F12); // Ctrl + Win + F11 - сказать время
  RegisterHotKey(Application.Handle, 254, MOD_CONTROL or MOD_WIN, VK_F11); // Ctrl + Win + F12 - развернуть из трея
  RegisterHotKey(Application.Handle, 255, MOD_WIN, $20); // Win + Space - прекратить воспроизведение

Сtrl+Win+Fxx работают, щас проверил.

[FaTaL]

Вот так например (быстренько набросал):

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 10, 0, VK_F10);
  RegisterHotKey(Handle, 11, 0, VK_F11);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnregisterHotKey(Handle, 10);
  UnregisterHotKey(Handle, 11);
end;

procedure TForm1.WMHotkey(var msg: TWMHotkey);
begin
  if msg.HotKey = 10 then
    ShowMessage ('Нажата клавиша F10');
  if msg.HotKey = 11 then
    ShowMessage ('Нажата клавиша F11');
end;

end.

[webersol]

Спасибо Вам большое! Очень помогли Все присутсвующие, Вы решили ряд проблем. Спасибо.

P.S. Есть ли функция, которая отлавливает самое спереди-стоящее окно, находит его процесс и убивает? Цель стоит убивать повисшее окно игры, к примеру GTA SA. Эта игра виснет, мелькает диспетчер, видно курсор, но из-за того что ничего не видно приходится перезагружать комп. Я уже давно мечтаю "убивать" такие повисшие окна в нажатие одной кнопки.

[min@y™]

Есть ли функция, которая отлавливает самое спереди-стоящее окно, находит его процесс и убивает? Цель стоит убивать повисшее окно игры, к примеру GTA SA. Эта игра виснет, мелькает диспетчер, видно курсор, но из-за того что ничего не видно приходится перезагружать комп. Я уже давно мечтаю "убивать" такие повисшие окна в нажатие одной кнопки.

а ты пробовал в таких случаях нажимать alt+tab, win+d, win+tab и другие интересные комбинации кнопок?
а ты пробовал юзать хороший годный диспетчер задач вместо стандартного УГ?

[webersol]

Комбинации клавиш не помогают, альтернативным диспетчером пользуюсь. Но смысл? Мне нужно убивать именно процесс, а не задачу. Даже если процесс повисший, я его могу уничтожить. Мне нужно отловить спереди-стояшее окно, узнать его процесс, и убить.

[min@y™]

Комбинации клавиш не помогают