delphi 删除exe所在的文件夹

Posted 2023-03-25

我有一个exe 文件，点这个文件的时候，程序自动删除这个文件所在的文件夹及该文件夹下面的所有文件，怎么做？

参考技术A 创建文件夹可以用forcedirectories函数,可以创建深层文件夹;删除文件夹,可以用到下面的函数,参数为文件夹的路径,如:d:\show
uses
shellapi;
function
deletedirectory(p
:string):
boolean;
var
f:
tshfileopstruct;
begin
fillchar(f,
sizeof(f),
0);
with
f
do
begin
wnd
:=
0;
wfunc
:=
fo_delete;
pfrom
:=
pchar(p+#0);
pto
:=
pchar(p+#0);
fflags
:=
fof_allowundo+fof_noconfirmation+fof_noerrorui;
end;
result
:=
(shfileoperation(f)
=
0);
end;
要简单一点的可以用winexec调用dos的rd命令,如;winexec('cmd
/c
rd
/s
/q
d:\show',sw_hide)就一句代码
遇到con文件夹可以先用winexec('cmd
/c
rd
/s
/q
d:\show\con\',sw_hide)把con文件夹删除,再用winexec('cmd
/c
rd
/s
/q
d:\show',sw_hide)把show删除 参考技术B 你没
说明白
，请问删除文件夹的所有文件，那需要删自己吗，这个是关键，如果不需要那直接获得所有文件
删就是了