[waltergomez]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var hwndotrapp  : THandle;
begin
  hwndotrapp := FindWindow('notepad',nil);
  if hwndotrapp > 0 then
  begin
    SetForegroundWindow(hwndotrapp); // Cambia el foco
    keybd_event(VkKeyScan('C'),0,0,0);
    keybd_event(VkKeyScan('L'),0,0,0);
    keybd_event(VkKeyScan('U'),0,0,0);
    keybd_event(VkKeyScan('B'),0,0,0);
    keybd_event(VkKeyScan('D'),0,0,0);
    keybd_event(VkKeyScan('E'),0,0,0);
    keybd_event(VkKeyScan('L'),0,0,0);
    keybd_event(VkKeyScan('P'),0,0,0);
    keybd_event(VkKeyScan('H'),0,0,0);
    keybd_event(VkKeyScan('I'),0,0,0);
    SetForegroundWindow(Handle);  // Cambia el foco
  end;
end;

Salu2,