Fórum Gravar tela do usuário. #223705

procedure TForm1.Button3Click(Sender: TObject);
var nomeArq:string;
   ano, mes, dia, hor, min, seg, Mseg:word;
begin
   try
   Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Screen.Width,Screen.Height)));
   DecodeDateTime(Now,ano,mes,dia,hor,min,seg,mseg);
   nomeArq := IntToStr(ano)+FormatFloat(´00´,mes)+IntToStr(dia)+´-´+IntToStr(hor)+IntToStr(min)+IntToStr(seg);
   nomeArq := ´D:\Teste\´+nomeArq;
   BmpToJpg(image1.picture.Bitmap, nomeArq);
   except
   end;
end;

function BmpToJpg(cImage: tbitmap; nomeJpg:string): Boolean;
var jp: TJpegImage;
begin
   jp := TJpegImage.Create;
   try
   with jp do
      begin
      Assign(cImage);
      SaveToFile(nomeJpg+´.jpg´)
      end;
   finally
   jp.Free;
   end;
end;