[Eshelon]

Вообщем, учусь в Универе на втором курсе. В Беларуси.
Попался какой-то строгий препод.
И вот первое задание по К.Р попалось просто ппц.

Требуется вообщем:
Создать программу
Которая бы определяля цвет пикселя ввиде #323223 ( ну как в фотошопе)
потом перемещала бы курсор мыши на етот пиксель, кликала мышкой
т.е получается своего рода эмуляция какае-то.
после чего эмулировала нажатие клавиши 1.

Обязательное требование: поле в котором можно было бы yказать цветовой код пикселя и программа после нажатия кнопки старт повторяла бы выше перечисленные действий n-ое кол-во раз.

Желательно с пояснениями. (А то мало ли он у меня спросит зачем здесь то зачем здесь ето...)
Помогите, умоляю.Заранее благодарен, Андрей.

[hkdkest]

интересно посмотреть на такую программу было бы )

[ApplicatiOn]

да, конечно озадачил тебя препод...

эмулировать можно посредством key_event, и мышью кликнуть и кнопку можно нажать так: Button.click.

с пикселем надо рыть где-то тут: функция GetPixel

а вот нагуглил пример в помощь

Код:

bmp := TBitmap.Create;
bmp.Width := 1; bmp.Height := 1; bmp.PixelFormat := pf32bit;

...
var c: TColor; dc: cardinal; p: TPoint;
begin
 GetCursorPos(p);
 dc := GetDC(0);
 BitBlt(bmp.Canvas.Handle,0,0,1,1,dc,p.x,p.y,SRCCOPY);
 releasedc(0,dc);
 c := pinteger(bmp.Scanline[0])^;
 c := ((c and $FF) shl 16) or (c and $FF00) or ((c shr 16) and $FF);
 <делаем с цветом "с" че хотим>
end;

lmikle: Тегами будем пользоваться? Или на месяц в read only?

выдает цвет ПОД курсором. может поможет)

[Eshelon]

Совсем забыл уточнить определять пиксель он должен не с битмапа а с экрана.
а так впринципе начало не плохое...