![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Скрипты Inno Setup. Помощь и советы [часть 7]
|
Ветеран Сообщения: 1274 |
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] |
|
Отправлено: 11:48, 10-03-2014 |
Пользователь Сообщения: 76
|
Профиль | Отправить PM | Цитировать Цитата saurn:
|
|
Отправлено: 19:58, 15-09-2014 | #1561 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 76
|
Профиль | Отправить PM | Цитировать saurn Ой, появилась одна проблема
[Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [Files] Source: {fonts}\*; DestDir: {app}; Flags: external [ Code] type WPARAM = Integer; LPARAM = Integer; LRESULT = Integer; TFNWndProc = Integer; function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall'; function CallWindowProc(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'CallWindowProcA@user32.dll stdcall'; var OldStaticProcAddr: Longint; Label1: TLabel; function StaticWindowdProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; var _String: String; begin if Msg = $000F then begin _String:= WizardForm.StatusLabel.Caption Label1.Caption:= _String; //для теста end; Result:= CallWindowProc(OldStaticProcAddr, hWnd, Msg, wParam, lParam); end; procedure InitializeWizard(); begin OldStaticProcAddr:= SetWindowLong(WizardForm.StatusLabel.Handle, -4, CallbackAddr('StaticWindowdProc')); Label1:= TLabel.Create(WizardForm); with Label1 do begin Parent:= WizardForm.InstallingPage; AutoSize:= False; Left := ScaleX(0); Top := ScaleY(0); Width := ScaleX(417); Height := ScaleY(14); end; // WizardForm.OuterNotebook.Hide; end; procedure DeinitializeSetup(); begin SetWindowlong(WizardForm.StatusLabel.Handle, -4, OldStaticProcAddr); end; |
Отправлено: 00:07, 16-09-2014 | #1562 |
Ветеран Сообщения: 517
|
Профиль | Отправить PM | Цитировать Nightwishh, ага, не дружит с невидимыми окнами, есть такое. Тут присутствует другой вариант.
|
Отправлено: 12:58, 16-09-2014 | #1563 |
Пользователь Сообщения: 76
|
Профиль | Отправить PM | Цитировать saurn, Но там нет статуса, как я понял. Там путь и строкой ниже имя файла. Хотелось бы сделать этот статус, так как после распаковки работает секция [Run], а устанавливать всё это через код невыгодно.
|
Отправлено: 13:32, 16-09-2014 | #1564 |
Пользователь Сообщения: 106
|
Подскажите еще один момент.
Задача: 1. копирование фалов 2. копирование файла , если они есть то делать имяфайла.bkp Есть Выбор установки: Программы (жесткий выбор) Установить 123.dll Установить 345.dll Программы (с возможностью выбрать или снять выделение) Установка 123.dll Установка 345.dll Вотр тут если выбрана установка второго пункта делать бэкап файлов с первого пункта Если второй пункт не выбран , ничего не делать. Вроде просто описал , подсобите ребята, кто знает как воплотить. |
Отправлено: 17:36, 16-09-2014 | #1565 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Подскажите как правильно экспортировать ключ реестра на этапе InitializeSetup? Это не работает. Надо экспортировать в папку где находиться инсталятор.
function InitializeSetup(): Boolean; var RCode: Integer; begin Exec( ExpandConstant( '{win}\regedit.exe' ), '/e Soft.reg ""HKEY_LOCAL_MACHINE\SOFTWARE\Soft\Drivers""', ExpandConstant( '{src}\Data\Settings' ), SW_HIDE, ewNoWait, RCode ); Result:=False; end; function InitializeSetup(): Boolean; var RCode: Integer; RegKey: String; begin RegKey := 'HKEY_LOCAL_MACHINE\SOFTWARE\Soft\Drivers'; Exec( ExpandConstant( '{win}\regedit.exe' ), '-ea Soft.reg ' + AddQuotes( RegKey ), ExpandConstant( '{src}\Data\Settings' ), SW_HIDE, ewWaitUntilTerminated, RCode ); Result:=False; end; |
------- Последний раз редактировалось Dodakaedr, 17-09-2014 в 09:11. Отправлено: 08:32, 17-09-2014 | #1566 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать Dodakaedr,
Exec( ExpandConstant( '{win}\regedit.exe' ), '-ea ' + ExpandConstant( '{src}\Data\Settings\' ) + 'Soft.reg ' + AddQuotes( RegKey ) , ExpandConstant( '{src}\Data\Settings' ), SW_HIDE, ewWaitUntilTerminated, RCode ); |
------- Последний раз редактировалось R.i.m.s.k.y., 17-09-2014 в 09:44. Отправлено: 09:31, 17-09-2014 | #1567 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать R.i.m.s.k.y., Не работает.
|
------- Отправлено: 19:13, 17-09-2014 | #1568 |
Старожил Сообщения: 242
|
Профиль | Отправить PM | Цитировать astafev_roma, все работает на обычной версий проверил 5.42
|
Отправлено: 20:12, 17-09-2014 | #1569 |
Новый участник Сообщения: 15
|
Профиль | Отправить PM | Цитировать Цитата vint56:
|
|
Последний раз редактировалось astafev_roma, 17-09-2014 в 20:29. Отправлено: 20:21, 17-09-2014 | #1570 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 | |
[архив] Скрипты Inno Setup. Помощь и советы [часть 2] | Serega | Автоматическая установка приложений | 2651 | 08-11-2010 18:34 |
|