![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 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 |
Ветеран Сообщения: 978
|
Профиль | Сайт | Отправить PM | Цитировать Dodakaedr, тогда просто удали эту строчку. у тебя уже есть BorderStyle := bsDialog;, этого достаточно. и системного меню не будет, потому что его нет у диалоговых окон, как и кнопок свернуть и развернуть во весь экран.
|
------- Отправлено: 09:35, 02-04-2014 | #201 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата Gnom_aka_Lexander:
|
|
------- Отправлено: 09:37, 02-04-2014 | #202 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать В общем не так давно тут мне давали код для получения SID пользователя
почти работает, не работает в случае переименования пользователя что в доменных сетях не редкость, в таких случах в SID возвращается Username вот рабочий код дельфи, работает и на переименованных пользователях function LookupAccountName(lpSystemName, lpAccountName: PWideChar; Sid: PSID; var cbSid: DWORD; ReferencedDomainName: PWideChar; var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall; external advapi32 name 'LookupAccountNameA'; function ConvertSidToStringSid(Sid: PSID; out StringSid: PChar): BOOL; stdcall; external 'ADVAPI32.DLL' name 'ConvertSidToStringSidA'; function GetUserSID(userName: string):string; var Sid: PSID; cbSid: DWORD; cbReferencedDomainName : DWORD; ReferencedDomainName: string; peUse: SID_NAME_USE; Success: BOOL; lpSystemName : string; lpAccountName: string; StringSid : PChar; begin Sid:=nil; cbSid := 0; cbReferencedDomainName := 0; LookupAccountName(nil, PChar(userName), nil, cbSid, nil, cbReferencedDomainName, peUse); if cbSid>0 then begin SetLength(ReferencedDomainName, cbReferencedDomainName); Sid := AllocMem(cbSid); Success := LookupAccountName(0, PChar(userName), Sid, cbSid, PChar(ReferencedDomainName), cbReferencedDomainName, peUse); if Success then begin ConvertSidToStringSid(Sid, StringSid); Result := string(StringSid); end; FreeMem(Sid); end; end; может Серега или ЭльСанчез справятся |
------- Последний раз редактировалось R.i.m.s.k.y., 02-04-2014 в 09:56. Отправлено: 09:42, 02-04-2014 | #203 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать R.i.m.s.k.y., с этим можешь помочь http://forum.oszone.net/post-2331745-192.html???
|
------- Отправлено: 09:44, 02-04-2014 | #204 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 09:49, 02-04-2014 | #205 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать R.i.m.s.k.y., спс. вечером попробую.
|
------- Отправлено: 09:50, 02-04-2014 | #206 |
Ветеран Сообщения: 978
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Dodakaedr:
|
|
------- Отправлено: 09:53, 02-04-2014 | #207 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата Gnom_aka_Lexander:
|
|
------- Отправлено: 09:55, 02-04-2014 | #208 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать Gnom_aka_Lexander, проверил
система запущена от user (originaluser) установщик - от admin (currentuser) получил сид админа (currentuser) что неинтересно как передавать параметром имя пользователя от которого запущена система (а не установщик) чтобы получить sid originaluser? |
------- Отправлено: 10:50, 02-04-2014 | #209 |
Ветеран Сообщения: 978
|
Профиль | Сайт | Отправить PM | Цитировать R.i.m.s.k.y., честно говоря, не думал, что это понадобится, чуть позже допилю.
|
------- Отправлено: 10:55, 02-04-2014 | #210 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|