[passstrada]

Помогите пожалуйста как прописать два раза команду:procedure InitializeWizard(); »

Попробуй в конце InitializeWizard добавить

Код:

begin
RedesignWizardForm;
end
end;

Тоисть:

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

Код:

procedure InitializeWizard();
begin
ExtractTemporaryFile('bass.dll');
ExtractTemporaryFile('CallbackCtrl.dll');
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('volmax.png');
ExtractTemporaryFile('volmin.png');
ExtractTemporaryFile('voldote.png')
ExtractTemporaryFile('volpb.png')
ExtractTemporaryFile('MusicButton.png');
ExtractTemporaryFile('music.mp3');

BASS_Init('{tmp}\music.mp3')
BASS_CreateMediaPlayer(WizardForm, '{tmp}\volmax.png', '{tmp}\volmin.png', '{tmp}\volpb.png', '{tmp}\voldote.png', 70, 325)
	begin
	RedesignWizardForm;
	end
end;

procedure DeinitializeSetup();
begin
Bass_DeInit;
gdipShutdown
end;

[ZVSRus]

Код:

procedure InitializeWizard();
begin
  RedesignWizardForm;

  ExtractTemporaryFile('bass.dll');
  ExtractTemporaryFile('CallbackCtrl.dll');
  ExtractTemporaryFile('botva2.dll');
  ExtractTemporaryFile('volmax.png');
  ExtractTemporaryFile('volmin.png');
  ExtractTemporaryFile('voldote.png')
  ExtractTemporaryFile('volpb.png')
  ExtractTemporaryFile('MusicButton.png');
  ExtractTemporaryFile('music.mp3');

  BASS_Init('{tmp}\music.mp3')
  BASS_CreateMediaPlayer(WizardForm, '{tmp}\volmax.png', '{tmp}\volmin.png', '{tmp}\volpb.png', '{tmp}\voldote.png', 70, 325)
end;

procedure DeinitializeSetup();
begin
  Bass_DeInit;
  gdipShutdown
end;

[Ispanets]

Здравствуйте, помогите, пожалуйста, делаю игровой инсталлятор и нужно внедрить в него доп. по с Яндекса, могу оплатить работу. Уже голову сломал не чего не выходит, пишите, кто знает, как сделать мне в лс

[Tco 03]

Ispanets, Что именно хотите сделать? Какое дополнительное ПО? Браузер от Яндекса? Поиск от Яндекса? Или какую-нибудь другую хрень от Яндекса? ПО в самом инсталляторе или нужно скачать и потом установить?

[Ispanets]

в лс скинул

[Ispanets]

Да мне нужно доп по поставить в инсталятор, не могу найти специалиста по Inno Setup

[habib2302]

Доброе время суток. Нужна помощь. Нужно получить версию программы из реестра, сравнить версию указанную в скрипте и выдать msgbox старая версия или свежая.

[Udwratu2]

Как сделать ассоциацию файлов установить драйвер UltraISO ?

[Udwratu2]

Root: HKCR; Subkey: ".iso"; ValueData: "{#AppName}"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""
Root: HKCR; Subkey: "{#AppName}"; ValueData: "Program {#AppName}"; Flags: uninsdeletekey; ValueType: string; ValueName: ""
Root: HKCR; Subkey: "{#AppName}\DefaultIcon"; ValueData: "{app}\{#AppExeName},0"; ValueType: string; ValueName: ""
Root: HKCR; Subkey: "{#AppName}\shell\open\command"; ValueData: """{app}\{#AppExeName}"" ""%1"""; ValueType: string; ValueName: ""

Так ли? Что с драйвером делать и как добавить пункты в контекстное меню?

[pollipen]

Парни добавление Брандмауэр
А, если надо добавить 2 программы то как сделать?
[code][Setup]
#define AppName "My Program"
#define AppExeName "MyProg.exe"

Код:

 
procedure CurStepChanged(CurStep: TSetupStep); var
  RC: Integer;
   SIn, SOut: String;
    begin
     if CurStep=ssInstall then
     begin 
    Exec(ExpandConstant('netsh.exe'), 'advfirewall firewall delete rule name="{#AppName}"','', SW_HIDE, ewWaitUntilTerminated, RC)
   SIn:='advfirewall firewall add rule name="{#AppName}" dir=in action=block program='+ExpandConstant('"{app}\{#AppExeName}"')+' enable=yes'; Exec('netsh',  SIn,'', SW_HIDE, ewWaitUntilTerminated, RC)
  SOut:='advfirewall firewall add rule name="{#AppName}" dir=out action=block program='+ExpandConstant('"{app}\{#AppExeName}"')+' enable=yes'; Exec('netsh', SOut,'', SW_HIDE, ewWaitUntilTerminated, RC)
end
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); var
  RC: Integer;
   begin
    if CurUninstallStep=usUninstall then
   begin
  Exec(ExpandConstant('netsh.exe'), 'advfirewall firewall delete rule name="{#AppName}"','', SW_HIDE, ewWaitUntilTerminated, RC)
end
end;