Bildschirm-Groesse in mm auslesen

[Aphton]

Zitat von thomas2009:

Wie rufe ich die Funktion auf ?

Delphi-Quellcode:

var
Form1: TForm;
x,y : Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=Screen.width;
y:=Screen.Height;

GetDisplaySize(x,y);
caption:=IntToStr(x);
end;

Ich erhalte -1

Sry, habs ausgebessert...
"Kopiers" noch einmal