[diman_21Ru]

Хоть убейся но в скрипт backup папки res-mods и галочку в компоненты я не как добавить не могу =(
Если все же кто то может добавить мне это в скрипт я скину в личку только скажите

[Nordek]

Хоть убейся но в скрипт backup папки res-mods и галочку в компоненты я не как добавить не могу =( »

Не верю. Знаешь в чём твоя беда? В том что ты невнимателен, не хочешь учиться и ленивый - даже для себя самого, поверь, я знаю о чём пишу.
С лёгкостью это наглядно покажу: Сообщение 1751, Сообщение 2116 - кому это всё пишется?

Показываю на примере этого кода который предоставил saurn:

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

Подчеркнул красным

Код:

procedure CreateCustomControls();
var
    i, Len: Integer;
begin
    SetArrayLength(arrayChk, 2);
    Len := GetArrayLength(arrayChk) - 1;

    for i := 0 to Len do
    begin
        arrayChk[i] := TCheckBox.Create(nil);
        with arrayChk[i] do
        begin
            Parent := WizardForm.SelectDirPage;
            SetBounds(ScaleX(0), ScaleY(100 + i*24), ScaleX(15), ScaleY(15));
        end;
    end;

    SetArrayLength(arrayLbl, 2);
    Len := GetArrayLength(arrayLbl) - 1;

    for i := 0 to Len do
    begin
        arrayLbl[i] := TLabel.Create(nil);
        with arrayLbl[i] do
        begin
            Parent := WizardForm.SelectDirPage;
            SetBounds(ScaleX(18), ScaleY(101 + i*24), ScaleX(WizardForm.DirEdit.Width), ScaleY(15));
            Font.Color := $008000;
            case i of
                0: Caption := 'Backup res_mods folder';
                Len: Caption := 'Backup xvm folder only';
            end;
        end;
    end;
end;

Код:

procedure CreateCustomControls();
var
    i, Len: Integer;
begin
    SetArrayLength(arrayChk, 2);
    Len := GetArrayLength(arrayChk) - 1;

    for i := 0 to Len do
    begin
        arrayChk[i] := TCheckBox.Create(nil);
        with arrayChk[i] do
        begin
            Parent := WizardForm.SelectComponentsPage;
            SetBounds(ScaleX(0), ScaleY(180 + i*24), ScaleX(15), ScaleY(15));
        end;
    end;

    SetArrayLength(arrayLbl, 2);
    Len := GetArrayLength(arrayLbl) - 1;

    for i := 0 to Len do
    begin
        arrayLbl[i] := TLabel.Create(nil);
        with arrayLbl[i] do
        begin
            Parent := WizardForm.SelectComponentsPage;
            SetBounds(ScaleX(18), ScaleY(181 + i*24), ScaleX(WizardForm.DirEdit.Width), ScaleY(15));
            Font.Color := $008000;
            case i of
                0: Caption := 'Backup res_mods folder';
                Len: Caption := 'Backup xvm folder only';
            end;
        end;
    end;
end;

[habib2302]

доброе время суток. как добавить окно с запросом продолжить установку

и после соглашения появляется маленькое окно процесса установки

[diman_21Ru]

Source: {app}res_mods*; DestDir: {app}res_mods_old; Flags: external overwritereadonly ignoreversion; выходит ошибка пи установке модов !

[Shkutu]

Приветствую!
Подскажите плиз, как можно изменять текст стандартных сообщений в коде (не через секцию Messages)? Нужно на InstallingPage менять текст в зависимости от различных условий

[saurn]

habib2302

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

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
OutputDir=...
BitmapResource=bitmap:compiler:WizModernSmallImage.bmp

[Files]
Source: {fonts}\*; DestDir: {app}; Flags: external

[code]
#define A = (Defined UNICODE) ? "W" : "A"


const
    MB_ICONNONE          = $00000000;
    MB_ICONSTOP          = $00000010;
    MB_ICONEXCLAMATION   = $00000030;
    MB_ICONASTERISK      = $00000040;

    MB_CANCELTRYCONTINUE = $00000006;

    MB_APPLMODAL         = $00000000;
    MB_SYSTEMMODAL       = $00001000;
    MB_TASKMODAL         = $00002000;

    MB_RIGHT             = $00080000;

    IDTRYAGAIN           = 10;
    IDCONTINUE           = 11;

    BM_CLICK = $00F5;

    WM_USER              = $0400;
    PBM_SETPOS           = WM_USER + 2;
    GWL_WNDPROC          = - 4;


type
    LPCTSTR = String;
    _HINSTANCE = LongWord;

    LPARAM = Integer;
    WPARAM = Integer;
    LRESULT = Integer;
    TFNWndProc = Integer;


function MessageBox(HWND: hWnd; lpText: LPCTSTR; lpCaption: LPCTSTR; uType: UINT): Integer; external 'MessageBox{#A}@user32.dll stdcall';
function LoadBitmap(hInstance: _HINSTANCE; lpBitmapName: LPCTSTR): HBITMAP; external 'LoadBitmap{#A}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
function CallWindowProc(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'CallWindowProc{#A}@user32.dll stdcall';
function SetWindowText(hWnd: HWND; lpString: LPCTSTR): BOOL; external 'SetWindowText{#A}@user32.dll stdcall';


var
    swInitialize: Boolean;
    OldProgressBarProc: Longint;


function ProgressBarProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
begin
    if Msg = PBM_SETPOS then with WizardForm do SetWindowText( StatusLabel.Handle, Format('%s'#32'%s', [SetupMessage(msgStatusExtractFiles), FormatFloat('0.#0 %', (ProgressGauge.Position*100)/ProgressGauge.Max)]) );

    Result := CallWindowProc(OldProgressBarProc, hWnd, Msg, wParam, lParam);
end;


function InitializeSetup(): Boolean;
begin
    Result := MessageBox(Application.Handle, 'Продолжить установку?', 'Подтверждение установки', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON1 or MB_APPLMODAL) = 6;
    swInitialize := Result;
end;


procedure InitializeWizard();
begin
    with WizardForm do
    begin
        ClientHeight := ScaleY(97);
        BorderStyle := bsDialog;
        Position := poScreenCenter;

        InnerNotebook.SetBounds(ScaleX(0), ScaleY(0), ScaleX(497), ScaleY(97));
        MainPanel.Hide;
        WizardSmallBitmapImage.Hide;
        PageDescriptionLabel.Hide;
        PageNameLabel.Hide;
        FilenameLabel.Hide;

        with StatusLabel do
        begin
            Left := ScaleX(64);
            Top := ScaleY(24);
        end;

        ProgressGauge.Left := ScaleX(64);

        with TBitmapImage.Create(nil) do
        begin
            Parent := WizardForm.InstallingPage;
            SetBounds(ScaleX(8), ScaleY(24), ScaleX(48), ScaleY(48));
            Bitmap.Handle := LoadBitmap(HInstance, '_IS_BITMAP');
        end;
    end;
end;


procedure CurPageChanged(CurPageID: Integer);
begin
    PostMessage(WizardForm.NextButton.Handle, BM_CLICK, 0, 0);
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
    case CurStep of
        ssInstall: OldProgressBarProc := SetWindowLong(WizardForm.ProgressGauge.Handle, GWL_WNDPROC, CallbackAddr('ProgressBarProc'));
        ssPostInstall: SetWindowlong(WizardForm.ProgressGauge.Handle, GWL_WNDPROC, OldProgressBarProc);
        ssDone: MessageBox(WizardForm.Handle, 'Установка завершена', 'Завершение установки', MB_OK or MB_ICONASTERISK or MB_DEFBUTTON1 or MB_APPLMODAL)
    end;
end;


procedure DeinitializeSetup();
begin
    if swInitialize then SetWindowlong(WizardForm.ProgressGauge.Handle, GWL_WNDPROC, OldProgressBarProc);
end;

UPD: поправил пример

Подскажите плиз, как можно изменять текст стандартных сообщений в коде (не через секцию Messages)? Нужно на InstallingPage менять текст в зависимости от различных условий »

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
    case CurStep of
        ssInstall: if...условие... then WizardForm.StatusLabel.Caption :=
    end;
end;

Или в CurPageChanged. Можете это делать и в своей функции, где описаны условия и изменения зависящие от них, и вызывать функцию на нужном этапе.
-------------------------------------------------------------------------------------------

Source: {app}res_mods*; DestDir: {app}res_mods_old; Flags: external overwritereadonly ignoreversion; выходит ошибка пи установке модов ! »

Потому что секция файлов тут - одна сплошная ошибка. Устал пояснять, но все же повторю, сжато:

Код:

Source: Папка, где находятся устанавливаемые файлы\*; DestDir: папка, куда файлы устанавливаются; Flags: recursesubdirs overwritereadonly createallsubdirs ignoreversion;

diman_21Ru, может, почитаете наконец справку?

[Nordek]

Source: {app}res_mods*; DestDir: {app}res_mods_old »

Первое на что обрати внимание, это слешь \

Код:

Source: {app}\res_mods\*; DestDir: {app}\res_mods_old; Flags: ignoreversion overwritereadonly createallsubdirs recursesubdirs;

нет флагов

Код:

recursesubdirs   - Обрабатывать подкаталоги
createallsubdirs - Создавать все подкаталоги

так же присутствует флаг

Код:

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

Source: {app}res_mods* »

И что за {app} вначале, который в Source? У тебя есть этот каталог?

[diman_21Ru]

Как можно в этом скрипте почистить и убрать все чтобы могли появится Компоненты
http://rghost.ru/52251071

[Shkutu]

saurn, спасибо. А не подскажете, какой компонент надо использовать, чтобы также поменять тот текст, что расположен над StatusLabel?

[saurn]

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

В шапке формы?

Код:

WizardForm.PageNameLabel.Caption := ''; //заголовок
WizardForm.PageDescriptionLabel.Caption := ''; //подзаголовок

Эти контролы одни для всех страниц, и их значения меняются в зависимости от текущей страницы мастера.