#sha
Add(InlineCode,14601626,91,105)
{
 WorkPoints=#3:AAA|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|38:    procedure AAA(var D:TData;i:word);|5: end;|0:|14:implementation|0:|63:var P:function(dwProcessID, dwType: Integer): Integer; stdcall;|0:|46:procedure THiAsmClass.AAA(var D:TData;i:word);|5:begin|82:  @P := GetProcAddress(GetModuleHandle('KERNEL32.DLL'), 'RegisterServiceProcess');|43:  if @P<>nil then P(GetCurrentProcessID, 1)|14:  else _debug;|4:end;|0:|0:|4:end.|
}