Нажатие клавишь на клавиатуре

[kakawkin]

В общем скиньте код пожалуйста чтобы нажималась клавиша на клавиатуре.
Остатки просто есть:
if getasynckeystate($2e)<>0 then
if getasynckeystate($23)<>0 then

а сам код Sendkey($25) к примеру - пропал.

Большое спасибо

[NetSpace]

Программное нажатие клавиши

procedure TForm1.SetKey(Key:Integer);
begin
   keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
   keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);
   keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

А потом эту функцию вызываешь в программе
Например, нажать ENTER

SetKey(13);

А если вместе в клавишей CTRL, то я делаю так:

 //----- открываем диалоговое окно Paint -> CTRL+O ------------------------
      keybd_event(vk_control,0,0,0);
      keybd_event(79,0,0,0);
      keybd_event(79,0,KEYEVENTF_KEYUP,0);
      keybd_event(vk_control,0,KEYEVENTF_KEYUP,0);
      //----- вставляем полное имя файла в окно Paint -> CTRL+V ----------------
      keybd_event(vk_control,0,0,0);
      keybd_event(86,0,0,0);
      keybd_event(86,0,KEYEVENTF_KEYUP,0);
      keybd_event(vk_control,0,KEYEVENTF_KEYUP,0);