Pegar texto do Bloco de Notas

02/08/2003

0

Eu preciso de pegar o texto que o usuário digitou no Bloco de Notas, eu tentei pegar o texto da janela, mas não deu certo...
Eu estou usabdo o seguinte código:
var
  Pai,Txt: HWND;
  pc: array[0..63]of char;
begin
  Pai:=FindWindow(´Notepad´,nil);
  Txt:=GetNextWindow(Pai,GW_CHILD);
  GetWindowText(Txt,@PC,63);
  Memo1.Text:=StrPas(@PC);
end;

Alguém sabe se há como fazer isso?


Desde já agradeço.

Vinicius.


Fórum Vini

Fórum Vini

Responder

Posts

02/08/2003

Fórum Vini

Já consegui, usei esse código:
var
  Pai,Txt: HWND;
  pc: array[0..63]of char;
begin
  Pai:=FindWindow(´Notepad´,nil);
  Txt:=GetNextWindow(Pai,GW_CHILD);
  SendMessage(Txt,WM_GETTEXT,63,Integer(@PC));
  Memo1.Text:=StrPas(@PC);
end;



Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar