易語言通過注冊表將易文件關(guān)聯(lián)修復的源碼

更新時間：2018年11月24日 10:55:00 作者：易語言源碼教程

今天小編就為大家分享一篇關(guān)于易語言通過注冊表將易文件關(guān)聯(lián)修復的源碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

DLL命令表

.版本 2
.DLL命令 API_SendMessage, 整數(shù)型, "user32", "SendMessageA"
 .參數(shù) 窗口句柄, 整數(shù)型
 .參數(shù) 消息值, 整數(shù)型
 .參數(shù) 參數(shù)一, 整數(shù)型
 .參數(shù) 參數(shù)二, 整數(shù)型
.DLL命令 API_SendMessageTimeout, 整數(shù)型, "user32", "SendMessageTimeoutA", , ,
 .參數(shù) hWnd, 整數(shù)型, , 要接收消息的一個窗口的句柄
 .參數(shù) Msg, 整數(shù)型, , 消息的標識符
 .參數(shù) wParam, 整數(shù)型, , 由消息決定
 .參數(shù) lParam, 整數(shù)型, , 由消息決定
 .參數(shù) fuFlags, 整數(shù)型, , 下述常數(shù)的一個或多個;SMTO_ABORTIFHUNG：如目標進程掛起，則函數(shù)立即返回;SMTO_BLOCK：除非函數(shù)返回，否則調(diào)用線程不能處理消息;SMTO_NORMAL：允許調(diào)用線程處理消息，同時保持函數(shù)繼續(xù)執(zhí)行
 .參數(shù) uTimeout, 整數(shù)型, , 超時值，采用毫秒為單位
 .參數(shù) lpdwResult, 整數(shù)型, 傳址, 用于裝載函數(shù)結(jié)果的一個變量;
.DLL命令 注冊表_RegDeleteKeyA, 整數(shù)型, "advapi32.dll", "RegDeleteKeyA", 公開, _注冊表_刪除項刪除現(xiàn)有項下方一個指定的子項 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼
 .參數(shù) hKey, 整數(shù)型, , 一個已打開項的句柄，或者標準項名之一
 .參數(shù) lpSubKey, 文本型, , 要刪除項的名字。這個項的所有子項也會刪除;
.DLL命令 注冊表_RegCloseKey, 整數(shù)型, , "RegCloseKey", 公開, _注冊表_關(guān)閉項 advapi32.dll關(guān)閉系統(tǒng)注冊表中的一個項（或鍵） 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼
 .參數(shù) hKey, 整數(shù)型, , 要關(guān)閉的項;
.DLL命令 注冊表_RegCreateKeyA, 整數(shù)型, , "RegCreateKeyA", 公開, _注冊表_創(chuàng)建項 advapi32.dll在指定的項下創(chuàng)建一個新項。如指定的項已經(jīng)存在，那么函數(shù)會打開現(xiàn)有的項 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼
 .參數(shù) hKey, 整數(shù)型, , 要打開項的句柄，或者一個標準項名
 .參數(shù) lpSubKey, 文本型, , 欲創(chuàng)建的新子項?？赏瑫r創(chuàng)建多個項，只需用反斜杠將它們分隔開即可。例如level1\level2\newkey
 .參數(shù) phkResult, 整數(shù)型, 傳址, 指定一個變量，用于裝載新子項的句柄;
.DLL命令 注冊表_RegOpenKeyA, 整數(shù)型, "advapi32.dll", "RegOpenKeyA", 公開, _注冊表_打開項 打開一個現(xiàn)有的注冊表項 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼
 .參數(shù) hKey, 整數(shù)型, , 一個已打開項的句柄，或指定一個標準項名
 .參數(shù) lpSubKey, 文本型, , 要打開的項名
 .參數(shù) phkResult, 整數(shù)型, 傳址, 指定一個變量，用于裝載（保存）打開注冊表項的一個句柄;
.DLL命令 注冊表_RegEnumKeyA, 整數(shù)型, "advapi32.dll", "RegEnumKeyA", 公開, _注冊表_枚舉子項
 .參數(shù) hKey, 整數(shù)型
 .參數(shù) dwIndex, 整數(shù)型
 .參數(shù) lpName, 文本型, 傳址
 .參數(shù) cbName, 整數(shù)型
.DLL命令 注冊表_RegQueryValueExA, 整數(shù)型, "advapi32.dll", "RegQueryValueExA", 公開, _注冊表_取值獲取一個項的設(shè)置值 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼
 .參數(shù) hKey, 整數(shù)型, , 一個已打開項的句柄，或者指定一個標準項名
 .參數(shù) lpValueName, 文本型, , 要獲取值的名字
 .參數(shù) lpReserved, 整數(shù)型, , 未用，設(shè)為零
 .參數(shù) lpType, 整數(shù)型, 傳址, 用于裝載取回數(shù)據(jù)類型的一個變量
 .參數(shù) lpData, 字節(jié)集, 傳址, 用于裝載指定值的一個緩沖區(qū)
 .參數(shù) lpcbData, 整數(shù)型, 傳址, 用于裝載lpData緩沖區(qū)長度的一個變量。一旦返回，它會設(shè)為實際裝載到緩沖區(qū)的字節(jié)數(shù);
