64 bit registry key silme

[carsoft]

Program windows 7 - 32 bit sorunsuz alt anahtarı siliyor fakat 64 bit silmiyor hatada vermiyor.

Kod: Tümünü seç

const
  KEY_WOW64_64KEY = $0100;
  KEY_WOW64_32KEY = $0200;

procedure TForm1.Button1Click(Sender: TObject);
var
 Reg:TRegistry;
 key:string;
 begin
    key := 'SOFTWARE\Otowox';
    Reg := TRegistry.Create;
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.Access := KEY_WOW64_64KEY + KEY_ALL_ACCESS;
    If Reg.KeyExists('Software\Otowox\WLTrial') then
    try
    Reg.DeleteKey('Software\Otowox\WLTrial');
    finally
    Reg.CloseKey;
    Reg.Free;
 end;
 end;

[yhackup]

Merhaba,
Reg := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);