[Alloc]

Приветствую!

Очень прошу понимающих людей объяснить мне как реализовать поставленную задачу.

Определить цвет пикселя (одного) не проблема, цвет программа определяет мгновенно, а вот если мониторить сразу 4 - проблема.. программа часто не срабатывает при нахождение цвета...

Я делаю так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73

var   bmp: TBitmap;   h1: HWND;   DC: HDC;   dx,dy,fx,fy,jx,jy,kx,ky: Integer;   procedure TForm1.FormCreate(Sender: TObject); begin   bmp := TBitmap.Create;   bmp.Width := 1; bmp.Height := 1;   bmp.PixelFormat := pf32bit; end;   procedure TForm1.FormDestroy(Sender: TObject); begin   ReleaseDC(h1,DC); end;   procedure TForm1.btn1Click(Sender: TObject); begin   h1 := FindWindow(ProgName, nil);   DC := GetDC(FindWindow(ProgName,''));       //Если программа запущена задаем координаты которые будем проверять. Кстати таймеры все стоят на интервале равным = 1   if h1 <> 0 then      begin        dx:=646;        dy:=715;        fx:=724;        fy:=715;        jx:=802;        jy:=715;        kx:=843;        ky:=715;          //Включаем таймеры которые будут это делать (каждый будет смотреть свой пиксель)          tmr1.Enabled:=True;        tmr2.Enabled:=True;        tmr3.Enabled:=True;        tmr4.Enabled:=True;      end else      begin        ShowMessage('Game Not Started');      end; end;   //Таких таймеров 4 штуки. Код в них похож, только координаты пикселей разные и сравниваемый цвет.   procedure TForm1.tmr1Timer(Sender: TObject); var   c: TColor;   rr,gg,bb: Integer; begin   BitBlt(bmp.Canvas.Handle,0,0,1,1,dc,dx,dy,SRCCOPY);   //releasedc(h1,dc);   c := pinteger(bmp.Scanline[0])^;   c := ((c and $FF) shl 16) or (c and $FF00) or ((c shr 16) and $FF);   rr:=GetRValue(c);   gg:=GetGValue(c);   bb:=GetBValue(c);     if (rr>80) and (gg>80) and (bb>100) then EmulateKey(h1, Ord('D'));   end;   ... procedure TForm1.tmr2Timer(Sender: TObject); ... procedure TForm1.tmr3Timer(Sender: TObject); ... procedure TForm1.tmr4Timer(Sender: TObject); ...

Если один таймер стоит - все работает. Два - более или менее тоже а вот 4 уже то срабатывает то нет...
Как лучше и правильнее сделать? Я буду вам очень благодарен за помощь.