Ошибка при использовании MsiEnumProducts

@Dr.Xank · Регистрация: 18.07.2010

Студворк — интернет-сервис помощи студентам

Всем Добрый вечер.

Ребята проблема такая, написал код, но при компиляции выдает ошибки

Code
1
2
3
4
5
6
7
8
[bcc32 Error] msi.h(776): E2015 Ambiguity between 'PHKEY' and 'Winapi::Windows::PHKEY'
  Full parser context
    Unit1.cpp(4): #include c:\program files (x86)\embarcadero\rad studio\11.0\include\windows\sdk\msiquery.h
    msiquery.h(23): #include c:\program files (x86)\embarcadero\rad studio\11.0\include\windows\sdk\msi.h
[bcc32 Error] msi.h(781): E2015 Ambiguity between 'PHKEY' and 'Winapi::Windows::PHKEY'
  Full parser context
    Unit1.cpp(4): #include c:\program files (x86)\embarcadero\rad studio\11.0\include\windows\sdk\msiquery.h
    msiquery.h(23): #include c:\program files (x86)\embarcadero\rad studio\11.0\include\windows\sdk\msi.h

Сам код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <msiquery.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
typedef UINT (WINAPI *MyMsiEnumProducts)(DWORD iProductIndex, LPTSTR lpProductBuf);
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HINSTANCE hUser = NULL;
    hUser =  LoadLibraryA("Msi.dll");
    if (hUser != NULL)
    {
       MyMsiEnumProducts filter = (MyMsiEnumProducts)GetProcAddress(hUser, "MsiEnumProducts");
       
       if (filter != NULL)
       {
          CHAR ProductCode[40];
          UINT nResult;
          AnsiString errResult;
               
          for (int nIndex = 0;;nIndex++)
          {
             nResult = MsiEnumProducts(nIndex,ProductCode);
             
             if (nResult != ERROR_SUCCESS)
             {
                if (nResult == 1610)
                   errResult = "ERROR_BAD_CONFIGURATION";
                if (nResult == 87)
                   errResult = "ERROR_INVALID_PARAMETER";
                if (nResult == 259)
                   errResult = "ERROR_NO_MORE_ITEMS";
                if (nResult == 8)
                   errResult ="ERROR_NOT_ENOUGH_MEMORY";
              
                break;
             }
             Memo1->Lines->Add(AnsiString(nIndex) + " " +AnsiString(ProductCode) );
          }
        }
       FreeLibrary(hUser);
    }
 
 
}
//---------------------------------------------------------------------------

Radstudio XE4

Добавлено через 2 часа 24 минуты
Это ошибка возникает когда даже просто подключаю

C++
1
#include <msiquery.h>

@volvo · 28.08.2014, 19:21

Поменяй инклуды местами:

C++
1
2
3
4
#include <windows.h>
#include <msiquery.h>
 
#include <vcl.h>

, и еще, чтобы код продолжил компилироваться, замени в 31-ой строке CHAR на TCHAR, иначе будет зависимость от настроек компилятора...

А в 37-ой строке вместо MsiEnumProducts должен быть filter, тебе не кажется?

@Dr.Xank · 28.08.2014, 22:17 **[ТС]**

Спасибо работает.
Но возникла другая проблема. У меня установлено около 60 программ, но код выдал всего 53.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
     UINT nResult;
     DWORD max = 255;
     TCHAR buffer[255];
     AnsiString errResult;
     for (int nIndex = 0;;nIndex++)
     {
          TCHAR ProductCode[40];
          nResult = MsiEnumProducts(nIndex,ProductCode);
          if (nResult != ERROR_SUCCESS)
          {
               if (nResult == 1610)
                    errResult = "ERROR_BAD_CONFIGURATION";
               if (nResult == 87)
                    errResult = "ERROR_INVALID_PARAMETER";
               if (nResult == 259)
                    errResult = "ERROR_NO_MORE_ITEMS";
               if (nResult == 8)
                    errResult ="ERROR_NOT_ENOUGH_MEMORY";
               Memo1->Lines->Add(AnsiString(errResult) );
               break;
         }
                 // при вставки INSTALLPROPERTY_INSTALLLOCATION не у всех выводило место локализации.
         MsiGetProductInfoA(ProductCode,INSTALLPROPERTY_INSTALLEDPRODUCTNAME,buffer,&max);
         Memo1->Lines->Add(AnsiString(nIndex) +"  " +AnsiString(ProductCode) + " " +AnsiString(buffer) );
    }
}

Запускал от имени администратора.

В чем может быть причина?

@volvo · 29.08.2014, 00:52

Сообщение от Dr.Xank

У меня установлено около 60 программ, но код выдал всего 53

Вот именно поэтому все и используют чтение ветки реестра. Ни один из столь широко разрекламированных в интернете кодов (включая и код с MSDN Blogs) не дает полного списка установленных программ. А чтение реестра - дает...

Убежденный · 29.08.2014, 09:50

Сообщение от Dr.Xank

