asdfxx
发表于 2009-9-10 10:25:00
<p>怎么都是一个领导在发表啊</p>
nonsmall
发表于 2009-9-10 17:51:00
<p>玩的人少么</p><p>顺便发个小东西</p>
aytxq
发表于 2009-9-10 21:32:00
DCL还不太熟.学习一下
jxphklibin
发表于 2009-9-13 09:22:00
<p>学习了，老猫，支持一下，顶起来！</p>
yyzhan12
发表于 2009-9-13 10:01:00
Private Declare Function GetForegroundWindow Lib "user32" () As Long<br/>Private Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hMenu As Long) As Long<br/>Private Declare Function CreateMenu Lib "user32" () As Long<br/>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<br/>Private Declare Function CreatePopupMenu Lib "user32" () As Long<br/>Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long<br/>Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long<br/>Private Const GWL_WNDPROC = (-4)<br/>Private Const MF_STRING = &H0&<br/>Private Const MF_POPUP = &H10&<br/>Private Const MF_SEPARATOR = &H800&<br/>Sub addmenu()<br/> dcl_hwnd = GetForegroundWindow<br/> MenuWnd = CreateMenu()<br/> PopupMenuID = CreatePopupMenu()<br/> Dump = AppendMenu(PopupMenuID, MF_STRING, 100, "打开(&O)...")<br/> Dump = AppendMenu(MenuWnd, MF_STRING + MF_POPUP, PopupMenuID, "文件(&F)")<br/> PopupMenuID = CreatePopupMenu()<br/> Dump = AppendMenu(PopupMenuID, MF_STRING, 101, "关于(&A)...")<br/> Dump = AppendMenu(MenuWnd, MF_STRING + MF_POPUP, PopupMenuID, "帮助(&H)")<br/> Dump = SetMenu(dcl_hwnd, MenuWnd)<br/> PreWinProc = GetWindowLong(dcl_hwnd, GWL_WNDPROC)<br/>End Sub
nameld001
发表于 2009-10-20 20:15:00
好贴!
lkxdl
发表于 2009-10-20 21:35:00
<p>不错，很想学lisp就是看到括号就头大</p>
ghgh0130
发表于 2009-12-2 09:16:00
<p>好东西，下载学习</p>
ryljun
发表于 2011-12-2 21:57:35
这什么啊？
jyzas
发表于 2013-7-27 20:27:34
都是高手来的，支持下