CSDN博客

img snowdot23

c api 应用1

发表于2004/7/5 16:15:00  746人阅读

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)

0 0

相关博文

我的热门文章

img
取 消
img