Delphi XEの「リソース DLL の動的な切り替え」のコードを実行するには

Delphi XEのヘルプ「リソース DLL の動的な切り替え」には次のようなコードが紹介されている。

const
  FRENCH = (SUBLANG_FRENCH shl 10) or LANG_FRENCH;
if LoadNewResourceModule(FRENCH) <> 0 then
  ReinitializeForms;

このコードをコピーしただけでは動作しない。
このコードを実行するにはユニットをusesに追加する必要がある。

uses reinit

これだけでは動作しない。
reinitユニットが見つからないためだ。

このreinitはDemosディレクトリ下のRichEditサンプルに含まれている。
RichEditサンプルに含まれているreinit.pasをプロジェクトに登録すると動作するようになる。

└RAD Studio
 └8.0
  └Samples
   └Delphi
    └VCL
     └RichEdit
      └reinit.pas

このユニットについての説明は、Delphi 2010まではヘルプに掲載されていたようだ。
(Delphi 2010のヘルプリソース DLL の動的な切り替え)

コメント

  1. reinit.pasで躓いていましたが、この記事で助かります。
    ありがとうございます。

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください