nur weiße screenshotes

[Sharky]

Hai Harry M.

es könnte daran liegen das in dem Code bei jedem Capturen ein TBitmap erzeugt wird das nicht mehr freigegeben wird?

Delphi-Quellcode:

// 2. Capture the screen 
function CaptureScreen: TBitmap; 
var 
  DC: HDC; 
  ABitmap: TBitmap; 
  MyCursor: TIcon; 
  CursorInfo: TCursorInfo; 
  IconInfo: TIconInfo; 
begin 
  // Capture the Desktop screen 
  DC := GetDC(GetDesktopWindow); 
  ABitmap := TBitmap.Create;  // Hier zu sehe ich kein ABitmap.Free;
  .
  .
end;