![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 8] |
|
Скрипты Inno Setup. Помощь и советы [часть 8]
|
Ветеран Сообщения: 1274 |
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Отправлено: 08:52, 02-02-2015 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать Цитата jdcorg:
Всё свое нужно носить с собой Цитата jdcorg:
Цитата jdcorg:
поясняю на примере: куст HKCU\Software original user можно получить доступ как HKU\{code:GetOriginalSid}\Software загляни глазами в HKU и сам всё поймешь |
|||
------- Отправлено: 09:14, 15-01-2017 | #1801 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 12
|
Профиль | Отправить PM | Цитировать Цитата R.i.m.s.k.y.:
Цитата R.i.m.s.k.y.:
Делал по материалу, идеальному для тех у кого первый раз
https://forum.kaztorka.org/index.php?showtopic=19878
На этом сайте, по inno, много толкового материала, но в виде винегрета. Цитата R.i.m.s.k.y.:
|
|||
Отправлено: 12:14, 15-01-2017 | #1802 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать скажите, пожалуйста, можно ли в инно отслеживать нажатие клавиш? хочу сделать режим при запуске с нажатой клавишей Shift
и можно ли как-то задержать на 20 секунд кнопку next на странице InfoAfterPage? |
------- Отправлено: 10:17, 16-01-2017 | #1803 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата R.i.m.s.k.y.:
Цитата R.i.m.s.k.y.:
Example
[Setup] AppName=AppName AppVerName=AppVerName DefaultDirName={pf}\My Program [Code] const VK_SHIFT = $10; function GetKeyState(nVirtKey: Integer): Shortint; external 'GetKeyState@user32.dll stdcall'; function InitializeSetup: Boolean; begin Result:= GetKeyState(VK_SHIFT) < 0; if not result then MsgBox('Для запуска требуется зажать кнопку Shift', mbInformation, MB_OK); end; |
||
------- Последний раз редактировалось Dodakaedr, 16-01-2017 в 13:34. Отправлено: 12:36, 16-01-2017 | #1804 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать Цитата Dodakaedr:
ALT = $12, CTRL=$11? GetKeyState какие значения может принимать? |
|
------- Последний раз редактировалось R.i.m.s.k.y., 16-01-2017 в 17:01. Отправлено: 16:29, 16-01-2017 | #1805 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать Цитата Dodakaedr:
if (CurPageID = wpInfoAfter) then begin Result:= False; sleep (20000); Result:= True; end; как сделать установщик в этот момент отзывчивым? |
|
------- Отправлено: 13:17, 18-01-2017 | #1806 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата R.i.m.s.k.y.:
Как-то так. Адаптируйте под себя
[Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [Code] var ok: boolean; tm: ttimer; procedure wait(Sender: tobject); begin WizardForm.NextButton.Enabled := true; ok := true; tm.Free; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpSelectDir then begin if ok <> true then begin WizardForm.NextButton.Enabled := false; tm := TTimer.Create(WizardForm.SelectDirPage); with tm do begin Interval:= 5*1000; //5 секунд OnTimer:= @wait; end; end; end; end; procedure InitializeWizard(); begin ok := false; end; |
|
------- Последний раз редактировалось Dodakaedr, 18-01-2017 в 15:53. Отправлено: 15:47, 18-01-2017 | #1807 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать Dodakaedr, что-то я не понял а где кнопка Далее разблокируется?
|
------- Отправлено: 15:56, 18-01-2017 | #1808 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать R.i.m.s.k.y., на странице выбора папки установки через 5 сек.
|
------- Отправлено: 15:59, 18-01-2017 | #1809 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать Dodakaedr, это я понял, я вижу что через 5*1000 вызовется @wait, оно не застынет между Interval:= 5*1000 и OnTimer:= @wait?
|
------- Отправлено: 16:02, 18-01-2017 | #1810 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|