這是加入程式名稱和圖示的程式碼，你可以參考圖示的加入：

.程式集 視窗程式集1

.程式集變數 軟體名稱, 文字型, , "0"

.程式集變數 軟體名稱1, 文字型, , "0"

.程式集變數 軟體圖示, 位元組集

.程式集變數 軟體圖示1, 位元組集

.程式集變數 軟體圖示2, 位元組集

.版本 2

.支援庫 iext2

.支援庫 iext3

.子程式 _新增_被選擇

.區域性變數 計次變數, 整數型

.如果 (通用對話方塊1.開啟 () ＝ 真)

軟體圖示 ＝ 建空圖片組 (32, 32)

軟體圖示1 ＝ 建空圖片組 (32, 32)

.如果 (取檔案內圖示數 (通用對話方塊1.檔名) ＞ 0)

.計次迴圈首 (取檔案內圖示數 (通用對話方塊1.檔名), 計次變數)

提取加入圖片 (軟體圖示, 通用對話方塊1.檔名, 計次變數 － 1)

.計次迴圈尾 ()

.否則

.如果結束

.計次迴圈首 (取圖片組圖片數 (軟體圖示), 計次變數)

加入圖片 (軟體圖示1, 取圖片組圖片 (軟體圖示, 計次變數 － 1, ), )

.計次迴圈尾 ()

加入圖片 (軟體圖示2, 取圖片組圖片 (軟體圖示, 0, ), )

軟體名稱 ＝ 分割文字 (通用對話方塊1.檔名, “\”, )

軟體名稱1 ＝ 分割文字 (軟體名稱 [取陣列成員數 (軟體名稱)], “.”, )

捲簾式選單1.專案圖示圖片組 ＝ 軟體圖示2

全部關閉 ()

開啟 (取執行目錄 () ＋ “\軟體管理.edb”, “軟體管理”, , , , , )

加空記錄 ()

寫 (#軟體名稱, 軟體名稱1 [1])

寫 (#軟體路徑, 通用對話方塊1.檔名)

寫 (#軟體圖示, 取圖片組圖片 (軟體圖示, 0, ))

寫 (#軟體分類, 捲簾式選單1.取選單名稱 (捲簾式選單1.現行選中選單))

捲簾式選單1.加入專案 (讀 (#軟體名稱), 選單現行選中項, , 取圖片組圖片數 (軟體圖示2) － 1, )

.否則

.如果結束

全部關閉 ()