2 Chanka Это как в ситуации с
SerGEAnt'ом...Авторское право стоит на меня.
2 NightW0lf Да я пошутил...В принципе, если найдёшь в коде чё-нить интерестное, то можешь отдать куски
Kindly.
-----------------------------------------
Кста...Вот пример написания выбора установки (например - русской версии игрушки) через RadioButton:
[Files]
;Основные файлы
Source: "Work\*.*"; DestDir: "{app}"; Flags: ignoreversion overwritereadonly
;Файлы русификатора игры
Source: "Russian\*.*"; DestDir: "{app}"; Check: Russian; Flags: ignoreversion overwritereadonly
[Code]
var
RussianBtn, EnglishBtn: TRadioButton;
ResultCode: Boolean;
procedure CreateTheWizardPages;
var
LangPage: TWizardPage;
begin
LangPage:=CreateCustomPage(wpSelectComponents, 'Language', 'Select Game Language');
RussianBtn:=TRadioButton.Create(LangPage);
RussianBtn.Top:=ScaleY(30);
RussianBtn.Width:=LangPage.SurfaceWidth;
RussianBtn.Height:=ScaleY(17);
RussianBtn.Caption:='Russian';
RussianBtn.Checked:=GetPreviousData('Russian', '1') = '1';
RussianBtn.Parent:=LangPage.Surface;
EnglishBtn:=TRadioButton.Create(LangPage);
EnglishBtn.Top:=RussianBtn.Top + ScaleY(30);
EnglishBtn.Width:=LangPage.SurfaceWidth;
EnglishBtn.Height:=ScaleY(17);
EnglishBtn.Caption:='English';
EnglishBtn.Checked:=GetPreviousData('English', '0') = '1';
EnglishBtn.Parent:=LangPage.Surface;
end;
procedure InitializeWizard();
begin
CreateTheWizardPages;
end;
procedure RegisterPreviousData(PreviousDataKey: Integer);
begin
SetPreviousData(PreviousDataKey, 'Russian', IntToStr(Ord(RussianBtn.Checked)));
SetPreviousData(PreviousDataKey, 'English', IntToStr(Ord(EnglishBtn.Checked)));
end;
function Russian: Boolean;
begin
Result:=RussianBtn.Checked;
end;
function English: Boolean;
begin
Result:=EnglishBtn.Checked;
end;
Функция "
English" здесь дана так просто, для виду...Типа если выберешь "
Russian", то устанавливаются файлы русификатора, а если нет, то просто ставятся основные файлы. Короче, разобирётесь.
Добавлено: Да, вместо
wpSelectComponents можно написать любую страницу и поверх её создастся страница с выбором языка.
), как у ярлыка задать рабочую папку? Например "C:\Program Files\папка такая то". Тоесть рабочая папка была указана всегда та, куда устанавливается приложение, вот. А то пустая строка почему то.