|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Скрипты Inno Setup. Помощь и советы [часть 7]
|
Ветеран Сообщения: 1264 |
Профиль | Отправить PM | Цитировать
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] |
|
Отправлено: 11:48, 10-03-2014 |
Пользователь Сообщения: 110
|
Профиль | Отправить PM | Цитировать Цитата Farser21:
|
|
Отправлено: 20:15, 11-03-2014 | #31 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать какого лешего
--------------------------- Ошибка компиляции --------------------------- Строка 794: Column 10: Invalid prototype for 'GetOriginalSID' --------------------------- ОК --------------------------- |
------- Последний раз редактировалось R.i.m.s.k.y., 11-03-2014 в 20:44. Отправлено: 20:21, 11-03-2014 | #32 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать Цитата kot-da-vinci:
procedure TasksCheck(); var Item: Integer; begin if ( check_for_haali ) then begin Item := WizardForm.TasksList.Items.IndexOf(ExpandConstant('{cm:Haali}')); if (Item >= 0) then begin WizardForm.TasksList.Checked[item] := True; if WizardForm.TasksList.ItemIndex = Item then WizardForm.TasksList.Checked[item] := True; end; end; end; procedure TasksListClickCheck(Sender: TObject); begin TasksCheck; end; procedure InitializeWizard(); WizardForm.TasksList.OnClickCheck := @TasksListClickCheck; end; |
|
------- Отправлено: 21:17, 11-03-2014 | #33 |
Старожил Сообщения: 440
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Farser21:
Пожалуйста. |
|
------- Отправлено: 21:53, 11-03-2014 | #34 |
Ветеран Сообщения: 608
|
Цитата Farser21:
|
|
Отправлено: 22:32, 11-03-2014 | #35 |
Старожил Сообщения: 229
|
Профиль | Отправить PM | Цитировать А мне ребят поможетe? С музыкой проблему решил,прогресс бара нет.
|
Отправлено: 22:40, 11-03-2014 | #36 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать имеем двух пользователей: user и admin
система под пользователем, запуск от админа запись в реестре происходит куда надо: при запуске от админа - в HKCU пользователя Но вот при деинсталляция при запуске от админа/пользователя ключи удалаются HKCU у админа [Registry] Root: HKU; SubKey: {code:getOriginalSID}\Software; ValueType: string; ValueName: Path; ValueData: {app}\; Flags: uninsdeletekeyifempty uninsdeletevalue noerror http://forum.oszone.net/post-2319623.html#post2319623 #define A = (Defined UNICODE) ? "W" : "A" const WTS_CURRENT_SERVER_HANDLE = 0; WTS_CURRENT_SESSION = (-1); WTSUserName = 5; function WTSQuerySessionInformation(hServer: THandle; SessionId, WTSInfoClass: DWORD; var ppBuffer: Longint; var pBytesReturned: DWORD): BOOL; external 'WTSQuerySessionInformation{#A}@wtsapi32.dll stdcall'; procedure WTSFreeMemory(pMemory: Longint); external 'WTSFreeMemory@wtsapi32.dll stdcall'; /////////////////////////////////////////////////////// function GetLoggedOnUser(const IsSID: Boolean): String; var i: Integer; aNames: TArrayOfString; dwLength: DWORD; lpBuffer: Longint; begin if not RegGetSubkeyNames(HKLM, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList', aNames) then Exit; try if not WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, WTS_CURRENT_SESSION, WTSUserName, lpBuffer, dwLength) then Exit; Result := CastIntegerToString(lpBuffer); if IsSID then for i := 0 to GetArrayLength(aNames)-1 do if Pos(Lowercase(Result), LowerCase(ExpandConstant(Format('{reg:HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\%s,ProfileImagePath|}', [aNames[i]])))) > 0 then begin Result := aNames[i]; Break; end; finally WTSFreeMemory(lpBuffer); end; end; function getOriginalSID:string begin result := GetLoggedOnUser(True); end; |
------- Отправлено: 22:44, 11-03-2014 | #37 |
Пользователь Сообщения: 110
|
Профиль | Отправить PM | Цитировать Цитата Ivan_009:
Пользовался exemple3.iss |
|
Отправлено: 22:47, 11-03-2014 | #38 |
Ветеран Сообщения: 608
|
Farser21, Добавь:
Сюда: if CurPageID=wpFinished then begin //Сюда DeinitializeSlideShow; WizardForm.ProgressGauge.visible:=false; end; end; Цитата Dinvin4ester:
|
|
Последний раз редактировалось Ivan_009, 11-03-2014 в 23:09. Отправлено: 22:53, 11-03-2014 | #39 |
Пользователь Сообщения: 110
|
Профиль | Отправить PM | Цитировать Ivan_009, спасибо помогло. Но когда решил добавить это в свой установщик то вот такая ошибка появилась.
|
Отправлено: 23:15, 11-03-2014 | #40 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|