❶ 易語言取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)
.計次循環尾 ()
_啟動窗口.標題 ＝ 「文件圖標提取器」
信息框 (「圖標提取完畢...」, #信息圖標, 「恭喜...」)
❷ 易語言怎麼取外部 程序編輯框裡面的內容了
1.尋找窗口句柄。
2枚舉子窗口，當然，前提是這個外部程序里的編輯框不是自繪的，如果是自繪編輯框，那就得不到內容。
3.在枚舉到子窗口後，編輯框1.內容=枚舉子窗口[X]
❸ 易語言怎麼把編輯框里的文字直接保存到EXE程序里 不需要另存為 編輯框旁邊有個目錄
用寫到文件就可以了，文件名加上路徑就能保存到對應路徑對應文件名的TXT 文件了 要加後綴
給你個源碼 自己看一下
.版本 2
.支持庫 shell
.程序集 窗口程序集1
.子程序 _按鈕3_被單擊
寫到文件 (取運行目錄 () ＋ 「\1.txt」, 到位元組集 (編輯框1.內容))
.子程序 _按鈕2_被單擊
執行 (4, 取運行目錄 () ＋ 「\1.txt」, , , )