Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
procedure TipoDeVideo do case case sysMetric(1)=640 .and. sysMetric(2)=480 * 640*480 case sysMetric(1)=800 .and. sysMetric(2)=600 * 800 x 600 case sysMetric(1)=1024 .and. sysMetric(2)=768 * 1024 x 768 case sysMetric(1)=1280 .and. sysMetric(2)=1024 * 1280 x 1024 other * desconocido endcase