[ErikPshat]

nik1967, Классно, спасибо, отлично работает!!! Понятно, где я допустил ошибку в фигурных скобках.

Можно ещё развить тему?...
А теперь я пытаюсь распаковать архивы с мультивыбором GetOpenFileNameMulti.
Всё то же самое, в справке Inno Setup есть пример кода.
Но почему-то компилятор выдаёт ошибку "Unknown Identifier 'GetOpenFileNameMulti'".
Может есть рабочий пример аналогичного кода?

[nik1967]

ErikPshat, скорее всего пользуешься расширенным компилятором. А GetOpenFileNameMulti прикрутили в поздних версиях инно. У меня в 5.5.9 уже не ругается.

в справке Inno Setup »

Эта справка для 5.6.1, на сколько я помню.

[zbz]

Ребята помогите пожалуйста, разобратся в скрите. Еле откопал в интернете вот этот скрипт:

скрипт

[Setup]
AppName=My Program
AppVersion=1.5
DefaultGroupName=My Program
DefaultDirName={pf}\My Program
DisableDirPage=yes

[Files]

Source: "D:\!ZBFlash\!АБУБоекомплект\InnoSetup\Projects\ABU\Core\Myprog1.exe"; DestDir: "C:\ABUTemp"
Source: "D:\!ZBFlash\!АБУБоекомплект\InnoSetup\Projects\ABU\Core\Myprog2.exe"; DestDir: "C:\ABUTemp"



[code]
var
MyOptionsPage: TInputOptionWizardPage;

procedure InitializeWizard;
begin
MyOptionsPage := CreateInputOptionPage(wpWelcome, 'Caption', 'Description',
'SubCaption', True, False);
MyOptionsPage.Add('install Myprog1');
MyOptionsPage.Add('install Myprog1');
MyOptionsPage.Values[0] := True;
end;

function ShouldInstallIcon: Boolean;
begin


Result := MyOptionsPage.Values[0];
end;


procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpWelcome then
begin
SendMessage(WizardForm.NEXTBUTTON.Handle, 513, 0, 0)
SendMessage(WizardForm.NEXTBUTTON.Handle, 514, 0, 0)
end;
end;

и не могу понят куда и как написать, чтоб при соотвествуюшем выборе радио кнопки запускалась соотвествующий ехешник (Myprog1.exe или Myprog2.exe).

[R.i.m.s.k.y.]

zbz, читать в справке про секцию components

Код:

[Components]
Name: Myprog; Description: Myprog; 
Name: Myprog\Myprog1; Description: Myprog1; Flags: exclusive
Name: Myprog\Myprog2; Description: Myprog2; Flags: exclusive


[Files]
Components: Myprog\Myprog1; Source: "D:\!ZBFlash\!АБУБоекомплект\InnoSetup\Projects\ABU\Core\Myprog1.exe"; DestDir: "C:\ABUTemp"
Components: Myprog\Myprog2; Source: "D:\!ZBFlash\!АБУБоекомплект\InnoSetup\Projects\ABU\Core\Myprog2.exe"; DestDir: "C:\ABUTemp"

[zbz]

Components: Myprog\Myprog1; Source: "D:\!ZBFlash\!АБУБоекомплект\InnoSetup\Projects\ABU\Core\Myprog1.exe"; DestDir: "C:\ABUTemp" Components: Myprog\Myprog2; Source: "D:\!ZBFlash\!АБУБоекомплект\InnoSetup\Projects\ABU\Core\Myprog2.exe"; DestDir: "C:\ABUTemp" »

она же только копирует ехешники, а мне надо чтоб ехешник запускалось (или я что то не понял?!)

[ErikPshat]

Да, ошибку выбивает китайский 5.5.1 ee2. Переключился на компилятор 5.6.1, проходит нормально. Но при условии, если я делаю через ExpandConstsnt:

Код:

MsgBox('Выбраны PKG: '+ExpandConstant('FileNameList'), mbInformation, MB_OK);

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

Код:

Выбраны PKG: FileNameList

При нормальных условиях, без ExpandConstant, при компиляции выдаёт ошибку: Type mismatch.
Что-то не так снова в этой конструкции.

[R.i.m.s.k.y.]

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

Код:

MyOptionsPage: TInputOptionWizardPage;

procedure InitializeWizard;
begin
MyOptionsPage := CreateInputOptionPage(wpWelcome, 'Caption', 'Description',
'SubCaption', True, False);
MyOptionsPage.Add('install Myprog1');
MyOptionsPage.Add('install Myprog1');
MyOptionsPage.Values[0] := True;
end;

function ShouldInstallIcon: Boolean;
begin


Result := MyOptionsPage.Values[0];
end;

в) про запуск читать про секцию Run

Код:

[Run]

Components: Myprog\Myprog1; Filename: "C:\ABUTemp\Myprog1.exe"; Description: "Myprog1.exe"; Flags: skipifsilent runhidden
Components: Myprog\Myprog2; Filename: "C:\ABUTemp\Myprog2.exe"; Description: "Myprog2.exe"; Flags: nowait skipifsilent

[mubbii]

Это мой первый пост, я использовал или просматривал OSZONE в течение нескольких месяцев (помог мне много ... новичок здесь).
У меня вопрос о наложении Thumbail для панели задач ... в частности, показывается ход установки. Я добавил скриншот, чтобы уточнить.

https://imgur.com/a/duLH1r7

Im в настоящее время использует (wintb) .dll для наложения эскизов и работает нормально, но я хочу, чтобы он отображал дополнительную информацию, например. ход установки и оставшееся время.

Если это возможно? отправляем. любая помощь оценена. Спасибо!

im с использованием inno 5.6.1 (u) и последней улучшенной.

[nik1967]

mubbii, почитай здесь.

[ChopMan]

Относительно недавно начал изучать конструкция написания скрипта для Inno Setup. И тут возникла проблема: На странице, где необходимо выбрать путь, куда будет устанавливаться программа, по умолчанию стоит путь, который прописан в DefaultDirName, к примеру это DefaultDirName={pf}. В том проблема, что если требуется изменить путь в ручную, то все к выставленному пути приписывается значение DefaultDirName, то есть я хочу установить путь на E:\Games, но выставляется в итоге E:\Games\Program Files , мне требуется, чтобы значение DefaultDirName не выставлялось при изменении пути.
В интернете искал как и на этом форуме, особо толку такого не нашёл. Помогите пожалуйста разобраться в данной проблеме.