[原创]动态添加DCL窗体下拉菜单（提供接口）

asdfxx

怎么都是一个领导在发表啊

nonsmall

玩的人少么

顺便发个小东西

aytxq

DCL还不太熟.学习一下

jxphklibin

学习了，老猫，支持一下，顶起来！

yyzhan12

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hMenu As Long) As Long
Private Declare Function CreateMenu Lib "user32" () As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_WNDPROC = (-4)
Private Const MF_STRING = &H0&
Private Const MF_POPUP = &H10&
Private Const MF_SEPARATOR = &H800&
Sub addmenu()
    dcl_hwnd = GetForegroundWindow
    MenuWnd = CreateMenu()
    PopupMenuID = CreatePopupMenu()
    Dump = AppendMenu(PopupMenuID, MF_STRING, 100, "打开(&O)...")
    Dump = AppendMenu(MenuWnd, MF_STRING + MF_POPUP, PopupMenuID, "文件(&F)")
    PopupMenuID = CreatePopupMenu()
    Dump = AppendMenu(PopupMenuID, MF_STRING, 101, "关于(&A)...")
    Dump = AppendMenu(MenuWnd, MF_STRING + MF_POPUP, PopupMenuID, "帮助(&H)")
    Dump = SetMenu(dcl_hwnd, MenuWnd)
    PreWinProc = GetWindowLong(dcl_hwnd, GWL_WNDPROC)
End Sub

nameld001

好贴!

lkxdl

不错，很想学lisp就是看到括号就头大

ghgh0130

好东西，下载学习

ryljun

这什么啊？

jyzas

都是高手来的，支持下