Extract Icon

[=?Utf-8?B?QmVu?=]

Hi
I am looking for a way to extraxt an icon from a .exe file an save it as an
icon not a bitmap or jpeg to a file?

The code below extracts the icon but only as a bitmap

PictureBox1.Ima ge =
Drawing.Icon.Ex tractAssociated Icon("file.exe" ).ToBitmap

The problem is I need the icon not the bitmap.
Thanks

[Gillard]

Dim x As Integer = 1
'img is an imagelist
For Each ico As Image In img.Images
x = x + 1
pb1.Image = ico
Application.DoE vents()
ico.Save(apath & "icones\" & IO.Path.GetFile Name(fil) & x &
".ico", System.Drawing. Imaging.ImageFo rmat.Icon)
Next

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:6B******** *************** ***********@mic rosoft.com...

Hi
I am looking for a way to extraxt an icon from a .exe file an save it as
an
icon not a bitmap or jpeg to a file?

The code below extracts the icon but only as a bitmap

PictureBox1.Ima ge =
Drawing.Icon.Ex tractAssociated Icon("file.exe" ).ToBitmap

The problem is I need the icon not the bitmap.
Thanks

[=?Utf-8?B?QmVu?=]

Hi Gillard

I know your code can work. but for some reason it is not working for me.
I added an imagelist
But what is "apath"
What is "fil"

When I ran your code, i used "c:\mydir" for "apath" and the path for
winword for "fil", I get a new page icon instead of the winword icon in the
folder.

Also for me to get anything at all I first had to run code to put the icon
into the imagelist and the picturebox
Here is the code I used to put the icon into the image list:

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button4.Click
Dim ico As Icon = Icon.ExtractAss ociatedIcon(the path for
"winword.ex e")
ImageList1.Imag eSize = New Size(24, 24)
ImageList1.Imag es.Add(ico)

Dim theGraphics As Graphics = Graphics.FromHw nd(Me.Handle)

For count = 0 To ImageList1.Imag es.Count - 1

ImageList1.Draw (theGraphics, New Point(24, 24), count)

' Call Application.DoE vents to force a repaint of the form.
Application.DoE vents()

' Call the Sleep method to allow the user to see the image.
System.Threadin g.Thread.Sleep( 1000)
Next

I am sorry, but I think I need a some more help on this...please

"Gillard" wrote:

>
Dim x As Integer = 1
'img is an imagelist
For Each ico As Image In img.Images
x = x + 1
pb1.Image = ico
Application.DoE vents()
ico.Save(apath & "icones\" & IO.Path.GetFile Name(fil) & x &
".ico", System.Drawing. Imaging.ImageFo rmat.Icon)
Next

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:6B******** *************** ***********@mic rosoft.com...

Hi
I am looking for a way to extraxt an icon from a .exe file an save it as
an
icon not a bitmap or jpeg to a file?

The code below extracts the icon but only as a bitmap

PictureBox1.Ima ge =
Drawing.Icon.Ex tractAssociated Icon("file.exe" ).ToBitmap

The problem is I need the icon not the bitmap.
Thanks

[=?Utf-8?B?QmVu?=]

Hi Gillard
The "Icon Ripper.Zip" attachment did not come thru. Can you resend it?

"Gillard" wrote:

>
here is the full version of the program as attachment " icon ripper.zip "

apath is a directory (drive \ directory)

fil is a filepath ( drive \ directory \ filename)

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:2B******** *************** ***********@mic rosoft.com...

Hi Gillard

I know your code can work. but for some reason it is not working for me.
I added an imagelist
But what is "apath"
What is "fil"

When I ran your code, i used "c:\mydir" for "apath" and the path for
winword for "fil", I get a new page icon instead of the winword icon in
the
folder.

Also for me to get anything at all I first had to run code to put the icon
into the imagelist and the picturebox
Here is the code I used to put the icon into the image list:

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button4.Click
Dim ico As Icon = Icon.ExtractAss ociatedIcon(the path for
"winword.ex e")
ImageList1.Imag eSize = New Size(24, 24)
ImageList1.Imag es.Add(ico)

Dim theGraphics As Graphics = Graphics.FromHw nd(Me.Handle)

For count = 0 To ImageList1.Imag es.Count - 1

ImageList1.Draw (theGraphics, New Point(24, 24), count)

