Delphi 创建文件夹并打开

本文整理自网络，侵删。

 
uses shellapi;

procedure CreateOpenDir(h : THandle; dir : string ; IsOpen : Boolean = False);
var
  s : Cardinal;

begin
  if not DirectoryExists( dir ) then //判断目录是否存在
  begin
    ForceDirectories(dir);
  //  fileSetAttr(dir,faDirectory);
  //  CreateDirectory(PChar( dir ), nil);
  end;

  if IsOpen then
  begin
    ShellExecute(0,'open',nil,nil,PWideChar( dir ),SW_SHOW);
  end;

end;
 

相关阅读 >>

Delphi 压缩图片算法

Delphi调用android振动功能

Delphi xe7开发的获取网页中字符串的编码是否是utf8

Delphi richedit 加入链接

Delphi 用 tbytesstream 类实现的读文件为十六进制字符的函数

Delphi 注册表启动项管理代码

Delphi ^ 符号的特殊用法

Delphi 很方便调用的log日志方法

Delphi tstreamwriter tstreamreader 流操作3

Delphi 的webbrowser如何全选并复制浏览器上的文字

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 创建文件夹并打开