1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
dc,dctmp:HDC;
bitmap:HBITMAP;
begin
     dc:=GetWindowDC(windowhandle);
     bitmap:=CreateCompatibleBitmap(dc,windowwidth,windowheight);
     dctmp:=CreateCompatibleDC(dc);
     SelectObject(dctmp,bitmap);
     Ellipse(dctmp,10,100,220,400);
     bitblt(dc,0,0,windowwidth,windowheight,dctmp,0,0,srccopy);
     DeleteDC(dctmp);
     DeleteObject(bitmap);
     ReleaseDC(windowhandle,dc);
end;