.386
.model flat, stdcall
option casemap:none
include /masm32/include/windows.inc
include /masm32/include/kernel32.inc
include /masm32/include/user32.inc
includelib /masm32/lib/user32.lib
includelib /masm32/lib/kernel32.lib
m_MsgBox macro lpstrMsg, dwIcon
invoke MessageBox, NULL, lpstrMsg, ADDR g_szMsgCaption, dwIcon
endm
.data
g_szMsgCaption db "INI demo", 0
g_szIniFileSpec db "./test.ini", 0
g_szKeyFileName db "FileName", 0
g_szKeyFileSize db "FileSize", 0
g_szSectInfo db "Info", 0
g_szFmt4Int db "%s的值为%d", 0
g_szFailReadKey db "Fail to read Key!", 0
g_szFailWriteStr db "Fail to Write String!", 0
g_szOne db "1", 0
.data?
g_szBuf db 256 dup (?)
.code
start:
; GetPrivateProfileString - 从 ini 文件的某个 Section 取得一个 key 的字符串,它的原形是:
; GetPrivateProfileString(
; LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
; LPCTSTR lpKeyName, // 指向包含 Key 名称的字符串地址
; LPCTSTR lpDefault, // 如果 Key 值没有找到,则将缺省的字符串复制到返回字符串的缓冲区, 不能是NULL
; LPTSTR lpReturnedString, // 返回字符串的缓冲区地址
; DWORD nSize // 缓冲区的长度
; LPCTSTR lpFileName // ini 文件的文件名
invoke GetPrivateProfileString, ADDR g_szSectInfo, ADDR g_szKeyFileName, ADDR g_szFailReadKey, ADDR g_szBuf, SIZEOF g_szBuf, ADDR g_szIniFileSpec
m_MsgBox ADDR g_szBuf, MB_ICONERROR
; GetPrivateProfileInt - 从 ini 文件的某个 Section 取得一个 key 的整数值,它的原形是:
;
; GetPrivateProfileInt(
; LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
; LPCTSTR lpKeyName, // 指向包含 Key 名称的字符串地址
; INT nDefault // 如果 Key 值没有找到,则返回缺省的值是多少
; LPCTSTR lpFileName // ini 文件的文件名
invoke GetPrivateProfileInt, ADDR g_szSectInfo, ADDR g_szKeyFileSize, 0, ADDR g_szIniFileSpec
invoke wsprintf, ADDR g_szBuf, ADDR g_szFmt4Int, ADDR g_szKeyFileSize, eax
m_MsgBox ADDR g_szBuf, MB_ICONERROR
; WritePrivateProfileString - 将一个 Key 值写入 ini 文件的指定 Section 中,它的原形是:
; WritePrivateProfileString(
; LPCTSTR lpAppName, // 指向包含 Section 名称的字符串地址
; LPCTSTR lpKeyName, // 指向包含 Key 名称的字符串地址
; LPCTSTR lpString // 要写的字符串地址
; LPCTSTR lpFileName // ini 文件的文件名,如果文件不存在, 系统会自动创建
invoke WritePrivateProfileString, ADDR g_szSectInfo, ADDR g_szKeyFileName, ADDR g_szMsgCaption, ADDR g_szIniFileSpec
.if eax==NULL
m_MsgBox ADDR g_szFailWriteStr, MB_ICONERROR
.endif
invoke WritePrivateProfileString, ADDR g_szSectInfo, ADDR g_szKeyFileSize, ADDR g_szOne, ADDR g_szIniFileSpec
.if eax==NULL
m_MsgBox ADDR g_szFailWriteStr, MB_ICONERROR
.endif
invoke ExitProcess,NULL
end start