#include 
void __fastcall TForm1::Action1Execute(TObject *Sender)
{
  Graphics::TBitmap *Bmp = new Graphics::TBitmap();
  keybd_event(VK_SNAPSHOT, 0, 0, 0); // 執行按下print screen事件印全螢幕
 // keybd_event(VK_SNAPSHOT, 1, 0, 0); // 執行按下print screen事件只印Active Window 
  Sleep(100);
  if (Clipboard()->HasFormat(CF_BITMAP)) {
    Bmp->Assign(Clipboard());
    Bmp->SaveToFile("c:\\test.bmp");
  }
  delete Bmp;
}