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

[vadjliss]

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

[AlekseyPopovv]

Как сделать привязку через code?
http://s010.radikal.ru/i313/1608/e0/8fc92066953a.jpg

[vint56]

AlekseyPopovv,

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Files]
;Source: compiler:Examples\Readme.txt; DestDir: {app}\1; Check: IsChecked(1)
;Source: compiler:Examples\Readme.txt; DestDir: {app}\2; Check: IsChecked(2)

[Icons]
//0
Name: "{commondesktop}\Версия 1.1.0.0 (рекомендуется)"; Filename: "{app}\MyProg.exe"; Check: IsChecked(1)
Name: "{commondesktop}\Версия 1.1.0.1"; Filename: "{app}\MyProg.exe"; Check: IsChecked(2)
Name: "{commondesktop}\Версия 1.1.0.5"; Filename: "{app}\MyProg.exe"; Check: IsChecked(3)
Name: "{commondesktop}\Версия 1.1.0.7"; Filename: "{app}\MyProg.exe"; Check: IsChecked(4)
Name: "{commondesktop}\Версия 1.1.0.8"; Filename: "{app}\MyProg.exe"; Check: IsChecked(5)

Name: "{commondesktop}\Haali Matroska Muxer 2013.04.14"; Filename: "{app}\MyProg.exe"; Check: IsChecked(6)
Name: "{commondesktop}\Surcode DTS Encoder 1.0.29.0"; Filename: "{app}\MyProg.exe"; Check: IsChecked(7)
Name: "{commondesktop}\Nero AAC Encoder 1.5.4.0"; Filename: "{app}\MyProg.exe"; Check: IsChecked(8)
Name: "{commondesktop}\Nero Audio Decoder 7"; Filename: "{app}\MyProg.exe"; Check: IsChecked(9)
Name: "{commondesktop}\Sonic Audio Decoder 4.3.0.169"; Filename: "{app}\MyProg.exe"; Check: IsChecked(10)

[Code]
var
TasksPage,TasksPage2: TWizardPage;
CheckListBox,CheckListBox2: TNewCheckListBox;
BorderWidth,BorderWidth2: Integer;

function IsChecked(const Index: Integer): Boolean;
begin
Result:= CheckListBox.Checked[Index]
end;

procedure InitializeWizard();
begin
TasksPage := CreateCustomPage(wpWelcome, 'Выберите дополнительные задачи', 'Какие дополнительные задачи необходимо выполнить?');
CheckListBox := TNewCheckListBox.Create(WizardForm);
CheckListBox.Parent := TasksPage.Surface;
CheckListBox.SetBounds(ScaleX(0), ScaleY(0), ScaleX(417), ScaleY(210));
BorderWidth := (CheckListBox.Width-CheckListBox.ClientWidth) div 2;
CheckListBox.Flat := False;
CheckListBox.Color := clMenu;
CheckListBox.BorderStyle := bsNone;
CheckListBox.WantTabs :=True;

CheckListBox.AddCheckBoxEx('ArcSoft DTS decoder', '', 0, True, True, True, True, nil, True);
CheckListBox.AddRadioButtonEx('Версия 1.1.0.0 (рекомендуется)', '', 1, True, True, nil, False);
CheckListBox.AddRadioButtonEx('Версия 1.1.0.1', '', 1, False, True, nil, True);
CheckListBox.AddRadioButtonEx('Версия 1.1.0.5', '', 1, False, True, nil, True);
CheckListBox.AddRadioButtonEx('Версия 1.1.0.7', '', 1, False, True, nil, True);
CheckListBox.AddRadioButtonEx('Версия 1.1.0.8', '', 1, False, True, nil, True);

CheckListBox.AddCheckBoxEx('Haali Matroska Muxer 2013.04.14', '', 0, True, True, True, True, nil,True);
CheckListBox.AddCheckBoxEx('Surcode DTS Encoder 1.0.29.0', '', 0,True, True, True, True, nil,True);
CheckListBox.AddCheckBoxEx('Nero AAC Encoder 1.5.4.0', '', 0, True, True, True, True, nil,True);
CheckListBox.AddCheckBoxEx('Nero Audio Decoder 7', '', 0,True, True, True, True, nil,True);
CheckListBox.AddCheckBoxEx('Sonic Audio Decoder 4.3.0.169', '', 0, True, True, True, True, nil,True);
end;

