Breadcrumbs

[Proprogrammer]

First you will need:
1 button
1 textbox
1 picturebox

The next 2 code boxes are for creating varibles for the button click event and what will happen when button 1 is clicked.

Code: Select all

Sub GetFileIcon(ByVal Path As String)
  Try
    If Path.ToLower.EndsWith(".jpg") Or Path.ToLower.EndsWith(".bmp") Or Path.ToLower.EndsWith(".gif") Or Path.ToLower.EndsWith(".png") Then Image.FromFile(Path)
    PictureBox1.Image = Drawing.Icon.ExtractAssociatedIcon(Path).ToBitmap()
  Catch
  End Try

Code: Select all

Public Function GetProcessPath(ByVal prc As Process) As String
  Dim query As String = String.Format("select * from Win32_Process where name='{0}.exe'", prc.ProcessName)
  Dim searcher As New ManagementObjectSearcher("root\CIMV2", query)
  Dim result = searcher.Get().GetEnumerator()
  If Not result.MoveNext() Then Throw New ArgumentException("Process not found")
  Return CStr(result.Current("ExecutablePath"))
    End Function

Just put both of the code boxes anywhere before the button1 click event.


Now for the button1 click event code.

Code: Select all

Dim proc As Process() = Process.GetProcessesByName(TextBox1.Text)
    GetFileIcon(GetProcessPath(proc(0)))

textbox1 = process you want to get icon from
picturebox1 = picture you get
button1 = starts process of getting icon from

NOTE: THIS DOES NOT SAVE THE PICTURE!
but i am sure you can figure out yourself, because that code is pretty easy.
have fun with it!

[XTechVB]

yet another piece of code i never seen before.Thanks
Good Job Proprogrammer

[mandai]

I'd make it so all open window icons can be displayed and saved.

Updates:
14/11/10 Fixed a possible filename bug, added better filetype save support.
21/11/10 Better memory managment for the icons

[Proprogrammer]

Pretty cool!

[Adroxxx]

I'm getting an IndexOutOfRangeException Error.

[NecroPhis]

nice thanx 4 sharing cooll;

[zachman61]

ooh i just got an idea for a program :P

[zachman61]

ok i just tried this and there is an error in this code

Code: Select all

 Dim searcher As New ManagementObjectSearcher("root\CIMV2", query)