Форум программистов [Powered by Invision Power Board]

Код

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    Function CompareScreenAndImage(Const ScreenX: Integer; Const ScreenY: Integer; Const img: TBitmap): Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Stop: Boolean = False;
  X: Integer = 0;

implementation

{$R *.dfm}

Function TForm1.CompareScreenAndImage(Const ScreenX: Integer; Const ScreenY: Integer; Const img: TBitmap): Boolean;
Var
  BMP: TBitmap;
  I, N: Integer;
  Flag: Boolean;
begin
  Result := False;

  BMP := TBitmap.Create;
  Try
    BMP.Canvas.Lock;
    Try
      BMP.Width := img.Width;
      BMP.Height := img.Height;
      BitBlt(BMP.Canvas.Handle, 0, 0, img.Width, img.Height, GetDC(0), ScreenX, ScreenY, SRCCOPY);

      Flag := False;

      img.Canvas.Lock;
      Try
        for I := 0 to img.Height - 1 do
        Begin
          if Flag = true then
            Break;

          for N := 0 to img.Width - 1 do
          Begin
            if BMP.Canvas.Pixels[N, I] <> img.Canvas.Pixels[N, I] then
            Begin
              Result := true;
              Flag := true;
              // Break; // Бряк закомментирован часто в исследовательской цели, сути он не меняет.
            End;
          End;
        End;
      Finally
        img.Canvas.Unlock;
      End;
    Finally
      BMP.Canvas.Unlock;
    End;
  Finally
    BMP.Free;
  End;

  Result := not Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  Bitmap: TBitmap;
begin
  Button1.Enabled := False;
  Button2.Enabled := true;
  Bitmap := TBitmap.Create;
  Try
    Bitmap.LoadFromFile('C:\<картинка>.bmp'); // В моём случае это 24битная BMP'шка 200x50 пикселей 
    while not Stop do
    Begin
      inc(X);
      CompareScreenAndImage(100, 100, Bitmap);
      Button2.Caption := IntToStr(X);
      Application.ProcessMessages;
    End;
  Finally
    Bitmap.Free;
  End;
  Stop := False;
  Button1.Enabled := True;
  Button2.Enabled := False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Stop := True;
  X := 0;
end;