Показать сообщение отдельно
  #1  
Старый 08.08.2010, 12:44
Аватар для eXplorer
eXplorer eXplorer вне форума
Активный
 
Регистрация: 06.08.2010
Адрес: Ярославль
Сообщения: 264
Версия Delphi: 7
Репутация: 14
Вопрос Помогите...

Всем привет! Подскажите, никак не получается извлечь ico из dll или exe файла, размером больше чем 32x32px... скорее всего надо масштабировать... незнаю как

Процедура:

Цитата:
var
Icon:Ticon;
bmp:Tbitmap;
begin
Icon:=Ticon.create;
Bmp:=Tbitmap.create;
Icon.handle:=ExtractIcon(hInstance, 'proga.exe', 0);
Bmp.width:=icon.width;
Bmp.height:=icon.height;
Bmp.Canvas.Draw(0, 0, icon);
Icon.Free;
end;
Ответить с цитированием