怎样删除一个目录？(0分)

我找到这段代码
function DelDirectory(const Source:string): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(source+#0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
end;
Result := (SHFileOperation(fo) = 0);
end;

能否给解释一下在哪里添加需要删除的目录名呢？

DelDirectory('你要删除的目录')

对阿，建议看看基本的语法书，书店里面有好多书都有函数和过程的调用的说明