Здравствуйте, nim2006, Вы писали:

N>Hi!
N>Есть библиотека стороннего разработчика

N>

N>ILibrary = interface(IUnknown)
N>    ['{E1A1E77A-07A2-452D-BB5D-FAC41207B23A}']
N>    function  Get(out key: WideString): HResult; stdcall;
N>    function  Read(var key: WideString; out OutParam: variant): HResult; stdcall;
N>  end;
N>

N>Моя задача получить с помощью функции Get строку один раз а в дальнейшем использовать функцию Read для получения параметров. Для этого в функцию Read передаеться строка полученная функцией Get. В key сохранены бинарные данные. Как можно сохранить key в реестре? А потом считать его от туда?

Сохраняй её не как строку, а как данные. Кто мешает получить указатель на первый байт и представить строку в другом виде.

Если нужно сохранить именно Wide-строку, см. функцию RegSetValueExW. Кажется я в своём FDSCInformer сохранял строки как Wide, посмотри здесь, нужен модуль uRegistry.pas.