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

[svs23]

Сколько хочу декомпилировать ехе-шники ничего не получается. Выдает постоянно ошибку, как ее исправить? p.s пользуюсь вроде как последними версиями по которые должны открывать ехе-шники созданные в inno setup 5.5 »
маловероятно, а точнее практически невозможно :)

[svs23]

Спасибо позже попробую. »
держи...

[Shkutu]

Всем доброго времени суток!
Возникла следующая проблема. При установке создается .url файл (способ стандартный :) )
[Icons]
Name: "{commondesktop}\WebReports\WebInterface"; Filename: "{code:GetLink}"; Components: iis\web; Tasks: desktopicon\web
[Сode]
function GetLink(param:string):string;
begin
result:='http://127.0.0.1:' + SitePortPage.values[0] + '/webinterface/Home/Login';
end;

Собственно, сам ярлык создается, но при этом иногда (не всегда, но часто) у созданного файла не совпадают значения свойств url-адреса на вкладке "веб-документ" и "подробно". Пример, как это выглядит в результате - в скиншотах.
Подскажите пожалуйста, откуда может взяться эта проблема и как ее решить.

[Dodakaedr]

При установке создается .url файл (способ стандартный ) »
[Setup]
appname=app
AppVersion=1.0
DefaultDirName={pf}\app

[Icons]
Name: "{commondesktop}\WebInterface"; Filename: "http://127.0.0.1:90/webinterface/Home/Login";

[MaximilianoPozo]

А такой вот еще вопрос. Сколько хочу декомпилировать ехе-шники ничего не получается. Выдает постоянно ошибку, как ее исправить? p.s пользуюсь вроде как последними версиями по которые должны открывать ехе-шники созданные в inno setup 5.5 »
А никак

[Shkutu]

Dodakaedr, там неспроста строка, идущая в filename не пишется хардкодом, а возвращается функцией, ибо порт может отличаться. в любом случае, это вряд ли влияет. судя по тому, что, если открыть этот файлик как текст, ссылка там правильная, напрашивается мысль, что проблема не с ярлыком, а с кэшем браузера или системы.

[svs23]

как сделать проверку на выбор хотя бы одно компонента для кастомного листа?
if CurPageID = ComponentsPage1.ID then
if WizardSelectedComponents(False) = '' then
begin
MsgBox('Ни один из компонентов не выбран!', mbInformation, MB_OK);
Result:= False;
end;

[ekspoint]

как сделать проверку на выбор хотя бы одно компонента для кастомного листа? »
вот так:
function NextButtonClick(CurPageID: Integer): Boolean;
var
i: integer;
begin
Result := True;

if CurPageID = wpSelectDir then
begin
if (FileSearch('WorldOfTanks.exe', ExpandConstant('{app}')) = '') then
begin
SuppressibleMsgBox('"WorldOfTanks.exe не найден в папке назначения, проверьте путь к игре".', mbCriticalError, MB_OK, MB_OK);
Result := False;
end else
Result := True;
end else

if CurPageID = ComponentsPage1.ID then
begin
Result := False;
for i:= 0 to ComponentsList1.Items.Count - 1 do
begin
if (ComponentsList1.Checked[i]) then
begin
Result := True;
Break;
end;
end;
if Not Result then MsgBoxEx(0, 'Не один из компонетов не выбран!','Внимание!!',MB_OK or MB_ICONWARNING, 0, 0);
end else
begin
Result := True;
end;
end

[svs23]

ekspoint, спс

[ekspoint]

Помогите прицепить новый тип установки к новому компонент листу

[Setup]
AppName=Моя программа
AppVersion=1.5
DefaultDirName={pf}\Моя программа
DirExistsWarning=no
AppendDefaultDirName=no
[CustomMessages]
CompName1=Компонент 1
CompName2=Компонент 2
CompSubtitlesLng=Язык субтитров
CompVoiceLng=Язык озвучки
CompRussian=Русский
CompEnglish=Английский
[_CODE]
var
ComboBox: TNewComboBox;
Page: TWizardPage;
var
ComponentsList1: TNewCheckListBox;
procedure CreateWizardPages;
begin
begin
Page := CreateCustomPage(wpWelcome, '', '');
ComboBox := TNewComboBox.Create(Page);
ComboBox.Width := Page.SurfaceWidth;
ComboBox.Parent := Page.Surface;
ComboBox.Style := csDropDownList;
ComboBox.Items.Add('TComboBox 1');
ComboBox.Items.Add('TComboBox 2');
ComboBox.Items.Add('TComboBox 3');
ComboBox.Items.Add('TComboBox 4');
ComboBox.Items.Add('TComboBox 5');
ComboBox.ItemIndex := 0;
end;
//========================================================================\\
ComponentsList1 := TNewCheckListBox.Create(WizardForm);
with ComponentsList1 do
begin
Parent := Page.Surface;
SetBounds(ScaleX(0), ScaleY(61), ScaleX(417), ScaleY(169));
AddCheckBox(CustomMessage('CompSubtitlesLng'), '', 0, True, True, False, True, nil); //0
AddRadioButton(CustomMessage('CompRussian'), '', 1, True, True, nil); //1
AddRadioButton(CustomMessage('CompEnglish'), '', 1, True, True, nil); //2
AddCheckBox(CustomMessage('CompVoiceLng'), '', 0, True, True, False, True, nil); //3
AddRadioButton(CustomMessage('CompRussian'), '', 1, True, True, nil); //4
AddRadioButton(CustomMessage('CompEnglish'), '', 1, True, True, nil); //5
end;
end;
function IsComponentsForm1(CompIndex: Integer): Boolean;
var
i: Integer;
begin
Result := False;
for i := 0 to ComponentsList1.ItemCount - 1 do
begin
if CompIndex <= (ComponentsList1.ItemCount - 1) then
Result := ComponentsList1.Checked[CompIndex];
end;
end;
procedure InitializeWizard();
begin
CreateWizardPages;
end;

[NewMix]

держи...
Вложения
IDP_and_Extract_Example_AtotIK.rar
(416.8 Kb, 4 просмотров) »


а это что такое?

[NewMix]

держи...
Вложения
IDP_and_Extract_Example_AtotIK.rar
(416.8 Kb, 4 просмотров) »

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

[svs23]

Мне нужно чтобы после разорхивирования скачанного файла данный архив который скачал был удален. »
это в коде предусмотренно
DeleteFile(ExpandConstant(

[NewMix]

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

[ekspoint]

а такой вопрос, после того как файл скачался и начал распаковываться почему не появляется cmd со списком распаковываемых компонентов? Ибо пользователь не сразу может понять что будет еще распаковка звуков. »
SW_Hide замени на SW_Show

[NewMix]

SW_Hide замени на SW_Show »

ах да точняк. Сразу не заметил. Благодарю. Кстате файл удаляется автоматически тоже не заметил. =)

[ekspoint]

ах да точняк. Сразу не заметил. Благодарю. Кстате файл удаляется автоматически тоже не заметил. »можно сделать так что бы удалялся если выбрал чек

[ekspoint]

Как сделать запоминание установленных компонентов из TNewCheckListBox?

[VoLT]

Немножко вернулся к прошлым идеям, из за потери сорцов - переписал на Delphi, возможно если будут желающие перепишу на Си, там не сложно.
Из ожидаемых фич - пакетная многопоточная обработка (запуск) по маске/списку.
Надеюсь что терпения хватит и я скоро выложу ISWin7.

Исходник ISExec на github (https://github.com/MstrVLT/ISExec)

[Dodakaedr]

VoLT, а саму dll-ку где можно взять?