home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / PASCAL / PARADOX / NETINIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-22  |  314 b   |  18 lines
  1. program NetInit;
  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 Engine *)
  13.   PxErr := PXWinInit('MyApp', pxShared);
  14.   if PxErr <> PxSuccess then
  15.     Writeln(PxErrMsg(PxErr))
  16.   else PX(PXExit);
  17. end.
  18.