我3088版本中做的测试代码
procedure TMainForm.Button1Click(Sender: TObject);
var
lFunc: TFunc;
tmpUniqueId:string;
begin
tmpUniqueId:= SYSTEMCORE.TFuncManager.GetFuncUniqueID(context.parent,'功能url','');
lFunc:= SYSTEMCORE.TSYSTEMCORE.FuncManager.FindRunning(tmpUniqueId);
if lFunc <> nil then
Dialogs.showmessage('have run')
else
Dialogs.showmessage('have not run');
end;