Нажатие клавиш

HWND hwnd;
hwnd:: FindWindow(NULL,"Unknown WIndow");
if(hwnd!=NULL){
::SendMessage(hwnd,WM_CLOSE,NULL,NULL);     //закрываем некое окно.
 
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
HWND hwndMain=FindWindow(NULL,"Калькулятор Плюс");
if (hwndMain)
{
SendMessage((HWND)hwndMain, WM_COMMAND, 97, 0);
}
}

SendMessage(hwndMain, WM_KEYDOWN, 0x67, 0);
SendMessage(hwndMain, WM_KEYUP, 0x67, 0);

keybd_event(VK_SPACE, 0,0,0);//нажатие
keybd_event(VK_SPACE, 0,KEYEVENTF_KEYUP,0);//отпускание

HWND
  hwndN;
 
if(hwndN=FindWindow("Notepad","Untitled - Notepad"))
{
   HWND
     hwndE;
 
   if(hwndE=FindWindowEx(hwndN,0,"Edit",""))
   {
      SHORT
        Key=VkKeyScan('q')&0x000ff;
 
      UINT
        ScanCode=MapVirtualKey(Key,0);
 
      LPARAM
               lParam=0;
 
      lParam|=1;
      lParam|=ScanCode<<16;
      PostMessage(hwndE,WM_KEYDOWN,Key,lParam);
 
      lParam=0;
      lParam|=1;
      lParam|=ScanCode<<16;
      lParam|=1<<30;
      lParam|=1<<31;
      PostMessage(hwndE,WM_KEYUP,Key,lParam);
 
      //keybd_event(Key,ScanCode,0,0);
      //keybd_event(Key,ScanCode,KEYEVENTF_KEYUP,0);
    }
}