یک کد جدید برای گرفتن عکس از صفحه نمایش. برای عکس گرفتن از صفحه به طور عمومی یک راه وجود دارد.آن هم این است که برنامه ای بنویسیم که کلید Print Screen بزند و بعد تصویر را از ClipBoard بخواند. این یک راه علمی تر و کم دردسر تر است. این کد کار خود را با TScreen انجام میدهد.

function CaptureScreenRect( ARect: TRect ): TBitmap;
var
  ScreenDC: HDC;
begin
  Result := TBitmap.Create;
  with Result, ARect do
  begin
    Width := Right - Left;
    Height := Bottom - Top;
    ScreenDC := GetDC( 0 );
    try
      BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC,
        Left, Top, SRCCOPY );
    finally
      ReleaseDC( 0, ScreenDC );
    end;
  end;
end;
function CaptureScreen: TBitmap;
begin
  with Screen do
    Result := CaptureScreenRect( Rect( 0, 0, Width, Height ));
end;

procedure TForm1.Button2Click(Sender: T);
begin
 Image1.Picture.Bitmap:=CaptureScreen
end;//© 2005 koosha system Software http://delphi-center.blogfa.com(برگرفته شده از )