我想每10秒截个全屏,这样监控电脑在操作什么

Question

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)报错，有没有其它的办法 

Answer 1

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;