怎样删除某一文件夹中的所有文件？(50分)

怎样删除某一文件夹中的所有文件？[?]

deletetree *.*

deltree *.*

function DelDir(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;//FOF_SILENT表示不出现对话框。
; end;
; Result := (SHFileOperation(fo) = 0);
end;

接受答案了.