home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 April / PCWorld_2000-04_cd.bin / Software / TemaCD / winedit / sysinfo.ma_ < prev    next >
Text File  |  1997-11-11  |  4KB  |  100 lines
  1.        wintype="retail"  
  2.        if WinMetrics(22) then wintype="debug"  
  3.         wcx=WinMetrics(-3)  
  4.         math="Math"  
  5.         switch wcx  
  6.            case 0   ; Win16  
  7.                 wc=WinConfig()  
  8.                 if !(wc&1) then mode="Real"  
  9.                 if wc&16 then mode="Standard"  
  10.                 if wc&32 then mode="Enhanced"  
  11.                   
  12.                 if wc&64 then cpu=8086  
  13.                 if wc&128 then cpu=80186  
  14.                 if wc&2 then cpu=286  
  15.                 if wc&4 then cpu=386  
  16.                 if wc&8 then cpu=486  
  17.                 mode = strcat(mode,' ',wintype,' Windows ')  
  18.                 if !(wc&1024)  then math="No math"  
  19.                 break  
  20.           case 1 ; Win32 Intel  
  21.                mode="Intel 32-bit %wintype% Windows "  
  22.                cpu= ItemExtract(6,WinSysInfo(),@tab)  
  23.                break  
  24.           case 2 ; Dec Alpha  
  25.                mode="DEC Alpha %wintype% Windows NT "  
  26.                cpu= ItemExtract(6,WinSysInfo(),@tab)  
  27.                break  
  28.           case 3 ; MIPS  
  29.                mode="MIPS %wintype% Windows NT "  
  30.                cpu= ItemExtract(6,WinSysInfo(),@tab)  
  31.                break  
  32.           case 4 ; PowerPC   
  33.                mode="PowerPC %wintype% Windows NT "  
  34.                cpu= ItemExtract(6,WinSysInfo(),@tab)  
  35.                break  
  36.           case wcx  
  37.                cpu= ItemExtract(6,WinSysInfo(),@tab)  
  38.                mode="Unknown platform %wintype% Windows  "  
  39.         endswitch  
  40.   
  41.         Sysinfo=strcat(cpu,' ',mode,WinVersion(1),'.',WinVersion(0),@CRLF)  
  42.   
  43.         mouse="No Mouse"  
  44.         if WinMetrics(19) then mouse="Mouse"  
  45.   
  46.         Sysinfo=strcat(sysinfo,math," co-processor.   ",mouse,' available.',@CRLF)  
  47.   
  48.         sysinfo=strcat(sysinfo,WinMetrics(0),'x',WinMetrics(1)," video resolution.  ",WinMetrics(-1),"  colors.",@CRLF)  
  49.   
  50.         ErrorMode(@OFF)  
  51.         LastError()  
  52.         PlayMedia("Status WaveForm Ready")  
  53.         ErrorMode(@CANCEL)  
  54.         if LastError()!=1193 then sysinfo=strcat(sysinfo,"Windows multimedia extensions present.",@CRLF)  
  55.         a=NetInfo(0)  
  56.         if a=="MULTINET"  
  57.              b=NetInfo(1)  
  58.              bug=strcat(b,"network(s) installed")  
  59.              ;Message("Multinet supporting  %count% networks", b)  
  60.         else  
  61.              ;Message("Installed Network", a)  
  62.              bug=strcat(a," network installed")  
  63.         endif  
  64.         sysinfo=strcat(sysinfo,bug,@crlf)  
  65.   
  66.   
  67.         switch wcx  
  68.            case 0  
  69.                bug=WinResources(0)/1024   ; Compute memory avail  
  70.                math=strlen(bug)  
  71.                if math>3 then bug=strcat(strsub(bug,1,math-3),',',strsub(bug,math-2,3))  
  72.                sysinfo=strcat(sysinfo,CR,bug," KB Free Memory",CR)  
  73.                sysinfo=strcat(sysinfo,WinResources(2),"%% System Resources Free (",WinResources(3),"%% GDI, ",WinResources(4),"%% User)",CR)  
  74.               break  
  75.            case wcx  
  76.               bug=WinResources(11)/1024   ; Get Physical memory avail  
  77.               sysinfo=strcat(sysinfo,CR,bug," KB Physical Memory",CR)  
  78.               bug=(WinResources(14)/1024)+bug   ; Get Virtual memory + Physical avail  
  79.               sysinfo=strcat(sysinfo,bug," KB Total Memory",CR)  
  80.         end switch  
  81.   
  82.   
  83.         sysinfo=strcat(sysinfo,"Console ",DosVersion(1),'.',DosVersion(0),"  using ",environment("COMSPEC"),@CRLF)  
  84.         disks=DiskScan(1)  
  85.         disks=StrReplace(disks,@tab," ")  
  86.         if disks!="" then sysinfo=strcat(sysinfo,"Floppies ",disks,@CRLF)  
  87.         disks=DiskScan(2)  
  88.         disks=StrReplace(disks,@tab," ")  
  89.         if disks!="" then sysinfo=strcat(sysinfo,"Hard Disks ",disks,@CRLF)  
  90.         disks=DiskScan(4)  
  91.         disks=StrReplace(disks,@tab," ")  
  92.         if disks!="" then sysinfo=strcat(sysinfo,"Network Disks ",disks,@CRLF)  
  93.         sysinfo=strcat(sysinfo,"Windows Directory ",DirWindows(0),@CRLF)  
  94.         sysinfo=strcat(sysinfo,"System  Directory ",DirWindows(1),@CRLF)  
  95.         sysinfo=strcat(sysinfo,@CRLF,"WIL Interpreter Ver ",VersionDll())  
  96.   
  97.         ver=Version()  
  98.         Message("%Param2% %ver% SysInfo",Sysinfo)  
  99.         Exit  
  100.