设置文件关联

.386
.model   flat,stdcall
option   casemap:none

include      windows.inc
include      kernel32.inc
includelib   kernel32.lib
include      user32.inc
includelib   user32.lib
include      advapi32.inc     ;必须包含这个头文件
includelib   advapi32.lib

.data?
hInstance    dd    ?

.const

szKeyExt1        db '.test',0      ;第一个子键
szKeyExt1Value   db 'testfile',0   ;第一个子键的默认键值
szKeyExt2        db 'testfile/shell/open/command',0      ;第二个子键，默认键值为关联程序名
szParam          db ' "%1"',0

.code
_SetExt     proc
LOCAL    @hKey
LOCAL    @szFileName[MAX_PATH]:byte   ;关联到这个可执行程序

invoke   RegCreateKeyEx,HKEY_CLASSES_ROOT,addr szKeyExt1,NULL,NULL,/
           REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,NULL,addr @hKey,NULL
.if   eax == ERROR_SUCCESS
   invoke   RegSetValueEx,@hKey,NULL,NULL,REG_SZ,ADDR szKeyExt1Value,sizeof szKeyExt1Value
   invoke   RegCloseKey,@hKey
.endif
invoke   RegCreateKeyEx,HKEY_CLASSES_ROOT,addr szKeyExt2,NULL,NULL,/
           REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,NULL,addr @hKey,NULL
.if   eax == ERROR_SUCCESS
   invoke   GetModuleFileName,NULL,addr @szFileName,MAX_PATH
   invoke   lstrcat,addr @szFileName,addr szParam
   invoke   lstrlen,addr @szFileName
   inc      eax   ;REG_EXPAND_SZ型的cbData应为字符串长度加2，但这里加一就可以
   invoke   RegSetValueEx,@hKey,NULL,NULL,REG_EXPAND_SZ,addr @szFileName,eax
   invoke   RegCloseKey,@hKey
.endif
ret

_SetExt endp
start:
        invoke _SetExt
        invoke MessageBox,NULL,NULL,NULL,MB_OK ;双击.TEST文件，如果程序运行的话，则设置成功
        invoke ExitProcess,NULL
        end start