Может поможет:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 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 и т.д.