vb获取exe图标

Question

已知程序一程序路径如C:\1.exe如何获得他的图标。并保存保存格式随便啦。

Answer 1

Option ExplicitPrivate 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 LongPrivate Sub Command1_Click()
    '添加一个Picture1,AutoRedraw=True
    Dim hIcon As Long
    
    hIcon = ExtractIcon(App.hInstance, "c:\windows\notepad.exe", 0)
    DrawIcon Picture1.hdc, 0, 0, hIcon
    SavePicture Picture1.Image, "d:\123.bmp"
End Sub