var
// Déclaration de la variable
ImageBureau:TPicture;
// Création de l'objet en début de programme
ImageBureau := TPicture.Create;
// Adaptation de la hauteur de l'image à celle de l'écran
ImageBureau.Bitmap.Height := Screen.Height;
// Adaptation de la largeur de l'image à celle de l'écran
ImageBureau.Bitmap.Width := Screen.Width;
// Capture de l'image du bureau
BitBlt(ImageBureau.Bitmap.Canvas.Handle, 0, 0,
Screen.Width, Screen.Height, GetDC(GetDesktopWindow), 0, 0, SrcCopy);
// Enregistrement dans un fichier...
ImageBureau.SaveToFile(SaveDialog1.FileName);
// Copie dans le presse-papiers...
Clipboard.Assign(ImageBureau);
// Affichage dans un composant TImage...
Image1.Picture.Bitmap.Assign(ImageBureau.Bitmap);
ImageBureau.Free; // En fin de programme, on libère l'objet