eknori.de

Const APIModule = "NNOTES" ' Windows/32 only
Const REPLFLG_HIDDEN_DESIGN = &H0020
 
Type ReplicaInfo
	ID(1) As Long
	Flags As Integer
	CutoffDays As Integer
	CutoffDate(1) As Long
End Type
 
Declare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" _
( Byval P As String, H As Long) As Integer
Declare Function NSFDbClose Lib APIModule Alias "NSFDbClose" _
( Byval H As Long) As Integer
Declare Function OSPathNetConstruct Lib APIModule Alias "OSPathNetConstruct" _
( Byval Z As Long, Byval S As String, Byval F As String, Byval P As String) As Integer
Declare Function NSFDbReplicaInfoGet Lib APIModule Alias "NSFDbReplicaInfoGet" _
( Byval H As Long, R As ReplicaInfo) As Integer
Declare Function NSFDbReplicaInfoSet Lib APIModule Alias "NSFDbReplicaInfoSet" _
( Byval H As Long, R As ReplicaInfo) As Integer
 
Function IsDesignHidden ( db As NotesDatabase ) As Boolean
	IsDesignHidden = False
	Dim hDB As Long
	Dim R As ReplicaInfo	
	p$ = Space(256)
	OSPathNetConstruct 0, db.Server, db.FilePath, p$
	NSFDbOpen p$, hDB
	NSFDbReplicaInfoGet hDB, R
	If ( Not R.Flags  And REPLFLG_HIDDEN_DESIGN) = 0 Then
		IsDesignHidden = True
	End If
	NSFDbClose hDB
End Function

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim rep As NotesReplication
	Set db = session.CurrentDatabase
	Msgbox IsDesignHidden(db)
End Sub