| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Иконки в ХР
Alfik © (2002-10-21 19:15:00)Захотелось мне вытянуть иконки с shell32.dll в ХР
Делаю это так:
Image1.Picture.Icon.Handle := ExtractIcon(Application.Handle,path,i);
В Image они рисуются красиво с полной цветовой гаммой, а вот когда сохраняю их :
image1.Picture.Icon.SaveToFile(path)
то они стают галимыми 16-цветными иконами
как их сохранить без потери качества ???
Хотел через передать изображение с TIcon в TBitmap, так ламо - не получаеться
помогите плз!
Alf
DeMoN-777 (2002-10-23 13:00:00) [1]Не....всё не влезет.....
Если надо, мыль кину исходники.
DeMoN-777 (2002-10-23 12:56:00) [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;
MJH (2002-10-22 16:26:00) [3]есть такой зверь - MicroAngelo называется...вот им и вытаскивай
| |
