---

Hej,

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

---

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;



"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?
>

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.