[Johny777]

SatHan,
апдейт предыдущего кода:

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

Код:

#define Section_1 "Section1"
#define Section_2 "Section2"

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

// для теста
//appid=Application1
appid=Application2


[Files]
Source: "File\1\*"; DestDir: "{code:Get_Path_0}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "File\2\*"; DestDir: "{code:Get_Path_1}"; Flags: ignoreversion recursesubdirs createallsubdirs


[  code]
var
  Page: TInputDirWizardPage;

function Get_Path_0(Param: String): String;
begin
  Result := Page.Values[0];
end;

function Get_Path_1(Param: String): String;
begin
  Result := Page.Values[1];
end;

procedure InitializeWizard();
begin
  Page:=CreateInputDirPage(wpWelcome,'копирование файлов', 'Укажите каталоги','',False,'NewFolder');
  with Page do
  begin
    Add('путь 1:');
    Values[0] := RemoveBackslash(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application1_is1,InstallLocation|C:}')) + '\{#Section_1}';
    Add('путь 2:');
    Values[1] := RemoveBackslash(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application2_is1,InstallLocation|C:}')) + '\{#Section_2}';   //
  end;
end;

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
begin
  Result := 'путь 1:' + NewLine + Space + Page.Values[0] + NewLine + NewLine + 'путь 2:' + NewLine + Space + Page.Values[1];
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := PageID = wpSelectDir;
end;

Если интересно конечно »

Спасибо!
взял на заметку
мало ли может пригодится

[MogilShik2007]

Johny777, спасибо заработало, интересует:

Код:

enablefire(WizardForm.WelcomePage.Handle, 0, 0, bmp.Handle, 50);

у тебя стоит значение 500, эт что такое?

SatHan, там еще 2 переменных меняется
С:\Windows\Temp ))))


И еще, фон окон, можно немного сероватым сделать, скрипт есть какой нибудь простой?

[SatHan]

там еще 2 переменных меняется С:\Windows\Temp )))) »

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

Об этом в курсе. то находится в окне Системные переменные.
Они относятся к общей группе будь ты Администратор или Пользователь. я про них не стал описывать из соображений (мало ли). Нет смысла их трогать.
А Переменные среды пользователя XXX - это относится к текущей учётной записи в которой можешь добавлять, изменять и удалять (если знаешь что к чему). туда можно например добавить что то своё. скажем какую нибудь папку. к примеру жмём Создать [Переменная - 7Z] [Значение - C:\Program Files\7-Zip\] и при выполнении %7Z% перейдёт в папку C:\Program Files\7-Zip\
Да хоть Inno. Переменная - INNO, Значение - C:\Program Files\Inno Setup 5\ итог %INNO%

[MogilShik2007]

Я знаю, эт так к слову написал)))

SatHan, ты кстати с ReDrawText не сталкивался? А то не пойму как разноцветный текст на разных страницах делать)))

[El Sanchez]

мой вопрос касательно загрузки всего ini файла в переменную с последующим считыванием из этой самой переменной всё ещё более чем в силе! »

Johny777, я б забил на это дело, но если очень хочется:

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

Код:

type
    TIniFile = array of record
        Section: String;    //секция
        Entries: array of record    //массив записей Name - Value, относящихся к секции
            Name: String;    //параметр
            Value: String;    //значение
        end;
    end;

function ParseIniFile(const Filename: String): TIniFile;
var
    iFile: TArrayOfString;
    i: Integer;
