2010-11-14 18:07

'API declarations
     DECLARE FUNCTION GetPrivateProfileString LIB "Kernel32" ALIAS "GetPrivateProfileStringA" _
      (BYVAL lpApplicationName AS STRING, BYVAL lpKeyName AS STRING, _
      BYVAL lpDefault AS STRING, BYVAL lpReturnedString AS STRING, BYVAL nSize AS LONG, BYVAL lpFileName AS STRING) AS LONG

     DECLARE FUNCTION WritePrivateProfileString LIB "Kernel32" ALIAS "WritePrivateProfileStringA" _
      (BYVAL lpApplicationName$, BYVAL lpKeyName AS STRING, lpString AS STRING, BYVAL lpFileName$) AS LONG

     DECLARE FUNCTION GetWindowsDirectory LIB "kernel32.dll" ALIAS "GetWindowsDirectoryA"_
      (lpBuffer AS LONG, nSize AS LONG) AS LONG

     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-11-14 18:07