Код:
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;