判斷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字串?
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |