|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Speicherauslastung senken
17. Nov 2010, 07:54
ReleaseDC fehlt auch ...
Delphi-Quellcode:
begin
C := TCanvas.Create;
try
C.Handle := GetWindowDC(GetDesktopWindow);
try
repeat
Pixel := GetPixel(C.Handle,x,y);
inc(Count);
until (Pixel = Farbe) or (Count = 1000);
finally
ReleaseDC(C.Handle)
end;
finally
C.Free;
end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|