У меня установлено около 60 программ, но код выдал всего 53.

У меня аналогичный код на Visual C++ всегда выдает полный список.
Правда, я использую unicode-версии функций - MsiEnumProductsW и MsiGetProductInfoW.

@Dr.Xank · 29.08.2014, 19:15 **[ТС]**

Сообщение от Убежденный

У меня аналогичный код на Visual C++ всегда выдает полный список.
Правда, я использую unicode-версии функций - MsiEnumProductsW и MsiGetProductInfoW.

А вы не могли бы выложить пробный-проект? Если можно объясните как подключать какие либо длл или либы.
Хочу проверить на своей системы.

@Avazart · 29.08.2014, 20:20

Сообщение от Dr.Xank

Но возникла другая проблема. У меня установлено около 60 программ, но код выдал всего 53.

А в панели управления видны все 60 ?

Ddv122 · 29.08.2014, 20:36

Avazart,
на windows 8.1 x64 + BCB6 - видны тоже не все (далеко не все(30 с копиями из 69))

@Dr.Xank · 29.08.2014, 20:41 **[ТС]**

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

А в панели управления видны все 60 ?

Я от туда и считал. То есть Удалить или изменить программу, там 60.

Убежденный,
Я вас прошу, не могли бы вы выложить проект на VSc++

Убежденный · 29.08.2014, 21:43

Типа такого:

C++
1
2
3
4
5
6
7
8
9
10
size_t const StrGuidBuffSize = 39;
wchar_t Buffer[StrGuidBuffSize];
UINT Index = 0;
 
while (0 == MsiEnumProductsW(Index, &Buffer[0]))
{
    ++Index;
}
 
printf("Installed programs = %lu.\r\n", Index);

У меня в "Program and Components" (Win7 x64) примерно 70 пунктов.
С помощью MsiEnumProducts находится около 130 (включая скрытые).

@Dr.Xank · 30.08.2014, 07:25 **[ТС]**

Сообщение от Убежденный

У меня в "Program and Components" (Win7 x64) примерно 70 пунктов.
С помощью MsiEnumProducts находится около 130 (включая скрытые).

Подтверждаю, у меня 64 нашла. А по чему в Embarcadero не все находит?

Убежденный · 30.08.2014, 09:19

Возможно, причина в этих строчках:

C++
1
2
MsiGetProductInfoA(ProductCode,INSTALLPROPERTY_INSTALLEDPRODUCTNAME,buffer,&max);
Memo1->Lines->Add(AnsiString(nIndex) +"  " +AnsiString(ProductCode) + " " +AnsiString(buffer) );

Например, потому что max не обновляется (а это in/out-параметр, см. доки на функцию).

@volvo · 30.08.2014, 13:47

Сообщение от Убежденный

Например, потому что max не обновляется

При чем тут max, если приведенный в предыдущем посте код при 93-х установленных программах выдает Installed programs = 53.?

@Avazart · 30.08.2014, 14:36

К тому что проверять надо коды возврата функций, может буфера мало под размер строки:

ERROR_MORE_DATA A buffer is too small to hold the requested data.

http://msdn.microsoft.com/en-u... 85%29.aspx

Поэтому:

C++
1
 // при вставки INSTALLPROPERTY_INSTALLLOCATION не у всех выводило место локализации.

Кроме того стоило бы буферы инициализировать нулями, ну или читать именно max - символов (его кстати вероятно тоже нужно инициализировать на каждой итерации)

Добавлено через 27 минут
P.S: У меня в "Программы и управления" 135, прога возвращает 176

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
//---------------------------------------------------------------------------
#include <windows.h>
#include <Msi.h>
 
#include <vcl.h>
#pragma hdrstop
 
#pragma comment (lib,"Msi.lib")
 
#include "Unit1.h"
// ---------------------------------------------------------------------------
//  ....
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject* Sender)
{
    Memo1->Clear();
 
    for (int i=0; ;++i)
    {
        TCHAR ProductCode[40]={0};
        unsigned rc= MsiEnumProducts(i,ProductCode);
        switch(rc)
        {
            case ERROR_SUCCESS:
                     break;
            case ERROR_NO_MORE_ITEMS:
                     return;
            case ERROR_BAD_CONFIGURATION:
                     Memo1->Lines->Add("ERROR_BAD_CONFIGURATION");
                     return;
            case ERROR_INVALID_PARAMETER:
                     Memo1->Lines->Add("ERROR_INVALID_PARAMETER");
                     return;
            case ERROR_NOT_ENOUGH_MEMORY:
                     Memo1->Lines->Add("ERROR_NOT_ENOUGH_MEMORY");
                     return;
            default:
                     return;
        }
 
        const unsigned long buf_size= 255;
        TCHAR buffer[buf_size]={0};
        unsigned long size= buf_size;
 
        rc= MsiGetProductInfo(ProductCode,
                                                    INSTALLPROPERTY_INSTALLEDPRODUCTNAME,
                                                    buffer,
                                                    &size);
        switch(rc)
        {
            case ERROR_SUCCESS:
                     break;
            case ERROR_BAD_CONFIGURATION:
                     Memo1->Lines->Add("ERROR_BAD_CONFIGURATION");
                     return;
            case ERROR_INVALID_PARAMETER:
                     Memo1->Lines->Add("ERROR_INVALID_PARAMETER");
                     return;
            case ERROR_MORE_DATA:
                     Memo1->Lines->Add("ERROR_MORE_DATA");
                     return;
            case ERROR_UNKNOWN_PRODUCT:
                     Memo1->Lines->Add("ERROR_UNKNOWN_PRODUCT");
                     return;
            case ERROR_UNKNOWN_PROPERTY:
                     Memo1->Lines->Add("ERROR_UNKNOWN_PROPERTY");
                     return;
            default:
                     return;
        }
 
        Memo1->Lines->Add(String(i)+ "  "+
                                            String(ProductCode)+ " "+
                                            String(buffer)+ " size:"+
                                            String(size));
    }
}
// ---------------------------------------------------------------------------

