首先纠正你一个笔误,是DPI而不是DIP,
如果是位图则非常好办
VAR
bi:BITMAPINFOHEADER;
TM:TMemoryStream;
dpi:Integer;
begin
TM:=TMemoryStream.create;
TM.LoadFromFile('image.bmp');
TM.seek(sizeof(BITMAPFILEHEADER),0);
TM.Read(bi,sizeof(BITMAPINFOHEADER));
dpi=(bi.BixpelsperMeter*2.54) div 10;
TM.free;
end;
//没有验证过,不过你可以验证一下