Ich möchte mich nochmals sehr entschuldigen
Mir geht es eigentlich nur um den Teil...
Delphi-Quellcode:
Function PixelSearch(Color:TColor;Objekt:Flaeche;Differenz:Integer):Boolean;
var x,y: Integer;
Handle: HWND;
begin
MyCanvas:= TCanvas.Create;
MyCanvas.Handle:=GetDC(0);
for x := Objekt.VonX
to Objekt.BisX
do
begin
for y := Objekt.VonY
to Objekt.BisY
do
begin
if (MyCanvas.Pixels[x,y] < Color + Differenz)
and (MyCanvas.Pixels[x,y] > Color - 50)
then
begin
SetCursorPos(x,y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Result := True;
Exit;
end;
end;
end;
end;
Mit dem Pixel auslesen ist das einfach zu langsam =( Ich suche nur nach einer schnelleren Methode..^^