ExtractIcon видит только одну иконку

[Сидоров]

Все привет ! Столкнулся с такой проблемой API функция

ExtractIcon (HINSTANCE, 'c:\project1.exe',0)

Видит только нулевую (основную ) иконку хоть и заранее известно что их больше.Приложение

'c:\project1.exe' это Lazarus приложение с которого я пытаюсь прочитать
иконку.Вообще как получить свою иконку,я знаю

Image1.Picture.Icon.Handle := LoadImage(HINSTANCE, MAKEINTRESOURCE('MAINICON'), IMAGE_ICON, 128, 128, LR_LOADTRANSPARENT);

,но речь идет о посторонних приложениях из которых мне нужно получить иконки 64Х64 (если они есть конечно у приложения).

msdn говорит что функция "ExtractIcon" возвращает количество иконок если 3-тий параметр равен -1 ,но она возвращает 0 постоянно .

цитата из msdn

If this value is -1, the function returns the total number of icons in the specified file. If the file is an executable file or DLL,
the return value is the number of RT_GROUP_ICON resources. If the file is an .ICO file, the return value is 1.

If this value is a negative number not equal to –1, the function returns a handle to the icon in the specified file whose resource
identifier is equal to the absolute value of nIconIndex. For example, you should use –3 to extract the icon whose resource identifier
is 3. To extract the icon whose resource identifier is 1, use the ExtractIconEx function.

Так как же прочитать большие иконки?

[Stilet]

ExtractIconEx() не пробовал?

[waleri]

ExtractIcon видит все иконки - последний аргумент может быть индексом.
Вы задали 0, что извлекает первую иконку.
Задайте 1, извлечет вторую и так далее.
Если всегда возвращает 0, тогда стоит глянуть на ЕХЕ файл редактором ресурсов.
На худой конец можно всегда загрузить ресурсы напрямую. EnumResourceNames, FindResource и далее.

Ну или воспользоваться ExtractIconEx

[Сидоров]

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

ExtractIcon видит все иконки - последний аргумент может быть индексом.
Вы задали 0, что извлекает первую иконку.
Задайте 1, извлечет вторую и так далее.
Если всегда возвращает 0, тогда стоит глянуть на ЕХЕ файл редактором ресурсов.
На худой конец можно всегда загрузить ресурсы напрямую. EnumResourceNames, FindResource и далее.

Ну или воспользоваться ExtractIconEx

ExtractIconEx Читал о ней пробовал те же яйца только в профиль .
Я ExtractIcon в качестве 3 параметра - 1 указываю в программе ,что бы узнать сколько у меня иконок есть.

var
  IconCounter:integer;
  FileIcon:TIcon;
begin
  FileIcon:=TIcon.Create;

  IconCounter:= ExtractIcon(HINSTANCE,'c:\project1.exe',-1) ;

  if   IconCount > 0 then
  FileIcon.Handle:=  ExtractIcon(HINSTANCE,'c:\project1.exe', IconCount);
end;

А вот "FindResource" попробывать можно ))

[waleri]

ПОчему первый вызов IconCounter а второй с IconCount?
Далее, даже если одна переменная, последняя икона будет IconCount-1 - индексы начинаются с 0

[Сидоров]

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

ПОчему первый вызов IconCounter а второй с IconCount?
Далее, даже если одна переменная, последняя икона будет IconCount-1 - индексы начинаются с 0

var
  IconCounter:integer;
  FileIcon:TIcon;
begin
  FileIcon:=TIcon.Create;
   //проверяет сколько иконок есть
  IconCounter:= ExtractIcon(HINSTANCE,'c:\project1.exe',-1) ;

FileIcon.Handle:=  ExtractIcon(HINSTANCE,
'c:\project1.exe', IconCounter);
Image1.Picture.Icon:=FileIcon;
end;

Тоже самое . Индексы начинаются с нуля,верно по этому

ExtractIcon(HINSTANCE,'c:\project1.exe',0)

содержит иконку ,а

ExtractIcon(HINSTANCE,'c:\project1.exe',1)  или 2

нет

[Сидоров]

Вообще по идеи и так должно работать

var
   Icon: TIcon;
   FileInfo: SHFILEINFO;
 begin
   Icon := TIcon.Create;
   try
     // Get the Icon 
    SHGetFileInfo(PChar('Filename.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
     icon.Handle := FileInfo.hIcon;

     DestroyIcon(FileInfo.hIcon);
     // Save the Icon to a file: 
    icon.SaveToFile('IconFromExe.ico');
     // Set the Icon as Application Icon (temporary) 
    Application.Icon := icon;

   finally
     Icon.Free;
   end;
 end;

Но если последний параметр равен "SHGFI_ICON" то иконки маленкие,а если "SHGFI_LARGEICON" их вообще нет. http://msdn.microsoft.com/en-us/library/aa931527.aspx