Very Computer

How do I create an ico file of a single icon contained in a dll or exe file?

How do I create an ico file of a single icon contained in a dll or exe file?

It's much more interresting if you succeed to place a 'WEP' to!
(c code required to load the dll as module)

I'm interrested if anyone has done this (not using an c compiler)

Daniel W. Brower heeft geschreven in bericht ...

Private Declare Function CopyIcon% Lib "User" (ByVal hInst%, ByVal hIcon%)
Private Declare Function DestroyIcon% Lib "User" (ByVal hIcon%)
Private Declare Function DrawIcon% Lib "User" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal hIcon%)
Private Declare Function ExtractIcon% Lib "Shell" (ByVal hInst%, ByVal lpFile$, ByVal hIcon%)

But I can't seem to find the right mix to be able to assign an icon to a
Form.Icon, or a DragIcon, which is what I tried to do.  Once assigned, it could
be saved using SavePicture.

I have been able to extract an icon from an exe or dll and assign it to a
button. If you think this will help e-mail me and I'll send you the code I
used.

Steve

Quote:

>But I can't seem to find the right mix to be able to assign an icon to a
>Form.Icon, or a DragIcon, which is what I tried to do.  Once assigned, it
could
>be saved using SavePicture.

Steve Bonanno a crit dans le message ...
|I have been able to extract an icon from an exe or dll and assign it to a
|button. If you think this will help e-mail me and I'll send you the code I
|used.

YES
SEND it to me too, please

|I have been able to extract an icon from an exe or dll and assign it to a
|button. If you think this will help e-mail me and I'll send you the code I
|used.

YES
Send it to me too, please

If you are just trying to get and save the image, you can use an icon
editor such as IconForge. The trial download can be found at
http://www.cursorarts.com/ca_if.html or from other major on-line libraries.

This is extracted from a sample I got at
Use the API viewer to get the declares and constants

Public Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME _
   Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX _
   Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE

Dim shinfo As SHFILEINFO

    hImgSmall = SHGetFileInfo(fName, 0&, shinfo, Len(shinfo), _
                 BASIC_SHGFI_FLAGS Or SHGFI_SMALLICON)
    hImgLarge = SHGetFileInfo(fName, 0&, shinfo, Len(shinfo), _
                 BASIC_SHGFI_FLAGS)

    pixSmall.Picture = LoadPicture()
    pixSmall.AutoRedraw = True
    pixLarge.Picture = LoadPicture()
    pixLarge.AutoRedraw = True

    r = ImageList_Draw(hImgSmall&, shinfo.iIcon, pixSmall.hdc, 0, 0,
ILD_TRANSPARENT)
    r = ImageList_Draw(hImgLarge, shinfo.iIcon, pixLarge.hdc, 0, 0,
ILD_TRANSPARENT)
    pixSmall.Picture = pixSmall.Image
    pixLarge.Picture = pixLarge.Image

Art

I left out the source to that code...

    http://home.sprynet.com/sprynet/rasanen/vbnet/default.htm