VPF::Pascal Scripting: Scripted Constants (InnoSetup) - Форум программистов

semiono

Дата 27.1.2010, 03:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 28.7.2007

Репутация: нет
Всего: нет

Pascal Scripting: Scripted Constants

Example:
DefaultDirName={code:MyConst}\My Program

Код


function MyConst(Param: String): String;
begin
  Result := ExpandConstant('{pf}');
end;

Это что единственный путь получить {code:MyConst} в других секциях интсаллера?
Почему нельзя прямо константу указать?...

Мне нужно следущее...

Код

[код]
procedure DeinitializeSetup();
var
  S: TArrayOfString;
  F: String;
begin
  F := ExpandConstant('{sd}\newz.inf');
  SetArrayLength(S, 8);
  S[0] := ExpandConstant('[Version]');
  S[1] := ExpandConstant('Signature=$Windows NT$');
  S[2] := ExpandConstant('');
  S[3] := ExpandConstant('[DefaultInstall]');
  S[4] := ExpandConstant('AddReg=Add.Reg');
  S[5] := ExpandConstant('');
  S[6] := ExpandConstant('[Add.Reg]');
  S[7] := ExpandConstant('HKLM,"Software\Classes\AVIFile\Extensions\AVI",,0,"{{894288e0-0948-11d2-8109-004845000eb5}"');
  SaveStringsToFile(F, S, False);
end;
[Registry]
Root: HKLM; Subkey: "Software\$reg.exe"; ValueType: string; ValueName: "1"; ValueData: "{code:MyConst}"; Flags: noerror; Permissions: admins-full

Чтоб {code:MyConst} получил это - {894288e0-0948-11d2-8109-004845000eb5}
Чтоб два раза это не писать там и там.
??

Это сообщение отредактировал(а) semiono - 27.1.2010, 03:40

Akella

Дата 27.1.2010, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Цитата(semiono @ 27.1.2010, 03:38

)

Почему нельзя прямо константу указать?...

Ты так спрашиваешь, как будто здесь форум разработчиков InnoSetup

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »