[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ú