Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
ВнизИконки Найти похожие ветки
← →
goliath (2004-01-22 10:52) [0]Подскажите пожалуйста как программно вытащить иконки из icl, dll, exe и т.п? Как определить кол-во иконок в библиотеке? Как вообще можно определить факт присутствия иконок в файле?
Заранее спасибо
← →
YuRock (2004-01-22 10:58) [1]Так, например:
procedure SaveIconToFile(hI: HICON; cName: String);
var
Icon: TIcon;
begin
try
Icon := TIcon.Create;
Icon.Handle := hI;
Icon.SaveToFile(cName);
Icon.Free;
except
end;
end;
procedure ExtractIconFromFile(cFile: String);
var
hI: HICON;
i: Integer;
begin
hI := ExtractIcon(hInstance, LPSTR(cFile), 0);
i := 0;
while hI > 1 do begin
SaveIconToFile(hI, cFile + ".ico");
i := i + 1;
hI := ExtractIcon(hInstance, LPSTR(cFile), i);
end;
end;
← →
icWasya (2004-01-22 12:37) [2]получение количества иконок
hI := ExtractIcon(hInstance, LPSTR(cFile), -1);
← →
goliath (2004-01-22 13:40) [3]Спасибо
← →
goliath (2004-01-22 13:59) [4]Да, и еще два маленьких вопроса...
В одноq иконке может быть в нескольких разрешениях; как с этим дружить или бороться. И как можно затолкать иконку обратно в библиотеку.
Заранее спасибо
← →
YuRock (2004-01-22 14:24) [5]1. Лучше дружить.
2. А Вы что, их оттуда вытолкнули?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c