Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Список установленых программ   Найти похожие ветки 

← →
VaZa   (2003-10-24 23:24) [0]

Как можно получить список всех установленых программ на компе???

---

← →
Игорь Шевченко   (2003-10-24 23:49) [1]

Из реестра: HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall

---

← →
VaZa   (2003-10-25 10:03) [2]

А неподскажыте как можно просмотреть(найти) все сужествующие ключи в "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall"!

---

← →
mOOx_   (2003-10-25 11:48) [3]

Смотри в сторону TRegistry (кажется так :) ).

---

← →
VaZa   (2003-10-26 10:42) [4]

Ладно тогда где можно достать полное описание для Delphi работи с регистром?

---

← →
mitur   (2003-10-26 10:50) [5]

В справке!!! F1!

---

← →
pasha_golub   (2003-10-26 13:48) [6]

Вопрос следующий будет: "А где взять справку и ваще, что такое Делфя?" :-)

---

← →
VaZa   (2003-10-26 23:39) [7]

Не совсем! Бастрее так: "Где взять полную документацию по работе с регистрами???" или "Для получения списка всех клучей есть функция???"

---

← →
Игорь Шевченко   (2003-10-26 23:49) [8]

RegEnumKey, RegEnumValue :)

Еще русский выучить

---

← →
Злая девочка   (2003-10-27 07:12) [9]

Положите на форму ListBox
В разделе uses подключите модуль Registry
Далее в разделе Private вашей формы напишите

procedure GetInfoSoftware(SoftwareList: TStrings);


Далее напишите

procedure TForm1.GetInfoSoftware(SoftwareList: TStrings);
const
RK = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall";
RV = "DisplayName";
var
i: Integer;
SList: TStringList;
begin
try
SoftwareList.Clear;
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey(RK,False) then begin
SList:=TStringList.Create;
GetKeyNames(SList);
CloseKey;
for i:=0 to SList.Count-1 do
if OpenKey(RK + "\" + SList[i],False) then
begin
if ValueExists(RV) then
SoftwareList.Add(ReadString(RV));
CloseKey;
end;
SList.Free;
end;
finally
Free;
end;

except
on e:Exception do begin
MessageBoxErr("Возникло исключение " + e.message);
end;
end;
end;

Далее в FormCreate напишите

procedure TForm1.FormCreate(Sender: TObject);
begin
GetInfoSoftware(ListBox1.Items);
end;


Далее как посоветовал Игорь Шевченко УЧИТЕ РУССКИЙ ЯЗЫК, потом потихоньку переходите к английскому

C уважением alena.svt

---

← →
Злая девочка   (2003-10-27 07:37) [10]

Извиняюсь за MessageBoxErr (Это из моей библиотеки)
Напишите ShowMessage("Возникло исключение " + e.message);

---

← →
Song   (2003-10-27 08:40) [11]

Алёна, давно ли ты злой стала?

---

← →
VaZa   (2003-10-27 11:05) [12]

Большое спасибо!!! Я уже и сам нашел у меня просто небыло никакой документации, а просто несколько статей!

---

← →
Anatoly Podgoretsky   (2003-10-27 11:13) [13]

Злая девочка (27.10.03 07:37) [10]
Song © (27.10.03 08:40) [11]

Интереснее почему?

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.032 c