Открыть по умолчанию

[beemoto]

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

Насколько я знаю это надо задавать как-то через реестр...

[uberchel]

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

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

Насколько я знаю это надо задавать как-то через реестр...

Называется: ассоциация файлов с приложением, пользуйтесь поиском по форуму, так как обсуждалось не раз!

http://www.programmersforum.ru/showt...E0%E9%EB%EE%E2

Ну и в приложении, работайте через paramstr();

[beemoto]

Код не работает <_<
Windows 7, Delphi 2010.

первая строка
writestring(FileType,'',FileTypeNam e);
пашет, а друкгие нет. =(

[Rionty]

Скидываю тебе свой рабочий вариант...он и иконку добавляет и ассоциирует..

uses Registry;
....
procedure TForm1.FormCreate(Sender: TObject);
var Reg: TRegistry;
    FileExt:string;
begin
  adresProgi:=ExtractFilePath(Application.ExeName)+'OptiumPrude.exe';
  FileExt:='.opp';
                   // Добавляем пункт в меню и регим тип
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  Reg.LazyWrite:=false;
  Reg.OpenKey(FileExt,true);
  Reg.WriteString('','OptiumPrudeProject'); //ссылаемся сюда
  Reg.CloseKey;

  Reg.OpenKey('OptiumPrudeProject', True);  //сама ссылка
  Reg.WriteString('','Optium Prude Project'); // название типа(так будет называть система файлы)
  Reg.CloseKey;
  Reg.OpenKey('OptiumPrudeProject\shell',true);
  Reg.WriteString('','Open');
  Reg.CloseKey;
  Reg.OpenKey('OptiumPrudeProject\shell\open', True);
  Reg.WriteString('','Открыть');
  Reg.CloseKey;
  Reg.OpenKey('OptiumPrudeProject\shell\open\command', True);
  Reg.WriteString('',adresProgi+ ' "%1"');
  Reg.CloseKey;
  Reg.OpenKey('OptiumPrudeProject\DefaultIcon', True);
  Reg.WriteString('', adresProgi + ',0');
  Reg.CloseKey;               

  Reg.OpenKey('Applications',false);
  Reg.OpenKey('OptiumPrude.exe\shell\open\command',true);
  Reg.WriteString('',adresProgi+ ' "%1"');
  Reg.CloseKey;

  Reg.Free;
end;

думаю всё понятно разберёшься..