' Call Application.DoE vents to force a repaint of the form.
Application.DoE vents()

' Call the Sleep method to allow the user to see the image.
System.Threadin g.Thread.Sleep( 1000)
Next

I am sorry, but I think I need a some more help on this...please

"Gillard" wrote:

>
Dim x As Integer = 1
'img is an imagelist
For Each ico As Image In img.Images
x = x + 1
pb1.Image = ico
Application.DoE vents()
ico.Save(apath & "icones\" & IO.Path.GetFile Name(fil) & x &
".ico", System.Drawing. Imaging.ImageFo rmat.Icon)
Next

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:6B******** *************** ***********@mic rosoft.com...
Hi
I am looking for a way to extraxt an icon from a .exe file an save it
as
an
icon not a bitmap or jpeg to a file?

The code below extracts the icon but only as a bitmap

PictureBox1.Ima ge =
Drawing.Icon.Ex tractAssociated Icon("file.exe" ).ToBitmap

The problem is I need the icon not the bitmap.
Thanks

[=?Utf-8?B?QmVu?=]

Hi there
Sorry to say, but for some reason I still have not seen the attachment, and
it is something I really need to take a look at.
I think it maybe bacause I was using IE 8.2 Beta. I am back to using IE 7.0
now. So, I am asking that you resend the attachment one last time for me
please.
Thanks

"Gillard" wrote:

yes

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:E6******** *************** ***********@mic rosoft.com...

Hi Gillard
The "Icon Ripper.Zip" attachment did not come thru. Can you resend it?

"Gillard" wrote:

>
here is the full version of the program as attachment " icon
ripper.zip "

apath is a directory (drive \ directory)

fil is a filepath ( drive \ directory \ filename)

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:2B******** *************** ***********@mic rosoft.com...
Hi Gillard

I know your code can work. but for some reason it is not working for
me.
I added an imagelist
But what is "apath"
What is "fil"

When I ran your code, i used "c:\mydir" for "apath" and the path for
winword for "fil", I get a new page icon instead of the winword icon in
the
folder.

Also for me to get anything at all I first had to run code to put the
icon
into the imagelist and the picturebox
Here is the code I used to put the icon into the image list:

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button4.Click
Dim ico As Icon = Icon.ExtractAss ociatedIcon(the path for
"winword.ex e")
ImageList1.Imag eSize = New Size(24, 24)
ImageList1.Imag es.Add(ico)

Dim theGraphics As Graphics = Graphics.FromHw nd(Me.Handle)

For count = 0 To ImageList1.Imag es.Count - 1

ImageList1.Draw (theGraphics, New Point(24, 24), count)

' Call Application.DoE vents to force a repaint of the form.
Application.DoE vents()

' Call the Sleep method to allow the user to see the image.
System.Threadin g.Thread.Sleep( 1000)
Next

I am sorry, but I think I need a some more help on this...please

"Gillard" wrote:


Dim x As Integer = 1
'img is an imagelist
For Each ico As Image In img.Images
x = x + 1
pb1.Image = ico
Application.DoE vents()
ico.Save(apath & "icones\" & IO.Path.GetFile Name(fil) & x
&
".ico", System.Drawing. Imaging.ImageFo rmat.Icon)
Next

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:6B******** *************** ***********@mic rosoft.com...
Hi
I am looking for a way to extraxt an icon from a .exe file an save
it
as
an
icon not a bitmap or jpeg to a file?

The code below extracts the icon but only as a bitmap

PictureBox1.Ima ge =
Drawing.Icon.Ex tractAssociated Icon("file.exe" ).ToBitmap

The problem is I need the icon not the bitmap.
Thanks

[eBob.com]

I wonder if some news servers do not allow attachments for this group? I
saw at least one of the earlier attachments. I use news.microsoft. com for
this newsgroup. It's free - so if that's not the server you use to see this
newsgroup I recommend that you try it.

Bob

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:2D******** *************** ***********@mic rosoft.com...

Hi there
Sorry to say, but for some reason I still have not seen the attachment,
and
it is something I really need to take a look at.
I think it maybe bacause I was using IE 8.2 Beta. I am back to using IE
7.0
now. So, I am asking that you resend the attachment one last time for me
please.
Thanks

"Gillard" wrote:

>yes

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:E6******* *************** ************@mi crosoft.com...

