SavePictureDialog 2问题请教

Question

问题1:
var
path:string;
begin
 path:=ExtractFilePath(application.ExeName)+'Image\';  //如果是OpenDialog,那此默认路径处怎么写出。
 OpenPictureDialog1.InitialDir:=path;问题2:
var
 Imagebmp:Tbitmap;
 Imagejpg:TJPEGImage;
begin
 bmp:=SavePictureDialog1.FileName;
 ImageBmp:=TBitmap.Create;
 Imagejpg:=TJPEGImage.create;
 ImageJPG.LoadFromFile(str);
 Imagebmp.Assign(ImageJPG);
 begin
  if SavePictureDialog1.Execute then
  begin
  SavePictureDialog1.FileName;               //如何用SavePictureDialog1自定义保存路径和名称？
  end;
 end;

Answer 1

问题1 ：其实楼主自己都写出来了  
OpenDialog1.InitialDir:=path; 问题2:
//在这里给出SavePictureDialog1自定义保存路径和名称
SavePictureDialog1.FileName := 'd:\ad.txt';
SavePictureDialog1.FilterIndex := 0; //这个自己来调整
if SavePictureDialog1.Execute then 
begin 
  //SavePictureDialog1.FileName;               
end;