SHGetFileInfo problem (...associated icon...)

[mwc]

Hi,
I'm trying to get an icon associated with a txt file, but whenever I change the icon for the txt file (control panel/folder options/file types) to see the change in my program I have to restart it.

Is it possible to get the changed icon without restarting my program ?


Here's the code i'm talking about
Add Picture1 and Command1



Const MAX_PATH2 = 260
Const SHGFI_DISPLAYNAME = &H200
Const SHGFI_EXETYPE = &H2000
Const SHGFI_SYSICONINDEX = &H4000 ' System icon index
Const SHGFI_LARGEICON = &H0 ' Large icon
Const SHGFI_SMALLICON = &H1 ' Small icon
Const ILD_TRANSPARENT = &H1 ' Display transparent
Const SHGFI_SHELLICONSIZE = &H4
Const SHGFI_TYPENAME = &H400
Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME _
Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX _
Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE

Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH2
szTypeName As String * 80
End Type

Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" _
(ByVal pszPath As String, _
ByVal dwFileAttributes As Long, _
psfi As SHFILEINFO, _
ByVal cbSizeFileInfo As Long, _
ByVal uFlags As Long) As Long

Private Declare Function ImageList_Draw Lib "comctl32.dll" _
(ByVal himl&, ByVal i&, ByVal hDCDest&, _
ByVal x&, ByVal y&, ByVal flags&) As Long

Function GetIconFromFile(filepath As String, Pic As PictureBox, LargeIcon As Boolean)

Dim hImg As Long
Dim FileP As String
Dim r As Long
Dim shinfo As SHFILEINFO

FileP$ = filepath

If LargeIcon Then
hImg& = SHGetFileInfo(FileP$, 0&, shinfo, Len(shinfo), _
BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
Else
hImg& = SHGetFileInfo(FileP$, 0&, shinfo, Len(shinfo), _
BASIC_SHGFI_FLAGS Or SHGFI_SMALLICON)
End If

Pic.Picture = LoadPicture()
r& = ImageList_Draw(hImg&, shinfo.iIcon, Pic.hDC, 0, 0, ILD_TRANSPARENT)

End Function






Private Sub Command1_Click()
Dim CreatedFile As String
On Error Resume Next

CreatedFile = App.Path & "\empty.txt"
FileNumber = FreeFile

'Create a file
Open CreatedFile For Output As #FileNumber
Close #FileNumber

GetIconFromFile CreatedFile, Picture1, True

Kill CreatedFile

End Sub

[Jim Davis]

mwc, is there any other way to get the associated icon? eg. without the file is exists (like *.txt or something)


R., Jim