jwalmsname.pas 8.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230
  1. {******************************************************************************}
  2. { }
  3. { Lan Manager Service Names API interface Unit for Object Pascal }
  4. { }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft }
  6. { Corporation. All Rights Reserved. }
  7. { }
  8. { The original file is: lmsname.h, released November 2001. The original Pascal }
  9. { code is: LmSName.pas, released Februari 2002. The initial developer of the }
  10. { Pascal code is Marcel van Brakel (brakelm att chello dott nl). }
  11. { }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001 }
  13. { Marcel van Brakel. All Rights Reserved. }
  14. { }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI) }
  16. { }
  17. { You may retrieve the latest version of this file at the Project JEDI }
  18. { APILIB home page, located at http://jedi-apilib.sourceforge.net }
  19. { }
  20. { The contents of this file are used with permission, subject to the Mozilla }
  21. { Public License Version 1.1 (the "License"); you may not use this file except }
  22. { in compliance with the License. You may obtain a copy of the License at }
  23. { http://www.mozilla.org/MPL/MPL-1.1.html }
  24. { }
  25. { Software distributed under the License is distributed on an "AS IS" basis, }
  26. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  27. { the specific language governing rights and limitations under the License. }
  28. { }
  29. { Alternatively, the contents of this file may be used under the terms of the }
  30. { GNU Lesser General Public License (the "LGPL License"), in which case the }
  31. { provisions of the LGPL License are applicable instead of those above. }
  32. { If you wish to allow use of your version of this file only under the terms }
  33. { of the LGPL License and not to allow others to use your version of this file }
  34. { under the MPL, indicate your decision by deleting the provisions above and }
  35. { replace them with the notice and other provisions required by the LGPL }
  36. { License. If you do not delete the provisions above, a recipient may use }
  37. { your version of this file under either the MPL or the LGPL License. }
  38. { }
  39. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  40. { }
  41. {******************************************************************************}
  42. unit JwaLmSName;
  43. {$WEAKPACKAGEUNIT}
  44. {$HPPEMIT ''}
  45. {$HPPEMIT '#include "lmsname.h"'}
  46. {$HPPEMIT ''}
  47. {$I jediapilib.inc}
  48. interface
  49. uses
  50. JwaWinType;
  51. //
  52. // Standard LAN Manager service names.
  53. //
  54. const
  55. SERVICE_WORKSTATION = TEXT('LanmanWorkstation');
  56. {$EXTERNALSYM SERVICE_WORKSTATION}
  57. SERVICE_LM20_WORKSTATION = TEXT('WORKSTATION');
  58. {$EXTERNALSYM SERVICE_LM20_WORKSTATION}
  59. WORKSTATION_DISPLAY_NAME = TEXT('Workstation');
  60. {$EXTERNALSYM WORKSTATION_DISPLAY_NAME}
  61. SERVICE_SERVER = TEXT('LanmanServer');
  62. {$EXTERNALSYM SERVICE_SERVER}
  63. SERVICE_LM20_SERVER = TEXT('SERVER');
  64. {$EXTERNALSYM SERVICE_LM20_SERVER}
  65. SERVER_DISPLAY_NAME = TEXT('Server');
  66. {$EXTERNALSYM SERVER_DISPLAY_NAME}
  67. SERVICE_BROWSER = TEXT('BROWSER');
  68. {$EXTERNALSYM SERVICE_BROWSER}
  69. SERVICE_LM20_BROWSER = SERVICE_BROWSER;
  70. {$EXTERNALSYM SERVICE_LM20_BROWSER}
  71. SERVICE_MESSENGER = TEXT('MESSENGER');
  72. {$EXTERNALSYM SERVICE_MESSENGER}
  73. SERVICE_LM20_MESSENGER = SERVICE_MESSENGER;
  74. {$EXTERNALSYM SERVICE_LM20_MESSENGER}
  75. SERVICE_NETRUN = TEXT('NETRUN');
  76. {$EXTERNALSYM SERVICE_NETRUN}
  77. SERVICE_LM20_NETRUN = SERVICE_NETRUN;
  78. {$EXTERNALSYM SERVICE_LM20_NETRUN}
  79. SERVICE_SPOOLER = TEXT('SPOOLER');
  80. {$EXTERNALSYM SERVICE_SPOOLER}
  81. SERVICE_LM20_SPOOLER = SERVICE_SPOOLER;
  82. {$EXTERNALSYM SERVICE_LM20_SPOOLER}
  83. SERVICE_ALERTER = TEXT('ALERTER');
  84. {$EXTERNALSYM SERVICE_ALERTER}
  85. SERVICE_LM20_ALERTER = SERVICE_ALERTER;
  86. {$EXTERNALSYM SERVICE_LM20_ALERTER}
  87. SERVICE_NETLOGON = TEXT('NETLOGON');
  88. {$EXTERNALSYM SERVICE_NETLOGON}
  89. SERVICE_LM20_NETLOGON = SERVICE_NETLOGON;
  90. {$EXTERNALSYM SERVICE_LM20_NETLOGON}
  91. SERVICE_NETPOPUP = TEXT('NETPOPUP');
  92. {$EXTERNALSYM SERVICE_NETPOPUP}
  93. SERVICE_LM20_NETPOPUP = SERVICE_NETPOPUP;
  94. {$EXTERNALSYM SERVICE_LM20_NETPOPUP}
  95. SERVICE_SQLSERVER = TEXT('SQLSERVER');
  96. {$EXTERNALSYM SERVICE_SQLSERVER}
  97. SERVICE_LM20_SQLSERVER = SERVICE_SQLSERVER;
  98. {$EXTERNALSYM SERVICE_LM20_SQLSERVER}
  99. SERVICE_REPL = TEXT('REPLICATOR');
  100. {$EXTERNALSYM SERVICE_REPL}
  101. SERVICE_LM20_REPL = SERVICE_REPL;
  102. {$EXTERNALSYM SERVICE_LM20_REPL}
  103. SERVICE_RIPL = TEXT('REMOTEBOOT');
  104. {$EXTERNALSYM SERVICE_RIPL}
  105. SERVICE_LM20_RIPL = SERVICE_RIPL;
  106. {$EXTERNALSYM SERVICE_LM20_RIPL}
  107. SERVICE_TIMESOURCE = TEXT('TIMESOURCE');
  108. {$EXTERNALSYM SERVICE_TIMESOURCE}
  109. SERVICE_LM20_TIMESOURCE = SERVICE_TIMESOURCE;
  110. {$EXTERNALSYM SERVICE_LM20_TIMESOURCE}
  111. SERVICE_AFP = TEXT('AFP');
  112. {$EXTERNALSYM SERVICE_AFP}
  113. SERVICE_LM20_AFP = SERVICE_AFP;
  114. {$EXTERNALSYM SERVICE_LM20_AFP}
  115. SERVICE_UPS = TEXT('UPS');
  116. {$EXTERNALSYM SERVICE_UPS}
  117. SERVICE_LM20_UPS = SERVICE_UPS;
  118. {$EXTERNALSYM SERVICE_LM20_UPS}
  119. SERVICE_XACTSRV = TEXT('XACTSRV');
  120. {$EXTERNALSYM SERVICE_XACTSRV}
  121. SERVICE_LM20_XACTSRV = SERVICE_XACTSRV;
  122. {$EXTERNALSYM SERVICE_LM20_XACTSRV}
  123. SERVICE_TCPIP = TEXT('TCPIP');
  124. {$EXTERNALSYM SERVICE_TCPIP}
  125. SERVICE_LM20_TCPIP = SERVICE_TCPIP;
  126. {$EXTERNALSYM SERVICE_LM20_TCPIP}
  127. SERVICE_NBT = TEXT('NBT');
  128. {$EXTERNALSYM SERVICE_NBT}
  129. SERVICE_LM20_NBT = SERVICE_NBT;
  130. {$EXTERNALSYM SERVICE_LM20_NBT}
  131. SERVICE_LMHOSTS = TEXT('LMHOSTS');
  132. {$EXTERNALSYM SERVICE_LMHOSTS}
  133. SERVICE_LM20_LMHOSTS = SERVICE_LMHOSTS;
  134. {$EXTERNALSYM SERVICE_LM20_LMHOSTS}
  135. SERVICE_TELNET = TEXT('Telnet');
  136. {$EXTERNALSYM SERVICE_TELNET}
  137. SERVICE_LM20_TELNET = SERVICE_TELNET;
  138. {$EXTERNALSYM SERVICE_LM20_TELNET}
  139. SERVICE_SCHEDULE = TEXT('Schedule');
  140. {$EXTERNALSYM SERVICE_SCHEDULE}
  141. SERVICE_LM20_SCHEDULE = SERVICE_SCHEDULE;
  142. {$EXTERNALSYM SERVICE_LM20_SCHEDULE}
  143. SERVICE_NTLMSSP = TEXT('NtLmSsp');
  144. {$EXTERNALSYM SERVICE_NTLMSSP}
  145. SERVICE_DHCP = TEXT('DHCP');
  146. {$EXTERNALSYM SERVICE_DHCP}
  147. SERVICE_LM20_DHCP = SERVICE_DHCP;
  148. {$EXTERNALSYM SERVICE_LM20_DHCP}
  149. SERVICE_NWSAP = TEXT('NwSapAgent');
  150. {$EXTERNALSYM SERVICE_NWSAP}
  151. SERVICE_LM20_NWSAP = SERVICE_NWSAP;
  152. {$EXTERNALSYM SERVICE_LM20_NWSAP}
  153. NWSAP_DISPLAY_NAME = TEXT('NW Sap Agent');
  154. {$EXTERNALSYM NWSAP_DISPLAY_NAME}
  155. SERVICE_NWCS = TEXT('NWCWorkstation');
  156. {$EXTERNALSYM SERVICE_NWCS}
  157. SERVICE_DNS_CACHE = TEXT('DnsCache');
  158. {$EXTERNALSYM SERVICE_DNS_CACHE}
  159. SERVICE_W32TIME = TEXT('w32time');
  160. {$EXTERNALSYM SERVICE_W32TIME}
  161. SERVCE_LM20_W32TIME = SERVICE_W32TIME;
  162. {$EXTERNALSYM SERVCE_LM20_W32TIME}
  163. SERVICE_KDC = TEXT('kdc');
  164. {$EXTERNALSYM SERVICE_KDC}
  165. SERVICE_LM20_KDC = SERVICE_KDC;
  166. {$EXTERNALSYM SERVICE_LM20_KDC}
  167. SERVICE_RPCLOCATOR = TEXT('RPCLOCATOR');
  168. {$EXTERNALSYM SERVICE_RPCLOCATOR}
  169. SERVICE_LM20_RPCLOCATOR = SERVICE_RPCLOCATOR;
  170. {$EXTERNALSYM SERVICE_LM20_RPCLOCATOR}
  171. SERVICE_TRKSVR = TEXT('TrkSvr');
  172. {$EXTERNALSYM SERVICE_TRKSVR}
  173. SERVICE_LM20_TRKSVR = SERVICE_TRKSVR;
  174. {$EXTERNALSYM SERVICE_LM20_TRKSVR}
  175. SERVICE_TRKWKS = TEXT('TrkWks');
  176. {$EXTERNALSYM SERVICE_TRKWKS}
  177. SERVICE_LM20_TRKWKS = SERVICE_TRKWKS;
  178. {$EXTERNALSYM SERVICE_LM20_TRKWKS}
  179. SERVICE_NTFRS = TEXT('NtFrs');
  180. {$EXTERNALSYM SERVICE_NTFRS}
  181. SERVICE_LM20_NTFRS = SERVICE_NTFRS;
  182. {$EXTERNALSYM SERVICE_LM20_NTFRS}
  183. SERVICE_ISMSERV = TEXT('IsmServ');
  184. {$EXTERNALSYM SERVICE_ISMSERV}
  185. SERVICE_LM20_ISMSERV = SERVICE_ISMSERV;
  186. {$EXTERNALSYM SERVICE_LM20_ISMSERV}
  187. implementation
  188. end.