Z
zxp_ping
Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
procedure TfrmMouse.Timer1Timer(Sender: TObject);
var
nowpoint :TPoint;
nowhand :HWND;
WndCaption: array[0..254] of char;
WndClassName: array[0..254] of char;
buffer: array[0..254] of char;
begin
GetCursorPos(nowpoint);
lbx.Caption := IntToStr(nowpoint.x);
lby.Caption := IntToStr(nowpoint.y);
nowhand := WindowFromPoint(nowpoint);
GetWindowText(nowhand, @WndCaption, 254);
GetClassName(nowhand, @WndClassName, 254);
lbClass.Caption := StrPas(WndClassName);
if ((UPPerCase(lbClass.Caption) = 'EDIT') or (UPPerCase(lbClass.Caption) = 'COMBOBOX')
or (UPPerCase(lbClass.Caption) = 'TCOMBOBOX') or (UPPerCase(lbClass.Caption) = 'TEDIT')) then
begin
SendMessage(nowhand,WM_GETTEXT,254,Integer(@buffer[0]));
lbCaption.Caption := StrPas(buffer);
end
else
lbCaption.Caption := StrPas(WndCaption);
end;