[delphi-users:4264] 実行時パッケージとMessageDlgの表示言語

[がぅ]

白坂と申します

XP+D7 Proで作成したアプリケーションを　Win7 64bit+XE7 Proで再構築し始め
たところです

日本語/英語両対応のアプリケーションのため　D7時はプロジェクトオプション
のパッケージタブページで「実行時パッケージを使って構築」をチェックしてビ
ルドを行った後　リソースDLLウィザードでリソースを作成/翻訳の上　実行ファ
イル(*.exe)と言語リソースファイル(*.JPN,*.ENU)及び　実行時パッケージとし
て必要な各種BPLファイルを配布しておりました
上記のアプリケーションでMessageDlg関数でダイアログ表示を行うと　日本語
Windows上ではダイアログのタイトル/ボタンは日本語　英語Windows上では英語
というように　Windows側の言語に依存して表示されていました

XE7で同様の手順で再構築を行ったのですが　プロジェクトオプションのパッケー
ジで「実行時パッケージを使ってリンク」をTrueとしてビルドすると　
MessageDlg関数で表示したダイアログのタイトル/ボタンが　日本語Windows上で
も英語表示となってしまいます
ダイアログの表示言語をWindowsの言語に合わせて切り替えるには　どうすれば
いいのか　色々検索はしてみたものの有用な情報を見つけることができませんで
した
ヘルプも何度か読み返してはいるのですが　実行時パッケージとダイアログ表示
の言語の関連が良く判らない状態です

どなたか　実行時パッケージを使ってリンクした場合の　ダイアログ表示言語の
切替方法について　ご教授いただけませんでしょうか？
情報となりうるwebページなどへのポインタなどでも助かります

よろしくお願い致します

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
白坂　勝治
e-mail: sira...@hi-ho.ne.jp


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
「発酵リラックスルーム」でカラダの中からキレイ！
さわやかな甘さでもっとハッピーになる健康効果５選
http://ad.freeml.com/cgi-bin/sa.cgi?id=nsKZ0
------------------------------------------------------[freeml byGMO]--

[がぅ]

白坂です

一応自己解決しました

アプリケーションをビルドすると　以下のレジストリにプロジェクトオプション
のバージョン情報で設定したロケールID（英語の場合はen-US）がセットされる
ようです
HKEY_CURRENT_USER\Software\Embarcadero\Locales

実行時パッケージを使ってリンクした場合　bplファイルの言語リソース（だと
思う^^;）である　vcl210.ja等が参照されると思うのですが　レジストリには
en-USが設定されているために　拡張子がjaであるvcl210.jaが参照されず
MessageDlgで表示するダイアログが英語表示となるようです

レジストリの設定をjaとすることで日本語で表示されるようになりました
また　レジストリキーを削除してしまえば　デフォルトのロケールとなって日本
語Widnows上では日本語表示されました

これで正しいのかどうかわかりませんが　とりあえず意図した通りには動作する
ようになりました
お騒がせしました^^;

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
白坂　勝治
e-mail: sira...@hi-ho.ne.jp


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------

カンタン夏のダメージケア！
トマトのリコピン効果を最大限に高める3つの方法とは？
http://ad.freeml.com/cgi-bin/sa.cgi?id=ntdp1
------------------------------------------------------[freeml byGMO]--

[hirodel]

加藤です

delphiXE7

Excel2013

セルのセンタリングをしていたコードがエラーになってしまう

なにか変わったのでしょうか?

Excel.WorkBooks[1].ActiveSheet.Rows['1:1'].HorizontalAlignment:= xlCenter;