Domino 9 und frühere Versionen > ND9: Administration & Userprobleme

Erstellen von privaten Ordner unterbinden?

<< < (3/3)

mholup:
Hallo,

man könnte doch das Menu Create/Folder deaktivieren.

z.B. mit

--- Code: ---Dim hWnd As Long
Dim hMenu As Long
Dim intmenuitem As Integer
Const MF_BYPOSITION = &H400&
Const MF_GRAYED = &H1&
Const MF_DISABLED = &H2&
Const MF_ENABLED = &H0&
Declare Function GetActiveWindow Lib "User32" Alias "GetActiveWindow" () As Long
Declare Function GetMenu Lib "User32" Alias "GetMenu" (Byval hwnd As Long) As Long
Declare Function EnableMenuItem Lib "User32" Alias "EnableMenuItem"_
(Byval hMenu As Long, Byval wISEnableItem As Long, Byval wEnable As Long) As Long

Dim ws As New notesuiworkspace
Dim values(6) As String
values(0) = "File"
values(1) = "Edit"
values(2) = "View"
values(3) = "Create"
values(4) = "Actions"
values(5) = "Text"
values(6) = "Help"
x = ws.prompt(PROMPT_OKCANCELLIST,"Menu Modifier","Pick a menu to disable","0",values)
Select Case x
Case "File" : intmenuitem = "0"
Case "Edit" : intmenuitem = "1"
Case "View" : intmenuitem = "2"
Case "Create" : intmenuitem = "3"
Case "Actions" : intmenuitem = "4"
Case "Text" : intmenuitem = "5"
Case "Help" : intmenuitem = "6"
End Select

' intmenuitem = Inputbox("Pick a number","Menu Modifier")
'intmenuitem = 3
hwnd = getactivewindow()
hmenu = getmenu( hwnd)
Call enablemenuitem( hmenu, intmenuitem, MF_BYPOSITION + MF_GRAYED )  'disable

'Call enablemenuitem( hmenu, intmenuitem, MF_BYPOSITION + MF_ENABLED ) 'enable

--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete