5,928
社区成员




procedure GetFullScreen(var FullScreen:TBitmap);
var
FullScreenCanvas:TCanvas;
DC:HDC;
begin
DC:=GetDC(0); //取得屏幕的 DC,参数0指的是屏幕
FullScreenCanvas:=TCanvas.Create;
FullScreenCanvas.Handle:= DC; //将屏幕的DC赋给HANDLE
FullScreen.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),FullScreenCanvas,Rect (0, 0, Screen.Width,Screen.Height));//把整个屏幕复制到FullScreen中
FullscreenCanvas.Free;
ReleaseDC (0, DC);
end;