Галактика в вопросах и ответах

Код: Выделить всё

extensionPoint epAppInit;
objInterface objMyExtPoint;
 function AutoProcessMsg: boolean;
end;
vipInterface MyExtPoint implements objMyExtPoint;
interface MyExtPoint;
function AutoProcessMsg: boolean;
{
      RunInterface('мой интерфейс');
      AutoProcessMsg := true;
}
end.
var  GlobMyExtPoint: MyExtPoint new;
handler iMyExt2992 on ExtensionPoint epAppInit [99]  //epAppInit - Это точка расширения срабатывающая при запуске системы
action {  result := GlobMyExtPoint.AutoProcessMsg;}
rollback  {  }