易語言基礎——簡單的裝置管理器

1.實作效果

2.源碼

說明：程式中引入了

精易子產品

，實作

取程序路徑

功能

.版本 2
.支援庫 eAPI
.支援庫 iext

.程式集 視窗程式集_啟動視窗

.子程式 __啟動視窗_建立完畢

子程式_顯示程序資訊 ()


.子程式 子程式_顯示程序資訊
.局部變量 程序數組, 程序資訊, , "0"
.局部變量 i, 整數型
.局部變量 表項索引, 整數型

程序數組 ＝ 取系統程序清單 ()
.如果真 (取數組成員數 (程序數組) ＝ 0)
    傳回 ()
.如果真結束

狀态條1.置文本 (1, 到文本 (取數組成員數 (程序數組)))

.計次循環首 (取數組成員數 (程序數組), i)
    表項索引 ＝ 超級清單框1.插入表項 (, 到文本 (程序數組 [i].程序辨別符), , , , )
    超級清單框1.置标題 (表項索引, 1, 程序數組 [i].程序名稱)
    .如果真 (程序數組 [i].程序辨別符 ≤ 4)
        到循環尾 ()
    .如果真結束

    超級清單框1.置标題 (表項索引, 2, 取程序路徑 (程序數組 [i].程序辨別符))

.計次循環尾 ()



.子程式 _重新整理清單_被選擇

超級清單框1.全部删除 ()
子程式_顯示程序資訊 ()


.子程式 _退出程式_被選擇

銷毀 ()


.子程式 _始終保持視窗最前_被選擇

.判斷開始 (_啟動視窗.總在最前 ＝ 真)
    _啟動視窗.總在最前 ＝ 假
    始終保持視窗最前.選中 ＝ 假
.預設
    _啟動視窗.總在最前 ＝ 真
    始終保持視窗最前.選中 ＝ 真
.判斷結束