[Помогите!] Глобальная горячая клавиша

[darkivlad]

после procedure TForm1.WMHotKey(var Msg: TWMHotKey);
вставь button2.click;
у тебя он на кнопку не нажимает

[Dopstatus]

всем спасибо за помощь, все получилось, но возник следующий вопрос возможно ли изменять значение
здесь
keybd_event('3'), MapVirtualKey(ord('[COLOR="rgb('3'), 0), 0, 0);
keybd_event(ord('3'), 0, KEYEVENTF_KEYUP, 0)
с помощью переменных заданными edit или же listbox ?

[Zo_Om4eG]

Dopstatus,

keybd_event(edit1.text[1]), MapVirtualKey(ord((edit1.text[1]), 0), 0, 0);
keybd_event(ord(edit1.text[1]), 0, KEYEVENTF_KEYUP, 0)

[Dopstatus]

спасибо большое, но проблема в том что у меня не получается именно что бы 1 поле и f1 клацало и просто 1

[fds255]

Цитата: Сообщение от Dopstatus ну так...что у кого могут быть какие идеи, почему не работают горячие клавиши ?

Попробуй так:

все также как в сообщении Zo_Om4eG, единственное измени так:

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
   ShowMessage('Alt+F1 нажата'); // тогда выводим сообщение
end;

Цитата: Сообщение от Dopstatus проблема в том что у меня не получается именно что бы 1 поле и f1 клацало и просто 1

Попробуй нажимать так:

 SendMessage(HWND, WM_KEYDOWN, $31, 0);
 SendMessage(HWND, WM_KEYUP,$31, 0);

Нажатие цифры 1, HWND - хэндл окна PW

Цитата: Сообщение от darkivlad циклы здесь нужны для таймеров Добавлено через 3 минуты плюс нафига столько таймеров если можно поставить всё один? это конечно если интервал у тебя один

Цитата: Сообщение от Dopstatus а как ты по другому организуешь? кликание клавиш с разным интервалом и разными клавишами ?

Ребята, ребята, что же вы делаете, такое количество таймеров проц грузанет не хуже клиента PW.

Можно же просто ввести переменную и все например:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

CB1:=CB1+300;//переменная для Edit1
if CB1>=strtoint(Edit1.Text) then
begin
CB1:=0;
SendMessage(HWND, WM_KEYDOWN, $31, 0); //нажать цифру 1
SendMessage(HWND, WM_KEYUP,$31, 0);
end;

CB2:=CB2+300;//переменная для Edit2
if CB2>=strtoint(Edit2.Text) then
begin
CB2:=0;
SendMessage(HWND, WM_KEYDOWN, $35, 0); //нажать цифру 5
SendMessage(HWND, WM_KEYUP,$35, 0);
end;

end;

Тайминг таймера 300 мс.

так будет намного быстрее и ничего перегружаться не будет