Rejestracja własnego rozszerzenia

Przed użyciem tej funkcji do sekcji uses trzeba dopisać Registry

uses
  Registry;

procedure RegisterFileExtension(Ext, Name, ProgramName, Icon: string);
var
  Reg: TRegistry;
begin
  if Ext[1] <> '.' then
    Ext := '.' + Ext;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    Reg.OpenKey(Ext, True);
    Reg.WriteString('', Name);
    Reg.CloseKey;
    Reg.OpenKey(Name + '\shell\open\command', True);
    Reg.WriteString('', '"' + ProgramName + '" "%1"');
    Reg.CloseKey;
    Reg.OpenKey(Name + '\DefaultIcon', True);
    Reg.WriteString('', Icon);
    Reg.CloseKey;
  finally
    FreeAndNil(Reg);
  end;
end;

Przykład:

RegisterFileExtension('.my_ext', 'My_Extension_File', Application.ExeName, Application.ExeName + ',0')

procedure UnRegisterFileExtension(Ext: string);
var
  Reg: TRegistry;
  Name: string;
begin
  if Ext[1] <> '.' then
    Ext := '.' + Ext;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    if Reg.OpenKey(Ext, False) then
    begin
      Name := Reg.ReadString('');
      Reg.CloseKey;
      Reg.DeleteKey(Name);
    end;
    Reg.DeleteKey(Ext);
  finally
    FreeAndNil(Reg);
  end;
end;

Przykład:

UnRegisterFileExtension('.my_ext');

Uwagi: Funkcji nie sprawdzają, czy podano poprawne wartości parametrów. Wyjątkiem jest sprawdzanie, czy na początku rozszerzenia jest kropka.