[Help] Getting icon of a running process

[Samueldo]

Why you edited the code ?? I think the problem is occurring coz of editing. Send me the edited code, or use the code I sent in its original form.

I did use the code in it's original form, but it gave me tons of errors... that's why I edited.

Wait, what VB do you use, 05, 08 or 10?

[Hassan]

I did use the code in it's original form, but it gave me tons of errors... that's why I edited.

Wait, what VB do you use, 05, 08 or 10?

08 and 10 both. This one is made in 08.

[Samueldo]

08 and 10 both. This one is made in 08.

OK, just checking because I thought the problem could be a different framework.

[Hassan]

OK, just checking because I thought the problem could be a different framework.

Can't you just post the edited code ???

[Samueldo]

Imports System
Imports System.Drawing
Imports System.Runtime.InteropServices
Public Class ExtractIcon
    Private Enum SHGFI
        Flags
        SmallIcon = &H1
        LargeIcon = &H0
        Icon = &H100
        DisplayName = &H200
        Typename = &H400
        SysIconIndex = &H4000
        UseFileAttributes = &H10
    End Enum
    Public Enum IconType
        SmallIcon = True
        LargeIcon = False
    End Enum
StructLayout(LayoutKind.Sequential)
    Private Structure SHFILEINFO
        Public hIcon As IntPtr
        Public iIcon As Integer
        Public dwAttributes As Integer
        MarshalAs(UnmanagedType.LPStr,SizeConst = 260)
        Public szDisplayName As String
        MarshalAs(UnmanagedType.LPStr,SizeConst = 80)
        Public szTypeName As String
        Public Sub New(ByVal B As Boolean)
            hIcon = IntPtr.Zero
            iIcon = 0
            dwAttributes = 0
            szDisplayName = vbNullString
            szTypeName = vbNullString
        End Sub
    End Structure
    Private Declare Auto Function SHGetFileInfo Lib "shell32" (ByVal pszPath As String, ByVal dwFileAttributes As Integer, ByRef psfi As SHFILEINFO, ByVal cbFileInfo As Integer, ByVal uFlagsn As SHGFI) As Integer
    Public Function GetIcon(ByVal Path As String, Optional ByVal Ico As IconType = True) As Icon
        Dim info As New SHFILEINFO(True)
        Dim cbSizeInfo As Integer = Marshal.SizeOf(info)
        Dim flags As SHGFI = SHGFI.Icon Or SHGFI.UseFileAttributes
        If Ico = True Then
            flags += SHGFI.SmallIcon
        Else
            flags += SHGFI.LargeIcon
        End If
        SHGetFileInfo(Path, 256, info, cbSizeInfo, flags)
        Return Icon.FromHandle(info.hIcon)
    End Function
End Class

[Hassan]

Imports System
Imports System.Drawing
Imports System.Runtime.InteropServices
Public Class ExtractIcon
    Private Enum SHGFI
        Flags
        SmallIcon = &H1
        LargeIcon = &H0
        Icon = &H100
        DisplayName = &H200
        Typename = &H400
        SysIconIndex = &H4000
        UseFileAttributes = &H10
    End Enum
    Public Enum IconType
        SmallIcon = True
        LargeIcon = False
    End Enum
