API - capturando texto de uma edit de um outro programa

Top  Previous  Next

// capturar o texto de qualquer edit de qualquer programa:

 

// coloque o código abaixo num programa e enquando ele roda

// digite algo em qualquer outro programa. 

procedure TForm1.Timer1Timer(Sender: TObject);

var

  Pos: TPoint;

  HWin: THandle;

  Paswd: array[0..63of Char;

  R: TRect;

begin

  GetCursorPos(Pos);

  HWin := WindowFromPoint(Pos);

  if SendMessage(HWin, EM_GETSEL, 00) <> 0 then

  begin

    SendMessage(HWin, WM_GETTEXT, 64, Longint(@Paswd));

    // coloca o Texto capturado no Edit

    SetWindowText(Edit1.Handle,Paswd);

  end

end;