Comunicando com outra aplicação

Fonte: www.activedelphi.com.br

Essa dica explicando como enviar, ou pelo menos simular o envio, de certa mensagem a um aplicativo externo, como o MSN Messenger, ou qualquer outra aplicação que você gostaria que seu software comunicasse.

Alguns aplicativos são protegidos para não receber mensagens externas, e a maneira mais fácil de "burlar" essa proteção é fazendo com que o software imagine que o usuário que esta fazendo certo procedimento.

Então criaremos a seguinte função :

procedure ProcKey(K: Char);
var
  C: Char;
const
  ShiftKeys: array[1..18] of String = ('!',\@\, '#', '$', '%', '&', '*', '(', ')','_', '+', '{', '}', '|', '<', '>', ':', '?');
SKValues: array[1..18] of Char = ('1', '2', '3', '4', '5', '7', '8', '9', '0','-', '=', '[', ']', '\', ',', '.', ';', '/');
function SK: Boolean;
  var X: Integer;
  begin
    Result := True;
    for X := 1 to 18 do if ShiftKeys[X] = K then
    begin
      C := SKValues[X];
      exit;
    end;
    Result := False;
  end;
  begin
    if (K in ['a'..'z', '0'..'9', #32, '.', ',']) then keybd_event(VkKeyScan(UpCase(K)), 0, 0, 0)
    else if (K in ['A'..'Z']) then
    begin
      { Pressiona o shift }
      keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
      { Tecla a letra }
      keybd_event(VkKeyScan(UpCase(K)), 0, 0, 0);
      { Solta o shift }
      keybd_event(VK_SHIFT, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
    end
    else if SK then
    begin
      { Pressiona o shift }
      keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
      { Tecla a letra }
      keybd_event(VkKeyScan(C), 0, 0, 0);
      { Solta o shift }
      keybd_event(VK_SHIFT, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
    end;
  end;


  Esta função fica responsável pela simulação do pressionamento de alguma tecla, fazendo com que o controle ativo receba tal caractere.

  Para podermos digitar toda uma frase é só fazer um loop ... Por exemplo, temos uma constante Texto com o valor 'Artigo para aprendizado', e gostaríamos de que quando o usuário estiver visualizado uma janela que possua tal palavra em seu título, ele digite essa mensagem e tecle enter, no caso do MSN para que ela seja enviada, faríamos da seguinte maneira :


  var Texto : string;
    x: integer;
  begin
    Texto := edit1.Text;

    while True do
    begin
      if GetForegroundWindow = FindWindow(nil, '(co) Mauro (co)') then
      begin
        for X := 1 to Length(Texto) do ProcKey(Texto[X]);
        keybd_event(13, 0, 0, 0);
      end;
      Application.ProcessMessages;
    end;

  end;

  A rotina acima faz um loop na constante Texto ... quando a janela ativa for a janela que tiver o titulo igual a (co) Mauro (co), digitando os caracteres e mandando a mensagem com o pressionamento do enter.