[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;