Como controlar los videos que se ejecuten en la PC?

[JoAnCa]

Hola a todos
Lo que sucede es que en mi empresa el Jefe decidio que prohibiera la ejecución de videos (musicales, peliculas, novelas, etc) en las PC de toda la red local
Esto lo hice bloqueando la ejecución de todos los reproductores de video, pero resultó que hay videos didacticos y educativos que si necesitan verse, pero con la restriccion puesta tampoco se ven estos

Lo que necesito es la forma de que solo se puedan ejecutare este grupo de videos, que estaran en una carpeta compartida en un servidor

La idea que se me ocurre es:
1- Hacer un reproductor en Delphi que solo reproduzca el contenido de la carpeta especificada
2- Monitorear la ruta de lo que va a reproducir el Reproductor de Video y cancelarlo si no es la autorizada (lo veo mas dificil de hacer)
3- Diganme uds otra idea


Probe haciendo un reproductor con el componente que incorpora Delphi pero no pone el video al tamaño de la ventana ni tampoco a pantalla completa, o al menos no supe como hacerlo

Se que hay una forma de hacer que una aplicación se ejecute dentro de la mia, que pudiera probar con eso, pero no recuerdo como es ni donde lo vi (me parece que fue aqui en ClubDelphi)

Diganme que puedo hacer con esto

[beginner01]

saludos.


para que el video se redimensione con el componente tmediaplayer el
evento onresize de el tpanel agregas este código.
agregando el tpanel a la propiedad display de el tmediaplayer

Código Delphi [-]
mediaplayer.displayrect:=rect(0,0,panel.width,panel.height);

aqui para usar el windowsmediaplayer en un form
que puede servirte mejor.

[JoAnCa]

Muchas gracias beginner01 probare lo que me dices, tal vez con eso solucione mi problema

Otra duda, este componente asume los codecs que se instalan para el MediaPlayer de Windows?

[beginner01]

con el tmediaplayer de delphi hasta donde se no es posible usar los codecs del sistema,pero si usas el twindowsmediapleyer si funciona con todos los codecs.

[JoAnCa]

Pues parece que voy a tener que usar el twindowsmediaplayer porque con el tmediaplayer algunos avi los reproduce superacelerados y los VOB no los reproduce

Y donde encuentro el twindowsmediaplayer para delphi7

[beginner01]

saludos.

delphi lo tiene solo hay que instalarlo.

en delphi 7 vas a component->inport activex control y buscas window mediaplayer version(1.0) y le das a instalar.

[JoAnCa]

Ok
Muchas gracias, ya resuelvo con eso