begin
    if not FileExists(Filename) then Exit;
    SetArrayLength(Result, 0);
    LoadStringsFromFile(Filename, iFile);
    for i := 0 to GetArrayLength(iFile)-1 do
    begin
        //для всех непустых строк, исключая комментарии
        if (iFile[i] <> '') and (Copy(iFile[i], 1, 1) <> ';') then
        begin
            //если строка является секцией...
            if (Pos('[', iFile[i]) = 1) and (Pos(']', iFile[i]) = Length(iFile[i])) then
            begin
                //...пишем в результат имя секции...
                SetArrayLength(Result, GetArrayLength(Result)+1);
                Result[GetArrayLength(Result)-1].Section := Copy(iFile[i], 2, Length(iFile[i])-2);
            end
                else
            begin
                //...иначе пишем пару параметр/значение
                SetArrayLength(Result[GetArrayLength(Result)-1].Entries, GetArrayLength(Result[GetArrayLength(Result)-1].Entries)+1);
                Result[GetArrayLength(Result)-1].Entries[GetArrayLength(Result[GetArrayLength(Result)-1].Entries)-1].Name := Trim(Copy(iFile[i], 1, Pos('=', iFile[i])-1));
                Result[GetArrayLength(Result)-1].Entries[GetArrayLength(Result[GetArrayLength(Result)-1].Entries)-1].Value := Trim(Copy(iFile[i], Pos('=', iFile[i])+1, Length(iFile[i])));
            end;
        end;
    end;
end;

procedure InitializeWizard();
var
    iFile: TIniFile;
    i, j: Integer;
    res: String;
begin
    iFile := ParseIniFile('c:\boot.ini');
    for i := 0 to GetArrayLength(iFile)-1 do
    begin
        res := res + '[' + iFile[i].Section + ']' + #13#10;
        for j := 0 to GetArrayLength(iFile[i].Entries)-1 do
            res := res + iFile[i].Entries[j].Name + '=' + iFile[i].Entries[j].Value + #13#10;
    end;
    MsgBox(res, mbInformation, MB_OK);
end;

[Johny777]

El Sanchez,
Спасибо тебе большое за труды!

Но неужели "загрузка всего ини в переменную..." не даст почувствовать особую разницу скорости обработки между считыванием строк из переменной и многократным обращением к файлу?

и извиняюсь за тупой вопрос
как теперь считывать значения?

так не работает

iFile := ParseIniFile('C:\setup\Selfish.ini');
...
No_Quit_Dialog := (GetIniString('Constructor', 'Quit_Dialog_Off', '', res) = '1');

неужели он перестал быть ини и теперь нужно искать строку Quit_Dialog_Off=1 целиком

[R.i.m.s.k.y.]

Но неужели "загрузка всего ини в переменную..." не даст почувствовать особую разницу скорости обработки между считыванием строк из переменной и многократным обращением к файлу? »

Дисковый кэш нивелирует разницу
ИМХО

[El Sanchez]

Но неужели "загрузка всего ини в переменную..." не даст почувствовать особую разницу скорости обработки между считыванием строк из переменной и многократным обращением к файлу? »

Johny777, тесты покажут. Например, миллион раз прочитать какое либо значение из ini-файла стандартными средствами и пропарсить файл и миллион раз обратиться к какому-либо члену структуры, засечь время, сравнить.

[R.i.m.s.k.y.]

SatHan, можно еще прописать все эти пути в переменную %PATH%
Но темпы желательно переносить в папки 8.3, без пробелов и русских букв. Как системные темпы, так и пользовательские.
Во избежание.

[El Sanchez]

как теперь считывать значения? »

неужели он перестал быть ини и теперь нужно искать строку Quit_Dialog_Off=1 целиком »

Johny777, раз это теперь массив записей, то обращение по индексу. Смотри мой пример внимательней, в конце после отработки ParseIniFile идет обращение к элементам массива. Каждый i-ый элемент iFile содержит запись, состоящей из поля Section и поля Entries - массива записей, содержащих 2 поля - Name и Value. Обращение к i-ой секции - iFile[i].Section, к j-ому параметру i-ой секции - iFile[i].Entries[j].Name, к значению j-ого параметра i-ой секции - iFile[i].Entries[j].Value.

тесты покажут. Например, миллион раз »

Потестил, на моей машине обращение к элементам массива примерно в 120 раз быстрее.