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
