Цитата shao:
После установки программы , созданной Инно, автоматически открывается окно справки, хотя её запуск не описан в скрипте. »
|
Я вот посмотрел скрипт... А что ты сам хотел от инсталла? В смысле что б он просто установил эти файлы в папку? или другое?
Если просто проверял что может инно - кинь все файлы в одну папку c файлом скрипта и попробуй так:
читать дальше »
Код:
#define MyAppName "Xentient Thumbnails"
#define MyAppVerName "Xentient Thumbnails 1.0.2"
#define MyAppPublisher "Xentient, Inc."
#define MyAppExeName "Thumbnails.chm"
[Setup]
AppId={{B11E7F02-F7C6-4810-B84C-DBE6B907C712}
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputBaseFilename=setup
OutputDir=example
LicenseFile=License.txt
WizardImageFile=WizardImage.bmp
WizardSmallImageFile=WizardSmallImage.bmp
SetupIconFile=example.ico
DisableReadyPage=True
Compression=lzma
SolidCompression=yes
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Files]
Source: Thumbnails.chm; DestDir: {app}; Flags: ignoreversion
Source: License.txt; DestDir: {app}; Flags: ignoreversion
Source: Thumbs.dll; DestDir: {app}; Flags: ignoreversion
[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
[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;
Или я снова все не так понял?