。支持庫eImgConverter
。支持庫eAPI
支持庫shellEx
。支持庫外殼。組裝車窗組件6。選擇子程序_列表框1_列表項。
。局部變量壁紙的句柄，整數圖片框1。圖片=讀取文件(列表框1。取項目文本(列表框1。取焦點項()))
壁紙句柄=加載的圖片(圖片框1。圖片)
標簽5。title = " width:"+到文本(畫板1。取圖片寬度(壁紙手柄))
標簽6。title = " Height:"+到文本(畫板1。取圖片的高度(壁紙手柄))
卸載圖片(壁紙手柄)。子程序_列表框1_雙擊選擇。
。局部變量壁紙文件名，文本當前壁紙=列表框1。獲取焦點項目()
壁紙的文件名=列表框1。取項目文本(當前壁紙)。
如果為true(改為大寫(取文字右側(壁紙文件名，4))8800；"。BMP”)
如果為真(轉換成BMP(壁紙文件名，程序目錄+"壁紙。BMP") = 1)
壁紙的文件名=程序目錄+“wallpaper . BMP”
如果結束了。如果結束了
。判斷開始(單選框1。已選擇)
設置桌面壁紙(壁紙文件名，1)
法官(無線電信箱2。選擇)
設置桌面壁紙(壁紙文件名，2)
。默認
設置桌面壁紙(壁紙文件名，0)
審判結束
。子程序框4被點擊。如果(方框4。選中=真)
_啟動窗口。時鐘2。時鐘周期=至值(編輯框2。內容)× 60000。
編輯框2。禁止=假
否則。
編輯框2。禁止=真
_啟動窗口。時鐘2。時鐘周期= 0
如果結束了
子程序_壁紙管理_將被銷毀。
。局部變量保存壁紙文件，整數類型。
。局部變量壁紙循環，整數保存壁紙文件=打開文件(程序目錄+"wallab。ini "，4，)
清除數組(壁紙列表)
。如果為真(保存壁紙文件≠ 0)
。先算周期(列表框1。取物品數量()，壁紙周期)
寫壹行文字(保存壁紙文件，列表框1。拍攝項目文本(壁紙循環-1))
加入會員(壁紙列表，列表框1。取項目文本(壁紙循環-1))
。計數周期尾部()
關閉文件(保存壁紙文件)
如果真的結束了。
如果(復選框4。檢查)
_啟動窗口。時鐘2。時鐘周期=至值(編輯框2。內容)× 60000。
寫配置項(程序目錄+"時鐘。ini”，“換壁紙”，“間隔”，編輯框2。內容)
寫配置項(程序目錄+"時鐘。ini”、“更改壁紙”、“自動更改”、“y”)
否則。
_啟動窗口。時鐘2。時鐘周期= 0
寫配置項(程序目錄+"時鐘。ini”、“更改壁紙”、“自動更改”、“n”)
寫配置項(程序目錄+"時鐘。ini”，“換壁紙”，“間隔時間”，"")
如果結束了
判斷開始(單選框2。選擇)
寫配置項(程序目錄+"時鐘。ini”、“更改壁紙”、“顯示模式”、“2”)
法官(無線電信箱1。選擇)
寫配置項(程序目錄+"時鐘。ini”、“更改壁紙”、“顯示模式”、“1”)
。默認
寫配置項(程序目錄+"時鐘。ini”、“更改壁紙”、“顯示模式”、“0”)
審判結束
子程序_壁紙管理_已創建。
局部變量將壁紙周期值作為壹個整數。如果為真(取數組成員數(壁紙列表)> 0)。
。計算循環頭(取數組成員數(壁紙列表)和壁紙循環值)
如果為真(文件是否存在(壁紙列表[取壁紙周期值]))
列表框1。添加壹項(壁紙列表[取壁紙周期值]，)
。如果真的結束了。計算周期的結束時間()
如果真的結束了。
。如果為真(_啟動窗口。時鐘2。時鐘周期> 0)
編輯框2。Content = to text (_開始窗口。時鐘2。時鐘周期÷ 60000)
選擇方框4。選中=真
如果真的結束了。
列表框1。選擇壹個項目(當前壁紙)
_列表框1_列表項被選中()
添加提示(圖片框1。取窗口句柄()，“雙擊鼠標清除壁紙”，假，假)
如果為真(表單可以透明嗎)
設置窗口透明度(取窗口句柄()，230)
如果真的結束了。
。子程序_編輯框2_內容已更改。如果是(選擇方框4。選擇)
_啟動窗口。時鐘2。時鐘周期=至值(編輯框2。內容)× 60000。
如果真的結束了。
。子程序_壁紙管理_可關閉，邏輯類型返回(真)。子程序_圖片框1_被雙擊，邏輯類型。
。參數橫向位置，整數類型
。整型參數的垂直位置
參數功能鍵狀態，整數設置桌面壁紙("，)
子例程_ Hyperbutton 1_被單擊。
。局部變量采用文本類型的打開文件名。
。本地變量保存文件名，文本類型，“0”
。局部變量循環取值，整數取打開文件名=打開多文件對話框(壁紙管理。取窗口句柄()，“請選擇要加入的壁紙”，“JPG，BMP，ICO|*。JPG；*.BMP*.ICO "，)
如果為真(取打開的文件名8800；" ")
保存文件名=拆分文本(取打開的文件名，"；), )
。計算循環頭(取數組成員的數量(保存文件名)，並循環這些值)
列表框1。添加項目(保存文件名[循環值]，)
加入成員(壁紙列表，保存文件名[循環值])
。計數周期尾部()
如果真的結束了。
。子例程_ Hyperbutton 2_被單擊。
。局部變量壁紙目錄，文本類型
。局部變量采用文件名，整數類型。
。局部變量壁紙類型，文本類型，“4”
局部變量保存壁紙的文件名，文本壁紙類型= {"*。jpg "，" *。BMP "，" *。ico"}。
壁紙目錄=瀏覽文件夾(“請選擇壹個目錄來搜索壁紙”，true)
如果為真(壁紙目錄≦“”)
如果為真(取文本右側(壁紙目錄，1)8800；" \ ")
壁紙目錄=壁紙目錄+"\ "
如果真的結束了。
。計數循環頭(4，取文件名)
保存壁紙文件名=查找文件(壁紙目錄+壁紙類型[取文件名]，)
判斷循環頭(保存壁紙文件名≦"；)
列表框1。添加項目(壁紙目錄+保存的壁紙的文件名)
加入會員(壁紙列表，壁紙目錄+保存壁紙文件名)
保存壁紙文件名=查找文件(，)
。判斷循環的結束()
。計數周期尾部()
如果真的結束了。
。子程序_超級按鈕3_被點擊。
。局部變量循環檢索文件，整數類型。如果為真(列表框1。檢索到的項目數()> 0)
。計算循環頭(列表框1。取項數()，取文件中的壹個循環數)
列表框1。選擇壹個項目(循環文件-1，)
。計數周期尾部()
如果真的結束了。
。子程序_ Hyperbutton 4_被點擊。
。局部變量保存文件名數組，文本類型，“0”
。局部變量循環命名，整型清空數組(保存文件名數組)。
如果為真(列表框1。取所選項目的數量()> 0)
。計算循環頭(列表框1。取項目數()並命名循環)
如果為真(列表框1。是否選中(循環名-1) = false)
添加成員(保存文件名數組，列表框1。獲取項目文本(循環命名為-1))
。如果真的結束了。計算周期的結束時間()
列表框1。空()
清除數組(壁紙列表)
計算循環頭數(取數組成員數(保存文件名array)並命名循環)
列表框1。添加項目(保存文件名數組[循環命名]，)
添加成員(壁紙列表，保存文件名數組[循環名])
。計數周期尾部()
如果真的結束了。