[acer0072]

Имеется ввиду язык самой программы.

Т.е. можно написать вместо Parameters: "DriverSearch {language} - Parameters: "DriverSearch ru, будет устанавливаться нужный язык?

Или может слеш нужен?

[Nightwishh]

На вид - да. Вы просто решили спросить »

Хотел просто спросить...Спасибо!

[Dodakaedr]

Имеется ввиду язык самой программы. »

Для начала вам нужно узнать как именно программа прописывает язык, это может быть по разному: русский - ru, rus, russian; английский - en, eng, english, enu. Потом уже прописываете у себя в скрипте

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

Код:

[Languages]
Name: "en"; MessagesFile: "compiler:Default.isl";
Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"; 

[Run]
Filename: "{app}\ConfigLanguageFromSetup.exe"; Parameters: "DriverSearch {language}"; MinVersion: 0.0,5.0;

или

Код:

[Languages]
Name: "eng"; MessagesFile: "compiler:Default.isl";
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"; 

[Run]
Filename: "{app}\ConfigLanguageFromSetup.exe"; Parameters: "DriverSearch {language}"; MinVersion: 0.0,5.0;

или

Код:

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl";
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"; 

[Run]
Filename: "{app}\ConfigLanguageFromSetup.exe"; Parameters: "DriverSearch {language}"; MinVersion: 0.0,5.0;

а теперь

как привязать к чекбоксам, чтобы выбирался нужный язык (русский и английский) »

Создаете чекбоксы:

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

Код:

[Code]
var
rus, eng: TNewCheckBox;

procedure InitializeWizard();
begin
rus := TNewCheckBox.Create(Form);
  with rus do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(8);
    Top := ScaleY(36);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Caption := 'Русский';
  end;

eng := TNewCheckBox.Create(Form);
  with eng do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(8);
    Top := ScaleY(36);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Caption := 'Английский';
  end;

Добавляете чекову функцию для чекбоксов:

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

Код:

[Code]
var
rus, eng: TNewCheckBox;

function RusCheck: Boolean;
begin
    Result:=rus.Checked;
end;

function EngCheck: Boolean;
begin
    Result :=eng.Checked;
end;

procedure InitializeWizard();
begin
rus := TNewCheckBox.Create(Form);
  with rus do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(8);
    Top := ScaleY(36);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Caption := 'Русский';
  end;

eng := TNewCheckBox.Create(Form);
  with eng do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(8);
    Top := ScaleY(36);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Caption := 'Английский';
  end;

И получаем ответ на ваш вопрос

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

Код:

[Languages]
Name: "en"; MessagesFile: "compiler:Default.isl";
Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"; 

[Run]
Filename: "{app}\ConfigLanguageFromSetup.exe"; Parameters: "DriverSearch en"; MinVersion: 0.0,5.0; Check: EngCheck
Filename: "{app}\ConfigLanguageFromSetup.exe"; Parameters: "DriverSearch ru"; MinVersion: 0.0,5.0; Check: RusCheck

[Code]
var
rus, eng: TNewCheckBox;

function RusCheck: Boolean;
begin
    Result:=rus.Checked;
end;

function EngCheck: Boolean;
begin
    Result :=eng.Checked;
end;

procedure InitializeWizard();
begin
rus := TNewCheckBox.Create(Form);
  with rus do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(8);
    Top := ScaleY(36);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Caption := 'Русский';
  end;

eng := TNewCheckBox.Create(Form);
  with eng do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(8);
    Top := ScaleY(36);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Caption := 'Английский';
  end;

[acer0072]

Спасибо.

[acer0072]

Всем доброго вечера. Вопрос! После закрытия установленной программы, она всё ещё висит в трее. Какой прописать код, чтобы при удалении этой программы, сначало убивался данный процесс, а потом удалялась программа?

[nik1967]

acer0072, в шапке Ссылки на примеры скриптов:/Закрытие процесса

[acer0072]

Спасибо, будем разбираться

[Nordek]

в шапке »

nik1967, А пример рабочий?
Пример должен как минимум воспроизводиться, а не выводить "Unknown identifier 'GetLogicalDrives'"

[Nightwishh]

Всем Здравствуйте! Хочу спросить какой вариант более лучше

Код:

[Setup]
AppName=ауукаукауцацу
AppVerName=вцфвывцычвйц
DefaultDirName={pf}\ывывыувцувцу

[CustomMessages]
avre=надпись

[Code ]
var
  Label1: TLabel;

procedure InitializeWizard();
begin
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(48);
    Top := ScaleY(328);
    Width := ScaleX(31);
    Height := ScaleY(13);
    Caption:= CustomMessage('avre');
  end;
end;

или

Код:

[Setup]
AppName=ауукаукауцацу
AppVerName=вцфвывцычвйц
DefaultDirName={pf}\ывывыувцувцу

[CustomMessages]
avre=надпись

[Code ]
var
  Label1: TLabel;

procedure InitializeWizard();
begin
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(48);
    Top := ScaleY(328);
    Width := ScaleX(31);
    Height := ScaleY(13);
    Caption:= ExpandConstant('{cm:avre} ');
  end;
end;

Знаю что подобный вопрос был здесь гдето, но я необратил тогда на него внимания...Спасибо

[nik1967]

nik1967, А пример рабочий? »

Не проверял. Был задан вопрос, я нашёл ответ в примерах. Всё.
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Возможно поможет ISTask - Библиотека для проверки и завершения процесса прлиложения от Genri.