inno setup使用

1、安装完全完成之后，删除某文件或文件夹（有时，到最后一个界面时，会提示是否安装另外的exe，如果这里用InstallDelete的话，就会在这里删，而不是在完全结束后删）

procedure DeinitializeSetup();
var
i : Integer;
begin
if (DirExists('C:\Program Files (x86)\Microsoft\other')) then
begin
for i:= 0 to 10000 do
begin
if (DelTree('C:\Program Files (x86)\Microsoft\other', True, True, True)) then
begin
break;
end
else
Sleep(10);
end;
end;
end;

// 循环删除

 

效果和上面的差不多

procedure CurStepChanged(CurStep:TSetupStep);
var
ErrorCode: Integer;
begin
if CurStep=ssDone then
begin
DelTree(ExpandConstant('C:\Program Files (x86)\Microsoft\other'), True, True, True);
MsgBox('退出程序', mbError, MB_OK);
end;
end;

 

 

 点击完成之前就会删除的两种方法：

files段中：

;Source: "D:\1.txt"; DestDir: "D:"; Flags: deleteafterinstall ;这个点击完成之前就删了

Run段中：

;Filename:"{cmd}"; Parameters:"/C del /s /f 1.txt"; WorkingDir:"d:"; Flags: waituntilidle ; 这个也可以实现在安装完后删除