Большие иконки иконки exe файла

[Сидоров]

Все привет. Пишу приложение , нем в listview должны отображаться большие иконки (Как у рабочего стола Window 7 ) ,но не знаю как видовс получает большие иконки .Сейчас получаю иконки так

function TForm1 . ExtractIcon ( fName : String ) : integer ;
var
   aicon:TIcon;
   FileInfo: SHFILEINFO;
 begin

   aicon:=TIcon.Create;
   try
     

    SHGetFileInfo(PChar(fname), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
     aicon.Handle:= FileInfo.hIcon;

     Result:= im.AddIcon(aicon);

     aicon.Free;



   finally
aicon.Free;
   end;


end ;

Если среди иконок есть большие , то отображается только половина иконки ,а если все иконки большие, то все отображается правильно.

[indexx]

Ну и пили все одинаковые. Проблема увеличить холст иконки?

[Сидоров]

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

Ну и пили все одинаковые. Проблема увеличить холст иконки?

Они будут не будут не красивые ,если их растянуть.на рабочем столе Windows 7 если у приложение не большой иконки ,то он растягивает окружность иконки ( но не спаму иконку) http://i65.fastpic.ru/big/2014/1002/...1b9a222ec7.png
Мне тоже так нужно .Этот код для VLC например получит иконку 32Х32.А мне нужны большие иконки без растягивания

[indexx]

Так я не говорю растягивать изображение. Холст увеличь.

[min@y™]

Компонент есть TSysImageList. Кому спиратить копию?

[Сидоров]

Сообщение от min@y™

Компонент есть TSysImageList. Кому спиратить копию?

нашёл здесь
http://expert.delphi.int.ru/download/answers/4289/
только и то ссылка мертвая.Кстати я человека который выкладывал файл ник как у вас ) Файл загружен участником: min@y™
Он платный ?я так понимаю Re:Кому спиратить копию?

[min@y™]

нашёл здесь
http://expert.delphi.int.ru/download/answers/4289/
только и то ссылка мертвая.Кстати я человека который выкладывал файл ник как у вас ) Файл загружен участником: min@y™

Дык эт я и есть.

[Сидоров]

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

Так я не говорю растягивать изображение. Холст увеличь.

Сами иконки маленькие! Если сделать так

function TForm1 . ExtractIcon ( fName : String ) : integer ;
var
   aicon:TIcon;
   FileInfo: SHFILEINFO;
 begin

   aicon:=TIcon.Create;
   try
     aicon.Height := 128;//Изменения
     aicon.Width := 128;//Изменения

    SHGetFileInfo(PChar(fname), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
     aicon.Handle:= FileInfo.hIcon;

     Result:= im.AddIcon(Application.Icon);//Изменения

     aicon.Free;

   finally
Aicon.Free;
   end;

то все иконки будут 128Х128 ()
aicon.Height := 128;
aicon.Width := 128;

Если я правильно понимаю , то когда на рабочем столе увеличиваем иконки Windows считает из res файла приложения иконку побольше .
У лазарус приложения в res файле есть иконки от 16 до 128 .Так вот вопрос темы как читать их с res файла чужого Exe. Так яснее?

[Сидоров]

Сообщение от min@y™

Дык эт я и есть.

К сожалению, срок хранения файла истёк и файл недоступен.

[min@y™]

К сожалению, срок хранения файла истёк и файл недоступен.

Тебя в гугле, штоль, забанили?
Качай с сайта автора.