Hi Gillard
The "Icon Ripper.Zip" attachment did not come thru. Can you resend it?

"Gillard" wrote:
here is the full version of the program as attachment " icon
ripper.zip "

apath is a directory (drive \ directory)

fil is a filepath ( drive \ directory \ filename)

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:2B******* *************** ************@mi crosoft.com...
Hi Gillard

I know your code can work. but for some reason it is not working for
me.
I added an imagelist
But what is "apath"
What is "fil"

When I ran your code, i used "c:\mydir" for "apath" and the path
for
winword for "fil", I get a new page icon instead of the winword icon
in
the
folder.

Also for me to get anything at all I first had to run code to put
the
icon
into the imagelist and the picturebox
Here is the code I used to put the icon into the image list:

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button4.Click
Dim ico As Icon = Icon.ExtractAss ociatedIcon(the path for
"winword.ex e")
ImageList1.Imag eSize = New Size(24, 24)
ImageList1.Imag es.Add(ico)

Dim theGraphics As Graphics = Graphics.FromHw nd(Me.Handle)

For count = 0 To ImageList1.Imag es.Count - 1

ImageList1.Draw (theGraphics, New Point(24, 24), count)

' Call Application.DoE vents to force a repaint of the
form.
Application.DoE vents()

' Call the Sleep method to allow the user to see the
image.
System.Threadin g.Thread.Sleep( 1000)
Next

I am sorry, but I think I need a some more help on this...please

"Gillard" wrote:
Dim x As Integer = 1
'img is an imagelist
For Each ico As Image In img.Images
x = x + 1
pb1.Image = ico
Application.DoE vents()
ico.Save(apath & "icones\" & IO.Path.GetFile Name(fil) &
x
&
".ico", System.Drawing. Imaging.ImageFo rmat.Icon)
Next

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:6B******* *************** ************@mi crosoft.com...
Hi
I am looking for a way to extraxt an icon from a .exe file an
save
it
as
an
icon not a bitmap or jpeg to a file?

The code below extracts the icon but only as a bitmap

PictureBox1.Ima ge =
Drawing.Icon.Ex tractAssociated Icon("file.exe" ).ToBitmap

The problem is I need the icon not the bitmap.
Thanks

[Gillard]

Use a news reader exemple Windows Live Mail
protocol NNTP
port : 119
server: msnews.microsof t.com
the attachment is there

"eBob.com" <fa******@total lybogus.comwrot e in message
news:ud******** *****@TK2MSFTNG P04.phx.gbl...

I wonder if some news servers do not allow attachments for this group? I
saw at least one of the earlier attachments. I use news.microsoft. com for
this newsgroup. It's free - so if that's not the server you use to see
this newsgroup I recommend that you try it.

Bob

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:2D******** *************** ***********@mic rosoft.com...

>Hi there
Sorry to say, but for some reason I still have not seen the attachment,
and
it is something I really need to take a look at.
I think it maybe bacause I was using IE 8.2 Beta. I am back to using IE
7.0
now. So, I am asking that you resend the attachment one last time for me
please.
Thanks

"Gillard" wrote:

>>yes

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:E6****** *************** *************@m icrosoft.com...
Hi Gillard
The "Icon Ripper.Zip" attachment did not come thru. Can you resend it?

"Gillard" wrote:
here is the full version of the program as attachment " icon
ripper.zip "

apath is a directory (drive \ directory)

fil is a filepath ( drive \ directory \ filename)

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:2B****** *************** *************@m icrosoft.com...
Hi Gillard

I know your code can work. but for some reason it is not working
for
me.
I added an imagelist
But what is "apath"
What is "fil"

When I ran your code, i used "c:\mydir" for "apath" and the path
for
winword for "fil", I get a new page icon instead of the winword
icon in
the
folder.

Also for me to get anything at all I first had to run code to put
the
icon
into the imagelist and the picturebox
Here is the code I used to put the icon into the image list:

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventAr gs) Handles Button4.Click
Dim ico As Icon = Icon.ExtractAss ociatedIcon(the path for
"winword.exe ")
ImageList1.Imag eSize = New Size(24, 24)
ImageList1.Imag es.Add(ico)

Dim theGraphics As Graphics = Graphics.FromHw nd(Me.Handle)

For count = 0 To ImageList1.Imag es.Count - 1

ImageList1.Draw (theGraphics, New Point(24, 24), count)

