Скрипты Inno Setup. Помощь и советы [часть 8]

[vadjliss]

ZVSRus, посмотрел ваш сегодняшний скрипт и не понял, что за hex описание в секции для [ISFormDesigner]





З.Ы. Ребята извините за нубство, может знаете, как реализовать такой

Скрипты Inno Setup. Помощь и советы [часть 8]

в инно?

[ZVSRus]

Цитата vadjliss:



как сделать что бы программа установилась как положено






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

[spoiler]Код:

[/spoiler]

Код: Выделить всё

[Files]
 //   Строки после картинок
 Source: "D:\Files\*"; DestDir: "{app}"; Flags: ignoreversion; Check: InstallerCheck;
 Source: "D:\dll\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: PortableCheck;
[Code*]
function InitializeSetup(): Boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\rus.png')) then ExtractTemporaryFile('rus.png');
  if not FileExists(ExpandConstant('{tmp}\eng.png')) then ExtractTemporaryFile('eng.png');
  if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
  if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
  if not FileExists(ExpandConstant('{tmp}\Installer net.png')) then ExtractTemporaryFile('Installer net.png');
  if not FileExists(ExpandConstant('{tmp}\Portable.png')) then ExtractTemporaryFile('Portable.png');
  if not FileExists(ExpandConstant('{tmp}\port neaktiv.bmp')) then ExtractTemporaryFile('port neaktiv.bmp');
  if not FileExists(ExpandConstant('{tmp}\stac.bmp')) then ExtractTemporaryFile('stac.bmp');
 Result := True;
  end;
function InstallerCheck: Boolean;    
 begin                                
   Result := Installer.Checked;       
 end;                                 
 function PortableCheck: Boolean;     
 begin                                
   Result := Portable.Checked;        
 end;
procedure CopmpClick(Sender: TObject);
begin
   case TNewRadioButton(Sender) of
      RusLang:
      begin
         sLang := 'rus';
         sLang2 := 'eng';
         if Portable.Checked then
            Portable.OnClick(Portable);
         if Installer.Checked then
            Installer.OnClick(Installer);
      end;
      EngLang:
      begin
         sLang := 'eng';
         sLang2 := 'rus';
         if Portable.Checked then
            Portable.OnClick(Portable);
         if Installer.Checked then
            Installer.OnClick(Installer);
      end;
      Portable:
      begin
         PortablePanel.Show;
         PortableFlagPanel.Show;
         InstallerPanel.Show;
         ImgLoad(PortableFlagPanel.Handle, ExpandConstant('{tmp}\' + sLang + '.png'), ScaleX(0), ScaleY(0),
                  ScaleX(40), ScaleY(20), True, True);
         ImgApplyChanges(PortableFlagPanel.Handle);
         InstallerFlagPanel.Hide;
         WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + 'AshampooPhotoCommanderPortable';
         WizardForm.Caption:= FmtMessage(ExpandConstant('Распаковка — %1'), [ExpandConstant('{#SetupSetting("AppName")}')]);
      end;
      Installer:
      begin
         InstallerPanel.Hide;
         PortablePanel.Hide;
         InstallerFlagPanel.Show;
         ImgLoad(InstallerFlagPanel.Handle, ExpandConstant('{tmp}\' + sLang + '.png'), ScaleX(0), ScaleY(0),
                  ScaleX(40), ScaleY(20), True, True);
         ImgApplyChanges(InstallerFlagPanel.Handle);
         PortableFlagPanel.Hide;
         WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf}')) + 'Ashampoo Photo Commander 14';
         WizardForm.Caption:= FmtMessage(SetupMessage(msgSetupWindowTitle), [ExpandConstant('{#SetupSetting("AppName")}')]);
      end;
   end;
end;

[vadjliss]

спасибо но зараза ошибку выдаёт может что то не так?

всё разобрался

а, как на счёт 1 вопроса про кнопку выключения музыки

может кто то разобрался с скриптом

музыка играет а кнопки на выключение музыки нет

[kotyarko@fb]

Цитата AlexanderSergeev:



расширенный юникод компилятор 5.5.1 от китайских собратьев



Зайди в Редактор Форм, создай новую страницу (например следом за WelcomePage). создай на ней компоненты (разные).

Автоматически создастся (не знаю как правильно называется) идентификатор страницы и компонентов [ISFormDesigner].

[vadjliss]

ZVSRus, теперь понял спасибо

[vadjliss]

что то не получается

[saurn]

Цитата ZVSRus:



Что нужно изменить в данной процедуре если финишная страница отключена.

Скрипты Inno Setup. Помощь и советы [часть 8]

Используйте не постраничный этап, а этапы установки, то есть:



Код:

Код: Выделить всё

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
    ssPostInstall:
      begin
        if PanelZadachCheck then PinToTaskbar(ExpandConstant('{app}\MyProg.exe'), True);
      end;
  end;
end;

[vadjliss]

saurn

благодарю теперь всё ок

[vadjliss]

Цитата Batistas:



Подскажет кто-нибудь решение проблемы?

Скрипты Inno Setup. Помощь и советы [часть 8]

Как вариант, проверьте в скрипте раскомментированы ли секции #define PrecompInside (0.38-0.42 зависит от версии) и #define SrepInside

В темпе обязательно должны находиться: последний ISDone.dll, unarc.dll, соответствующие CLS фильтры, модифицированный precomp.exe, подменная packjpg_dll.dll и zlib1.dll

Да, еще такой момент, если пакуете данные Arc.exe/FreeArc, которые подписаны FA_protect, то и распаковывать нужно патченным экземпляром unarc.dll

[Bartron]

Как в компонентах сделать что бы при выборе компонента ставилась галочка или кружок не нажимания на них а нажимая на текст