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 程序员的反攻－－－－打击p2p

Delphi webbrowser 表单赋值模拟点击

Delphi idhttp添加头信息

Delphi 串口常用的字符串转换函数

Delphi debug模式下可以但是release模式下报错原因之一

Delphi 设置系统启动文件夹自身开机自动运行

Delphi xe 如何使用自带皮肤

Delphi idhttp中设置非标准头信息和读写cookie

在一个exe文件中查找指定内容,找到则返回起始位置,否则返回0

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

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