TRegistry.OpenKey рабочий код перенесенный в xe перестал работать

[Haberman]

   var reg:TRegistry;
    baseDir:string;
begin

 reg := TRegIstry.Create;
 reg.RootKey :=HKEY_LOCAL_MACHINE;

if reg.OpenKey('\software\oneMansoft\StayTop\',false) then
 begin

  BaseDir:=reg.ReadString('Installpath');

end  else 
   BaseDir:='RegistryFailed';

reg.OpenKey не срабатывает но GetLastError=0

[Haberman]

Может есть у когото хоть какие-то предположения в чем ошибака?

[BLACK_RAIN]

а что именно не работает-то?

Сообщение от Haberman

reg.OpenKey('\software\oneMansoft\S tayTop\'

если включен UAC, то без прав администратора данная ветка не прочитается и не запишется.

[Haberman]

Сообщение от BLACK_RAIN

а что именно не работает-то?

если включен UAC, то без прав администратора данная ветка не прочитается.

У меня сейчас 1 компьютер с 1 ОС, я сделал код который работает в Delphi7 и перенёс его в Xe8 где он не работает.

[p51x]

Вы учли, что строки стали юникодовскими?

[northener]

Имхо.
Во-первых.
Действительно может быть проблема с UAC. Без прав администратора доступ к HKLM разрешен только на чтение а при создании

Сообщение от Haberman

reg := TRegIstry.Create;

доступ запрашивается как KEY_ALL_ACCESS. При этом действительно функция OpenKey вернёт FALSE. В этом случае надо создать экземпляр TRegistry так:

reg:=TRegistry.Create(KEY_READ);

Во-вторых меня смущает слэши в начале и в конце
\software\oneMansoft\StayTop\
им там нечего делать.

Сообщение от p51x

Вы учли, что строки стали юникодовскими?

А при чём тут юникод? Тем более что в примере ТС нет ни одного "нелатинского" символа.

[p51x]

Сообщение от northener

Во-первых.

Вы тему читали? Этот код работает, если собрать его в Д7. Д7 научился сам обходить уац и права в реестре? И гетласт 0, хотя может у д7 свои функции в обход винапи...

Сообщение от northener

А при чём тут юникод? Тем более что в примере ТС нет ни одного "нелатинского" символа.

Вы видите суслика? А он есть... ТС читает из реестра строку.

[Serge_Bliznykov]

Сообщение от p51x

ТС читает из реестра строку.

судя по его словам

Сообщение от Haberman

reg.OpenKey не срабатывает

до чтения строки дело не доходит.

а вообще, я согласен с northener - я бы очень внимательно посмотрел, что там творится с правами доступа и открытием реестра на полный доступ или на чтение.

ну и исправил код в соответствии с замечаниями (см. оф.сайт)

if reg.OpenKey('Software\\oneMansoft\\StayTop\\',false) then

[northener]

Сообщение от p51x

Вы тему читали?

Пока нет полного кода проекта я склонен следовать совету незабвенного Козьмы Пруткова по поводу надписи на клетке слона

[Alter]

Попробуйте это:

function RegReadString(RootK: HKEY; OpenK, ValNam: string): string;
var
  Reg :TRegistry;
begin // чтение string
 Result := '';
 Reg := TRegistry.Create(KEY_ALL_ACCESS or KEY_WOW64_64KEY);
   try
 Reg.RootKey := RootK;
 if Reg.KeyExists(OpenK) then
 if Reg.OpenKeyReadOnly(OpenK) then
 begin
   if Reg.ValueExists(ValNam) then
    Result := Reg.ReadString(ValNam);
   Reg.CloseKey;
 end;
   finally
 FreeAndNil(Reg);
   end;
end;

function RegWriteString(RootK: HKEY; OpenK, ValNam, fVal: string):string;
var
  Reg :TRegistry;
begin
 Result := '';
 Reg := TRegistry.Create(KEY_ALL_ACCESS or KEY_WOW64_64KEY);
   try
 Reg.RootKey := RootK;
 if Reg.OpenKey(OpenK, True) then
 begin
   Reg.WriteString(ValNam, fVal);
   Result := Reg.ReadString(ValNam);
   Reg.CloseKey;
 end;
   finally
 FreeAndNil(Reg);
   end;
end;

uRegTul.zip