home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / bpos13.zip / ispcast.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-24  |  2KB  |  67 lines
  1. {| Unit: IsPCast
  2.  | Version: 1.00
  3.  | translated from file IsPCast.H
  4.  | Original translation: Peter Sawatzki (ps)
  5.  | Contributing:
  6.  |   (fill in)
  7.  |
  8.  | change history:
  9.  | Date:    Ver: Author:
  10.  | 11/20/93 1.00 ps     original translation by ps
  11. }
  12. Unit IsPCast;
  13. Interface
  14. Uses
  15.   Os2Def;
  16. {************************************************************************\
  17. *
  18. * Module Name: ISPCAST.H
  19. *
  20. * OS/2 Dialog Manager typedefs for the communication block and
  21. * declarations for the procedures used to call services of Dialog Manager
  22. *
  23. *
  24. *
  25. \************************************************************************}
  26.  
  27. Const
  28.   DMCOMMBLOCK_ERROR_INFO_COUNT = 6;
  29.  
  30. {********************************************************************}
  31. {              Typedef for the Error Information Array               }
  32. {********************************************************************}
  33. Type
  34.   DMERRORINFO = Record
  35.     ReasonCode,                  { Dialog Manager Return Code }
  36.     OS2ReturnCode: LongInt       { DOS Return Code            }
  37.   End;
  38.   pDMERRORINFO = ^DMERRORINFO;
  39.  
  40. {********************************************************************}
  41. {        Typedef for the Dialog Manager Communications Block         }
  42. {********************************************************************}
  43.  
  44.   DMCOMMBLOCK = Record
  45.     ReturnCode,                         { Dialog Manager Return Code }
  46.     ReasonCode: LongInt;                { Dialog Manager Reason Code }
  47.     InstanceID: Array[0..7] Of Char;    { Instance Identifier        }
  48.     OS2ReturnCode: LongInt;             { DOS Return Code            }
  49.     ErrorInfo: Array[0..DMCOMMBLOCK_ERROR_INFO_COUNT-1] Of DMERRORINFO;
  50.                                         { Error Information Array    }
  51.     Filler: Array[0..59] Of Char        { Used by DM -- don't modify }
  52.   End;
  53.   pDMCOMMBLOCK = ^DMCOMMBLOCK;
  54.  
  55. {********************************************************************}
  56. {                  Declarations for Dialog Manager                   }
  57. {********************************************************************}
  58.  
  59. { -CANT-
  60. int far _CDECL ISPCI  (PDMCOMMBLOCK, long int, char far *);
  61. int far _CDECL ISPCI2 (PDMCOMMBLOCK, long int, char far *,
  62.                long far *, void far *);
  63. }
  64.  
  65. Implementation
  66. End.
  67.