значение из реестра

[Smagulov85]

как мне считать значение ServerRoot из реестра

var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  with reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('SOFTWARE\Apache Group\Apache\2.0.63', false);
    ShowMessage(reg.ReadString('ServerRoot'));
    CloseKey;
    free;

а то появляется пустое сообщение

[Xatr]

У вас случайно не Vista x64?
Попробуйте это...

var
tempkey:hkey;
DataType: DWORD;
Buffer:array[0..255]of Char;
Bufsize:dword;
begin
bufsize:=255;
RegOpenKeyEx(HKEY_LOCAL_MACHINE,'SoftWare\Apache Group\Apache\2.0.63',0,KEY_READ or KEY_WOW64_64KEY,tempkey);
RegQueryValueEx(tempKey,PChar('ServerRoot'),nil,@DataType,@Buffer,@BufSize);
showmessage(buffer);
end;

[Smagulov85]

нет у меня Windows 7 x86 но код работает!! Спасибо тебе очень помог!!

интересно будет на других windows работать этот код!

[Xatr]

Должен работать.

[Smagulov85]

а как добавить проверку если нет такого занчение или нет ветки такой выдавала ошибку!!

[Xatr]

Если раздел реестра существует, то функция RegOpenKeyEx возвращает ERROR_SUCCESS.
Тоже самое и с функцией RegQueryValueEx

ERROR_SUCCESS | 0 | The action completed successfully.

в других случаях - код ошибки

[Smagulov85]

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

Если раздел реестра существует, то функция RegOpenKeyEx возвращает ERROR_SUCCESS.
Тоже самое и с функцией RegQueryValueEx

в других случаях - код ошибки

спасибо разобрался!!