Question

在 Delphi 中怎样实现将文件保存到指定文件夹

我希望在 Delphi 中将一个文件保存到指定的文件夹下（也就是程序所在的文件夹）而不是当前的文件夹，但不要弹出保存对话框，用一个函数来实现的，请高手指点。

Answer 1

uses FileCtrl；

function SelectDirectory(var Directory: string; // 英文对话框
Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
function SelectDirectory(const Caption: string; // 中文对话框
const Root: WideString;
var Directory: string): Boolean; overload;

//以下是Delphi帮助的Demo:

uses FileCtrl;

const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:/MYDIR'; // 缺省为C:/MYDIR
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir; // Dir返回选择的文件夹
end;

Answer 2

filestream.savetofile('你要保存的路径' + '你要保存的文件名');

Answer 3

用 setcurrentdir(const dir:string) 可以实现
设置当前目录

Answer 4

var
path :string;
path := ExtractFilePath(Paramstr(0)) + '文件名';

控件.save(path);

Answer 5

function TData1.DeleteDirectory(const Source:String): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(source+#0);
pTo := PChar(source+#0);
fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;
end;
Result := (SHFileOperation(fo) = 0);
end;