炫彩界面库自绘列表框

pItem.文本 ＝ 字符串.创建 (pText)
pItem.进度条 ＝ 进度条.创建 (230, 50, 100, 20, 真, hList)
pItem.按钮 ＝ 按钮.创建 (100, 10, 60, 20, “查看”, hList)
进度条.背景透明 (真)
按钮.背景透明 (真)
按钮.提示文本 (“查看软件信息”, 真)
进度条.置当前位置 (pos)
进度条.显示百分比 (真)
' *** 缩略程序块 ***
' pItem.文本 ＝ XStr_Create ({ 0 }) ' 创建字符串接口
' XStr_SetString (pItem.文本, pText) ' 设置指定位置字符.
' pItem.进度条 ＝ XProgBar_Create (230, 50, 100, 20, 真, hList) ' 创建进度条元素.
' pItem.按钮 ＝ XBtn_Create (100, 10, 60, 20, L (“查看”), hList) ' 创建按钮元素
' XEle_SetBkTransparent (pItem.进度条, 真) ' 设置元素背景透明.
' XEle_SetBkTransparent (pItem.按钮, 真) ' 设置元素背景透明.
' XEle_SetToolTips (pItem.按钮, L (“查看软件信息”)) ' 设置元素工具提示内容
' XEle_EnableToolTips (pItem.按钮, 真) ' 元素启用工具提示功能.
' XProgBar_SetPos (pItem.进度条, pos) ' 进度条元素,显示当前进度贴图
' XProgBar_EnablePercent (pItem.进度条, 真) ' 启用显示百分比功能.
hprocess ＝ GetCurrentProcess () ' 取当前进程伪句柄
' memory ＝ 分配虚拟页_ (0, LocalSize (pItem), 4096, 4)
memory ＝ VirtualAllocEx (hprocess, 0, LocalSize (pItem), 4096, 4)
WriteProcessMemory (hprocess, memory, 取变量数据地址 (pItem.文本), LocalSize (pItem), 0) ' 在指定进程中写内存
置项用户数据 (hList, index, memory) ' 设置项用户数据.