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

вот такой
procedure DeinitializeSetup();
begin
BASS_DeInit; //Освобождаем процесс
gdipShutdown
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
WizardForm.Hide;
Sleep(200);
ShowWindow(WizardForm.Handle,0);
UnloadSkin();
RF(ExpandConstant('{src}\!!!.txt'));
end;

если при старте установщика в окне выбора языка нажать "отмена" то вываливается ошибка на строчке ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);

Подскажите, как избавиться?

[El Sanchez]

этот способ не прокатывает тк МС в великой мудрости сменила инсталлер с MSI на что-то другое »

R.i.m.s.k.y., это что-то другое содержит в себе 2 msi, так что способ прокатывает.

не прокатит - если установщик запущен не под одмином доступ к hklm может блокироваться »

R.i.m.s.k.y., с чего вдруг? Читать можно всем.

ругается на синтаксис case (syntax error) что ему не нравится? »

R.i.m.s.k.y., двойные кавычки вместо одинарных, нет точки с запятой после каждого выбора.

если при старте установщика в окне выбора языка нажать "отмена" то вываливается ошибка на строчке ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0); »

R.i.m.s.k.y., форма-то еще не проинициализирована, {wizardhwnd} нема, а ShowWindow уже чего-то хочет. Да и незачем временно скрывать форму при выгрузке скина.
Если в DeinitializeSetup есть обращение к WizardForm или {wizardhwnd}, то нужно делать проверку:

Код:

if ExpandConstant('{wizardhwnd}') <> '0' then
    // что-то делаем с WizardForm или {wizardhwnd}

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

что-то другое содержит в себе 2 msi, так что способ прокатывает. »

я в темпах шарился во время установки - нет там MSI
где он лежит или как его вытащить?

с чего вдруг? Читать можно всем. »

хз
сталкивался с тем что во время установки чтение оттуда выдает пустые строки

форма-то еще не проинициализирована, {wizardhwnd} нема, а ShowWindow уже чего-то хочет. »

я знаю,
теперь выдает ошибку could not call proc на строчке
if ExpandConstant('{wizardhwnd}') <> '0' then begin

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

а как называется функция, инициализирующая окошко выбора языка? что-то initializelanguagewindow чтоле? попробую через нее

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

вывернулся

var FormInitialized : boolean;

function InitializeLanguageDialog(): Boolean;
begin
FormInitialized := false;
...
end;

procedure DeinitializeSetup();
begin
if (FormInitialized) then begin
BASS_DeInit; //
gdipShutdown
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
WizardForm.Hide;
Sleep(200);
ShowWindow(WizardForm.Handle,0);
UnloadSkin();
RF(ExpandConstant('{src}\!!!.txt'));
end;
end;


procedure InitializeWizard();
begin
FormInitialized := true;
...
end;

[Stealthmax]

Подскажите, а есть ли адекватное решение для работы с REG_BINARY?

Код:

function GetHKLM: Integer;
begin
  if IsWin64 then
    Result := HKLM64
  else
    Result := HKLM32;
end;

procedure InitializeWizard();
var
  RegKey10: AnsiString;
begin
RegQueryBinaryValue(GetHKLM(), 'SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder', 'Attributes', RegKey10);
  MsgBox(RegKey10, mbInformation, MB_OK);
end;

Сам твик в формате *.reg :

Код:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder]
"Attributes"=hex:70,01,00,20

В таком виде не выводит в окне сообщения что-либо вразумительное. Как получить читабельный вид значения, чтобы возможно было его прочитать/сравнить/записать?

Решение найдено:

Код:

function GetRegBinStr(key: integer; subkey, value: string): string;
var s: Ansistring;
    i: integer;
begin
    RegQueryBinaryValue(key, subkey, value, s);
    for i := 1 to Length(s) do
    begin
        result := result + Format('%.2x', [Ord(s[i])]);
        if not (i = Length(s)) then result := result + ',';
    end;
end;

function HexToStr(str_hex: string): string;
var
  i: Integer;
begin
  StringChange(str_hex, ',', '');
  for i:= 1 to Length(str_hex) div 2 do
    Result:= Result +  Chr(StrToInt('$' + Copy(str_hex, (i-1)*2+1, 2)));
