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

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

Назначение

Функция определяет мнемоническое имя текущего контура (например, К_OPER).

Описание

function GetCurrentContour : string;
Возвращаемое значение

Функция возвращает мнемоническое имя текущего контура.

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

extensionPoint epAfterEnterModule (aContour: string; aModule: string);

handler with replace mdl
  on extensionPoint epAfterEnterModule (aContour: string; aModule: string)
action
{
  modul:=aModule;
  result := true;
}

interface OC_ep
handleEvent
cmInit:
{
  message('f  '+modul);
}
end;

end.

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

var kontur, modul : string;
#make 'ListOSMetodMSFO.slk'
#make 'OC_ep.VIP'

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

RunInterface('OC_ep');
message(modul);