' Call Application.DoE vents to force a repaint of the
form.
Application.DoE vents()

' Call the Sleep method to allow the user to see the
image.
System.Threadin g.Thread.Sleep( 1000)
Next

I am sorry, but I think I need a some more help on this...please

"Gillard" wrote:
Dim x As Integer = 1
'img is an imagelist
For Each ico As Image In img.Images
x = x + 1
pb1.Image = ico
Application.DoE vents()
ico.Save(apath & "icones\" & IO.Path.GetFile Name(fil)
& x
&
".ico", System.Drawing. Imaging.ImageFo rmat.Icon)
Next

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:6B****** *************** *************@m icrosoft.com...
Hi
I am looking for a way to extraxt an icon from a .exe file an
save
it
as
an
icon not a bitmap or jpeg to a file?

The code below extracts the icon but only as a bitmap

PictureBox1.Ima ge =
Drawing.Icon.E xtractAssociate dIcon("file.exe ").ToBitmap

The problem is I need the icon not the bitmap.
Thanks

[=?Utf-8?B?QmVu?=]

Thanks I got it

"Gillard" wrote:

Use a news reader exemple Windows Live Mail
protocol NNTP
port : 119
server: msnews.microsof t.com
the attachment is there

"eBob.com" <fa******@total lybogus.comwrot e in message
news:ud******** *****@TK2MSFTNG P04.phx.gbl...

I wonder if some news servers do not allow attachments for this group? I
saw at least one of the earlier attachments. I use news.microsoft. com for
this newsgroup. It's free - so if that's not the server you use to see
this newsgroup I recommend that you try it.

Bob

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:2D******** *************** ***********@mic rosoft.com...

Hi there
Sorry to say, but for some reason I still have not seen the attachment,
and
it is something I really need to take a look at.
I think it maybe bacause I was using IE 8.2 Beta. I am back to using IE
7.0
now. So, I am asking that you resend the attachment one last time for me
please.
Thanks

"Gillard" wrote:

yes

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:E6******* *************** ************@mi crosoft.com...
Hi Gillard
The "Icon Ripper.Zip" attachment did not come thru. Can you resend it?

"Gillard" wrote:
here is the full version of the program as attachment " icon
ripper.zip "

apath is a directory (drive \ directory)

fil is a filepath ( drive \ directory \ filename)

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:2B******* *************** ************@mi crosoft.com...
Hi Gillard

I know your code can work. but for some reason it is not working
for
me.
I added an imagelist
But what is "apath"
What is "fil"

When I ran your code, i used "c:\mydir" for "apath" and the path
for
winword for "fil", I get a new page icon instead of the winword
icon in
the
folder.

Also for me to get anything at all I first had to run code to put
the
icon
into the imagelist and the picturebox
Here is the code I used to put the icon into the image list:

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button4.Click
Dim ico As Icon = Icon.ExtractAss ociatedIcon(the path for
"winword.ex e")
ImageList1.Imag eSize = New Size(24, 24)
ImageList1.Imag es.Add(ico)

Dim theGraphics As Graphics = Graphics.FromHw nd(Me.Handle)

For count = 0 To ImageList1.Imag es.Count - 1

ImageList1.Draw (theGraphics, New Point(24, 24), count)

' Call Application.DoE vents to force a repaint of the
form.
Application.DoE vents()

' Call the Sleep method to allow the user to see the
image.
System.Threadin g.Thread.Sleep( 1000)
Next

I am sorry, but I think I need a some more help on this...please

"Gillard" wrote:
Dim x As Integer = 1
'img is an imagelist
For Each ico As Image In img.Images
x = x + 1
pb1.Image = ico
Application.DoE vents()
ico.Save(apath & "icones\" & IO.Path.GetFile Name(fil)
& x
&
".ico", System.Drawing. Imaging.ImageFo rmat.Icon)
Next

"Ben" <Be*@discussion s.microsoft.com wrote in message
news:6B******* *************** ************@mi crosoft.com...
Hi
I am looking for a way to extraxt an icon from a .exe file an
save
it
as
an
icon not a bitmap or jpeg to a file?

The code below extracts the icon but only as a bitmap

PictureBox1.Ima ge =
Drawing.Icon.Ex tractAssociated Icon("file.exe" ).ToBitmap

The problem is I need the icon not the bitmap.
Thanks