Angel_Smerti
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Victor_Dobrov
Цитата:| Архив с новым Corona Skin имеет объём 404922 байта, и правильно обрабатывает параметр Uninstallable! |
На тот момент у меня был вот этот скрипт, может быть и он очень старый, то подскажите поновее. Хотя суть вопроса не только в этом, я просил посмотреть мой архив и дать совет, как автора Corona Skin & Check System Requirements, как правильно соединить эту часть твоего скрипта:
Код: [Code]
Procedure CurPageChanged(CurPageID: Integer);
Begin
ShowSkinPage(CurPageID) { Corona Skin® & System Test © Victor Dobrov }
End;
Procedure InitializeWizard;
Begin
InitializeSkin { Corona Skin® with Buttons & checking System requirements by Victor Dobrov }
End;
Procedure DeinitializeSetup;
Begin
DeInitializeSkin { требуется, если указаны MediaPlayer, PerfectProgressBar, ShowOnBackground }
End;
Function InitializeSetup: Boolean;
Begin
If not(WizardSilent) and ((FindWindowbyWindowName(Copy(SetupMessage(msgSetupWindowTitle), 1, Length(SetupMessage(msgSetupWindowTitle))-2) + '{#AppName}') > 0) or (FindWindowbyWindowName(Copy(SetupMessage(msgSetupWindowTitle), 1, Length(SetupMessage(msgUninstallAppFullTitle))-2) + '{#AppName}') > 0)) then MessageBox(0, ExpandConstant('{cm:AlreadyRun}'), '{#AppName}', MB_OK or $40) else Result:= true
End;
// #expr SaveToFile("preprocessed.iss") |
И скрипт, что есть у меня:
Код: [Code]
Function InitializeSetup: Boolean;
Begin
if RegKeyExists(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppName")}_is1')
or RegKeyExists(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{80DB2577-43E3-4C34-00AF-0D7967B942C9}')
then
result:= true
else
MsgBox('{#SetupSetting("AppName")} не найдена!', mbInformation, mb_Ok)
End; |
Сначала инсталлятор должен проверить ключи в реестре, а затем только запускать установку и то если в реестре есть эти ключи. Честно говорю, что в написании кода я не силен.
|
