home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / TURBO_P / TPWPXENG.ZIP / INIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-22  |  316 b   |  18 lines
  1. program Init;
  2. uses PXEngine, WinCrt;
  3.  
  4. var PxErr: Integer;
  5.  
  6. procedure PX(Code : integer);
  7. begin
  8.   writeln(PXErrMsg(Code));
  9. end;
  10.  
  11. begin
  12.   (* Attempt to initialize the Engine *)
  13.   PxErr := PXWinInit('MyApp', pxShared);
  14.   if PxErr <> PxSuccess then
  15.     Writeln(PxErrMsg(PxErr))
  16.   else PX(PXExit);
  17. end.
  18.