InstallShield Borland Limited Edition , по русски

Недавно делал в нем дистрибутив.
Сначала чуть не посидел. Все надписи, которые в редакторе были русскими в инсталяшке вываливались либо квадратиками, либо иероглифами. Четь полазив в файле проекта, заставил ресский текст отображаться нормально.

Потом захотел перевести диалоги. Вот же муторное дело! Там в файле проекта все текстовые константы лежат встык, заканчиваясь нулевым символом.

А теперь вопрос: где можно найти хотя бы обрезанный как BLE InstallShield, в котором есть РУССКИЕ диалоги?

Добавлено 22.06.06, 10:02
Или скажите, как в InnoSetup сделать варианты установки.

Testudo, в InnoSetup смотри примеры ... там все ясно показывается

Цитата Testudo @ 22.06.06, 09:59

Или скажите, как в InnoSetup сделать варианты установки.

В смысле Full, Standart, Custom и т.д.? Тогда так:

;Типы установки.
[Types]
Name: full; Description: Full installation
Name: compact; Description: Compact installation
Name: custom; Description: Custom installation; Flags: iscustom
 
[Components]
Name: program; Description: Program Files; Types: full compact custom; Flags: fixed
;fixed - значит нельзя отключить!
Name: help; Description: Help File; Types: full
Name: readme; Description: Readme File; Types: full
Name: readme\en; Description: English; Flags: exclusive
Name: readme\de; Description: German; Flags: exclusive
;exclusive - можно выбрать только одно из exclusive.

Так получается не совсем то. Мне нужно чтобы эти пункты назывались не Full, Minimal и т.д., а так как мне захочется. Например: административная версия, пользовательская версия...

Цитата Profi @ 22.06.06, 13:25

;Типы установки.
[Types]
Name: full; Description: Full installation
Name: compact; Description: Compact installation
Name: custom; Description: Custom installation; Flags: iscustom

Вставь тут свои имена..

Добавлено 23.06.06, 10:14
и дальше в components в полях Types тоже указывай свои имена.. соответствующие..

Понал. Только как-то в Inno это выглядит некарсиво.
Он может давать варианты установки как в InstallShield? Там дается выбирать только вариант (для полной и минимальной). Мне нужно, чтобы небыло видно входящих в вариант установки компонент.

Testudo, я же уже говорил, смотри примеры входящие в Inno Setup. Там есть все!

Там есть. Только такой диалог нужно писать самому. А нет ли стандартного?
Уж больно не хочется глубоко в него вникать. да в времени нету.

Testudo, там стандартный диалог, такой же, но без галочек

... сейчас сам погляжу ...

Monty, мы наверное друг-друга не поняли.
Вот что мне нужно:

Прикреплённая картинка

Вспомнил, я сам так делал ... нет этого в примерах

; -- Components.iss --
; Demonstrates a components-based installation.
 
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!
 
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
 
[Types]
Name: "full"; Description: "Full installation"
Name: "compact"; Description: "Compact installation"
;Name: "custom"; Description: "Custom installation"; Flags: iscustom
 
[Components]
Name: "program"; Description: "Program Files"; Types: full compact; Flags: fixed
Name: "help"; Description: "Help File"; Types: full
;Name: "readme"; Description: "Readme File"; Types: full
;Name: "readme\en"; Description: "English"; Flags: exclusive
;Name: "readme\de"; Description: "German"; Flags: exclusive
 
[Files]
Source: "MyProg.exe"; DestDir: "{app}"; Components: program
Source: "MyProg.hlp"; DestDir: "{app}"; Components: help
;Source: "Readme.txt"; DestDir: "{app}"; Components: readme\en; Flags: isreadme
;Source: "Readme-German.txt"; DestName: "Liesmich.txt"; DestDir: "{app}"; Components: readme\de; Flags: isreadme
 
[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"

Не обращай внимание, делал для примера ... отредактировав пример

Опять не совсем то. Мне нужно радиобатонами... с красивостями.
Ладно. Похоже, такой диалог нужно делать вручную.

Цитата Testudo @ 24.06.06, 10:38

Опять не совсем то. Мне нужно радиобатонами... с красивостями.

Тогда придется создавать свою форму, размещать на ней все что надо, и использовать параметр Check:.

Добавлено 24.06.06, 12:00

[Files]
Source: MyProg.exe; DestDir: {app}
Source: MyProg.hlp; DestDir: {app}; Check: FullCheck
;Если FullCheck=True то файл установится!
Source: Readme.txt; DestDir: {app}; Flags: isreadme; Check: FullCheck
;Source: 1.bmp; DestDir: {tmp}
;Source: 2.bmp; DestDir: {tmp}
 
[Code]
var
    Page: TWizardPage;
    BitmapImage1:TBitmapImage;
    BitmapImage2:TBitmapImage;
    RadioButton1:TRadioButton;
    RadioButton2:TRadioButton;
 
function FullCheck: Boolean;
begin
  Result := RadioButton2.Checked;
end;
 
procedure InitializeWizard();
begin
    //ExtractTemporaryFile('1.bmp');
    //ExtractTemporaryFile('2.bmp');
    Page := CreateCustomPage(6, 'Выберите тип установки', 'Тут что-то еще написать можно!');
    BitmapImage1 := TBitmapImage.Create(Page);
    with BitmapImage1 do begin
        Parent := Page.Surface;
        Left := ScaleX(8);
        Top := ScaleY(32);
        Width := ScaleX(41);
        Height := ScaleY(41);
        //BitMap.LoadFromFile('D:\1.bmp');
    end;
    BitmapImage2 := TBitmapImage.Create(Page);
    with BitmapImage2 do begin
        Parent := Page.Surface;
        Left := ScaleX(8);
        Top := ScaleY(100);
        Width := ScaleX(41);
        Height := ScaleY(41);
        //BitMap.LoadFromFile('D:\1.bmp');
    end;
    RadioButton1 := TRadioButton.Create(Page);
    with RadioButton1 do begin
        Checked:=true;
        Parent := Page.Surface;
        Left := ScaleX(8);
        Top := ScaleY(8);
        Width := ScaleX(265);
        Height := ScaleY(21);
        Caption := 'Пользовательсякая версия';
        TabOrder:=0;
        Font.Style := [fsBold];
    end;
    RadioButton2 := TRadioButton.Create(Page);
    with RadioButton2 do begin
        Parent := Page.Surface;
        Left := ScaleX(8);
        Top := ScaleY(76);
        Width := ScaleX(265);
        Height := ScaleY(21);
        Caption := 'Администратиная версия';
        TabOrder:=1;
        Font.Style := [fsBold];
    end;
    st1 := TNewStaticText.Create(Page);
    with st1 do begin
        Parent := Page.Surface;
        Left := ScaleX(52);
        Top := ScaleY(32);
        Width := ScaleX(77);
        Height := ScaleY(14);
        Caption := 'Ограниченная версия: доступен только поиск.'#13'Это версия для операторов.';
    end;
    st2 := TNewStaticText.Create(Page);
    with st2 do begin
        Parent := Page.Surface;
        Left := ScaleX(52);
        Top := ScaleY(104);
        Width := ScaleX(77);
        Height := ScaleY(14);
        Caption := 'Полная версия.'#13'Установите её только на один компьютер!';
    end;
end;

Profi, большое спасибо за код.

Доброго времени суток, отличны код как раз я весь инет перекопатил ради такого кода, однако мне еще визуально надо чтобы отображалась еще одна строка при выборе Премиум, вот скрин в нем все детально