Gestion des disque durs et mémoire

[Shadow]

Salut à tous,

Comment savoir la taille d'un disque dur, mémoire (SD, etc.) ?
Place occupée, restante, etc, ?

[SPH]

http://www.steffengerlach.de/freeware/

Télécharge SCANNER.
Tu sauras alors TOUT sur ton disque dur. Je n'utilise que ça (enfin presque car pour juste connaitre la capacité d'un disque dur, je vais sur TOTAL COMMANDER)

====
Tout sur le processeur : Télécharge CPU-z
Tout sur le proc graphique : Télécharge GPU-z

Dans les entrailles de l'ordi : https://sisoft-sandra-lite.fr.softonic.com/

[Marc56]

En PB:

Code : Tout sélectionner

EnableExplicit

Define lpFreeBytesAvailable.q
Define lpTotalNumberOfBytes.q
Define lpTotalNumberOfFreeBytes.q

GetDiskFreeSpaceEx_("C:\", @lpFreeBytesAvailable, @lpTotalNumberOfBytes, @lpTotalNumberOfFreeBytes)

Debug "Free space  : " + Str(lpFreeBytesAvailable/1024/1024/1024) + " GB"
Debug "Space used  : " + Str((lpTotalNumberOfBytes-lpFreeBytesAvailable)/1024/1024/1024) + " GB"
Debug "Total space : " + Str(lpTotalNumberOfBytes/1024/1024/1024) + " GB"

Source: WinAPI Library sur Rsbasic.de
(Traduit)

[Shadow]

Merci beaucoup, Marc56

[Jacobus]

Pour obtenir le nom du volume et le type de partition:

Code : Tout sélectionner

EnableExplicit
Procedure.s DriveTypeInfo(Drive$,TypeInfo$) 
  
  Define VName.s, FSName.s 
  VName  = Space(255) 
  FSName = Space(255)   
  
  If GetVolumeInformation_(Drive$, VName, 255, #Null, 0, 0, FSName, 255) 
    
    If TypeInfo$ = "Partition"
      ProcedureReturn FSName        
    ElseIf TypeInfo$ = "Label"
      If VName <> ""
        ProcedureReturn VName
      Else 
        ProcedureReturn "-----"
      EndIf 
    EndIf    
  Else      
    ProcedureReturn "-----"
  EndIf 
  
EndProcedure

Global Drive$ = "E:\"
Debug "Drive name = "+DriveTypeInfo(Drive$,"Label")
Debug "Drive partition = "+DriveTypeInfo(Drive$,"Partition")

[venom]

Merci pour ces bouts de code, ça peut toujours servir






@++

[Shadow]

Merci ^^

Encore, encore, encore !!!