名前 題名 ▼ Mr.XRAYさん > ところで参考までに， > 掲示板のレスで > > http://www.geocities.jp/asumaroyuumaro/program/tips/BitmapResource.html > > のリンクがあります． > もちろん，このコードでリソースのビットマップが取得できます． > しかし，BPL のコンポーネントのビットマップは取得できません． > > リソースを列挙する時の，以下のコードがミソなんです． > (MSDN の記事をそのまま Delphi のコードにしただけですが) > > //リソース名のチェック > //上位WORD(2バイト)が 0ならIDは数値.それ以外は文字列のポインタ > if HiWord(Cardinal(lpszName)) = 0 then begin > LResIDStr := IntToStr(Cardinal(lpszName)); > end else begin > LResIDStr := lpszName; > end; > > それと上の Asuyu さんのコードでは，列挙した後， > 目的のリソース ID のビットマップの検索に再度 EnumResourceNames を実行していますが， > これをしなくてもリソースID が分かっていれば， > 記事に掲載している以下のコードで取得できます． > > if LItemInt < 0 then begin > LBitmap.LoadFromResourceName(LhModule, LItemStr);; > end else begin > LBitmap.LoadFromResourceID(LhModule, LItemInt); > end; > > このあたりは，私も同じようなことよくやってしまっています． > サンプルを書いて実行して，後になって気づくことがあります． > つまり，新規に記事を掲載ていたがかの時はまだダウンロードしない方がいいです． > しばらくは細かい修正しています． GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link