[LagunaFAN]

Вы уже всё распланировали (что будет два установщика (один из которых будет искать Steam + путь установки)). И всё же говорите примерно... Ну значит, примерно, как-то так: »

Примерно я говорю потому, что какого-то конкретного сейчас сейчас нет. Но в скором времени это мне понадобится

Спасибо! Как сделать так, чтобы при наличии установленного стима игра устанавливалась в папку стима понятно. Но мне хотелось, чтобы даже при наличии установленного стима был выбор между обычной установкой и установкой стим. Может можно сделать какие чекбоксы на отдельной странице перед DirPage, чтобы в соответствии с чекбоксом прописывался путь либо "path1", либо "path2"?

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

[Mailchik]

LagunaFAN,

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

Код:

#define GameName   "My Application"
[Setup]
AppName={#GameName}
AppVersion=1.5
DefaultDirName={pf}\{#GameName}

[Code]
var
 SteamCheckBox : TNewCheckBox;

procedure InitializeWizard;
 begin
  SteamCheckBox := TNewCheckBox.Create(WizardForm);
  with SteamCheckBox do begin
   Parent := WizardForm.WelcomePage;
   SetBounds(ScaleX(170), ScaleY(250), ScaleX(200), ScaleY(20));
   Caption := 'Steam-установка';
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if (CurPageID = wpSelectDir) and (SteamCheckBox.Checked) then begin
   if RegKeyExists(HKLM, 'Software\Valve\Steam') then
    WizardForm.DirEdit.Text := ExpandConstant('{reg:HKLM\Software\Valve\Steam, InstallPath}\steamapps\common\{#GameName}')
    else MsgBox('Steam не установлен', mbInformation, MB_OK);
  end else begin
    WizardForm.DirEdit.Text := ExpandConstant('{pf}\{#GameName}');
  end;
end;

[apozlevich]

Добрый день. Помогите:

Код:

Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{645FF040-5081-101B-9F08-00AA002F954E}}\Shell\Open CCleaner..."; Tasks: open; Languages: en; Flags: uninsdeletekey
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{645FF040-5081-101B-9F08-00AA002F954E}}\Shell\Open CCleaner...\command"; ValueName: ""; ValueType: string; ValueData: "{app}\CCleaner.exe"; Tasks: open; Languages: en

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

[Gnom_aka_Lexander]

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

Tasks: open; Languages: en »

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

[apozlevich]

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

Оба условия соблюдены.

[Gnom_aka_Lexander]

не видя скрипта »

нужно посмотреть скрипт полностью.

[El Sanchez]

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

apozlevich, и не будет работать из-за:
1. GUID, дабы компилятор не посчитал его константой, экранируется только открывающей фигурной скобкой, нужно убрать лишнюю - {{645FF040-5081-101B-9F08-00AA002F954E}}.
2. Толку от этих записей на x64-системах будет никакого, т.к. запишутся в 32-разрядный куст реестра - в контекстном меню корзины ничего не увидите. Нужна проверка разрядности системы, в зависимости от результата писать в нужные кусты.
P.S. Раз делаете мультиязычный установщик, в данном случае от флага Languages можно отказаться. В общем, я бы сделал так:

Код:

[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl
Name: en; MessagesFile: compiler:default.isl

[CustomMessages]
ru.ContextMenu=Открыть CCleaner...
en.ContextMenu=Open CCleaner...

[Registry]
;32-bit
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{645FF040-5081-101B-9F08-00AA002F954E}\shell\{cm:ContextMenu}"; Tasks: open; Flags: uninsdeletekey; Check: not IsWin64
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{{645FF040-5081-101B-9F08-00AA002F954E}\shell\{cm:ContextMenu}\command"; ValueType: string; ValueData: "{app}\CCleaner.exe"; Tasks: open; Flags: uninsdeletekey; Check: not IsWin64
;64-bit
Root: HKLM64; Subkey: "SOFTWARE\Classes\CLSID\{{645FF040-5081-101B-9F08-00AA002F954E}\shell\{cm:ContextMenu}"; Tasks: open; Flags: uninsdeletekey; Check: IsWin64
Root: HKLM64; Subkey: "SOFTWARE\Classes\CLSID\{{645FF040-5081-101B-9F08-00AA002F954E}\shell\{cm:ContextMenu}\command"; ValueType: string; ValueData: "{app}\CCleaner.exe"; Tasks: open; Flags: uninsdeletekey; Check: IsWin64

[apozlevich]

El Sanchez, спасибо, но я забыл отметить, что мне уже все объяснил Gnom_aka_Lexander, за что ему большое спасибо.

P.S. Раз делаете мультиязычный установщик, в данном случае от флага Languages можно отказаться. В общем, я бы сделал так: »

А это хорошая идея!

[Tco 03]

Подскажите пожалуйста, как скопировать папку целиком (со всеми вложенными в неё файлами) через секцию [code]?

[Johny777]

Tco 03, лови

Код:

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

[code]
procedure CopyFolder(SourceFolder, DestFolder: String);
var
    oFS: Variant;
begin
    try
        if not DirExists(SourceFolder) then Exit;
        if not DirExists(DestFolder) then if not CreateDir(DestFolder) then Exit;
        oFS := CreateOleObject('Scripting.FileSystemObject');
        oFS.CopyFolder(RemoveBackslash(SourceFolder), DestFolder);
    except
        //ShowExceptionMessage;
    end;
end;


procedure InitializeWizard();
begin
    CopyFolder('C:\setup', 'C:\Intel\setup');
end;