015.txt

会变语言实现的一些程序

 

    mov   @dwIndex,0

    invoke  SetDlgItemText,hWinMain,IDC_KEYLIST,NULL

;********************************************************************

; 枚举子键

;********************************************************************

    invoke  RegOpenKeyEx,HKEY_LOCAL_MACHINE,_lpKey,NULL,\

      KEY_ENUMERATE_SUB_KEYS,addr @hKey

    .if eax == ERROR_SUCCESS

      .while  TRUE

      mov   @dwSize,sizeof @szBuffer

        invoke  RegEnumKeyEx,@hKey,@dwIndex,addr @szBuffer,\

          addr @dwSize,NULL,NULL,NULL,NULL

      .break  .if eax == ERROR_NO_MORE_ITEMS

      invoke  wsprintf,addr @szBuffer1,\

      addr szFmtSubkey,addr @szBuffer

      invoke  SendDlgItemMessage,hWinMain,IDC_KEYLIST,\

 




      EM_REPLACESEL,0,addr @szBuffer1

      inc   @dwIndex

    .endw

      invoke  RegCloseKey,@hKey

    .endif

;********************************************************************

; 枚举键值

;********************************************************************

    mov @dwIndex,0

    invoke  RegOpenKeyEx,HKEY_LOCAL_MACHINE,_lpKey,NULL,\

      KEY_QUERY_VALUE,addr @hKey

    .if eax == ERROR_SUCCESS

      .while  TRUE

      mov   @dwSize,sizeof @szBuffer

      mov   @dwSize1,sizeof @szValue

        invoke  RegEnumValue,@hKey,@dwIndex,addr @szBuffer,\

          addr @dwSize,NULL,addr @dwType,\

        addr @szValue,addr @dwSize1

      .break  .if eax == ERROR_NO_MORE_ITEMS

      mov   eax,@dwType

      .if   eax ==  REG_SZ

      invoke  wsprintf,addr @szBuffer1,\

      addr szFmtSz,addr @szBuffer,addr @szValue

      .elseif eax ==  REG_DWORD

      invoke  wsprintf,addr @szBuffer1,\

      addr szFmtDw,addr @szBuffer,\

      dword ptr @szValue

      .else

      invoke  wsprintf,addr @szBuffer1,\

      addr szFmtValue,addr @szBuffer

      .endif

      invoke  SendDlgItemMessage,hWinMain,IDC_KEYLIST,\

      EM_REPLACESEL,0,addr @szBuffer1

      inc @dwIndex

      .endw

      invoke  RegCloseKey,@hKey

    .endif

    ret

 

_EnumKey     endp

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

_ProcDlgMain     proc   uses ebx edi esi hWnd,wMsg,wParam,lParam

        local @szKey[256]:byte,@szSubkey[256]:byte

        local @szValueName[256]:byte,@szValue[256]:byte

      local @dwType,@dwSize

 

        mov eax,wMsg

;********************************************************************

        .if   eax ==  WM_CLOSE

          invoke  EndDialog,hWnd,NULL

;********************************************************************

        .elseif eax ==  WM_INITDIALOG

          push     hWnd

        pop   hWinMain

        invoke  LoadIcon,hInstance,ICO_MAIN

        invoke  SendMessage,hWnd,WM_SETICON,ICON_BIG,eax

          invoke  SendDlgItemMessage,hWnd,IDC_TYPE,\

          CB_ADDSTRING,0,addr szTypeSz

          invoke  SendDlgItemMessage,hWnd,IDC_TYPE,\

          CB_ADDSTRING,0,addr szTypeDw

      invoke  SendDlgItemMessage,hWnd,\

      IDC_TYPE,CB_SETCURSEL,0,0

      invoke  _EnumKey,NULL

;********************************************************************

; 由于印刷宽度有限，WM_COMMAND消息处理代码的缩进格式有所影响，请读者注意

;********************************************************************

