FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

SYSTEM

Check QuickTime version


Thanks to mel patrick and robert price for the help on gestatlt...

This is what I have come up with.

Is it safe to assume that the gestalt trap is active, if system 8.6 is installed?
CLEAR LOCAL
LOCAL FN startOK%
  DIM okToStart%, sysVersion%, big$, med$, sma$, myGestaltResult&
  DIM myGestaltResult$, sysVersion$, CompressorNumber%

  sysVersion%   = SYSTEM(_sysVers)
  gSysVersion%  = sysVersion%
  DEFSTR WORD
  sysVersion$   = STR$(sysVersion%)
  big$          = MID$(SysVersion$, 2,1)
  med$          = MID$(SysVersion$, 3,1)
  'sma$          = MID$(SysVersion$, 4,1)
  SysVersion$   = "System " + big$ + "." + med$   '+ "." + sma$
  gSysVersion$  = SysVersion$
  LONG IF gSysVersion% => 860
    okToStart% = okToStart% + 1
  XELSE
    okToStart% = _badSysVersion
  END IF

  LONG IF okToStart% = 1
    DEFSTR LONG
    myGestaltResult& = FN GESTALT(_"qtim")
    myGestaltResult$ = HEX$(myGestaltResult&)
    big$          = MID$(myGestaltResult$, 2,1)
    med$          = MID$(myGestaltResult$, 3,1)
    'sma$          = MID$(myGestaltResult$, 4,1)
    gQTversion$   = "QuickTime " + big$ + "." + med$' + "." + sma$
    LONG IF myGestaltResult& => &04008000
      okToStart% = okToStart% + 1
    XELSE
      okToStart% = _badQTVersion
    END IF
  END IF

  LONG IF okToStart% = 2
    CompressorNumber% = FN GetCompressorNumber(_"jpeg",32)
    LONG IF CompressorNumber% <> 0
      okToStart% = okToStart% + 1
    XELSE
      okToStart% = _badCompressorNumber
    END IF
  END IF

  LONG IF okToStart% = 3
    okToStart% = _true
  END IF

END FN = okToStart%
Michael Evans