Saber pulgadas de un monitor

[vtdeleon]

Saludos

Código Delphi [-]
Format('%d x %d %F pulgadas', [HSize, VSize,  SQRT(IntPower(VSize ,2)+ IntPower(HSIZE, 2))/25.4])

No funciona bien del todo
Tengo una lapto de 15 pulgadas en:
1024x768 = 270x 203 13.30 pulgadas
800x600 = 211 x 158 10.38 pulgadas

[ContraVeneno]

Así es Roman, de hecho estaba pensando que hubiera sido mejor poner:

Código Delphi [-]
  HSize := GetDeviceCaps(DC, HORZSIZE);
  Diag:=IntPower(VSize,2); //Error en esta línea
  VSize := GetDeviceCaps(DC, VERTSIZE);

que haber puesto una sola línea, pero bueno... Muchas veces me he topado con ese error y en muchos lenguajes diferentes y precisamente por ser el error más común fue lo que me pareció más extraño.