VPF::регистрация браузера по умолчанию

s2004

Дата 15.12.2006, 06:36 (ссылка)

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

Загрузка ...

Бывалый

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

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

Вот пробовал использовать такую процедуру регистрации браузера для открытия htm файлов

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  Ini:TIniFile;
  SFolder: pItemIDList;
  SpecialPath: array[0..MAX_PATH] of Char;
  Reg: TRegistry;
//  RegIniFile:TRegIniFile;
begin
HintWindowClass := THintwindow;      // Устанавливаем глобальную пеpеменную
    Application.ShowHint := false;   // Application.FHintWindow.Free
    Application.ShowHint := true;    // Application.FHintWindow.Create

  if MessageDlg('Always use this application to open htm documents?',
  mtConfirmation, mbYesNo, 0) = mrYes then
  begin
    Reg :=Tregistry.Create;
    try
    Reg.OpenKey('Software\Classes\Applications\net.exe' +
    '\shell\open\command', True);
    if RegIniFile.ValueExists('Software\Classes\Applications\net.exe') then
     DateTimePicker1.Date:=RegIniFile.ReadDate('MyDate');

    Reg.WriteString('','"' + Application.ExeName + '" "%1"');
    Reg.CloseKey;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\' +
    'Explorer\FileExts\.htm', True);
    Reg.WriteString('Application','net.exe');
    Reg.CloseKey;
    finally
    Reg.Free;
    end;  // try (Reg)
  end;   //  if

вроде всё хорошо прога зарегистрирована за расширением htm, но вот неудобно каждый раз при её запуске она спаршивает надо ли её снова регистрировать по умолчанию? Как поправить это можно? Далее браузер при использование его в проводника при двойном клике на htm файл честно пытается его открыть тоесть браузер запускается но файл незагружает при выборе htmфайла через меню open всё нормально при открытии файлов в интеренете тоже а вот с диска при щелчке мышью в никакую. Какой код вписать для мыши?

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