;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
:FileName: ini-demo.asm
;Function: demo the operation of ini file
;Author: Purple Endurer
;
;Log
;=============================
;2005-05-26 Created!
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

.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