[M.A.D.M.A.N.]

Код:

findwindow('caption','classname');

Можно еще и по положению курсора хукать

Код:

getcursorpos(p);
h:=WindowFromPoint(p);

получить заголовок и имя класса

Код:

Buffer : array[0..255] of char;
   aSize : DWORD;

GetWindowText(h, buffer, sizeof(buffer));
captioned.Text:=buffer;

getclassname(h, buffer, sizeof(buffer));
classed.Text:=buffer;