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

這篇文章主要介紹了易語言怎么通過注冊(cè)表將易文件關(guān)聯(lián)修復(fù)的源碼，具有一定借鑒價(jià)值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

在虹口等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè) 網(wǎng)站設(shè)計(jì)制作按需求定制設(shè)計(jì),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站設(shè)計(jì),成都全網(wǎng)營(yíng)銷,成都外貿(mào)網(wǎng)站建設(shè),虹口網(wǎng)站建設(shè)費(fèi)用合理。

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

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

.版本 2
.常量 HWND_BROADCAST, "65535"
.常量 WM_SETTINGCHANGE, "26"
.常量 SMTO_NORMAL, "0"
.常量 圖標(biāo)126, "<文本長(zhǎng)度: 5>", , ,-126 紅
.常量 圖標(biāo)127, "<文本長(zhǎng)度: 5>", , ,-127 藍(lán)
.常量 圖標(biāo)134, "<文本長(zhǎng)度: 5>", , ,-134 紅

注冊(cè)表刪除代碼

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

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

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

運(yùn)行結(jié)果：

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“易語言怎么通過注冊(cè)表將易文件關(guān)聯(lián)修復(fù)的源碼”這篇文章對(duì)大家有幫助，同時(shí)也希望大家多多支持創(chuàng)新互聯(lián)，關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來學(xué)習(xí)!

網(wǎng)站欄目：易語言怎么通過注冊(cè)表將易文件關(guān)聯(lián)修復(fù)的源碼
本文URL：http://bm7419.com/article38/jcessp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供建站公司、品牌網(wǎng)站建設(shè)、網(wǎng)站維護(hù)、網(wǎng)站策劃、云服務(wù)器、Google

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)