anchor.diff:          WLine(')');
   
         WLine('');
  -      if SysIsZhCN then
  +      if IsZhLang then
           WLine('// 注册Form资源')
         else
           WLine('// Register Form Resources');
  
positive.code:     // 如果不存在 main.go文件，则新建一个
      if not LMainFileExists then
      begin
        if SysIsZhCN then
          LMainDotGo.Add('// 由res2go自动生成。')
        else
          LMainDotGo.Add('// Automatically generated by the res2go.');
  
negative.code:   "zh-SG":  4100, // 简体
    "zh-TW":  1028, // 繁体
  }
  function IsZhLang: Boolean;
  {$IFDEF WINDOWS}
  const
     Langs:array[0..4] of Integer = (2052, 3076, 5124, 4100, 1028);
  {$ELSE}
  const
     Langs:array[0..4] of string = ('zh_CN', 'zh_HK', 'zh_MO', 'zh_SG', 'zh_TW');
  {$ENDIF}
  var
    I: Integer;
  begin
    Result := False;
    for I := 0 to High(Langs) do
    begin
    {$IFDEF MSWINDOWS}
      if Langs[I] = SysLocale.DefaultLCID then
    {$ELSE}
      if Pos(Langs[I], GetEnvironmentVariable('LANG')) <> -1 then
    {$ENDIF}
        Exit(True);
    end;
  end;
  
  // 获取指命令行的一下个参数
  