[Painkiller]

3. Вы работаете в системе с отключенным UAC? »

Да , вот почему мне манифест не нужен, но я его всё равно его добавлял.

А функция RegDeleteKeyTree, удаляет подключи! »

Если скомпилировать x64 приложения , то функция удаляет ключ с подключами без проблем .

[opel431]

Reg.Access := $100 or KEY_ALL_ACCESS; »

Давайте так, не гадать, а почитать, как работает перенаправление RegSetWOW64AccessMode. Посмотрите вот это https://msdn.microsoft.com/en-us/lib...29(VS.85).aspx и это http://blog.delphi-jedi.net/2010/08/...key-and-64bit/
У Вас какая версия и под какую платформу Вы создаете приложение? Будут затруднения, поставлю Delphi и посмотрю на практике.

[Painkiller]

У Вас какая версия и под какую платформу Вы создаете приложение? Будут затруднения, поставлю Delphi и посмотрю на практике. »

Ещё раз повторяю .Я создаю x32 приложения , но мне нужно, чтобы она работа и на x86 и на x64 . Всё работает кроме функции RegDeleteKeyTree. Если скомпилировать x64, то всё работает, удаляет ключ с подключами. RegDeleteKeyTree не работает если приложения скомпилировать x32. Вот в чём загвостка.

[opel431]

Ещё раз повторяю »

Ну вот, Вы уже с возмущением! У меня XE, компилятор только для платформы x32. Скиньте именно ваш проблемный ключ (.reg). Попробую воспроизвести проблему.

[Painkiller]

Ну вот, Вы уже с возмущением! У меня XE, компилятор только для платформы x32. Скиньте именно ваш проблемный ключ (.reg). Попробую воспроизвести проблему. »

Вам показалось, вы тут единственный, который не раз мне помогал с delphi и на этот раз я на вас то и рассчитываю. Увы я самоучка и иногда не хватает опыта, здесь только на вас и рассчитывать можно. Причём о чудной библиотеке JEDI я узнал из вашего сообщения тут на форуме и в с ней знакомы лично.
Скомпилировал для двух платформ и вместе с рег файлом и исходником залил на яндекс диск тут
x64 удаляет , а x86 находит но не удаляет. =((

[opel431]

Скомпилировал для двух платформ и вместе с рег файлом.... »

Вот это мне не нужно, мне покажите экспорт ключа из реестра, можно и Unit1 (выложите здесь, заключив в теги, ведь просматривают Ваше сообщение и другие). Все остальное лишнее, кроме того, тянет за собой хвост. Или "троян" или ложное срабатывание защиты - Trojan:Win32/Spursint.A.

[Painkiller]

Вот это мне не нужно, мне покажите экспорт ключа из реестра, »

Код:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WIMMount]

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WIMMount\1]

Можно и Unit1 (выложите здесь, заключив в теги, ведь просматривают Ваше сообщение и другие). »

Скрытый текст

Код:

unit Unit1;

interface

uses
JclSecurity,JclRegistry, JclSysInfo, Registry,Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;



type

  TForm1 = class(TForm)
    Button2: TButton;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
 {$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
RootKey: HKEY;
PathKEY:String;
 begin
RegSetWOW64AccessMode(raNative);
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(PChar('HKEY_LOCAL_MACHINE\Software\Microsoft\WIMMount')));
RootKey := HKEY_LOCAL_MACHINE;
PathKEY:='Software\Microsoft\WIMMount';
if not RegKeyExists (RootKey,PathKEY) then begin
Memo1.Lines.Add ('Ключ не найден ');
exit
end else begin
Memo1.Lines.Add('[ ОК ] Ключ найден');
if not RegDeleteKeyTree (RootKey,PathKEY)then   begin
Memo1.Lines.Add ('Ключ не удалён ');
exit
end else begin
Memo1.Lines.Add('[ ОК ] Ключ удалён');
end;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (CheckWin32Version(6, 0)) then
begin
   if IsPrivilegeEnabled('SeBackupPrivilege') then
      EnableProcessPrivilege(False, 'SeBackupPrivilege');
   if IsPrivilegeEnabled('SeRestorePrivilege') then
      EnableProcessPrivilege(False, 'SeRestorePrivilege');
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if (CheckWin32Version(6, 0)) then
begin
   if not IsPrivilegeEnabled('SeBackupPrivilege') then
      EnableProcessPrivilege(True, 'SeBackupPrivilege');
   if not IsPrivilegeEnabled('SeRestorePrivilege') then
      EnableProcessPrivilege(True, 'SeRestorePrivilege');
