.版本 2
.支持庫 edroptarget
.支持庫 iext2
.支持庫 iext
.支持庫 eAPI
.程序集 啟動窗口程序集
.程序集變量 圖片組, 字節集
.程序集變量 配置文件名, 文本型
.程序集變量 接收文件, 文本型
.子程序 __啟動窗口_創建完畢
.局部變量 節名數組, 文本型, , "0"
.局部變量 計次, 整數型
.局部變量 計錄, 整數型
.局部變量 文件名, 文本型, , "0"
.局部變量 遊戲名稱, 文本型
.局部變量 下標, 整數型
拖放對象1.註冊拖放控件 (超級列表框.取窗口句柄 ())
圖片組 = 建空圖片組 (32, 32)
配置文件名 = 取運行目錄 () + “\瀟瀟大作.ini”
節名數組 = 取配置節名 (配置文件名)
.計次循環首 (取數組成員數 (節名數組), 計錄)
提取加入圖片 (圖片組, 讀配置項 (配置文件名, 節名數組 [計錄], “路徑”, ), 0)
.計次循環尾 ()
超級列表框.圖片組 = 圖片組
.計次循環首 (取圖片組圖片數 (圖片組), 計次)
文件名 = 分割文本 (讀配置項 (配置文件名, 節名數組 [計次], “路徑”, ), “\”, )
下標 = 取數組成員數 (文件名)
文件名 = 分割文本 (文件名 [下標], “.”, )
超級列表框.插入表項 (-1, 文件名 [1], 計次 - 1, , , )
.計次循環尾 ()
.子程序 _拖放對象1_得到文件
.參數 接收到的文件路徑, 文本型
.局部變量 最大下標, 整數型
.局部變量 遊戲名, 文本型
.局部變量 a, 文本型, , "0"
.局部變量 b, 文本型, , "0"
.局部變量 路徑, 文本型, , "0"
接收文件 = 接收到的文件路徑
路徑 = 分割文本 (取快捷方式目標 (接收到的文件路徑, , , , , , , ), “\”, )
.如果 (取數組成員數 (路徑) > 1)
最大下標 = 取數組成員數 (路徑)
路徑 = 分割文本 (路徑 [最大下標], “.”, )
遊戲名 = 路徑 [1]
寫配置項 (配置文件名, 遊戲名, “路徑”, 取快捷方式目標 (接收到的文件路徑))
提取加入圖片 (圖片組, 取快捷方式目標 (接收到的文件路徑), 0)
超級列表框.圖片組 = 圖片組
超級列表框.插入表項 (-1, 遊戲名, 取圖片組圖片數 (圖片組) - 1, , , )
.否則
' 信息框 (“必須是快捷方式”, 0, “提示”)
a = 分割文本 (接收到的文件路徑, “\”, )
b = 分割文本 (a [5], “.”, )
.如果 (b [2] = “txt”)
信息框 (“暫不支持TXT文本加入。”, 0, “阿哦!”)
.否則
遊戲名 = b [1]
寫配置項 (配置文件名, 遊戲名, “路徑”, 接收到的文件路徑)
提取加入圖片 (圖片組, 接收到的文件路徑, 0, )
超級列表框.圖片組 = 圖片組
超級列表框.插入表項 (-1, 遊戲名, 取圖片組圖片數 (圖片組) - 1, , , )
.如果結束
.如果結束