Verzeichnisse und Dateien in ListView mit Icons via SHGetFileInfo Lib "shell32.dll"

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    Verzeichnisse und Dateien in ListView mit Icons via SHGetFileInfo Lib "shell32.dll"

    Hallo Leute,

    nun bin ich an einem Punkt, wo es nicht mehr weitergeht - darum bitte ich Euch um Hilfe.

    Das Problem-Programm ist eigentlich sehr simpel.
    Es ist ein ListView, das mit Verzeichnissen und Dateien ab einem Startverzeichnis gefüllt wird.
    Dabei werden auch noch die kleinen Icons, passend zur Datei bereitgestellt (via SHGetFileInfo und "shell32.dll") und im ListView angezeigt.
    So oder ähnlich findet man es oft im Web..

    Meine Testumgebung ist Windows7 64Bit, administrativer Account.

    1. Beim Programmstart wird das Startverzeichnis "C:\Windows\System32" übergeben - StartButton drücken - alles ok - alle verzeichnisse und Dateien werden angezeigt und die Icons kommen auch komplett.
    2. Nochmal "Start" drücken - gleiches Startverzeichnis -> eine Fehlermeldung kommt und die Dateiliste ist nicht komplett.
    3. Nochmal "Start" drücken - Programm friert ohne Fehlermeldung komplett ein und lässt sich nur noch im Taskmanager abschiessen.

    Irgendwie kommt kein Icon-Index und damit keine Zuordnung eines Icons zur ImageList.

    Aber nach vielen vielen Stunden sehe ich den Wald vor lauter Bäumen nicht mehr.
    Bitte helft mir ein wenig - ok?
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Runtime.InteropServices
    5. Public Class frmMain
    7. Private Structure SHFILEINFO
    8. Public hIcon As IntPtr
    9. Public iIcon As Integer
    10. Public dwAttributes As Integer
    11. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
    12. Public szDisplayName As String
    13. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
    14. Public szTypeName As String
    15. End Structure
    17. Private Declare Auto Function SHGetFileInfo Lib "shell32.dll" _
    18. (ByVal pszPath As String, ByVal dwFileAttributes As Integer, _
    19. ByRef psfi As SHFILEINFO, ByVal cbFileInfo As Integer, _
    20. ByVal uFlags As Integer) As IntPtr
    22. Private Const SHGFI_ICON = &H100
    23. Private Const SHGFI_SMALLICON = &H1
    24. Private Const SHGFI_LARGEICON = &H0
    25. Friend nIndex As Long = 0
    27. Dim hImgSmall As IntPtr
    28. Dim shinfo As SHFILEINFO
    30. '// Form Load
    31. Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    32. '// ListView einstellen
    33. With ListView1
    34. .SmallImageList = ImageList1
    35. .View = View.Details
    36. .Columns.Add("Name", 200, HorizontalAlignment.Left)
    37. .Columns.Add("Erw.", 60, HorizontalAlignment.Left)
    38. .Columns.Add("Erstellt", 120, HorizontalAlignment.Left)
    39. End With
    41. shinfo.szDisplayName = New String(Chr(0), 260)
    42. shinfo.szTypeName = New String(Chr(0), 80)
    43. End Sub
    46. '// Button Start
    47. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    48. ListFiles(TextBox1.Text)
    49. End Sub
    52. '// ListView mit Diretorys und Files füllen
    53. Private Sub ListFiles(ByVal sStartDir As String)
    54. shinfo = New SHFILEINFO()
    56. Dim hImgSmall As IntPtr = Nothing
    57. Dim SubItemIndex As Integer
    59. '// ListView leeren, ImageListe leeren
    60. ListView1.Items.Clear()
    61. ImageList1.Images.Clear()
    63. '// Eieruhr
    64. Me.Cursor = Cursors.WaitCursor
    65. ListView1.BeginUpdate()
    67. '// Verzeichnisse
    68. Try
    69. For Each fDirs As String In IO.Directory.GetDirectories(sStartDir)
    70. hImgSmall = SHGetFileInfo(fDirs.ToString, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
    71. ImageList1.Images.Add(System.Drawing.Icon.FromHandle(shinfo.hIcon))
    73. ListView1.Items.Add(System.IO.Path.GetFileName(fDirs), SubItemIndex)
    74. ListView1.Items(SubItemIndex).SubItems.Add("<DIR>")
    75. ListView1.Items(SubItemIndex).SubItems.Add(IO.File.GetCreationTime(fDirs).ToString("dd.MM.yyyy hh:mm"))
    77. SubItemIndex += 1
    78. Next
    79. Catch ex As Exception
    80. MsgBox(ex.ToString)
    81. End Try
    83. '// Files
    84. Try
    85. For Each file As String In IO.Directory.GetFiles(sStartDir)
    86. hImgSmall = SHGetFileInfo(file.ToString, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
    87. ImageList1.Images.Add(System.Drawing.Icon.FromHandle(shinfo.hIcon))
    89. ListView1.Items.Add(System.IO.Path.GetFileName(file), SubItemIndex)
    90. ListView1.Items(SubItemIndex).SubItems.Add(IO.Path.GetExtension(file))
    91. ListView1.Items(SubItemIndex).SubItems.Add(IO.File.GetCreationTime(file).ToString("dd.MM.yyyy hh:mm"))
    93. SubItemIndex += 1
    94. Next
    95. Catch ex As Exception
    96. MsgBox(ex.ToString)
    97. End Try
    99. ListView1.EndUpdate()
    100. Me.Cursor = Cursors.Default
    101. End Sub
    103. End Class


    Achso: die Problemfälle sind "C:\Windows\Sytem32" und "C:\Windows\Fonts" (hier knallt es gleich!)

    Anbei die Screenshots, das Programm und das Projekt.

    LG,
    Bruno
    Bilder

    • IconTest_GUI.png

      45,6 kB, 447×636, 350 mal angesehen

    • IconTest_Ex.png

      26,11 kB, 489×229, 261 mal angesehen
    Dateien

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „diylab“ ()

    Hallo nochmal,

    ich komme gerade von einem Kumpel, der auf seinem PC Vista hat.
    Dort der selbe Effekt (falls es wichtig sein sollte).
    Allerdings gibt es dort keinerlei Probleme mit dem C:\Windows\Fonts Verzeichnis - alles komisch.

    LG und auf Hilfe wartend,
    Bruno

    habe code etwas besser angeschaut.....entferne komplett "hImgSmall".





    MSDN:
    hIconHICONA handle to the icon that represents the file. You are responsible for destroying this handle with DestroyIcon when you no longer need it.


    es währe nicht schlecht wenn speicher auch frei gibst wenn die icons nicht mehr verwendet werden:
    msdn.microsoft.com/en-us/library/ms648063%28v=VS.85%29.aspx

    API kannst gleich in Button_Click aufrufen !

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „SystemUnknow“ ()

    entferne komplett "hImgSmall".
    Sorry - das verstehe ich leider nicht.
    Wenn ich die beiden Zeilen mit "hImgSmall" entferne, kann ja die "SHGetFileInfo" Function der shell32.dll nicht mehr aufgerufen werden - ergo -> keine Icons.
    Meinst Du das vielleicht anders?

    LG,
    Bruno

    Funktion wird aufgerufen !
    hImgSmall verwendest du nie irgends auser:

    VB.NET-Quellcode

    1. hImgSmall = SHGetFileInfo (......)

    wenn dich das so stürtzig macht, dann schreib vor Funktionname "Call"(braucht man nicht unbedingt).

    Sicher ist mir klar, das diese Funktion 2x aufgerufen wird.
    Einmal holt sie sie Icons (besser gesagt die Handles) für die Verzeichnisse und einmal für die Files.

    Mir ist nur unklar, warum Du vorschlägst, das ich sie entfernen soll...

    LG,
    Bruno

    funz nicht ?
    Die Variable brauchst du nicht....habe schon geschrieben warum... !

    Ahh - jetzt ist der Groschen gefallen und ich weiß wie Du es meinst 8-) ..
    Ich rufe jetzt die Funktionen direkt auf - hat sich aber nichts geändert - wüsste auch nicht warum.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Runtime.InteropServices
    5. Public Class frmMain
    7. Private Structure SHFILEINFO
    8. Public hIcon As IntPtr
    9. Public iIcon As Integer
    10. Public dwAttributes As Integer
    11. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
    12. Public szDisplayName As String
    13. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
    14. Public szTypeName As String
    15. End Structure
    17. Private Declare Auto Function SHGetFileInfo Lib "shell32.dll" _
    18. (ByVal pszPath As String, ByVal dwFileAttributes As Integer, _
    19. ByRef psfi As SHFILEINFO, ByVal cbFileInfo As Integer, _
    20. ByVal uFlags As Integer) As IntPtr
    22. Private Const SHGFI_ICON = &H100
    23. Private Const SHGFI_SMALLICON = &H1
    24. Private Const SHGFI_LARGEICON = &H0
    25. Friend nIndex As Long = 0
    27. Dim shinfo As SHFILEINFO
    29. '// Form Load
    30. Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    31. '// ListView einstellen
    32. With ListView1
    33. .SmallImageList = ImageList1
    34. .View = View.Details
    35. .Columns.Add("Name", 200, HorizontalAlignment.Left)
    36. .Columns.Add("Erw.", 60, HorizontalAlignment.Left)
    37. .Columns.Add("Erstellt", 120, HorizontalAlignment.Left)
    38. End With
    40. shinfo.szDisplayName = New String(Chr(0), 260)
    41. shinfo.szTypeName = New String(Chr(0), 80)
    42. End Sub
    45. '// Button Start
    46. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    47. ListFiles(TextBox1.Text)
    48. End Sub
    51. '// ListView mit Diretorys und Files füllen
    52. Private Sub ListFiles(ByVal sStartDir As String)
    53. shinfo = New SHFILEINFO()
    55. Dim SubItemIndex As Integer
    57. '// ListView leeren, ImageListe leeren
    58. ListView1.Items.Clear()
    59. ImageList1.Images.Clear()
    61. '// Eieruhr
    62. Me.Cursor = Cursors.WaitCursor
    63. ListView1.BeginUpdate()
    65. '// Verzeichnisse
    66. Try
    67. For Each fDirs As String In IO.Directory.GetDirectories(sStartDir)
    68. SHGetFileInfo(fDirs.ToString, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
    69. ImageList1.Images.Add(System.Drawing.Icon.FromHandle(shinfo.hIcon))
    71. ListView1.Items.Add(System.IO.Path.GetFileName(fDirs), SubItemIndex)
    72. ListView1.Items(SubItemIndex).SubItems.Add("<DIR>")
    73. ListView1.Items(SubItemIndex).SubItems.Add(IO.File.GetCreationTime(fDirs).ToString("dd.MM.yyyy hh:mm"))
    75. SubItemIndex += 1
    76. Next
    77. Catch ex As Exception
    78. MsgBox(ex.ToString)
    79. End Try
    81. '// Files
    82. Try
    83. For Each file As String In IO.Directory.GetFiles(sStartDir)
    84. SHGetFileInfo(file.ToString, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
    85. ImageList1.Images.Add(System.Drawing.Icon.FromHandle(shinfo.hIcon))
    87. ListView1.Items.Add(System.IO.Path.GetFileName(file), SubItemIndex)
    88. ListView1.Items(SubItemIndex).SubItems.Add(IO.Path.GetExtension(file))
    89. ListView1.Items(SubItemIndex).SubItems.Add(IO.File.GetCreationTime(file).ToString("dd.MM.yyyy hh:mm"))
    91. SubItemIndex += 1
    92. Next
    93. Catch ex As Exception
    94. MsgBox(ex.ToString)
    95. End Try
    97. ListView1.EndUpdate()
    98. Me.Cursor = Cursors.Default
    99. End Sub
    101. End Class



    LG,
    Bruno


    WOW!
    Du bist mein "Tagesheld" :P !

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Runtime.InteropServices
    5. Public Class frmMain
    7. Private Structure SHFILEINFO
    8. Public hIcon As IntPtr
    9. Public iIcon As Integer
    10. Public dwAttributes As Integer
    11. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
    12. Public szDisplayName As String
    13. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
    14. Public szTypeName As String
    15. End Structure
    17. Private Declare Auto Function SHGetFileInfo Lib "shell32.dll" _
    18. (ByVal pszPath As String, ByVal dwFileAttributes As Integer, _
    19. ByRef psfi As SHFILEINFO, ByVal cbFileInfo As Integer, _
    20. ByVal uFlags As Integer) As IntPtr
    22. Private Declare Auto Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long
    24. Private Const SHGFI_ICON = &H100
    25. Private Const SHGFI_SMALLICON = &H1
    26. Private Const SHGFI_LARGEICON = &H0
    27. Friend nIndex As Long = 0
    29. Dim shinfo As SHFILEINFO
    31. '// Form Load
    32. Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    33. '// ListView einstellen
    34. With ListView1
    35. .SmallImageList = ImageList1
    36. .View = View.Details
    37. .Columns.Add("Name", 200, HorizontalAlignment.Left)
    38. .Columns.Add("Erw.", 60, HorizontalAlignment.Left)
    39. .Columns.Add("Erstellt", 120, HorizontalAlignment.Left)
    40. End With
    42. shinfo.szDisplayName = New String(Chr(0), 260)
    43. shinfo.szTypeName = New String(Chr(0), 80)
    44. End Sub
    47. '// Button Start
    48. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    49. ListFiles(TextBox1.Text)
    50. End Sub
    53. '// ListView mit Diretorys und Files füllen
    54. Private Sub ListFiles(ByVal sStartDir As String)
    55. shinfo = New SHFILEINFO()
    57. Dim SubItemIndex As Integer
    59. '// ListView leeren, ImageListe leeren
    60. ListView1.Items.Clear()
    61. ImageList1.Images.Clear()
    63. '// Eieruhr
    64. Me.Cursor = Cursors.WaitCursor
    65. ListView1.BeginUpdate()
    67. '// Verzeichnisse
    68. Try
    69. For Each fDirs As String In IO.Directory.GetDirectories(sStartDir)
    70. SHGetFileInfo(fDirs.ToString, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
    71. ImageList1.Images.Add(System.Drawing.Icon.FromHandle(shinfo.hIcon))
    72. DestroyIcon(shinfo.hIcon)
    74. ListView1.Items.Add(System.IO.Path.GetFileName(fDirs), SubItemIndex)
    75. ListView1.Items(SubItemIndex).SubItems.Add("<DIR>")
    76. ListView1.Items(SubItemIndex).SubItems.Add(IO.File.GetCreationTime(fDirs).ToString("dd.MM.yyyy hh:mm"))
    78. SubItemIndex += 1
    79. Next
    80. Catch ex As Exception
    81. MsgBox(ex.ToString)
    82. End Try
    84. '// Files
    85. Try
    86. For Each file As String In IO.Directory.GetFiles(sStartDir)
    87. SHGetFileInfo(file.ToString, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
    88. ImageList1.Images.Add(System.Drawing.Icon.FromHandle(shinfo.hIcon))
    89. DestroyIcon(shinfo.hIcon)
    91. ListView1.Items.Add(System.IO.Path.GetFileName(file), SubItemIndex)
    92. ListView1.Items(SubItemIndex).SubItems.Add(IO.Path.GetExtension(file))
    93. ListView1.Items(SubItemIndex).SubItems.Add(IO.File.GetCreationTime(file).ToString("dd.MM.yyyy hh:mm"))
    95. SubItemIndex += 1
    96. Next
    97. Catch ex As Exception
    98. MsgBox(ex.ToString)
    99. End Try
    101. ListView1.EndUpdate()
    102. Me.Cursor = Cursors.Default
    103. End Sub
    105. End Class



    Die Funktion..

    VB.NET-Quellcode

    1. Private Declare Auto Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long


    ..und das zerstören der Icons nach dem Einfügen in die Imagelist..

    VB.NET-Quellcode

    1. DestroyIcon(shinfo.hIcon)


    ..hats doch Tatsache gebracht.

    Vielen lieben Dank dafür!

    LG,
    Bruno

Facebook
Telefonspende