Извлечение иконки из файла

[asm VS vb]

Люди! Хелп! Помагите не совсем новичку! У меня такая трабла,короче достаю я иконку из любого файла с помощью ExtractIcon,сохраняю на хард в качестве битмэпа,затаскиваю этот битмап в ИмэйджЛист,конвертирую в иконку с помощью свойства ImageList.ListImages(1).Extracticon,
сохраняю ее и вроде бы ничего,но есть одно ТОЛСТОЕ но,и это но заключается в том что получившаяся иконка, выдранная из файла и сконвертированная с помощью VB не соответствует цветовой гамме иконки того файла из которого была выдрана...типа,цвета выцветают.
А как зделать чоб эта иконка получалась то бишь full-колор...

[tyomitch]

И кто при создании темы подтвердил, что пользовался поиском?
http://bbs.vbstreets.ru/viewtopic.php?t=25532

[asm VS vb]

tyomitch
Thanks! Значит плохо искал.

[asm VS vb]

А все таки как сохранить через ExtractIcon полноцветную иконку?
Мне нужен именно этот метод!

[tyomitch]

Зачем тебе ExtractIcon?

[asm VS vb]

Не..просто этот метод выдирания иконки полегче,чем лазить в ресурсы файла..Но,как я уже говорил у меня иконка сохраняется,но получается
выцветшая.Ето чо глюк барсика?

Код: Выделить всё

Option Explicit
      Private Const MAX_PATH = 260
      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
      Dim path$, nIcon As Long
      Private Sub Command1_Click()
          Dim hIcon As Long
          hIcon = ExtractIcon(App.hInstance, path$, nIcon)
          Set Picture1.Picture = LoadPicture("")
          Picture1.AutoRedraw = True
          Call DrawIcon(Picture1.hdc, 0, 0, hIcon)
          Picture1.AutoRedraw = False
          Picture1.Refresh
          SavePicture Picture1.Image, "C:\sample.bmp"
          IG.ListImages.Add , , LoadPicture("C:\sample.bmp")
          SavePicture IG.ListImages(1).ExtractIcon, "C:\sampleic.ico"
      End Sub
      Private Sub Form_Load()
          Picture1.Height = 545
          Picture1.Width = 545
          path$ = "C:\Windows\notepad.exe"
      End Sub

[Kovu]

Не..просто этот метод выдирания иконки полегче,чем лазить в ресурсы файла..Но,как я уже говорил у меня иконка сохраняется,но получается
выцветшая.Ето чо глюк барсика?

Это особенности работы функции OleSavePictureFile