这是一个复制屏幕的例子var
SDC:HDC;
begin
SDC:=CreateDC('DISPLAY',nil,nil,nil);
Image1.Width:=800;
Image1.Height:=600; BitBlt(Image1.Canvas.Handle,0,0,
800,600,SDC,0,0,SRCCOPY); Image1.Refresh;
DeleteDC(SDC);
end;用这个就可以了。
SDC:HDC;
begin
SDC:=CreateDC('DISPLAY',nil,nil,nil);
Image1.Width:=800;
Image1.Height:=600; BitBlt(Image1.Canvas.Handle,0,0,
800,600,SDC,0,0,SRCCOPY); Image1.Refresh;
DeleteDC(SDC);
end;用这个就可以了。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货