Вот пробовал использовать такую процедуру регистрации браузера для открытия 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 всё нормально при открытии файлов в интеренете тоже а вот с диска при щелчке мышью в никакую. Какой код вписать для мыши?
|