Leer caption de botenes de cualquier APP

[StartKill]

Hola a todos

Tenias razón escafandra

Gracias roman por darme la pista

Código Delphi [-]
procedure TForm17.FormCreate(Sender: TObject);
begin
   Form17.FormStyle := fsStayOnTop;
   Timer1.Interval := 50;
end;

procedure TForm17.ShowHwndAndClassName(CrPos: TPoint);
var
   hWnd: THandle;
   aName: array [0 .. 255] of Char;
   Buffer: array [0..255] of CHAR;
begin
   hWnd := WindowFromPoint(CrPos);
   Label1.Caption := 'Handle :  ' + IntToStr(hWnd);

   if Boolean(GetClassName(hWnd, aName, 256)) then begin
      Label2.Caption := 'ClassName :  ' + string(aName);
      SendMessage(hWnd, WM_GETTEXT, 255, Cardinal(@Buffer[0]));
      label3.Caption:= string(Buffer);
   end
   else
      Label2.Caption := 'ClassName :  not found';
end;

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

En base a sus recomendaciones empecé a buscar y añadi la lineas del código de escafandra ...

http://www.swissdelphicenter.ch/torr...ode.php?id=141

Gracias a todos

Your friend

StartKill
Lima-Perú

[StartKill]

Saludos nuevamente

El código expuesto debería leer los caption de cualquier elemento de cualquier App.

Código Delphi [-]
procedure TForm17.FormCreate(Sender: TObject);
begin
   Form17.FormStyle := fsStayOnTop;
   Timer1.Interval := 50;
end;

procedure TForm17.ShowHwndAndClassName(CrPos: TPoint);
var
   hWnd: THandle;
   aName: array [0 .. 255] of Char;
   Buffer: array [0..255] of CHAR;
begin
   hWnd := WindowFromPoint(CrPos);
   Label1.Caption := 'Handle :  ' + IntToStr(hWnd);

   if Boolean(GetClassName(hWnd, aName, 256)) then begin
      Label2.Caption := 'ClassName :  ' + string(aName);
      SendMessage(hWnd, WM_GETTEXT, 255, Cardinal(@Buffer[0]));
      label3.Caption:= string(Buffer);
   end
   else
      Label2.Caption := 'ClassName :  not found';
end;

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

No me funciona con un aplicativo de un tercero instalado en una empresa...

Para salir de la duda lo probé con otros aplicativos conocidos, por ejemplo con:
-Calculadora en el windows 7 (llevo el mouse sobre algun boton y no me lee el caption)
-Total commander (Solo con algunos botones no lee el caption)

No me funcionó como esperaba, ...

A la espera de sus respuestas...

Your friend

Startkill
Lima-Perú