[ShadeUa]

еще вопросик, не подскажите как решить такую небольшую проблемку ?
https://yadi.sk/i/dFHhJtrZfFiuz

[Dodakaedr]

еще вопросик, не подскажите как решить такую небольшую проблемку ? »

вот так:

Код:

SystemPage.Caption := 'заголовок';
SystemPage.Description := 'описание';

или что вы имели ввиду?
Может это?

Скрытый текст

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[CustomMessages]
Caption=заголовок
Desc=описание

[Code]
var
SystemPage: TWizardPage;

procedure InitializeWizard();
begin
 SystemPage := CreateCustomPage(wpSelectTasks, CustomMessage('Caption'), CustomMessage('Desc'));
end;

Пожалуйста, поподробней излагайте суть вашей проблемы.

[ShadeUa]

Профиль | Отправить PM | Цитировать | Сообщить модератору Цитата ShadeUa: еще вопросик, не подскажите как решить такую небольшую проблемку ? » вот так: Код: Выделить весь код SystemPage.Caption := 'заголовок'; SystemPage.Description := 'описание'; или что вы имели ввиду? Может это? Скрытый текст Код: Выделить весь код [Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [CustomMessages] Caption=заголовок Desc=описание [code] var SystemPage: TWizardPage; procedure InitializeWizard(); begin SystemPage := CreateCustomPage(wpSelectTasks, CustomMessage('Caption'), CustomMessage('Desc')); end; Пожалуйста, поподробней излагайте суть вашей проблемы. »

извиняюсь , случайно удалил. Не переводиться текс, там нужно что то дописать я незнаю что , ну тоисть все то перевелось кроме того что я подчеркнул

[Dodakaedr]

Не переводиться текс, там нужно что то дописать я незнаю что »

Все как и с остальными элементами скрипта. Создаете CustomMessages

Код:

[CustomMessages]
rusCaption=заголовок
rusDesc=описание
engCaption=Caption
engDesc=Description

и прописываете в процедуре ChangeLang

Код:

SystemPage.Caption := CustomMessage(lang+'Caption');
SystemPage.Description := CustomMessage(lang+'Desc');

[ShadeUa]

Все как и с остальными элементами скрипта. Создаете CustomMessages Код: Выделить весь код [CustomMessages] rusCaption=заголовок rusDesc=описание engCaption=Caption engDesc=Description и прописываете в процедуре ChangeLang Код: Выделить весь код SystemPage.Caption := CustomMessage(lang+'Caption'); SystemPage.Description := CustomMessage(lang+'Desc'); »

https://yadi.sk/i/u_TuaoKEfFnLF не помогло , вроде бы сделал так же и не помогло

[Dodakaedr]

не помогло , вроде бы сделал так же и не помогло »

Все работает

Скрытый текст

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
ShowLanguageDialog=auto

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

[CustomMessages]
rusCaption=заголовок
rusDesc=описание
engCaption=Caption
engDesc=Description

[Code]
var
SystemPage: TWizardPage;
lang: String;
langBtn: TButton;

procedure ChangeLang();
begin
  SystemPage.Caption := CustomMessage(lang+'Caption');
  SystemPage.Description := CustomMessage(lang+'Desc');
end;

procedure LangBtnClick(Sender: TObject);
begin
  if lang='rus' then begin
    lang:= 'eng';
    langBtn.Caption:= 'рус';
  end else begin
    lang:= 'rus';
    langBtn.Caption:= 'eng';
  end;
  ChangeLang();
end;

procedure InitializeWizard();
begin
 SystemPage := CreateCustomPage(wpSelectTasks, 'заголовок','описание');

 langBtn:= TButton.Create(WizardForm);
  with langBtn do begin
    SetBounds(10,WizardForm.CancelButton.Top,30,WizardForm.CancelButton.Height)
    OnClick:= @LangBtnClick;
    Parent:= WizardForm;
  end;

  if ActiveLanguage='rus' then begin
    lang:= 'rus';
    langBtn.Caption:= 'eng';
  end else begin
    lang:= 'eng';
    langBtn.Caption:= 'рус';
  end;
end;

[ShadeUa]

Все работает Скрытый текст Код: Выделить весь код [Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application ShowLanguageDialog=auto [Languages] Name: "eng"; MessagesFile: "compiler:Languages\English.isl" Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl" [CustomMessages] rusCaption=заголовок rusDesc=описание engCaption=Caption engDesc=Description [code] var SystemPage: TWizardPage; lang: String; langBtn: TButton; procedure ChangeLang(); begin SystemPage.Caption := CustomMessage(lang+'Caption'); SystemPage.Description := CustomMessage(lang+'Desc'); end; procedure LangBtnClick(Sender: TObject); begin if lang='rus' then begin lang:= 'eng'; langBtn.Caption:= 'рус'; end else begin lang:= 'rus'; langBtn.Caption:= 'eng'; end; »

да , у вас получилось а у меня почему то нет , все перепроверил все ровно нечего(

[ShadeUa]

Все работает »

а если я вам скину скрипт , вы сможете помочь решить проблему?

[Irenis]

Всем привет Подскажите пожалуйста, как при создании установщика сделать два исполняемых файла? Мне нужно, чтоб с одного создавался ярлык и после установки пользователь мог сам запустить этот файл .exe. А другой должен по окончанию установки запуститься автоматически без создания ярлыка на рабочем столе. Спасибо

[Dodakaedr]

а если я вам скину скрипт , вы сможете помочь решить проблему? »

попробую конечно

сделать два исполняемых файла? »

сделать? В смысле?

Мне нужно, чтоб с одного создавался ярлык и после установки пользователь мог сам запустить этот файл .exe. А другой должен по окончанию установки запуститься автоматически без создания ярлыка на рабочем столе. »

Скрытый текст

Код:

[setup]
AppName=My programm
AppVersion=1.0
DefaultDirName={pf}\My programm
DisableProgramGroupPage=yes

[Files]
Source: "compiler:Examples\MyProg.exe"; DestDir: "{app}";

[Icons]
; создаем ярлык чтобы пользователь мог сам запустить этот файл .exe
Name: "{userdesktop}\MyProg"; Filename: "{app}\MyProg.exe";

[Run]
; запуститься автоматически без создания ярлыка на рабочем столе.
//Filename: "http://forum.oszone.net/thread-294838-30.html"; Flags: skipifsilent shellexec
; или для .exe файла (пример: калькулятор)
Filename: "calc.exe"; Flags: skipifsilent nowait