From: Craig Francisco <Craig.Francisco@adm.monash.edu.au>
Subject: Re: [delphi] Capturing the DESKTOP to a form.canvas
Date: Fri, 11 Aug 1995 10:19:48 GMT-10

Try this:

 procedure TScrnFrm.GrabScreen;
 var

    DeskTopDC: HDc;
    DeskTopCanvas: TCanvas;
    DeskTopRect: TRect;
    
 begin
    DeskTopDC := GetWindowDC(GetDeskTopWindow);
    DeskTopCanvas := TCanvas.Create;
    DeskTopCanvas.Handle := DeskTopDC;

    DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);

    ScrnForm.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);

    ReleaseDC(GetDeskTopWindow,DeskTopDC);
end;

Note: I haven't tested this, so you may have to massage it a little.  
You may also have to play around with co-ordinates, depending on what 
you want to do.  Also, if your form is already loaded and displayed, 
that is what you you will get, so you may want to do a hide and a 
show...

Good Luck,
Craig...
_____________________________________________________________
Craig Francisco      eMail: Craig.Francisco@adm.monash.edu.au
Developer                 
Administrative & Management Information Systems Branch
Monash University            Voice: +61 3 990 55522
Melbourne, Australia.          Fax: +61 3 990 53024
Disclaimer: "Monash has no knowledge of my existence..."
_____________________________________________________________

