此博客介绍一段Delphi代码，利用一个ListBox和按钮，当用户点击“Get App List”按钮时，程序从注册表提取Windows系统中所有已安装应用列表，仅将有效应用添加到ListBox中，还给出了代码示例及原文链接。
{
Author: Cosmin Pîrlitu
E-mail: cosmin.pirlitu@lush.ro
The following code uses one ListBox (lbApps) and one button (btnGetApps) placed on the form (frmMain).
When the user clicks on the "Get App List" button the program extracts the list of all the installed apps from the Registry and adds *only* the valid ones to the ListBox.
I appologise for eventual spelling errors...
}
uses Registry;
{...code...}
const BaseKey = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
{...code...}
procedure TfrmMain.btnGetAppsClick(Sender: TObject);
var Reg: TRegistry;
Entries, i: integer;
vList: TStringList;
begin
lbApps.Clear;
Reg:=TRegistry.Create;
vList:=TStringList.Create;
with Reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey(BaseKey, False);
GetKeyNames(vList);
Entries:=vList.Count;
for i:=0 to Entries-1 do
begin
CloseKey;
OpenKey(BaseKey+'\'+vList.Strings[i],false);
if ValueExists('DisplayName') then
lbApps.Items.Add(ReadString('DisplayName'))
end;
end;
{ cleanup after job is done }
Reg.Free;
vList.Free;
end;
Author: Cosmin Pîrlitu
E-mail: cosmin.pirlitu@lush.ro
The following code uses one ListBox (lbApps) and one button (btnGetApps) placed on the form (frmMain).
When the user clicks on the "Get App List" button the program extracts the list of all the installed apps from the Registry and adds *only* the valid ones to the ListBox.
I appologise for eventual spelling errors...
}
uses Registry;
{...code...}
const BaseKey = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
{...code...}
procedure TfrmMain.btnGetAppsClick(Sender: TObject);
var Reg: TRegistry;
Entries, i: integer;
vList: TStringList;
begin
lbApps.Clear;
Reg:=TRegistry.Create;
vList:=TStringList.Create;
with Reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey(BaseKey, False);
GetKeyNames(vList);
Entries:=vList.Count;
for i:=0 to Entries-1 do
begin
CloseKey;
OpenKey(BaseKey+'\'+vList.Strings[i],false);
if ValueExists('DisplayName') then
lbApps.Items.Add(ReadString('DisplayName'))
end;
end;
{ cleanup after job is done }
Reg.Free;
vList.Free;
end;
原文连接
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
