Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.034 c
3-40803
k_len
2003-10-22 09:49
2003.11.13
DBGrid


9-40764
scout
2003-04-17 20:33
2003.11.13
Стрельба в играх


9-40756
_0$a_
2003-05-06 22:51
2003.11.13
Народ помогите не кидайте в ИГНОР


1-41452
Dim!S
2003-10-29 11:29
2003.11.13
Цветной фон в TEdit


3-40786
pashaz
2003-10-22 20:52
2003.11.13
база MDB и DBGrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский