Скрипты Inno Setup. Помощь и советы [часть 7]

Dodakaedr · Конфигурация компьютера

Цитата Shkutu:

для экранирования кавычки нужно дублировать »

Как апостроф вывести? Потому что дублирование и в названии программы появляется после установки (Programmer''s Notepad).

Цитата Shkutu:

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

Типа так?

Код:

function InstallerCheckParam: Boolean;
begin
  Result := Pos(LowerCase('/d=expand:{app}'), LowerCase(GetCmdTail)) > 0;
end;

Shkutu · Отправлено: **18:19, 23-04-2014** | #**492**

Dodakaedr,

Dodakaedr · Конфигурация компьютера

Цитата Shkutu:

Так как вы хотите, чтоб в MyAppName задефайнить с 1 апострофом, а коде их как-то вдруг сделать 2? »

Мне нужно чтобы один был, а он как-то через раз - то один то два. Как такое возможно?

Shkutu · Отправлено: **19:35, 23-04-2014** | #**494**

Dodakaedr, вы как-то невнимательно читаете, по-моему.

Nordek · Конфигурация компьютера

Цитата Dodakaedr:

Потому что дублирование и в названии программы появляется после установки (Programmer''s Notepad). »

Dodakaedr, Что вы к #define привязались, способов больше нет?

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[CustomMessages]
text=Programmer's Notepad

[Code]
var
  Text: TNewStaticText;

procedure InitializeWizard();
begin
  Text := TNewStaticText.Create(WizardForm);
  with Text do
  begin
    AutoSize := True;
    Parent := WizardForm;
    Caption := CustomMessage('text');
    Left := ScaleX(24);
    Top := ScaleY(328);
  end;
end;

Даже так:

Код:

[Setup]
AppName={cm:text}
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
UsePreviousLanguage=no

[Languages]
Name: default; MessagesFile: compiler:Default.isl

[CustomMessages]
text=Programmer's Notepad

[Code]
var
  Text: TNewStaticText;

procedure InitializeWizard();
begin
  Text := TNewStaticText.Create(WizardForm);
  with Text do
  begin
    AutoSize := True;
    Parent := WizardForm;
    Caption := CustomMessage('text');
    Left := ScaleX(24);
    Top := ScaleY(328);
  end;
end;

Даже так:

Код:

[Setup]
AppName={cm:text}
AppVersion=1.5
DefaultDirName={pf}\{cm:text}
DefaultGroupName={cm:text}
OutputDir=.
UsePreviousLanguage=no

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

[CustomMessages]
default.text=Programmer's Notepad
russian.text=Блокнот программиста

[Code]
var
  Text: TNewStaticText;

procedure InitializeWizard();
begin
  Text := TNewStaticText.Create(WizardForm);
  with Text do
  begin
    AutoSize := True;
    Parent := WizardForm;
    Caption := CustomMessage('text');
    Left := ScaleX(24);
    Top := ScaleY(328);
  end;
end;