Hur gör jag för att extracta ikoner från dll filer och exe filer.
Ex
Jag vill ha ikon nr 130 i fil C:\windows\system32\shell32.dll
Har provat api-t ExtractIcon men jag får ingen ordning på detta.
Eller finns det något nytt kommando man kan använda.


MVH
Johan

ExtractIcon borde funka. Posta koden så kan vi felsöka.


MS

Problemt är att jag inte har någon kod och jag begriper inte hur jag använder denna api som returnerar integervärden. Hur kopplar jag ihop detta med nya klassen System.Drawing.Icon?

Prova programmet resourcehacker:

http://www.users.on.net/johnson/resourcehacker/

Funkar jättebra. Du kan gå in i vilken fil som hälst och kolla vilka ressurser som finns där. Du kan även lagra dessa till disk. Anbefales!

Torgrim

är inte vad jag söker

Om du går in och kollar i API-guiden på http://www.allapi.net så hittar du nog en del bra exempel och föklaringar. http://www.allapi.net har slutat att uppdateras men kommer enligt dem själva förmodligen att finnas kvar t o m 2005 då deras domänregistrering går ut.

Jag hittade ganska omgående det här ang ExtractIcon

<code>
'This project needs a PictureBox, called 'Picture1'

'In general section
Private Declare Function DrawIcon Lib "user32" Alias "DrawIcon" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long


Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net

Dim Path as String, strSave as string
'Create a buffer string
strSave = String(200, Chr$(0))
'Get the windows directory and append '\REGEdit.exe' to it
Path = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) + "\REGEdit.exe"
'No pictures
Picture1.Picture = LoadPicture()
'Set graphicmode to 'persistent
Picture1.AutoRedraw = True
'Extract the icon from REGEdit
return1& = ExtractIcon(Me.hWnd, Path, 2)
'Draw the icon on the form
return2& = DrawIcon(Picture1.hdc, 0, 0, return1&)
End Sub
</code>

//
Janne

Tack för att ni svarar.

jag har hittat dessa exempel. men det är vb.net vi pratar om.
.hdc finns ej numera picturebox och
.hWnd finns inte i ett formulär.

.hwnd= .handle i formulär i .net (dock är den inte synlig bydefault för vb.net koders )



.hdc kan man få genom att anropa api'et GetDc(picbox.handle)

eller

Graphics g=picbox.CreateGraphics();
g.GetHdc()



//Roger