[R.i.m.s.k.y.]

мне нужно чтоб на странице спрашивать пользователя куда сохранять бекап »

ну вот тут в CurStepChanged и вставляй вопрос, или в список компонентов отдельную галочку

чтоб удалить базу и пользователя в postgres »

это в форум по postgres (щито это?)

[Temyraz@fb]

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

вот конкретный код
[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;

вот как спросить у пользователя куда сохранить бекап?

[Johny777]

Temyraz@fb,

я так понимаю сохранить нужно это?
CopyDir(ExpandConstant('{app}\files'),ExpandConstant('Путь сохранения бекапа'));
CopyDir(ExpandConstant('{app}\license'),ExpandConstant('Путь сохранения бекапа'));
создаёшь чекбокс на странице выбора компонентов
R.i.m.s.k.y. сказал же через CurStepChanged
вот так оно и будет выглядеть
для бэкапа взял шаг ssInstall, те перед установкой (удалением)

читать дальше »

Код:

var
  BackUp_CheckBox: TNewCheckBox;


function make_backup: Boolean; 
 begin
  Result:=BackUp_CheckBox.Checked;
   end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
  begin
  if BackUp_CheckBox.Checked then
CopyDir(ExpandConstant('{app}\files'),ExpandConstant('Путь сохранения бекапа')); 
CopyDir(ExpandConstant('{app}\license'),ExpandConstant('Путь сохранения бекапа'));
end;


procedure InitializeWizard;
begin
  BackUp_CheckBox := TNewCheckBox.Create(WizardForm);
  with BackUp_CheckBox do
  begin
    Name := 'BackUp_CheckBox';
    Parent := WizardForm.SelectComponentsPage;
    Left := ScaleX(304);
    Top := ScaleY(213);
    Width := ScaleX(113);
    Height := ScaleY(17);
    Caption := 'Сделать бэкап?';
  end;
end;

только это для удаления скрипт. Поэтому вместо {app} используй {src}
путь сохранения потом задашь в коде? Он статичный?

[Temyraz@fb]

путь сохранения пользователь сам укажет

[Johny777]

сам укажет »

можно подробнее?
как это работает?
одного это достаточно?
ExpandConstant('Путь сохранения бекапа'))

[Temyraz@fb]

Вообще бекап будет делаться в деистоляторе. т.е. когда пользователь начинает удалять программу, у него система будет спрашивать делать бекап? если он отвечает "да" , то система будет спрашивать куда сохранить бекап. система сохранить именно там где указал пользователь

[Johny777]

Temyraz@fb,
но учти у меня в примере этого нет
там чекбокс отмечается без MsgBox -а
а примеры копирования и не только есть в коллекции скриптов innoultra.ru/downloads/Scripts.rar

[Temyraz@fb]

да смотрел я эти скрипты, у меня почему та не хочет во время удаления появляться страницы. только сообщения.
а в MsgBox может пользователь выбрать путь сохранения бекапа?

[R.i.m.s.k.y.]

MsgBox может пользователь выбрать путь сохранения бекапа? »

нет, надо отдельное окно рисовать
как я не знаю

[Temyraz@fb]

а у кого можно спросить? реально срочно нужно