Extraire les informations d'un BMP

Cet exemple vous montre comment extraire les informations suivantes d'un Bitmp:
Taille, largeur, hauteur, résolution et nombre de couleurs.

procedure TForm1.Button1Click(Sender: TObject);
var
fileheader:TBitmapfileheader;
infoheader:TBitmapinfoheader;
s :TFilestream;

begin
s:=TFileStream.Create('c:winntangler.bmp',fmOpenRead);
s.Read(fileheader,sizeof(fileheader));
s.Read(infoheader,sizeof(infoheader));
s.Free;
listbox1.Items.Clear;
listbox1.Items.Add('Filesize: '+inttostr(fileheader.bfSize));
listbox1.Items.Add('Width: '+inttostr(infoheader.biWidth));
listbox1.Items.Add('Height: '+inttostr(infoheader.biHeight));
listbox1.Items.Add('BitCount: '+inttostr(infoheader.biBitCount));
listbox1.Items.Add('Used: '+inttostr(infoheader.biClrUsed));
//BitCount:
//1 = black/white
//4 = 16 colors
//8 = 256 colors
//...
end;