Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Capturar el texto seleccionado en una ventana

Started by escafandra , Feb 18 2015 11:14 AM

Please log in to reply

1 reply to this topic

#1 escafandra

Advanced Member

Administrador
4107 posts

LocationMadrid - España

Posted 18 February 2015 - 11:14 AM

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

delphi

function GetSelText(hWnd: THANDLE): String;
var
  Buffer: PCHAR;
  Size, Ini, Fin: DWORD;
begin
  Size:= SendMessage(hWnd,  WM_GETTEXTLENGTH, 0, 0)+1;
  GetMem(Buffer, Size);
  SendMessage(hWnd, WM_GETTEXT, WPARAM(Size), LPARAM(Buffer));
  SendMessage(hWnd, EM_GETSEL, WPARAM(@Ini), LPARAM(@Fin));
  Buffer[Fin]:= #0;
  Result:= (Buffer + Ini);
  FreeMem(Buffer);
end;