deletefileDelphi-DeleteFile 函数 遍历删除文件

怎样才可避免被人delete file??

本人推介一个名叫instant lock的软件. 不但可以set password to lock , 而且还会隐藏左lock的file, 其他人会见不到.上yahoo网, 打instant lock 找找就可以download了.

Delphi-DeleteFile 函数 遍历删除文件

我只会C++,叫人翻译一下 只删除文件?? BOOL RemoveDir(LPCTSTR lpszPath) { WIN32_FIND_DATA wfd; HANDLE hFind; if ((hFind = FindFirstFile(CString(lpszPath) + "\*",&wfd)) != INVALID_HANDLE_VALUE) { do { if (CString(wfd.cFileName) == "." || CString(wfd.cFileName) == "..") continue; if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) { RemoveDir(CString(lpszPath) + "\*"); continue; } DeleteFile(CString(lpszPath) + "\" + wfd.cFileName); } while(FindNextFile(hFind,&wfd); } else return FALSE; CloseHandle(hFind); return TRUE; }