如何已知业务对象的Url获取其显示名称

aDragon

var
  lBizObject : TBizObject;
  lUrl : string;
  lBizUrl : TBizUrl;
  lFileName : string;
  lDisplayname : string;
begin
  lBizUrl := TBizUrl.Create;
  try
    lBizUrl.URL :=  'Biz:\OPERATION\RESOURCEBACK\CSYWDX.Func';
    lBizObject := Business.Model.BizSys.BizSystem.GetBizObject(lBizUrl);
    lFileName := (lBizObject as TBizAssembly).ID;
    lDisplayName := (lBizObject as TBizAssembly).DisplayName;
    jsDialogs.ShowMsg(lDisplayName,'提示')
  finally
    lBizUrl.Free;
  end;
end;