Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
Sound 1 CuePoint
SplashScreenX Pro
Trigonometry Class v0.6
Sprite generation
Stub Mac Projector
Retrun Properties on a Sprite
List of Globals
Macromedia Flash 5 Authorized
HTML-ingo
DogEar xtra
 

 

 

Behavior createSpecList

Added on 10/2/2000

 

Compatibilities:
D7 D8 PC Script

Required Xtras:
FileXtra
Buddy API

This item has not yet been rated

Author: MediaMacros (website)

Usage - call with createSpecList (howToReturn). Possible values are..."file", "message", "field", "return" File will write to a text file on the windows desktop, message will place info in the message window, Field will place in a field named specList, and return will return the list as a value. This is an extreme overuse of Buddy"s Functions, but can come in handy.

on createSpecList howReport
  sysList = []
  split = ";"
  --system info
  add sysList, "OperatingSystem" & split & string(baVersion("os"))
  case baCpuInfo( "type" ) of
    0 : CPU = "unknown"
    3 : CPU = "386"
    4 : CPU = "486"
    5 : CPU = "Pentium"
    6 : CPU = "PentiumPro"
  end case
  add sysList, "CPU Type" & split & CPU
  add sysList, "CPU Speed" & split & string(baCpuInfo( "speed" ))
  add sysList, "Physical RAM" & split & string(baMemoryInfo( "ram" )/(1048576)) & "MB"
  add sysList, "Free RAM" & split & string(baMemoryInfo( "free ram" )/(1048576)) & "MB"
  add sysList, "Swap File Size" & split & string(baMemoryInfo( "free swap" )/1048576) & "MB"
  add sysList, "Monitor resolution" & split & string(baScreenInfo( "width" )) && "X" &&  string(baScreenInfo( "height" ))
  add sysList, "Monitor color depth" & split &  string(baScreenInfo( "depth" )) && "Bit Color"
  
  --drive info
  driveList = []
  theDrives = DrivesToList()
  add driveList, "MountedDrives" & split & string(theDrives.count) && "Total Drives"
  repeat with x = 1 to theDrives.count
    add driveList, "Drive Letter" & split  

 


Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail