Cet article montre comment extraire une petite icône à partir d'une application.
fonction de GetSmallIcon(const AFile : String) : THandle
var
& nbsp & nbsp Info : TSHFileInfo
& nbsp & nbsp InfoSize : Integer
begin
& nbsp & nbsp InfoSize := SizeOf(TSHFileInfo)
& nbsp & nbsp FillChar(Info, InfoSize, 0)
& nbsp & nbsp SHGetFileInfo(PChar(AFile), 0, Info, InfoSize, SHGFI_ICON ou SHGFI_SMALLICON)
& nbsp & nbsp Résultat := Info.hIcon
fin
Extrait petite icone
Extrait petite icone : Plusieurs milliers de conseils pour vous faciliter la vie.
Cet article montre comment extraire une petite icone a partir d'une application.
fonction de GetSmallIcon(const AFile : String) : THandle
var
& nbsp & nbsp Info : TSHFileInfo
& nbsp & nbsp InfoSize : Integer
begin
& nbsp & nbsp InfoSize := SizeOf(TSHFileInfo)
& nbsp & nbsp FillChar(Info, InfoSize, 0)
& nbsp & nbsp SHGetFileInfo(PChar(AFile), 0, Info, InfoSize, SHGFI_ICON ou SHGFI_SMALLICON)
& nbsp & nbsp Resultat := Info.hIcon
fin
