home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Pascal / APITOOLS.ZIP / HELLO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-28  |  1.7 KB  |  69 lines
  1. (****************************************************************
  2. *
  3. *  Name:          HELLO
  4. *
  5. *  Function:      display 'hello world' in the task window
  6. *
  7. *  Shows how to:  1. write a 'minimal' DESQview-specific program.
  8. *                 2. initialize and disable the Pascal interfaces.
  9. *                 3. detect DESQview's presence.
  10. *                 4. enable DESQview extensions.
  11. *                 5. write to the default task window.
  12. *
  13. ****************************************************************)
  14.  
  15. program Hello;
  16.  
  17. uses DVAPI;
  18.  
  19. const
  20.  
  21.   (* minimum API version required *)
  22.   REQUIRED = $201;
  23.  
  24. var
  25.  
  26.   (* actual API version *)
  27.   version : integer;
  28.  
  29.   (* TFDD text file *)
  30.   tfd : text;
  31.  
  32.  
  33. (**********************************************************************
  34. *  main  -  check for DESQview present and enable required extensions.
  35. ***********************************************************************)
  36.  
  37. begin
  38.  
  39.   (* initialize Pascal interfaces and get API version number *)
  40.   version := api_init;
  41.  
  42.   (* if DESQview is not running or version is too low, display a message *)
  43.   if (version < REQUIRED) then
  44.     writeln ('This program requires DESQview version ',REQUIRED div 256,
  45.        '.',(REQUIRED mod 256) div 16,(REQUIRED mod 256) mod 16,' or later.')
  46.  
  47.   (* tell DESQview what extensions to enable *)
  48.   else
  49.   begin
  50.  
  51.     (* set required API level *)
  52.     api_level (REQUIRED);
  53.  
  54.     (* open TFDD and assign to window *)
  55.     tfd_open (tfd,win_me);
  56.  
  57.     (* extend greetings *)
  58.     writeln (tfd,'hello world');
  59.  
  60.     (* close TFDD *)
  61.     tfd_close (tfd);
  62.  
  63.   end;
  64.  
  65.   (* disable Pascal interfaces and return from program *)
  66.   api_exit;
  67.  
  68. end.
  69.