procedure TForm1.BtnStartClick(Sender：TObject)； begin 　ScreenCapture1.start； //开始截图 end； 　//当截取屏幕成功时，此事件发生 　procedure TForm1.ScreenCapture1Capture(Sender：TObject；Bitmap：TBitmap)； begin 　//调整滚动窗口的大小以适应截获图像的大小

通过内存够映射从BMP文件中读取一部分，。。。。。。。。。。。。。。。。。。。。。。。。(Read part from the BMP file by mapping memory enough)