高分求救——关于savedialog的用法

Question

savedialog只是显示一个对话框，保存要自已做的。

Answer 1

var
   s1,s2:string;
   ms1,ms2:TFileStream;
begin
   s1:=table1.tablename;
   s2:=changefileext(s1,'.htm');
   try
       ms1:=TfileStream.Create(s1,fmOpenRead);
       ms2:=TFileSTream.Create(s2,fmCreate);
       ms2.copyfrom(ms1,0);
   finally
       ms1.free;
       ms2.free;
  end;
end;
   

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  if savedialog1.execute then
  begin
       Memo1.Lines.SaveToFile(SaveDialog1.FileName);
  end;
end;SaveDialog.Execute 只能取到要保存的文件名，并不执行保存操作

Answer 3

先把你的东西保存起来，然后在shellexecute.
if savedialog1.execute then 
begin
   保存； 
end;
shellexecute(handle,'open',pcharsavedialog1.FileName),'','',sw_shownormal);