установленные программы

[KotUrgin]

Как получить список установленных программы (если возможно - браузеров), для выбора запускаемого из программы браузера.

[Kotofff]

Пример по устройствам :
http://www.delphisources.ru/pages/so...m-devices.html

По прогам смотри в реестре в ветке HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows\CurrentVersion\Uninstall

[anton14]

Сообщение от KotUrgin

Как получить список установленных программы (если возможно - браузеров), для выбора запускаемого из программы браузера.

В 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('Display Name'));
CloseKey;
end;
end;
end;

http://www.delphicode.ru/system/installed_programs.htm

[ProgMaster]

anton14
А реестр освободить в конце забыли?

MyRegistry.Free;

[GunSmoker]

А слона-то

для выбора запускаемого из программы браузера

никто и не заметил.

http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx (см. UseURL)
http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx