delphi auAutoUpgrader 如何下载文件夹
答案:2 悬赏:40
解决时间 2021-02-22 13:27
- 提问者网友：呆萌心雨
- 2021-02-21 23:46
delphi auAutoUpgrader 如何下载文件夹
最佳答案
- 二级知识专家网友：晨与橙与城
- 2021-02-22 00:25
ForceDirectories('D:\新文件夹');
或md('D:\新文件夹');
procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('D:\bnabinge') then
begin
ForceDirectories('D:\bnabinge');
end
else
begin
Messagebox(Handle,'文件夹已存在?','警告', MB_ICONERROR);
abort;
end;
end;
或md('D:\新文件夹');
procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('D:\bnabinge') then
begin
ForceDirectories('D:\bnabinge');
end
else
begin
Messagebox(Handle,'文件夹已存在?','警告', MB_ICONERROR);
abort;
end;
end;
全部回答
- 1楼网友：冷眼_看世界
- 2021-02-22 00:36
可以用以下的方法：
copyfile(pchar('c:\sql.txt'), pchar('d:\sql.txt'), true);
只要是文件的复制，都可以。
移动文件：
movefile(pchar('c:\sql.txt'), pchar('d:\sql.txt'));
删除文件：
deletefile('c:\sql.txt')；
以上都是可行的。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