Иконки в ХР

← →
Alfik © (2002-10-21 19:15) [0]

Захотелось мне вытянуть иконки с shell32.dll в ХР
Делаю это так:
Image1.Picture.Icon.Handle := ExtractIcon(Application.Handle,path,i);
В Image они рисуются красиво с полной цветовой гаммой, а вот когда сохраняю их :
image1.Picture.Icon.SaveToFile(path)
то они стают галимыми 16-цветными иконами
как их сохранить без потери качества ???
Хотел через передать изображение с TIcon в TBitmap, так ламо - не получаеться
помогите плз!

Alf

← →
MJH © (2002-10-22 16:26) [1]

есть такой зверь - MicroAngelo называется...вот им и вытаскивай

← →
DeMoN-777 © (2002-10-23 12:56) [2]

procedure ScanFile (const Name, Output :string; OnFile, OnIcon :TCallback);
var
H :HModule;
I :TIconsList;
N :Integer;
begin
H := LoadLibraryEx (PChar (Name), 0, load_library_as_datafile);
if H > 0
then begin
I := TIconsList.Create;
I.LoadModule (H);
if not (I.Count = 0)
then for N := 0 to I.Count - 1 do
begin
I.Items[N].SaveToFile (Output + "\" + GetNewFileName);
OnIcon;
Application.ProcessMessages;
end;
FreeLibrary (H)
end;
OnFile;
Application.ProcessMessages;
end;

Не....всё не влезет.....
Если надо, мыль кину исходники.

Иконки в ХР Найти похожие ветки