Ver Sistema!!!

Iniciado por zerofive, 9 Julio 2006, 00:36 AM

0 Miembros y 1 Visitante están viendo este tema.

zerofive

Quisiera saber como leer todos los discos del sistema...
Leerlos y ponerlos en un Label...
algo asi como los antivirus que muestran todos los archivos que estan analizando...
soy un delincuente. Mi delito es la curiosidad<<hacker's manifiest>>

Red Mx

Men todos

"quisieramos saber parece que somos genios y tu pidiendo deseos hay  que tambien tratar de buscar por nuestra cuenta nada cuesta me cai "
Desarrollar Malware Es Causa De Cancer...

NYlOn

Lo podes hacer con APIs (algo mas o menos asi):

Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
    Dim Tipo As Byte
    For i = Asc("A") To Asc("Z")
        Tipo = GetDriveType(Chr(i) & ":")
        If Tipo <> 1 Then
            List1.AddItem Chr(i) & ":"
        End If
    Next i
End Sub

La otra opcion es agregar el control DriveListBox que viene por defecto en la barra de tareas. La segunda opcion es la mas sencilla, pero puede que necesites saber que tipo de disco es, por lo que tendrias que usar la API...

Y molestate en buscar, porque esto de hacer preguntas que vienen en los manuales mas basicos no va...

zerofive

soy un delincuente. Mi delito es la curiosidad<<hacker's manifiest>>