Убежденный · 30.08.2014, 15:58

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

При чем тут max, если приведенный в предыдущем посте код при 93-х установленных программах выдает Installed programs = 53.?

В 99% случаев причина таких ошибок, которые мы здесь обсуждаем -
кривые руки или невнимательное следование документации. И только 1% -
так всеми любимые "глюки" системы и/или компилятора.

@Dr.Xank · 30.08.2014, 19:56 **[ТС]**

Сообщение от Убежденный

В 99% случаев причина таких ошибок, которые мы здесь обсуждаем -
кривые руки или невнимательное следование документации. И только 1% -
так всеми любимые "глюки" системы и/или компилятора.

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

Кроме того стоило бы буферы инициализировать нулями, ну или читать именно max - символов (его кстати вероятно тоже нужно инициализировать на каждой итерации)

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

При чем тут max, если приведенный в предыдущем посте код при 93-х установленных программах выдает Installed programs = 53.?

Оказалось всё очень просто, надо было либу добавлять не через Проект-Адд, а кодом)))

C++
1
 #pragma comment (lib,"Msi.lib")

@volvo · 30.08.2014, 20:04

А я либу вообще не добавлял, использовал DLL... Инициализация нулями присутствует, ни фига не помогает, как было 53, так и стоит на 53-х. Что еще не так? Плевать уже на MsiGetProductInfo, мне бы этот код хотя бы количество программ посчитал, куда уж нам до названий... Пряморукие, жду ответа... А то балаболить все умеют, я смотрю. Начиная с MS (нельзя было привести пример использования? На ShowWindow, значит, пример нужен, а на MsiEnumProducts - нет?)

@Avazart · 30.08.2014, 21:00

Я тестировал только под x32

Сообщение от Убежденный

У меня в "Program and Components" (Win7 x64) примерно 70 пунктов.
С помощью MsiEnumProducts находится около 130 (включая скрытые).

Убежденный, Как понимаю тестил под x64 при чем вероятно в сборке x64 под VC++, так что могу лишь предположить что недочет возникает в сборке x32 под x64.

Добавлено через 1 минуту

Сообщение от Dr.Xank

Оказалось всё очень просто, надо было либу добавлять не через Проект-Адд, а кодом)))

По идее не должно играть роли, разве что ты выбрал не тот lib файл.

@Dr.Xank · 30.08.2014, 22:07 **[ТС]**

Похоже вчера плохо считал, оказывается у меня 69 программ, а выводит 64. Нет яндекса(браузер), танчиков и где идет кириллица(((

@Avazart · 30.08.2014, 22:34

Версия функции? Юникодную вызываешь?

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	29.08.2014, 20:36
	Avazart, на windows 8.1 x64 + BCB6 - видны тоже не все (далеко не все(30 с копиями из 69)) 0

@volvo Супер-модератор 33402 / 21512 / 8236 Регистрация: 22.10.2011 Сообщений: 36,912 Записей в блоге: 12
	30.08.2014, 20:04
	А я либу вообще не добавлял, использовал DLL... Инициализация нулями присутствует, ни фига не помогает, как было 53, так и стоит на 53-х. Что еще не так? Плевать уже на MsiGetProductInfo, мне бы этот код хотя бы количество программ посчитал, куда уж нам до названий... Пряморукие, жду ответа... А то балаболить все умеют, я смотрю. Начиная с MS (нельзя было привести пример использования? На ShowWindow, значит, пример нужен, а на MsiEnumProducts - нет?) 1

@Dr.Xank Марсианин))) 713 / 46 / 15 Регистрация: 18.07.2010 Сообщений: 637
	30.08.2014, 22:07 [ТС]
	Похоже вчера плохо считал, оказывается у меня 69 программ, а выводит 64. Нет яндекса(браузер), танчиков и где идет кириллица((( 1

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	30.08.2014, 22:34
	Версия функции? Юникодную вызываешь? 0

Ошибка при использовании MsiEnumProducts

Решение