Список программ и процессов

RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style<<fsBold;;
RichEdit1->Lines->Add("Установленные программы");
RichEdit1->SelAttributes = RichEdit1->DefAttributes;
{
DWORD dwIndex = 0;
LONG ret;
DWORD cbName = 256;
TCHAR szSubKeyName[256];
char szDisplayName[256];
DWORD dwSize;
DWORD dwType;
// Открываем ветку реестра со списком установленных программ
HKEY hKey;
if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall", 0, KEY_READ, &hKey) != ERROR_SUCCESS)
return;
// Поочередно проходим по каждому вложенному разделу
while ((ret = RegEnumKeyEx(hKey, dwIndex, szSubKeyName, &cbName, NULL, NULL, NULL, NULL)) != ERROR_NO_MORE_ITEMS)
{
if (ret != ERROR_SUCCESS)
continue;
// открываем вложенный раздел и ищем в нем ключ DisplayName
HKEY hItem;
if (RegOpenKeyEx(hKey, szSubKeyName, 0, KEY_READ, &hItem) != ERROR_SUCCESS)
continue;
// отображаем на экране название установленной программы
dwSize = sizeof(szDisplayName);
if (RegQueryValueEx(hItem, "DisplayName", NULL, &dwType, (LPBYTE)&szDisplayName, &dwSize) == ERROR_SUCCESS)
ListBox1->Items->Add(String(szDisplayName) );
//ListBox1->Lines->Add(String(szDisplayName) );
RegCloseKey(hItem);
dwIndex++;
cbName = 256;
}
RegCloseKey(hKey);
}