关于屏蔽notes菜单

用下面的程序试一试,或者在启动NOTES的时候加上参数 KOISK也可以的. 

Declare Function GetWindowLong32 Lib "user32.dll" Alias "GetWindowLong
A"(Byval hwnd As Long,Byval index As Integer) As Long 
Declare Function setWindowLong32 Lib "user32.dll" Alias "SetWindowLong
A"(Byval hwnd As Long,Byval index As Integer, Byval aa As Long) As Lon
g 
Declare Function GetACtiveWindow32 Lib "user32.dll" Alias "GetActiveWi
ndow"() As Long 
Declare Function GetMenu32 Lib "user32.dll" Alias "GetMenu"(Byval hwnd
 As Long) As Long 
Declare Function GetParent32 Lib "user32.dll" Alias "GetParent"(Byval 
hwnd As Long) As Long 
Declare Function GetMenuItemID32 Lib "user32.dll" Alias "GetMenuItemID
"(Byval hwnd As Long, Byval pos As Long, Byval flags As Long) As Long 

Declare Function SetMenu32 Lib "user32.dll" Alias "SetMenu"(Byval hwnd
 As Long, Byval hmenu As Long) As Long 
Declare Function  GetMenuItemCount32 Lib "user32.dll" Alias "GetMenuIt
emCount"( Byval hmenu As Long) As   Long 
Declare Function DestroyMenu32 Lib "user32.dll" Alias "DestroyMenu"( B
yval hmenu As Long) As Integer 
Declare Function DeleteMenu32 Lib "user32.dll" Alias "DeleteMenu"( Byv
al hmenu As Long,Byval pos As Long) As Integer 
Declare Function RemoveMenu32 Lib "user32.dll" Alias "RemoveMenu"( Byv
al hmenu As Long,Byval pos As Long) As Integer 
Declare Function GetSubMenu32 Lib "user32.dll" Alias "GetSubMenu"(Byva
l hwnd As Long,Byval pos As Integer) As Long 
Declare Function CloseWindow32 Lib "user32.dll" Alias "CloseWindow"(By
val hwnd As Long) As Long 
Declare Function DestroyWindow32 Lib "user32.dll" Alias "DestroyWindow
"(Byval hwnd As Long) As Long 
'Declare Function GetCurrentProcess Lib "user32.dll" Alias "GettCurren
tProcess"() As Integer 
'Declare Function ExitProcess Lib "user32.dll" Alias "ExitProcess"(Byv
al id As Long) As Integer 
Dim hwnd, hmenu, oldstyle As Long 


去掉Notes 的菜单条。 

Const NotesMacro$ = " @Command([WindowMaximize])" 
Dim ff As Long      
ff = &h17000000 
hwnd  = GetActiveWindow32() 
hmenu = GetMenu32(hwnd) 
frommenu = SetMenu32(hwnd,0) 
result = Evaluate(NotesMacro$ ) 
oldlong1 = setWindowLong32(hwnd, -16, ff)