Extracto de pequeño icono
en Este artículo se muestra cómo extraer un pequeño icono de una aplicación.
función 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 o SHGFI_SMALLICON)
& nbsp & nbsp Resultado := Info.hIcon
fin
Extracto de pequeño icono
Extracto de pequeño icono : Multi-millones de consejos para hacer su vida mas facil.
en Este articulo se muestra como extraer un pequeño icono de una aplicacion.
funcion 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 o SHGFI_SMALLICON)
& nbsp & nbsp Resultado := Info.hIcon
fin
Extracto de pequeño icono
By Consejos Y Trucos
Extracto de pequeño icono : Multi-millones de consejos para hacer su vida más fácil.