在“业务模型\系统空间\系统运行库\配置库”
static function TSystemConsts.ShortcutFuncs: TStringArray;
begin //去掉默认快捷按钮,添加计划中心为快捷按钮
Result := [//'Biz:\COLLABORATION\TaskCenterFunc.Func',
//'Biz:\COLLABORATION\PlanCenterFunc.Func',
//'Biz:\COLLABORATION\JustepMail.Func'
'Biz:\COLLABORATION\PlanCenterFunc.Func'
];
end;
static function TSystemConsts.RunFuncs: TStringArray;
begin
Result := [CustomDesktopFunc
//, 'Biz:\COLLABORATION\SchedulerFunc.Func' ///去掉日程
];
end;