Chanka
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Code_]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usPostUninstall then
begin
if DirExists(ExpandConstant('{userappdata}\My Program 1')) or DirExists (ExpandConstant('{userappdata}\My Program 2')) or DirExists (ExpandConstant('{userappdata}\My Program 3')) then
begin
if MsgBox('Удалить все настройки и сохраненные?',mbconfirmation, mb_yesno) = IDYES then
begin
DelTree(ExpandConstant('{userappdata}\My Program 1'), True, True, True);
end;
end;
end;
end; |
Всего записей: 208 | Зарегистр. 24-08-2006 | Отправлено: 20:06 13-09-2008 | Исправлено: Chanka, 20:23 13-09-2008 |
|
