Создание иконок списка файлов

[grafgrial]

Привет парни, помогите в создании программки. Которая считывает все ярлыки из одной папки и выводит их (хочу программу в "своем виде" похожую на Rocketdock)
Код что имеется не работает, может что-то сможете подсказать?

//Получаю список ярлыков в папке (пример)
//GetAllFiles( 'C:\Users\winda\Games', listbox1 );

procedure TForm1.GetAllFiles(Path: string; Lb: TListBox);
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '\' + sRec.Name, Lb );
Lb.Items.Add( Path + '\' + sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;

//Пытался создать иконки, но никак

function GetRegistryIconHandle(FileName: string): HICON;
var
 R: TRegistry;
 Alias, //псевдвним для расширения в реестре
 IconPath: string; //путь для файла с иконкой
 IconNum, //номер иконки в файле
 QPos: Integer; //позиция запятой в записи реестра
begin
 IconNum := 0;
 R := TRegistry.Create;    
 try
   R.RootKey := HKEY_CLASSES_ROOT;
   if R.OpenKey('\' + ExtractFileExt(FileName), True) then
     Alias := R.ReadString('');
   R.CloseKey;
   if R.OpenKey('\' + Alias + '\DefaultIcon', True) then
     IconPath := R.ReadString('');
   R.CloseKey;
   QPos := Pos(',', IconPath);
   if QPos <> 0 then
   begin
     IconNum := StrToInt(Copy(IconPath, QPos + 1, 4));
     IconPath := Copy(IconPath, 1, QPos - 1)
   end;
 finally
   R.Free;
 end;
 Result := ExtractIcon(hInstance, PChar(IconPath), IconNum);
end;


function GetIcon(const FileName: string; const IconType: TIconType = itSmall):
 TIcon;
var
 FileInfo: TShFileInfo;
 ImageList: TImageList;
 IT: DWORD;
begin
 // CoInitialize; лучше - поместите вызов этой ф. в раздел initialization
 IT := SHGFI_SMALLICON;
 Result := TIcon.Create;
 ImageList := TImageList.Create(nil);
 if (IconType = itLarge) then
 begin
  IT := SHGFI_LARGEICON;
  ImageList.Height := 32;
  ImageList.Width := 32;
 end;
 FillChar(FileInfo, Sizeof(FileInfo), #0);
 ImageList.ShareImages := true;
 ImageList.Handle := SHGetFileInfo(
  PChar(FileName),
  SFGAO_SHARE,
  FileInfo,
  sizeof(FileInfo),
  IT or SHGFI_SYSICONINDEX
  );
 ImageList.GetIcon(FileInfo.iIcon, Result);
 ImageList.Free;
end;

[ResourceSpace]

Попробуйте лучше через интерфейс IShellItemImageFactory.