Doch nicht das.
Da gibt es
Delphi-Quellcode:
function InstallExt(Extension, ExtDescription, FileDescription,
OpenWith, ParamString: string; IconIndex: Integer = 0): Boolean;
und
function UnInstallExt(Extension: String): Boolean;
Außerdem findest du das auch in der Code-Library.