Q
qgz
Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi中，如何删除一个指定的目录，
要将整个指定的目录删除，而不是先删除目录下的子目录中的文件，再删除子目录。
要将整个指定的目录删除，而不是先删除目录下的子目录中的文件，再删除子目录。
X
Xelloss
Unregistered / Unconfirmed
GUEST, unregistred user!
deltree path
DOS外部命令
DOS外部命令
L
LiChaoHui
Unregistered / Unconfirmed
GUEST, unregistred user!
RmDir
一个Delphi函数
一个Delphi函数
D
delphiland
Unregistered / Unconfirmed
GUEST, unregistred user!
function DelDirectory(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;
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;
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
myrec:TSHFILEOPSTRUCT ;
begin
With myrec DO Begin
Wnd:= Handle;
wFunc:= FO_DELETE;
pFrom:= 'c:/aaa';
pTo:='';
fFlags:= FOF_NOCONFIRMATION or FOF_FILESONLY;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
SHFileOperation(myrec);
end;
var
myrec:TSHFILEOPSTRUCT ;
begin
With myrec DO Begin
Wnd:= Handle;
wFunc:= FO_DELETE;
pFrom:= 'c:/aaa';
pTo:='';
fFlags:= FOF_NOCONFIRMATION or FOF_FILESONLY;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
SHFileOperation(myrec);
end;
Z
zyg_zm
Unregistered / Unconfirmed
GUEST, unregistred user!
要的
W
www
Unregistered / Unconfirmed
GUEST, unregistred user!
看这个.
procedure DeleteDirectory(const Path,WindowTitle:string);
Var T:TSHFileOpStruct;
begin
With T do Begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=Pchar(Path);
pTo:=nil;
///fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复，无须确认并不显示出错信息
fFlags:=FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复，无须确认并不显示出错信息
hNameMappings:=nil;
lpszProgressTitle:=pchar(WindowTitle);
fAnyOperationsAborted:=False;
End;
SHFileOperation(T);
end;
procedure DeleteDirectory(const Path,WindowTitle:string);
Var T:TSHFileOpStruct;
begin
With T do Begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=Pchar(Path);
pTo:=nil;
///fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复，无须确认并不显示出错信息
fFlags:=FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复，无须确认并不显示出错信息
hNameMappings:=nil;
lpszProgressTitle:=pchar(WindowTitle);
fAnyOperationsAborted:=False;
End;
SHFileOperation(T);
end;
S
shodoy
Unregistered / Unconfirmed
GUEST, unregistred user!
用Winexec执行Deltree.exe
影
影 子
Unregistered / Unconfirmed
GUEST, unregistred user!
哈，居然有人用deltree，如果发布程序的时候，岂不是要连同deltree一起发布？[
]
]
Z
zyg_zm
Unregistered / Unconfirmed
GUEST, unregistred user!
其实楼上那些讲的用shell operater的方法挺不错的，我开始没想到