Code:

function TMainForm.GetSmallIcon(Name: string): Integer;
var
  FileInfo: TSHFileInfo;
  aIcon: TIcon;
begin
  // clear the memory
  FillChar(FileInfo, SizeOf(FileInfo), #0);
  // get a handle to the ImageList for the file selected
  SHGetFileInfo(PChar(Name), 0, FileInfo, SizeOf(FileInfo),
                SHGFI_ICON or SHGFI_SMALLICON or SHGFI_SHELLICONSIZE);

  aIcon := TIcon.Create;
  // assign the handle of the icon returned
  aIcon.Handle := FileInfo.hIcon;
  // lets paint it transparent
  aIcon.Transparent := True;
  if Name[Length(Name)] = '\' then //za folder
    ObjectIconsSmall.ReplaceIcon(0, aIcon)
  else
    Result := ObjectIconsSmall.AddIcon(aIcon); //za fajl
  // free our icon class
  FreeAndNil(aIcon);
  DestroyIcon(FileInfo.hIcon);
end;

Code:

procedure TMainForm.ConvertTo32BitImageList(const ImageList: TImageList);
const
  Mask: array[Boolean] of Longint = (0, ILC_MASK);
var
  TemporyImageList: TImageList;
begin
  if Assigned(ImageList) then
  begin
    TemporyImageList := TImageList.Create(nil);
    try
      TemporyImageList.Assign(ImageList);
      with ImageList do
      begin
        ImageList.Handle := ImageList_Create(Width, Height, ILC_COLOR32 or Mask[Masked], 0, AllocBy);
        if not ImageList.HandleAllocated then
        begin
          raise EInvalidOperation.Create(SInvalidImageList);
        end;
      end;
      ImageList.AddImages(TemporyImageList);
    finally
      TemporyImageList.Free;
    end;
  end;
end;

Code:
//-------------------------------------------------------------------------
// CUPANJE IMENA IZ "IME,INDEKS" STRINGA
//-------------------------------------------------------------------------
function GetExeName(S: string): string;
var
  kopija: string;
  i: Integer;
  res: string;
  winpath: array[0..259] of char;
begin
  if AnsiContainsStr(S, '%SystemRoot%') then
  begin
    FillChar(winpath, 260, #0);
    GetWindowsDirectory(winpath, 259);
    kopija := AnsiReplaceStr(S, '%SystemRoot%', StrPas(winpath));
  end
  else kopija := Copy(S, 1, Length(S));
  res := '';
  for i := 1 to Length(kopija) do
  begin
    if kopija[i] = '"' then Continue;
    if kopija[i] = ',' then Break;
    res := res + kopija[i];
  end;
  Result := res;
end;
//-------------------------------------------------------------------------
// CUPANJE INDEKSA IZ "IME,INDEKS" STRINGA
//-------------------------------------------------------------------------
function GetIconIndex(S: string): Integer;
var
  i: Integer;
  sgn: Integer;
  res: Integer;
  SreliSmoZarez: Boolean;
begin
  SreliSmoZarez := False;
  res := 0;
  sgn := 1;
  for i := 1 to Length(S) do
  begin
    if S[i] = ',' then SreliSmoZarez := True;
    if (S[i] = '-') and (SreliSmoZarez) then sgn := -1;
    if (Ord(S[i]) >= Ord('0')) and (Ord(S[i]) <= Ord('9')) and (SreliSmoZarez) then res := (res * 10) + StrToInt(S[i]);
  end;
  Result := sgn * res;
end;
//-------------------------------------------------------------------------
// KESIRANJE SVIH REGISTROVANIH IKONA
//-------------------------------------------------------------------------
procedure CacheRegIcons(ExtList: TStringList; ImgList: TImageList);
var
  Reg: TRegistry;
  StrList: TStringList;  // Pomocna lista za sve kljuceve iz HKEY_CLASSES_ROOT
  i: Integer;
  RegTip: string;
  RegExe: string;
  Icon: TIcon;
  SmIcon: HICON;
  LgIcon: HICON;
begin
  ExtList.Clear;
  StrList := TStringList.Create;
  Reg := TRegistry.Create(KEY_READ);
  Reg.RootKey := HKEY_CLASSES_ROOT;
  Reg.OpenKey('', False);
  Reg.GetKeyNames(StrList);
  Reg.CloseKey;
  // Vadjenje samo onih kljuceva koji su ekstenzije
  for i := 0 to (StrList.Count - 1) do
    if StrList.Strings[i][1] = '.' then ExtList.Add(LowerCase(StrList.Strings[i]));
  StrList.Free;
  // Cupanje ikona za svaku ekstenziju
  for i := 0 to (ExtList.Count - 1) do
  begin
    Reg.OpenKey(ExtList.Strings[i], False);
    RegTip := Reg.ReadString('');
    Reg.CloseKey;
    Reg.OpenKey(RegTip + '\DefaultIcon', False);
    RegExe := Reg.ReadString('');
    Reg.CloseKey;
    Icon := TIcon.Create;
    if not FileExists(GetExeName(RegExe)) then ImgList.GetIcon(1, Icon) else
    begin
      ExtractIconEx(pchar(GetExeName(RegExe)), GetIconIndex(RegExe), LgIcon, Smicon, 1);
      Icon.Handle := SmIcon;
    end;
    ImgList.AddIcon(Icon);
  end;
  Reg.Free;
end;