Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=408489&view=findpost&p=3662253 Tue, 29 Mar 2016 14:09:21 +0000 RegDBGetKeyValueEx падает с ошибкой, при попытке получить значение из реестра. https://forum.sources.ru/index.php?showtopic=408489&view=findpost&p=3662253 KILLER Инсталляторы https://forum.sources.ru/index.php?showtopic=408489&view=findpost&p=3662241 Tue, 29 Mar 2016 12:43:45 +0000 RegDBGetKeyValueEx падает с ошибкой, при попытке получить значение из реестра. https://forum.sources.ru/index.php?showtopic=408489&view=findpost&p=3662241
    ...
    REGDB_OPTIONS = REGDB_OPTIONS | REGDB_OPTION_WOW64_64KEY;
     
    if (RegDBKeyExist(szKey) == 1)  then
           if (RegDBGetKeyValueEx(szKey, szName, nvType, szSharePointProperty, nvSize) == 0)  then
    ...

Но теперь возникла другая проблема, почему то записывается путь Program Files, а IS показывает Program File(x86) :-? :wall:]]> KILLER Инсталляторы https://forum.sources.ru/index.php?showtopic=408489&view=findpost&p=3662217 Tue, 29 Mar 2016 10:30:05 +0000 RegDBGetKeyValueEx падает с ошибкой, при попытке получить значение из реестра. https://forum.sources.ru/index.php?showtopic=408489&view=findpost&p=3662217
Столкнулся с проблемой. Мне нужно запилить в инсталятор с помощью InstallShield 12, такую фичу:
Есть SharePoint разных версий. В зависимости от версии он ставится по определенному пути. В общем сделал я у себя CustomAction, и наваял скрипт, который должен узнавать по какому пути расположен SharePoint, и записывать его местоположение в определенную проперти:
    function DetectSharePointDir(hMSI)  
        // To Do:  Declare local variables.
    begin            
        SetSharePointInfoToProperty(hMSI, "SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\12.0", "Version", "SHAREPOINT_VERSION");
        SetSharePointInfoToProperty(hMSI, "SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\12.0", "SharePoint", "SHAREPOINT_INSTALLED");
        SetSharePointInfoToProperty(hMSI, "SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\12.0", "Location", "SHAREPOINTDIR");
        
        SetSharePointInfoToProperty(hMSI, "SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\14.0", "Version", "SHAREPOINT_VERSION");
        SetSharePointInfoToProperty(hMSI, "SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\14.0", "SharePoint", "SHAREPOINT_INSTALLED");
        SetSharePointInfoToProperty(hMSI, "SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\14.0", "Location", "SHAREPOINTDIR");
     
        SetSharePointInfoToProperty(hMSI, "SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\15.0", "Version", "SHAREPOINT_VERSION");
        SetSharePointInfoToProperty(hMSI, "SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\15.0", "SharePoint", "SHAREPOINT_INSTALLED");
        SetSharePointInfoToProperty(hMSI, "SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\15.0", "Location", "SHAREPOINTDIR");
     
    end;
     
    function SetSharePointInfoToProperty(hMSI, szKey, szName, szProperty)
        NUMBER nvType, nvSize, nResult;
        STRING szSharePointProperty;    
    begin    
        RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
                                        
        nResult = RegDBGetKeyValueEx("SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\15.0", "Location", nvType, szSharePointProperty, nvSize ); //! Вот это просто для теста
        MessageBox(FormatMessage(nResult), SEVERE);
        
        if (RegDBKeyExist(szKey) == 1)  then
           if (RegDBGetKeyValueEx(szKey, szName, nvType, szSharePointProperty, nvSize) == 0)  then
              MsiSetProperty(hMSI, szProperty, szSharePointProperty);        
           endif;
        endif;
    end;

Так вот возникла проблема с функцией RegDBGetKeyValueEx - она мне возвращает ошибку аля "Файл не найден", т.е. как я понимаю она не может вычитать из реестра значение нужной мне опции в реестре. Хотя RegDBKeyExist - выполняется без проблем. Все эти значения в реестре существуют.
Что я делаю не так?

Спасибо.

Добавлено
Хотя вот сейчас попробовал из примера:
    nResult = RegDBGetKeyValueEx("Software\Microsoft\Windows NT\CurrentVersion","RegisteredOwner",nvType,svRegisteredOwner,nvSize);

Работает. Почему она тогда не хочет мое значение считывать? В чем косяк то? :huh:
В реестре реально по вышеозвученным путям все есть.]]> KILLER Инсталляторы