Fórum Name ou ID de componente de outro programa #517650
23/04/2015
0
Olá pessoal, preciso desenvolver uma rotina na qual eu descubra o name ou alguma identificação única dos componentes de qualquer outro sistema.
Eu consegui mais ou menos através do código a seguir em um timer mas não funcionou direito, e não queria que fosse em um timer, e sim no próprio evento click do mouse
Eu consegui mais ou menos através do código a seguir em um timer mas não funcionou direito, e não queria que fosse em um timer, e sim no próprio evento click do mouse
var
p: TPoint;
i: THandle;
s: array [0 .. 2047] of char;
X: Integer;
begin
if Mouse.MousePresent then
begin
GetCursorPos(p);
i := WindowFromPoint(p);
edt1.text := intToStr(i);
s := '';
GetWindowText(i, s, X);
edt2.text := s;
end;
end;
Cauê Nishijima
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)