Buen d铆a para todos...
Que tal amigos aqui les dejo la clase TDiskInfo la cual consegu铆 hoy revisando uno programas vieeeeeejos, la misma ofrece informaci贸n acerca de las unidades de disco conectadas al PC. La verdad no es gran cosa pero a mi me funcion贸 muy bien con un programita que hice, a lo mejor a ustedes tambien le sirve.
Antonio,
Gracias!
Buen d铆a para todos...
Aqu铆 les dejo la nueva versi贸n 2.0 de la clase TDiskInfo, en ella hay varias mejoras y entre lo nuevo, ahora detecta si una unidad extra铆ble es una unidad USB. 
Miren el ejemplo y ver谩n lo que se puede hacer con esta clase, desde obtener informaci贸n general de los discos, hasta utilizarla para crear un sistema para proteger sus aplicaciones. 
http://www.mediafire.com/?fkdliendwm8
Nota: Por favor pruebenla y me comentan que tal funciona, tambi茅n les agradezco que reporten las fallas y/o errores que pueda tener
Buen d铆a para todos...
Aqu铆 les dejo la nueva versi贸n 2.1 de la clase TDiskInfo, en ella hay varias mejoras y entre lo nuevo:
Ahora se puede verificar directamente recursos de red UNC \SERVIDOR\RECURSO (SIN ESTAR ASIGNADA NINGUNA LETRA AL RECURSO ) y obtener toda la informaci贸n del recurso al igual que con las unidades A-Z
Se verific贸 compatibilidad con Vista (100% compatible)
http://www.mediafire.com/?jj1ejvzmfn3
Nota: Por favor pruebenla y me comentan que tal funciona, tambi茅n les agradezco que reporten las fallas y/o errores que pueda tener
Interesante clase...
Una vez compilada (FWH82+xHarbour) al ejecutar me da este error:
Una ventana de caption "Windows - No hay disco"
De texto icono redondo rojo con aspa blanca y el texto:
"Exception Processing Message c0000013 Parameters 75b1bf9c4 4 75b1bf9c4 75b1bf9c4
Y los botones Cancelar, Reintentar y Continuar
Pulsando en reintentar no sale de ahi.
Pulsando en cancelar o continuar dos veces ya aparece el programa de test.
Me contesto yo mismo...
Como el primer disco que "escanea" es el A: y no ten铆a diskete metido saca ese error.
Metiendo un diskete en A: ya no sale el error.
Deber铆as corregirlo ARCC
Gracias por tu aportaci贸n.
Buen d铆a para todos...
Que tal JmGarcia muchas gracias por reportar el error, me puedes indicar por favor que versi贸n de TDiskInfo estas usando?, ya que estoy realizando pruebas con la versi贸n 2.1 y a prop贸sito dejo sin disco a A: y no me genera ning煤n error.
ARCC wrote:...me puedes indicar por favor que versi贸n de TDiskInfo estas usando...
JmGarcia wrote:ARCC wrote:...me puedes indicar por favor que versi贸n de TDiskInfo estas usando...
Pues el programa de test dice: TDiskInfo Class V2.1 Update 26 March 2008 (c)
If oDisk:nDiskType <> 1 // 1 = No InstaladoIf oDisk:nDiskType <> 1 .And.; // 1 = No Instalado
oDisk:nTClusters > 0 // verifica si se pudo conectar la unidad o est谩 disponible
//oDisk:NumSerie() = "0000-0000" // as铆 tambien sirve para verificar si est谩 disponibleHe cambiado esa parte del codigo y...
Antes me sal铆an los discos A(Diskete), C, D(DVD), E, F y Z(DVD)
y ahora C, E y F (no salen los que NO tienen medio o soporte introducido)
Pero me sale el mismo error pero una sola vez:
"Exception Processing Message c0000013 Parameters 75b1bf9c4 4 75b1bf9c4 75b1bf9c4
Y los botones Cancelar, Reintentar y Continuar
JmGarcia wrote:He cambiado esa parte del codigo y...
Antes me sal铆an los discos A(Diskete), C, D(DVD), E, F y Z(DVD)
y ahora C, E y F (no salen los que NO tienen medio o soporte introducido)
JmGarcia wrote:Pero me sale el mismo error pero una sola vez:
"Exception Processing Message c0000013 Parameters 75b1bf9c4 4 75b1bf9c4 75b1bf9c4
Y los botones Cancelar, Reintentar y Continuar