。裝配窗裝配1
。程序集變量拖放文件名，文本類型
。程序集變量路徑名，文本類型。
。匯編可變圖片號
。匯編變量圖像組，字節組
。匯編變量文件名，文本類型。
。程序集變量路徑，文本類型，“0”
。子程序_ _開始窗口_已創建
拖放對象1。註冊拖放控件(_開始窗口。獲取窗口句柄())
拖放對象1。接收文件=真。
圖片組=超級列表框1。圖片組
。subroutine _ Hyperlist Box 1 _被雙擊，邏輯類型。
。參數橫向位置，整數類型
。整型參數的垂直位置
參數功能鍵狀態，整數類型
。局部變量項目
。如果為真(超級列表框1。當前選定項=-1)'當有項目/沒有項目時避免運行項目錯誤。
Return()
如果真的結束了。
。如果為真(超級列表框1。取項數()≥ 1)'，只有有項目時才能運行。
Item =超級列表框1。取表項值(超級列表框1。當前選擇的項目)。
執行(，路徑[項目]，，)
如果真的結束了。
。子程序_拖放對象1_獲取文件
。參數text type接收的文件路徑。
。本地變量文件後綴，文本類型
。本地變量文件名1，文本類型，，" 0 "
局部變量後綴，文本類型
文件名1 =拆分文本(接收文件路徑，# newline，1)
拖放文件名=文件名1 [1]
路徑名=拖放文件名
文件後綴名稱=取文本的右側(路徑名，取文本的長度(路徑名)-向後查找文本(路徑名，“)，，假))
後綴=文件後綴
If(後綴= "exe ")
圖片號=通過提取添加圖片(圖片組，拖放文件名，，)
否則。
圖片號=通過提取添加圖片(圖片組，查詢快捷方式(拖放文件名)，，)
如果結束了
超級列表框1。圖片組=圖片組
文件名=取文本的右側(路徑名，取文本的長度(路徑名)-向後查找文本(路徑名，" \ "，false))
文件名=取左側文本(文件名，取文本長度(文件名)-4)
添加成員(路徑，路徑名)
。If(圖片編號≦-1)
超級列表框1。插入表項(-1，文件名，圖片號，，，取數組成員數(路徑))。
否則。
超級列表框1。插入表項(-1，文件名，0，，，取數組成員數(路徑))。
如果結束了