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;
procedure TForm1.Button1Click(Sender: TObject); begin if savedialog1.execute then begin Memo1.Lines.SaveToFile(SaveDialog1.FileName); end; end;SaveDialog.Execute 只能取到要保存的文件名,并不执行保存操作
先把你的东西保存起来,然后在shellexecute. if savedialog1.execute then begin 保存; end; shellexecute(handle,'open',pcharsavedialog1.FileName),'','',sw_shownormal);
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;
begin
if savedialog1.execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;SaveDialog.Execute 只能取到要保存的文件名,并不执行保存操作
if savedialog1.execute then
begin
保存;
end;
shellexecute(handle,'open',pcharsavedialog1.FileName),'','',sw_shownormal);