[NumLock]

для расширения "ppc" код действует, ассоциации заносятся в реестр и работают:

Код:

uses
  ShlObj, Registry,

var
  reg: TRegistry;
begin
  try
    reg:=TRegistry.Create;
    try
      reg.RootKey:=HKEY_CLASSES_ROOT;
      reg.OpenKey('.ppc', True);
      reg.WriteString('', 'ppc file');
      reg.CloseKey;
      reg.OpenKey('.ppc\shell\open\command', True);
      reg.WriteString('', Application.ExeName);
      reg.CloseKey;
      reg.OpenKey('.ppc\defaulticon', True);
      reg.WriteString('', Application.ExeName);
      SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
    finally
      reg.Free;
    end;
  except
  end;
end;