Check if file is icon

[jercfd]

How can I check if a file is an icon?

The header of an icon is below. I am only interested in offset 0 and 2.

Offset#   Size   Purpose
0         2      reserved. should always be 0
2         2      type. 1 for icon (.ICO), 2 for cursor (.CUR) file
4         2      count; number of images in the file

In hex, it would look like this

00 00 01 00 0# 00
# = number of images in file

Also, if there is any other method to check if a file is an icon, I would gladly like to know.

Edited August 22, 2009 by jercfd

[Yashied]

_WinAPI_ExtractIconEx($sFile, -1, 0, 0, 0) returns the number of icons in the file.

[wolf9228]

How can I check if a file is an icon?

The header of an icon is below. I am only interested in offset 0 and 2.

Offset#   Size   Purpose
0         2      reserved. should always be 0
2         2      type. 1 for icon (.ICO), 2 for cursor (.CUR) file
4         2      count; number of images in the file

In hex, it would look like this

00 00 01 00 0# 00
# = number of images in file

Also, if there is any other method to check if a file is an icon, I would gladly like to know.

#Include <GDIPlus.au3>



if IsIconFile("C:\au3.ico") Then
MsgBox(0,"Chk","IconFile")
Else
MsgBox(0,"Chk","Another file")
EndIf

Func IsIconFile($sFileName)
Local $Modhwnd , $hImage
  _GDIPlus_Startup ()
$hImage = _GDIPlus_ImageLoadFromFile($sFileName)
_GDIPlus_ShutDown ()
if Not ($hImage) Then Return False
_WinAPI_DeleteObject ($hImage)
$Modhwnd = _WinAPI_GetModuleHandle(0)
$HICON = DllCall("shell32.dll","hwnd","ExtractIcon","hwnd",$Modhwnd,"str",$sFileName,"int",0)
if Not ($HICON[0]) Then Return False
_WinAPI_DestroyIcon($HICON[0])
Return True
EndFunc

Edited August 23, 2009 by wolf9228

[jercfd]

Thanks wolf9228. This will work for me

[Yashied]

One problem: does not work with Vista icons (256x256, PNG compression).