用delphi如何一次删除某个目录下的所有文件？

用FindFirst,FindNext,FindClose来遍历文件，用DeleteFile来删除。不过做为一个程序员，解决问题是第一位的，所以可以用下述办法winexec('Deltree.exe

-y

c:\test',sw_hide)

没必要去循环删除，速度很慢，直接调用api就行了，如下，直接在uses

shellapi之后，调用SHMyDelDirectory去删除你的目录.

function

SHMyDelDirectory(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

---