Freien Speicherplatz auf einer (Remote-)Festplatte bestimmen

[elliot2extreme]

Hallo,

noch eine Möglichkeit wäre das ganze mit WMI zu lösen.

Damit die Programmierhilfe von Delphi auch für die WMI-Interfaces zur Verfügung steht, wird zuerst die Typbibliothek Microsoft WMI Scripting V 1.x Library importiert. Delphi legt dabei auch die VCL-Wrapperkomponenten für WMI an.

Und hier mal das VB.Net Bespiel zum auslesen des Festplattenspeichers:

Code:

1. Assembly System.Management als Referenz zum Projekt hinzufügen   
2. Imports System.Management hinzufügen    
        
Dim aCO As New ConnectionOptions  
aCO.Username = "Administrator"  
aCO.Password = "sehrgeheim"  
Dim aMS As New ManagementScope("\\P4W2K\root\cimv2", aCO)  
Dim aOQ As New ObjectQuery("SELECT Caption, FreeSpace FROM Win32_LogicalDisk WHERE DeviceID = ""C:""")
Dim aMAS As New ManagementObjectSearcher(aMS, aOQ)  
Dim aObj As ManagementObject  
For Each aObj In aMAS.Get()  
  MessageBox.Show(aObj.Item("Caption") + aObj.Item("FreeSpace").ToString())  
Next

Gruß