Загрузить куст реестра в Delphi

[DIMASIKXXX32]

Народ подскажите как загрузить куст реестра у меня есть файл SOFTWARE от другой ОС его надо подгрузить и прочитать параметры.

Вот как делаю я:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
mdv_Reg := TRegistry.Create;
mdv_Reg.RootKey := HKEY_LOCAL_MACHINE;
RegLoadKey(mdv_Reg.RootKey, '11111', 'D:\SOFTWARE');
end;

Ошибки не выдается на и куст тоже не загрузился!!!!!!

Огромная просьба помочь. И не писать поисковик рулит(т.к. уже все перерыл) может кто исходник скинит или рабочий пример на пишет. СПС.

[JUDAS]

mdv_Reg.Open; нужно делать в Вашей версии делфи?
уже не знаю что отвечать, тут некоторые сидят на 3-м Делфи (((

[DIMASIKXXX32]

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

mdv_Reg.Open; нужно делать в Вашей версии делфи?
уже не знаю что отвечать, тут некоторые сидят на 3-м Делфи (((

Delphi7. open это понятно если на до открыть. но смысол что после загрузки куста и при открытом регедите он должен отобразится а то ведь тишина

[art-programs]

при открытом регедите он должен отобразится

сразу сам куст не отобразится, нужно обновить редактор (на всякий случай )

какая ось? если виста или 7 то UAC возможно обороняется
и можно более расширенно получить ошибку, потому-что используется
winapi и ошибки он не возвращает напрямую
их нужно получать отдельно

Возвращаемые значения:
Если функция успешна, возвращается значение ERROR_SUCCESS.
При ошибке, возвращаемое значение – это код ошибки, объявленный в WINERROR.H. Вы можете использовать функцию FormatMessage с флагом FORMAT_MESSAGE_FROM_SYSTEM для получения общего описания ошибки.

[DIMASIKXXX32]

Сообщение от art-programs

сразу сам куст не отобразится, нужно обновить редактор (на всякий случай )

какая ось? если виста или 7 то UAC возможно обороняется
и можно более расширенно получить ошибку, потому-что используется
winapi и ошибки он не возвращает напрямую
их нужно получать отдельно

1314 Для расшифровки этого кода можно использовать ф-цию FormatMessage из WinAPI. Или программу errlook.exe из комплекта MS Visual Studio. В данном случае она мне сказала, что это ошибка "Клиент не обладает требуемыми правами."

[art-programs]

во-во ))
или UAC запретил или процесс не имеет привилегий для этого

[DIMASIKXXX32]

Сообщение от art-programs

во-во ))
или UAC запретил или процесс не имеет привилегий для этого

так как сделать если через регэдит грузит а через прогу нет как это поправить

[art-programs]

запускать прогу с правами админа
или если ос виста или 7, то можно добавить манифест UAC
тогда прога при запуске будет сама просить права админа

проще конечно запускать от имени админа

[DIMASIKXXX32]

Сообщение от art-programs

запускать прогу с правами админа
или если ос виста или 7, то можно добавить манифест UAC
тогда прога при запуске будет сама просить права админа

проще конечно запускать от имени админа

Я и так под админом. Даже пробовал запустить под админом результат 0

уменя 7 стоит. а как что бы она под разной виндой запускалась без проблем

[DIMASIKXXX32]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
iii:LongInt;
begin
mdv_Reg := TRegistry.Create;
mdv_Reg.RootKey := HKEY_USERS;//HKEY_LOCAL_MACHINE;
RegLoadKey(mdv_Reg.RootKey, 'SFT', 'D:\system32\config_izm\SOFTWARE');
iii:=RegLoadKey(mdv_Reg.RootKey, 'SFT', 'D:\system32\config_izm\SOFTWARE');
ShowMessage(IntToStr(iii));//1314"Клиент не обладает требуемыми правами."
end;


примечание;
1314 Для расшифровки этого кода можно использовать ф-цию FormatMessage из WinAPI. Или программу errlook.exe из комплекта MS Visual Studio. В данном случае она мне сказала, что это ошибка "Клиент не обладает требуемыми правами."