fullscreen:=tbitmap.create;
fullscreen.width:=screen.width;
fullscreen.Height:=screen.Height;
dc:=getdc(0);
fullscreencanvas:=tcanvas.Create;
fullscreencanvas.Handle :=dc;
fullscreen.Canvas.CopyRect(rect(0,0,screen. width,screen.Height),fullscreencanvas,rect(0,0,screen.width,screen.height));
fullscreencanvas.free;
image1.Picture.Bitmap:=fullscreen;
fullscreen.width:=screen.width;
fullscreen.Height:=screen.Height;
dc:=getdc(0);
fullscreencanvas:=tcanvas.Create;
fullscreencanvas.Handle :=dc;
fullscreen.Canvas.CopyRect(rect(0,0,screen. width,screen.Height),fullscreencanvas,rect(0,0,screen.width,screen.height));
fullscreencanvas.free;
image1.Picture.Bitmap:=fullscreen;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货