Buscar por:

Capturando ecrã(tela)

Código

Var bitmap : tbitmap; 

  jpg : tjpegimage; 

  dc : hdc; 

  desktoprect : trect; 

  desktopcanvas : tcanvas; 

  x, y : integer; 

begin 

 dc:=getdc(getdesktopwindow); 

 try 

 desktopcanvas:=tcanvas.create; 

 bitmap:=tbitmap.create; 

 jpg:=tjpegimage.create; 

 try 

 bitmap.Width:=320; 

 bitmap.Height:=240; 

 desktopcanvas.handle:=dc; 

 desktoprect:=rect(0,0,319,239); 

 bitmap.canvas.CopyRect(desktoprect,desktopcanvas,desktoprect); 

 img.Picture.Bitmap:=bitmap; 

 for y:=yy to yy+10 do 

  for x:=xx to xx+10 do 

  img.canvas.pixels[x,y]:=clwhite; 

 with jpg do 

  begin 

  compressionquality:=25; 

  assign(bitmap); 

  compress; 

  savetofile('data'+filename); 

  end; 

 finally 

 bitmap.free; 

 desktopcanvas.free; 

 end; 

 finally 

 releasedc(getdesktopwindow,dc); 

 end; 

end;