Fórum Registro do Windows #221639

function GetSoftwareList:TStrings;
var Reg:TRegistry;
    L, Cab:TStringLIST;
    SoftName:String;
    n:byte;
begin
  Cab:=TStringLIST.Create;
  L:=TStringLIST.Create;
  Reg:=TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly(´\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall´) then
    begin
      Reg.GetKeyNames(Cab);
    end;
    for n:=0 to (Cab.Count-1) do
    begin
      if Reg.OpenKeyReadOnly(´\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\´+Cab[n]) then
      begin
        SoftName:=Reg.ReadString(´DisplayName´);
        if (Trim(SoftName)<>´´) then
        begin
          L.Add(SoftName);
        end;
      end;
    end;
    L.Sort;
  finally
    Reg.CloseKey;
    Reg.Free;
    Cab.Free;
  end;
  Result:=L;
end;