آرشیو سورس های کاربردی و بدردبخور

[xxxxx_xxxxx]

استخراج آيكن هر نوع فايل

تا حالا اين همه برنامه براي كش رفتن آيكن ديديد و دانلود كرديد اما كدوم يكيش دوخطي بوده !

Private Const DI_MASK = &H1

Private Const DI_IMAGE = &H2

Private Const DI_NORMAL = DI_MASK Or DI_IMAGE

Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long

Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long

Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long



Private Sub Form_Click()

mIcon = ExtractAssociatedIcon(App.hInstance, "C:\Autoexec.bat", 2)

DrawIconEx Me.hdc, 0, 0, mIcon, 0, 0, 0, 0, DI_NORMAL

End Sub

براي ذخيره كردنش هم كه ديگه كاري نداره يك picture رو فرم ميزارين و آيكن رو تو اون قرار ميديد و بعد هم با SavePicture ذخيرش مي كنيد.