引言: 各位大大，我在KTOP下了一个DELPHI程序的简体转繁体的程式，我用它把程序里的文字都转换成繁体。。。我也将窗体的字符集该成的繁体的，但一到繁体系统上运行。。。汗。。。全是乱码，没一个能看懂的字。请问我还需要改什么吗？哪些简繁体软件怎么自动转换的。。。谢谢！ ======================= 无情剑客多情剑

jackalan：
anpino版大有介紹的cvcode元件(是Delphi元件)，本園地可下載！
裡面有2個function可用:
AnsiString GBtoBIG5(AnsiString value);
AnsiString BIG5toGB(AnsiString value);
(GB=簡體 BIG5=繁體)
value 是要轉的字串，回傳轉換後的字串。
注意BIG5toGB回傳的字串需要在簡體環境的OS才能正確顯示喔。    // 以下範例為我於繁體系統開發程式。
int SystemID;
int UserID;    void __fastcall TForm1::FormShow(TObject *Sender)
{
  SystemID = GetSystemDefaultLangID(); // 1028 繁體 2052 簡體
  UserID   = GetUserDefaultLangID();   // 我都是使用UserID判斷
  if (UserID == 2052) {
    this->Font->Name="宋體";
    this->Caption=CvCode1->BIG5toGB("自動備份程式");
    DRLabel1->Caption=CvCode1->BIG5toGB("自動備份程式");
    N5->Caption=CvCode1->BIG5toGB("參數設定");
    N4->Caption=CvCode1->BIG5toGB("立即備份");
    N3->Caption=CvCode1->BIG5toGB("關於本程式");
    N1->Caption=CvCode1->BIG5toGB("結束");
    TrayIcon1->Hint=CvCode1->BIG5toGB("自動備份");
  }
}         對不起！我不會Delphi但這真的很方便，又可於繁簡系統自動切換。
請參考！

引言: andychang1690兄谢谢，请问我这样用后窗体的字符集要怎么改？繁体系统下字体有没有特殊要求。 SystemID = GetSystemDefaultLangID(); // 1028 繁體 2052 簡體 UserID = GetUserDefaultLangID(); // 我都是使用UserID判斷 您取了两个值，那是判断哪个值相对来说准确些。 ======================= 无情剑客多情剑

if (UserID == 2052) { // 簡體中文系統
  this->Font->Name=BIG5toGB(""宋體");
  this->Caption=CvCode1->BIG5toGB("自動備份程式");
  Label1->Caption=CvCode1->BIG5toGB("自動備份程式");
  N5->Caption=CvCode1->BIG5toGB("參數設定");
  N4->Caption=CvCode1->BIG5toGB("立即備份");
  N3->Caption=CvCode1->BIG5toGB("關於本程式");
  N1->Caption=CvCode1->BIG5toGB("結束");
  TrayIcon1->Hint=CvCode1->BIG5toGB("自動備份");
}
你的系統是簡體所以你用簡體開發於繁體中文你的程式UserID會等於1028
所以你的用法要跟我相反
if (UserID == 1028) { // 繁體中文系統
  this->Font->Name=GBtoBIG5("細明體");
  this->Caption=CvCode1->GBtoBIG5("自動備份程式");
  // 假設藍字部分為簡體字
}
請參考！