３３.EXE,DLLのアイコンのハンドルを取得する



＜　使用用途　＞
EXE,DLLのアイコンのハンドルを取得する　

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード　・・・　アイコンのハンドルを取得して描画するサンプルです。

＜　説明　＞
ＡＰＩ関数のExtractIconEx を使用します。
ExtractIconEx ＝＞アイコンハンドルを取得する
　　＜引数＞
　　　　　lpszFile：ファイル名
　　　nIconIndex：アイコンインデックス
　　phiconLarge：大きいアイコンのハンドルが入る
　　 phiconSmall：小さいアイコンのハンドルが入る
　　　　　　nIcons：取り出すアイコンの数
　　＠戻り値＠　　
　　　エラーの時-1

<　ＳＡＭＰＬＥ　＞
’ここではC:\Windows\Calc.exeのアイコンを取得します。
'標準モジュール
Public Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long

'ここからはフォームの処理
Private Sub Command1_Click()

　　Dim Ret As Long
　　Dim nFile As String
　　Dim L As Long
　　Dim S As Long

　　nFile="C:\Windows\Calc.exe"

　　Ret = ExtractIconEx(nFile, 0, L, S, 1)

End Sub