| [12882] 意地と根性で修正 | 返信 削除 |
| 2019/5/27 (月) 17:11:10 Mr.XRAY |
|
意地と根性で修正して更新しました． [ locale.nls ファイルに元号の情報を追加するプログラム ] > ここのリンクの記事にある「専用アプリ」てすが，分かりません． > ↑ の記事の内容も気になっていました．MD5 ハッシュの値を列挙するぐらいなら， 具体的な場所と値を提示してしまえばいいのに． ということはさておいて． 気になって長い形式を調べたら gg y'年'M'月' というが追加されていました．もちろん，元号追加前にはありません． で，意地と根性で調べました．元号の数が， > 年号の個数: オフセット: 3F8D4 > 4 → 5 というのは違うようです．私も 4 という数字に惑わされてしまいました． 何故こんなところに元号の数があるんだ ? とは思っていたことはいたのですが． 以下は，短い形式と長い形式を調べるために使用したコードです． EXE 作成は Windows 7 U64(SP1) + Delphi XE5(UP2) Pro VCL-32 です． TFNDateFmtEnumProcEx = TFarProc; function EnumDateFormatsExW(lpDateFmtEnumProc: TFNDateFmtEnumProcEx; Locale: LCID; dwFlags: DWORD): BOOL; stdcall; external 'kernel32.dll'; var Form1: TForm1; implementation var FStrList : TStringList; {$R *.dfm} //------------------------------------------------------------------------------ // EnumDateFormatsExW 関数のコールバック関数 // 日付の形式の書式文字列を列挙 // // 引数の CalendarID の値は以下の通り // [和暦] [西暦 (英語(] [西暦 (日本語)] の個別のリストを取得する場合に使用する // // 1: CAL_GREGORIAN Gregorian (localized) // 2: CAL_GREGORIAN_US Gregorian (English strings always) // 3: CAL_JAPAN Japanese Emperor Era //------------------------------------------------------------------------------ function EnumDateFormatsProcEx(lpDateFormatString : PChar; CalendarID: CALID) : integer; stdcall; begin FStrList.Add(lpDateFormatString); Result := 1; end; //============================================================================ // [地域と言語のオプション] [カスタマイズ] のダイアログを表示 // [日付] タブの [短い形式] の選択リスト // ただし [和暦] [西暦 (英語(] [西暦 (日本語)] 全てのリスト //============================================================================ procedure TForm1.Button1Click(Sender: TObject); begin FStrList := TStringList.Create; try EnumDateFormatsExW(@EnumDateFormatsProcEx, LOCALE_SYSTEM_DEFAULT, DATE_SHORTDATE); Memo1.Lines.Text := FStrList.Text; finally FreeAndNil(FStrList); end; end; //============================================================================ // [地域と言語のオプション] [カスタマイズ] のダイアログを表示 // [日付] タブの [長い形式] の選択リスト // ただし [和暦] [西暦 (英語(] [西暦 (日本語)] 全てのリスト //============================================================================ procedure TForm1.Button2Click(Sender: TObject); begin FStrList := TStringList.Create; try EnumDateFormatsExW(@EnumDateFormatsProcEx, LOCALE_SYSTEM_DEFAULT, DATE_LONGDATE); Memo1.Lines.Text := FStrList.Text; finally FreeAndNil(FStrList); end; end;  |