抓屏,请给个思路. (50分)

L

linfe

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用delphi实现屏幕拷贝...
请各位给个思路
我看过张友生的<远程控制>
可惜是用C++写的.

 
要写象Print Screen一样的屏幕拷贝很简单,Copy、Paste一段过来:)
var //变量声明
Fullscreen:Tbitmap;
FullscreenCanvas:TCanvas;
dc:HDC;
//------------------------------------------------------------
DC := GetDC (0); //取得屏幕的 DC,参数0指的是屏幕
FullscreenCanvas := TCanvas.Create; //创建一个CANVAS对象
FullscreenCanvas.Handle := DC; //将屏幕的DC赋给HANDLE
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
//SCREEN对象是DELPHI预先定义的屏幕对象,直接使用就行了。

真正写好就有能度了,参考这里:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=538683
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部