#include     void __fastcall TForm1::Button1Click(TObject *Sender)
{
  HWND hWnd = FindWindow(NULL,"未命名 - 記事本");
  if (hWnd)
  {
    ShowWindow(hWnd,SW_SHOWNORMAL);
    SetForegroundWindow(hWnd);
    SetActiveWindow(hWnd);
    Clipboard()->AsText = "123";
    keybd_event(VK_CONTROL,0,0,0);
    keybd_event(0x56,0,0,0);
    keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
    keybd_event(0x56,0,KEYEVENTF_KEYUP,0);
  }
  else
    ShowMessage("記事本未開啟");
}