2010-12-07 21:18

'Declare Function SetFocus Lib "user32" Alias "SetFocus" (hwnd As Long) As Long
     DECLARE FUNCTION CreateMenu LIB "user32" ALIAS "CreateMenu"  AS LONG
     DECLARE FUNCTION CreatePopupMenu LIB "user32" ALIAS "CreatePopupMenu" AS LONG
     DECLARE FUNCTION SetMenu LIB "user32" ALIAS "SetMenu"(hWnd AS LONG, hMenu AS LONG) AS LONG
     DECLARE FUNCTION DrawMenuBar LIB "user32" ALIAS "DrawMenuBar" (hwnd AS LONG) AS LONG
     DECLARE FUNCTION DestroyMenu LIB "user32" ALIAS "DestroyMenu" (hMenu AS LONG) AS LONG
'Declare Function GetMenu Lib "user32" Alias "GetMenu" (hWnd as Long) As Long
     DECLARE FUNCTION GetMenuItemCount LIB "user32" ALIAS "GetMenuItemCount" (hMenu AS LONG) AS LONG
'Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (hwnd As Long, lpOperation As String, lpFile As String, lpParameters As String, lpDirectory As String, nShowCmd As Long) As Long


'Type MENUITEMINFO
'    cbSize As Long
'    fMask As Long
'    fType As Long
'    fState As Long
'    wID As Long
'    hSubMenu As Long
'    hbmpChecked As Long
'    hbmpUnchecked As Long
'    dwItemData As Long
'    dwTypeData As Long
'    'dwTypeData As string
'    cch As Long
'End Type

'Declare Function InsertMenuItem Lib "user32" Alias "InsertMenuItemA" (hMenu As Long, un As Long, bool As LONG, lpcMenuItemInfo As MENUITEMINFO) As Long
'Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (hMenu As Long, un As Long, bool As Word, lpcMenuItemInfo As MENUITEMINFO) As Long


     CONST MIIM_STATE = &H1
     CONST MIIM_ID = &H2
     CONST MIIM_SUBMENU = &H4
     CONST MIIM_CHECKMARKS = &H8
     CONST MIIM_DATA = &H20
     CONST MIIM_TYPE = &H10
'Const MFT_BITMAP = &H4
'Const MFT_MENUBARBREAK = &H20
     CONST MFT_MENUBREAK = &H40
     CONST MFT_OWNERDRAW = &H100
     CONST MFT_RADIOCHECK = &H200
     CONST MFT_RIGHTJUSTIFY = &H4000
     CONST MFT_RIGHTORDER = &H2000
     CONST MFT_SEPARATOR = &H800
     CONST MFT_STRING = &H0
'Const MFS_CHECKED = &H8
     CONST MFS_DEFAULT = &H1000
'Const MFS_DISABLED = &H2
'Const MFS_ENABLED = &H0
'Const MFS_GRAYED = &H1
     CONST MFS_HILITE = &H80
'Const MFS_UNCHECKED = &H0
'Const MFS_UNHILITE = &H0

     CONST BIF_RETURNONLYFSDIRS = 1
     CONST BIF_DONTGOBELOWDOMAIN = 2
'Const MAX_PATH = 260

     TYPE BrowseInfo
      hwndOwner AS LONG
      pIDLRoot AS LONG
      pszDisplayName AS LONG
      lpszTitle AS LONG
      ulFlags AS LONG
      lpfnCallback AS LONG
      lParam AS LONG
      iImage AS LONG
     END TYPE


     DECLARE SUB CoTaskMemFree LIB "ole32.dll" ALIAS "CoTaskMemFree" ( hMem AS LONG)
     DECLARE FUNCTION lstrcat LIB "kernel32" ALIAS "lstrcatA" (lpString1 AS STRING, lpString2 AS STRING) AS LONG
     DECLARE FUNCTION SHBrowseForFolder LIB "shell32" ALIAS "SHBrowseForFolder" (lpbi AS BrowseInfo) AS LONG
     DECLARE FUNCTION SHGetPathFromIDList LIB "shell32" ALIAS "SHGetPathFromIDList" (pidList AS LONG, lpBuffer AS STRING) AS LONG

2010-12-07 21:18