求一个Delphi能删除指定文件夹下的所有文件的demo

求一个Delphi能删除指定文件夹下的所有文件的demo

Delphi 能够调用 Win32 API 函数吧，因为我用的是 C++ 语言，所以具体代码就不写出来了，给你大概思路：
枚举指定目录下的所有文件，如果是文件，则删除，如果是目录，则递归枚举。
下面是 C++ 代码：
bool DeleteDir( char* szDirPath )
{
int iFileNameLen = strlen( szDirPath );
char szTempDirPath[ MAX_PATH ];
ZeroMemory( szTempDirPath, sizeof( char ) * MAX_PATH );

if( '\\' == szDirPath[ iFileNameLen - 1 ] ) sprintf( szTempDirPath, "%s*.*", szDirPath );

WIN32_FIND_DATA wfd;

HANDLE hFile = FindFirstFileA( szTempDirPath, &wfd );

if( INVALID_HANDLE_VALUE == hFile )
{
printf( "Find First File Failed..." );
return false;
}

while( 0 != FindNextFileA( hFile, &wfd ) )
{
if( 0 == strcmp( ".", wfd.cFileName ) || 0 == strcmp( "..", wfd.cFileName ) )
continue;

char szPath[ MAX_PATH ];
ZeroMemory( szPath, sizeof( char ) * MAX_PATH );
sprintf( szPath, "%s%s\\", szDirPath, wfd.cFileName );

// 如果是目录，则递归枚举
if( FILE_ATTRIBUTE_DIRECTORY == wfd.dwFileAttributes )
{
DeleteDir( szPath );
}
// 否则，就是文件，我们删除它
else
{
DeleteFileA( szPath );
}
}

CloseHandle( hFile );

return true;
}

你好！ 使用API函数FindFirstFile、FindNextFile和DeleteFile就可以实现了！ 并不复杂！ 打字不易，采纳哦！