[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 (вторая ссылка в яндексе по поиску 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

[jdcorg]

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

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

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

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

[jdcorg]

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

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