Bildschirm-Groesse in mm auslesen

[thomas2009]

Hi

gibt es eine andere alternative Methode um den Bildschirm-Groesse
in Millimeter auslesen zu können ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  DC : HDC;
  cm :Single;
begin
DC := GetDC(Form1.Handle); { or Canvas.Handle }
cm:=(GetDeviceCaps(DC,LOGPIXELSX)/2.54);

Edit1.Text := FloatToStr(Round( (StrToInt('1024')*10) / cm));  
Edit2.Text := FloatToStr(Round( (StrToInt('768')*10) / cm));

end;

Ich erhalte :
271 mm
x
203 mm