Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 3
Всего онлайн: 3
Зарегистрировано юзеров: 6362
Комментариев на сайте: 645
Новый юзер: Pseulairrerve



Последние комментарии
c
Aqel прокомментировал "Урок 71 - Работа с сжатыми файлами":
GZip псевдоархив, на мой вопрос тоже не отвечают, как распаковать отдельные файлы/папки...
Pingitrus прокомментировал "Урок 71 - Работа с сжатыми файлами":
Есть еще кто нибудь живой на этом сайте, кто сможет помочь? Так то все работает, zip и rar распаковывает, но у меня есть файл dat который сжат GZip, почему то его не удается распаковать или так не получится так как этот файл не является архивом или является?)) пишет ошибку что неверная функция



Мы в соцсетях
c
Delphi
Как получить список инсталлированных программ

Приведу пример программы.

uses 
Registry; 

procedure TForm1.Button1Click(Sender: TObject); 
const 
UNINST_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'; 
var 
Reg: TRegistry; 
SubKeys: TStringList; 
ListItem: TlistItem; 
i: integer; 
sDisplayName, sUninstallString: string; 
begin 
{ 
ListView1.ViewStyle := vsReport; 
ListView1.Columns.add; 
ListView1.Columns.add; 
ListView1.Columns[0].caption := 'DisplayName'; 
ListView1.Columns[1].caption := 'UninstallString'; 
ListView1.Columns[0].Width := 300; 
ListView1.Columns[1].Width := 300; 
} 
Reg := TRegistry.Create; 
with Reg do 
try 
with ListView1.Items do 
try 
BeginUpdate; 
Clear; 
RootKey := HKEY_LOCAL_MACHINE; 
if OpenKeyReadOnly(UNINST_PATH) then 
begin 
SubKeys := TStringList.Create; 
try 
GetKeyNames(SubKeys); 
CloseKey; 
for i := 0 to subKeys.Count - 1 do 
if OpenKeyReadOnly(Format('%s\%s', [UNINST_PATH, SubKeys[i]])) then 
try 
sDisplayName := ReadString('DisplayName'); 
sUninstallString := ReadString('UninstallString'); 
if sDisplayName <> '' then 
begin 
ListItem := Add; 
ListItem.Caption := sDisplayName; 
ListItem.subitems.Add(sUninstallString); 
end; 
finally 
CloseKey; 
end; 
finally 
SubKeys.Free; 
end; 
end; 
finally 
ListView1.AlphaSort; 
EndUpdate; 
end; 
finally 
CloseKey; 
Free; 
end; 
end;

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 18 Января 2014
Просмотров:


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.