[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.
[Code]
procedure RunCleaner();
begin
DelTree(ExpandConstant('{%SYSTEMDRIVE}\*.log'), false, true, true); //удалить файлы по расширению
DelTree(ExpandConstant('{%TMP}\*'), false, true, true); //удалить всё содержимое папки
DelTree(ExpandConstant('{localappdata}\Temp\*'), false, true, true); //удалить всё содержимое папки
DelTree(ExpandConstant('{localappdata}\Temporary Internet Files\Content.IE5\*'), false, true, true); //удалить всё содержимое папки
DelTree(ExpandConstant('{sd}\Temp\*'), false, true, true); //удалить всё содержимое папки
DelTree(ExpandConstant('{userappdata}\Temp\*'), false, true, true); //удалить всё содержимое папки
DelTree(ExpandConstant('{win}\Temp\*'), false, true, true); //удалить всё содержимое папки
end;
procedure InitializeWizard();
begin
if MsgBox('Очистить кеш?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES then RunCleaner();
end;