Area de Transferencia
08/03/2006
0
Foxcyber
Posts
08/03/2006
Adriano Santos
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;
08/03/2006
Adriano Santos
Desculpe.
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;
08/03/2006
Michael
Memo1.CopyToClipboard;
E se quiser fazer ´na mão´:
uses Clipbrd; ... begin Clipboard.AsText := ´Texto copiado para a área de transferência´; end;
Se vc quiser usar isso para trocar dados entre sua aplicação e outra, como o Notepad, por exemplo - então a dica do [b:6a5a5691a7]Adriano [/b:6a5a5691a7]é mais interessante.
[]´s
08/03/2006
Adriano Santos
Memo1.CopyToClipboard;
uses Clipbrd; ... begin Clipboard.AsText := ´Texto copiado para a área de transferência´; end;
Oi [b:9a2e1c40b9]Michael[/b:9a2e1c40b9], sabe que quase nunca lembro das funções que você mencinou? :P.
[]s
FoxCyber, acho que isso te ajuda, mas se ainda tiver algum problema pode contar...flw.
Clique aqui para fazer login e interagir na Comunidade :)