home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / DBMS9101.ZIP / DESQ_C.JAN < prev    next >
Encoding:
Text File  |  1990-11-21  |  755 b   |  23 lines
  1. LISTING C:
  2.  
  3. LOAD dvapi    && Load the .BIN routines
  4.  
  5. * Initialize variables for handles:
  6. WIN_Main = SPACE(10)        && Window object handle
  7. KBD_Main = SPACE(10)        && Keyboard object handle
  8. CrLf = CHR(13) + CHR(10)      && Return/Linefeed
  9.  
  10. * Get task Window Handle
  11. DO DESQview WITH [WIN_Main = win_me]  
  12. * Get keyboard handle for the task window
  13. DO DESQview WITH [KBD_Main = key_me]
  14. * Write a string to the task window
  15. DO DESQview WITH [win_write &WIN_Main "&CrLf"]
  16.  
  17. PROCEDURE DESQview  && All function requests come through here
  18. PARAMETERS command
  19. * Note how api_request must be padded to fill 254 positions:
  20. api_request = command + SPACE( 254- LEN(command) )
  21. CALL dvapi WITH api_request     && Execute .BIN routine
  22.  . . . && other routines
  23. RETURN