, kode snippet, der viser, hvordan at male en ansøgning er vindue eller på skærmen.,, har ønsket at male i vinduet i ord eller på skrivebordet?se her:,,, procedure tform1. button1click (afsender: tobject), var thehandle: thandle;,, thecanvas: tcanvas;,, begynder, thecanvas: = tcanvas. skabe;,, winexec ('notepad. exe, sw_normal);,, thehandle: = findwindow ('notepad "nul), thecanvas. klare: = getdc (thehandle);,, thecanvas. rektangel (0,0100100);,, thecanvas. fri,,,,,,, at male skærmen selv:,,, thecanvas. klare: = createdc ('display, nul, nul, nul),,,