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中如何提高listview删除item的速度

Delphi判断mssql数据库中表格是否存在？ 如何批量创建表格？

Delphi 使用fastscript调试脚本

Delphi 最简单的判断数字函数

Delphi 控制n个字符间距空格

Delphi inputquery

Delphi randomfrom 随机返回字符串数组avalues中的一个元素

Delphi char string

Delphi xe 分割字符串太方便了

Delphi 动态库里查询是否联接数据库

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

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