Перемещени курсора на цвет пикселя

@romka1608 · Регистрация: 22.08.2013

Студворк — интернет-сервис помощи студентам

мне нужно когда я нажимаю Mouse1(НЕ ТОЛЬКО В ПРОГРАММЕ,а И НА РОБОЧЕМ СТОЛЕ ,к примеру),
то курсор перемещаеться на цвет пикселя пиксель

Добавлено через 10 минут
иСпользую этот код

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
    hwnd:THandle;
    p:Tcolor;
    i,j:integer;
    bit:TBitmap;
    flag:boolean;
    pos:tpoint;
begin
flag:=false;   // флаг выхода из первого цикла
p:=rgb(183,187,185);
bit:=TBitmap.Create;
bit.Width := Screen.Width;
bit.Height := Screen.Height;
hwnd:=FindWindow(nil, 'имя окна');
BitBlt(bit.Canvas.Handle, 0, 0, Width, Height, GetDC(hwnd), 0, 0,SRCCOPY );
 
for i:=0 to bit.Width do begin
  for j:=0 to bit.Height do
    if bit.Canvas.Pixels[i,j]=p then begin
       flag:=true;
       break;
    end;
if flag then
  break;
end;

но после нажатие button всё зависает

27.08.2013, 22:06

Не по теме:

А на других форумах ник случайно не Speech? Уж больно код корявостью похож.

@romka1608 · 27.08.2013, 22:25 **[ТС]**

Сообщение от angstrom

Не по теме:

А на других форумах ник случайно не Speech? Уж больно код корявостью похож.

нет.
мне надо найти пиксель и нажать на него

27.08.2013, 22:28

Здесь решался похожий вопрос.

angstrom
	27.08.2013, 22:06 #2
	Не по теме: А на других форумах ник случайно не Speech? Уж больно код корявостью похож.

@romka1608 0 / 0 / 0 Регистрация: 22.08.2013 Сообщений: 22
	27.08.2013, 22:25 [ТС]	3
	Сообщение от angstrom Не по теме: А на других форумах ник случайно не Speech? Уж больно код корявостью похож. нет. мне надо найти пиксель и нажать на него 0

angstrom
	27.08.2013, 22:28	4
	Здесь решался похожий вопрос.

Опции темы