.DLL命令 注冊表_RegDeleteValueA, 整數(shù)型, "advapi32.dll", "RegDeleteValueA", , _注冊表_刪除值刪除指定項下方的一個值 零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼
 .參數(shù) hKey, 整數(shù)型, , 一個已打開項的句柄，或標準項名之一
 .參數(shù) lpValueName, 文本型, , 要刪除的值名。可設(shè)為vbNull或一個空串，表示刪除那個項的默認值;
.DLL命令 注冊表_RegFlushKey, 整數(shù)型, "advapi32.dll", "RegFlushKey", , _注冊表_實際寫入將對項和它的子項作出的改動實際寫入磁盤 Long，零（ERROR_SUCCESS）表示成功。其他任何值都代表一個錯誤代碼
 .參數(shù) hKey, 整數(shù)型, , Long，欲刷新的一個項的句柄，或指定一個標準項名

常量數(shù)據(jù)表

.版本 2
.常量 HWND_BROADCAST, "65535"
.常量 WM_SETTINGCHANGE, "26"
.常量 SMTO_NORMAL, "0"
.常量 圖標126, "<文本長度: 5>", , ,-126 紅
.常量 圖標127, "<文本長度: 5>", , ,-127 藍
.常量 圖標134, "<文本長度: 5>", , ,-134 紅

注冊表刪除代碼

.版本 2
.程序集 注冊表
.子程序 _打開項, 整數(shù)型
.參數(shù) 項名稱, 文本型
.參數(shù) 是否創(chuàng)建, 邏輯型, 可空, 默認為假:打開 真:如果項不存在則創(chuàng)建項
.局部變量 局_根句柄, 整數(shù)型
.局部變量 局_項句柄, 整數(shù)型
.局部變量 局_項文本, 文本型
.局部變量 局_位置, 整數(shù)型
.局部變量 b, 整數(shù)型
局_位置 ＝ 尋找文本 (項名稱, “\”, , 假)
局_項文本 ＝ 取文本左邊 (項名稱, 局_位置 － 1)
.判斷開始 (局_項文本 ＝ “HKEY_CLASSES_ROOT”)
 局_根句柄 ＝ 2147483648
.判斷 (局_項文本 ＝ “HKEY_CURRENT_USER”)
 局_根句柄 ＝ 2147483649
.判斷 (局_項文本 ＝ “HKEY_LOCAL_MACHINE”)
 局_根句柄 ＝ 2147483650
.判斷 (局_項文本 ＝ “HKEY_USERS”)
 局_根句柄 ＝ 2147483651
.判斷 (文本比較 (局_項文本, “HKEY_CURRENT_CONFIG”, 假) ＝ 0)
 局_根句柄 ＝ 2147483653
.默認
 返回 (0)
.判斷結(jié)束
.如果 (是否創(chuàng)建)
 b ＝ 注冊表_RegCreateKeyA (局_根句柄, 取文本右邊 (項名稱, 取文本長度 (項名稱) － 局_位置), 局_項句柄)
.否則
 b ＝ 注冊表_RegOpenKeyA (局_根句柄, 取文本右邊 (項名稱, 取文本長度 (項名稱) － 局_位置), 局_項句柄)
.如果結(jié)束
.如果真 (b ＝ 0)
 返回 (局_項句柄)
.如果真結(jié)束
返回 (0)
.子程序 注冊表_枚舉子項, 整數(shù)型, 公開, 枚舉指定項名稱下的子項(成功返回子項目數(shù),失敗返回-1)
.參數(shù) 項名稱, 文本型
.參數(shù) 子項, 文本型, 可空 數(shù)組, 獲取的子項數(shù)組
.局部變量 局_a, 整數(shù)型
.局部變量 局_計次, 整數(shù)型
.局部變量 局_項名, 文本型
清除數(shù)組 (子項)
局_a ＝ _打開項 (項名稱)
.如果真 (局_a ＝ 0)
 返回 (-1)
.如果真結(jié)束
局_項名 ＝ 取空白文本 (256)
.判斷循環(huán)首 (注冊表_RegEnumKeyA (局_a, 局_計次, 局_項名, 256) ＝ 0)
 加入成員 (子項, 局_項名)
 局_計次 ＝ 局_計次 ＋ 1
 處理事件 ()
.判斷循環(huán)尾 ()
注冊表_RegCloseKey (局_a)
返回 (取數(shù)組成員數(shù) (子項))
.子程序 注冊表_刪除項, 邏輯型, 公開, 刪除指定項名稱以及它的所有子項與鍵值
.參數(shù) 項名稱, 文本型, , 欲刪除的項名稱,尾部不要加"\"
.局部變量 a, 整數(shù)型
.局部變量 b, 整數(shù)型
.局部變量 c, 整數(shù)型
.局部變量 子項, 文本型, , "0"
.局部變量 局_計次, 整數(shù)型
.如果真 (取文本右邊 (項名稱, 1) ＝ “\”)
 返回 (假)
.如果真結(jié)束
c ＝ 倒找文本 (項名稱, “\”, , 假)
a ＝ _打開項 (取文本左邊 (項名稱, c))
.如果真 (a ＝ 0)
 返回 (假)
