Screenshots machen + auswerten

[Corpsman]

lol,

also einen Generellen Screenshot kann man ja einfach machen

Delphi-Quellcode:

function CaptureScreen: TBitmap;
var
DC: HDC;
ABitmap: TBitmap;
begin
  // Capture the Desktop screen
  DC := GetDC(GetDesktopWindow);
  ABitmap := TBitmap.Create;
  try
    ABitmap.Width := GetDeviceCaps(DC, HORZRES);
    ABitmap.Height := GetDeviceCaps(DC, VERTRES);
    // BitBlt on our bitmap
    BitBlt(ABitmap.Canvas.Handle,
    0,
    0,
    ABitmap.Width,
    ABitmap.Height,
    DC,
    0,
    0,
    SRCCOPY);
  finally
    ReleaseDC(GetDesktopWindow, DC);
  end;
  Result := ABitmap;
end;

Wenn du nun das Handle der zu kopierenden Formulare hast ist der rest einfach.

Deine Erhellung bekommst du in dem du die Bilder von einander abziehst und dann auf <> 0 prüfst