Po pierwsze to jak cokolwiek piszesz używaj www.so.pwn.pl bo się nóż w kieszeni otwiera jak widzę "skrut".
Po drugie zgodnie z poniższym linkiem zrób sobie taki program jak poniżej, pokaże Ci się w labelu tekst, ale
tylko ze standardowych kontrolek edycyjnych. Na przykład pod Operą nie zobaczysz tekstów z pół edycyjnych.
http://www.delphitricks.com/source-code/windows/get_handle_and_class_name_from_the_current_mouse_pos.html
I jak zrobić sobie globalny HotKey po którego wciśnięciu masz wykonywaną jakiś kod, masz opisane na wielu
stronach w googlach. Na przykład tutaj masz: http://www.swissdelphicenter.ch/torry/showcode.php?id=147
//...
public
procedure ShowHwndAndClassName(CrPos : TPoint);
end;
var
Form1 : TForm1;
implementation
{$R *.dfm}
procedure TForm1.ShowHwndAndClassName(CrPos : TPoint);
var
hWnd : THandle;
aName, Text : array[0..255] of char;
begin
hWnd := WindowFromPoint(CrPos);
Label1.Caption := 'Handle : ' + IntToStr(hWnd);
if boolean(GetClassName(hWnd, aName, 256)) then
Label2.Caption := 'ClassName : ' + string(aName)
else
Label2.Caption := 'ClassName : not found';
SendMessage(hWnd, WM_GETTEXT,
SizeOf(Text), integer(@Text));
Label3.Caption := 'Text :' + Text;
end;
procedure TForm1.FormCreate(Sender : TObject);
begin
Form1.FormStyle := fsStayOnTop;
Timer1.Interval := 50;
end;
procedure TForm1.Timer1Timer(Sender : TObject);
var
rPos : TPoint;
begin
if boolean(GetCursorPos(rPos)) then
ShowHwndAndClassName(rPos);
end;