如何提取可执行文件中包含的图标.txt

VB技巧问答10000例 VB技巧问答10000例

可 以 使 用 Windows API的 ExtractIcon可 以 完 成 这 个 任 务 。 ExtractIcon的 定 义 如 下 ： 
    Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long 
    第 一 个 参 数 是 调 用 这 个 函 数 的 实 例 句 柄 ， 在 VB中 可 以 使 用 App.hInstance得 到 这 个 句 柄 。 第 二 个 参 数 是 包 含 图 标 的 文 件 名 。 当 该 文 件 包 含 有 多 个 图 标 ， 第 三 个 参 数 指 定 该 图 标 的 索 引 。 使 用 时 ， 首 先 使 用 ExtractIcon(App.hInstance, filename, -1)得 到 文 件 中 图 标 的 个 数 。 然 后 ， 再 次 使 用 hIcon = ExtractIcon(App.hInstance, filename, i)来 获 得 第 i个 图 标 的 句 柄 。 然 后 使 用 DrawIcon(Picture1.hDC, 0, 0, hIcon)可 以 将 图 标 显 示 在 Picture Box中 。 
    如 果 你 希 望 在 其 它 控 件 中 使 用 Icon， 可 以 利 用 PictureBox的 Picture属 性 。 
    如 果 你 直 接 SavePicture保 存 图 形 得 到 的 是 Bitmap。 如 果 想 得 到 Icon。 应 该 先 将 图 片 保 存 为 Image List中 ， 再 利 用 Image List的 ExtractIcon方 法 得 到 Icon， 此 时 再 利 用 SavePicture保 存 图 形 得 到 的 是 Icon。 
<END>