[Painkiller]

А вот не работает....хотя ранее я его и применял! Буду смотреть в чем дело. »

Вот я с этим два дня мучаюсь . Библиотека реально облегчает работу, жаль что не обновляется

[opel431]

Вот я с этим два дня мучаюсь »

Наверное, сообщество авторов (JCL) считает, что лезть в ветку реестра x64 из 32-разрядного приложения, недопустимо! Почему RegSetWOW64AccessMode не работает для RegDeleteKeyTree, пока не пойму.
Можно пробовать применять функции (Wow64DisableWow64FsRedirection и Wow64EnableWow64FsRedirection) но, этот путь, считают небезопасным.

Библиотека реально облегчает работу, жаль что не обновляется »

Обновляется каждый день - http://jcl.sourceforge.net/daily/

P.S. - RegSetWOW64AccessMode не работает для RegDeleteKeyTree, так как, открытие ключа предусмотрено только с флагом доступа KEY_ALL_ACCESS!

[opel431]

В качестве примера. Под Вашу ответственность!

Отключение перенаправления

Код:

//========================================================================================
// Отключение перенаправления при работе 32-битного приложения в 64-битной ОС ////////////
//========================================================================================

// результат, определение разрядности ОС 
function IsWow64: Boolean;
type
  TIsWow64Process = function(Handle: Windows.THandle; var Res: Windows.BOOL)
    : Windows.BOOL; stdcall;
var
  IsWow64Result: Windows.BOOL;
  IsWow64Process: TIsWow64Process;
begin
  IsWow64Process := Windows.GetProcAddress
    (Windows.GetModuleHandle('kernel32.dll'), 'IsWow64Process');
  if Assigned(IsWow64Process) then
  begin
    if not IsWow64Process(Windows.GetCurrentProcess, IsWow64Result) then
      raise SysUtils.Exception.Create('IsWow64: bad process handle');
    Result := IsWow64Result;
  end
  else
    Result := False;
end;

// результат, отключение/включение перенаправления
function ChangeFSRedirection(bDisable: boolean): boolean;
type
  TWow64DisableWow64FsRedirection = function(Var Wow64FsEnableRedirection
    : LongBool): LongBool; stdcall;
  TWow64EnableWow64FsRedirection = function(var Wow64FsEnableRedirection
    : LongBool): LongBool; stdcall;
var
  hHandle: THandle;
  Wow64DisableWow64FsRedirection: TWow64DisableWow64FsRedirection;
  Wow64EnableWow64FsRedirection: TWow64EnableWow64FsRedirection;
  Wow64FsEnableRedirection: LongBool;

begin
  Result := True;

  if not IsWow64 then
    exit;

  try
    hHandle := GetModuleHandle('kernel32.dll');
    @Wow64EnableWow64FsRedirection := GetProcAddress(hHandle,
      'Wow64EnableWow64FsRedirection');
    @Wow64DisableWow64FsRedirection := GetProcAddress(hHandle,
      'Wow64DisableWow64FsRedirection');

    if bDisable then
    begin
      If ((hHandle <> 0) and (@Wow64EnableWow64FsRedirection <> nil) and
        (@Wow64DisableWow64FsRedirection <> nil)) Then
        Wow64DisableWow64FsRedirection(Wow64FsEnableRedirection);
    end;

    if not bDisable then
      If ((hHandle <> 0) and (@Wow64EnableWow64FsRedirection <> nil) and
        (@Wow64DisableWow64FsRedirection <> nil)) Then
        Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection);

  Except
    Result := False;
  end;
end;

{применение}

// отключаем перенаправление
ChangeFSRedirection(true);

// что-то делаем с файлами или реестром
...
// например, открываем файл в \system32, а не в \SysWOW64 
OpenFile('C:\Windows\system32\einedatei.txt');
...
// включаем перенаправление
ChangeFSRedirection(false);

[Painkiller]

В качестве примера. Под Вашу ответственность! »

Спасибо за пример, сохраню себе на будущее для других целей . В моём случае с библиотекой JEDI мне это не поможет. Т. к. вы сами писали RegSetWOW64AccessMode не работает для RegDeleteKeyTree, так как, открытие ключа предусмотрено только с флагом доступа KEY_ALL_ACCESS!

Обновляется каждый день - http://jcl.sourceforge.net/daily/ »

Обновляется ? Портируется на новые версии delphi только.

[opel431]

Т. к. вы сами писали RegSetWOW64AccessMode не работает для RegDeleteKeyTree »

Еще раз. Перенаправление и доступность (для 32-разрядного приложения в 64-разрядной среде), не одно и тоже!

[Painkiller]

Еще раз. Перенаправление и доступность (для 32-разрядного приложения в 64-разрядной среде), не одно и тоже! »

За код конечно спасибо , но он мне ничем не помог , буду использовать свой код и дальше . Видимо лучше его способа нет .

[El Sanchez]

RegSetWOW64AccessMode не работает для RegDeleteKeyTree »

opel431, RegSetWOW64AccessMode у ТС работает, т.к. 64-разрядный раздел реестра из 32-разрядного приложения находится, RegDeleteKeyTree не удаляет раздел, потому что это обертка над виндовой RegDeleteKey, а она:

The RegDeleteKey function cannot be used to access an alternate registry view.

В игры с KEY_WOW64_64KEY функция RegDeleteKey не играет, нужно использовать RegDeleteKeyEx.

[opel431]

В игры с KEY_WOW64_64KEY функция RegDeleteKey не играет, нужно использовать RegDeleteKeyEx »

Спасибо, но, как Вы сами и заметили

RegDeleteKeyTree не удаляет раздел, потому...»

Что нами и обсуждалось, - применение стандартной функции RegDeleteKeyTree из библиотеки JCL без "умного перенаправления", а не возможности API функций.
Что касается RegDeleteKeyEx, то согласно того-же http://msdn.microsoft.com/en-us/libr...=VS.85%29.aspx

Код:

A handle to an open registry key. The access rights of this key do not affect the delete operation. For more information about access rights, see Registry Key Security and Access Rights.
This handle is returned by the RegCreateKeyEx or RegOpenKeyEx function, or it can be one of the following Predefined Keys:
HKEY_CLASSES_ROOT
HKEY_CURRENT_CONFIG
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS

то можно понимать, что вполне возможно обходится только RegOpenKeyEx. Открывать требуемый ключ и передавать его первым параметром в RegDeleteKey.
Все мы разные! Кому-то нравится осуществлять "мозговой штурм", кто-то ищет проще, кого-то интересует классика.

[El Sanchez]

можно вообще обходится только RegOpenKeyEx. Открывать требуемый ключ и передавать его первым параметром в RegDeleteKey. »

opel431, ну получили вы нужный дескриптор от RegOpenKeyEx, ну передали его в RegDeleteKey первым параметром, вторым что будете передавать? При тех параметрах, что передаются в RegDeleteKey в теле RegDeleteKeyTree, в случае ТС должна быть RegDeleteKeyEx.

[opel431]

opel431, ну получили вы нужный дескриптор от RegOpenKeyEx »

Бог ты мой, даже в ссылке указано

This handle is returned by the RegCreateKeyEx or RegOpenKeyEx function »

Ну не поняли друг-друга. Я на "волне" замены примера автора на API функции, где считаю RegCreateKeyEx лишним!