deletedir函数怎么用？

Question

RmDir或ReMoveDir
例uses Dialogs;
begin   {$I-}
   { Get directory name from TEdit control }
   RmDir(Edit1.Text);
   if IOResult <> 0 then
     MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0)
   else
     MessageDlg('Directory removed', mtInformation, [mbOk], 0);
 end;

Answer 1

好像没有deletedir，反而有
RemoveDir

Answer 2

RmDir或ReMoveDir
例uses Dialogs;
begin   {$I-}
   { Get directory name from TEdit control }
   RmDir(Edit1.Text);
   if IOResult <> 0 then
     MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0)
   else
     MessageDlg('Directory removed', mtInformation, [mbOk], 0);
 end;

Answer 3

RmDir或ReMoveDir
例uses Dialogs;
begin   {$I-}
   { Get directory name from TEdit control }
   RmDir(Edit1.Text);
   if IOResult <> 0 then
     MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0)
   else
     MessageDlg('Directory removed', mtInformation, [mbOk], 0);
 end;

Answer 4

RmDir或ReMoveDir
例uses Dialogs;
begin   {$I-}
   { Get directory name from TEdit control }
   RmDir(Edit1.Text);
   if IOResult <> 0 then
     MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0)
   else
     MessageDlg('Directory removed', mtInformation, [mbOk], 0);
 end;

Answer 5

是不是要自己编这个函数？
不是API函数吗？

Answer 6

有两个过程声明如下：
procedure RmDir(const S: string);overload;
procedure RmDir(P: PChar); overload;
需要uses system单元
例如：
uses Dialogs,system;
begin   {$I-}
   { Get directory name from TEdit control }
   RmDir(Edit1.Text);
   if IOResult <> 0 then
     MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0, mbOk)
   else
     MessageDlg('Directory removed', mtInformation, [mbOk], 0, mbOk);
 end;