Цитата:
Сообщение от Pilot_Red
wnd как находишь??
Адресок то нужный нашел??
|
Код:
procedure TForm1.zahvatClick(Sender: TObject);
begin
hwndtmr.Enabled:= Not(hwndtmr.Enabled);
end;
procedure TForm1.hwndtmrTimer(Sender: TObject);
begin
if (getasynckeystate($24)<>0) then //условия на то чтоб было нажатие кнопки
begin
GetCursorPos( Pos ); //определяет координаты курсора
Wnd:= WindowFromPoint( Pos );//запоминает хвид окна который под курсорам
hwndtmr.Enabled:= Not(hwndtmr.Enabled);
ShowMessage('окно захваченно!');
hwndpole.Caption:=inttostr(wnd);
end
end;
хэндл окна находи правельно и pid тоже вроде правельно
а какой адресок надо еще искать?