.elseif eax ==  WM_COMMAND

    invoke  GetDlgItemText,hWnd,IDC_KEY,addr @szKey,256

    invoke  GetDlgItemText,hWnd,IDC_SUBKEY,addr @szSubkey,256

    invoke  GetDlgItemText,hWnd,IDC_VALUENAME,addr @szValueName,256

    mov   eax,wParam

    .if   ax >= IDC_KEY && ax <= IDC_SUBKEY

      mov   eax,TRUE

      ret

    .elseif ax == IDC_REMOVE_VALUE

      invoke  _RegDelValue,addr @szKey,addr @szValueName

    .elseif ax == IDC_GET_VALUE

;********************************************************************

; 读取键值

;********************************************************************

      mov   @dwSize,sizeof @szValue

      invoke  RtlZeroMemory,addr @szValue,@dwSize

      invoke  _RegQueryValue,addr @szKey,addr @szValueName,\

      addr @szValue,addr @dwSize,addr @dwType

      .if   eax ==  ERROR_SUCCESS

      mov   eax,@dwType

      .if   eax ==  REG_SZ

      invoke  SetDlgItemText,hWnd,\

      IDC_VALUE,addr @szValue

      invoke  SendDlgItemMessage,hWnd,\

      IDC_TYPE,CB_SETCURSEL,0,0

      .elseif eax ==  REG_DWORD

      invoke  SendDlgItemMessage,hWnd,\

      IDC_TYPE,CB_SETCURSEL,1,0

      invoke  SetDlgItemInt,hWnd,IDC_VALUE,\

      dword ptr @szValue,FALSE

      .else

      invoke  SetDlgItemText,hWnd,IDC_VALUE,\

          addr szNotSupport

      .endif

      .else

      invoke  SetDlgItemText,hWnd,IDC_VALUE,NULL

    .endif

;********************************************************************

; 设置键值

;********************************************************************

    .elseif ax == IDC_SET_VALUE

      invoke  SendDlgItemMessage,hWnd,IDC_TYPE,CB_GETCURSEL,0,0

      .if   ! eax

      invoke  GetDlgItemText,hWnd,\

      IDC_VALUE,addr @szValue,256

      invoke  lstrlen,addr @szValue

      inc eax

      invoke  _RegSetValue,addr @szKey,addr @szValueName,\

        addr @szValue,REG_SZ,eax

      .else

      invoke  GetDlgItemInt,hWnd,IDC_VALUE,NULL,FALSE

      mov d word ptr @szValue,eax

      invoke  _RegSetValue,addr @szKey,addr @szValueName,\

      addr @szValue,REG_DWORD,4

      .endif

    .elseif ax == IDC_CREATE_SUBKEY

      invoke  _RegCreateKey,addr @szKey,addr @szSubkey

    .elseif ax == IDC_REMOVE_SUBKEY

      invoke  _RegDelSubKey,addr @szKey,addr @szSubkey

    .endif

    invoke  _EnumKey,addr @szKey

;********************************************************************

; 恢复代码的缩进格式，请读者注意

;********************************************************************   .else

      mov eax,FALSE

 



      ret

      .endif

      mov   eax,TRUE

      ret

 

_ProcDlgMain     endp

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

start:

      invoke  GetModuleHandle,NULL

      mov   hInstance,eax

      invoke  DialogBoxParam,eax,DLG_MAIN,\

      NULL,offset _ProcDlgMain,NULL

      invoke  ExitProcess,NULL

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

        end start

注册表函数是一组函数名以Reg开头的函数，全部函数包含在Advapi32.dll文件中，所以在源程序的一开始要使用include和includelib语句将Advapi32.inc文件和Advapi32.lib文件包含进来。

例子程序中将把注册表的各种操作分别写成子程序，用_RegQueryValue，_RegSetValue和_RegDelValue子程序来查询、设置和删除键值，用_RegCreateKey和_RegDelSubKey完成子键的创建和删除工作，并在WM_COMMAND消息中根据不同的按钮消息调用相应的子程序。为了让读者不经修改就可以将这些子程序用在其他程序中，将这些子程序放在一个单独的_Reg.asm文件中并在主程序中使用include语句包含进来，文件内容如下：