请问如何读取\其他EXE文件的图标然后保存为Ico文件?或者直接读入自己的ICO中~

Question

请问有吗??

Answer 1

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 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 GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
 Dim Path As String, strSave As String
 strSave = String(200, Chr$(0)) '缓冲区
 Path = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) + "\REGEdit.exe"
 Picture1.Picture = LoadPicture() '晴空PICTURE1中的图片
 Picture1.AutoRedraw = True
 return1& = ExtractIcon(Me.hWnd, Path, 2) '从可执行文件中提取ICO
 return2& = DrawIcon(Picture1.hdc, 0, 0, return1&) '在picture中重画ICO
End Sub

Answer 2

这根本不能读入Form窗体或者保存啊!

Answer 3

有没有人会啊~
要保存为ICO文件啊!!!!!!!!!!