CaptureWallPaper Example for Delphi 4.0

    {capture the wallpaper}
    LEADScr1.CaptureWallPaper();
    {copy the captured image to a Main Control}
    LEAD1.Bitmap := LEADScr1.Bitmap;