学步园

void  TForm1::CaptureDesktop(HDC ImageHandle)
{
  HDC hdc = GetDC(0);
  BitBlt(ImageHandle,0,0,Screen->Width,
         Screen->Height,hdc,0,0,SRCCOPY);
  ReleaseDC(0, hdc);
}

void __fastcall TForm1::CaptureScreen1Click(TObject *Sender)
{
  Form1->Visible=false;

  //调整Image对象的长宽
  Image1->Width=Screen->Width;
  Image1->Height=Screen->Height;

  //等待屏幕刷新
  Sleep(1000);

  //拷贝截获的图像
  CaptureDesktop(Image1->Canvas->Handle);

  //重新显示窗体
  Form1->Visible=true;
}