Salut, je ne sais pas si j'ai bien compris ce que tu demandes mais pour faire une copie d'écran voici un petit bout de code qui fait l'affaire :
procedure TForm1.Button1Click(Sender: TObject); Var dc : Hdc; Bmp : TBitmap; begin Bmp := TBitmap.Create; // on crée le Bitmap Bmp.Width := Screen.Width; // on l'ajuste à la taille de l'écran Bmp.Height := Screen.Height; dc := GetDc(0); // on récupère le Dc (Device context) du bureau BitBlt(Bmp.canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, dc, 0, 0, SRCCOPY); // on fait la copie Bmp.SaveToFile('c:\Test.bmp'); // on la sauvegarde Bmp.Free; // et on libère le Bmp ReleaseDc(0, Dc); // et le Dc end;
@+ Cirec
|