保存jpg文件的问题，在线等候！

Question

在程序中，打开了一个jpg文件后，我想将该文件保存到指定的文件夹中，并且该文件名也是指定的。也就是说在保存的过程中，只是让他按一个按钮就可以了。不显示保存时出现的savedialog的对话框。请问怎么办啊？

Answer 1

Image1.Picture.SaveToFile(FilePath+FileName);

Answer 2

给你剪一段我写过的程序，帮帮忙：
procedure TForm1.FlatButton7Click(Sender: TObject);
var
i:integer;
bmp:tbitmap;
jpg:tjpegimage;
begin
 if filelistbox1.items.Count>0 then
  begin
  if filelistbox1.SelCount>1 then
        begin
        form1.ProgressBar1.Max:=filelistbox1.SelCount;
        for i:=0 to filelistbox1.Items.count-1 do
            begin
               if filelistbox1.Selected[i] then
                  begin
                  bmp:=tbitmap.Create;
                  jpg:=tjpegimage.Create;
                  bmp.LoadFromFile(dir+'\'+filelistbox1.Items.Strings[i]);
                  jpg.Assign(bmp);
                  jpg.CompressionQuality:=100-form1.TrackBar2.Position;
                  jpg.SaveToFile(dir+'\'+ExtractFileName(copy(filelistbox1.Items.Strings[i],1,length(filelistbox1.Items.Strings[i])-4)+'.jpg'));
                  jpg.free;
                  form1.progressbar1.Position:=form1.progressbar1.Position+1;
                  end;
             end;
             form1.progressbar1.Position:=0;
             messagebox(handle,'转换成功','转换成功',mb_ok);
             end
        else
        begin
        form1.ProgressBar1.Max:=filelistbox1.items.Count;
        begin
        for i:=0 to filelistbox1.Items.count-1 do
            begin
                  bmp:=tbitmap.Create;
                  jpg:=tjpegimage.Create;
                  bmp.LoadFromFile(dir+'\'+filelistbox1.Items.Strings[i]);
                  jpg.Assign(bmp);
                  jpg.CompressionQuality:=100-form1.TrackBar2.Position;
                  jpg.SaveToFile(dir+'\'+ExtractFileName(copy(filelistbox1.Items.Strings[i],1,length(filelistbox1.Items.Strings[i])-4)+'.jpg'));
                  jpg.free;
                  form1.progressbar1.Position:=form1.progressbar1.Position+1;
            end;
        end;
        form1.progressbar1.Position:=0;
        messagebox(handle,'转换成功','转换成功',mb_ok);
        end;
   end
   else
   begin
   messagebox(handle,'您没有要转换的文件','您没有要转换的文件',mb_ok);
   end;
end;祝：身体健康，分数和答案同样重要：）！！！