Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Пользователь


Сообщения: 53
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


наверное я ослеп или чего та не понимаю.

вот конкретный код
[code]
#
Код: Выделить весь код
procedure DeleteBitmaps(ADirName: string);
var 
FindRec: TFindRec;
begin if FindFirst(ADirName + '\*.*', FindRec) then
begin try repeat if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0 then begin if (FindRec.Name <> '.') and (FindRec.Name <> '..') then
begin DeleteBitmaps(ADirName + '\' + FindRec.Name); RemoveDir(ADirName + '\' + FindRec.Name); 
end; 
end else if Pos('.bmp', AnsiLowerCase(FindRec.Name)) > 0 then DeleteFile(ADirName + '\' + FindRec.Name); until not FindNext(FindRec); finally FindClose(FindRec); 
end; 
end; 
end; 
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); 
begin if MsgBox('Baskup:' #13#13 'Сделать бекап?', mbConfirmation, MB_YESNO) = idYes then 
begin 
CopyDir(ExpandConstant('{app}\files'),ExpandConstant('Путь сохранения бекапа')); 
CopyDir(ExpandConstant('{app}\license'),ExpandConstant('Путь сохранения бекапа')); 
end
begin if MsgBox('Вы хотите удалить все фаилы??', mbConfirmation, MB_YESNO) = IDYES then begin DeleteBitmaps(ExpandConstant('{app}')); end; end; end;
вот как спросить у пользователя куда сохранить бекап?

Отправлено: 11:13, 15-03-2012 | #1102