motorola
Сообщений: 64
Оценки: 0
Присоединился: 2007-11-13 19:44:42.273333
|
procedure TForm1.Timer1Timer(Sender: TObject);
var
rPos: TPoint;
begin
if Boolean(GetCursorPos(rPos)) then ShowHwndAndClassName(rPos);
end;
procedure TForm1.ShowHwndAndClassName(CrPos: TPoint);
var
hand,hand2:THandle;
clas:array[0..255] of char;
hWnd: THandle;
aName: array [0..255] of Char;
begin
clas:='';
hWnd := WindowFromPoint(CrPos);
Label1.Caption := 'Handle : ' + IntToStr(hWnd);
GetClassNameA(hwnd,clas,250);
label3.Caption:='clas:'+clas;
GetWindowText(hWnd, aName, 256);
hand:=FindWindow('clas','aName');
hand2:=FindWindowEx(hand,0,clas,aName);
Edit1.text:=inttostr(hand2);
end;
Подскажите пожалуйста у меня функцией WindowFromPoint находится hadle любого контрола,
но мне нужно найти Hande кнопки на другом компе при передачи ему по сети имени кнопки и класса приложения, функция FindWindowEx чёт нифига не работает унает hadle тока родителя. Подскажите как Можно сделать?
|
Delphi:Как Получить Handle любой кнопки в Windows - 
