我想每10秒截个全屏,这样监控电脑在操作什么
var
　Fullscreen：Tbitmap；
　FullscreenCanvas：TCanvas；
　dc：HDC；
begin
　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；




[Error] Unit1.pas(47): Illegal character in input file: '，' ($A3AC)

报错，有没有其它的办法

[解决办法]
中文逗号，换成半角的英文逗号
[解决办法]
这代码是复制的把??
[解决办法]

Delphi(Pascal) code

var　Fullscreen:Tbitmap;　FullscreenCanvas:TCanvas;　dc:HDC;begin　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;
[解决办法]
image1.picture.savetofile('c:\a.bmp')
[解决办法]
定置下!