Ich glaube nicht mehr an Bequemlichkeit und Copy&Paste Kultur, ich hoffe es ist nichts ansteckendes (und das Internet als Isolations-Schicht ausreichend ist)
Delphi-Quellcode:
function ScreenSizeMM: TSize;
begin
Result.cx := Round((Screen.Width / Screen.PixelsPerInch) * 25.4);
Result.cy := Round((Screen.Height / Screen.PixelsPerInch) * 25.4);
end;
Ein Bier drauf, dass der Ergebnistyp weitere Schwierigkeiten macht und der Thread noch nicht zuende ist.