在delphi中删除文件夹

Question

为什么我用Removedirectory(Pchar());函数不能删除文件夹呢??
郁闷中^^^^^^没有提示错误却删不掉,忘大虾指点问题出在哪?????急啊

Answer 1

The RemoveDirectory function deletes an existing empty directory.

Answer 2

删除目录，注意需要 uses ShellApi： 
function DelDirectory(const Source:string): boolean;varfo: TSHFILEOPSTRUCT;beginFillChar(fo, SizeOf(fo), 0);with fo dobeginWnd := 0;wFunc := FO_DELETE;pFrom := PChar(source+#0);pTo := #0#0;fFlags := FOF_NOCONFIRMATION+FOF_SILENT;end;Result := (SHFileOperation(fo) = 0);end;

Answer 3

uses ShellApi;var
  T:TSHFileOpStruct;
  P:String;
begin
  P:=//要删除的文件夹
  with T do
  begin
    Wnd:=0;
    wFunc:=FO_DELETE;
    pFrom:=PChar(P);
    pTo:=nil;
    fFlags:=FOF_ALLOWUNDO+FOF_NOERRORUI;
    hNameMappings:=nil;
    lpszProgressTitle:='正在删除文件夹';
    fAnyOperationsAborted:=False;
  end;
  SHFileOperation(T);
  //RemoveDirectory(PChar(ExtractFilePath(ParamStr(0))+'Test'));
end;

Answer 4

直接用RemoveDirectory函数不行吗?我要删的就是存在的空文件夹啊