.程序集 窗口程序集1
.程序集變量 拖放文件名, 文本型
.程序集變量 路徑名, 文本型
.程序集變量 圖片號
.程序集變量 圖片組, 字節集
.程序集變量 文件名, 文本型
.程序集變量 路徑, 文本型, , "0"
.子程序 __啟動窗口_創建完畢
拖放對象1.註冊拖放控件 (_啟動窗口.取窗口句柄 ())
拖放對象1.接收文件 = 真
圖片組 = 超級列表框1.圖片組
.子程序 _超級列表框1_被雙擊, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
.局部變量 項目
.如果真 (超級列表框1.現行選中項 = -1) ' 避免有項目/沒項目時,運行項目出錯
返回 ()
.如果真結束
.如果真 (超級列表框1.取表項數 () ≥ 1) ' 有項目時才能運行
項目 = 超級列表框1.取表項數值 (超級列表框1.現行選中項)
執行 (, 路徑 [項目], , )
.如果真結束
.子程序 _拖放對象1_得到文件
.參數 接收到的文件路徑, 文本型
.局部變量 文件後綴名, 文本型
.局部變量 文件名1, 文本型, , "0"
.局部變量 後綴名, 文本型
文件名1 = 分割文本 (接收到的文件路徑, #換行符, 1)
拖放文件名 = 文件名1 [1]
路徑名 = 拖放文件名
文件後綴名 = 取文本右邊 (路徑名, 取文本長度 (路徑名) - 倒找文本 (路徑名, “.”, , 假))
後綴名 = 文件後綴名
.如果 (後綴名 = “exe”)
圖片號 = 提取加入圖片 (圖片組, 拖放文件名, , )
.否則
圖片號 = 提取加入圖片 (圖片組, 查詢快捷方式 (拖放文件名), , )
.如果結束
超級列表框1.圖片組 = 圖片組
文件名 = 取文本右邊 (路徑名, 取文本長度 (路徑名) - 倒找文本 (路徑名, “\”, , 假))
文件名 = 取文本左邊 (文件名, 取文本長度 (文件名) - 4)
加入成員 (路徑, 路徑名)
.如果 (圖片號 ≠ -1)
超級列表框1.插入表項 (-1, 文件名, 圖片號, , , 取數組成員數 (路徑))
.否則
超級列表框1.插入表項 (-1, 文件名, 0, , , 取數組成員數 (路徑))