Click to color

[L.Morgan]

Как программно сделать клик по заданому цвету пикселя?
Например когда появляется определенный цвет нужно чтоб по нему Призводилcя щелчок левой кнопкой мыши. Помогите очень нуно...

[Terran]

Сообщение от L.Morgan

Как программно сделать клик по заданому цвету пикселя?
Например когда появляется определенный цвет нужно чтоб по нему Призводилcя щелчок левой кнопкой мыши. Помогите очень нуно...

Можете сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
SetCursorPos(X,Y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
End;

[L.Morgan]

мм... нет! Например у меня есть цвет #9595da (R 149,G 149,B 218) мне нужна штоб при появлении етого цвета на мониторе, в ето место делался клик левой кнопкой. Прошу помогите очень нужно!

[QunneD]

Ты в первом посте задал вопрос совсем по другому, как мы поняли так и помогли. Terran тебе показал как делать... а теперь ты совсем другое говоришь! Раньше надо было говорить, теперь жди тех кто захочет помочь.

[BOBAH13]

Делаем поток отдельный, или в главном если там ниче больше не работает, потом цикл (только что подобное писал)

while not Terminated do
begin
  // создаем или уже где-либо храним HBITMAP размеров в экран
  // createdibsection указывая указатель на биты
  // потом тут же зная битность изображения и указатель на битовый образец
  // начинаем сканить по типу PRGBTriple (для 24 битности) и в цикле от 0
  // до GetSystemMetrics(SM_CXSCREEN) * ...SM_CYSCREEN * 3 (24/8) - 1
  // в нем получаем каждый пиксель т.е. PRGBTriple (r, g, b) состовляющие
  // сравниваем через потипу if либо всего цвета $da9595 или по каждой состовляющей
  // потом получаем курсор GetCursorPos и окно подним GetWindowFromPoint
  // посылаем туда сообщения Post(Send)Message WM_LBUTTONDOWN и WM_LBUTTONUP
  // Вызываем Sleep(1) для снятия загрузки процессора
end;

Все

[L.Morgan]

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

Ты в первом посте задал вопрос совсем по другому, как мы поняли так и помогли. Terran тебе показал как делать... а теперь ты совсем другое говоришь! Раньше надо было говорить, теперь жди тех кто захочет помочь.

Я просто уточнил задачу на примере.

Я в Delphi токо 3 день, токо учусь. Уважаемый BOBAH13 не могли б Вы прикрепить готовый исходник етого кода)

[mihali4]

Вообще-то - "предупреждать надо!"
Готовый исходник...
А вы что... Совсем... Или привычка к халяве преобладает?
Тогда - не к месту. В следующий раз задавайте вопрос в разделе "Помощь студентам" - все халявщики тусуются там.
Нет. Попадаются и "залетные", которые хотят действительно чему-то научиться...
Это не про вас?

[Stilet]

Интересно а зачем это автору...
Задача странная, не представляю где ее можно применить.

[Google[Bot]]

Может он так думает в контру играть, или в что-то другое...
Своей раненой фантазией я только такое могу придумать...

[L.Morgan]

Да ето уже не важно, потому что никто код не хочет накинуть...