X
xhj12077021
Unregistered / Unconfirmed
GUEST, unregistred user!
我想删除一个文件夹，文件夹内有许多文件，路径有界面得到，
代码：
var
P,sPath: String;
T:TSHFileOpStruct;
begin
spath:= Edit4.Text;
P:=pchar(spath);
with T do
begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=PChar(P);
pTo:=nil;
fFlags:=FOF_ALLOWUNDO+FOF_NOERRORUI;
hNameMappings:=nil;
lpszProgressTitle:='正在删除文件夹';
fAnyOperationsAborted:=False;
end;
SHFileOperation(T);
end;
请问是什么原因
代码：
var
P,sPath: String;
T:TSHFileOpStruct;
begin
spath:= Edit4.Text;
P:=pchar(spath);
with T do
begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=PChar(P);
pTo:=nil;
fFlags:=FOF_ALLOWUNDO+FOF_NOERRORUI;
hNameMappings:=nil;
lpszProgressTitle:='正在删除文件夹';
fAnyOperationsAborted:=False;
end;
SHFileOperation(T);
end;
请问是什么原因