@Szczawik
usiluje zrobic funkcje do przeszukiwania za wybranym pikselem jednak nie moge brac pod uwage funkcji getpixel winapi .
oto moje wypociny cos tutaj na pewno jest nie tak bo to 4 dzien mojej dzialalnosci w Delphi
function pixelsearch(X, Y,X1,Y1: Integer;color:string): string;
const
CAPTUREBLT = $40000000;
var
hdcScreen: HDC;
hdcCompatible: HDC;
bmp: TBitmap;
hbmScreen: HBITMAP;
kolor: Tcolor;
ptr : pointer;
ptr2: pointer;
i: integer;
ii:integer;
posx:integer;
posy:integer;
begin
hdcScreen := CreateDC('DISPLAY', nil, nil, nil);
hdcCompatible := CreateCompatibleDC(hdcScreen);
hbmScreen := CreateCompatibleBitmap(hdcScreen,1024,768);
SelectObject(hdcCompatible, hbmScreen);
bmp := TBitmap.Create;
bmp.Handle := hbmScreen;
BitBlt(hdcCompatible, 0, 0,X1-X, Y1-Y, hdcScreen, X, Y, SRCCOPY or CAPTUREBLT);
posx:=0;
posy:=0;
for i:=1 to Y1-Y-1 do
begin
ptr := Pointer(Integer(bmp.ScanLine[i]));
for ii:=1 to X1-X-1 do
begin
ptr2 := Pointer(integer(ptr) + (ii*4) );
kolor := PColor(ptr2)^ ;
kolor := RGB(GetBValue(kolor), GetGValue(kolor), GetRValue(kolor));
if color = inttohex(integer(kolor),8) then
begin
posx:= ii+X;
posy:=i+Y;
{wyskok na koniec}
end;
//sleep(500);
end;
end;