判斷Windows是否是繁體版及如何進行字元轉換? |
|
答題得分者是：pcboy2
|
|
h@visli
資深會員   發表：103 回覆：429 積分：431 註冊：2004-02-13 發送簡訊給我 |
|
|
pcboy
版主  發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
// Delphi 7
// GetSystemDefaultLang 取得系統預設語系 // GetUserDefaultLang 取得使用者預設語系 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; function GetSystemDefaultLang:String; function GetUserDefaultLang:String; implementation function GetSystemDefaultLang:String; var SystemID: LANGID; SystemOp: array[0..101] of Char; begin SystemID := GetSystemDefaultLangID(); VerLanguageName(SystemID, SystemOp, sizeof(SystemOp)); Result:=SystemOp; end; function GetUserDefaultLang:String; var UserID: LANGID ; UserOp: array[0..101] of Char; begin UserID := GetUserDefaultLangID(); VerLanguageName(UserID, UserOp, sizeof(UserOp)); Result:=UserOp; end; end. ===================引 用 文 章=================== Hi, 請教各位： 1、如何判斷當前Windows是否是繁體版？
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
|
pcboy
版主 發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
http://delphi.ktop.com.tw/board.php?cid=30&fid=76
===================引 用 文 章=================== 2、如何把簡體ANSI字串轉換為繁體ANSI字串?
------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！ 子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！ |
發表時間：2007-02-01 16:01:00
IP:219.134.xxx.xxx 訂閱
系統時間：2024-04-16 19:37:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |