tSystem

type tSystem = packed record

  hasWNE: Boolean;

  hasColorQD: Boolean;

  hasGestalt: Boolean;

  hasAppleEvents: Boolean;

  hasAliasMgr: Boolean;

  hasFolderMgr: Boolean;

  hasEditionMgr: Boolean;

  hasHelpMgr: Boolean;

  hasScriptMgr: Boolean;

  hasFPU: Boolean;

  scriptsInstalled: Integer;

  systemVersion: Integer;

  sysVRefNum: Integer;

end;