How to Extract 8-bit Icon from File

[grantman16]

I need a way to extract an 8-bit icon from a file, specifically an exe.

 

I've tried using ExtractAssociatedIcon, but that only extracts 32-bit icons, and I have not found a way to convert it to 8-bit.

 

Thanks!

grantman16

[PlausiblyDamp]

You might have better luck with the ExtractIconEx API - http://www.pinvoke.net/default.aspx/shell32.ExtractIconEx contains the declares and a sample bit of code for using it.

[grantman16]

Hey,

 

Thanks for your help, but I ended up setting the background image of the form to a screenshot of the screen behind it and laying the icon on top of that, creating the illusion that the alpha regions are overlaying the screen behind it. It works flawlessly for the application I'm developing.

 

In case you're wondering, here's the code I used:

 

Me.Visible = False
Dim bounds As Rectangle = Me.Bounds ' Form border should be set to None
Dim screenshot As New Bitmap(bounds.Width, bounds.Height, Imaging.PixelFormat.Format32bppArgb)
Dim g As Graphics = Graphics.FromImage(screenshot)
g.CopyFromScreen(bounds.Location, New Point(0, 0), bounds.Size, CopyPixelOperation.SourceCopy)
Me.BackgroundImage = screenshot
Me.Visible = True

 

- grantman16