StructLayout(LayoutKind.Sequential)
    Private Structure SHFILEINFO
        Public hIcon As IntPtr
        Public iIcon As Integer
        Public dwAttributes As Integer
        MarshalAs(UnmanagedType.LPStr,SizeConst = 260)
        Public szDisplayName As String
        MarshalAs(UnmanagedType.LPStr,SizeConst = 80)
        Public szTypeName As String
        Public Sub New(ByVal B As Boolean)
            hIcon = IntPtr.Zero
            iIcon = 0
            dwAttributes = 0
            szDisplayName = vbNullString
            szTypeName = vbNullString
        End Sub
    End Structure
    Private Declare Auto Function SHGetFileInfo Lib "shell32" (ByVal pszPath As String, ByVal dwFileAttributes As Integer, ByRef psfi As SHFILEINFO, ByVal cbFileInfo As Integer, ByVal uFlagsn As SHGFI) As Integer
    Public Function GetIcon(ByVal Path As String, Optional ByVal Ico As IconType = True) As Icon
        Dim info As New SHFILEINFO(True)
        Dim cbSizeInfo As Integer = Marshal.SizeOf(info)
        Dim flags As SHGFI = SHGFI.Icon Or SHGFI.UseFileAttributes
        If Ico = True Then
            flags += SHGFI.SmallIcon
        Else
            flags += SHGFI.LargeIcon
        End If
        SHGetFileInfo(Path, 256, info, cbSizeInfo, flags)
        Return Icon.FromHandle(info.hIcon)
    End Function
End Class

Replace "Flag" in 6th line with this:

[php]<Flags()> Private Enum SHGFI[/php]

[Samueldo]

Replace "Flag" in 6th line with this:

[php]<Flags()> Private Enum SHGFI[/php]

Okay, I did that with the other error lines too, see if I got anywhere, and it worked... almost.

On the MarshalAs lines, I got an error saying "SizeConst is not declared".

[Hassan]

Okay, I did that with the other error lines too, see if I got anywhere, and it worked... almost.

On the MarshalAs lines, I got an error saying "SizeConst is not declared".

MarshalAs(UnmanagedType.LPStr,SizeConst := 260)
Public szDisplayName As String
MarshalAs(UnmanagedType.LPStr,SizeConst :=80)

'You need to add ' : ' before '=' ...

[Samueldo]

MarshalAs(UnmanagedType.LPStr,SizeConst := 260)
Public szDisplayName As String
MarshalAs(UnmanagedType.LPStr,SizeConst :=80)

'You need to add ' : ' before '=' ...

So basically it looks like half a dick sign. XD Testing now

[Hassan]

So basically it looks like half a dick sign. XD Testing now

xD...Seems so... Let me know if it works !!

[Samueldo]

Okay, it isn't working

I did edit the main form code however. It's supposed to check if the process (written into a textbox called ProcessBox) is running, and if it is show up in the picture box (ProcessIcon).

[php]Dim ExtractionX As New ExtractIcon
Dim procList() As Process = Process.GetProcesses()
For Each Proc In procList
Try
If Proc.ProcessName.ToString = ProcessBox.Text Then
ProcessLogo.BackgroundImage = ExtractionX.GetIcon(Proc.ToString).ToBitmap
End If
Catch ex As Exception
Continue For
End Try
Next[/php]

[Hassan]

Okay, it isn't working

I did edit the main form code however. It's supposed to check if the process (written into a textbox called ProcessBox) is running, and if it is show up in the picture box (ProcessIcon).

[php]Dim ExtractionX As New ExtractIcon
Dim procList() As Process = Process.GetProcesses()
For Each Proc In procList
Try
If Proc.ProcessName.ToString = ProcessBox.Text Then
ProcessLogo.BackgroundImage = ExtractionX.GetIcon(Proc.ToString).ToBitmap
End If
Catch ex As Exception
Continue For
End Try
Next[/php]

*Sigh*. Do you have team viewer ??? I guess it will be better to help you in teamviewer, as the problem is minor but you can't get it.

[Samueldo]

*Sigh*. Do you have team viewer ??? I guess it will be better to help you in teamviewer, as the problem is minor but you can't get it.

XD It must be minor to slip from me, I can fix major problems but not the tiny ones LOL

My MSN is theblackberry@live.co.uk, I'll give you my TV from there.

[Hassan]

XD It must be minor to slip from me, I can fix major problems but not the tiny ones LOL

My MSN is theblackberry@live.co.uk, I'll give you my TV from there.

I think your problem is solved... Call it when Injecting... ok ? xD

[Samueldo]

Thanks