[<<D>>]

Может поможет:

Код:

procedure RegisterFileType(ext: string; FileName: string);
var
  reg: TRegistry;
begin
  reg:=TRegistry.Create;
  with reg do
  begin
   RootKey:=HKEY_CLASSES_ROOT;
   OpenKey('.'+ext,True);
   WriteString('',ext+'file');
   CloseKey;
   CreateKey(ext+'file');
   OpenKey(ext+'file\DefaultIcon',True);
   WriteString('',extractfilepath(FileName)+'Files.ico');
   CloseKey;
   OpenKey(ext+'file\shell\open\command',True);
   WriteString('',FileName+' "%1"');
   CloseKey;
   Free;
  end;
end;

С помощью этой процедуры примени все типы файлов, относящихся к страницам, к своей программе, т.е. htm,html,php,xml и т.д.