Скрин Код пикселя

[Federal]

Всем Привет!!!
В моей программе каждую секунду нужно брать информацию о коде цвета пикселя в координате 100,20-первый пиксель 101,20-второй пиксель
И уже в зависимости от кода цвета пикселя пограмма определяет дальнейший ход действий
Не знаю как вывести код цвета пикселя, да еще и в определенном координате экрана

[Пепел Феникса]

GetPixel, но сначало GetDC нужного окна.

[Federal]

Мне нужно скрин пикселя от экрана, т.е. не зависимо какое окно активно на данный момент, или в этом случае все равно придется искать DC окна?

[Пепел Феникса]

экран это окно с номером 0

[Federal]

var
F: Cardinal;


procedure TForm1.Button1Click(Sender: TObject);
begin
F:=GetPixel(0,200,200);
Memo1.Lines.Add(IntToHex(F,8));
end;

Что то не так, все время выходить FFFFFF =)

[Hacker19_90]

F:=GetPixel(0,200,200);

Потому что вам нужен не номер окна а его хендл. поэтому делайте так

var
F: Cardinal;


procedure TForm1.Button1Click(Sender: TObject);
begin
F:=GetPixel(GetDC(Null),200,200);
Memo1.Lines.Add(IntToHex(F,8));
end;

[Federal]

var
F: Cardinal;
C: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
C:=GetDC(0);
F:=GetPixel(C,200,200);
Memo1.Lines.Add(IntToHex(F,8));
end;

Тыкаю плюсики, спасибо!!!

[Пепел Феникса]

но сначало GetDC нужного окна.

экран это окно с номером 0

намек ясен?
читаем внимательно просто.
хотя выше тоже самое сказали.

[Federal]

var
m,i:integer;
SCP:cardinal; //скрин CP
CP:integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  for i:=1 to 100 do //проверяет линию в 100 пикселей 
  begin
    M:=50+i; //50 координата Х начало полоски жизни
    SCP:=GetPixel(GetDC(0),M,33); //скриним пиксель
    if IntToHex(SCP,8)='000083B3' then CP:=i;//в итоге останется максимальное значение СP
  end;
  ProgressBar1.Position:=CP; //показывает кол-во здоровья персонажа
end;

Первые 10 секунд работает на Ура, потом начинает мерцать прога, жутко все виснет Что с этим делать?

[Federal]

var
i:integer;
SCP:cardinal; //скрин CP
CP:integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  for i:=1 to 20 do 
  begin
    SCP:=GetPixel(GetDC(0),i*5+50,33); 
    if IntToHex(SCP,8)='000083B3' then CP:=i*5;
 максимальное значение СP
  end;
  ProgressBar1.Position:=CP; //показывает кол-во здоровья персонажа
end;

Урезал код
потом попробывал поставить просто скрин на таймере

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    SCP:=GetPixel(GetDC(0),20,20); 
end;

Через минут 10-15 все равно начинаются глюки, программа мерцает и тормозит Таймер на 500 млсек. Можно ли как то решить это?