запуск программ

[admin-one]

Здравствуйте , возникла такая проблемка ,нужно вывести в поле listbox названия всех установленных программ , а так же путь как их запускать . Не важно будь то полный путь к exe или просто ярлык . Главное чтоб запускалось !

Насчет получение названий программ можно и через реестр , но вот как найти путь как их запускать ? вот тут например хранятся ярлыки программ C:\Documents and Settings\All Users\Главное меню\Программы но как вывести путь для запуска отдельной программы в программу ? может кто то сталкивался и знает ? заранее спасибо

[Кольша]

Ваши наработки?
Нет?
Google
Или фриланс.

[admin-one]

наверно ты плохо прочитал ? гугл дает ответ только на реестр , а там нельзя получить путь к запуску программы

[Кольша]

Первый ответ гугла:
В 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;

[Человек_Борща]

гугл дает ответ только на реестр , а там нельзя получить путь к запуску программы

Правильно дает ответ. Открываете реестр, получаете список установленного софта.
Чтобы распознавать, куда установлено ПО и что читать, изучаете ручками системы создания инсталяционных пакетов. И потихоньку собираете базу. Далее пишете гибкий алгоритм быстрого сканирования реестра на наличие известного БД софта.

Ед. проблемой будут самопальные установщики.

Ну и дополнение уже написал Кольша. Однако не все ПО прописывается именно туда.

[admin-one]

Кольша , не то ! так получают только название программы

Человек_Борща , в реестре можно найти куда установлен софт (в какую папку ) но а сам exe не найти ...руками тоже .... так как хер знает как она может быть названа

[admin-one]

может приведете пример с кодом ?

[Человек_Борща]

но а сам exe не найти ...руками тоже .... так как хер знает как она может быть названа

Находите первый попавшийся EXE который лежит в корневой папке и не явл. деинсталятором(топо по имени сравнение), или же ищите папку Bin.

может приведете пример с кодом ?

Уже приводили.