Страница 1 из 1
Запуск скриптов при старте и выходе из системы
Добавлено: 13 дек 2011, 15:53
sim
Есть задача запустить скрипт перед стартом клиента Галактики. Подсказывают, что для этого нужно использовать компилятор VIP и системную точку расширения epAppInit.
А нельзя ли поподробнее объяснить - как это сделать?
Может быть, есть какие-то другие способы запуска скрипта?
Re: Запуск скриптов при старте и выходе из системы
Добавлено: 13 дек 2011, 16:14
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
{
}