да, конечно озадачил тебя препод...
эмулировать можно посредством 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?
выдает цвет ПОД курсором. может поможет)