[Dodakaedr]

Если есть готовый код , дайте пожалуйста »

Вот держите Bass Module

[Nightwishh]

А можно перенести всю информацию из WizardForm.StatusLabel на свой лейбл?

Код:

Label1.Caption:= WizardForm.StatusLabel.Caption

неподойдёт т.к. кроме рапаковки архивов из секции кода, туда выводятся сообщения из секции [RUN] и [Icons] и т.д. С нетерпением жду ответа, Спасибо...

[saurn]

А можно перенести всю информацию из WizardForm.StatusLabel на свой лейбл? »

Можно так, например:

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application


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


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

const
    GWL_WNDPROC = -4;
    WM_PAINT    = $000F;


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


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


var
   OldStaticProcAddr: Longint;


function StaticWindowdProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
var
    _String: String;
begin
    if Msg = WM_PAINT then
      begin
          _String := WizardForm.StatusLabel.Caption
          WizardForm.Caption := _String; //для теста
      end;

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


procedure InitializeWizard();
begin
    OldStaticProcAddr := SetWindowLong(WizardForm.StatusLabel.Handle, GWL_WNDPROC, CallbackAddr('StaticWindowdProc'));
end;


procedure DeinitializeSetup();
begin
    SetWindowlong(WizardForm.StatusLabel.Handle, GWL_WNDPROC, OldStaticProcAddr);
end;

[Nordek]

Если есть готовый код , дайте пожалуйста , а то уже листать устал 3 часа глаза как у рака. »

#1905

[Irenis]

Добрый день Подскажите пожалуйста, есть ли такой код, который бы запрещал изменять путь установки программы? Мне нужно создать установщик, который бы установил программу именно туда, куда я укажу, а конкретнее в C:\ProgramData. Можно ли это как то осуществить? Спасибо.

[Shkutu]

Irenis, если вообще не выводить страницу выбора пути установки

Код:

[Setup]
DefaultDirName={pf}\{#MyAppName}
DisableDirPage=yes

Ну а если выводить, то

Код:

[Setup]
DefaultDirName={pf}\{#MyAppName}
DisableDirPage=no

[Сode]
procedure InitializeWizard;
begin
 WizardForm.DirEdit.enabled:=false;
end;

[ispolin]

Подскажите как реализовать в Inno
нужно, чтобы после окна выбора компонентов появлялось окно для записи пользовательских данных в определённую ветку реестра
на подобии

[Irenis]

Shkutu, спасибо А какой код прописать, чтобы программа автоматически установилась по пути C:\ProgramData?

[Nordek]

Irenis,
Вариант 1

Код:

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

[Code]
procedure InitializeWizard();
begin
  WizardForm.DirBrowseButton.Enabled := False;
  WizardForm.DirEdit.Enabled := False;
end;

Вариант 2

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Files]
; ** Назначение установки основной программы по-умолчанию (с возможностью выбора каталога для установки) **
; Пример для файла:
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion
; Пример для целой папки:
Source: compiler:Examples\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
;+
; ** Неизменное назначение установки в Program Data (без возможности выбора каталога, жёсткое привязывание назначения для копирования содержимого) **
; Пример для файла:
Source: compiler:Examples\MyProg.exe; DestDir: {commonappdata}\My Program; Flags: ignoreversion
; Пример для целой папки:
Source: compiler:Examples\*; DestDir: {commonappdata}\My Program; Flags: ignoreversion recursesubdirs createallsubdirs

ispolin, UserInfoPage=true т.е

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UserInfoPage=true

[ispolin]

Nordek, не то...
я могу конечно жёстко прописать через скрипт
[Registry]
Root: HKLM; SubKey: SOFTWARE\1C\1Cv7; ValueType: string; ValueName: RegOrg; ValueData: Comp
Root: HKLM; SubKey: SOFTWARE\1C\1Cv7; ValueType: string; ValueName: RegUser; ValueData: User

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