1 кнопка в место горячих клавиш

[DenZ]

Всем привет. Подскажите пожалуйста, мне надо что бы нажатие на кнопку bitbtn на форме, заменяло нажатие на клавиатуре две клавиши, Ctrl + F. Заранее спасибо.

[Mad_Cat]

begin
 keybd_event(vk_ctrl, 0, 0, 0);
 keybd_event(Ord('F'), 0, 0, 0);
 keybd_event(vk_ctrL, 0, KEYEVENTF_KEYUP, 0);
 keybd_event(ord('F'), 0, KEYEVENTF_KEYUP, 0);
end;

[DenZ]

Код компилируется, но почему то не работает. Когда просто воткнул код в кнопку. Вышла ошибка [Error] Unit2.pas(300): Undeclared identifier: 'vk_ctrl'. Я тогда ее VAR описал как integer. ТОгда прога нормально запустилась. Но при нажатии кнопки ничего не происходит. Может я что то не так сделал?

[Silver_S]

Исправьте vk_ctrL на VK_CONTROL. Эта константа описана в Windows.pas

[DenZ]

НЕа, всё равно. Ничего не происходит. Это у меня поиск веббраузоровский должен вызываться. Когда нажимаю на кнопку с этим кодом, то ничего не происходит, но если после этого сразу попробовать самому на клавиатура нажать ctrl+f то поиск тож не появится. Надо сначала мышкой куда нить в пустое место тыкнуть, а потом жать ctrl+f, тогда поиск появляется.

[Sparkman]

Системная горячая клавиша:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
      id1 := GlobalAddAtom('Hotkey1');
      RegisterHotKey(Handle, id1, 2, ord('F'));
end;

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

procedure TForm1.WMHotKey(var Msg: TWMHotKey); 
begin
     if Msg.HotKey = id1 then
    ShowMessage('Ctrl + F was pressed !');
end;

end.

Взял отсюда.