[Cocenalyanas]

Код:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

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

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{7B21D215-88A3-4374-9530-2DCCA0E58863}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

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

[Files]
Source: "C:\Test\ExeName.exe"; DestDir: "{app}"; Flags: ignoreversion  // Вот про это имею ввиду
Source: "C:\Test\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

Обязательна ли строка где указан путь к exe-файлу ?

[Nordek]

Обязательна ли строка где указан путь к exe-файлу ? »

В таком случае:

Код:

Source: C:\Test\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs

с учётом, что файл ExeName.exe расположен по тому же адресу, то строку:

Код:

Source: C:\Test\ExeName.exe; DestDir: {app}; Flags: ignoreversion

можете беспрепятственно исключить.

Т.е при таком условии:

Код:

Source: C:\Test\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs

всё содержимое каталога "Test" будет включено в инсталлятор. На выходе (т.е после инсталляции), файлы и структура каталогов в каталоге установки будет такой же как на данный момент у вас в каталоге "Test"

Но если решите отдельно определить отличное расположение для файла ExeName.exe, то строку нужно будет вернуть/добавить.

[Cocenalyanas]

Цитата Cocenalyanas: Обязательна ли строка где указан путь к exe-файлу ? » В таком случае: Код: Source: C:\Test\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs с учётом, что файл ExeName.exe расположен по тому же адресу, то строку: Код: Source: C:\Test\ExeName.exe; DestDir: {app}; Flags: ignoreversion можете беспрепятственно исключить. Т.е при таком условии: Код: Source: C:\Test\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs всё содержимое каталога "Test" будет включено в инсталлятор. На выходе (т.е после инсталляции), файлы и структура каталогов в каталоге установки будет такой же как на данный момент у вас в каталоге "Test" Но если решите отдельно определить отличное расположение для файла ExeName.exe, то строку нужно будет вернуть/добавить. »

Код:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName1 "ExeName1.exe"
#define MyAppExeName2 "ExeName2.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{7B21D215-88A3-4374-9530-2DCCA0E58863}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

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

[Files]
Source: "C:\Test\ExeName1.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Test\ExeName2.exe"; DestDir: "{app}"; Flags: ignoreversion  
Source: "C:\Test\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName2}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName2}"; Tasks: desktopicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

Если exe-файлов несколько и на каждый из нужно создать ярлыки,должно быть вот так или по другому ?

[Nordek]

Код: [Files] Source: "C:\Test\ExeName1.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Test\ExeName2.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Test\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs »

В данном случае, лишнее зачеркнул.

[Icons] Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName2}" Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName2}"; Tasks: desktopicon »

Для добавления ярлыков, исп. секция [Icons].

Пример:

Код:

[Icons]
Name: "{commonprograms}\{#MyAppName} 1"; Filename: "{app}\{#MyAppExeName1}"
Name: "{commonprograms}\{#MyAppName} 2"; Filename: "{app}\{#MyAppExeName2}"
Name: "{commondesktop}\{#MyAppName} 1"; Filename: "{app}\{#MyAppExeName1}"
Name: "{commondesktop}\{#MyAppName} 2"; Filename: "{app}\{#MyAppExeName2}"

[Maleritanali]

HKEY_CURRENT_USER\Software\MyCompany
HKEY_LOCAL_MACHINE\SOFTWARE\MyCompany
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\MyCompany

Помогите пожалуйста,как можно удалить во время установки и во время деинсталляции ?

[Dodakaedr]

Помогите пожалуйста,как можно удалить во время установки и во время деинсталляции ? »

Код:

Root: HKCU; Subkey: "Software\MyCompany"; Flags: dontcreatekey deletekey uninsdeletekey
Root: HKLM64; Subkey: "Software\MyCompany"; Check: IsWin64; Flags: dontcreatekey deletekey uninsdeletekey
Root: HKLM32; Subkey: "Software\MyCompany"; Check: IsWin64; Flags: dontcreatekey deletekey uninsdeletekey
Root: HKLM32; Subkey: "Software\MyCompany"; Check: not IsWin64; Flags: dontcreatekey deletekey uninsdeletekey

[Maleritanali]

Root: HKCU; Subkey: "Software\MyCompany"; Flags: dontcreatekey deletekey uninsdeletekey Root: HKLM64; Subkey: "Software\MyCompany"; Check: IsWin64; Flags: dontcreatekey deletekey uninsdeletekey Root: HKLM32; Subkey: "Software\MyCompany"; Check: IsWin64; Flags: dontcreatekey deletekey uninsdeletekey »

А как сделать вот это всё с помощью кода (Секция [code]) ?

[Dodakaedr]

А как сделать вот это всё с помощью кода (Секция [code]) ? »

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
    ssInstall:
      begin
        If IsWin64 then RegDeleteKeyIncludingSubkeys(HKLM64, 'Software\MyCompany');
        RegDeleteKeyIncludingSubkeys(HKLM32, 'Software\MyCompany');
        RegDeleteKeyIncludingSubkeys(HKCU, 'Software\MyCompany');
      end;
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  case CurUninstallStep of
    usUninstall:
      begin
        If IsWin64 then RegDeleteKeyIncludingSubkeys(HKLM64, 'Software\MyCompany');
        RegDeleteKeyIncludingSubkeys(HKLM32, 'Software\MyCompany');
        RegDeleteKeyIncludingSubkeys(HKCU, 'Software\MyCompany');
      end;
  end;
end;

[Pagelorichaz]

Как сменить иконку и сообщение в MessageBox,чтобы вместо MB_ICONQUESTION было MB_ICONWARNING ?
Если что сморите скриншот!

[Rhianarkipom]

Помогите исправить кнопку на странице приветствия (WelcomePage) вместо "Install" должно быть "Next"
Как сделать такое ?

Скрытый текст

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

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{07BF4756-493A-4A92-8C99-65465807D1B5}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

DisableDirPage=yes
DisableProgramGroupPage=yes
DisableReadyMemo=yes
DisableReadyPage=yes
DisableStartupPrompt=yes
DisableWelcomePage=no
DisableFinishedPage=no

[Messages]
ButtonNext=Install

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[code]
var
MainPage : TWizardPage;
edtFolderToInstall : TEdit;
InstallLocation : String;

procedure BrowseClick(Sender : TObject);
var
Dir : String;
begin
Dir := edtFolderToInstall.Text;
if BrowseForFolder('Select Folder',Dir,false) then
edtFolderToInstall.Text := Dir;
end;

procedure InitializeWizard();
var
lblFolderToInstall : TLabel;
btnFolderToInstall : TButton;

begin
MainPage := CreateCustomPage(wpWelcome,'Setup - Test App Name','This will install "Test App Name" to your computer');
lblFolderToInstall := TLabel.Create(MainPage);
lblFolderToInstall.Parent := MainPage.Surface;
lblFolderToInstall.Top := 10;
lblFolderToInstall.Left := 10;
lblFolderToInstall.Caption := 'If you would like to select a different folder, Click Browse.'


edtFolderToInstall := TEdit.Create(MainPage);
edtFolderToInstall.Parent := MainPage.Surface;

edtFolderToInstall.Top := 40;
edtFolderToInstall.Left := 7;
edtFolderToInstall.Width := 321;
edtFolderToInstall.Text := WizardDirValue;


btnFolderToInstall := TButton.Create(MainPage);
btnFolderToInstall.Parent := MainPage.Surface;
btnFolderToInstall.Top := 38;
btnFolderToInstall.Left := 340;
btnfolderToInstall.Caption := 'Browse...';
btnFolderToInstall.OnClick := @BrowseClick;
end;