易語言安裝文件圖標

『壹』 鏄撹璦緙栬瘧瀹夎呯▼搴廍XE 閭ｄ釜鑳戒笉鑳藉姞鍥炬爣

璁劇疆鍥炬爣鐨勬椂鍊欎綘鍙浠ユ彁鍓嶅湪鑿滃崟鎷︾殑錛堢▼搴忥級錛堥厤緗錛夐噷闈㈣劇疆

鐪嬩笅鍥劇墖鍚э細

鎵撳紑閰嶇疆紿楀彛鍚庯紝涓嬮潰鏈変釜璁劇疆鍥炬爣銆

璁頒綇錛屽浘鏍囨牸寮忎竴瀹氳両CO鏍煎紡鐨勶紝浣犲埆鎼炴垚JPG鍥劇墖鏍煎紡浜嗐

『貳』 易語言取exe圖標

.版本 2
.支持庫 eSkin
.支持庫 xplib
.支持庫 shell
.支持庫 eAPI.程序集 窗口程序集1
.程序集變數 實名, 文本型
.程序集變數 圖標數, 整數型.子程序 __啟動窗口_創建完畢寫到文件 (取運行目錄 () ＋ 「skn」, #皮膚)
易皮膚_載入皮膚 (取運行目錄 () ＋ 「skn」, )
XP風格 (3)
編輯框1.內容 ＝ 取特定目錄 (3).子程序 _打開_被單擊
.局部變數 文件名, 文本型
.局部變數 n, 整數型圖片框1.圖片 ＝ { }
通用對話框1.過濾器 ＝ 「資源文件(*.dll;*.exe)|*.dll;*.exe」
.如果真 (通用對話框1.打開 ())
文件名 ＝ 通用對話框1.文件名
實名 ＝ 取短文件名 (文件名) ＋ 「.ico」
n ＝ 提取資源文件圖標 (文件名, 0, 取特定目錄 (#臨時文件目錄) ＋ 實名, )
.如果 (n ＝ 0)
信息框 (「該文件沒有圖標」, 0, )
.否則
圖片框1.圖片 ＝ 讀入文件 (取特定目錄 (#臨時文件目錄) ＋ 實名) .如果結束.如果真結束
圖標數 ＝ 0
編輯框2.內容 ＝ 通用對話框1.文件名
圖標數 ＝ 提取資源文件圖標 (編輯框2.內容, 1, , )
.如果 (圖標數 ＞ 0)
信息框 (「該文件內一共有 」 ＋ 到文本 (圖標數) ＋ 「 個圖標...」, #信息圖標, 「恭喜...」)
.否則
信息框 (「該文件內無圖標哦...」, #警告圖標, 「提示信息」)
.如果結束 .子程序 取短文件名, 文本型
.參數 文件名, 文本型
.局部變數 m, 文本型
.局部變數 短文件名, 文本型m ＝ 取文本右邊 (文件名, 取文本長度 (文件名) － 倒找文本 (文件名, 「\」, , 假))
短文件名 ＝ 取文本左邊 (m, 倒找文本 (m, 「.」, , 假) － 1)
返回 (短文件名).子程序 _保存_被單擊
.局部變數 序號, 整數型
瀏覽文件夾 (「選擇要保存到的文件夾」, )
.計次循環首 (圖標數, 序號)
提取資源文件圖標 (編輯框2.內容, 0, 編輯框1.內容 ＋ 「圖標」 ＋ 到文本 (序號) ＋ 「.ico」, 序號)
_啟動窗口.標題 ＝ 「正在提取: 」 ＋ 編輯框1.內容 ＋ 「圖標」 ＋ 到文本 (序號) ＋ 「.ico」
延時 (20)
.計次循環尾 ()
_啟動窗口.標題 ＝ 「文件圖標提取器」
信息框 (「圖標提取完畢...」, #信息圖標, 「恭喜...」)

『叄』 易語言怎麼獲取exe文件的圖標，，lnk文件是怎麼獲取文件圖標的

用到這個命令, 系統_取桌面快捷方式,

取得一個快捷方式所在的EXE文件名, 然後用拖放對象,注冊拖放控制項,

注意,拖放控制這個命令有點,怪, 一定將屬性中的得到文件設為真才有效, 是得到文件,不是得到文本哦, 不然就錯了,

先取得這個EXE文件所在目錄下的圖標數量, 提取資源圖標,

再用計次循環計次,

那個要提取的數量序號,這里就用計次代替, 一定要填寫,