Jak wykonać z zewnętrznego programu zrzut wartości?

http://www.delphitricks.com/source-code/windows/get_handle_and_class_name_from_the_current_mouse_pos.html

//...
  public
    procedure ShowHwndAndClassName(CrPos : TPoint);
  end;

var
  Form1 : TForm1;

implementation

{$R *.dfm}

procedure TForm1.ShowHwndAndClassName(CrPos : TPoint);
var
  hWnd : THandle;
  aName, Text : array[0..255] of char;
begin
  hWnd := WindowFromPoint(CrPos);
  Label1.Caption := 'Handle : ' + IntToStr(hWnd);
  if boolean(GetClassName(hWnd, aName, 256)) then
    Label2.Caption := 'ClassName : ' + string(aName)
  else
    Label2.Caption := 'ClassName : not found';
  SendMessage(hWnd, WM_GETTEXT,
    SizeOf(Text), integer(@Text));
  Label3.Caption := 'Text :' + Text;
end;

procedure TForm1.FormCreate(Sender : TObject);
begin
  Form1.FormStyle := fsStayOnTop;
  Timer1.Interval := 50;
end;

procedure TForm1.Timer1Timer(Sender : TObject);
var
  rPos : TPoint;
begin
  if boolean(GetCursorPos(rPos)) then
    ShowHwndAndClassName(rPos);
end;

To retrieve the text of a control in another process, send a WM_GETTEXT message directly instead of calling GetWindowText.