一个关于操作方面的。就是没有安装任何抓屏软件的情况下,什么抓屏? 好象键盘有一个键,可是按了那个键后,它保存在哪个地方 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 那个键后,图片会保存在系统的CLIPBOARD上打开一个画图板或直接pasterfromclipboard就可以得到图片 给一些代码,你参看一下:procedure TForm1.Button1Click(Sender: TObject);beginform1.WindowState:=wsMinimized;//最小化程序窗口form1.hide;//把程序藏起来timer1.enabled:=true;//打开记时器end;procedure TForm1.Timer1Timer(Sender: TObject);varFullscreen:Tbitmap;FullscreenCanvas:TCanvas;dc:HDC;begintimer1.Enabled:=false;//取消时钟Fullscreen:=TBitmap.Create;//创建一个BITMAP来存放图象Fullscreen.Width:=screen.width;Fullscreen.Height:=screen.Height;DC:=GetDC(0);//取得屏幕的DC,参数0指的是屏幕FullscreenCanvas:=TCanvas.Create;//创建一个CANVAS对象FullscreenCanvas.Handle:=DC;Fullscreen.Canvas.CopyRect(Rect(0,0,screen.Width,screen.Height),fullscreenCanvas,Rect(0,0,Screen.Width,Screen.Height));//把整个屏幕复制到BITMAP中FullscreenCanvas.Free;//释放CANVAS对象ReleaseDC(0,DC);//释放DC//*******************************image1.picture.Bitmap:=fullscreen;//拷贝下的图象赋给IMAGE对象image1.Width:=fullscreen.Width;image1.Height:=fullscreen.Height;fullscreen.free;//释放bitmapform1.WindowState:=wsNormal;//复原窗口状态form1.show;//显示窗口messagebeep(1);//BEEP叫一声,报告图象已经截取好了。end;有问题请发信息到我的E-mail:[email protected] delphi udpclient 连接 c# udpserver 用过TVideoCap控件的请进来看下~问题解决即赠500分!系列问题~ 急:关于替换文本文件里指定行的程序求救 帮帮忙!!谢谢!! storedproc控件 delphi6中实现连续走纸任意行数打印 绑定线程,重金请教 简单问题?请来拿分,在delphi中如何在函数中返回值,用何命令? 如何在DELPHI中实现对ACCESS的sql查询? Delphi中控制Word的问题。。给分! 菜鳥問題!請各位大俠幫忙(送50分) 为什么这里的Timage.fillrect不起作用? 画图区域并没有增大?
打开一个画图板
或
直接
pasterfromclipboard就可以得到图片
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.WindowState:=wsMinimized;//最小化程序窗口
form1.hide;//把程序藏起来
timer1.enabled:=true;//打开记时器
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Fullscreen:Tbitmap;
FullscreenCanvas:TCanvas;
dc:HDC;
begin
timer1.Enabled:=false;//取消时钟
Fullscreen:=TBitmap.Create;//创建一个BITMAP来存放图象
Fullscreen.Width:=screen.width;
Fullscreen.Height:=screen.Height;
DC:=GetDC(0);//取得屏幕的DC,参数0指的是屏幕
FullscreenCanvas:=TCanvas.Create;//创建一个CANVAS对象
FullscreenCanvas.Handle:=DC;Fullscreen.Canvas.CopyRect
(Rect(0,0,screen.Width,screen.Height),fullscreenCanvas,
Rect(0,0,Screen.Width,Screen.Height));
//把整个屏幕复制到BITMAP中
FullscreenCanvas.Free;//释放CANVAS对象
ReleaseDC(0,DC);//释放DC
//*******************************
image1.picture.Bitmap:=fullscreen;//拷贝下的图象赋给IMAGE对象
image1.Width:=fullscreen.Width;
image1.Height:=fullscreen.Height;
fullscreen.free;//释放bitmap
form1.WindowState:=wsNormal;//复原窗口状态
form1.show;//显示窗口
messagebeep(1);//BEEP叫一声,报告图象已经截取好了。end;
有问题请发信息到我的E-mail:[email protected]