Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Размер bitmap

01.01.2007
function PictureSize: TSize;
var
 
ResHandle: HWND;
 
ResData: HWND;
  BMI
: PBitmapInfo;
begin
 
Result.cx := 0;
 
Result.cy := 0;
 
ResHandle := FindResource(HInstance,
    MAKEINTRESOURCE
(200), RT_BITMAP);
 
if ResHandle <> 0 then
 
begin
   
ResData := LoadResource(HInstance, ResHandle);
   
if ResData <> 0 then
   
try
      BMI
:= LockResource(ResData);
     
if Assigned(BMI) then
     
try
       
Result.cx := BMI.bmiHeader.biWidth;
       
Result.cy := BMI.bmiHeader.biHeight;
       
// размер картинки вот тут: BMI.bmiHeader.biSizeImage
     
finally
       
UnlockResource(ResData);
     
end;
   
finally
     
FreeResource(ResData);
   
end;
 
end;
end;

Автор: Rouse_

Взято из https://forum.sources.ru