쩝..

스크린의 가로세로 인치당 도트수가 같은 경우 값 얻기.

PixelPerInchY := Screen.PiexelsPerInch;
PixelPerInchY := TForm.PiexelsPerInch;


스크린의 가로세로 인치당 도트수가 다를 경우 값 얻기.

PixelPerInchX := GetDeviceCaps(MyCanvas.Handle, LOGPIXELSX);
PixelPerInchY := GetDeviceCaps(MyCanvas.Handle, LOGPIXELSY);

참고하십시요.
Bitmap의 경우에는 가로세로의 크기만 있기때문에 아래코드의 Dpi는 의미가 없습니다.
.jpg를 기준한 소스입니다.
<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
const
BufferSize = 50;
var
Buffer : String;
index : Integer;
FileStream : TFileStream;
xResolution: Word;
yResolution: Word;
begin
if OpenDialog.Execute then
begin
FileStream := TFileStream.Create(OpenDialog.FileName,
fmOpenRead or fmShareDenyNone);
try
SetLength(Buffer, BufferSize);
FileStream.Read(buffer[1], BufferSize);
index := Pos('JFIF'+#$00, buffer);
if index > 0 then
begin
FileStream.Seek(index+7, soFromBeginning);
FileStream.Read(xResolution, 2);
FileStream.Read(yResolution, 2);

xResolution := Swap(xResolution);
yResolution := Swap(yResolution);

ShowMessage('xResolution=' +
IntToStr(xResolution) +
', yResolution=' +
IntToStr(yResolution))
end;
finally
FileStream.Free
end;
end;
end;
<!--CodeE-->