Delphi

[Himikat]

Здравствуйте, нужна помошь
необходимо вывести список установленных программ, по аналогии "установка и удаление программ" (в windows)
реально ли это сделать, если да, то хотя бы направьте как..

[Mad_Cat]

ПОЛУЧИТЬ СПИСОК УСТАНОВЛЕННЫХ ПРОГРАММ

ПОЛУЧИТЬ СПИСОК УСТАНОВЛЕННЫХ ПРОГРАММ
 	 
 	
{В Uses записываем модуль Registry, на форму помещаем TMemo и TButton. В обработчике OnClick запишем следующий код:}
 	 
 	
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[i], False);
               Str:=ReadString('DisplayName');
               if Str<>'' then
               Memo1.Lines.Add(ReadString('DisplayName'));
               CloseKey;
               end;
              end; 
 end;

[Himikat]

спасибо большое!!