[vint56]

Dodakaedr пример
http://rghost.ru/53198788

[Dinvin4ester]

Ребята ,а мне не поможете ?

[Stealthmax]

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

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = TypeInstall.ID then
  begin
    WizardForm.Caption:=ExpandConstant('{cm:TypeInstall}');
    //Изменить описание кнопки Далее для конкретной страницы
    WizardForm.NextButton.Caption := ExpandConstant('{cm:Install}');
  end;
  if CurPageID = AdditionallyPage.ID then
  begin
    WizardForm.Caption:=ExpandConstant('{cm:Labels}');
  end;
end;

И ещё такой вопрос: как запустить установку после выбора CheckBox и RadioButton в списке, если стандартные диалоговые окна отключены, т.е. полностью все окна кастомные, часть компонентов из них перенесены на новые окна. Хотя бы пример какой-то дайте, если не затруднит. Не могу понять как "прикрутить" запуск установки исходя из вышеизложенного.

[saurn]

почему не обрабатывается код, в частности не происходит переименование заголовка формы »

Работает.

читать дальше »

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DisableWelcomePage=yes
OutputDir={#SourcePath}


[Code]
const
    PAGES_COUNT = 3;

var
    pageArray: array of TWizardPage;


procedure CreateCustomPages(const AfterID, Count: Integer; out ResultArray: array of TWizardPage);
var
    i, Len: Integer;
begin
    Len := GetArrayLength(ResultArray);
    SetArrayLength(ResultArray, Len + Count);

    for i := Len + Count - 1 downto Len do
      ResultArray[i] := CreateCustomPage(AfterID, #0, #0);
end;


procedure ModifyCustomPages();
var
    Len: Integer;
begin
    Len := GetArrayLength(pageArray);
    
    with pageArray[0] do
    begin
        Caption := 'Первая страница';
        Description := 'Description';
    end;

    with pageArray[1] do
    begin
        Caption := 'Вторая страница';
        Description := 'Description';
    end;

    with pageArray[Len - 1] do
    begin
        Caption := 'Третья страница';
        Description := 'Description';
    end;
end;


procedure CurPageChanged(CurPageID: Integer);
var
    Len: Integer;
begin
    Len := GetArrayLength(pageArray);

    WizardForm.Caption := SetupMessage(msgSetupWindowTitle);

    case PageFromID(CurPageID) of
        pageArray[0]: WizardForm.Caption := 'Первая страница';
        pageArray[1]: WizardForm.Caption := 'Вторая страница';
        pageArray[Len - 1]: WizardForm.Caption := 'Третья страница';
    end;
end;


procedure InitializeWizard();
begin
    CreateCustomPages(wpWelcome, PAGES_COUNT, pageArray);
    ModifyCustomPages();
end;

как запустить установку после выбора CheckBox »

Например:

Код:

if CheckBox.Checked then нужное действие

[Dodakaedr]

vint56, что не так? Таже ошибка выскакивает... Чисто твой скрипт работает.

читать дальше »

#define IncludeFiles "InstallFiles"
#define Skin
#ifdef Skin
#define Styles "ISSkinEx.cjstyles"
#endif

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[Files]
#ifdef Skin
#ifdef UNICODE
Source: {#IncludeFiles}\U\ISSkin.dll; Flags: dontcopy
#else
Source: {#IncludeFiles}\ISSkin.dll; Flags: dontcopy
#endif
Source: {#IncludeFiles}\{#Styles}; Flags: dontcopy
#endif



[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:ISSkin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:ISSkin.dll stdcall';

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('ISSkinEx.cjstyles');
LoadSkin(ExpandConstant('{tmp}\ISSkinEx.cjstyles'), '');
Result := True;
end;

procedure DeinitializeSetup();
begin
UnloadSkin();
end;

[vint56]

Dodakaedr ISSkin.dll нету во временном каталоге

читать дальше »

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[Files]
Source: "Tiger.cjstyles"; Flags: dontcopy
Source: "ISSkin.dll";Flags: dontcopy

[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:ISSkin.dll stdcall';
procedure UnloadSkin();
external 'UnloadSkin@files:ISSkin.dll stdcall';

function InitializeSetup(): Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\Tiger.cjstyles')) then ExtractTemporaryFile('Tiger.cjstyles');
if not FileExists(ExpandConstant('{tmp}\ISSkin.dll')) then ExtractTemporaryFile('ISSkin.dll');
LoadSkin(ExpandConstant('{tmp}\Tiger.cjstyles'), '');
Result := True;
end;

procedure DeinitializeSetup();
begin
UnloadSkin();
end;

[Dodakaedr]

vint56, не помогает.

[Shkutu]

Приветствую!
Подскажите плиз, есть ли в инно функция, с помощью которой можно узнать, почему не отработала предыдущая функция типа FileCopy? Ну т е что-то, аналогичное SysErrorMessage(ResultCode), но для функций, которые просто возвращают true/false без всякого ResultCode

[Ivan_009]

Как на отдельный чекбокс наложить картинку bmp или только на компонент лист можно...
Заранее спасибо...

[Gnom_aka_Lexander]

Ivan_009, шапку лень почитать?
Создание кастомного чекбокса - пример скрипта для создания своего чекбокса, всего 12 состояний, (ссылка на сообщение);