Programalama > DELPHI

//Forma 1 'Image' koyun..

var
  DCDesk: HDC;
begin
  DCDesk:=GetWindowDC(GetDesktopWindow);
  BitBlt(Image1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
  ReleaseDC(GetDesktopWindow, DCDesk);

//GetDesktopWindow yerine görüntüsünü almak istediğiniz pencerenin handle'ını yazarsanız o pencerenin görüntüsü alınır.