Structure DefragDataStruct
  Phase as Integer
  Zone as Integer
  Running as ptr
  RedrawScreen as ptr
  Path as WString
  MountPoint as WString
  MountPointSlash as WString
  VolumeName as String * 102
  VolumeHandle as Integer
  IsNTFS as Boolean
  FreeSpace as Double
  ItemTree as ptr
  BalanceCount as Integer
  Excludes as ptr
  SpaceHogs as ptr
  Zones(2) as Integer
  MFTExcludes(2) as ptr
  TotalClusters as Integer
  BytesPerCluster as Integer
  CountFreeClusters as Integer
  CountGaps as Integer
  BiggestGap as Integer
  CountGapsLess16 as Integer
  CountDirectories as Integer
  CountAllFiles as Integer
  CountFragmentedItems as Integer
  CountAllBytes as Integer
  CountFragmentedBytes as Integer
  CountAllClusters as Integer
  CountFragmentedClusters as Integer
  PhaseTodo as Integer
  PhaseDone as Integer
  Speed as Integer
  StartTime as Integer
  RunningTime as Integer
  LastCheckpoint as Integer
  ShowStatus as ptr
  ShowMove as ptr
  ShowAnalyze as ptr
  ShowDebug as ptr
  DrawCluster as ptr
  ClearScreen as ptr
  DebugMsg as CString
End Structure