Событие нажатия клавиши с помощью button

[lehius89]

Здравствуйте. Подскажите пожалуйста кому не трудно, как нажать Insert и Ctrl + Delete c помощью процедуры нажатия button
коды клавишь контрл-17, инсерт-45, дел-46
Зарание спасибо

[mihali4]

"А зачем нам кузнец? Нам кузнец не нужен!" (это я про коды )
Как нажать Ctrl+Del программным путем

keybd_event(vk_control, 0, 0, 0);
keybd_event(vk_delete, 0, 0, 0);
keybd_event(vk_delete, 0, KEYEVENTF_KEYUP, 0);
keybd_event(vk_control, 0, KEYEVENTF_KEYUP, 0);

++++++++++++++++++++++++++++++++

keybd_event(vk_control, MapVirtualKey(vk_control, 0),  0, 0);
keybd_event(vk_delete, MapVirtualKey(vk_control, 0), 0, 0);
keybd_event(vk_delete, MapVirtualKey(vk_control, 0), KEYEVENTF_KEYUP, 0);
keybd_event(vk_control, MapVirtualKey(vk_control, 0), KEYEVENTF_KEYUP, 0);

*********************************** *********************************** **
А буковки?

procedure tform1.ImitKeyPress(chr:char);
begin
 keybd_event(Ord(chr), MapVirtualKey(Ord(chr), 0), 0, 0);
 keybd_event(Ord(chr), MapVirtualKey(Ord(chr), 0), KEYEVENTF_KEYUP, 0);
end;

если нужно нажать, например, ctrl+a, то делаешь так:

 keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
 keybd_event(Ord('A'), MapVirtualKey(Ord('A'), 0), 0, 0);
 keybd_event(Ord('A'), MapVirtualKey(Ord('A'), 0), KEYEVENTF_KEYUP, 0);
 keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);

Ну, а про VK_INSERT, я думаю, и сами сообразите...