Ekran görüntüsü forma nasıl aktarılır.

Belirttiğiniz sınırlar dahilinde ekranın belli bir alanını formunuzun üzerine koymak isterseniz. Formunuza image1 adlı bir resim objesi ekleyin ve daha sonra formunuzun create olayına şu kodu yazın.

procedure TForm1.FormCreate(Sender: TObject);
var
DCDesk: HDC;
begin
DCDesk:=GetWindowDC(GetDesktopWindow);
BitBlt(Image1.Canvas.Handle 0 0 Screen.Width Screen.Height DCDesk 0 0 SRCCOPY);
ReleaseDC(GetDesktopWindow DCDesk);end;