{$R *.xfm}

procedure TForm1.Button1Click(Sender: TObject);
var

  Bitmap : TBitmap;
  FormID : Cardinal;

begin

// esse comando tem a função de ocultar a aplicação para
// que sua imagem não seja capturada, junto com o desktop
Hide;

// processa as mensagens
  Application.ProcessMessages;

// gera um arquivo bitmap para guardar a imagem no HD
  Bitmap := TBitmap.Create;
  try
// pega o número de identificação da janela da área de trabalho
    FormID := QWidget_winId(QApplication_Desktop);

// captura  a área de trabalho para a imagem bitmap
    QPixmap_grabWindow(Bitmap.Handle,FormID,0,0,-1,-1);

// mostra novamente a janela
    Show;

// salva o bitmap
    if SaveDialog1.Execute then
      Bitmap.SaveToFile(SaveDialog1.FileName);
  finally
    Bitmap.Free;
  end;                      
end;

end.

interface

uses
    SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, Qt;