Add(InlineCode,9226855,364,168)
{
 WorkPoints=#11:RegAndParam|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    //:THI_Event;|0:|52:    procedure RegAndParam(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.RegAndParam;|13:var reg:HKey;|35:    genm,fl,ext,comment,ico:string;|5:begin|35:  ext := 'txt'; //нужное расширение|47:  comment := 'Текстовый файл'; //описание файла|45:  ico := 'Знакчок.ico'; //путь к иконке файла|0:|53:  reg:=RegKeyOpenCreate(HKEY_CLASSES_ROOT,'.' + ext);|37:  RegKeySetStr(reg,'', ext + 'file');|19:  RegKeyClose(reg);|0:|57:  reg:=RegKeyOpenCreate(HKEY_CLASSES_ROOT, ext + 'file');|31:  RegKeySetStr(reg,'',comment);|19:  RegKeyClose(reg);|0:|23:  SetLength(genm,1024);|68:  SetLength(genm,GetModuleFileName(HInstance,PChar(@genm[1]),1024));|69:  reg:=RegKeyOpenCreate(HKEY_CLASSES_ROOT, ext + 'file\DefaultIcon');|28:  RegKeySetStr(reg,'', ico);|19:  RegKeyClose(reg);|0:|23:  SetLength(genm,1024);|68:  SetLength(genm,GetModuleFileName(HInstance,PChar(@genm[1]),1024));|75:  reg:=RegKeyOpenCreate(HKEY_CLASSES_ROOT,ext + 'file\shell\open\command');|50:  RegKeySetStr(reg,'','"' + genm + '"' + ' "%1"');|19:  RegKeyClose(reg);|0:|52:  //Ниже код, ели нужно добавить файл в меню Создать|44:  fl := 'Текстовый файл.txt'; //Путь к файлу|76:  CopyFile(PChar(fl),PChar('C:\WINDOWS\SHELLNEW\Текстовый файл.txt'),false);|67:  reg:=RegKeyOpenCreate(HKEY_CLASSES_ROOT,'.' + ext + '\ShellNew');|52:  RegKeySetStr(reg,'FileName','Текстовый файл.txt');|19:  RegKeyClose(reg);|4:end;|0:|4:end.|
}
Add(Button,12329976,294,168)
{
 Left=20
 Top=15
 Width=130
 Caption="Зарегистрировать"
 link(onClick,9226855:RegAndParam,[])
}