You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacClassic/Volume Information
Class Window1 Inherits Window
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control vname Inherits Label
ControlInstance vname Inherits Label
End Control
Control StaticText3 Inherits Label
ControlInstance StaticText3 Inherits Label
End Control
Control StaticText4 Inherits Label
ControlInstance StaticText4 Inherits Label
End Control
Control StaticText5 Inherits Label
ControlInstance StaticText5 Inherits Label
End Control
Control StaticText6 Inherits Label
ControlInstance StaticText6 Inherits Label
End Control
Control StaticText7 Inherits Label
ControlInstance StaticText7 Inherits Label
End Control
Control StaticText8 Inherits Label
ControlInstance StaticText8 Inherits Label
End Control
Control StaticText9 Inherits Label
ControlInstance StaticText9 Inherits Label
End Control
Control StaticText10 Inherits Label
ControlInstance StaticText10 Inherits Label
End Control
Control StaticText11 Inherits Label
ControlInstance StaticText11 Inherits Label
End Control
Control StaticText12 Inherits Label
ControlInstance StaticText12 Inherits Label
End Control
Control StaticText13 Inherits Label
ControlInstance StaticText13 Inherits Label
End Control
Control StaticText14 Inherits Label
ControlInstance StaticText14 Inherits Label
End Control
Control StaticText2 Inherits Label
ControlInstance StaticText2 Inherits Label
End Control
Control StaticText15 Inherits Label
ControlInstance StaticText15 Inherits Label
End Control
Control filecount Inherits Label
ControlInstance filecount Inherits Label
End Control
Control foldercount Inherits Label
ControlInstance foldercount Inherits Label
End Control
Control totalbytes Inherits Label
ControlInstance totalbytes Inherits Label
End Control
Control freebytes Inherits Label
ControlInstance freebytes Inherits Label
End Control
Control blocksize Inherits Label
ControlInstance blocksize Inherits Label
End Control
Control totalblocks Inherits Label
ControlInstance totalblocks Inherits Label
End Control
Control freeblocks Inherits Label
ControlInstance freeblocks Inherits Label
End Control
Control defaultvolume Inherits Label
ControlInstance defaultvolume Inherits Label
End Control
Control filesopen Inherits Label
ControlInstance filesopen Inherits Label
End Control
Control Hardwarelocked Inherits Label
ControlInstance Hardwarelocked Inherits Label
End Control
Control Softwarelocked Inherits Label
ControlInstance Softwarelocked Inherits Label
End Control
Control Signature Inherits Label
ControlInstance Signature Inherits Label
End Control
Control name Inherits Label
ControlInstance name Inherits Label
End Control
Control root Inherits Label
ControlInstance root Inherits Label
End Control
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action()
nextes
End EventHandler
End Control
EventHandler Sub Open()
nextes
End EventHandler
Sub nextes()
dim v as folderItem
dim vi as VolumeInformationMBS
if c>=volumecount then
c=0
end if
v=volume(c)
c=c+1
vname.text=v.displayName
vi=v.VolumeInformationMBS
if vi<>nil then
blocksize.text=format(vi.blocksize,"0")
totalblocks.text=format(vi.Totalblocks,"0")
totalbytes.text=format(vi.totalbytes,"0")
name.text=vi.name
filecount.text=format(vi.filecount,"0")
foldercount.text=format(vi.foldercount,"0")
freeblocks.text=format(vi.freeblocks,"0")
freebytes.text=format(vi.freebytes,"0")
signature.text=format(vi.FileSystemID,"0")+", "+format(vi.signature,"0")+" ("+chr(vi.signature)+")"
if vi.LimitedInformation then
softwarelocked.text="?"
hardwarelocked.text="?"
defaultvolume.text="?"
filesopen.text="?"
root.text="?"
else
softwarelocked.text=yesno(vi.softwareLocked)
hardwarelocked.text=yesno(vi.hardwareLocked)
defaultvolume.text=yesno(vi.defaultVolume)
filesopen.text=yesno(vi.filesOpen)
root.text=vi.root.NativePath
end if
end if
End Sub
Function yesno(b as boolean) As string
if b then
return "yes"
else
return "no"
end if
End Function
Property Protected c As integer
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
End Class