VPF::Нажатие клавиш - Форум программистов

Tokagero

Дата 28.2.2008, 17:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 25.10.2006

Репутация: нет
Всего: нет

Помогите плизз написать программу... Нуно чтобы при нажатии (программа свернута) клавиши F1 посылались клавиши W+Space (пробел). Т.е. W нажалось и отпустилось и пробел нажался и отпустился. Задание довольно легкое но у меня не получается. Если форма свернута то OnKeyDown не проходит. Если у кого есть минутка напишите плизз smile

Qu1nt

Дата 28.2.2008, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50

WM_HOTKEY + keybd_event.

Tokagero

Дата 28.2.2008, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 25.10.2006

Репутация: нет
Всего: нет

А исходничек мона??

Qu1nt

Дата 29.2.2008, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50

Если посылать нужно активному в данный момент окну:

Код


unit Unit1;

interface

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

const
  HOTKEY = VK_F1;

type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMHotKey(var Msg: TWMHOTKEY); message WM_HOTKEY;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure SendKey(Key: Integer);
begin
  keybd_event(Key, MapVirtualKey(Key, 0), 0, 0);
  keybd_event(Key, MapVirtualKey(Key, 0), KEYEVENTF_KEYUP, 0);
end;

procedure TForm1.WMHotKey(var Msg: TWMHOTKEY);
begin
  SendKey($57);
  Sleep(25);
  SendKey($20);
end;

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

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Self.Handle, HOTKEY);
end;

end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »