имитация нажатия клавиши

[megostudent]

как имитировать нажатие клавиши "1", "2" и так до "0"?

[Вадим Мошев]

ЧТо вы имеете в виду?

[megostudent]

ну как программно нажать единичку
или как правильно нажать и отжать.

Mouse_Event(MOUSEEVENTF_LEFTDOWN, strtoint(Edit2.Text), strtoint(Edit3.Text), 0, 0); //нажать левую кнопку мыши
Mouse_Event(MOUSEEVENTF_LEFTUP, strtoint(Edit2.Text), strtoint(Edit3.Text), 0, 0); // отпустить левую кнопку мыши
эт имитация нажатия ЛКМ, а как такую же сделать ток с "1" - "0" клавишами??

[wowsel]

Я думаю надо искать в Windows API

[megostudent]

а подробнее можно?

[Jaguar83]

keybd_event($31, 0, 0, 0);
keybd_event($31, 0, KEYEVENTF_KEYUP, 0);

{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }

[megostudent]

keybd_event($31, 0, 0, 0);
keybd_event($31, 0, KEYEVENTF_KEYUP, 0);

этот код я юзал. но он мне нажимает цифры ток в текстовых документах почемут, а в игрухе которой меня попросили попробовать сделать такую прогу, эти клавиши не работают( может стоит привязать чтобы прога работала ток с окном игры. может над привязать прогу к хендлу окна в котором она должна пахать. если да, то как?

[megostudent]

SetWindowText(FindWindow(nil, 'Мой компьютер'),
    'Не мой компьютер');

вот нашел как хендл меняется, а как его привязать к самому условию?