Como Saber O Nome Da Janela Em Que O Cursor Do Mouse Está Posicionado

[Denso]

alguém ae sabe como eu posso emplementar esse code abaixo pra saber qual é o nome da janela em que a seta do mouse está posiicionada????

até agora consegui esse code :

On-Procedure;
var
    H: HWND;
    nomeJanela: Array[0..255] of Char;
begin
H:=Handle;
while H > 0 do
    begin
    if IsWindowVisible(H) then
        begin
        GetWindowText(H,nomeJanela,SizeOf(nomeJanela));
        if nomeJanela <> '' then
            memo1.lines.add('Nome: ' + nomeJanela);
        end;
    H:=GetNextWindow(H,GW_HWNDNEXT);
    end;
end;

mais esse code pega o nome de todas janelas ativas no pc e adiciona no memo1....eu quero conseguir fazer um que adicione no memo1 só o nome da janela que está na seta do mouse (q está sendo visualizada naquele momento)

Alguém ai tem alguma dica ???

Editado Outubro 2, 2007 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[Jhonas]

Ai vai a dica:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var 
  H: HWND; 
  WindowName: Array[0..255] of Char; 
  ClassName: Array[0..255] of Char; 
begin 
  H := GetForegroundWindow; 
  GetWindowText(H, WindowName, SizeOf(WindowName));
  GetClassName(H, ClassName, SizeOf(ClassName)); 
  Label1.Caption := 'Nome-> '+WindowName+' / Classe-> '+ClassName;
end; 
end.

[Micheus]

Jhonas, supondo que ele citou "saber qual é o nome da janela em que a seta do mouse está posiicionada", acho que este código traria apenas o nome da tela atualmente com o foco - possivelmente, a janela em que o cursor (chama-se ponto de inserção, na verdade) está posicionado. (me corrija se estiver errado).

[Jhonas]

Micheus .. concordo com voce, mas entendi que ele quer o nome da janela em foco ( ativa ) é isto ? e pelo codigo que ele postou , dexei pra ele mostar apenas um nome. Só se entendi errado ...

[Denso]

vlww jhonas e micheus =D

essa dica q você me passou jhonas, já está me dando novas idéias e já to imaginando novos recursos pra ela.....

era bem isso mesmo que eu queria, me ajudou bastante.......no natal eu lhes mandarei um frango assado com uma cidra

=]