Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.04;
Скачать: CL | DM;

Вниз

Форматы иконки   Найти похожие ветки 

 
sco ©   (2006-03-19 14:41) [0]

Как узнать все форматы иконки какого то файла, ну к примеру 1.ico:
 48x48 32bit
 32x32 32bit
 16x16 32bit
 48x48 256
 32x32 256
 16x16 256
Как получить такую информацию?


 
Poirot ©   (2006-03-22 18:28) [1]

http://kainsk.tomsk.ru/g2003/sys26/oswin.htm


 
VadMat   (2006-07-05 14:09) [2]

Предлагаю такой способ:

procedure TForm1.Button1Click(Sender: TObject);
var
fb:File of Byte;
bWidthHeight,bColorBit,bIconCount:Byte;
iIconNumber:Integer;
begin
AssignFile(fb,Edit1.Text);
Reset(fb);
iIconNumber:=0;
ListBox1.Items.Clear;
Seek(fb,4);
Read(fb,bIconCount);
repeat
Seek(fb,iIconNumber+6);
Read(fb,bWidthHeight);
Seek(fb,iIconNumber+12);
Read(fb,bColorBit);
ListBox1.Items.Add(IntToStr(bWidthHeight)+"x"+IntToStr(bWidthHeight)+", "+IntToStr(Trunc(Exp(bColorBit*Ln(2))))+" color");
iIconNumber:=iIconNumber+16;
Seek(fb,iIconNumber);
until (iIconNumber=(bIconCount)*16);
CloseFile(fb);
end;

У меня работает.



Страницы: 1 вся ветка

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
15-1171001483
vajo
2007-02-09 09:11
2007.03.04
Подскажите хороший файлообменник.


2-1171094351
Хинт
2007-02-10 10:59
2007.03.04
Кодировка в программе


1-1168833303
ORMADA
2007-01-15 06:55
2007.03.04
Манифест XP съедает часть формы


6-1159186773
!Trinix
2006-09-25 16:19
2007.03.04
Игровой сервер


15-1170447247
Суслик
2007-02-02 23:14
2007.03.04
Запись avi с экрана.