1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| procedure TForm1.Button1Click(Sender: TObject);
var
monhandle : integer;
child : integer;
rechild : integer;
handle : integer;
Begin
monhandle := FindWindow(Nil,'Titre De Ma Fenêtre');
Label1.Caption := IntToHex(monhandle, 8);
child := FindWindowEX(monhandle, 0,'ATL:00B66010', 0);
Label2.Caption := IntTohex(child, 8);
rechild := FindWindowEX(child, 0,'ATL:00B66010', 0);
Label5.Caption := IntTohex(rechild, 8);
handle := FindWindowEX(rechild, 0,'ATL:00B64EC8', 0);
Label7.Caption := IntTohex(handle, 8);
end; |
Partager