.如果真結(jié)束
.計次循環(huán)首 (注冊表_枚舉子項 (項名稱, 子項), 局_計次)
 注冊表_刪除項 (項名稱 ＋ “\” ＋ 子項 [局_計次])
.計次循環(huán)尾 ()
b ＝ 注冊表_RegDeleteKeyA (a, 取文本右邊 (項名稱, 取文本長度 (項名稱) － c))
注冊表_RegCloseKey (a)
返回 (b ＝ 0)
.子程序 注冊表_是否存在, 邏輯型, 公開, 判斷指定注冊項名稱(鍵名)是否存在(存在返回真,否則返回假)
.參數(shù) 項名稱, 文本型, , 欲判斷的項名稱
.參數(shù) 鍵名, 文本型, 可空, 欲判斷的鍵名.如果為空則只判斷項名稱是否存在
.局部變量 a, 整數(shù)型
.局部變量 b, 整數(shù)型
.局部變量 值, 字節(jié)集
a ＝ _打開項 (項名稱)
.如果真 (是否為空 (鍵名))
 注冊表_RegCloseKey (a)
 返回 (a ≠ 0)
.如果真結(jié)束
值 ＝ 取空白字節(jié)集 (256)
b ＝ 注冊表_RegQueryValueExA (a, 鍵名, 0, 0, 值, 256)
注冊表_RegCloseKey (a)
返回 (b ＝ 0)
.子程序 注冊表_刪除鍵名, 邏輯型, 公開, 刪除指定項下的某個鍵名
.參數(shù) 項名稱, 文本型, , 欲刪除鍵名所在的項名稱
.參數(shù) 鍵名, 文本型, , 欲刪除的鍵名
.局部變量 a, 整數(shù)型
.局部變量 b, 整數(shù)型
a ＝ _打開項 (項名稱)
.如果真 (a ＝ 0)
 返回 (假)
.如果真結(jié)束
b ＝ 注冊表_RegDeleteValueA (a, 鍵名)
注冊表_RegCloseKey (a)
.子程序 注冊表_刷新項, 邏輯型, 公開, 將對項和它的子項作出的改動實際寫入磁盤
.參數(shù) 項名稱, 文本型
.局部變量 a, 整數(shù)型
.局部變量 b, 整數(shù)型
.局部變量 值, 字節(jié)集
a ＝ _打開項 (項名稱)
.如果真 (a ＝ 0)
 返回 (假)
.如果真結(jié)束
b ＝ 注冊表_RegFlushKey (a)
注冊表_RegCloseKey (a)
返回 (b ＝ 0)

易文件關(guān)聯(lián)修復代碼

