怎样删除一个指定的目录下的文件和目录。(20分)

现有一个目录 data,下有很多的文件，要求用命令删除全部的文件和目录，谢谢

请看 http://www.delphibbs.com/delphibbs/dispq.asp?lid=488266

我在win2000下不能删除怎么回事

删除目录,不管是空目录还是非空目录:
function do
RemoveDir(sDirName:String):Boolean;
var
hFindFile:Cardinal;
tfile:String;
sCurDir:String;
bEmptyDir:Boolean;
FindFileData:WIN32_FIND_DATA;
begin
bEmptyDir:=True;
sCurDir:=GetCurrentDir;
SetLength(sCurDir,Length(sCurDir));
ChDir(sDirName);
hFindFile:=FindFirstFile('*.*',FindFileData);
if hFindFile< >INVALID_HANDLE_VALUE then
begin
repeat
tfile:=FindFileData.cFileName;
if (tfile='.') or (tfile='..') then
begin
bEmptyDir:=bEmptyDir and True;
Continue;
end;
bEmptyDir:=False;
if FindFileData.dwFileAttributes=
FILE_ATTRIBUTE_DIRECTORY then
begin
if sDirName[Length(sDirName)]< >'/' then
DoRemoveDir(sDirName+'/'+tfile)
else
DoRemoveDir(sDirName+tfile);
if not RemoveDirectory(PChar(tfile)) then
result:=false
else
result:=true;
end
else
begin
if not DeleteFile(PChar(tfile)) then
result:=false
else
result:=true;
end;
until FindNextFile(hFindFile,FindFileData)=false;
FindClose(hFindFile);
end
else
begin
ChDir(sCurDir);
result:=false;
exit;
end;
if bEmptyDir then
begin
ChDir('..');
RemoveDirectory(PChar(sDirName));
end;
ChDir(sCurDir);
result:=true;
end;

function DeleteDir(sDirName:String):Boolean;
begin
if Length(sDirName)< =0 then
exit;
Result:=DoRemoveDir(sDirName) and RemoveDir(sDirName);
end;

ToRecycle(0,目录名);
procedure ToRecycle(AHandle: THandle;
const ADirName: String);
var
SHFileOpStruct: TSHFileOpStruct;
DirName: PChar;
BufferSize: Cardinal;
begin
BufferSize := Length(ADirName) +1 +1;
GetMem(DirName, BufferSize);
try
FillChar(DirName^, BufferSize, 0);
StrCopy(DirName, PChar(ADirName));
with SHFileOpStruct do
begin
Wnd := AHandle;
wFunc := FO_DELETE;
pFrom := DirName;
pTo := nil;
fFlags := FOF_ALLOWUNDO;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;

if SHFileOperation(SHFileOpStruct) <> 0 then
RaiseLastWin32Error;
finally
FreeMem(DirName, BufferSize);
end;
end;

bjf2001：你好，以下是你在
http://www.delphibbs.com/delphibbs/dispq.asp?lid=585886 回的帖子：
//来自：bjf2001, 时间：2002-1-9 17:09:00, ID：845578
//我已经能够在win2000下锁定ctr+alt+del三键
我急需这方面资料，又联系不上你，只好在这里打扰一下。
如果你真能帮我解决的话，我将开帖给你100分，希望你能办忙，谢谢!
我的email 是 jeremy_z@sina.com

接受答案了.