Скрипты Inno Setup. Помощь и советы [часть 8]

[jdcorg]

сперва почитать про current user и original user
потом сформулировать вопрос правильно, а я пока поищу у себя, когда-то давным давно я так делал :D »
О current user и original user Google ничего не выдаёт и в документации на jrsoftware тоже не нашел.
Может у Вас есть ссылочки?

[Valera90]

Всем привет как убрать выбор компонентов, на картинке выделил !

[R.i.m.s.k.y.]

О current user и original user Google ничего не выдаёт и в документации на jrsoftware тоже не нашел.
Может у Вас есть ссылочки? »
есть http://forum.oszone.net/post-2321537.html#post2321537 :laugh: (вторая ссылка в яндексе по поиску originaluser currentuser)

я те прям работающий кусок кода дам

[CODE]
var
Original_SID, Original_UserName : string;

#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif

#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif


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 GetLastError(): DWORD; external 'GetLastError@kernel32.dll stdcall';

function GetLoggedOnUserName(): String;
var
aNames: TArrayOfString;
dwLength: DWORD;
lpBuffer: Longint;
begin
Result:=GetUserNameString; // по-умолчанию текущий пользователь, для WinXP, в которой WTSQuerySessionInformation не отрабатывает, ошибка 1702
try
if not WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, WTS_CURRENT_SESSION, WTSUserName, lpBuffer, dwLength) then
begin
//dwLength := GetLastError();
//MsgBox(IntToStr(dwLength), mbError, mb_Ok);
Exit;
end;
Result := CastIntegerToString(lpBuffer);
finally
WTSFreeMemory(lpBuffer);
end;
end;

type
PSID = record
buffer: array [0..1024] of char;
end;

function LookupAccountName(lpSystemName: DWORD; lpAccountName: AnsiString;
var Sid: PSID; var cbSid: DWORD; ReferencedDomainName: AnsiString;
var cbReferencedDomainName: DWORD; var peUse: DWORD): BOOL; external 'LookupAccountNameA@advapi32.dll stdcall';
function ConvertSidToStringSid(var Sid: PSID; var pStringSid: DWORD): BOOL; external 'ConvertSidToStringSidA@advapi32.dll stdcall';
function lstrcat(lpString1: AnsiString; lpString2: DWORD):DWORD; external 'lstrcat@kernel32.dll stdcall';

