home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / w / w058 / 1.img / NFMAPI.IN_ / NFMAPI.bin
Encoding:
Text File  |  1993-09-15  |  2.3 KB  |  51 lines
  1. '** Uncomment next line for single product installer.
  2. '** (Remove first "'". There are two "'" if commented out.
  3. ''$DEFINE SINGLEPROD
  4.  
  5. '** Strings below need to be translated. **
  6.  
  7. CONST MAINTITLE$ = "FrameMaker 4 Setup (P1h)"    '*** change version
  8. CONST PROGGROUP$ = "Frame Products"
  9. CONST ERRMSG$ = "Setup sources were corrupted."
  10. CONST ERRTITLE$ = "Setup Message"
  11.  
  12. '** Strings above need to be translated. **
  13.  
  14. CONST INFFILE$ = "NETFRAME.INF"
  15. CONST MAKERITEM$ = "FrameMaker 4"    '*** change version
  16. CONST BUILDERITEM$ = "FrameBuilder"
  17.  
  18. '*************************************************************************
  19. '************************  Frame API's  **********************************
  20. '*************************************************************************
  21.  
  22. DECLARE FUNCTION ValidateRegNo LIB "mscuistf.dll" (regNo$) AS INTEGER
  23. DECLARE FUNCTION UpdateResources LIB "mscuistf.dll" (DLLPath$,UserName$,OrgName$,RegNo$,Demo%) AS INTEGER
  24. DECLARE FUNCTION GetFields LIB "mscuistf.dll" (UserName AS STRING *30,OrgName AS STRING *30,RegNo AS STRING *30, DLLPath$) AS INTEGER
  25.  
  26. '*************************************************************************
  27. '************************ Wrapper Declarations  **************************
  28. '*************************************************************************
  29.  
  30. DECLARE FUNCTION FMValidateRegNo (regnum$) AS INTEGER
  31. DECLARE FUNCTION FMUpdateRes (fmDLL$, uname$, org$, reg$, demostat%) AS INTEGER
  32. DECLARE FUNCTION FMGetFields (uname AS STRING *30, org AS STRING *30, reg AS STRING *30, fmDLL$) AS INTEGER
  33. '*************************************************************************
  34. '*****************  Wrapper Definitions  *********************************
  35. '*************************************************************************
  36.  
  37. FUNCTION FMValidateRegNo(regnum$) STATIC AS INTEGER
  38.     FMValidateRegNo = ValidateRegNo(regnum$)
  39. END FUNCTION
  40.  
  41.  
  42. '**************************************************************************
  43. FUNCTION FMUpdateRes(fmDLL$,uname$,org$,reg$,demostat%) STATIC AS INTEGER
  44.     FMUpdateRes = UpdateResources(fmDLL$,uname$,org$,reg$,demostat%)
  45. END FUNCTION
  46.  
  47. '**************************************************************************
  48. FUNCTION FMGetFields(uname AS STRING *30,org AS STRING *30,reg AS STRING *30, fmDLL$) STATIC AS INTEGER
  49.    FMGetFields = GetFields(uname,org,reg,fmDLL$)
  50. END FUNCTION
  51.