home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Source / Vcl / SCKTCNST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  1.7 KB  |  44 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {       Copyright (c) 1997,99 Inprise Corporation       }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit ScktCnst;
  11.  
  12. interface
  13.  
  14. const
  15.   //Do not localize
  16.   KEY_SOCKETSERVER  = '\SOFTWARE\Borland\Socket Server';
  17.   KEY_IE            = 'SOFTWARE\Microsoft\Internet Explorer';
  18.   csSettings        = 'Settings';
  19.   ckPort            = 'Port';
  20.   ckThreadCacheSize = 'ThreadCacheSize';
  21.   ckInterceptGUID   = 'InterceptGUID';
  22.   ckShowHost        = 'ShowHost';
  23.   ckTimeout         = 'Timeout';
  24.   ckRegistered      = 'RegisteredOnly';
  25.   SServiceName      = 'SocketServer';
  26.   SApplicationName  = 'Borland Socket Server';
  27.  
  28. resourcestring
  29.   SServiceOnly = 'The Socket Server can only be run as a service on NT 3.51 and prior';
  30.   SErrClose = 'Cannot exit when there are active connections. Kill connections?';
  31.   SErrChangeSettings = 'Cannot change settings when there are active connections. Kill connections?';
  32.   SQueryDisconnect = 'Disconnecting clients can cause application errors. Continue?';
  33.   SOpenError = 'Error opening port %d with error: %s';
  34.   SHostUnknown = '(Unknown)';
  35.   SNotShown = '(Not Shown)';
  36.   SNoWinSock2 = 'WinSock 2 must be installed to use the socket connection';
  37.   SStatusline = '%d current connections';
  38.   SAlreadyRunning = 'The Socket Server is already running';
  39.   SNotUntilRestart = 'This change will not take affect until the Socket Server is restarted';
  40.  
  41. implementation
  42.  
  43. end.
  44.