PROGRAM SystemFunctions;
{-- ***************************************************************************
 -- ** Descr. : This script shows some of the functions that can be found on
 -- **          the System Functions Helppage.
 -- ***************************************************************************
 -- ** 04/10/01 1.001.00 Initial Creation, sm@orcl-toolbox.com
 -- ** 24/12/01 1.002.00 added some new functions, sm@orcl-toolbox.com
 -- ***************************************************************************}

//Begin Main
BEGIN

  //get the current FormsAPI Master Version
  logadd('Version      : '+GetFormsAPIMasterVersionInfo);
  logadd('license Name : '+getLicenseName );

  WarnAlert('Hello!');

  //which opperating system are we running under
  if isWindowsNT
    then logadd('Running on windows NT/W2K/XP')
    else logadd('Running on windows95/98/ME');

  //who is running me?
  logadd(GetUserName+'@'+GetComputerName);

  //what is my script name?
  logadd(GetScriptName);

  //execute another program without waiting
  host('notepad.exe',false);

  //execute another program with waiting
  savestring('Please close this window to proceed!','c:\fapitest.txt');
  host('notepad.exe c:\fapitest.txt',true);
  deletefile('c:\fapitest.txt');


  //paramstr[0] always points to the FormsAPI Master exefile!
  logadd(GetFileVersionInfo(paramstr[0]));

  //get a shortened path of the FormsAPI Master exefile!
  logadd(truncpath(paramstr[0],30));

  //Make some noise ...
  beep;

  sleep(2000);

  //output constant
  logadd( 'drives : '+getDrives );


END.
//End Main