Управление другим приложением!

 PostMessage(ExternHandle, WM_ACTIVATE, WA_ACTIVE,0);
  PostMessage(ExternHandle, WM_SETFOCUS, 0, 0);
  PostMessage(ExternHandle, WM_CHAR, 67, 0);

   SetForegroundWindow(ExternHandle);
   SetActiveWindow(ExternHandle);
   sleep(100);
   keybd_event(67,0,0,0);
   keybd_event(67,0,keyeventf_keyup,0 );

procedure SendKeyDown(h: Hwnd; key: char);
var nKey, ScanCode, wParam: Word;
    lParam, ConvKey: longint;
begin
  ConvKey:= OemKeyScan(ord(Key));
  ScanCode:= ConvKey and $000000FF or $FF00;
  nkey:= ord(key);
  wParam:= nKey;
  lParam:= longint(ScanCode) shl 16 or 1;
  SendMessage(H, WM_KEYDOWN, nkey, lParam);
end;
 
procedure SendKeyUp(h: Hwnd; key: char);
var nKey, ScanCode, wParam: Word;
    lParam, ConvKey: longint;
begin
  ConvKey:= OemKeyScan(ord(Key));
  ScanCode:= ConvKey and $000000FF or $FF00;
  nkey:= ord(key);
  wParam:= nKey;
  lParam:= longint(ScanCode) shl 16 or 1;
  lParam:= lParam or $C0000000;
  SendMessage(H, WM_KEYUP, nkey, lParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
 var
   Inp: TInput;
   I: Integer;
 begin
 
   SetForegroundWindow(ExternHandle);
   SetActiveWindow(ExternHandle);
   sleep(100);
 
     // press
    Inp.Itype := INPUT_KEYBOARD;
     Inp.ki.wVk := Ord('C');
     Inp.ki.dwFlags := 0;
     SendInput(1, Inp, SizeOf(Inp));
 
     // release
    Inp.Itype := INPUT_KEYBOARD;
     Inp.ki.wVk := Ord('C');
     Inp.ki.dwFlags := KEYEVENTF_KEYUP;
     SendInput(1, Inp, SizeOf(Inp));
 
     Application.ProcessMessages;
     Sleep(80);
end;

 PostMessage(ExternHandle, WM_CLOSE, 0, 0);