Question

请教如何在BCB中使用API函数PrintScreen

Answer 1

没有这个函数,自己编一个就行了
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *pbmp = new Graphics::TBitmap;
int width = Screen->Width;
int height = Screen->Height;
pbmp->Width = width;
pbmp->Height = height;
HDC hdc = ::GetDC( ::GetDesktopWindow( ) );
::BitBlt( pbmp->Canvas->Handle,0,0,width,height,hdc,0,0,SRCCOPY );
::ReleaseDC(NULL,hdc);
pbmp->SaveToFile("c:\\screen.bmp");
delete pbmp;
}