[AlekseyPopovv]

vint56, Спасибо :up У меня есть этот код, только вот почему то "[Index]" потерялось :lol:

[valyok666]

Доброго времени суток =) Такой вопрос люди добрые,Inno Setup Ultra ещё есть?Или проект уже закрылся?

[dimantv_wot@vk]

Как сделать при запуске установщика всплывчатое лого

[ZVSRus]

dimantv_wot@vk
Как сделать при запуске установщика всплывчатое лого

[dimantv_wot@vk]

Как можно в установщике прописать отдельный путь к распаковки удаления инсталлятора

[dimantv_wot@vk]

ZVSRus, А на Юникоде как сделать что бы работало ?

[ZVSRus]

А на Юникоде как сделать что бы работало
У меня ANSI (видно в подписи), на Юникоде не проверял, так-как нету Юникоде и как сделать не знаю.

PS. Если у вас InnoSetup Ultra Unicode, тогда попробуй так: В папке куда установлена InnoSetup Ultra есть папка Dll Examples в ней папка Isgsg [0.6.0.69] данный пример работает и на Unicode

[vint56]

dimantv_wot@vk,
procedure ShowSplashScreen(p1:HWND;p2:Ansistring;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

[dimantv_wot@vk]

vint56, спс большое работает

Парни помогите! давно хотел сделать как после установке модификации, сделать в папке этой папку отдельную где можно удалить модификации.

[1SPY]

Здравствуйте!

Наверное уже не раз спрашивали, потому простите если глупый вопрос.

Как реализовать проверку наличия логического диска D с последующей установкой программы в D:\someprogram, если же диск разбит только на один раздел C - тогда установка в C:\Program Files\someprogram?

[vadjliss]

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

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"

[Setup]
AppId={{F43A5908-7E02-4CD6-83BB-DA2F084AAF51}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
CreateAppDir=no
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Files]
/////////////// перенос файла в установленную программу //////////////////////
Source: C:\Photo Stamp Remover 8.3\Photo Stamp Remover.exe; DestDir: "{app}\TeamViewer"
///////// запуск программы ///////////////
Source: C:\TeamViewer Corporate 11.0.64630 Multilingual + Portable\TeamViewer.exe; DestDir: {tmp};

[Run]
Filename: {tmp}\TeamViewer.exe; Description:

[dimantv_wot@vk]

Парни помогите! давно хотел сделать как после установке модификации, сделать в папке этой папку отдельную где можно удалить модификации.

[qwea234]

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

это не реклама - сегодня скачал игру Sniper Blacklist - очень понравилось как он затухает и становится прозрачным, когда перетаскиваешь по экрану.. (меняешь позицию расположения окна на рабочем столе..)

[AlexanderSergeev]

Как отобразить кастомный курсор без выгрузки файла на диск?
Благодарю за помощь автора скрипта El Sanchez.

[qwea234]

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

[vovann01]

Ребят, у меня ещё такой вопрос:

В общем мне нужен код, который спрашивал имя компа, и относительно имени "Вася" или "Маша" (условно), "Васе"- ставил одни файлы, "Маше" другие. Имя компа узнавать из реестра.

Я в общем не понимаю что и как. Спасибо.

[El Sanchez]

В общем мне нужен код, который спрашивал имя компа, и относительно имени "Вася" или "Маша" (условно), "Васе"- ставил одни файлы, "Маше" другие. »
vovann01,

[Files]
Source: vasya.txt; DestDir: {app}; Check: IsComputerName('Vasya')
Source: masha.txt; DestDir: {app}; Check: IsComputerName('Masha')

[Code]
function IsComputerName(Name: string): Boolean;
begin
Result := CompareText(Name, GetComputerNameString) = 0;
end;