VB 如何提取.exe文件图标，并加载到ListView中

VB 如何提取.exe文件图标 在把图标加入到ImageList中，怎样在ListView中添加这个图标以及怎样双击运行 最好做好源程序 发给我---------------- QQ邮箱

'添加command,ImageList,Picture,ListView各1，如果多做一个数组，运行时根据SelectedItem选择
Option Explicit
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

Private Sub Command1_Click()
Dim a As Long
Picture1.AutoRedraw = True
Picture1.BackColor = vbWhite
Picture1.Width = 540
Picture1.Height = 540
a = ExtractIcon(App.hInstance, "E:\Program Files\Tencent\QQ2009\Bin\QQ.exe", 0) '修改
a = DrawIcon(Picture1.hdc, 0, 0, a)
ImageList1.ListImages.Add , , Picture1.Image
ListView1.Icons = ImageList1
ListView1.ListItems.Add , , "QQ", 1
End Sub

Private Sub Form_Load()
Picture1.Visible = False
End Sub

Private Sub ListView1_DblClick()
'Debug.Print ListView1.SelectedItem
Shell "E:\Program Files\Tencent\QQ2009\Bin\QQ.exe"
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！