delphi 删除目录和创建目录,临时文件夹
2015-07-13 15:16
696 查看
获取用户当前的Windows临时文件夹
function GetWinTempPath: string;
var
TempDir: array[0..255] of char;
begin
GetTempPath(255, @TempDir);
Result := strPas(TempDir);
end;
删除目录:(目录里有东西也一样删)(shellapi)
function DelDirectory(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 := #0#0;
fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
end;
Result := (SHFileOperation(fo) = 0);
end;
创建目录和设置目录属性
var
iFileAttrs: Word;
iFileAttrs := faSysFile + faHidden;
ForceDirectories(ExtractFilePath(Application.Exename) + 'temp\');//如存在目录就不创建.
FileSetAttr(ExtractFilePath(Application.Exename) + 'temp\', iFileAttrs);
function GetWinTempPath: string;
var
TempDir: array[0..255] of char;
begin
GetTempPath(255, @TempDir);
Result := strPas(TempDir);
end;
删除目录:(目录里有东西也一样删)(shellapi)
function DelDirectory(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 := #0#0;
fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
end;
Result := (SHFileOperation(fo) = 0);
end;
创建目录和设置目录属性
var
iFileAttrs: Word;
iFileAttrs := faSysFile + faHidden;
ForceDirectories(ExtractFilePath(Application.Exename) + 'temp\');//如存在目录就不创建.
FileSetAttr(ExtractFilePath(Application.Exename) + 'temp\', iFileAttrs);
相关文章推荐
- DELPHI关闭瑞星监控的源代码
- Delphi 新知识学习系列2(TthreadList) 线程安全列表
- Delphi 新知识学习系列1(泛型学习)
- delphi 事务处理效率
- Delphi的in循环
- ACCESS-delphi向中插入一条记录报错,但ACCESS不会
- ACCESS-关于DELPHI中操作ACCESS数据库中单精度数据的问题
- Delphi GDI对象之剪切区域
- Rad Studio,Delphi,C++ Builder IDE 界面定制化工具,支持XE8
- delphi 遍历所有文件夹
- Delphi XE8,C++ Builder XE8,RadStudio XE8 Update1 架构师版(附破解激活)
- Delphi XE5 安卓手机要求
- Delphi XE5 常用功具与下载
- Delphi XE5 常见错误与解决
- delphi 调用 webservice (.NET C#版)
- delphi 完全控制Excel 文件
- Delphi给窗体镶边-为控件加边框,描边,改变边框颜色
- DelphiXE7操作sqlite数据库
- Delphi中WebBrowser的使用技巧汇总
- delphi 中TStringList Clear 方法的时候该对象有没有被释放