Questo metodo è molto semplice non fa altro che disegnare l’immagine del desktop sul canvas del form.

procedure TMyForm.PrintDesktop;
var
  Desktop: HDC;
  MyCanvas: TCanvas;
  MyRect: TRect;
begin
  Desktop := GetDC(GetDesktopWindow);
  MyCanvas:= TCanvas.Create;
  try
    MyCanvas.Handle := Desktop;
    MyRect := Rect(0, 0, Screen.Width, Screen.Height);
    Canvas.CopyRect(MyRect, MyCanvas, MyRect);
  finally
    MyCanvas.Free;
  end;
end;