Hallo!
Habe folgendes Problem mit WMI
Ich versuche die Benutzerrechte einer Datei auszulesen was in VB sehr einfach ist und funktioniert.
Wie kann ich so etwas in Delphi erstellen ?
folgender VB Code
connect = "winmgmts:Win32_LogicalFileSecuritySetting='" & testdatei & "'"
Set instance = GetObject(connect)
retval = instance.getsecuritydescriptor(objDescriptor)
DACL = objDescriptor.Properties_.Item("dacl").Value
For each entry in DACL
list = list & entry.Trustee.Name & ": " & entry.AccessMask & vbCr _
& GetRights(entry.AccessMask) & vbCr
Next
MsgBox list
Habe folgendes Problem mit WMI
Ich versuche die Benutzerrechte einer Datei auszulesen was in VB sehr einfach ist und funktioniert.
Wie kann ich so etwas in Delphi erstellen ?
folgender VB Code
connect = "winmgmts:Win32_LogicalFileSecuritySetting='" & testdatei & "'"
Set instance = GetObject(connect)
retval = instance.getsecuritydescriptor(objDescriptor)
DACL = objDescriptor.Properties_.Item("dacl").Value
For each entry in DACL
list = list & entry.Trustee.Name & ": " & entry.AccessMask & vbCr _
& GetRights(entry.AccessMask) & vbCr
Next
MsgBox list
Comment