---

Hej,

Er der nogen som ved hvordan man kan grabbe hele skærmen til et bitmap?

---

Hvad har du gang i?
Nå man prøv dette:

function CaptureScreen:TBitmap;

var

DC : HDC;

ABitmap:TBitmap;

begin

DC := GetDC (GetDesktopWindow);

ABitmap:=TBitmap.Create;

try

ABitmap.Width := GetDeviceCaps (DC, HORZRES);

ABitmap.Height := GetDeviceCaps (DC, VERTRES);

BitBlt(ABitmap.Canvas.Handle, 0, 0, ABitmap.Width,

ABitmap.Height,DC, 0, 0, SRCCOPY);

finally

ReleaseDC (GetDesktopWindow, DC);

end;

Result:=ABitmap;

end;

/paf


"anger" <anger@kurt.com> wrote in message
news:9Pv26.25034$9t1.281132@twister.sunsite.dk...
> Hej,
>
> Er der nogen som ved hvordan man kan grabbe hele skærmen til et bitmap?
>