好象只能删除空文件夹。用SHFILEOPTION试试。
解决方案 »
- 怎样得到Word文档的焦点?
- fastreport 分组打印
- 求救:delphi7读写 xml文件,文件中怎样包含 附件(rar,doc等等二进制)
- PC通过ARM9(WINCE)实现远程摄像(速度经过大大优化)
- 注入的问题
- 怎么用DELPHI调用操作系统中的浏览器?
- QReport的问题???
- 请问 谁有 spcomm 控件。
- 哪位用FindWindowEx得到过一个form中mdichild form的hwnd?
- 用DELPHI的人到底有没有人要!
- 在调用DLL 文件时,怎样进行数据类型的转换,如 C 中的 DWORD 该转为 什么类型?
- dephi或者api有无这样的函数可以跟踪程序的执行,一旦程序成功结束时才返回。(有内容)
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;把文件夹删除到回收站