IconExtractor

Dim IconsInFile as long
Dim hIcon as long
Dim i as integer
Dim FileName as string
FileName = "C:\Win95\System\Explorer.exe"
IconsInFile = ExtractIcon(App.hInstance, FileName, -1)
'Ottengo il numero di icone nel file

For i=0 to IconsInFile -1
hIcon = ExtractIcon(App.hInstance, FileName, i) 'Estraggo la i-esima
icona dal file
DrawIcon(Form1.hDC, i * 36, 20, hIcon) 'La disegno
DestroyIcon(hIcon) 'L'icona non mi serve piu': libero la memoria
Next i
'Per ottenere le icone piccole occorre l'Ape ExtractIconEx,

'non trattata in questa sede perche' la devo ancora provare

'2) - Icona del programma associato.

'Api richieste:

'ExtractAssociatedIcon()

'DrawIcon()

'N.B.: sembra che in questo caso DestroyIcon() non serva.

Dim hIcon as long
Dim FileName as string
FileName = "C:\Win95\System\Explorer.exe"
hIconRet = ExtractAssociatedIcon(App.hInstance, FileName, 0&)
Call DrawIcon(Form1.hDc, 1, 1, hIcon)
'Attenzione: la dichiarazione di ExtractAssociatedIcon nel

'file WIN32API.TXT e' sbagliata! (ci ho perso un quarto d'ora

'di insulti alla M$ per capire dove...): l'alias non e'

'ExtractAssociateIcon ma ExtractAssociatedIcon con la "d"!!!

1) - Icone da dll, exe, ocx.
Api richieste:
ExtractIcon()
DrawIcon()
DestroyIcon()