|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 8] |
|
Скрипты Inno Setup. Помощь и советы [часть 8]
|
Ветеран Сообщения: 1264 |
Профиль | Отправить PM | Цитировать
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Отправлено: 08:52, 02-02-2015 |
Ветеран Сообщения: 855
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 21:29, 17-11-2015 | #1071 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
SHVtYW4= Сообщения: 3451
|
Профиль | Отправить PM | Цитировать Цитата ZVSRus:
На примере ACDSee 5 Pro:
[HKEY_LOCAL_MACHINE\SOFTWARE\ACD Systems\ACDSee Pro\50\InTouch2] "LicenseKey"="XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX-XXXXXX" "Trial"=dword:00000000 "KeyCount"=dword:00000001 Вместо звёздочек конечное содержимое. Не показывать Quick Start Guide: |
|
------- Отправлено: 21:44, 17-11-2015 | #1072 |
SHVtYW4= Сообщения: 3451
|
Профиль | Отправить PM | Цитировать Цитата habib2302:
|
|
Отправлено: 22:02, 17-11-2015 | #1073 |
Ветеран Сообщения: 989
|
Профиль | Отправить PM | Цитировать Dodakaedr, подскажите пожалуйста, а как сделать:
1. чтоб разрядность отображалась и в SetupWindowTitle 2. убрать слово моя программа setup в описании инсталятора создаваемого инно, или заменить его на программа и т.п.? |
Отправлено: 14:39, 19-11-2015 | #1074 |
Ветеран Сообщения: 857
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 18:20, 19-11-2015 | #1075 |
Ветеран Сообщения: 989
|
Профиль | Отправить PM | Цитировать Цитата Dodakaedr:
|
|
Отправлено: 08:50, 20-11-2015 | #1076 |
Старожил Сообщения: 284
|
Профиль | Отправить PM | Цитировать Какой Flags нужно подставить чтобы эти две папки устанавливались в данных директориях, но их не было видно,
а чтобы появлялись они только после первого запуска программы. Или нужно сделать что-то другое. Source: C:\Installer\Roaming\ACD Systems\ImageDB\*; DestDir: {userappdata}\ACD Systems\ImageDB; Flags: ignoreversion recursesubdirs createallsubdirs; Check: RusLang and InstallerCheck Source: C:\Installer\CommonAppData\ACD Systems\*; DestDir: {commonappdata}\ACD Systems; Flags: ignoreversion recursesubdirs createallsubdirs; Check: RusLang and InstallerCheck |
Отправлено: 09:31, 20-11-2015 | #1077 |
Ветеран Сообщения: 857
|
Профиль | Отправить PM | Цитировать Цитата МИШАНЧИК:
Скрытый текст
[setup] appname=App appversion=1.1 UninstallDisplayName={code:GetUnName} DefaultDirName={sd}\Apps [CustomMessages] Welcx32=Установка {#SetupSetting("AppName")} x32 Welcx64=Установка {#SetupSetting("AppName")} x64 UnName32=Удалить {#SetupSetting("AppName")} x32 UnName64=Удалить {#SetupSetting("AppName")} x64 Title32={#SetupSetting("AppName")} x32 Title64={#SetupSetting("AppName")} x64 [Code] function GetUnName(uname: string): string; begin if IsWin64 then uname := CustomMessage('UnName64') else uname := CustomMessage('UnName32'); Result := uname; end; procedure InitializeWizard(); begin if IsWin64 then begin WizardForm.WelcomeLabel1.Caption := CustomMessage('welcx64'); WizardForm.Caption := CustomMessage('Title64'); end else begin WizardForm.WelcomeLabel1.Caption := CustomMessage('welcx32'); WizardForm.Caption := CustomMessage('Title32'); end; end; Цитата ZVSRus:
Цитата ZVSRus:
|
|||
------- Отправлено: 21:45, 20-11-2015 | #1078 |
Старожил Сообщения: 284
|
Профиль | Отправить PM | Цитировать |
Последний раз редактировалось ZVSRus, 22-03-2016 в 12:35. Отправлено: 09:32, 21-11-2015 | #1079 |
Ветеран Сообщения: 989
|
Профиль | Отправить PM | Цитировать Dodakaedr, подскажите пожалуйста. Пытался заменить окно "о прграмме" этим скриптом:
скрипт
[Files]
Source: compiler:CallbackCtrl.dll; Flags: dontcopy [code] type TWFProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint; function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam: Longint; lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall'; function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall'; function WrapWFProc(Callback: TWFProc; ParamCount: Integer): Longword; external 'wrapcallbackaddr@files:CallbackCtrl.dll stdcall'; var OldProc:Longint; procedure AboutSetupClick; begin //здесь обрабатываем нажатие на пункт меню "О программе ..." MsgBox('bla-bla-bla', mbInformation, MB_OK); end; function WFWndProc(h:HWND;Msg,wParam,lParam:Longint):Longint; begin if (Msg=$112) and (wParam=9999) then begin Result:=0; AboutSetupClick; end else begin if Msg=$2 then SetWindowLong(WizardForm.Handle,-4,OldProc); Result:=CallWindowProc(OldProc,h,Msg,wParam,lParam); end; end; procedure InitializeWizard; begin OldProc:=SetWindowLong(WizardForm.Handle,-4,WrapWFProc(@WFWndProc,4)); end; и на windows 7 х86 при отказе от дальнейшей установки(скрипт скомпилирован в 7х64) и закрытии инсталятора, выдает ошибку: |
Последний раз редактировалось МИШАНЧИК, 21-11-2015 в 16:23. Отправлено: 16:12, 21-11-2015 | #1080 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты Inno Setup. Помощь и советы [часть 7] | El Sanchez | Автоматическая установка приложений | 2499 | 02-02-2015 08:59 | |
Скрипты Inno Setup. Помощь и советы [часть 6] | El Sanchez | Автоматическая установка приложений | 2494 | 10-03-2014 11:51 | |
Скрипты Inno Setup. Помощь и советы [часть 5] | El Sanchez | Автоматическая установка приложений | 1999 | 28-03-2013 19:09 | |
Скрипты Inno Setup. Помощь и советы [часть 4] | El Sanchez | Автоматическая установка приложений | 2099 | 22-05-2012 23:16 | |
Скрипты Inno Setup. Помощь и советы [часть 3] | Serega | Автоматическая установка приложений | 3755 | 26-10-2011 17:58 |
|