|
|
用下面的程序试一试,或者在启动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)
|
|
