Accueil > > > EXTRACTION DES ICONES D'UN FICHIER .EXE
 EXTRACTION DES ICONES D'UN FICHIER .EXE
 Information sur la source
 Description
La code utilise l'api windows pour extraire les icones d'une executable (metadata). On doit ajouter les composants suivants sur le formulaire - un bouton pour effectuer l'operation nommee openbtn. - un label pour afficher le nom de l'exe (nommee namelbl). - un label pour afficher le nombre d'icones (nommee total). - un composant ImageList pour sauvgarder les icones nommee img.
 Source
- Dim a As New OpenFileDialog
-
- Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As IntPtr, ByVal lpszExeFileName As String, ByVal nIconIndex As Integer) As IntPtr
-
- Private Sub opebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opebtn.Click
- namelbl.Text = "File name : " & a.FileName
- a.Filter = "Win32 PE Files (*.Exe,*.Dll,*.Scr,*.cpl)|*.exe;*.dll;*.scr;*.cpl"
- If a.ShowDialog = Windows.Forms.DialogResult.OK Then
- Dim Handler As IntPtr
- 'On passe -1 pour lire le nombre d'icones
- Handler = ExtractIcon(Me.Handle, a.FileName, -1)
- If Handler.ToInt32 = 0 Then
- MsgBox("Pas d'icones dans le fichier selectionne.....", MsgBoxStyle.Exclamation, "Error")
- Exit Sub
- End If
- total.Text = "Total icons : " & Handler.ToInt32
- img.Images.Clear()
- Dim i As Integer
- 'On prend le nombre d'icones.
- i = Handler.ToInt32
- For i = 1 To i
- 'La fonction retourne un handle pour l'icone.
- 'On lui passe: le handle de la fenetre, le nom de fichier et l'index de l'icone.
- Handler = ExtractIcon(Me.Handle, a.FileName, i - 1)
- img.Images.Add(i, System.Drawing.Icon.FromHandle(Handler))
- Next
- End If
- End sub
Dim a As New OpenFileDialog
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As IntPtr, ByVal lpszExeFileName As String, ByVal nIconIndex As Integer) As IntPtr
Private Sub opebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opebtn.Click
namelbl.Text = "File name : " & a.FileName
a.Filter = "Win32 PE Files (*.Exe,*.Dll,*.Scr,*.cpl)|*.exe;*.dll;*.scr;*.cpl"
If a.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim Handler As IntPtr
'On passe -1 pour lire le nombre d'icones
Handler = ExtractIcon(Me.Handle, a.FileName, -1)
If Handler.ToInt32 = 0 Then
MsgBox("Pas d'icones dans le fichier selectionne.....", MsgBoxStyle.Exclamation, "Error")
Exit Sub
End If
total.Text = "Total icons : " & Handler.ToInt32
img.Images.Clear()
Dim i As Integer
'On prend le nombre d'icones.
i = Handler.ToInt32
For i = 1 To i
'La fonction retourne un handle pour l'icone.
'On lui passe: le handle de la fenetre, le nom de fichier et l'index de l'icone.
Handler = ExtractIcon(Me.Handle, a.FileName, i - 1)
img.Images.Add(i, System.Drawing.Icon.FromHandle(Handler))
Next
End If
End sub
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
extraire icone d'un .exe [ par momorice1 ]
Bijour !!G le chemin d'acces d'1 de mes fichier.exe, j'aimerais extraire son icone pour ensuite l'afficher !comment faire ??
Extraction d'icone [ par Detonio ]
Bonjour à tous, J'ai un problème que je n'arrive pas a résoudre. J'aimerais extraire les icones de fichiers afin de réaliser un explorateur affichant
extraire les fichiers d'une application vb [ par amita ]
salut mes ami(e)svoila j'ai une application vb càd exe et j'ai perdu toutes la source ( forms et modules) je veu savoir s'il ya un moyen pour récupére
Icone exe [ par Le newbie ]
Salut,Petite question bete mais comment peut on changer l'icone de l'exe qui est créer par vb.net ?Merci de votre aide à tous.
extraire un code a partir d'un fichier .exe ou .cab [ par farouha ]
bonjour a tous;je suis en stage et je travaille depuis un mois sur application VB mais le probleme c est ke j 'ai creer mon .exe a ccompagne du .cab e
Icone et form [ par lolpop ]
Salutjuste un petit soucis, j'ai mis une icone a ma form principal et donc c'est l'icone de mon fichier.mais le probleme j'ai envoyé mon exe a un pot
Extraire un auto extractible sous VB [ par norber59480 ]
Bjr tous le monde! J'ai réaliser un fichier Zipper (Winzip) en autoextractible, et je voudrais le décompresser dans un programme VB. Pour l'instant j
Icone [ par i386 ]
Bonsoir, Juste une question... Dans mon petit programme, j'ai juste un module avec sub main () et je voudrais changer l'icone du point exe et je ne s
.NET extraire grande icone [ par alicvb ]
Voilà mon problème : j'aimerai pouvoir extraire l'icone associée à fichier donné. ça je sais faire (avec SHGetFileInfo..
|
Derniers Blogs
 [HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|