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ß