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

поднятие привилегий собственному процессу не поможет? »

может и поможет, но это применимо к самому установщику который уже запущен?

Получить иня пользователя запустившего экзешник можно »

как в таком случае достучаться до HCKU и appdata?

[Johny777]

может и поможет, но это применимо к самому установщику который уже запущен? »

да, то бишь когда есть процесс (твой конечно)
поднимай например перед тем как тебе нужно выполнить действия админа. Опускай после завершения действий

как в таком случае достучаться до HCKU и appdata? »

может после поднятия привилегий достучишься, но ведь HCKU - это ветка текущего пользователя. Разве проблема туда писать или читать оттуда из под текущего пользователя?

PS: Если честно я хз получится ли

=================================================================================================

Fakt_37, Так сойдёт?

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application


[Files]
Source: Precomp041.exe; Flags: dontcopy nocompression;


[Run]
Description: Extracting precompiled File; Filename: {tmp}\Precomp041.exe; WorkingDir: {tmp}; Parameters: твои параметры распаковки; Check: ExtractProgramm('Precomp041.exe');


[code  ]

function ExtractProgramm(const TempFileName: String): Boolean;
begin
    ExtractTemporaryFile(TempFileName);
    Result := FileExists(AddBackslash(ExpandConstant('{tmp}')) + TempFileName);
end;

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

Цитата Johny777:
PS: Если честно я хз получится ли »
не, не получается
Установщик запрашивает логин/пасс админа и все делает для него
Зачем тогда в Инно флаг runAsoriginaluser? и как этот параметр работает?
Даже если запустить свой установщик из другого с runAsoriginaluser - борода, все вносится в админский акк

[mifkys]

Приветствую еще раз! Можно ли в Inno Setup поменять порядок выполнения секций? Нужно сначала [Run] прогнать, а потом уже [Dirs] и [Files].

[Fakt_37]

Fakt_37, Так сойдёт? читать дальше » »

да спасибо должно помочь, и еще один вопрос, как сделать чтоб можно было выбрать русскую (озвучку. текст и тд)или английскую, причём если выбираешь русскую чтоб только она и устанавливалась, и на файл с английской инсталятор не обращал внимания?

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

mifkys, нет
используй CurStepChanged/CurPageChanged

[nik1967]

Всем доброго времени суток! Возникла необходимость средствами Inno узнать название видеоадаптера. Кто подскажет, как с помощью API в Inno это провернуть?

[saurn]

Fakt_37, читайте в справке про секцию [Components]

Код:

[Components]
Name: rus; Description: Русская озвучка; Types: full; Falgs: exclusive
Name: eng; Description: Английская озвучка; Types: custom; Falgs: exclusive

[Files]
Source: rus\*; DestDir: {app}; Components: rus; Flags: recursesubdirs overwritereadonly createallsubdirs ignoreversion;
Source: eng\*; DestDir: {app}; Components: eng; Flags: recursesubdirs overwritereadonly createallsubdirs ignoreversion;

флаг exclusive »

Точно, запамятовал)

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

nik1967, в шапке скрипт Ultimate Test Black Skin, в нем выдергивается не только имя адаптера, но и память, разрешение экрана...

Fakt_37 saurn, флаг exclusive

Код:

[Components]
Name: rus; Description: Русская озвучка; Types: full; Falgs: exclusive
Name: eng; Description: Английская озвучка; Types: custom; Falgs: exclusive

[Files]
Source: rus\*; DestDir: {app}; Components: rus; Flags: recursesubdirs overwritereadonly createallsubdirs ignoreversion;
Source: eng\*; DestDir: {app}; Components: eng; Flags: recursesubdirs overwritereadonly createallsubdirs ignoreversion;

[Johny777]

nik1967, список имён видеокарт через winapi-функцию EnumDisplayDevices() :

читать дальше »

Код:

#define A = (Defined UNICODE) ? "W" : "A"


const
    DISPLAY_DEVICE_MODESPRUNED = $8000000;


type
    _DISPLAY_DEVICE = record
        cb: DWORD;
        #ifdef UNICODE
            DeviceName: array[0..31] of AnsiChar;
            DeviceString: array[0..127] of AnsiChar;
        #else
            DeviceName: array[0..31] of Char;
            DeviceString: array[0..127] of Char;
        #endif
        StateFlags: DWORD;
    end;
    
    Pointer = Integer;
  
  
function EnumDisplayDevices(Unused: Pointer; iDevNum: DWORD; var lpDisplayDevice: _DISPLAY_DEVICE; dwFlags: DWORD): BOOL; external 'EnumDisplayDevices{#A}@user32.dll stdcall';


procedure Inc(var Int: Integer);
begin
    Int := Int + 1;
end;


function CharArrayToString(aChar: array of Char): String;
begin
    Result := '';
    while aChar[Length(Result)] <> #0 do Insert(aChar[Length(Result)], Result, Length(Result)+1);
end;


function InArray(const uArray: array of String; const SearchStr: String): Boolean;
var
    i, Len: Integer;
begin
    Len := GetArrayLength(uArray);
    if Len = 0 then Exit;
    for i := 0 to Len-1 do
    begin
        Result := uArray[i] = SearchStr;
        if Result then Break;
    end;
end;


function GetVideoDevices(): array of String;  
var
    dd: _DISPLAY_DEVICE;
    iDevNum: Integer;
    Len: Integer;
    Buff: String;
begin
    dd.cb := SizeOf(dd);
    while EnumDisplayDevices(0, iDevNum, dd, 0) do
    begin
        if dd.StateFlags = DISPLAY_DEVICE_MODESPRUNED then
        begin
            Buff := CharArrayToString(dd.DeviceString);
            if not InArray(Result, Buff) then
            begin
                Len := GetArrayLength(Result);
                SetArrayLength(Result, Len+1);
                Result[Len] := Buff;
            end;
        end;
        Inc(iDevNum);
    end;
end;


procedure InitializeWizard();
var
    sArray: array of String;
    i: Integer;
begin
    sArray := GetVideoDevices();
    for i := 0 to GetArrayLength(sArray)-1 do MsgBox(sArray[i], mbInformation, MB_OK);
end;

PS: с флагами запутался. http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
Почему то имя одной и той же видеокарты возвращает 2 раза. Решаю этот вопрос проверкой на отсутствие имени в выходном массиве строк