PureBasic Forums - English

Posted: **Sun Oct 16, 2005 7:14 pm**

Hi !
I've got something I would like to do : In Explorer, we can get specific file type, like :

How can I get this type in Purebasic ?
Thanks !
Gaetan

Posted: **Sun Oct 16, 2005 7:56 pm**

File$ = OpenFileRequester("Choose File...", "", "All Files (*.*)|*.*", 0)

If File$ <> ""

  If SHGetFileInfo_(@File$, 0, @info.SHFILEINFO, SizeOf(SHFILEINFO), #SHGFI_TYPENAME)
  
    Debug PeekS(@info\szTypeName[0], 80)
  
  EndIf
  
  
EndIf

Posted: **Sun Oct 16, 2005 8:02 pm**

Doh, you beat me to it freak

If you want to do it the long way, find the extention in the registry, and get the (Default) value of it. Then search for the default value in the registry, and there will be the file type.

Posted: **Sun Oct 16, 2005 8:07 pm**

freak wrote:

Code: Select all

File$ = OpenFileRequester("Choose File...", "", "All Files (*.*)|*.*", 0)

If File$ <> ""

  If SHGetFileInfo_(@File$, 0, @info.SHFILEINFO, SizeOf(SHFILEINFO), #SHGFI_TYPENAME)
  
    Debug PeekS(@info\szTypeName[0], 80)
  
  EndIf
  
  
EndIf

Perfect and fast answer, I love you

Posted: **Sun Oct 16, 2005 8:10 pm**

Maybe do you know also where to get the icon associated to the type ? That would help me a lot too

Posted: **Sun Oct 16, 2005 8:21 pm**

It can all be done with this function. Just see the possible flags options here:
http://msdn.microsoft.com/library/defau ... leinfo.asp

for the icon:

Code: Select all

File$ = OpenFileRequester("Choose File...", "", "All Files (*.*)|*.*", 0)
If File$ <> ""
  If SHGetFileInfo_(@File$, 0, @info.SHFILEINFO, SizeOf(SHFILEINFO), #SHGFI_ICON|#SHGFI_LARGEICON)
  
    ; Icon handle is returned here:
    Debug info\hIcon
    
    ; if you want a PB image:
    CreateImage(1, 32, 32)
    If StartDrawing(ImageOutput())
      DrawImage(info\hIcon, 0, 0)
    EndIf
    
    ; free icon when no longer needed:
    DestroyIcon_(info\hIcon)
  
  EndIf
EndIf

There is also a flag to get the small icon...

Posted: **Sun Oct 16, 2005 8:48 pm**

Thanks again, it works really well !!

PureBasic Forums - English

Getting file type

Getting file type