[shao]

Ребята , ещё возник вопрос :
После установки программы , созданной Инно, автоматически открывается окно справки, хотя её запуск не описан в скрипте.
Поскольку я только осваиваю этот инсталлятор, то многого не знаю. Возможно так и должно быть.
Просветите пожалуйста меня.
Вот скрипт:

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

Код:

[Setup]
AppName=Xentient Thumbnails
AppVerName=Xentient Thumbnails v1.0.2
DefaultDirName={pf}\Xentient\Thumbnails
DefaultGroupName=Xentient
OutputBaseFilename=thumbs
Compression=lzma
LicenseFile=embedded\License.txt
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp

[Files]
Source: "{app}\Thumbnails.chm"; DestDir: "{app}"; Flags: restartreplace uninsrestartdelete ignoreversion
Source: "{app}\license.txt"; DestDir: "{app}"; Flags: restartreplace uninsrestartdelete ignoreversion 
Source: "{app}\thumbs.dll"; DestDir: "{app}"; Flags: restartreplace regserver uninsrestartdelete ignoreversion 

[Icons]
Name: "{group}\Xentient Thumbnails Help"; Filename: "{app}\Thumbnails.chm"; IconFilename: "{app}\thumbs.dll"; 

[CustomMessages]
default.NameAndVersion=%1 version %2
default.AdditionalIcons=Additional icons:
default.CreateDesktopIcon=Create a &desktop icon
default.CreateQuickLaunchIcon=Create a &Quick Launch icon
default.ProgramOnTheWeb=%1 on the Web
default.UninstallProgram=Uninstall %1
default.LaunchProgram=Launch %1
default.AssocFileExtension=&Associate %1 with the %2 file extension
default.AssocingFileExtension=Associating %1 with the %2 file extension...

[_Code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
RenameFile(ExpandConstant('{app}\unins000.exe'); ExpandConstant('{app}\uninstall.exe'));
RenameFile(ExpandConstant('{app}\unins000.dat'); ExpandConstant('{app}\uninstall.dat'));
RegWriteStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\Xentient Thumbnails_is1';'UninstallString', ExpandConstant('{app}\uninstall.exe'));
RegWriteStringValue(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\Xentient Thumbnails_is1';'QuietUninstallString', ExpandConstant('{app}\uninstall.exe /SILENT'));
end;

[Languages]
Name: "default"; MessagesFile: "embedded\default.isl";