end;

function GetHKLM: Integer;
begin
  if IsWin64 then
    Result := HKLM64
  else
    Result := HKLM32;
end;


procedure InitializeWizard();
var
  RegKey10: AnsiString;
  S: string;
begin
RegKey10:= GetRegBinStr(GetHKLM(), 'SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder', 'Attributes'); //получаем значение из реестра и конвертируем в читабельный вид
MsgBox(RegKey10, mbInformation, MB_OK); //смотрим что на выходе
  S:= '70,01,00,20'; //задаем свое значение
  RegKey10:=  HexToStr(S); //конвертируем значение в hex
  RegWriteBinaryValue(GetHKLM(), 'SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder', 'Attributes', RegKey10); //пишем в реестр
  //здесь можно посмотреть результат записи в том же порядке, убрать комментарий строк ниже для наглядности работы
 //RegKey10:= GetRegBinStr(GetHKLM(), 'SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder', 'Attributes');
 //MsgBox(RegKey10, mbInformation, MB_OK);
end;

P.S. Отдельная благодарность Serega за функцию HexToStr
P.P.S. Ключ для теста лучше заменить, например, на такой 'SOFTWARE\Test', 'Test', т.к. в моем примере закрытый ключ на запись, но это уже другая история(SetACL).

[El Sanchez]

Подскажите, а есть ли адекватное решение для работы с REG_BINARY? »

Stealthmax, неадекватного здесь только функция GetHKLM.

Как получить читабельный вид значения »

Stealthmax, зачем? Бинарные данные некрасивы в любом виде. В данном примере после вызова RegQueryBinaryValue некрасивое значение переменной RegKey10 эквивалентно некрасивой строке #$70#$01#$00#$20.

[Stealthmax]

неадекватного здесь только функция GetHKLM. »

А как корректнее подключить взаимодействие HKLM64 и HKLM32? У меня обработка веток происходит в соответствии с разрядностью системы, т.е. на x64 у меня отработал скрипт, на x86 пока не тестировал.

В данном примере после вызова RegQueryBinaryValue некрасивое значение переменной RegKey10 эквивалентно некрасивой строке #$70#$01#$00#$20 »

А с учетом уже найденного решения?

[El Sanchez]

А как корректнее подключить взаимодействие HKLM64 и HKLM32? У меня обработка веток происходит в соответствии с разрядностью системы, т.е. на x64 у меня отработал скрипт, на x86 пока не тестировал. »

Stealthmax, да оно-то при чтении может и ничего, но если писать, то может оказаться, что на 64-разрядной системе CLSID находится не только в 64-разрядной ветке реестра, но и в 32-разрядной.

А с учетом уже найденного решения? »

Stealthmax, я еще понимаю строки/числа из реестра читать и выводить в удобной форме, но бинарные данные зачем?

Код:

// читать
RegQueryBinaryValue(HKLM, 'SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder', 'Attributes', RegKey10);

// сравнить
MsgBox(Format('%d', [(RegKey10 = #$70#$01#$00#$20)]), mbInformation, MB_OK);

// записать
RegWriteBinaryValue(HKLM, 'SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder', 'Attributes', #$70#$01#$00#$20);

[Stealthmax]

я еще понимаю строки/числа из реестра читать и выводить в удобной форме, но бинарные данные зачем? »

Возникла проблема, когда в ключе потребовалось изменить туда/обратно значение, в частности, данный CLSID - это корзина, т.е. все что требовалось, это изменить "Attributes"=hex:40,01,00,20 на "Attributes"=hex:70,01,00,20. Говоря проще, скрыть или показать корзину в переходах Проводника Windows(и по аналогии другие элементы, но там проще получилось с Dword).

может оказаться, что на 64-разрядной системе CLSID находится не только в 64-разрядной ветке реестра, но и в 32-разрядной »

В точку. В примере, я не указывал ключ RegWriteBinaryValue(GetHKLM(), 'SOFTWARE\Wow6432Node\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder', 'Attributes', RegKey11);
Поэтому и пояснил этот момент, в плане того, что учел эту особенность и проверил работоспособность именно на x64, где есть Wow6432Node.