[illya05]

есть вот такое:

Код:

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
begin
keybd_event(44,0,0,0);
keybd_event(44,0,keyeventf_keyup,0 );
end;

end.

и работает! но когда прога открыта(вы в ней), а когда я иду в браузер (скрыв прогу) то оно неработает
а надо чтоб работало когда прого скрыта

причём я на меню поставил шоткат!

[angvelem]

to Robt.
Вы случаем не с sql.ru родом? Очень уж стиль общения похож на тамошних обитателей.

[robt]

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

to Robt.
Вы случаем не с sql.ru родом? Очень уж стиль общения похож на тамошних обитателей.

нет не оттуда, а тут кладбище последних девствениц чтоли?

менюшные шорткаты работают только при активном приложении иначе был бы бред
регистрируй глобальный хоткей либо хук

[illya05]

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

нет не оттуда, а тут кладбище последних девствениц чтоли?

менюшные шорткаты работают только при активном приложении иначе был бы бред
регистрируй глобальный хоткей либо хук

скажи как?

[Bargest]

Гугл->Hook windows, SetWindowsHookEx, ...
И на этом форуме по хукам немало было тем. Поиск еще работает.

[robt]

RegisterHotKey + гугл

[illya05]

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

RegisterHotKey + гугл

ктото может дать КОД или ИСХОДНИК, так понятнее будет

а так как вы говорите пробовал, но бузрезультатно

[robt]

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

а так как вы говорите пробовал, но бузрезультатно

так мало зарегать надо еще и сообщения от него ловить
тебе проще компонент найти типа Jvcl
а код готовый тибе смысла давать нет - всеравно не скомпилируеш проще самому написать
а хотя на http://www.delphitips.net/2007/04/01...system-hotkey/

[angvelem]

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

нет не оттуда, а тут кладбище последних девствениц чтоли?

Всё проще, за откровенное хамство обычно банят.

[robt]

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

Всё проще, за откровенное хамство обычно банят.

лучше бы банили за откровенную тупость, это гораздо полезней

[illya05]

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

так мало зарегать надо еще и сообщения от него ловить
тебе проще компонент найти типа Jvcl
а код готовый тибе смысла давать нет - всеравно не скомпилируеш проще самому написать
а хотя на http://www.delphitips.net/2007/04/01...system-hotkey/

и в чём беда

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }

hotkey1, hotkey2: Integer;
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
if msg.HotKey = hotkey1 then keybd_event(144,0,0,0);
if msg.HotKey = hotkey1 then keybd_event(144,0,keyeventf_keyup,0 );
end;

procedure TForm1.FormCreate(Sender: TObject);
const MOD_CONTROL = 2;
VK_A = 65;
begin
hotkey1 := GlobalAddAtom('Hotkey1');
RegisterHotKey(handle, hotkey1, MOD_CONTROL,VK_A);
end;

end.

[robt]

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

и в чём беда

тваюш мать....
можно както внятней мысли выражать?
Control+A у тебя зареган как хоткей


to angvelem вот как с такими общаться?

[illya05]

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

тваюш мать....
можно както внятней мысли выражать?
Control+A у тебя зареган как хоткей


to angvelem вот как с такими общаться?

моюшмать


спс!!!!!

[angvelem]

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

to angvelem вот как с такими общаться?

Спокойно и, по возможности, без оскорблений.

P.S. Для информации: читаем правила форума и потом не обижаемся на возможные санкции.

[illya05]

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

тваюш мать....
можно както внятней мысли выражать?
Control+A у тебя зареган как хоткей


to angvelem вот как с такими общаться?

у меня певыходит F2 зарегать

Код:

procedure TForm1.FormCreate(Sender: TObject);
const MOD_CONTROL = 2;
VK_F2 = 113;
begin
hotkey1 := GlobalAddAtom('Hotkey1');
RegisterHotKey(handle, hotkey1, VK_F2);
end;