![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 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 |
Пользователь Сообщения: 56
|
Профиль | Отправить PM | Цитировать помогите исправить ошибку
код
Цитата:
вот сама ошибка при запуске .ехе ![]() Цитата saurn:
|
||
Последний раз редактировалось svs23, 08-12-2014 в 22:05. Отправлено: 17:12, 08-12-2014 | #2091 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 517
|
Профиль | Отправить PM | Цитировать svs23, в строке 268 обращение к элементу Move2RadioButton, которого не существует. Внимательно пересмотрите весь скрипт.
|
Отправлено: 19:17, 08-12-2014 | #2092 |
Пользователь Сообщения: 56
|
Профиль | Отправить PM | Цитировать Цитата saurn:
а как создать этот элемент Move2RadioButton? вроде везде добавил Move2 и Скрытый текст
NoneRadioButton:=TNewRadioButton.Create(WizardForm); NoneRadioButton.Parent:=BackupPage.Surface; NoneRadioButton.Checked:=True; NoneRadioButton.Top:=165; NoneRadioButton.Width:=BackupPage.SurfaceWidth; NoneRadioButton.Font.Style:=[fsBold]; NoneRadioButton.Font.Size:=9; NoneRadioButton.Caption:='Обновить существующие файлы' NoneDescLabel:=TLabel.Create(WizardForm); NoneDescLabel.Parent:=BackupPage.Surface; NoneDescLabel.Left:=18; NoneDescLabel.Top:=Move2RadioButton.Top + Move2RadioButton.Height + 4; NoneDescLabel.Width:=BackupPage.SurfaceWidth; NoneDescLabel.Height:=40; NoneDescLabel.AutoSize:=False; NoneDescLabel.Wordwrap:=True; NoneDescLabel.Caption:=Move2DescText; х.з что еще надо! плиз хелп |
|
Отправлено: 19:33, 08-12-2014 | #2093 |
Старожил Сообщения: 212
|
Профиль | Отправить PM | Цитировать Цитата svs23:
[*Code] var Move2RadioButton: TNewRadioButton; Procedure BackupCheck_1(): Boolean; begin Move2RadioButton := TNewRadioButton.Create(WizardForm); with Move2RadioButton do begin Parent := BackupPage.Surface; Left := ..; Top := ..; Width := ..; Height := ..; WordWrap := True; Caption := 'название'; end; end; Цитата svs23:
|
||
------- Последний раз редактировалось kotyarko@fb, 09-12-2014 в 01:47. Отправлено: 01:37, 09-12-2014 | #2094 |
Пользователь Сообщения: 56
|
Профиль | Отправить PM | Цитировать Цитата kotyarko@fb:
|
|
Отправлено: 09:20, 09-12-2014 | #2095 |
Пользователь Сообщения: 56
|
Профиль | Отправить PM | Цитировать и последний вопрос:как переименовать и изменить путь установки unins000.dat и unins000.exe
|
Отправлено: 10:10, 09-12-2014 | #2096 |
Старожил Сообщения: 212
|
Профиль | Отправить PM | Цитировать Цитата svs23:
[*Code] Procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep = ssPostInstall then begin RenameFile(ExpandConstant('{app}\unins000.exe'), ExpandConstant('{app}\uninstall.exe')) RenameFile(ExpandConstant('{app}\unins000.dat'), ExpandConstant('{app}\uninstall.dat')) end; end; |
|
------- Отправлено: 10:37, 09-12-2014 | #2097 |
Пользователь Сообщения: 56
|
Профиль | Отправить PM | Цитировать ![]() ![]() прописал в [Files] Source: BeforeInstall: BackupCheck_4(); теперь вот такая ошибка... тут уже не пойму что делать!? ![]() сам бэкап
Цитата:
|
|
Отправлено: 10:40, 09-12-2014 | #2098 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата svs23:
Скрытый текст
#define UninstallName "uninstall" [Setup] AppId={{6A9D1594-7791-48f5-9CAA-DE9BCB968320} [*Code] procedure RewritingUninstallData(); var OldUninstallDataFile, OldUninstallString, NewUninstallDataFile, NewUninstallString, RegUninstallDataFile, RegUninstallString, RegQuietUninstallString, AppID: String; begin OldUninstallDataFile := ExpandConstant('{uninstallexe}'); StringChange(OldUninstallDataFile, '.exe', '.dat'); OldUninstallString := ExpandConstant('{uninstallexe}'); NewUninstallDataFile := ExpandConstant('{app}\{#UninstallName}.dat'); NewUninstallString := ExpandConstant('{app}\{#UninstallName}.exe'); if FileExists(NewUninstallDataFile) or FileExists(NewUninstallString) then begin DeleteFile(NewUninstallDataFile); DeleteFile(NewUninstallString); end; RenameFile(OldUninstallDataFile, NewUninstallDataFile); RenameFile(OldUninstallString, NewUninstallString); AppID := ExpandConstant('{#SetupSetting("AppId")}') + '_is1'; RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + AppID, 'UninstallDataFile', RegUninstallDataFile); RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + AppID, 'UninstallString', RegUninstallString); RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + AppID, 'QuietUninstallString', RegQuietUninstallString); StringChange(RegUninstallDataFile, OldUninstallDataFile, NewUninstallDataFile); StringChange(RegUninstallString, OldUninstallString, NewUninstallString); StringChange(RegQuietUninstallString, OldUninstallString, NewUninstallString); RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + AppID, 'UninstallDataFile', RegUninstallDataFile); RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + AppID, 'UninstallString', RegUninstallString); RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + AppID, 'QuietUninstallString', RegQuietUninstallString); end; procedure CurStepChanged(CurStep: TSetupStep); begin case CurStep of ssDone: RewritingUninstallData(); end; end; |
|
------- Отправлено: 10:41, 09-12-2014 | #2099 |
Пользователь Сообщения: 56
|
Профиль | Отправить PM | Цитировать |
Отправлено: 10:44, 09-12-2014 | #2100 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|