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ú