截图功能

void __fastcall TForm1::Button1Click(TObject *Sender)

{

   TCanvas   *DeskTop;

   DeskTop   =   new   TCanvas;

   DeskTop-> Handle=GetWindowDC(GetDesktopWindow())   ;

   Image1-> Canvas-> CopyMode=cmSrcCopy;

   Image1-> Canvas-> CopyRect(Rect(0,0,ClientWidth,ClientHeight),DeskTop,Rect(0,0,ClientWidth,ClientHeight));

   DeskTop-> Free();

   Image1-> Picture-> SaveToFile("C:\\Users\\Administrator\\Desktop\\qq\\a.jpg");

}

通过 为知笔记 发布