[Nordek]

vadjliss, Зачем удаляете сообщения? На заметку: Такое действие считается дурным тоном.

Если при вопросе получилось описать не совсем то что имели ввиду, то: могли предыдущее сообщение оставить как есть, а следующим сообщением уточнить.

[vadjliss]

ещё один вопрос
вот скрин

[Nordek]

vadjliss, В [Setup] добавьте VersionInfoDescription.
Пример:

Код:

VersionInfoDescription=Описание

[vadjliss]

спасибо как всегда оперативно Nordek

нашёл вот этот скрипт

Код:

#define MainExe "{app}\Bin32\crysis.exe"
#define MainExe64 "{app}\Bin64\crysis.exe"
#define MainExeDir Copy(MainExe, 1, RPos("\", MainExe)-1)
#define MainExe64Dir Copy(MainExe64, 1, RPos("\", MainExe64)-1)

[Icons]
Name: "{group}\{#AppName}"; FileName: "{#MainExe64}"; WorkingDir: "{#MainExe64Dir}"; Check: IsWin64
Name: "{group}\{#AppName}"; FileName: "{#MainExe}"; WorkingDir: "{#MainExeDir}"; Check: not IsWin64
Name: "{userdesktop}\{#AppName}"; FileName: "{#MainExe64}"; WorkingDir: "{#MainExe64Dir}"; Tasks: desktopicon; Check: IsWin64
Name: "{userdesktop}\{#AppName}"; FileName: "{#MainExe}"; WorkingDir: "{#MainExeDir}"; Tasks: desktopicon; Check: not IsWin64
Name: "{group}\Удалить программу"; FileName: "{uninstallexe}"; IconFileName: "{sys}\shell32.dll"; IconIndex: 32

я так понял это чтобы устанавливалось на x32_x64
как его правильно вмонтировать сюда

Код:

#define MyAppName "My Program"
#define MyAppVersion "1.2.8"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "BlurayConverterUltimate.exe"

[Setup]
AppId={{A5209214-FFB5-45F0-A529-5BA87A16C566}
AppName={#MyAppName}
AppVersion=1.2.8
AppVerName=1.2.8
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputDir=C:\Users\Dilan\Desktop\Output
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
VersionInfoDescription=BlurayConverterUltimate
;UninstallFilesDir={app}\Новая папка\Новая папка

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

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
;Source: "C:\Users\Dilan\Desktop\Output\Новая папка (2)\Новая папка\Новая папка\BlurayConverterUltimate.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Users\Dilan\Desktop\Output\Новая папка (2)\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

[Icons]
Name: "{group}\My Program"; Filename: "{app}\Новая папка\Новая папка\BlurayConverterUltimate.exe"
Name: "{commondesktop}\My Program"; Filename: "{app}\Новая папка\Новая папка\BlurayConverterUltimate.exe"; Tasks: desktopicon

и как полностью удалить group

[Nordek]

vadjliss, Пример:

Код:

#define MyAppName "My Program"
#define MyAppVersion "1.2.8"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "{app}\Blu-ray Converter Ultimate\BlurayConverterUltimate.exe"
#define MyAppExeName64 "{app}\Blu-ray Converter Ultimate\BlurayConverterUltimate.exe"
#define MyAppExeNameDir Copy(MyAppExeName, 1, RPos("\", MyAppExeName)-1)
#define MyAppExeName64Dir Copy(MyAppExeName64, 1, RPos("\", MyAppExeName64)-1)

[Setup]
AppId={{A5209214-FFB5-45F0-A529-5BA87A16C566}
AppName={#MyAppName}
AppVersion=1.2.8
AppVerName=1.2.8
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputDir=C:\Users\Dilan\Desktop\Output
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
VersionInfoDescription=BlurayConverterUltimate
;UninstallFilesDir={app}\Новая папка\Новая папка

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

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Files]
Source: C:\Users\Dilan\Desktop\Output\BlurayConverterUltimate32.exe; DestDir: {app}\Blu-ray Converter Ultimate; DestName: BlurayConverterUltimate.exe; Flags: ignoreversion; Check: not IsWin64
Source: C:\Users\Dilan\Desktop\Output\BlurayConverterUltimate64.exe; DestDir: {app}\Blu-ray Converter Ultimate; DestName: BlurayConverterUltimate.exe; Flags: ignoreversion; Check: IsWin64
Source: C:\Users\Dilan\Desktop\Output\Новая папка (2)\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs

[Icons]
Name: {group}\{#MyAppName}; FileName: {#MyAppExeName}; WorkingDir: {#MyAppExeNameDir}; Check: not IsWin64
Name: {group}\{#MyAppName}; FileName: {#MyAppExeName64}; WorkingDir: {#MyAppExeName64Dir}; Check: IsWin64
Name: {userdesktop}\{#MyAppName}; FileName: {#MyAppExeName}; WorkingDir: {#MyAppExeNameDir}; Tasks: desktopicon; Check: not IsWin64
Name: {userdesktop}\{#MyAppName}; FileName: {#MyAppExeName64}; WorkingDir: {#MyAppExeName64Dir}; Tasks: desktopicon; Check: IsWin64
Name: {group}\Удалить программу; FileName: {uninstallexe}; IconFileName: {sys}\shell32.dll; IconIndex: 32

[us_ov]

неужели никто не знает

как реализовать на странице выбора папки - выбор дисков имеется в виду чтобы выбор был ТОЛЬКО корень дисков доступных в системе »

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

[Nordek]

пожалуйста подскажите как реализовать на странице выбора папки - выбор дисков »

#1311

[vadjliss]

если такой

Код:

var
  DirTreeView: TFolderTreeView;

procedure DirFolderChange(Sender: TObject);
Begin
  WizardForm.DirEdit.Text:=AddBackslash(DirTreeView.Directory) + 'MyProg'
end;

Procedure InitializeWizard1;
begin
  DirTreeView:= TFolderTreeView.Create(WizardForm)
  DirTreeView.SetBounds(0,100,417,110)
  DirTreeView.OnChange:= @DirFolderChange
  DirTreeView.Parent:= WizardForm.SelectDirPage
//	DirTreeView.ChangeDirectory(ExpandConstant('{pf}'), True)
end;

procedure InitializeWizard();
begin
InitializeWizard1;
end;

[us_ov]

Nordek, vadjliss, спасибо - буду пробовать

[us_ov]

vadjliss, нет это не то, мне необходимо без возможности выбора папок

Nordek, в примерах по ссылкам ошибки компиляции, но зато я знаю чего искать в файлах примеров