Fórum Area de Transferencia #315368

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
  i: Integer;
  s: string;
begin
  wnd := FindWindow(nil, ´Form2´);
  if wnd <> 0 then
  begin
    for i := 0 to TApplication(wnd).ComponentCount - 1 do
    begin
      if TForm(wnd).Components[i] is TEdit then
        TEdit(TForm(wnd).Components[i]).Text := ´Ola´;
    end;
    wnd := FindWindowEx(wnd,0,´Edit1´,nil);

    s := ´Seu Texto para ser escrito no bloco de notas :))´;
    For i := 1 to Length(s) do
      SendMessage(wnd, WM_CHAR, Word(s[i]), 0);

    PostMessage(wnd, WM_KEYDOWN , VK_RETURN, 0); 
    PostMessage(wnd, WM_KEYDOWN , VK_SPACE, 0);  {ESPAÇO}
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  NotePad, Edit: HWND;
  I : Integer;
  Linha : String;
begin
  NotePad := FindWindow(´Notepad´, nil);
  if NotePad <> 0 then
  begin
    Edit := FindWindowEx(NotePad, 0, ´Edit´, nil);
    if Edit <> 0 then
    begin
      Linha := Memo1.Lines.Text;
      for I := 0 to Length(Linha) do
        PostMessage(Edit, WM_CHAR, Ord(Linha[I]), 0);
    end;
  end;
end;

Memo1.CopyToClipboard;

uses Clipbrd;
...
begin
  Clipboard.AsText := ´Texto copiado para a área de transferência´;
end;