Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Sotonisto

Пользователь


Сообщения: 131
Благодарности: 16

Профиль | Сайт | Отправить PM | Цитировать


Цитата 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;

Или я снова все не так понял?

-------
Большой шаг вперед, как правило, следствие хорошего пинка под зад.


Отправлено: 05:54, 10-10-2010 | #2437