请问我要创建文件、夹删除文件夹、把文件夹改名,用Delphi怎么现实。我找的方法只在win3.1中有用,但我想要在win32中能用的函数

dicke 2003-09-12 12:51:14
请问我要创建文件、夹删除文件夹、把文件夹改名,用Delphi怎么现实。我找的方法只在win3.1中有用,但我想要在win32中能用的函数
...全文
72 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
year2000bug 2003-09-12
  • 打赏
  • 举报
回复
//我也来up
//清空一个目录
function EmptyDirectory(TheDirectory :String ; Recursive : Boolean):Boolean;stdcall;export;
var
SearchRec : TSearchRec;
Res : Integer;
begin
Result := False;
TheDirectory := Trim(TheDirectory);
if copy(TheDirectory,Length(TheDirectory),1)<>'\' then
TheDirectory :=TheDirectory+'\';
Res := FindFirst(TheDirectory + '*.*', faAnyFile, SearchRec);
try
while Res = 0 do
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
if ((SearchRec.Attr and faDirectory) > 0) and Recursive then
begin
EmptyDirectory(TheDirectory + SearchRec.Name, True);
RemoveDirectory(PChar(TheDirectory + SearchRec.Name));
end
else
begin
DeleteFile(PChar(TheDirectory + SearchRec.Name))
end;
end;
Res := FindNext(SearchRec);
end;
Result := True;
finally
FindClose(SearchRec);
end;
end;
zjqyb 2003-09-12
  • 打赏
  • 举报
回复
看一下shellapi ,filectrl
IORILI 2003-09-12
  • 打赏
  • 举报
回复
procedure makedir(modulname,pathname,dirname,filepath:string);
begin
try
if not directoryexists(frootpath+modulname) then
createdir(FRootPath+modulname);
if not DirectoryExists(FRootPath+modulname+'\'+pathname) then
createdir(FRootPath+modulname+'\'+pathname);
if not directoryexists(FRootPath+modulname+'\'+pathname+'\'+dirname) then
createdir(FRootPath+modulname+'\'+pathname+'\'+dirname);
if filepath<>'' then
if not directoryexists(FRootPath+modulname+'\'+pathname+'\'+dirname+'\'+filepath) then
createdir(FRootPath+modulname+'\'+pathname+'\'+dirname+'\'+filepath)
except
On E:Exception do begin
abort;
end;
end;
删:RemoveDir
denny001 2003-09-12
  • 打赏
  • 举报
回复
直接调Win API阿
hiflower 2003-09-12
  • 打赏
  • 举报
回复
MkDir,CreateDir,ForceDirectories,RmDir,RemoveDir,CreateFile,RenameFile,DeleteFile

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