جلب البرامج المثبتة

السلام عليكم

uses Registry; ... procedure TForm1.Button1Click(Sender: TObject); var   MyList: TStringList;   MyRegistry: TRegistry;   i: Integer;   Str: string; begin   MyRegistry:=TRegistry.Create;   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       RootKey:=HKEY_LOCAL_MACHINE;       OpenKey(         'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+         MyList,          False);       Str:=ReadString('DisplayName');       if Str<>'' then         Memo1.Lines.Add(ReadString('DisplayName'));       CloseKey;     end;   end;  end;

هذا هو المصدر

http://www.greatis.com/delphicb/tips/lib/system-installprog.html

بالتوفيق