Ir al contenido


Foto

Capturar el texto seleccionado en una ventana


  • Por favor identifícate para responder
1 respuesta en este tema

#1 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4.107 mensajes
  • LocationMadrid - España

Escrito 18 febrero 2015 - 11:14

Me pareció interesante capturar como truco el código con el que respondí esta cuestión, aqui lo dejo:
 


delphi
  1. function GetSelText(hWnd: THANDLE): String;
  2. var
  3.   Buffer: PCHAR;
  4.   Size, Ini, Fin: DWORD;
  5. begin
  6.   Size:= SendMessage(hWnd,  WM_GETTEXTLENGTH, 0, 0)+1;
  7.   GetMem(Buffer, Size);
  8.   SendMessage(hWnd, WM_GETTEXT, WPARAM(Size), LPARAM(Buffer));
  9.   SendMessage(hWnd, EM_GETSEL, WPARAM(@Ini), LPARAM(@Fin));
  10.   Buffer[Fin]:= #0;
  11.   Result:= (Buffer + Ini);
  12.   FreeMem(Buffer);
  13. end;


Saludos.


  • 0

#2 poliburro

poliburro

    Advanced Member

  • Administrador
  • 4.945 mensajes
  • LocationMéxico

Escrito 18 febrero 2015 - 12:29

Gracias por el aporte amigo...  (y)
  • 0




IP.Board spam blocked by CleanTalk.