谁知道TSaveDialog控件怎么使用啊？

Question

请教各位，谁知道保存控件怎么用啊？
我想做一个对话框，可以由用户根据需要把一个文件“c:\aaa.mdb”保存到
用户选择的路径下，但是文件名不允许改变。
谁能提供代码？谢谢大家。
希望能在下面的菜单里完成上述功能：
procedure TFRM_G1020000.N19Click(Sender: TObject);

Answer 1

既然你的文件名不允许改变，那就是说只用选路径就行了。用这个函数
    SelectDirectory('AA','C:\',Str);
Str返回路径名。

Answer 2

先在单元的引用部分加上:
uses filectrl;procedure TFRM_G1020000.N19Click(Sender: TObject);Const
  DefaultFileName='abc.txt';
var
  thepath,savefile:String;
begin
if SelectDirectory('请选择保存目录:','',thepath) then
begin
savefile:=thepath+DefaultFileName;
showmessage(savefile);
//请在此处编写保存文件的代码!
end;
end;

Answer 3

为什么不自己做下一个你想要的TSaveDialog，你不会写嘛

Answer 4

楼主：
TSaveDialog不负责保存；只是提供一个文件名而已；
怎么保存是你自己的事，stream也好，file也好，windows api也好；
按你的要求，用个selectDirectory获得路径直接用copyfile api就是了。

Answer 5

是的，阁下能不能提供一点代码？
比如源文件为“C:\book.gdb”，用户选择了路径“D:\1000\1000”
文件名不变。
用怎样的代码可以实现上述的保存？

Answer 6

e.g. :
use win32 API(in windows unit) 
BOOL CopyFile(    LPCTSTR lpExistingFileName, // pointer to name of an existing file 
    LPCTSTR lpNewFileName, // pointer to filename to copy to 
    BOOL bFailIfExists  // flag for operation if file exists 
   );