Hola, en mi programa utilizo en varias funciones el tipo TSHFileInfo para obtener las propiedades de archivos que listo en un ListView en modo virtual. Cuando uso estas funciones el programa aumenta el uso de RAM aunque muestre el mismo directorio. En mis funciones no libero (no se si se ha de/puede hacer). Una función de ejemplo:
Código Delphi
[-]
function GetLocalImageIndex(lFileName: String): Integer;
var
ShFileInfo: TSHFileInfo;
begin
ShGetFileInfo(PAnsiChar(lFileName),0,ShFileInfo,SizeOf(ShFileInfo),
SHGFI_SYSICONINDEX);
Result := ShFileInfo.iIcon;
end;
Espero impaciente vuestra contestación.
Muchas gracias de antemano, [Gunman].