home *** CD-ROM | disk | FTP | other *** search
/ MACup 1998 March / Image.iso / showdata / Standard.Cxt / 00103_SKRIPT_2.txt < prev    next >
Encoding:
Text File  |  1997-07-31  |  965 b   |  34 lines
  1. tell application "Finder"
  2. activate
  3. set w to count every process
  4. set y to 5800*1024
  5. if (computer "vm  ") > 0 then set y to 4100*1024
  6. set a to (computer ("ram ")) / (1024 * 1024)
  7. set b to 20
  8. if a < b and (computer "vm  ") = 0 then
  9. display dialog "AOL ben√∂tigt mehr Speicher. Bitte beenden Sie laufende Programme, oder schalten Sie Virtuellen Speicher ein und starten Sie den Rechner neu."
  10. open file "Speicher" of control panels folder
  11. return "VM"
  12. end if
  13. if (w > 1) then
  14. display dialog "AOL ben√∂tigt mehr Speicher." & return & "Klicken Sie auf OK, um laufende Anwendungen zu beenden."
  15. set z to processes
  16. repeat with i from 1 to w
  17.   if item i of z does not contain application "Projektor" then
  18.   try
  19.   with timeout of 2 seconds
  20.     tell item i of z to activate
  21.     tell item i of z to quit
  22.   end timeout
  23.   on error
  24.   end try
  25. end if
  26. end repeat
  27. set x to largest free block
  28. end if
  29. repeat with i from 1 to 100
  30. end repeat
  31. if y > x then return "NoMem"
  32. return "ok"
  33. end tell
  34.