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

Shift85 · Конфигурация компьютера

Цитата Антон_Мураткин@vk:

Этот файл есть который на скрине »

Антон_Мураткин@vk, Покажите секцию "[Files]" и "ExtractTemporaryFile"

Dodakaedr · Конфигурация компьютера

Цитата Антон_Мураткин@vk:

На скрине показывается ошибка. Этот файл есть который на скрине »

Проверьте путь куда файл извлекается и откуда вызывается, но без скрипта тяжело сказать в чем именно ошибка.

nik1967 · Конфигурация компьютера

Нафиг вообще используете эту библиотеку? В расширенной Inno давно уже есть CallbackAddr - не надо с собой ни InnoCallback.dll, ни CallbackCtrl.dll таскать.

Kashtan007 · Отправлено: **00:46, 22-05-2014** | #**724**

Всем привет. Мне нужно реализовать 2 чекбокса на странице "Каталог" в установщике.
Т.е. у нас есть полоска выбора пути (куда устанавливать наши компоненты) и нужно чтобы под ней было 2 чекбокса.

1 чекбокс: Удаление старых компонентов. Т.е. у меня есть папка res_mods... Нужно чтобы при выборе этого чекбокса очищало папку res_mods от всего содержимого.

2 чекбокс: Бекап файлов. У меня есть папка res_mods, но допустим в ней нужные компоненты и я хочу их сохранить. То при выборе этого чекбокса будет создана копия папки res_mods которая будет называться old_res_mods.

Вот это должно выглядеть примерно так:

Буду благодарен за помощь!

Антон_Мураткин@vk · Отправлено: **10:50, 22-05-2014** | #**725**

Shift85, Dodakaedr, Благодарю! Сам разобрался, просто удалил в скрипте строчку CallbackCtrl.dll и всё заработало.

habib2302 · Конфигурация компьютера

всем привет. хочу доработать свой репак adobe flash player и допустим если выбрать тихую установку перед установкой запускался деинсталлятор, а если устанавливать в ручную, то деинсталлятор не запускался.

Shkutu · Отправлено: **13:29, 22-05-2014** | #**727**

Kashtan007, как-то так

Shkutu · Отправлено: **13:49, 22-05-2014** | #**728**

habib2302, примерно так

Код:

function InitializeSetup(): Boolean;
var ResultCode:integer; 
begin
 if WizardSilent then
  if FileExists (ExpandConstant('{uninstallexe}')) then //имхо, если при установке вы что-то пишете в реестр, то перед удалением неплохо было бы еще проверять наличие в реестре данных об уже установленной версии 
   Exec(ExpandConstant('{uninstallexe}'), '/SILENT', '', SW_SHOW,ewWaitUntilTerminated, ResultCode);
 result:=true;
end;

Антон_Мураткин@vk · Отправлено: **17:36, 22-05-2014** | #**729**

Доброе время суток! Помогите пожалуйста.

Вот этот текст:

Код:

procedure InitializeWizard();
begin
  ExtractTemporaryFile('BASS.dll');
  ExtractTemporaryFile('CallbackCtrl.dll');
  ExtractTemporaryFile('botva2.dll');
  ExtractTemporaryFile('MusicButton.png');
  ExtractTemporaryFile('Music.mp3');

  BASS_Init('{tmp}\Music.mp3') //Çàïóñêàåì ìóçûêó
  //Ìîæíî äîáàâèòü â èíñòàëë íåñêîëüêî ïåñåí
  //BASS_Init(ExpandConstant('{tmp}\*'))        //Ïîèñê ïî ìàñêå
  BASS_CreateOnOffButton(WizardForm, '{tmp}\MusicButton.png', 20, 320, 36, 36, 4) //Ñîçäàåì êíîïêó âêë/âûêë
end;

Вставить вот в этот текст.

Код:

procedure InitializeWizard;

begin
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash piratbit.png',700,1000,700,0,255,False,$FFFFFF,10);

ExtractTemporaryFile('Splash WhiteSmoke.png');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash WhiteSmoke.png',700,1000,700,0,255,False,$FFFFFF,10);

ExtractTemporaryFile('Splash Game.png');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash Game.png',700,1000,700,0,255,False,$FFFFFF,10);
WizardForm.Position:=poScreenCenter;
IsMyFont;
wzform;
btn;
welcom;
SelectDir;
Components;
ProgramGroup;
ProgramTask;
CreateControls;
Finish;
end;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall delayload setuponly';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall delayload setuponly';

procedure LoadSkinU(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';
procedure UnloadSkinU(); external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';


function InitializeSetup:boolean;
var
  ResCode: integer;
begin
  ExtractTemporaryFile('Skin.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\Skin.cjstyles'), '');
  Result:= true

  if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
  if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
  ExtractTemporaryFile('IsMyFont.dll');
  Result:=True;
end;

А то у меня выходит ошибка то на end; то на ExtractTemporaryFile('BASS.dll');

З.Ы. Вставлял в другой скрипт всё нормально было. А в другом вот ошибки вылазиют.
Заранее благодарю.

Dodakaedr · Конфигурация компьютера

Антон_Мураткин@vk, Так пробовали?