 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
小柯
註冊時間: 2003-11-27
文章: 75
第 1 樓
|
 發表於: 星期三 八月 25, 2021 9:34 pm 文章主題: 如何偵測unicode補完計畫是否已安裝? |
 |
|
| 請教各位先前，我的程式內目前是使用unicode補完計畫來決解unicode無法正常顯示的問題,但幾次Windows 10不定期更新後,發現總會自動將C_950.NLS替換掉,而使unicode補完計畫喪失功能,則必需再用手動的方式再將unicode補完計畫安裝一遍,而我想請教的是,有没有辦法在FoxPro程式內自動偵測是否已安裝unicode補完計畫,若無安裝,則可以在自已的程式內自動安裝,或者提示訊息,請使用者手動安裝?謝謝。 |
|
| 回頂端 |
|
 |
ckp6250
註冊時間: 2004-07-30
文章: 1644
第 2 樓
|
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 3 樓
|
| 發表於: 星期四 八月 26, 2021 10:43 am 文章主題: |
|
|
| 代碼: |
LOCAL W1_cShowText,; && C 顯示 [補完計畫] 安裝資訊
W1_lUnicode_At_on,; && L 是否有安裝 [Unicode 補完計畫 2.50 正式版]
W1_cWinDir,; && C Windows 系統資料夾(含完整路徑)
W1_cSysWOW64Dir,; && C Windows 的 SysWOW64 資料夾(含完整路徑)
W1_cSystem32Dir && C Windows 的 System32 資料夾(含完整路徑)
W1_cShowText = ""
W1_lUnicode_At_on = .F.
W1_cWinDir = ADDBS(GETENV("WINDIR"))
W1_cSysWOW64Dir = ADDBS(W1_cWinDir+"SysWOW64")
W1_cSystem32Dir = ADDBS(W1_cWinDir+"System32")
IF !EMPTY(W1_cWinDir)
IF W1_lUnicode_At_on = .F.
IF ADIR(W1_aC_950_NLS_File, FORCEPATH("C_950.NLS", W1_cSysWOW64Dir)) > 0
IF W1_aC_950_NLS_File[1, 3] = DATE(2006, 1, 28)
W1_cShowText = "Unicode 補完計畫 2.50 正式版 (" + FORCEPATH("C_950.NLS", W1_cSysWOW64Dir) + " 2006/01/28 " + W1_aC_950_NLS_File[1, 4] + ")"
W1_lUnicode_At_on = .T.
ENDIF
ENDIF
ENDIF
IF W1_lUnicode_At_on = .F.
IF ADIR(W1_aC_950_NLS_File, FORCEPATH("C_950.NLS", W1_cSystem32Dir)) > 0
IF W1_aC_950_NLS_File[1, 3] = DATE(2006, 1, 28)
W1_cShowText = "Unicode 補完計畫 2.50 正式版 (" + FORCEPATH("C_950.NLS", W1_cSystem32Dir) + " 2006/01/28 " + W1_aC_950_NLS_File[1, 4] + ")"
W1_lUnicode_At_on = .T.
ENDIF
ENDIF
ENDIF
ENDIF
IF W1_lUnicode_At_on = .F.
W1_cShowText = "未安裝！"
ENDIF
|
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 75
第 4 樓
|
| 發表於: 星期四 八月 26, 2021 11:30 am 文章主題: |
|
|
| 很感謝朱先進提供的程式碼,經測試可行,謝謝。 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 5 樓
|
| 發表於: 星期四 八月 26, 2021 3:05 pm 文章主題: |
|
|
還以為用 影像 識別,
先準備一張 打"堃"會出現? 的圖片,求出特徵值A,
然後執行時打一個"堃"字,抓取圖片,求出特徵值B,
如果特徵值A = 特徵值B,就表示未安裝
XD
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 75
第 6 樓
|
| 發表於: 星期日 五月 08, 2022 10:42 am 文章主題: |
|
|
| 請教朱先進,是否有辦法在Win10及Win11作業系統中,當FoxPro程式中偵測無安裝unicode補完時,可程式化自動化安裝unicode補完,謝謝賜教。 |
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 7 樓
|
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 8 樓
|
| 發表於: 星期二 五月 10, 2022 9:41 am 文章主題: |
|
|
批次檔 可以參考這篇
http://vfp.sunyear.com.tw/viewtopic.php?t=6590&highlight=C_950
但要注意:
1. C_950.NLS 檔案的日期是 2006/01/28, 上面的偵測程式就是用檔案的日期'判斷
2.執行該批次檔必須要 administrator (系統管理者)權限執行.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 75
第 9 樓
|
| 發表於: 星期五 五月 13, 2022 9:35 pm 文章主題: |
|
|
| 感謝賜教 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
