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;
Saludos.