[volk1234]

ilyaalex

Цитата ilyaalex: Нужно определить наличие учетной записи windows, используя средства Inno setup. » Почитайте в Справке по Inno Setup, раздел: Pascal Scripting: Introduction->Pascal Scripting: Support Functions Reference->function GetUserNameString: String; »

[Serega]

1) вывод стандартного системного запроса (Да/Нет) с использованием текста из секции CustomMessages »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[CustomMessages]
tsk=Попробуйте, снимите с меня галку... ;)
msg=бла... бла... бла... %n Вы уверенны?

[Tasks]
Name: tsk; Description: {cm:tsk}; GroupDescription: Дополнительно:

[Code]
procedure OnClickCheck(Sender: TObject);
begin
  if not IsTaskSelected('tsk') then
  if MsgBox(ExpandConstant('{cm:msg}'), mbConfirmation, MB_YESNO) = IDYES then
    begin
      MsgBox('Я всё видел, Вы нажали "Да"', mbInformation, MB_OK);
    end
  else
    begin
      MsgBox('Вы нажали "Нет", очень жаль...', mbInformation, MB_OK);
    end;
end;

procedure InitializeWizard;
begin
  WizardForm.TasksList.OnClickCheck:= @OnClickCheck;
end;

[DemonAk]

Привет всем, подскажите пожалуйста, как сделать так, чтобы копирование файлов (Source: D:\TEMP\silnet hill homecoming\rus\*; DestDir: {app}; Flags: recursesubdirs ignoreversion createallsubdirs; Components: Full_Russian EngSRusT), создание ярлыков и выполнение секции run происходило после распаковки архивов, именно в таком порядке. Скрипт прилагается.

[lmiol]

можно ли какимнибудь способом в секции Run внести возможность поставить флаг exclusive а также мог бы её снять

Filename: "http://www.quakelive.com/#register"; Description: "Создать аккаунт"; Flags: nowait shellexec postinstall skipifsilent
Filename: "http://www.quakelive.com/#home"; Description: "Войти чтобы играть"; Flags: nowait shellexec postinstall skipifsilent

это для того чтобы если человек выбрал один из любых вариантов или мог бы его отключить
К примеру выбирать он может чтото одно скажем или регистрацию или вход, но также может и убрать галку и с того и другого (всмысле не хочет не входить и регистрироваться)

[A1EXXX]

Есть скрипт для задания чёрного фона (прикрепил), но вот беда, не все текста присутствуют, например, как на скрине (та же фигня на всех страницах), а на странице лицензионного соглашения нет текста "я принимаю..." и "я не принимаю...", тупо две галки =((( Помогите это исправить!!!

[FlatX007]

Вопрос : как сделать чтобы деинстилятор(unins000.exe) ,созданый установщиком, при запуске удалил ключ из реестра.

Просто никогда этим незанимался

[A1EXXX]

FlatX007, добавь флаг uninsdeletevalue, например:

[Registry]
Root: HKLM; Subkey: "SOFTWARE\Activision"; ValueType: String; Flags: uninsdeletevalue

[FlatX007]

FlatX007, добавь флаг uninsdeletevalue, например: [Registry] Root: HKLM; Subkey: "SOFTWARE\Activision"; ValueType: String; Flags: uninsdeletevalue »

Так ключ реестра поппадает в реестр не через установщик, он там есть до него.
Неработает кароче.

[BlackSelf]

FlatX007,

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

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep=usPostUninstall then
  RegDeleteValue(HKLM, 'Software\My Program', 'InstallDir')
end;

[Serega]

как сделать так, чтобы »

Попробуйте, скрипт прикрепил к сообщению. Работоспасобность, не проверял.

Есть скрипт для задания чёрного фона (прикрепил), но вот беда, не все текста присутствуют »

стандартным способом нет, придётся вручную рисовать чебоксы и обрабатывать клики мышкой по ним.

Есть скрипт для задания чёрного фона (прикрепил), но вот беда, не все текста присутствуют »

добавьте:

Код:

WizardForm.PageNameLabel.Font.Color:=clWhite;

а лицензионное соглашение, помоему это:

Код:

WizardForm.LicenseAcceptedRadio.Font.Color:= clWhite;
WizardForm.LicenseNotAcceptedRadio.Font.Color:= clWhite;