procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usDone then
begin
DelTree(ExpandConstant('{app}\dbo'), True, False, False)
if DirExists(ExpandConstant('{app}\dbo')) then
begin
if MsgBox('Удалить конфигурацию объекта?',mbconfirmation, mb_yesno) = IDYES then
begin
DelTree(ExpandConstant('{app}\dbo'), True, True, True)
end
end
else
CreateDir(ExpandConstant('{app}\dbo'))
DelTree(ExpandConstant('{app}\dbs'), True, False, False)
if DirExists(ExpandConstant('{app}\dbs')) then
begin
if MsgBox('Удалить конфигурацию извещений?',mbconfirmation, mb_yesno) = IDYES then
begin
DelTree(ExpandConstant('{app}\dbs'), True, True, True)
end
end
else
CreateDir(ExpandConstant('{app}\dbs'))
DelTree(ExpandConstant('{app}\img'), True, False, False)
if DirExists(ExpandConstant('{app}\img')) then
begin
if MsgBox('Удалить фотографии пользователей?',mbconfirmation, mb_yesno) = IDYES then
begin
DelTree(ExpandConstant('{app}\img'), True, True, True)
end
end
else
CreateDir(ExpandConstant('{app}\img'))
end
end;
|