end;
end;
end.

Все остальное лишнее, кроме того, тянет за собой хвост. Или "троян" или ложное срабатывание защиты - Trojan:Win32/Spursint.A. »

А вот это у вас ложное срабатывания . У меня тут нет цели распространять вирусы. У вас случайно не Аваст или Авира ?
Результата virustotal 86.exe
Результата virustotal 64.exe

[opel431]

Вижу Вы еще здесь. Попробуй те на платформе x32 RegSetWOW64AccessMode(raDefault);

У вас случайно не Аваст или Авира ? »

"Казенный" - MSE

[Painkiller]

Вижу Вы еще здесь. Попробуй те на платформе x32 RegSetWOW64AccessMode(raDefault); »

Ключ не найден, хоть он и существует. Я уже игрался с этим прежде чем сюда написать, то день просидел вчера , всё перепробовал.

[opel431]

всё перепробовал. »

У меня в XE удаляет.

Код

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    lbl1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses JclRegistry, JclSecurity, JclSysInfo;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if (CheckWin32Version(6, 0)) then
  begin
    if not(IsPrivilegeEnabled('SeBackupPrivilege')) then
      EnableProcessPrivilege(True, 'SeBackupPrivilege');
    if not(IsPrivilegeEnabled('SeRestorePrivilege')) then
      EnableProcessPrivilege(True, 'SeRestorePrivilege');
    if not(IsPrivilegeEnabled('SeDebugPrivilege')) then
      EnableProcessPrivilege(True, 'SeDebugPrivilege');
    if not(IsPrivilegeEnabled('SeManageVolumePrivilege')) then
      EnableProcessPrivilege(True, 'SeManageVolumePrivilege');
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (CheckWin32Version(6, 0)) then
  begin
    if IsPrivilegeEnabled('SeBackupPrivilege') then
      EnableProcessPrivilege(False, 'SeBackupPrivilege');
    if IsPrivilegeEnabled('SeRestorePrivilege') then
      EnableProcessPrivilege(False, 'SeRestorePrivilege');
    if IsPrivilegeEnabled('SeDebugPrivilege') then
      EnableProcessPrivilege(False, 'SeDebugPrivilege');
    if IsPrivilegeEnabled('SeManageVolumePrivilege') then
      EnableProcessPrivilege(False, 'SeManageVolumePrivilege');
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
const
  KeyName = 'SOFTWARE\Microsoft\WIMMount';
var
  RootKey: HKEY;
  LastAccess: TJclRegWOW64Access;
begin
  LastAccess := RegGetWOW64AccessMode;
  RootKey := HKEY_LOCAL_MACHINE;
  try
    if not IsWindows64 then
      RegSetWOW64AccessMode(raNative);

    if not(RegKeyExists(RootKey, KeyName)) then
    begin
      lbl1.Caption := 'Ключ - ' + KeyName + ' не найден!';
    end
    else
    begin
      if not(RegDeleteKeyTree(RootKey, KeyName)) then
      begin
        lbl1.Caption := 'Ключ - ' + KeyName + ' не удален!';
      end
      else
        lbl1.Caption := 'Ключ - ' + KeyName + ' удален!';
    end;
  finally
    RegSetWOW64AccessMode(LastAccess);
  end;
end;

end.