SetLength(genm,1024);
  SetLength(genm,GetModuleFileName(HInstance,PChar(@genm[1]),1024));
  reg:=RegKeyOpenCreate(HKEY_CLASSES_ROOT, ext + 'file\DefaultIcon');|
  RegKey


  SetLength(genm,1024);
  SetLength(genm,GetModuleFileName(HInstance,PChar(@genm[1]),1024));
  reg:=RegKeyOpenCreate(HKEY_CLASSES_ROOT,ext + 'files\hell\open\command');

  //Ниже код, ели нужно добавить файл в меню Создать
  fl := 'Текстовый файл.txt'; //Путь к файлу
  CopyFile(PChar(fl),PChar('C:\WINDOWS\SHELL\NEW\Текстовый файл.txt'),false);