c api 应用1

Event (Declarations): 
 Declare Function NSFDbOpen Lib "nnotes.dll" (Byval dbName As String, hDB As Long) As Integer 
 Declare Function NSFDbClose Lib "nnotes.dll" (Byval hDB As Long) As Integer 
 Declare Function NSFDbReadACL Lib "nnotes.dll" (Byval hDB As Long, hACL As Long) As Integer 
 Declare Function ACLSetFlags Lib "nnotes.dll" (Byval hACL As Long, Byval Flags As Long  screen.width/2)this.width=screen.width/2" vspace=2 border=0> As Integer 
 Declare Function NSFDbStoreACL Lib "nnotes.dll" (Byval hDB As Long, Byval hACL As Long, Byval ObjectID As Long, Method As Long) As Integer 

 Event Click: 
 Dim hDB As Long, hACL As Long 
 rc = NSFDbOpen("test.nsf", hDB) 
 rc = NSFDbReadACL(hDB, hACL) 
 rc = ACLSetFlags(hACL, &h0) 
 rc = NSFDbStoreACL(hDB, hACL, 0, 0) 
 rc = NSFDbClose(hdb)