Delphi - Je program nainstalovan ???

V registrech, kazdy z techto programu bude a má svuj vlastni klič a záznam v registrech, díval bych se tam:
http://tomashula.cz/index.php?tid=delphi-prace-s-r egistrem
a tohle? http://www.itsecdb.com/oval/definition/oval/org.mi tre.oval/def/12305/ICQ-is-installed.html

nainstalované mohou být v registrech pod různými větvemi, ale odinstalátor by měl být na jednom místě v:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\sw

jen zkopírované aplikace to neukáže.

Hm.Toby šlo.
Jak zapisovat a čist s registru vím.
Jak však vypsat všechny kliče s toho Uninstall třeba do TStringListu

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;