|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
есть вот такое:
Код:
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. а надо чтоб работало когда прого скрыта причём я на меню поставил шоткат! |
#17
|
||||
|
||||
to Robt.
Вы случаем не с sql.ru родом? Очень уж стиль общения похож на тамошних обитателей. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#18
|
|||
|
|||
Цитата:
менюшные шорткаты работают только при активном приложении иначе был бы бред регистрируй глобальный хоткей либо хук Последний раз редактировалось robt, 04.05.2012 в 21:29. |
#19
|
|||
|
|||
Цитата:
скажи как? |
#20
|
||||
|
||||
Гугл->Hook windows, SetWindowsHookEx, ...
И на этом форуме по хукам немало было тем. Поиск еще работает. jmp $ ; Happy End! The Cake Is A Lie. |
#21
|
|||
|
|||
RegisterHotKey + гугл
Последний раз редактировалось robt, 04.05.2012 в 21:41. |
#22
|
|||
|
|||
Цитата:
ктото может дать КОД или ИСХОДНИК, так понятнее будет а так как вы говорите пробовал, но бузрезультатно |
#23
|
|||
|
|||
Цитата:
тебе проще компонент найти типа Jvcl а код готовый тибе смысла давать нет - всеравно не скомпилируеш проще самому написать а хотя на http://www.delphitips.net/2007/04/01...system-hotkey/ Последний раз редактировалось robt, 04.05.2012 в 21:43. |
#24
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#25
|
|||
|
|||
Цитата:
|
#26
|
|||
|
|||
Цитата:
и в чём беда Код:
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. |
#27
|
|||
|
|||
Цитата:
можно както внятней мысли выражать? Control+A у тебя зареган как хоткей to angvelem вот как с такими общаться? Последний раз редактировалось robt, 04.05.2012 в 22:00. |
Этот пользователь сказал Спасибо robt за это полезное сообщение: | ||
illya05 (04.05.2012)
|
#28
|
|||
|
|||
Цитата:
моюшмать спс!!!!! |
#29
|
||||
|
||||
Цитата:
P.S. Для информации: читаем правила форума и потом не обижаемся на возможные санкции. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
illya05 (04.05.2012)
|
#30
|
|||
|
|||
Цитата:
у меня певыходит F2 зарегать Код:
procedure TForm1.FormCreate(Sender: TObject); const MOD_CONTROL = 2; VK_F2 = 113; begin hotkey1 := GlobalAddAtom('Hotkey1'); RegisterHotKey(handle, hotkey1, VK_F2); end; |