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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.032934904098511 seconds