易語言簡單的安裝代碼總結(jié)

新建一個窗口程序，然后添加一個時鐘，再添加兩個按鈕（名稱別去修改，就這樣）

首先復(fù)制粘貼DLL部分內(nèi)容：

.版本 2

.DLL命令 CallWindowProc, 整數(shù)型, "user32.dll", "CallWindowProcA", , 呼叫窗口函數(shù)地址
.參數(shù) 前一窗口函數(shù)地址, 字節(jié)集
.參數(shù) 窗口句柄, 整數(shù)型
.參數(shù) 消息值, 整數(shù)型
.參數(shù) 附加參數(shù)1, 整數(shù)型
.參數(shù) 附加參數(shù)2, 整數(shù)型

.DLL命令 lstrcpyn, 整數(shù)型, "kernel32.dll","lstrcpyn",,把第二個參數(shù)復(fù)制給第一個參數(shù),第三個參數(shù)是指復(fù)制的個數(shù)
.參數(shù) lpString1, 字節(jié)型, 傳址
.參數(shù) lpString2, 字節(jié)型, 傳址
.參數(shù) iMaxLength, 整數(shù)型

接著雙擊窗口中間空白的地方，跳到窗口程序集1，復(fù)制以下內(nèi)容，粘貼進去即可

.版本 2

.程序集 窗口程序集1
.程序集變量 是否已經(jīng)注冊, 邏輯型
.程序集變量 已注冊子程序地址, 整數(shù)型
.程序集變量 已注冊子程序內(nèi)存數(shù)據(jù)地址, 整數(shù)型 //放到全局變量中

.子程序 _啟動子程序, 整數(shù)型, , 本子程序在程序啟動后最先執(zhí)行
置錯誤提示管理 (&錯誤提示管理)
已注冊子程序地址 ＝ 到數(shù)值 (&子程序1)
已注冊子程序內(nèi)存數(shù)據(jù)地址 ＝ lstrcpyn (已注冊子程序地址, 已注冊子程序地址, 0)
載入 (啟動窗口, , 假)
返回 (0) ' 可以根據(jù)您的需要返回任意數(shù)值

.子程序 錯誤提示管理, 邏輯型, , 本命令用來設(shè)置當(dāng)運行時如果產(chǎn)生了導(dǎo)致程序崩潰的嚴(yán)重錯誤時用來對該錯誤進行詳細(xì)提示的子程序地址，如果未進行此項設(shè)置，發(fā)生嚴(yán)重錯誤時運行時環(huán)境將自動提示該錯誤的詳細(xì)信息并直接退出
.參數(shù) 錯誤代碼, 整數(shù)型, , 用作接收錯誤代碼
.參數(shù) 錯誤文本, 文本型, , 用作接收詳細(xì)錯誤文本

' 該子程序必須返回一個邏輯值，返回真表示已經(jīng)自行處理完畢，系統(tǒng)將不再顯示該錯誤信息，返回假表示由系統(tǒng)來繼續(xù)顯示該錯誤信息。以上設(shè)置必須完全正確，否則結(jié)果不能預(yù)測，另外，還請注意以下幾點：
' 1、該錯誤提示子程序不要再引發(fā)新的錯誤；
' 2、在進入該錯誤提示子程序后，系統(tǒng)將自動關(guān)閉事件消息通知處理機制，也就是說任何事件將無法得到響應(yīng)；
' 3、無論如何，當(dāng)該子程序調(diào)用退出后，系統(tǒng)將自動將整個應(yīng)用程序關(guān)閉。 如果省略本參數(shù)，系統(tǒng)將恢復(fù)錯誤提示的默認(rèn)處理方
信息框 (“程序出錯!” ＋ #換行符 ＋ “錯誤代碼: 00000” ＋ 到文本 (錯誤代碼), 64, “友情提示”)
返回 (真)

.子程序 Call內(nèi)存, 整數(shù)型
.參數(shù) 內(nèi)存地址, 整數(shù)型, , 存放調(diào)用子程序地址數(shù)據(jù)的內(nèi)存地址

返回 (CallWindowProc ({ 255, 37 } ＋ 到字節(jié)集 (內(nèi)存地址), 0, 0, 0, 0)) ' JMP DS:

.子程序 _按鈕1_被單擊, , , 暗樁

時鐘1.時鐘周期 ＝ 120

.子程序 _按鈕2_被單擊, , , 已經(jīng)注冊

是否已經(jīng)注冊 ＝ 真 ' 假設(shè)已經(jīng)被爆
.如果真 (是否已經(jīng)注冊)
Call內(nèi)存 (已注冊子程序內(nèi)存數(shù)據(jù)地址)
.如果真結(jié)束

.子程序 _時鐘1_周期事件

是否已經(jīng)注冊 ＝ 假 ' 這里表示沒能通過注冊
.如果 (是否已經(jīng)注冊)

.否則
已注冊子程序地址 ＝ 到數(shù)值 (&子程序2)
.如果結(jié)束

.子程序 子程序1

信息框 (“已經(jīng)注冊”, 0, )

.子程序 子程序2

信息框 (“暗樁”, 0, )

以上就是本次整理關(guān)于易語言安裝的全部內(nèi)容，感謝大家對億速云的支持。