function GetUserSID(userName: AnsiString):string;
var
Sid: PSID;
cbSid, len, peUse, ssid: DWORD;
ansi: AnsiString;
Success: BOOL;
begin
cbSid := 1024;
len := 1024;
ansi := StringOfChar(#0, 1024);
Success := LookupAccountName(0, userName, Sid, cbSid, ansi, len, peUse);
if Success then
begin
ConvertSidToStringSid(Sid, ssid);
ansi := StringOfChar(#0,1024);
lstrcat(ansi,ssid);
len := pos(#0,ansi);
Result := copy(string(ansi),1,len-1);
end;
end;

function GetOriginalSID(s:string): string;
begin
Result := Original_SID;
end;

function SVPSettingsFolder(string : string) : string;
var s:string;
begin
if (SVPSettingsFolderTrue) then begin
result := ExpandConstant('{userappdata}');
if IsComponentSelected('nastrSVP\settingsLocate\localuser') then
begin
if Original_UserName = GetUserNameString then
result := ExpandConstant('{userappdata}')
else
if RegQueryStringValue(HKU, Original_SID+'\Volatile Environment', 'APPDATA', s) then
result := RemoveBackslashUnlessRoot(s)
else
result := ExpandConstant('{commonappdata}'); // если вдруг не прочиталось из реестра
end;
if IsComponentSelected('nastrSVP\settingsLocate\publicuser') then result := ExpandConstant('{commonappdata}');
end else result := '!!! SVPSettingsFolder not defined !!!';
end;

Function InitializeSetup: Boolean;
begin
Original_UserName := GetLoggedOnUserName;
Original_SID := GetUserSID(original_UserName);
end;


кто догадается от установщика какой проги этот кусок кода тот может взять с полки пирожок, там их два, можно взять средний :)

Valera90,
procedure InitializeWizard();
begin
...
WizardForm.TypesCombo.Hide
...
end;

[jdcorg]

я те прям работающий кусок кода дам »
Спасибо!

[R.i.m.s.k.y.]

jdcorg, спасибо надо не говорить а нажимать :)
вкрации original user входит в ОС, current user запускает прогу runas

[Valera90]

Привет всем еще раз, помню тут был простой скрипт у кого то пример на добавление картинок при наведение мышкой на компонент, скиньте пожалуйста

[Nordek]

на добавление картинок при наведение мышкой на компонент »#662 (http://forum.oszone.net/post-2169372-662.html)

[jdcorg]

я те прям работающий кусок кода дам »
При установке должны меняться значения разделов реестра в ветке HKCU.
Я вижу, что этого не происходит ни у текущего юзера, ни у админа.
Тогда простая замена имени юзера в пути к каталогам не имеет смысла.

[R.i.m.s.k.y.]

jdcorg, УМВР
добавь MSGBOX (имя пользователя, куст реестра, путь до папки) и посмотри верно ли определяется все пути

[jdcorg]

dcorg, УМВР
добавь MSGBOX (имя пользователя, куст реестра, путь до папки) и посмотри верно ли определяется все пути »

Запускал установку на админской учётке - все файлы и записи в реестре устанавливаются корректно.
Запускал от имени админа на учётке простого юзера: файлы устанавливаются в соответствующие каталоги простого юзера, но записей в HKCU нет. Я так понимаю, что шаманство с файловыми путями в установочном файле не меняет принципа операционной системы- запустил от имени админа значит ОС все действия выполняет именно для учётки админа.

[R.i.m.s.k.y.]

jdcorg, покажи запись в реестр в своем скрипте

[jdcorg]

jdcorg, покажи запись в реестр в своем скрипте »
Root: "HKCU"; Subkey: "Software\Microsoft\Office\14.0\Excel\Security\FileBlock"; ValueType: dword; ValueName: "AccessVBOM"; ValueData: "1";

[R.i.m.s.k.y.]

Я так понимаю, что шаманство с файловыми путями в установочном файле не меняет принципа операционной системы- запустил от имени админа значит ОС все действия выполняет именно для учётки админа. »
частицу "не" не там поставил :D
ну и конЬцепцию original/current user не уяснил

Root: "HKCU"; Subkey: "Software\Microsoft\Office\14.0\Excel\Security\FileBlock"; ValueType: dword; ValueName: "AccessVBOM"; ValueData: "1"; »
я думал ты догадаешься что путь в реестре меняется на
HKU, Original_SID+ »
т.е. в твоем случаеRoot: HKU; Subkey: {code:GetOriginalSid}\Software\Microsoft\Office\14.0\Excel\Security\FileBlock; ValueType: dword; ValueName: "AccessVBOM"; ValueData: "1"; »

[jdcorg]

я думал ты догадаешься что путь в реестре меняется на »
Именно поэтому я не использовал твои функции. Мне надо менять значения в реестре только для текущего пользователя, а не для всех.
Это не возможно?

[R.i.m.s.k.y.]

jdcorg, таак
похоже мы еще не знаем значений ключей реестра
https://support.microsoft.com/ru-ru/kb/243330
https://en.wikipedia.org/wiki/Windows_Registry#Root_keys
Abbreviated HKU, HKEY_USERS contains subkeys corresponding to the HKEY_CURRENT_USER keys for each user profile actively loaded on the machine, though user hives are usually only loaded for currently logged-in users.
т.е. HKU\Original_SID\... по сути есть HKCU original user
домашнее задание: поменять ключ в HKU\Original_SID\ и посмотреть что с ним будет в HKCU

задача со звездочкой: найти в перечисленном значения в реестре для всех.

[jdcorg]

домашнее задание: поменять ключ в HKU\Original_SID\ и посмотреть что с ним будет в HKCU »
Прописал HKU, при установке ошибка создания ключа сбой 87.

[R.i.m.s.k.y.]

Прописал HKU, при установке ошибка создания ключа сбой 87. »
- петька, приборы!
- 87!
:)

покажи код, скрин и как воспроизводится ошибка, в деталях

[jdcorg]

покажи код, скрин и как воспроизводится ошибка, в деталях »
Отсутствует идентификатор SVPSettingsFolderTrue. Где его взять?

- петька, приборы! »
:) С HKCU всё получилось. Благодарю за терпение!

[R.i.m.s.k.y.]

Отсутствует идентификатор SVPSettingsFolderTrue. »
он принимает значение True если пользователь при установке выбрал хранение настроек в папке
Тебе он не нужен, тебе главное понять принцип и выдрать из моего примера нужное

С HKCU всё получилось. »
чет мне кажеццо что все равно неправильно сделал
покажи скрипт в части касающейся

[jdcorg]

чет мне кажеццо что все равно неправильно сделал »
Если работает, то всё сделал правильно. Спасибище тебе!
В сэтапе есть файлы, которые устанавливаются при выборе галки (Components). Я хочу оставить возможность выбора установки компонента, но не таскать его в установочном файле, а подгрузить из сети. Есть примеры на этот счёт?