VPF::Автоопределение местонахождения браузера

winsoft

Дата 10.8.2006, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Президент WINsoft

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 14.11.2005

Репутация: нет
Всего: нет

Добрый день! Скажите, пожалуйста, как можно автоматически определить пути к таким браузерам, как Internet Explorer, Opera, Mozilla Firefox и Netscape?
Слышал, вроде можно через реестр, но не смог найти ключи smile

Snowy

Дата 10.8.2006, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Здесь все установленные программы: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
Ищи нужные, путь у каждой в ключе InstallLocation

winsoft

Дата 10.8.2006, 19:33 (ссылка)

(нет голосов)

Загрузка ...

Президент WINsoft

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 14.11.2005

Репутация: нет
Всего: нет

А более точные ключи существуют? smile

Snowy

Дата 10.8.2006, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Не у всех.
Сейчас идёт переориентация на AppData, а не реестр.
Опера хранит свои данные там. Но может и в Program Files - в зависимости от настроек.
Если затачиваться под конкретный браузер, то можно.
Но путь через эту ветку более надёжен и универсален.

winsoft

Дата 10.8.2006, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Президент WINsoft

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 14.11.2005

Репутация: нет
Всего: нет

А можно посмотреть код вытягивания этих самый путей к браузерам из этой ветке реестра?

smile

Snowy

Дата 10.8.2006, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


function GetBrowserPath(BName: string = ''): string;
const
  key = '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
  ie = '\SOFTWARE\Microsoft\IE Setup\Setup';
var
  r:  TRegistry;
  sl: TStringList;
  s:  string;
  i:  integer;
begin
  result := '';
  try
    r := TRegistry.Create(KEY_READ);
    r.RootKey := HKEY_LOCAL_MACHINE;
    if BName = '' then begin
      r.OpenKeyReadOnly(ie);
      result := r.ReadString('Path');
    end else begin
      r.OpenKeyReadOnly(key);
      sl := TStringList.Create;
      r.GetKeyNames(sl);
      for i := 0 to sl.Count - 1 do begin
        r.OpenKeyReadOnly(key + '\' + sl[i]);
        s := r.ReadString('DisplayName');
        if pos(BName, s) > 0 then result := r.ReadString('InstallLocation');
      end;
    end;
  except end;
end;

// Пример использования
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('IE - ' + GetBrowserPath);
  Memo1.Lines.Add('Opera - ' + GetBrowserPath('Opera'));
  Memo1.Lines.Add('FireFox - ' + GetBrowserPath('FireFox'));
  Memo1.Lines.Add('Maxton - ' + GetBrowserPath('Maxton'));
  Memo1.Lines.Add('Netscape - ' + GetBrowserPath('Netscape'));
  Memo1.Lines.Add('Photoshop - ' + GetBrowserPath('Photoshop'));
end;

winsoft

Дата 10.8.2006, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Президент WINsoft

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 14.11.2005

Репутация: нет
Всего: нет

Все, заработало. Извините за флуд. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »