Win32API调用错误号与信息(6000-6999)

Author:水如烟  

 

Namespace  LzmTW.uSystem.uWindows.Win32API
     Friend   Class  ErrCollection06
         Private  Collection  As   New  Dictionary( Of   Integer ,  String )

         Private   Shared  Loader  As  ErrCollection06
         Private   Shared  gInternalSyncObject  As   Object

         Private   Sub   New ()
             With  Collection
                .Add( 6000 ,  " 无法加密指定的文件 " )
                .Add( 6001 ,  " 指定的文件无法解密 " )
                .Add( 6002 ,  " 指定的文件已加密，而且用户没有能力解密 " )
                .Add( 6003 ,  " 这个系统没有有效的加密恢复策略配置 " )
                .Add( 6004 ,  " 所需的加密驱动程序并未加载到系统中 " )
                .Add( 6005 ,  " 文件加密所使用的加密驱动程序与目前加载的加密驱动程序不同 " )
                .Add( 6006 ,  " 没有为用户定义的 EFS 关键字 " )
                .Add( 6007 ,  " 指定的文件并未加密 " )
                .Add( 6008 ,  " 指定的文件不是定义的 EFS 导出格式 " )
                .Add( 6009 ,  " 指定的文件是只读文件 " )
                .Add( 6010 ,  " 已为加密而停用目录 " )
                .Add( 6011 ,  " 不信任服务器来进行远程加密操作 " )
                .Add( 6118 ,  " 此工作组的服务器列表当前无法使用 " )
                .Add( 6200 ,  " 要正常运行，任务计划程序服务的配置必须在系统帐户中运行。单独的任务可以被配置成在其他帐户中运行 " )
             End   With
         End Sub

         Private   Shared   Function  GetLoader()  As  ErrCollection06
             If  Loader  Is   Nothing   Then
                 SyncLock  InternalSyncObject
                     If  Loader  Is   Nothing   Then
                        Loader  =   New  ErrCollection06
                     End   If
                 End   SyncLock
             End   If
             Return  Loader
         End Function

         Private   Shared   ReadOnly   Property  InternalSyncObject()  As   Object
             Get
                 If  gInternalSyncObject  Is   Nothing   Then
                    System.Threading.Interlocked.CompareExchange(gInternalSyncObject,  New   Object ,  Nothing )
                 End   If
                 Return  gInternalSyncObject
             End   Get
         End Property


         Public   Shared   Function  GetString( ByVal  errNum  As   Integer )  As   String
             With  GetLoader.Collection
                 If  .ContainsKey(errNum)  Then
                     Return  .Item(errNum)
                 Else
                     Return   " 预留或未知 "
                 End   If
             End   With
         End Function

     End Class
End Namespace