Запуск скриптов при старте и выходе из системы

[sim]

Есть задача запустить скрипт перед стартом клиента Галактики. Подсказывают, что для этого нужно использовать компилятор VIP и системную точку расширения epAppInit.
А нельзя ли поподробнее объяснить - как это сделать?
Может быть, есть какие-то другие способы запуска скрипта?

[Dmitry_Sol]

Как то так

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

#include "epSystem.vih"

objInterface objMyExtPoint;
  function SetGrDescr : boolean;
end;

vipInterface MyExtPoint implements objMyExtPoint;

interface MyExtPoint;

function SetGrDescr : boolean;
{
var ts: string;
var tc: comp;
  
  SetGrDescr := false;
  RunInterface('C_COMMON::GETGRDESCR', ts, true, false, tc);
  if (ts='') exit;
  
  sSetTune('USER.DESGR', ts);
  SetGrDescr := true;
}

end.

var GlobMyExtPoint: MyExtPoint new;

handler iMyExtPoint45 on ExtensionPoint epAppInit [99]
action
{
  result:=GlobMyExtPoint.SetGrDescr;  
}

rollback
{
}