[notmeagain]

Добрый день. Есть вопрос, который надо решить. При установке программы надо чтобы была возможность выбрать путь установки программы и выбрать отдельно путь хранения дополнительных файлов и потом второй путь внести в переменную среды.
Главный вопрос как сделать еще один момент с вопросом куда сохранять вторые файлы и как их передать, чтобы внести в переменную среды. Спасибо.

Сам же и отвечу на свой вопрос.

Код:

[Registry]
Root: HKCU; Subkey: "Environment"; ValueType:string; ValueName:"nameEnv"; ValueData:"{code:GetDataDir}" ; Flags: preservestringtype ;

[code]

Код:

var
DataDirPage: TInputDirWizardPage;

procedure InitializeWizard;
begin
  { Create the pages }

 DataDirPage := CreateInputDirPage(wpSelectDir,
    'Выбор директории ', 'Куда сохранять ?',
    'Выберите папку и затем нажмите продолжить.',
    False, '');
  DataDirPage.Add('');

DataDirPage.Values[0] := GetPreviousData('DataDir', '');
end;

procedure RegisterPreviousData(PreviousDataKey: Integer);
var
  UsageMode: String;
begin
  SetPreviousData(PreviousDataKey, 'DataDir', DataDirPage.Values[0]);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  I: Integer;
begin
if DataDirPage.Values[0] = '' then
        DataDirPage.Values[0] := 'C:\';
      Result := True;
end;

function GetDataDir(Param: String): String;
begin
  { Return the selected DataDir }
  Result := DataDirPage.Values[0];
end;

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