Delphi - Je program nainstalovan ???

Zoznam nainštalovaných programov, ako už bolo spomenuté vyššie zistíš z registrov.
Výpis napríklad do ListBoxu :

procedure TForm1.FormCreate(Sender: TObject);
var
  MyList: TStringList;
  MyRegistry: TRegistry;
  i: Integer;
  Str: string;
begin
  MyRegistry:=TRegistry.Create(KEY_READ);
  MyList:=TStringList.Create;
  with MyRegistry do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall',
      False)=True then GetKeyNames(MyList);
    CloseKey();

    for i:=0 to MyList.Count-1 do
    begin
       OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+
        MyList[i], False);
      Str:=ReadString('DisplayName');
      if Str <> '' then ListBox1.Items.Add(ReadString('DisplayName'));
      CloseKey();
    end;
    Free;
  end;
  MyList.Free;
end;