尝试使用 LoadImage 加载应用程序的图标，但该函数返回 0

我正在尝试使用加载应用程序的图标LoadImageWinAPI函数，但由于某种原因它总是返回0。

我已阅读文档 https://msdn.microsoft.com/en-us/library/windows/desktop/ms648045(v=vs.85).aspx，但我无法理解我做错了什么。除了尝试转换外，我没有遇到任何例外IconPtr to Icon（这是因为IconPtr is 0).

Public Shared Function ExtractAssociatedIconArray(ByVal File As String, ByVal Sizes() As Size) As Icon()
    Dim ReturnArray(Sizes.Length) As Icon
    Dim Index As Integer = 0

    For Each s As Size In Sizes
        'IconPtr is always zero for some reason.
        Dim IconPtr As IntPtr = NativeMethods.LoadImage(Nothing, File, NativeMethods.Enumrations.IMAGE_ICON, s.Width, s.Height, NativeMethods.Enumrations.LR_DEFAULTCOLOR Or NativeMethods.Enumrations.LR_LOADFROMFILE)
        ReturnArray(Index) = Icon.FromHandle(IconPtr)
        Index += 1
    Next

    Return ReturnArray
End Function

The NativeMethods class:

Public Class NativeMethods
    <DllImport("user32.dll", SetLastError:=True)> _
    Public Shared Function LoadImage(ByVal hInst As IntPtr, _
                     ByVal lpszName As String,
                     ByVal uType As UInt32, _
                     ByVal cxDesired As Integer, _
                     ByVal cyDesired As Integer, _
                     ByVal fuLoad As UInt32) As IntPtr
    End Function

    Public Enum Enumrations As UInteger
        '' LoadImage ''
        IMAGE_BITMAP = 0
        IMAGE_ICON = 1
        IMAGE_CURSOR = 2
        LR_CREATEDIBSECTION = &H2000
        LR_DEFAULTCOLOR = &H0
        LR_DEFAULTSIZE = &H40
        LR_LOADFROMFILE = &H10
        LR_LOADMAP3DCOLORS = &H1000
        LR_LOADTRANSPARENT = &H20
        LR_MONOCHROME = &H1
        LR_SHARED = &H8000
        LR_VGACOLOR = &H80
    End Enum
End Class

使用示例：

Dim Icons() As Icon = ExtractAssociatedIconArray("C:\MyApp.exe", New Size() {New Size() {48, 48}})

你的处理方式是错误的。您正在将可执行文件名传递给lpszName的论证LoadImage。该参数不接受可执行文件名。它接受第一个参数指定的模块内的资源名称，hinst。文档中对此进行了解释。

您注意到您没有遇到异常。这是可以预料的。 Win32 API 不会引发异常。该文档再次描述了如何报告错误。它们由返回值报告NULL。当这种情况发生时，你打电话GetLastError获取错误代码。那将是Marshal.GetLastWin32Error来自.net。

做你正在尝试使用的事情LoadImage您需要执行以下操作：

1. 通过调用获取实例句柄LoadLibraryEx传递可执行文件名。使用LOAD_LIBRARY_AS_DATAFILE标志，如文档所述。
2. 将该实例句柄传递给LoadImage。您还需要知道要提取的图像资源的名称。
3. 如果您不知道资源的名称，则需要使用资源枚举函数，例如EnumResourceNames。您正在寻找可执行文件中的第一个资源。