[Shkutu]

автоматически установилась по пути C:\ProgramData »

просто поменяйте значение DefaultDirName на тот путь, который нужен

Код:

[Setup]
DefaultDirName=C:\ProgramData
DisableDirPage=yes

Во втором варианте (с выводом страницы) аналогично.
ispolin, попробуйте что-то вроде

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

Код:

[Registry]
Root: HKLM; SubKey: SOFTWARE\1C\1Cv7; ValueType: string; ValueName: RegOrg; ValueData:{code:GetRegData|RegOrg}
Root: HKLM; SubKey: SOFTWARE\1C\1Cv7; ValueType: string; ValueName: RegUser; ValueData: {code:GetRegData|RegUser}

[Сode]
function GetRegData(param:string):string;
begin
 case param of
  'RegOrg': result:=UserDataPage.values[0];
  'RegUser': result:=UserDataPage.values[1];
 end;
end; 

procedure InitializeWizard;
begin
 UserDataPage:=CreateInputQueryPage(ReportServerDataPage.id,
  'Данные организации', 'Введите данные организации',
   'Введите данные организации');
 UserDataPage.Add('Организация', false);
 UserDataPage.Add('Пользователь', false);
end;

[saurn]

ispolin

Код:

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


[Registry]
Root: HKLM; SubKey: SOFTWARE\1C\1Cv7; ValueType: string; ValueName: RegOrg; ValueData: {code:SetUserInfo|user};
Root: HKLM; SubKey: SOFTWARE\1C\1Cv7; ValueType: string; ValueName: RegUser; ValueData: {code:SetUserInfo|org};


[Code]
function SetUserInfo( const Value: String ): String;
begin
    case Value of
        'user': Result := WizardForm.UserInfoNameEdit.Text;
        'org': Result := WizardForm.UserInfoOrgEdit.Text;
    end;
end;

[ispolin]

Shkutu,


saurn, окошко вообще не появилось для ввода данных

[saurn]

ispolin, переменная UserDataPage не определена. Добавьте в начало секции Code

Код:

var
    UserDataPage: TInputQueryWizardPage;

[ispolin]

saurn, дальше..

[saurn]

ispolin, вместо ReportServerDataPage укажите ID страницы, после которой необходимо отобразить вашу кастомную страницу:

Код:

UserDataPage:=CreateInputQueryPage(wpSelectComponents,
  'Данные организации', 'Введите данные организации',
   'Введите данные организации');

[Nordek]

ispolin,

Код:

[Setup]
AppName=My Program
AppPublisher=My Company
AppVersion=1.0
DefaultDirName={pf}\My Program

[Registry]
Root: HKCU; SubKey: Software\{#SetupSetting("AppName")}\{#SetupSetting("AppPublisher")}; ValueType: string; ValueName: UserName; ValueData: {code:SetUser}; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCU; SubKey: Software\{#SetupSetting("AppName")}\{#SetupSetting("AppPublisher")}; ValueType: string; ValueName: Organization; ValueData: {code:SetOrg}; Flags: uninsdeletevalue uninsdeletekeyifempty

[CustomMessages]
Caption=Заголовок
Description=Описание
User=&Имя пользователя:
Organization=&Организация:

[Code]
var
  UserPage: TWizardPage;
  UserNameLabel, OrganizationLabel: TLabel;
  UsernameEdit, OrganizationEdit: TNewEdit;

procedure InitializeWizard();
begin
  UserPage := CreateCustomPage(wpInfoBefore, ExpandConstant('{cm:Caption}'), ExpandConstant('{cm:Description}'));

  UserNameLabel := TLabel.Create(WizardForm);
  with UserNameLabel do
  begin
    Parent := UserPage.Surface;
    Caption := ExpandConstant('{cm:User}');
    Transparent := False;
    Left := ScaleX(16);
    Top := ScaleY(40);
  end;

  OrganizationLabel := TLabel.Create(WizardForm);
  with OrganizationLabel do
  begin
    Parent := UserPage.Surface;
    Caption := ExpandConstant('{cm:Organization}');
    Transparent := False;
    Left := ScaleX(16);
    Top := ScaleY(96);
  end;

  UsernameEdit := TNewEdit.Create(WizardForm);
  with UsernameEdit do
  begin
    Parent := UserPage.Surface;
    Left := ScaleX(16);
    Top := ScaleY(56);
    Width := ScaleX(385);
    Height := ScaleY(21);
    Text := ExpandConstant('{sysuserinfoname}');
  end;

  OrganizationEdit := TNewEdit.Create(WizardForm);
  with OrganizationEdit do
  begin
    Parent := UserPage.Surface;
    Left := ScaleX(16);
    Top := ScaleY(112);
    Width := ScaleX(385);
    Height := ScaleY(21);
    Text := ExpandConstant('{sysuserinfoorg}');
  end;
end;

function SetUser(Param: String): String;
begin
    Result := Format('%s', [UsernameEdit.Text]);
end;

function SetOrg(Param: String): String;
begin
    Result := Format('%s', [OrganizationEdit.Text]);
end;

[ispolin]

saurn, отлично, мы это сделали!

[ispolin]

ой осталась самая малость
что и где прописать, чтобы при деинсталяции удалялись добавленные ключи из реестра?

[Dodakaedr]

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

Добавить Flags

Код:

[Registry]
Root: HKLM; SubKey: SOFTWARE\1C; Flags: uninsdeletekeyifempty
Root: HKLM; SubKey: SOFTWARE\1C\1Cv7; ValueType: string; ValueName: RegOrg; ValueData:{code:GetRegData|RegOrg}; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: SOFTWARE\1C\1Cv7; ValueType: string; ValueName: RegUser; ValueData: {code:GetRegData|RegUser}; Flags: uninsdeletevalue uninsdeletekeyifempty