.版本 2
.支持庫 eAPI
.程序集 窗口程序集_啟動窗口
.程序集變量 局部_路徑, 文本型
.子程序 __啟動窗口_創(chuàng)建完畢
圖片框2.圖片 ＝ #ICON_e1
圖片框3.圖片 ＝ #ICON_e2
圖片框4.圖片 ＝ #ICON_EC
圖片框5.圖片 ＝ #ICON_EDB
圖片框6.圖片 ＝ #ICON_FNE
圖片框7.圖片 ＝ #ICON_LIB
判斷注冊表 ()
.子程序 判斷注冊表, , , 根據(jù)注冊表項鍵值判斷是否關(guān)聯(lián)
.如果真 (注冊項是否存在 (#根類, “E.Document\shell\open\command\”) ＝ 真)
 局部_路徑 ＝ 取文本注冊項 (#根類, “E.Document\shell\open\command\”, )
 局部_路徑 ＝ 取文本左邊 (局部_路徑, 取文本長度 (局部_路徑) － 5)
 編輯框_易語言主程序.內(nèi)容 ＝ 局部_路徑 ' ＋ “e.exe”
 通用對話框.初始目錄 ＝ 局部_路徑
 .如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.e”))
  .如果 (取文本注冊項 (#根類, “.e\”, ) ＝ “E.Document”)
   .如果 (尋找文本 (取文本注冊項 (#根類, “E.Document\shell\open\command\”, ), 編輯框_易語言主程序.內(nèi)容, , 假) ≠ -1)
    選擇框_易語言源碼_文件雙擊打開.選中 ＝ 真
    選擇框_易語言源碼_文件雙擊打開.禁止 ＝ 真
   .否則
    選擇框_易語言源碼_文件雙擊打開.選中 ＝ 真
   .如果結(jié)束
   .如果 (尋找文本 (取文本注冊項 (#根類, “E.Document\DefaultIcon\”, ), 編輯框_易語言主程序.內(nèi)容, , 假) ≠ -1 或 文件是否存在 (取文本注冊項 (#根類, “E.Document\DefaultIcon\”, )) ＝ 真)
    選擇框_易語言源碼_圖標顯示.選中 ＝ 真
    選擇框_易語言源碼_圖標顯示.禁止 ＝ 真
   .否則
    選擇框_易語言源碼_圖標顯示.選中 ＝ 真
   .如果結(jié)束
   .如果 (注冊項是否存在 (#根類, “.e\ShellNew\NullFile”) ＝ 真)
    選擇框_易語言源碼_右鍵新建易程序.選中 ＝ 真
    選擇框_易語言源碼_右鍵新建易程序.禁止 ＝ 真
   .否則
    選擇框_易語言源碼_右鍵新建易程序.選中 ＝ 真
   .如果結(jié)束
  .否則
   選擇框_易語言源碼_文件雙擊打開.選中 ＝ 真
   選擇框_易語言源碼_圖標顯示.選中 ＝ 真
   選擇框_易語言源碼_右鍵新建易程序.選中 ＝ 真
  .如果結(jié)束
  .如果 (取文本注冊項 (#根類, “.e8\”, ) ＝ “E8.Document”)
   .如果 (尋找文本 (取文本注冊項 (#根類, “E8.Document\DefaultIcon\”, ), 編輯框_易語言主程序.內(nèi)容, , 假) ≠ -1 或 文件是否存在 (取文本注冊項 (#根類, “E8.Document\DefaultIcon\”, )) ＝ 真)
    選擇框_易語言配置信息_圖標顯示.選中 ＝ 真
    選擇框_易語言配置信息_圖標顯示.禁止 ＝ 真
   .否則
    選擇框_易語言配置信息_圖標顯示.選中 ＝ 真
   .如果結(jié)束
   .如果 (尋找文本 (取文本注冊項 (#根類, “E8.Document\Shell\Command\”, ), 編輯框_易語言主程序.內(nèi)容, , 假) ≠ -1 或 文件是否存在 (取文本注冊項 (#根類, “E8.Document\Shell\Command\”, )) ＝ 真)
    選擇框_易語言配置信息_文件雙擊打開.選中 ＝ 真
    選擇框_易語言配置信息_文件雙擊打開.禁止 ＝ 真
   .否則
    選擇框_易語言配置信息_文件雙擊打開.選中 ＝ 真
   .如果結(jié)束
   .如果 (注冊項是否存在 (#根類, “.e8\ShellNew\NullFile”) ＝ 真)
    選擇框_易語言配置信息_右鍵新建易程序配置信息.選中 ＝ 真
    選擇框_易語言配置信息_右鍵新建易程序配置信息.禁止 ＝ 真
   .否則
    選擇框_易語言配置信息_右鍵新建易程序配置信息.選中 ＝ 真
   .如果結(jié)束
   .如果 (尋找文本 (取文本注冊項 (#根類, “E8.Document\Shell\用記事本打開\Command\”, ), 編輯框_易語言主程序.內(nèi)容, , 假) ≠ -1 或 文件是否存在 (取文本注冊項 (#根類, “E8.Document\Shell\用記事本打開\Command\”, )) ＝ 真)
    選擇框_易語言配置信息_右鍵用易語言打開.選中 ＝ 真
    選擇框_易語言配置信息_右鍵用易語言打開.禁止 ＝ 真
   .否則
    選擇框_易語言配置信息_右鍵用易語言打開.選中 ＝ 真
   .如果結(jié)束
   .如果 (文件是否存在 (取文本注冊項 (#根類, “E8.Document\Shell\用記事本打開\Command\”, “notepad.exe” ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號)) ＝ 真)
    選擇框_易語言配置信息_右鍵用記事本打開.選中 ＝ 真
    選擇框_易語言配置信息_右鍵用記事本打開.禁止 ＝ 真
   .否則
    選擇框_易語言配置信息_右鍵用記事本打開.選中 ＝ 真
   .如果結(jié)束
  .否則
   選擇框_易語言配置信息_圖標顯示.選中 ＝ 真
   選擇框_易語言配置信息_文件雙擊打開.選中 ＝ 真
   選擇框_易語言配置信息_右鍵新建易程序配置信息.選中 ＝ 真
   選擇框_易語言配置信息_右鍵用易語言打開.選中 ＝ 真
   選擇框_易語言配置信息_右鍵用記事本打開.選中 ＝ 真
  .如果結(jié)束
  .如果 (取文本注冊項 (#根類, “.ec\”, ) ＝ “ec_auto_file”)
   .如果 (尋找文本 (取文本注冊項 (#根類, “ec_auto_file\DefaultIcon\”, ), 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “ec_auto_file\DefaultIcon\”, )) ＝ 真)
    選擇框_易語言模塊_圖標顯示.選中 ＝ 真
    選擇框_易語言模塊_圖標顯示.禁止 ＝ 真
   .否則
    選擇框_易語言模塊_圖標顯示.選中 ＝ 真
   .如果結(jié)束
  .否則
   選擇框_易語言模塊_圖標顯示.選中 ＝ 真
  .如果結(jié)束
  .如果 (取文本注冊項 (#根類, “.edb\”, ) ＝ “EDB.Document”)
   .如果 (尋找文本 (取文本注冊項 (#根類, “EDB.Document\DefaultIcon\”, ), 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “EDB.Document\DefaultIcon\”, )) ＝ 真)
    選擇框_易數(shù)據(jù)庫文件_圖標顯示.選中 ＝ 真
    選擇框_易數(shù)據(jù)庫文件_圖標顯示.禁止 ＝ 真
   .否則
    選擇框_易數(shù)據(jù)庫文件_圖標顯示.選中 ＝ 真
   .如果結(jié)束
   .如果 (尋找文本 (取文本注冊項 (#根類, “EDB.Document\Shell\Command\”, ), 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “EDB.Document\Shell\Command\”, )) ＝ 真)
    選擇框_易數(shù)據(jù)庫文件_文件雙擊打開.選中 ＝ 真
    選擇框_易數(shù)據(jù)庫文件_文件雙擊打開.禁止 ＝ 真
   .否則
    選擇框_易數(shù)據(jù)庫文件_文件雙擊打開.選中 ＝ 真
   .如果結(jié)束
  .否則
   選擇框_易數(shù)據(jù)庫文件_圖標顯示.選中 ＝ 真
   選擇框_易數(shù)據(jù)庫文件_文件雙擊打開.選中 ＝ 真
  .如果結(jié)束
  .如果 (取文本注冊項 (#根類, “.fne\”, ) ＝ “FNE.Document”)
   .如果 (尋找文本 (取文本注冊項 (#根類, “FNE.Document\DefaultIcon\”, ), 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “FNE.Document\DefaultIcon\”, )) ＝ 真)
    選擇框_易支持庫文件_圖標顯示.選中 ＝ 真
    選擇框_易支持庫文件_圖標顯示.禁止 ＝ 真
   .否則
    選擇框_易支持庫文件_圖標顯示.選中 ＝ 真
   .如果結(jié)束
   .如果 (尋找文本 (取文本注冊項 (#根類, “FNE.Document\Shell\復制到易語言目錄\Command\”, ), 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “FNE.Document\Shell\復制到易語言目錄\Command\”, )) ＝ 真)
    選擇框_易支持庫文件_右鍵復制到易語言目錄.選中 ＝ 真
    選擇框_易支持庫文件_右鍵復制到易語言目錄.禁止 ＝ 真
   .否則
    選擇框_易支持庫文件_右鍵復制到易語言目錄.選中 ＝ 假
   .如果結(jié)束
  .否則
   選擇框_易支持庫文件_圖標顯示.選中 ＝ 真
  .如果結(jié)束
  .如果 (取文本注冊項 (#根類, “.lib\”, ) ＝ “LIB.Document”)
   .如果 (尋找文本 (取文本注冊項 (#根類, “LIB.Document\DefaultIcon\”, ), 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “FNE.Document\DefaultIcon\”, )) ＝ 真)
    選擇框_易靜態(tài)庫文件_圖標顯示.選中 ＝ 真
    選擇框_易靜態(tài)庫文件_圖標顯示.禁止 ＝ 真
   .否則
    選擇框_易靜態(tài)庫文件_圖標顯示.選中 ＝ 真
   .如果結(jié)束
   .如果 (尋找文本 (取文本注冊項 (#根類, “LIB.Document\Shell\復制到易語言目錄\Command\”, ), 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注冊項 (#根類, “FNE.Document\Shell\復制到易語言目錄\Command\”, )) ＝ 真)
    選擇框_易靜態(tài)庫文件_右鍵復制到易語言目錄.選中 ＝ 真
    選擇框_易靜態(tài)庫文件_右鍵復制到易語言目錄.禁止 ＝ 真
   .否則
    選擇框_易靜態(tài)庫文件_右鍵復制到易語言目錄.選中 ＝ 假
   .如果結(jié)束
  .否則
   選擇框_易靜態(tài)庫文件_圖標顯示.選中 ＝ 真
  .如果結(jié)束
 .如果真結(jié)束
.如果真結(jié)束
.子程序 _按鈕_一鍵修復_被單擊
.如果 (修復易語言源碼E () ＝ 真 且 修復易程序配置信息E8 () ＝ 真 且 修復易語言模塊EC () ＝ 真 且 修復易數(shù)據(jù)庫EDB () ＝ 真 且 修復易支持庫FNE () ＝ 真 且 修復易靜態(tài)庫LIB () ＝ 真)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.e”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\E.Document”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.e8”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\E8.Document”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.ec”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\ec_auto_file”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.edb”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\EDB.Document”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.fne”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\FNE.Document”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\.lib”)
 注冊表_刷新項 (“HKEY_CLASSES_ROOT\LIB.Document”)
 刷新注冊表 ()
 刷新注冊表2 ()
 信息框 (“文件關(guān)聯(lián) 修復成功”, 64, “提示”, _啟動窗口.取窗口句柄 ())
.否則
 信息框 (“修復失敗，請以管理員身份運行”, 64, , _啟動窗口.取窗口句柄 ())
.如果結(jié)束
.子程序 e文件關(guān)聯(lián), , , 測試
寫注冊項 (#根類, “.e\”, “”)
寫注冊項 (#根類, “.e\ShellNew\”, “”)
寫注冊項 (#根類, “.e\ShellNew\NullFile”, “”) ' 右鍵新建
寫注冊項 (#根類, “E.Document\”, “易語言程序”) ' 文件描述 ' 此值影響右鍵新建名稱和文
寫注冊項 (#根類, “E.Document\DefaultIcon\”, 編輯框_易語言主程序.內(nèi)容 ＋ “ ,-127”) ' 圖標關(guān)聯(lián)
寫注冊項 (#根類, “E.Document\shell\”, “”)
寫注冊項 (#根類, “E.Document\shell\open\”, “”)
寫注冊項 (#根類, “E.Document\shell\open\command\”, 編輯框_易語言主程序.內(nèi)容 ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ' 打開命令
.子程序 _按鈕_刪除所有_被單擊
.如果真 (信息框 (“此操作將從系統(tǒng)清除所有關(guān)聯(lián)信息” ＋ #換行符 ＋ “包括：*.e 、*.e8 、*.ec 、*.edb 、*.fne 、*.lib?！?＋ #換行符 ＋ #換行符 ＋ “點擊[確認]則繼續(xù)操作，點擊[取消]則退出?！? 1 ＋ 32 ＋ 256, “是否繼續(xù)操作？”, _啟動窗口.取窗口句柄 ()) ＝ #確認鈕)
 .如果 (刪除易語言源碼E () ＝ 真 且 刪除易程序配置信息E8 () ＝ 真 且 刪除易語言模塊EC () ＝ 真 且 刪除易數(shù)據(jù)庫EDB () ＝ 真 且 刪除易支持庫FNE () ＝ 真 且 刪除易靜態(tài)庫LIB () ＝ 真)
  刷新注冊表 ()
  信息框 (“文件關(guān)聯(lián) 修復成功”, 64, “提示”, _啟動窗口.取窗口句柄 ())
 .否則
  信息框 (“修復失敗，請以管理員身份運行”, 64, , _啟動窗口.取窗口句柄 ())
 .如果結(jié)束
.如果真結(jié)束
.子程序 修復易語言源碼E, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。
.局部變量 返回E, 邏輯型, , , 記錄返回值
返回E ＝ 真
.如果真 (選擇框_易語言源碼_圖標顯示.選中 ＝ 真 且 選擇框_易語言源碼_圖標顯示.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.e\”, “E.Document”) ＝ 真 且 寫注冊項 (#根類, “E.Document\”, “易語言程序”) ＝ 真 且 寫注冊項 (#根類, “E.Document\DefaultIcon\”, 編輯框_易語言主程序.內(nèi)容 ＋ #圖標127) ＝ 真)
  返回E ＝ 真
 .否則
  返回E ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (選擇框_易語言源碼_文件雙擊打開.選中 ＝ 真 且 選擇框_易語言源碼_文件雙擊打開.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.e\”, “E.Document”) ＝ 真 且 寫注冊項 (#根類, “E.Document\”, “易語言程序”) ＝ 真 且 寫注冊項 (#根類, “E.Document\shell\open\command\”, 編輯框_易語言主程序.內(nèi)容 ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真)
  返回E ＝ 真
 .否則
  返回E ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (選擇框_易語言源碼_右鍵新建易程序.選中 ＝ 真 且 選擇框_易語言源碼_右鍵新建易程序.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.e\”, “E.Document”) ＝ 真 且 寫注冊項 (#根類, “E.Document\”, “易語言程序”) ＝ 真 且 寫注冊項 (#根類, “.e\ShellNew\NullFile”, “”) ＝ 真)
  返回E ＝ 真
 .否則
  返回E ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (返回E)
.子程序 刪除易語言源碼E, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。
.局部變量 刪除返回E, 邏輯型
刪除返回E ＝ 真
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.e”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.e”) ＝ 真)
  刪除返回E ＝ 真
 .否則
  刪除返回E ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\E.Document”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\E.Document”) ＝ 真)
  刪除返回E ＝ 真
 .否則
  刪除返回E ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (刪除返回E)
.子程序 修復易語言模塊EC, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。
.局部變量 _路徑, 文本型
.局部變量 返回EC, 邏輯型, , , 記錄返回值
返回EC ＝ 真
.如果真 (選擇框_易語言模塊_圖標顯示.選中 ＝ 真 且 選擇框_易語言模塊_圖標顯示.禁止 ＝ 假)
 _路徑 ＝ 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5)
 .如果 (寫注冊項 (#根類, “.ec\”, “ec_auto_file”) ＝ 真 且 寫注冊項 (#根類, “ec_auto_file\”, “易語言模塊”) ＝ 真 且 寫注冊項 (#根類, “ec_auto_file\DefaultIcon\”, _路徑 ＋ “help\ec.ico”) ＝ 真)
  寫到文件 (局部_路徑 ＋ “help\ec.ico”, #ICON_EC)
  返回EC ＝ 真
 .否則
  返回EC ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (返回EC)
.子程序 刪除易語言模塊EC, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。
.局部變量 刪除返回EC, 邏輯型
刪除返回EC ＝ 真
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.ec”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.ec”) ＝ 真)
  刪除返回EC ＝ 真
 .否則
  刪除返回EC ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\ec_auto_file”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\ec_auto_file”) ＝ 真)
  刪除返回EC ＝ 真
 .否則
  刪除返回EC ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (刪除返回EC)
.子程序 修復易程序配置信息E8, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。
.局部變量 返回E8, 邏輯型, , , 記錄返回值
返回E8 ＝ 真
.如果真 (選擇框_易語言配置信息_圖標顯示.選中 ＝ 真 且 選擇框_易語言配置信息_圖標顯示.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.e8\”, “E8.Document”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\”, “易程序配置信息”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\DefaultIcon\”, 編輯框_易語言主程序.內(nèi)容 ＋ #圖標134) ＝ 真)
  返回E8 ＝ 真
 .否則
  返回E8 ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (選擇框_易語言配置信息_文件雙擊打開.選中 ＝ 真 且 選擇框_易語言配置信息_文件雙擊打開.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.e8\”, “E8.Document”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\”, “易程序配置信息”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\Shell\Open\Command\”, 編輯框_易語言主程序.內(nèi)容 ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真)
  返回E8 ＝ 真
 .否則
  返回E8 ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (選擇框_易語言配置信息_右鍵新建易程序配置信息.選中 ＝ 真 且 選擇框_易語言配置信息_右鍵新建易程序配置信息.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.e8\”, “E8.Document”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\”, “易程序配置信息”) ＝ 真 且 寫注冊項 (#根類, “.e\ShellNew\NullFile”, “”) ＝ 真)
  返回E8 ＝ 真
 .否則
  返回E8 ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (選擇框_易語言配置信息_右鍵用記事本打開.選中 ＝ 真 且 選擇框_易語言配置信息_右鍵用記事本打開.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.e8\”, “E8.Document”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\”, “易程序配置信息”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\Shell\用記事本打開\Command\”, “notepad.exe” ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真)
  返回E8 ＝ 真
 .否則
  返回E8 ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (選擇框_易語言配置信息_右鍵用易語言打開.選中 ＝ 真 且 選擇框_易語言配置信息_右鍵用易語言打開.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.e8\”, “E8.Document”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\”, “易程序配置信息”) ＝ 真 且 寫注冊項 (#根類, “E8.Document\Shell\用易語言打開\Command\”, 編輯框_易語言主程序.內(nèi)容 ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真)
  返回E8 ＝ 真
 .否則
  返回E8 ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (返回E8)
.子程序 刪除易程序配置信息E8, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。
.局部變量 刪除返回E8, 邏輯型
刪除返回E8 ＝ 真
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.e8”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.e8”) ＝ 真)
  刪除返回E8 ＝ 真
 .否則
  刪除返回E8 ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\E8.Document”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\E8.Document”) ＝ 真)
  刪除返回E8 ＝ 真
 .否則
  刪除返回E8 ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (刪除返回E8)
.子程序 修復易數(shù)據(jù)庫EDB, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。
.局部變量 EDB_路徑, 文本型
.局部變量 返回EDB, 邏輯型, , , 記錄返回值
EDB_路徑 ＝ 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5)
返回EDB ＝ 真
.如果真 (選擇框_易數(shù)據(jù)庫文件_圖標顯示.選中 ＝ 真 且 選擇框_易數(shù)據(jù)庫文件_圖標顯示.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.edb\”, “EDB.Document”) ＝ 真 且 寫注冊項 (#根類, “EDB.Document\”, “易數(shù)據(jù)庫文件”) 且 寫注冊項 (#根類, “LIB.Document\DefaultIcon”, EDB_路徑 ＋ “help\edb.ico”) ＝ 真)
  寫到文件 (EDB_路徑 ＋ “help\edb.ico”, #ICON_EDB)
  返回EDB ＝ 真
 .否則
  返回EDB ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (選擇框_易數(shù)據(jù)庫文件_文件雙擊打開.選中 ＝ 真 且 選擇框_易數(shù)據(jù)庫文件_文件雙擊打開.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.edb\”, “EDB.Document”) ＝ 真 且 寫注冊項 (#根類, “EDB.Document\”, “易數(shù)據(jù)庫文件”) 且 寫注冊項 (#根類, “EDB.Document\Shell\Open\Command”, EDB_路徑 ＋ “tools\EDBView.exe” ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真)
  寫到文件 (局部_路徑 ＋ “tools\EDBView.exe”, #EDBView)
  返回EDB ＝ 真
 .否則
  返回EDB ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (返回EDB)
.子程序 刪除易數(shù)據(jù)庫EDB, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。
.局部變量 刪除返回EDB, 邏輯型
刪除返回EDB ＝ 真
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.edb”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.edb”) ＝ 真)
  刪除返回EDB ＝ 真
 .否則
  刪除返回EDB ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\EDB.Document”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\EDB.Document”) ＝ 真)
  刪除返回EDB ＝ 真
 .否則
  刪除返回EDB ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (刪除返回EDB)
.子程序 修復易支持庫FNE, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。
.局部變量 FNE_路徑, 文本型
.局部變量 返回FNE, 邏輯型, , , 記錄返回值
FNE_路徑 ＝ 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5)
返回FNE ＝ 真
.如果真 (選擇框_易支持庫文件_圖標顯示.選中 ＝ 真 且 選擇框_易支持庫文件_圖標顯示.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.fne\”, “FNE.Document”) ＝ 真 且 寫注冊項 (#根類, “FNE.Document\”, “易支持庫文件”) ＝ 真 且 寫注冊項 (#根類, “FNE.Document\DefaultIcon\”, FNE_路徑 ＋ “help\fne.ico”) ＝ 真)
  寫到文件 (局部_路徑 ＋ “help\fne.ico”, #ICON_FNE)
  返回FNE ＝ 真
 .否則
  返回FNE ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (選擇框_易支持庫文件_右鍵復制到易語言目錄.選中 ＝ 真 且 選擇框_易支持庫文件_右鍵復制到易語言目錄.禁止 ＝ 假)
 FNE_路徑 ＝ 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5)
 .如果 (寫注冊項 (#根類, “.fne\”, “FNE.Document”) ＝ 真 且 寫注冊項 (#根類, “FNE.Document\”, “易支持庫文件”) ＝ 真 且 寫注冊項 (#根類, “FNE.Document\Shell\復制到易語言目錄\Command\”, FNE_路徑 ＋ “tools\CopytoE.exe” ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真)
  寫到文件 (局部_路徑 ＋ “tools\CopytoE.exe”, #CopytoE)
  返回FNE ＝ 真
 .否則
  返回FNE ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (返回FNE)
.子程序 刪除易支持庫FNE, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。
.局部變量 刪除返回FNE, 邏輯型
刪除返回FNE ＝ 真
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.fne”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.fne”) ＝ 真)
  刪除返回FNE ＝ 真
 .否則
  刪除返回FNE ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\FNE.Document”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\FNE.Document”) ＝ 真)
  刪除返回FNE ＝ 真
 .否則
  刪除返回FNE ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (刪除返回FNE)
.子程序 修復易靜態(tài)庫LIB, 邏輯型, , 寫注冊表，成功返回真，失敗返回假。
.局部變量 LIB_路徑, 文本型
.局部變量 返回LIB, 邏輯型, , , 記錄返回值
LIB_路徑 ＝ 取文本左邊 (編輯框_易語言主程序.內(nèi)容, 取文本長度 (編輯框_易語言主程序.內(nèi)容) － 5)
返回LIB ＝ 真
.如果真 (選擇框_易靜態(tài)庫文件_圖標顯示.選中 ＝ 真 且 選擇框_易靜態(tài)庫文件_圖標顯示.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.lib\”, “LIB.Document”) ＝ 真 且 寫注冊項 (#根類, “LIB.Document\”, “易靜態(tài)庫文件”) ＝ 真 且 寫注冊項 (#根類, “LIB.Document\DefaultIcon\”, LIB_路徑 ＋ “help\lib.ico”) ＝ 真)
  寫到文件 (LIB_路徑 ＋ “help\lib.ico”, #ICON_LIB)
  返回LIB ＝ 真
 .否則
  返回LIB ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (選擇框_易靜態(tài)庫文件_右鍵復制到易語言目錄.選中 ＝ 真 且 選擇框_易靜態(tài)庫文件_右鍵復制到易語言目錄.禁止 ＝ 假)
 .如果 (寫注冊項 (#根類, “.lib\”, “LIB.Document”) ＝ 真 且 寫注冊項 (#根類, “LIB.Document\”, “易靜態(tài)庫文件”) ＝ 真 且 寫注冊項 (#根類, “LIB.Document\Shell\復制到易語言目錄\Command\”, LIB_路徑 ＋ “tools\CopytoE.exe” ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號) ＝ 真)
  寫到文件 (LIB_路徑 ＋ “tools\CopytoE.exe”, #CopytoE)
  返回LIB ＝ 真
 .否則
  返回LIB ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (返回LIB)
.子程序 刪除易靜態(tài)庫LIB, 邏輯型, , 刪注冊表，成功返回真，失敗返回假。
.局部變量 刪除返回LIB, 邏輯型
刪除返回LIB ＝ 真
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\.lib”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\.lib”) ＝ 真)
  刪除返回LIB ＝ 真
 .否則
  刪除返回LIB ＝ 假
 .如果結(jié)束
.如果真結(jié)束
.如果真 (注冊表_是否存在 (“HKEY_CLASSES_ROOT\LIB.Document”))
 .如果 (注冊表_刪除項 (“HKEY_CLASSES_ROOT\LIB.Document”) ＝ 真)
  刪除返回LIB ＝ 真
 .否則
  刪除返回LIB ＝ 假
 .如果結(jié)束
.如果真結(jié)束
返回 (刪除返回LIB)
.子程序 刷新注冊表
API_SendMessage (#HWND_BROADCAST, #WM_SETTINGCHANGE, 0, 0)
.子程序 刷新注冊表2
.局部變量 dwResult, 整數(shù)型
API_SendMessageTimeout (#HWND_BROADCAST, #WM_SETTINGCHANGE, 0, 0, #SMTO_NORMAL, 1000, dwResult)
.子程序 _透明標簽1_鼠標左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
打開指定網(wǎng)址 (“//chabaoo.cn/”)
.子程序 _按鈕_瀏覽_被單擊
通用對話框.類型 ＝ 0
通用對話框.標題 ＝ “選擇易語言主程序”
通用對話框.過濾器 ＝ “易語言主程序(e.exe)|e.exe”
.如果真 (通用對話框.打開 ())
 編輯框_易語言主程序.內(nèi)容 ＝ 通用對話框.文件名
.如果真結(jié)束
.子程序 __啟動窗口_尺寸被改變
_啟動窗口.寬度 ＝ 455
_啟動窗口.高度 ＝ 480
.子程序 __啟動窗口_將被銷毀
_啟動窗口.銷毀 ()

運行結(jié)果：