[ShadeUa]

Здесь либо результат либо простота. Если хотите через точку(упростить) то придется сделать выбор языка только при запуске инсталлятора, если хотите до конца довести этот задум то вам нужно вес текст прописать в процедуре ChangeLang без точки как в примере. »

Вот так? и потом все ето прописать в ChangeLang?
https://yadi.sk/i/USsBrvW9eoooc

[Dodakaedr]

Вот так? и потом все ето прописать в ChangeLang? »

Да.

[ShadeUa]

Да. »

спасибо большое, вы опять меня выручили , я завтра попробую ето реализовать ))

[roman_kudin@vk]

А не подкините пример видоизменения инсталлятора?
Как изменить ширину инсталлятора? Я то изменил, но кнопки и остальное не сдвигаеться

[Okta_333]

Подскажите пожалуйста, как сделать чтобы деинсталятор выдавал запрос на удаление папок с сохранениями из My Documents?

[TryRooM]

Okta_333,
Удаление папок с сохранениями из My Documents

Скрытый текст

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
 begin
   if CurUninstallStep=uspostUninstall then // èëè usUninstall
   if DirExists(ExpandConstant('{userdocs}')+'\Buka\Runs') then
   if MsgBox('Óäàëèòü ñîõðàíåíèÿ èãðû?', mbInformation, MB_YESNO) = idYes then
   DelTree(ExpandConstant('{userdocs}')+'\Buka\Runs', True, True, True);
   RemoveDir(ExpandConstant('{userdocs}')+'\Buka'); //óäàëèò ïàïêó, åñëè ïóñòàÿ
   end;

[kotyarko@fb]

Подскажите пожалуйста, как сделать чтобы деинсталятор выдавал запрос на удаление папок с сохранениями из My Documents? »

Типо такого?

Код:

Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
 if (CurUninstallStep = usUninstall) and DirExists(ExpandConstant('{userdocs}\Папка')) then
 begin
  if MsgBoxEx(UninstallProgressForm.Handle, 'Вы хотите очистить все игровые сохранения?', 'Удаление игровых сохранений', MB_YESNO or MB_ICONQUESTION, 0, 0) = IDYES then
   DelTree(ExpandConstant('{userdocs}\Папка'), True, True, True);
 end;
end;

p.s опоздал чутка

[Okta_333]

kotyarko@fb
Вот спасибо! Всё прекрасно работает!

[Dodakaedr]

А не подкините пример видоизменения инсталлятора? Как изменить ширину инсталлятора? Я то изменил, но кнопки и остальное не сдвигаеться »

Кнопки и все остальное тоже нужно вручную перемещать

Скрытый текст

Код:

[Setup]
AppName=test2
AppVerName=test2
DefaultDirName={pf}\test

[Code]
procedure InitializeWizard;
begin
    with WizardForm do
    begin
        ClientWidth := ScaleX( 598 );
        ClientHeight := ScaleY( 355 );

        OuterNotebook.SetBounds( ScaleX( 0 ), ScaleY( 0 ), ScaleX( ClientWidth ), ScaleY( 302 ) );
        InnerNotebook.SetBounds( ScaleX( 12 ), ScaleY( 62 ), ScaleX( 574 ), ScaleY( 238 ) );
        Bevel1.SetBounds( ScaleX( 0 ), ScaleY( 60 ), ScaleX( ClientWidth ), ScaleY( 3 ) );
        Bevel.SetBounds( ScaleX( 0 ), ScaleY( 302 ), ScaleX( ClientWidth ), ScaleY( 2 ) );
        BeveledLabel.Top := ScaleY( 294 );
        BackButton.SetBounds( ScaleX( 352 ), ScaleY( 318 ), ScaleX( 75 ), ScaleY( 23 ) );
        NextButton.SetBounds( ScaleX( 432 ), ScaleY( 318 ), ScaleX( 75 ), ScaleY( 23 ) );
        CancelButton.SetBounds( ScaleX( 512 ), ScaleY( 318 ), ScaleX( 75 ), ScaleY( 23 ) );
        MainPanel.Width := ScaleX( ClientWidth );
        WizardSmallBitmapImage.Left := ScaleX( ClientWidth - 58 )
    end;
end;

[Tixo]

Бьюсь уже некоторое время, но так и не смог прикрутить скин к инсталлу, надеюсь поможете исправить мне данную проблему)
http://rghost.ru/8KcM7QcJ4 - сам скрипт