Не те иконки

[HTTqp]

Подскажите как исправить, вот загружаю иконки файлов, но они отображаеются чуть не верно. То есть у меня например файл *.mp3 по умолчанию проигрывает AIMP, а иконка в программе стандартного Windows плеер, а не AIMP. Как исправить?

[northener]

Сообщение от HTTqp

Подскажите как исправить, вот загружаю иконки файлов, но они отображаеются чуть не верно. То есть у меня например файл *.mp3 по умолчанию проигрывает AIMP, а иконка в программе стандартного Windows плеер, а не AIMP. Как исправить?

А нужно исправлять? Иконка и программа по умолчанию это две большие разницы.

[HTTqp]

Сообщение от northener

А нужно исправлять? Иконка и программа по умолчанию это две большие разницы.

Да нужно чтобы грузился тот значок который нужно.
я достаю иконки так:

SHGetFileInfo(PChar(aPath+SR.Name),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON or SHGFI_SMALLICON);
 icon.Handle:=FileInfo.hIcon;

[ZuBy]

Попробуй через реестр, если так не правильно.
по расширению файла, там данные о иконке хранятся

[HTTqp]

Сообщение от ZuBy

Попробуй через реестр, если так не правильно.
по расширению файла, там данные о иконке хранятся

А примерчик можно?

[ZuBy]

Я уже дал пример, осталось только написать код. Действуйте!

[HTTqp]

Все тема закрыта, определение через реестр тоже самое дает что и мой способ, нашел проще и менее гемаройный)

[Toxa]

не будь эгоистом, выложи свое решение тут, для тех у кого возникнет такая же проблема

[Alter]

У меня хорошо находит эта версия.

var
   FileInfo: SHFILEINFO;
   Pat_ :String; // Buf путь файла
begin
 Pat_ := 'C:\blablablabla.mp3';
    // Иконка файла
  SHGetFileInfo(PChar(Pat_), 0, FileInfo,
                    SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
end;

Еще использую и эту. Для другого.

function GetIcon(const FileName: string; const IconType: TIconType = itSmall):TIcon;
var
  FileInfo: TShFileInfo;
  ImageList: TImageList;
  IT: DWORD;
begin
  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;

[HTTqp]

Сообщение от Toxa

не будь эгоистом, выложи свое решение тут, для тех у кого возникнет такая же проблема

Все элементарно, сначала определим к которой относится данный файл. А именно вот так:

function FindExec(FilePath:string):string;
var
buf:array[0..MAX_PATH] of Char;
begin
 Result := '';
  if FileExists(FilePath) then {Проверка на существование файла}
    if FindExecutable(PChar(FilePath),nil,@buf)<>0 then
     Result:=buf;
end;

А затем подставляем иконку этой программы уже)
Кто может подсказать как это реализованно в Total Commander? может кто знает)