开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaRpcDce.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：127k
源码类别：

Windows编程

开发平台：

Delphi

JwaRpcDce.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { RPC DCE 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: rpcdce.h, released June 2000. The original Pascal      }
  9. { code is: Rpcce.pas, released December 2000. The initial developer of the     }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.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 home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaRpcDce;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "RpcDce.h"'}
  50. {$HPPEMIT ''}
  51. {$HPPEMIT 'typedef RPC_BINDING_VECTOR *PRPC_BINDING_VECTOR'}
  52. {$HPPEMIT 'typedef UUID_VECTOR *PUUID_VECTOR'}
  53. {$HPPEMIT 'typedef RPC_IF_ID *PRPC_IF_ID'}
  54. {$HPPEMIT 'typedef RPC_PROTSEQ_VECTORA *PRPC_PROTSEQ_VECTORA'}
  55. {$HPPEMIT 'typedef RPC_PROTSEQ_VECTORW *PRPC_PROTSEQ_VECTORW'}
  56. {$HPPEMIT 'typedef RPC_STATS_VECTOR *PRPC_STATS_VECTOR'}
  57. {$HPPEMIT 'typedef RPC_IF_ID_VECTOR *PRPC_IF_ID_VECTOR'}
  58. {$HPPEMIT 'typedef RPC_AUTHZ_HANDLE *PRPC_AUTHZ_HANDLE'}
  59. {$HPPEMIT 'typedef RPC_AUTH_IDENTITY_HANDLE *PRPC_AUTH_IDENTITY_HANDLE'}
  60. {$HPPEMIT 'typedef RPC_BINDING_HANDLE *PRPC_BINDING_HANDLE'}
  61. {$HPPEMIT 'typedef UUID *PUUID'}
  62. {$HPPEMIT 'typedef UUID *LPUUID'}
  63. {$HPPEMIT ''}
  65. {$I WINDEFINES.INC}
  67. interface
  69. uses
  70.   JwaWinNT, JwaWinType, JwaRpc;
  72. type
  73.   PPChar = ^PChar;
  74.   PPWideChar = ^PWideChar;
  75.   PCardinal = ^Cardinal;
  77.   RPC_BINDING_HANDLE = I_RPC_HANDLE;
  78.   {$EXTERNALSYM RPC_BINDING_HANDLE}
  79.   UUID = GUID;
  80.   {$EXTERNALSYM UUID}
  82.   PRPC_BINDING_HANDLE = ^RPC_BINDING_HANDLE;
  83.   {$NODEFINE PRPC_BINDING_HANDLE}
  84.   PUUID = ^UUID;
  85.   {$NODEFINE PUUID}
  86.   LPUUID = ^UUID;
  87.   {$NODEFINE LPUUID}
  89. type
  90.   PRPC_BINDING_VECTOR = ^RPC_BINDING_VECTOR;
  91.   {$NODEFINE PRPC_BINDING_VECTOR}
  92.   _RPC_BINDING_VECTOR = record
  93.     Count: Cardinal;
  94.     BindingH: array [0..0] of RPC_BINDING_HANDLE;
  95.   end;
  96.   {$EXTERNALSYM _RPC_BINDING_VECTOR}
  97.   RPC_BINDING_VECTOR = _RPC_BINDING_VECTOR;
  98.   {$EXTERNALSYM RPC_BINDING_VECTOR}
  99.   TRpcBindingVector = RPC_BINDING_VECTOR;
  100.   PRpcBindingVector = PRPC_BINDING_VECTOR;
  102.   PUUID_VECTOR = ^UUID_VECTOR;
  103.   {$NODEFINE PUUID_VECTOR}
  104.   _UUID_VECTOR = record
  105.     Count: Cardinal;
  106.     Uuid: array [0..0] of PUUID;
  107.   end;
  108.   {$EXTERNALSYM _UUID_VECTOR}
  109.   UUID_VECTOR = _UUID_VECTOR;
  110.   {$EXTERNALSYM UUID_VECTOR}
  111.   TUuidVector = UUID_VECTOR;
  112.   PUuidVector = ^TUuidVector;
  114.   RPC_IF_HANDLE = LPVOID;
  115.   {$EXTERNALSYM RPC_IF_HANDLE}
  117.   PRPC_IF_ID = ^RPC_IF_ID;
  118.   {$NODEFINE PRPC_IF_ID}
  119.   _RPC_IF_ID = record
  120.     Uuid: UUID;
  121.     VersMajor: Word;
  122.     VersMinor: Word;
  123.   end;
  124.   {$EXTERNALSYM _RPC_IF_ID}
  125.   RPC_IF_ID = _RPC_IF_ID;
  126.   {$EXTERNALSYM RPC_IF_ID}
  127.   TRpcIfId = RPC_IF_ID;
  128.   PRpcIfId = ^TRpcIfId;
  130. const
  131.   RPC_C_BINDING_INFINITE_TIMEOUT = 10;
  132.   {$EXTERNALSYM RPC_C_BINDING_INFINITE_TIMEOUT}
  133.   RPC_C_BINDING_MIN_TIMEOUT      = 0;
  134.   {$EXTERNALSYM RPC_C_BINDING_MIN_TIMEOUT}
  135.   RPC_C_BINDING_DEFAULT_TIMEOUT  = 5;
  136.   {$EXTERNALSYM RPC_C_BINDING_DEFAULT_TIMEOUT}
  137.   RPC_C_BINDING_MAX_TIMEOUT      = 9;
  138.   {$EXTERNALSYM RPC_C_BINDING_MAX_TIMEOUT}
  140.   RPC_C_CANCEL_INFINITE_TIMEOUT  = DWORD(-1);
  141.   {$EXTERNALSYM RPC_C_CANCEL_INFINITE_TIMEOUT}
  143.   RPC_C_LISTEN_MAX_CALLS_DEFAULT = 1234;
  144.   {$EXTERNALSYM RPC_C_LISTEN_MAX_CALLS_DEFAULT}
  145.   RPC_C_PROTSEQ_MAX_REQS_DEFAULT = 10;
  146.   {$EXTERNALSYM RPC_C_PROTSEQ_MAX_REQS_DEFAULT}
  148. // RPC_POLICY EndpointFlags.
  150.   RPC_C_BIND_TO_ALL_NICS  = 1;
  151.   {$EXTERNALSYM RPC_C_BIND_TO_ALL_NICS}
  152.   RPC_C_USE_INTERNET_PORT = $1;
  153.   {$EXTERNALSYM RPC_C_USE_INTERNET_PORT}
  154.   RPC_C_USE_INTRANET_PORT = $2;
  155.   {$EXTERNALSYM RPC_C_USE_INTRANET_PORT}
  156.   RPC_C_DONT_FAIL         = $4;
  157.   {$EXTERNALSYM RPC_C_DONT_FAIL}
  159. // RPC_POLICY EndpointFlags specific to the Falcon/RPC transport:
  161.   RPC_C_MQ_TEMPORARY                 = $0000;
  162.   {$EXTERNALSYM RPC_C_MQ_TEMPORARY}
  163.   RPC_C_MQ_PERMANENT                 = $0001;
  164.   {$EXTERNALSYM RPC_C_MQ_PERMANENT}
  165.   RPC_C_MQ_CLEAR_ON_OPEN             = $0002;
  166.   {$EXTERNALSYM RPC_C_MQ_CLEAR_ON_OPEN}
  167.   RPC_C_MQ_USE_EXISTING_SECURITY     = $0004;
  168.   {$EXTERNALSYM RPC_C_MQ_USE_EXISTING_SECURITY}
  169.   RPC_C_MQ_AUTHN_LEVEL_NONE          = $0000;
  170.   {$EXTERNALSYM RPC_C_MQ_AUTHN_LEVEL_NONE}
  171.   RPC_C_MQ_AUTHN_LEVEL_PKT_INTEGRITY = $0008;
  172.   {$EXTERNALSYM RPC_C_MQ_AUTHN_LEVEL_PKT_INTEGRITY}
  173.   RPC_C_MQ_AUTHN_LEVEL_PKT_PRIVACY   = $0010;
  174.   {$EXTERNALSYM RPC_C_MQ_AUTHN_LEVEL_PKT_PRIVACY}
  176. // Client: RpcBindingSetOption() values for the Falcon/RPC transport:
  178.   RPC_C_OPT_MQ_DELIVERY            = 1;
  179.   {$EXTERNALSYM RPC_C_OPT_MQ_DELIVERY}
  180.   RPC_C_OPT_MQ_PRIORITY            = 2;
  181.   {$EXTERNALSYM RPC_C_OPT_MQ_PRIORITY}
  182.   RPC_C_OPT_MQ_JOURNAL             = 3;
  183.   {$EXTERNALSYM RPC_C_OPT_MQ_JOURNAL}
  184.   RPC_C_OPT_MQ_ACKNOWLEDGE         = 4;
  185.   {$EXTERNALSYM RPC_C_OPT_MQ_ACKNOWLEDGE}
  186.   RPC_C_OPT_MQ_AUTHN_SERVICE       = 5;
  187.   {$EXTERNALSYM RPC_C_OPT_MQ_AUTHN_SERVICE}
  188.   RPC_C_OPT_MQ_AUTHN_LEVEL         = 6;
  189.   {$EXTERNALSYM RPC_C_OPT_MQ_AUTHN_LEVEL}
  190.   RPC_C_OPT_MQ_TIME_TO_REACH_QUEUE = 7;
  191.   {$EXTERNALSYM RPC_C_OPT_MQ_TIME_TO_REACH_QUEUE}
  192.   RPC_C_OPT_MQ_TIME_TO_BE_RECEIVED = 8;
  193.   {$EXTERNALSYM RPC_C_OPT_MQ_TIME_TO_BE_RECEIVED}
  194.   RPC_C_OPT_BINDING_NONCAUSAL      = 9;
  195.   {$EXTERNALSYM RPC_C_OPT_BINDING_NONCAUSAL}
  196.   RPC_C_OPT_SECURITY_CALLBACK      = 10;
  197.   {$EXTERNALSYM RPC_C_OPT_SECURITY_CALLBACK}
  198.   RPC_C_OPT_UNIQUE_BINDING         = 11;
  199.   {$EXTERNALSYM RPC_C_OPT_UNIQUE_BINDING}
  200.   RPC_C_OPT_CALL_TIMEOUT           = 12;
  201.   {$EXTERNALSYM RPC_C_OPT_CALL_TIMEOUT}
  202.   RPC_C_OPT_DONT_LINGER            = 13;
  203.   {$EXTERNALSYM RPC_C_OPT_DONT_LINGER}
  204.   RPC_C_OPT_MAX_OPTIONS            = 14;
  205.   {$EXTERNALSYM RPC_C_OPT_MAX_OPTIONS}
  207.   RPC_C_MQ_EXPRESS     = 0; // Client: RPC_C_MQ_DELIVERY.
  208.   {$EXTERNALSYM RPC_C_MQ_EXPRESS}
  209.   RPC_C_MQ_RECOVERABLE = 1;
  210.   {$EXTERNALSYM RPC_C_MQ_RECOVERABLE}
  212.   RPC_C_MQ_JOURNAL_NONE       = 0; // Client: RPC_C_MQ_JOURNAL.
  213.   {$EXTERNALSYM RPC_C_MQ_JOURNAL_NONE}
  214.   RPC_C_MQ_JOURNAL_DEADLETTER = 1;
  215.   {$EXTERNALSYM RPC_C_MQ_JOURNAL_DEADLETTER}
  216.   RPC_C_MQ_JOURNAL_ALWAYS     = 2;
  217.   {$EXTERNALSYM RPC_C_MQ_JOURNAL_ALWAYS}
  219. // flags for RpcServerInqAuthClientEx
  221.   RPC_C_FULL_CERT_CHAIN = $0001;
  222.   {$EXTERNALSYM RPC_C_FULL_CERT_CHAIN}
  224. type
  225.   PRPC_PROTSEQ_VECTORA = ^RPC_PROTSEQ_VECTORA;
  226.   {$NODEFINE PRPC_PROTSEQ_VECTORA}
  227.   _RPC_PROTSEQ_VECTORA = record
  228.     Count: Cardinal;
  229.     Protseq: array [0..0] of PByte
  230.   end;
  231.   {$EXTERNALSYM _RPC_PROTSEQ_VECTORA}
  232.   RPC_PROTSEQ_VECTORA = _RPC_PROTSEQ_VECTORA;
  233.   {$EXTERNALSYM RPC_PROTSEQ_VECTORA}
  234.   TRpcProtSeqVectorA = RPC_PROTSEQ_VECTORA;
  235.   PRpcProtSeqVectorA = PRPC_PROTSEQ_VECTORA;
  237.   PRPC_PROTSEQ_VECTORW = ^RPC_PROTSEQ_VECTORW;
  238.   {$NODEFINE PRPC_PROTSEQ_VECTORW}
  239.   _RPC_PROTSEQ_VECTORW = record
  240.     Count: Cardinal;
  241.     Protseq: array [0..0] of PWord;
  242.   end;
  243.   {$EXTERNALSYM _RPC_PROTSEQ_VECTORW}
  244.   RPC_PROTSEQ_VECTORW = _RPC_PROTSEQ_VECTORW;
  245.   {$EXTERNALSYM RPC_PROTSEQ_VECTORW}
  246.   TRpcProtSeqVectorW = RPC_PROTSEQ_VECTORW;
  247.   PRpcProtSeqVectorW = PRPC_PROTSEQ_VECTORW;
  249. {$IFDEF UNICODE}
  250.   RPC_PROTSEQ_VECTOR = RPC_PROTSEQ_VECTORW;
  251.   {$EXTERNALSYM RPC_PROTSEQ_VECTOR}
  252.   TRpcProtSeqVector = TRpcProtSeqVectorW;
  253.   PRpcProtSeqVector = PRpcProtSeqVectorW;
  254. {$ELSE}
  255.   RPC_PROTSEQ_VECTOR = RPC_PROTSEQ_VECTORA;
  256.   {$EXTERNALSYM RPC_PROTSEQ_VECTOR}  
  257.   TRpcProtSeqVector = TRpcProtSeqVectorA;
  258.   PRpcProtSeqVector = PRpcProtSeqVectorA;
  259. {$ENDIF}
  261.   PRPC_POLICY = ^RPC_POLICY;
  262.   {$EXTERNALSYM PRPC_POLICY}
  263.   _RPC_POLICY = record
  264.     Length: Cardinal;
  265.     EndpointFlags: Cardinal;
  266.     NICFlags: Cardinal;
  267.   end;
  268.   {$EXTERNALSYM _RPC_POLICY}
  269.   RPC_POLICY = _RPC_POLICY;
  270.   {$EXTERNALSYM RPC_POLICY}
  271.   TRpcPolicy = RPC_POLICY;
  272.   PRpcPolicy = PRPC_POLICY;
  274.   RPC_OBJECT_INQ_FN = procedure (const ObjectUuid: UUID; var TypeUuid: UUID;
  275.     var Status: RPC_STATUS); stdcall;
  276.   {$EXTERNALSYM RPC_OBJECT_INQ_FN}
  277.   TRpcObjectInqFn = RPC_OBJECT_INQ_FN;
  279.   RPC_IF_CALLBACK_FN = function (InterfaceUuid: RPC_IF_HANDLE; Context: Pointer): RPC_STATUS; stdcall;
  280.   {$EXTERNALSYM RPC_IF_CALLBACK_FN}
  281.   TRpcIfCallbackFn = RPC_IF_CALLBACK_FN;
  283.   RPC_SECURITY_CALLBACK_FN = procedure (Context: Pointer); stdcall;
  284.   {$EXTERNALSYM RPC_SECURITY_CALLBACK_FN}
  285.   TRpcSecurityCallbackFn = RPC_SECURITY_CALLBACK_FN;
  287.   PRPC_STATS_VECTOR = ^RPC_STATS_VECTOR;
  288.   {$NODEFINE PRPC_STATS_VECTOR}
  289.   RPC_STATS_VECTOR = record
  290.     Count: Cardinal;
  291.     Stats: array [0..0] of Cardinal;
  292.   end;
  293.   {$EXTERNALSYM RPC_STATS_VECTOR}
  294.   TRpcStatsVector = RPC_STATS_VECTOR;
  295.   PRpcStatsVector = PRPC_STATS_VECTOR;
  297. const
  298.   RPC_C_STATS_CALLS_IN  = 0;
  299.   {$EXTERNALSYM RPC_C_STATS_CALLS_IN}
  300.   RPC_C_STATS_CALLS_OUT = 1;
  301.   {$EXTERNALSYM RPC_C_STATS_CALLS_OUT}
  302.   RPC_C_STATS_PKTS_IN   = 2;
  303.   {$EXTERNALSYM RPC_C_STATS_PKTS_IN}
  304.   RPC_C_STATS_PKTS_OUT  = 3;
  305.   {$EXTERNALSYM RPC_C_STATS_PKTS_OUT}
  307. type
  308.   PRPC_IF_ID_VECTOR = ^RPC_IF_ID_VECTOR;
  309.   {$NODEFINE RPC_IF_ID_VECTOR}
  310.   RPC_IF_ID_VECTOR = record
  311.     Count: Cardinal;
  312.     IfId: array [0..0] of PRpcIfId;
  313.   end;
  314.   {$EXTERNALSYM RPC_IF_ID_VECTOR}
  315.   TRpcIfIdVector = RPC_IF_ID_VECTOR;
  316.   PRpcIfIdVector = PRPC_IF_ID_VECTOR;
  318. function RpcBindingCopy(SourceBinding: RPC_BINDING_HANDLE;
  319.   var DestinationBinding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  320. {$EXTERNALSYM RpcBindingCopy}
  322. function RpcBindingFree(var Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  323. {$EXTERNALSYM RpcBindingFree}
  325. function RpcBindingSetOption(hBinding: RPC_BINDING_HANDLE; option: Cardinal;
  326.   optionValue: ULONG_PTR): RPC_STATUS; stdcall;
  327. {$EXTERNALSYM RpcBindingSetOption}
  329. function RpcBindingInqOption(hBinding: RPC_BINDING_HANDLE; option: Cardinal;
  330.   var pOptionValue: ULONG_PTR): RPC_STATUS; stdcall;
  331. {$EXTERNALSYM RpcBindingInqOption}
  333. function RpcBindingFromStringBindingA(StringBinding: PChar;
  334.   var Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  335. {$EXTERNALSYM RpcBindingFromStringBindingA}
  337. function RpcBindingFromStringBindingW(StringBinding: PWideChar;
  338.   var Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  339. {$EXTERNALSYM RpcBindingFromStringBindingW}
  341. {$IFDEF UNICODE}
  342. function RpcBindingFromStringBinding(StringBinding: PWideChar;
  343.   var Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  344. {$EXTERNALSYM RpcBindingFromStringBinding}
  345. {$ELSE}
  346. function RpcBindingFromStringBinding(StringBinding: PChar;
  347.   var Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  348. {$EXTERNALSYM RpcBindingFromStringBinding}
  349. {$ENDIF}
  351. function RpcSsGetContextBinding(ContextHandle: Pointer; var Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  352. {$EXTERNALSYM RpcSsGetContextBinding}
  354. function RpcBindingInqObject(Binding: RPC_BINDING_HANDLE; var ObjectUuid: UUID): RPC_STATUS; stdcall;
  355. {$EXTERNALSYM RpcBindingInqObject}
  357. function RpcBindingReset(Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  358. {$EXTERNALSYM RpcBindingReset}
  360. // RpcBindingServerFromClient : UNSUPPORTED
  361. // RpcBindingSetAuthInfo
  363. function RpcBindingSetObject(Binding: RPC_BINDING_HANDLE; const ObjectUuid: UUID): RPC_STATUS; stdcall;
  364. {$EXTERNALSYM RpcBindingSetObject}
  366. function RpcMgmtInqDefaultProtectLevel(AuthnSvc: Cardinal; var AuthnLevel: Cardinal): RPC_STATUS; stdcall;
  367. {$EXTERNALSYM RpcMgmtInqDefaultProtectLevel}
  369. function RpcBindingToStringBindingA(Binding: RPC_BINDING_HANDLE;
  370.   var StringBinding: PChar): RPC_STATUS; stdcall;
  371. {$EXTERNALSYM RpcBindingToStringBindingA}
  373. function RpcBindingToStringBindingW(Binding: RPC_BINDING_HANDLE;
  374.   var StringBinding: PWideChar): RPC_STATUS; stdcall;
  375. {$EXTERNALSYM RpcBindingToStringBindingW}
  377. {$IFDEF UNICODE}
  378. function RpcBindingToStringBinding(Binding: RPC_BINDING_HANDLE;
  379.   var StringBinding: PWideChar): RPC_STATUS; stdcall;
  380. {$EXTERNALSYM RpcBindingToStringBinding}
  381. {$ELSE}
  382. function RpcBindingToStringBinding(Binding: RPC_BINDING_HANDLE;
  383.   var StringBinding: PChar): RPC_STATUS; stdcall;
  384. {$EXTERNALSYM RpcBindingToStringBinding}
  385. {$ENDIF}
  387. function RpcBindingVectorFree(var BindingVector: PRPC_BINDING_VECTOR): RPC_STATUS; stdcall;
  388. {$EXTERNALSYM RpcBindingVectorFree}
  390. function RpcStringBindingComposeA(ObjUuid, Protseq, NetworkAddr, Endpoint,
  391.   Options: PChar; var StringBinding: PChar): RPC_STATUS; stdcall;
  392. {$EXTERNALSYM RpcStringBindingComposeA}
  394. function RpcStringBindingComposeW(ObjUuid, Protseq, NetworkAddr, Endpoint,
  395.   Options: PWideChar; var StringBinding: PWideChar): RPC_STATUS; stdcall;
  396. {$EXTERNALSYM RpcStringBindingComposeW}
  398. {$IFDEF UNICODE}
  399. function RpcStringBindingCompose(ObjUuid, Protseq, NetworkAddr, Endpoint,
  400.   Options: PWideChar; var StringBinding: PWideChar): RPC_STATUS; stdcall;
  401. {$EXTERNALSYM RpcStringBindingCompose}
  402. {$ELSE}
  403. function RpcStringBindingCompose(ObjUuid, Protseq, NetworkAddr, Endpoint,
  404.   Options: PChar; var StringBinding: PChar): RPC_STATUS; stdcall;
  405. {$EXTERNALSYM RpcStringBindingCompose}
  406. {$ENDIF}
  408. function RpcStringBindingParseA(StringBinding: PChar; ObjUuid, Protseq,
  409.   NetworkAddr, Endpoint, NetworkOptions: PPChar): RPC_STATUS; stdcall;
  410. {$EXTERNALSYM RpcStringBindingParseA}
  412. function RpcStringBindingParseW(StringBinding: PWideChar; ObjUuid, Protseq,
  413.   NetworkAddr, Endpoint, NetworkOptions: PPWideChar): RPC_STATUS; stdcall;
  414. {$EXTERNALSYM RpcStringBindingParseW}
  416. {$IFDEF UNICODE}
  417. function RpcStringBindingParse(StringBinding: PWideChar; ObjUuid, Protseq,
  418.   NetworkAddr, Endpoint, NetworkOptions: PPWideChar): RPC_STATUS; stdcall;
  419. {$EXTERNALSYM RpcStringBindingParse}
  420. {$ELSE}
  421. function RpcStringBindingParse(StringBinding: PChar; ObjUuid, Protseq,
  422.   NetworkAddr, Endpoint, NetworkOptions: PPChar): RPC_STATUS; stdcall;
  423. {$EXTERNALSYM RpcStringBindingParse}
  424. {$ENDIF}
  426. function RpcStringFreeA(var S: PChar): RPC_STATUS; stdcall;
  427. {$EXTERNALSYM RpcStringFreeA}
  429. function RpcStringFreeW(var S: PWideChar): RPC_STATUS; stdcall;
  430. {$EXTERNALSYM RpcStringFreeW}
  432. {$IFDEF UNICODE}
  433. function RpcStringFree(var S: PWideChar): RPC_STATUS; stdcall;
  434. {$EXTERNALSYM RpcStringFree}
  435. {$ELSE}
  436. function RpcStringFree(var S: PChar): RPC_STATUS; stdcall;
  437. {$EXTERNALSYM RpcStringFree}
  438. {$ENDIF}
  440. function RpcIfInqId(RpcIfHandle: RPC_IF_HANDLE; var RpcIfId: RPC_IF_ID): RPC_STATUS; stdcall;
  441. {$EXTERNALSYM RpcIfInqId}
  443. function RpcNetworkIsProtseqValidA(Protseq: PChar): RPC_STATUS; stdcall;
  444. {$EXTERNALSYM RpcNetworkIsProtseqValidA}
  446. function RpcNetworkIsProtseqValidW(Protseq: PWideChar): RPC_STATUS; stdcall;
  447. {$EXTERNALSYM RpcNetworkIsProtseqValidW}
  449. function RpcMgmtInqComTimeout(Binding: RPC_BINDING_HANDLE; var Timeout: Cardinal): RPC_STATUS; stdcall;
  450. {$EXTERNALSYM RpcMgmtInqComTimeout}
  452. function RpcMgmtSetComTimeout(Binding: RPC_BINDING_HANDLE; Timeout: Cardinal): RPC_STATUS; stdcall;
  453. {$EXTERNALSYM RpcMgmtSetComTimeout}
  455. function RpcMgmtSetCancelTimeout(Timeout: Longint): RPC_STATUS; stdcall;
  456. {$EXTERNALSYM RpcMgmtSetCancelTimeout}
  458. function RpcNetworkInqProtseqsA(var ProtseqVector: PRPC_PROTSEQ_VECTORA): RPC_STATUS; stdcall;
  459. {$EXTERNALSYM RpcNetworkInqProtseqsA}
  460. function RpcNetworkInqProtseqsW(var ProtseqVector: PRPC_PROTSEQ_VECTORW): RPC_STATUS; stdcall;
  461. {$EXTERNALSYM RpcNetworkInqProtseqsW}
  463. {$IFDEF UNICODE}
  464. function RpcNetworkInqProtseqs(var ProtseqVector: PRPC_PROTSEQ_VECTORW): RPC_STATUS; stdcall;
  465. {$EXTERNALSYM RpcNetworkInqProtseqs}
  466. {$ELSE}
  467. function RpcNetworkInqProtseqs(var ProtseqVector: PRPC_PROTSEQ_VECTORA): RPC_STATUS; stdcall;
  468. {$EXTERNALSYM RpcNetworkInqProtseqs}
  469. {$ENDIF}
  471. function RpcObjectInqType(const ObjUuid: UUID; TypeUuid: PUUID): RPC_STATUS; stdcall;
  472. {$EXTERNALSYM RpcObjectInqType}
  474. function RpcObjectSetInqFn(InquiryFn: RPC_OBJECT_INQ_FN): RPC_STATUS; stdcall;
  475. {$EXTERNALSYM RpcObjectSetInqFn}
  477. function RpcObjectSetType(const ObjUuid: UUID; TypeUuid: PUUID): RPC_STATUS; stdcall;
  478. {$EXTERNALSYM RpcObjectSetType}
  480. function RpcProtseqVectorFreeA(var ProtseqVector: PRPC_PROTSEQ_VECTORA): RPC_STATUS; stdcall;
  481. {$EXTERNALSYM RpcProtseqVectorFreeA}
  482. function RpcProtseqVectorFreeW(var ProtseqVector: PRPC_PROTSEQ_VECTORW): RPC_STATUS; stdcall;
  483. {$EXTERNALSYM RpcProtseqVectorFreeW}
  485. {$IFDEF UNICODE}
  486. function RpcProtseqVectorFree(var ProtseqVector: PRPC_PROTSEQ_VECTORW): RPC_STATUS; stdcall;
  487. {$EXTERNALSYM RpcProtseqVectorFree}
  488. {$ELSE}
  489. function RpcProtseqVectorFree(var ProtseqVector: PRPC_PROTSEQ_VECTORA): RPC_STATUS; stdcall;
  490. {$EXTERNALSYM RpcProtseqVectorFree}
  491. {$ENDIF}
  493. function RpcServerInqBindings(var BindingVector: PRPC_BINDING_VECTOR): RPC_STATUS; stdcall;
  494. {$EXTERNALSYM RpcServerInqBindings}
  496. function RpcServerInqIf(IfSpec: RPC_IF_HANDLE; MgrTypeUuid: PUUID;
  497.   MgrEpv: Pointer): RPC_STATUS; stdcall;
  498. {$EXTERNALSYM RpcServerInqIf}
  500. function RpcServerListen(MinimumCallThreads, MaxCalls, DontWait: Cardinal): RPC_STATUS; stdcall;
  501. {$EXTERNALSYM RpcServerListen}
  503. function RpcServerRegisterIf(IfSpec: RPC_IF_HANDLE; MgrTypeUuid: PUUID;
  504.   MgrEpv: Pointer): RPC_STATUS; stdcall;
  505. {$EXTERNALSYM RpcServerRegisterIf}
  507. function RpcServerRegisterIfEx(IfSpec: RPC_IF_HANDLE; MgrTypeUuid: PUUID;
  508.   MgrEpv: Pointer; Flags, MaxCalls: Cardinal; IfCallback: RPC_IF_CALLBACK_FN): RPC_STATUS; stdcall;
  509. {$EXTERNALSYM RpcServerRegisterIfEx}
  511. function RpcServerRegisterIf2(IfSpec: RPC_IF_HANDLE; MgrTypeUuid: PUUID;
  512.   MgrEpv: Pointer; Flags, MaxCalls, MaxRpcSize: Cardinal;
  513.   IfCallbackFn: RPC_IF_CALLBACK_FN): RPC_STATUS; stdcall;
  514. {$EXTERNALSYM RpcServerRegisterIf2}
  516. function RpcServerUnregisterIf(IfSpec: RPC_IF_HANDLE; MgrTypeUuid: PUUID;
  517.   WaitForCallsToComplete: Cardinal): RPC_STATUS; stdcall;
  518. {$EXTERNALSYM RpcServerUnregisterIf}
  520. function RpcServerUnregisterIfEx(IfSpec: RPC_IF_HANDLE; MgrTypeUuid: PUUID;
  521.   RundownContextHandles: Integer): RPC_STATUS; stdcall;
  522. {$EXTERNALSYM RpcServerUnregisterIfEx}
  524. function RpcServerUseAllProtseqs(MaxCalls: Cardinal; SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  525. {$EXTERNALSYM RpcServerUseAllProtseqs}
  527. function RpcServerUseAllProtseqsEx(MaxCalls: Cardinal; SecurityDescriptor: Pointer;
  528.   Policy: PRPC_POLICY): RPC_STATUS; stdcall;
  529. {$EXTERNALSYM RpcServerUseAllProtseqsEx}
  531. function RpcServerUseAllProtseqsIf(MaxCalls: Cardinal; IfSpec: RPC_IF_HANDLE;
  532.   SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  533. {$EXTERNALSYM RpcServerUseAllProtseqsIf}
  535. function RpcServerUseAllProtseqsIfEx(MaxCalls: Cardinal; IfSpec: RPC_IF_HANDLE;
  536.   SecurityDescriptor: Pointer; Policy: PRPC_POLICY): RPC_STATUS; stdcall;
  537. {$EXTERNALSYM RpcServerUseAllProtseqsIfEx}
  539. function RpcServerUseProtseqA(Protseq: PChar; MaxCalls: Cardinal;
  540.   SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  541. {$EXTERNALSYM RpcServerUseProtseqA}
  542. function RpcServerUseProtseqW(Protseq: PWideChar; MaxCalls: Cardinal;
  543.   SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  544. {$EXTERNALSYM RpcServerUseProtseqW}
  546. {$IFDEF UNICODE}
  547. function RpcServerUseProtseq(Protseq: PWideChar; MaxCalls: Cardinal;
  548.   SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  549. {$EXTERNALSYM RpcServerUseProtseq}
  550. {$ELSE}
  551. function RpcServerUseProtseq(Protseq: PChar; MaxCalls: Cardinal;
  552.   SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  553. {$EXTERNALSYM RpcServerUseProtseq}
  554. {$ENDIF}
  556. function RpcServerUseProtseqExA(Protseq: PChar; MaxCalls: Cardinal;
  557.   SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  558. {$EXTERNALSYM RpcServerUseProtseqExA}
  559. function RpcServerUseProtseqExW(Protseq: PWideChar; MaxCalls: Cardinal;
  560.   SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  561. {$EXTERNALSYM RpcServerUseProtseqExW}
  563. {$IFDEF UNICODE}
  564. function RpcServerUseProtseqEx(Protseq: PWideChar; MaxCalls: Cardinal;
  565.   SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  566. {$EXTERNALSYM RpcServerUseProtseqEx}
  567. {$ELSE}
  568. function RpcServerUseProtseqEx(Protseq: PChar; MaxCalls: Cardinal;
  569.   SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  570. {$EXTERNALSYM RpcServerUseProtseqEx}
  571. {$ENDIF}
  573. function RpcServerUseProtseqEpA(Protseq: PChar; MaxCalls: Cardinal;
  574.   Endpoint: PChar; SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  575. {$EXTERNALSYM RpcServerUseProtseqEpA}
  576. function RpcServerUseProtseqEpW(Protseq: PWideChar; MaxCalls: Cardinal;
  577.   Endpoint: PWideChar; SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  578. {$EXTERNALSYM RpcServerUseProtseqEpW}
  580. {$IFDEF UNICODE}
  581. function RpcServerUseProtseqEp(Protseq: PWideChar; MaxCalls: Cardinal;
  582.   Endpoint: PWideChar; SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  583. {$EXTERNALSYM RpcServerUseProtseqEp}
  584. {$ELSE}
  585. function RpcServerUseProtseqEp(Protseq: PChar; MaxCalls: Cardinal;
  586.   Endpoint: PChar; SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  587. {$EXTERNALSYM RpcServerUseProtseqEp}
  588. {$ENDIF}
  590. function RpcServerUseProtseqEpExA(Protseq: PChar; MaxCalls: Cardinal;
  591.   Endpoint: PChar; SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  592. {$EXTERNALSYM RpcServerUseProtseqEpExA}
  593. function RpcServerUseProtseqEpExW(Protseq: PWideChar; MaxCalls: Cardinal;
  594.   Endpoint: PWideChar; SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  595. {$EXTERNALSYM RpcServerUseProtseqEpExW}
  597. {$IFDEF UNICODE}
  598. function RpcServerUseProtseqEpEx(Protseq: PWideChar; MaxCalls: Cardinal;
  599.   Endpoint: PWideChar; SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  600. {$EXTERNALSYM RpcServerUseProtseqEpEx}
  601. {$ELSE}
  602. function RpcServerUseProtseqEpEx(Protseq: PChar; MaxCalls: Cardinal;
  603.   Endpoint: PChar; SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  604. {$EXTERNALSYM RpcServerUseProtseqEpEx}
  605. {$ENDIF}
  607. function RpcServerUseProtseqIfA(Protseq: PChar; MaxCalls: Cardinal;
  608.   IfSpec: RPC_IF_HANDLE; SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  609. {$EXTERNALSYM RpcServerUseProtseqIfA}
  610. function RpcServerUseProtseqIfW(Protseq: PWideChar; MaxCalls: Cardinal;
  611.   IfSpec: RPC_IF_HANDLE; SecurityDescriptor: Pointer): RPC_STATUS; stdcall;
  612. {$EXTERNALSYM RpcServerUseProtseqIfW}
  614. function RpcServerUseProtseqIfExA(Protseq: PChar; MaxCalls: Cardinal;
  615.   IfSpec: RPC_IF_HANDLE; SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  616. {$EXTERNALSYM RpcServerUseProtseqIfExA}
  617. function RpcServerUseProtseqIfExW(Protseq: PWideChar; MaxCalls: Cardinal;
  618.   IfSpec: RPC_IF_HANDLE; SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  619. {$EXTERNALSYM RpcServerUseProtseqIfExW}
  621. {$IFDEF UNICODE}
  622. function RpcServerUseProtseqIfEx(Protseq: PWideChar; MaxCalls: Cardinal;
  623.   IfSpec: RPC_IF_HANDLE; SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  624. {$EXTERNALSYM RpcServerUseProtseqIfEx}
  625. {$ELSE}
  626. function RpcServerUseProtseqIfEx(Protseq: PChar; MaxCalls: Cardinal;
  627.   IfSpec: RPC_IF_HANDLE; SecurityDescriptor: Pointer; const Policy: RPC_POLICY): RPC_STATUS; stdcall;
  628. {$EXTERNALSYM RpcServerUseProtseqIfEx}
  629. {$ENDIF}
  631. procedure RpcServerYield; stdcall;
  632. {$EXTERNALSYM RpcServerYield}
  634. function RpcMgmtStatsVectorFree(var StatsVector: PRPC_STATS_VECTOR): RPC_STATUS; stdcall;
  635. {$EXTERNALSYM RpcMgmtStatsVectorFree}
  637. function RpcMgmtInqStats(Binding: RPC_BINDING_HANDLE; var Statistics: PRPC_STATS_VECTOR): RPC_STATUS; stdcall;
  638. {$EXTERNALSYM RpcMgmtInqStats}
  640. function RpcMgmtIsServerListening(Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  641. {$EXTERNALSYM RpcMgmtIsServerListening}
  643. function RpcMgmtStopServerListening(Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  644. {$EXTERNALSYM RpcMgmtStopServerListening}
  646. function RpcMgmtWaitServerListen: RPC_STATUS; stdcall;
  647. {$EXTERNALSYM RpcMgmtWaitServerListen}
  649. function RpcMgmtSetServerStackSize(ThreadStackSize: Cardinal): RPC_STATUS; stdcall;
  650. {$EXTERNALSYM RpcMgmtSetServerStackSize}
  652. procedure RpcSsDontSerializeContext; stdcall;
  653. {$EXTERNALSYM RpcSsDontSerializeContext}
  655. function RpcMgmtEnableIdleCleanup: RPC_STATUS; stdcall;
  656. {$EXTERNALSYM RpcMgmtEnableIdleCleanup}
  658. function RpcMgmtInqIfIds(Binding: RPC_BINDING_HANDLE;
  659.   var IfIdVector: PRPC_IF_ID_VECTOR): RPC_STATUS; stdcall;
  660. {$EXTERNALSYM RpcMgmtInqIfIds}
  662. function RpcIfIdVectorFree(var IfIdVector: PRPC_IF_ID_VECTOR): RPC_STATUS; stdcall;
  663. {$EXTERNALSYM RpcIfIdVectorFree}
  665. function RpcMgmtInqServerPrincNameA(Binding: RPC_BINDING_HANDLE;
  666.   AuthnSvc: Cardinal; var ServerPrincName: PChar): RPC_STATUS; stdcall;
  667. {$EXTERNALSYM RpcMgmtInqServerPrincNameA}
  668. function RpcMgmtInqServerPrincNameW(Binding: RPC_BINDING_HANDLE;
  669.   AuthnSvc: Cardinal; var ServerPrincName: PWideChar): RPC_STATUS; stdcall;
  670. {$EXTERNALSYM RpcMgmtInqServerPrincNameW}
  672. {$IFDEF UNICODE}
  673. function RpcMgmtInqServerPrincName(Binding: RPC_BINDING_HANDLE;
  674.   AuthnSvc: Cardinal; var ServerPrincName: PWideChar): RPC_STATUS; stdcall;
  675. {$EXTERNALSYM RpcMgmtInqServerPrincName}
  676. {$ELSE}
  677. function RpcMgmtInqServerPrincName(Binding: RPC_BINDING_HANDLE;
  678.   AuthnSvc: Cardinal; var ServerPrincName: PChar): RPC_STATUS; stdcall;
  679. {$EXTERNALSYM RpcMgmtInqServerPrincName}
  680. {$ENDIF}
  682. function RpcServerInqDefaultPrincNameA(AuthnSvc: Cardinal; var PrincName: PChar): RPC_STATUS; stdcall;
  683. {$EXTERNALSYM RpcServerInqDefaultPrincNameA}
  684. function RpcServerInqDefaultPrincNameW(AuthnSvc: Cardinal; var PrincName: PWideChar): RPC_STATUS; stdcall;
  685. {$EXTERNALSYM RpcServerInqDefaultPrincNameW}
  687. {$IFDEF UNICODE}
  688. function RpcServerInqDefaultPrincName(AuthnSvc: Cardinal; var PrincName: PWideChar): RPC_STATUS; stdcall;
  689. {$EXTERNALSYM RpcServerInqDefaultPrincName}
  690. {$ELSE}
  691. function RpcServerInqDefaultPrincName(AuthnSvc: Cardinal; var PrincName: PChar): RPC_STATUS; stdcall;
  692. {$EXTERNALSYM RpcServerInqDefaultPrincName}
  693. {$ENDIF}
  695. function RpcEpResolveBinding(Binding: RPC_BINDING_HANDLE; IfSpe: RPC_IF_HANDLE): RPC_STATUS; stdcall;
  696. {$EXTERNALSYM RpcEpResolveBinding}
  698. function RpcNsBindingInqEntryNameA(Binding: RPC_BINDING_HANDLE;
  699.   EntryNameSyntax: Cardinal; var EntryName: PChar): RPC_STATUS; stdcall;
  700. {$EXTERNALSYM RpcNsBindingInqEntryNameA}
  701. function RpcNsBindingInqEntryNameW(Binding: RPC_BINDING_HANDLE;
  702.   EntryNameSyntax: Cardinal; var EntryName: PWideChar): RPC_STATUS; stdcall;
  703. {$EXTERNALSYM RpcNsBindingInqEntryNameW}
  705. {$IFDEF UNICODE}
  706. function RpcNsBindingInqEntryName(Binding: RPC_BINDING_HANDLE;
  707.   EntryNameSyntax: Cardinal; var EntryName: PWideChar): RPC_STATUS; stdcall;
  708. {$EXTERNALSYM RpcNsBindingInqEntryName}
  709. {$ELSE}
  710. function RpcNsBindingInqEntryName(Binding: RPC_BINDING_HANDLE;
  711.   EntryNameSyntax: Cardinal; var EntryName: PChar): RPC_STATUS; stdcall;
  712. {$EXTERNALSYM RpcNsBindingInqEntryName}
  713. {$ENDIF}
  715. type
  716.   RPC_AUTH_IDENTITY_HANDLE = Pointer;
  717.   {$EXTERNALSYM RPC_AUTH_IDENTITY_HANDLE}
  718.   RPC_AUTHZ_HANDLE = Pointer;
  719.   {$EXTERNALSYM RPC_AUTHZ_HANDLE}
  720.   PRPC_AUTHZ_HANDLE = ^RPC_AUTHZ_HANDLE;
  721.   {$NODEFINE PRPC_AUTHZ_HANDLE}
  723.   PRPC_AUTH_IDENTITY_HANDLE = ^RPC_AUTH_IDENTITY_HANDLE;
  724.   {$NODEFINE PRPC_AUTH_IDENTITY_HANDLE}
  726. const
  727.   RPC_C_AUTHN_LEVEL_DEFAULT       = 0;
  728.   {$EXTERNALSYM RPC_C_AUTHN_LEVEL_DEFAULT}
  729.   RPC_C_AUTHN_LEVEL_NONE          = 1;
  730.   {$EXTERNALSYM RPC_C_AUTHN_LEVEL_NONE}
  731.   RPC_C_AUTHN_LEVEL_CONNECT       = 2;
  732.   {$EXTERNALSYM RPC_C_AUTHN_LEVEL_CONNECT}
  733.   RPC_C_AUTHN_LEVEL_CALL          = 3;
  734.   {$EXTERNALSYM RPC_C_AUTHN_LEVEL_CALL}
  735.   RPC_C_AUTHN_LEVEL_PKT           = 4;
  736.   {$EXTERNALSYM RPC_C_AUTHN_LEVEL_PKT}
  737.   RPC_C_AUTHN_LEVEL_PKT_INTEGRITY = 5;
  738.   {$EXTERNALSYM RPC_C_AUTHN_LEVEL_PKT_INTEGRITY}
  739.   RPC_C_AUTHN_LEVEL_PKT_PRIVACY   = 6;
  740.   {$EXTERNALSYM RPC_C_AUTHN_LEVEL_PKT_PRIVACY}
  742.   RPC_C_IMP_LEVEL_DEFAULT     = 0;
  743.   {$EXTERNALSYM RPC_C_IMP_LEVEL_DEFAULT}
  744.   RPC_C_IMP_LEVEL_ANONYMOUS   = 1;
  745.   {$EXTERNALSYM RPC_C_IMP_LEVEL_ANONYMOUS}
  746.   RPC_C_IMP_LEVEL_IDENTIFY    = 2;
  747.   {$EXTERNALSYM RPC_C_IMP_LEVEL_IDENTIFY}
  748.   RPC_C_IMP_LEVEL_IMPERSONATE = 3;
  749.   {$EXTERNALSYM RPC_C_IMP_LEVEL_IMPERSONATE}
  750.   RPC_C_IMP_LEVEL_DELEGATE    = 4;
  751.   {$EXTERNALSYM RPC_C_IMP_LEVEL_DELEGATE}
  753.   RPC_C_QOS_IDENTITY_STATIC  = 0;
  754.   {$EXTERNALSYM RPC_C_QOS_IDENTITY_STATIC}
  755.   RPC_C_QOS_IDENTITY_DYNAMIC = 1;
  756.   {$EXTERNALSYM RPC_C_QOS_IDENTITY_DYNAMIC}
  758.   RPC_C_QOS_CAPABILITIES_DEFAULT                      = $0;
  759.   {$EXTERNALSYM RPC_C_QOS_CAPABILITIES_DEFAULT}
  760.   RPC_C_QOS_CAPABILITIES_MUTUAL_AUTH                  = $1;
  761.   {$EXTERNALSYM RPC_C_QOS_CAPABILITIES_MUTUAL_AUTH}
  762.   RPC_C_QOS_CAPABILITIES_MAKE_FULLSIC                 = $2;
  763.   {$EXTERNALSYM RPC_C_QOS_CAPABILITIES_MAKE_FULLSIC}
  764.   RPC_C_QOS_CAPABILITIES_ANY_AUTHORITY                = $4;
  765.   {$EXTERNALSYM RPC_C_QOS_CAPABILITIES_ANY_AUTHORITY}
  766.   RPC_C_QOS_CAPABILITIES_IGNORE_DELEGATE_FAILURE      = $8;
  767.   {$EXTERNALSYM RPC_C_QOS_CAPABILITIES_IGNORE_DELEGATE_FAILURE}
  768.   RPC_C_QOS_CAPABILITIES_LOCAL_MA_HINT                = $10;
  769.   {$EXTERNALSYM RPC_C_QOS_CAPABILITIES_LOCAL_MA_HINT}
  771.   RPC_C_PROTECT_LEVEL_DEFAULT       = (RPC_C_AUTHN_LEVEL_DEFAULT);
  772.   {$EXTERNALSYM RPC_C_PROTECT_LEVEL_DEFAULT}
  773.   RPC_C_PROTECT_LEVEL_NONE          = (RPC_C_AUTHN_LEVEL_NONE);
  774.   {$EXTERNALSYM RPC_C_PROTECT_LEVEL_NONE}
  775.   RPC_C_PROTECT_LEVEL_CONNECT       = (RPC_C_AUTHN_LEVEL_CONNECT);
  776.   {$EXTERNALSYM RPC_C_PROTECT_LEVEL_CONNECT}
  777.   RPC_C_PROTECT_LEVEL_CALL          = (RPC_C_AUTHN_LEVEL_CALL);
  778.   {$EXTERNALSYM RPC_C_PROTECT_LEVEL_CALL}
  779.   RPC_C_PROTECT_LEVEL_PKT           = (RPC_C_AUTHN_LEVEL_PKT);
  780.   {$EXTERNALSYM RPC_C_PROTECT_LEVEL_PKT}
  781.   RPC_C_PROTECT_LEVEL_PKT_INTEGRITY = (RPC_C_AUTHN_LEVEL_PKT_INTEGRITY);
  782.   {$EXTERNALSYM RPC_C_PROTECT_LEVEL_PKT_INTEGRITY}
  783.   RPC_C_PROTECT_LEVEL_PKT_PRIVACY   = (RPC_C_AUTHN_LEVEL_PKT_PRIVACY);
  784.   {$EXTERNALSYM RPC_C_PROTECT_LEVEL_PKT_PRIVACY}
  786.   RPC_C_AUTHN_NONE          = 0;
  787.   {$EXTERNALSYM RPC_C_AUTHN_NONE}
  788.   RPC_C_AUTHN_DCE_PRIVATE   = 1;
  789.   {$EXTERNALSYM RPC_C_AUTHN_DCE_PRIVATE}
  790.   RPC_C_AUTHN_DCE_PUBLIC    = 2;
  791.   {$EXTERNALSYM RPC_C_AUTHN_DCE_PUBLIC}
  792.   RPC_C_AUTHN_DEC_PUBLIC    = 4;
  793.   {$EXTERNALSYM RPC_C_AUTHN_DEC_PUBLIC}
  794.   RPC_C_AUTHN_GSS_NEGOTIATE = 9;
  795.   {$EXTERNALSYM RPC_C_AUTHN_GSS_NEGOTIATE}
  796.   RPC_C_AUTHN_WINNT         = 10;
  797.   {$EXTERNALSYM RPC_C_AUTHN_WINNT}
  798.   RPC_C_AUTHN_GSS_SCHANNEL  = 14;
  799.   {$EXTERNALSYM RPC_C_AUTHN_GSS_SCHANNEL}
  800.   RPC_C_AUTHN_GSS_KERBEROS  = 16;
  801.   {$EXTERNALSYM RPC_C_AUTHN_GSS_KERBEROS}
  802.   RPC_C_AUTHN_DPA           = 17;
  803.   {$EXTERNALSYM RPC_C_AUTHN_DPA}
  804.   RPC_C_AUTHN_MSN           = 18;
  805.   {$EXTERNALSYM RPC_C_AUTHN_MSN}
  806.   RPC_C_AUTHN_DIGEST        = 21;
  807.   {$EXTERNALSYM RPC_C_AUTHN_DIGEST}
  808.   RPC_C_AUTHN_MQ            = 100;
  809.   {$EXTERNALSYM RPC_C_AUTHN_MQ}
  810.   RPC_C_AUTHN_DEFAULT       = DWORD($FFFFFFFF);
  811.   {$EXTERNALSYM RPC_C_AUTHN_DEFAULT}
  813.   RPC_C_NO_CREDENTIALS = RPC_AUTH_IDENTITY_HANDLE(MAXUINT_PTR);
  814.   {$EXTERNALSYM RPC_C_NO_CREDENTIALS}
  816.   RPC_C_SECURITY_QOS_VERSION = 1;
  817.   {$EXTERNALSYM RPC_C_SECURITY_QOS_VERSION}
  818.   RPC_C_SECURITY_QOS_VERSION_1 = 1;
  819.   {$EXTERNALSYM RPC_C_SECURITY_QOS_VERSION_1}
  821. type
  822.   _RPC_SECURITY_QOS = record
  823.     Version: Longint;
  824.     Capabilities: Longint;
  825.     IdentityTracking: Longint;
  826.     ImpersonationType: Longint;
  827.   end;
  828.   {$EXTERNALSYM _RPC_SECURITY_QOS}
  829.   RPC_SECURITY_QOS = _RPC_SECURITY_QOS;
  830.   {$EXTERNALSYM RPC_SECURITY_QOS}
  831.   PRPC_SECURITY_QOS = ^RPC_SECURITY_QOS;
  832.   {$EXTERNALSYM PRPC_SECURITY_QOS}
  833.   TRpcSecurityQos = RPC_SECURITY_QOS;
  834.   PRpcSecurityQos = PRPC_SECURITY_QOS;
  836. const
  837.   SEC_WINNT_AUTH_IDENTITY_ANSI    = $1;
  838.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_ANSI}
  839.   SEC_WINNT_AUTH_IDENTITY_UNICODE = $2;
  840.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_UNICODE}
  842. type
  843.   _SEC_WINNT_AUTH_IDENTITY_W = record
  844.     User: PWideChar;
  845.     UserLength: Longint;
  846.     Domain: PWideChar;
  847.     DomainLength: Longint;
  848.     Password: PWideChar;
  849.     PasswordLength: Longint;
  850.     Flags: Longint;
  851.   end;
  852.   {$EXTERNALSYM _SEC_WINNT_AUTH_IDENTITY_W}
  853.   SEC_WINNT_AUTH_IDENTITY_W = _SEC_WINNT_AUTH_IDENTITY_W;
  854.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_W}
  855.   PSEC_WINNT_AUTH_IDENTITY_W = ^SEC_WINNT_AUTH_IDENTITY_W;
  856.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY_W}
  857.   TSecWinNTAuthIdentityW = SEC_WINNT_AUTH_IDENTITY_W;
  858.   PSecWinNTAuthIdentityW = PSEC_WINNT_AUTH_IDENTITY_W;
  860.   _SEC_WINNT_AUTH_IDENTITY_A = record
  861.     User: PChar;
  862.     UserLength: Longint;
  863.     Domain: PChar;
  864.     DomainLength: Longint;
  865.     Password: PChar;
  866.     PasswordLength: Longint;
  867.     Flags: Longint;
  868.   end;
  869.   {$EXTERNALSYM _SEC_WINNT_AUTH_IDENTITY_A}
  870.   SEC_WINNT_AUTH_IDENTITY_A = _SEC_WINNT_AUTH_IDENTITY_A;
  871.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_A}
  872.   PSEC_WINNT_AUTH_IDENTITY_A = ^SEC_WINNT_AUTH_IDENTITY_A;
  873.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY_A}
  874.   TSecWinNTAuthIdentityA = SEC_WINNT_AUTH_IDENTITY_A;
  875.   PSecWinNTAuthIdentityA = PSEC_WINNT_AUTH_IDENTITY_A;
  877. {$IFDEF UNICODE}
  878.   SEC_WINNT_AUTH_IDENTITY = SEC_WINNT_AUTH_IDENTITY_W;
  879.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY}
  880.   PSEC_WINNT_AUTH_IDENTITY = PSEC_WINNT_AUTH_IDENTITY_W;
  881.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY}
  882.   _SEC_WINNT_AUTH_IDENTITY = _SEC_WINNT_AUTH_IDENTITY_W;
  883.   {$EXTERNALSYM _SEC_WINNT_AUTH_IDENTITY}
  884.   TSecWinNTAuthIdentity = TSecWinNTAuthIdentityW;
  885.   PSecWinNTAuthIdentity = PSecWinNTAuthIdentityW;
  886. {$ELSE}
  887.   SEC_WINNT_AUTH_IDENTITY = SEC_WINNT_AUTH_IDENTITY_A;
  888.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY}
  889.   PSEC_WINNT_AUTH_IDENTITY = PSEC_WINNT_AUTH_IDENTITY_A;
  890.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY}
  891.   _SEC_WINNT_AUTH_IDENTITY = _SEC_WINNT_AUTH_IDENTITY_A;
  892.   {$EXTERNALSYM _SEC_WINNT_AUTH_IDENTITY}
  893.   TSecWinNTAuthIdentity = TSecWinNTAuthIdentityA;
  894.   PSecWinNTAuthIdentity = PSecWinNTAuthIdentityA;
  895. {$ENDIF}
  897. const
  898.   RPC_C_SECURITY_QOS_VERSION_2 = 2;
  899.   {$EXTERNALSYM RPC_C_SECURITY_QOS_VERSION_2}
  901.   RPC_C_AUTHN_INFO_TYPE_HTTP                 = 1;
  902.   {$EXTERNALSYM RPC_C_AUTHN_INFO_TYPE_HTTP}
  904.   RPC_C_HTTP_AUTHN_TARGET_SERVER             = 1;
  905.   {$EXTERNALSYM RPC_C_HTTP_AUTHN_TARGET_SERVER}
  906.   RPC_C_HTTP_AUTHN_TARGET_PROXY              = 2;
  907.   {$EXTERNALSYM RPC_C_HTTP_AUTHN_TARGET_PROXY}
  909.   RPC_C_HTTP_AUTHN_SCHEME_BASIC     = $00000001;
  910.   {$EXTERNALSYM RPC_C_HTTP_AUTHN_SCHEME_BASIC}
  911.   RPC_C_HTTP_AUTHN_SCHEME_NTLM      = $00000002;
  912.   {$EXTERNALSYM RPC_C_HTTP_AUTHN_SCHEME_NTLM}
  913.   RPC_C_HTTP_AUTHN_SCHEME_PASSPORT  = $00000004;
  914.   {$EXTERNALSYM RPC_C_HTTP_AUTHN_SCHEME_PASSPORT}
  915.   RPC_C_HTTP_AUTHN_SCHEME_DIGEST    = $00000008;
  916.   {$EXTERNALSYM RPC_C_HTTP_AUTHN_SCHEME_DIGEST}
  917.   RPC_C_HTTP_AUTHN_SCHEME_NEGOTIATE = $00000010;
  918.   {$EXTERNALSYM RPC_C_HTTP_AUTHN_SCHEME_NEGOTIATE}
  920.   RPC_C_HTTP_FLAG_USE_SSL                    = 1;
  921.   {$EXTERNALSYM RPC_C_HTTP_FLAG_USE_SSL}
  922.   RPC_C_HTTP_FLAG_USE_FIRST_AUTH_SCHEME      = 2;
  923.   {$EXTERNALSYM RPC_C_HTTP_FLAG_USE_FIRST_AUTH_SCHEME}
  925. type
  926.   _RPC_HTTP_TRANSPORT_CREDENTIALS_W = record
  927.     TransportCredentials: PSEC_WINNT_AUTH_IDENTITY_W;
  928.     Flags: Cardinal;
  929.     AuthenticationTarget: Cardinal;
  930.     NumberOfAuthnSchemes: Cardinal;
  931.     AuthnSchemes: PCardinal;
  932.     ServerCertificateSubject: PWord;
  933.   end;
  934.   {$EXTERNALSYM RPC_HTTP_TRANSPORT_CREDENTIALS_W}
  935.   RPC_HTTP_TRANSPORT_CREDENTIALS_W = _RPC_HTTP_TRANSPORT_CREDENTIALS_W;
  936.   {$EXTERNALSYM RPC_HTTP_TRANSPORT_CREDENTIALS_W}
  937.   PRPC_HTTP_TRANSPORT_CREDENTIALS_W = ^RPC_HTTP_TRANSPORT_CREDENTIALS_W;
  938.   {$EXTERNALSYM PRPC_HTTP_TRANSPORT_CREDENTIALS_W}
  939.   TRpcHttpTransportCredentialsW = RPC_HTTP_TRANSPORT_CREDENTIALS_W;
  940.   PRpcHttpTransportCredentialsW = PRPC_HTTP_TRANSPORT_CREDENTIALS_W;
  942.   _RPC_HTTP_TRANSPORT_CREDENTIALS_A = record
  943.     TransportCredentials: PSEC_WINNT_AUTH_IDENTITY_A;
  944.     Flags: Cardinal;
  945.     AuthenticationTarget: Cardinal;
  946.     NumberOfAuthnSchemes: Cardinal;
  947.     AuthnSchemes: PCardinal;
  948.     ServerCertificateSubject: PByte;
  949.   end;
  950.   {$EXTERNALSYM RPC_HTTP_TRANSPORT_CREDENTIALS_A}
  951.   RPC_HTTP_TRANSPORT_CREDENTIALS_A = _RPC_HTTP_TRANSPORT_CREDENTIALS_A;
  952.   {$EXTERNALSYM RPC_HTTP_TRANSPORT_CREDENTIALS_A}
  953.   PRPC_HTTP_TRANSPORT_CREDENTIALS_A = ^RPC_HTTP_TRANSPORT_CREDENTIALS_A;
  954.   {$EXTERNALSYM PRPC_HTTP_TRANSPORT_CREDENTIALS_A}
  955.   TRpcHttpTransportCredentialsA = RPC_HTTP_TRANSPORT_CREDENTIALS_A;
  956.   PRpcHttpTransportCredentialsA = PRPC_HTTP_TRANSPORT_CREDENTIALS_A;
  958.   _RPC_SECURITY_QOS_V2_W = record
  959.     Version: Cardinal;
  960.     Capabilities: Cardinal;
  961.     IdentityTracking: Cardinal;
  962.     ImpersonationType: Cardinal;
  963.     AdditionalSecurityInfoType: Cardinal;
  964.     case Integer of
  965.       0: (HttpCredentials: PRPC_HTTP_TRANSPORT_CREDENTIALS_W);
  966.   end;
  967.   {$EXTERNALSYM _RPC_SECURITY_QOS_V2_W}
  968.   RPC_SECURITY_QOS_V2_W = _RPC_SECURITY_QOS_V2_W;
  969.   {$EXTERNALSYM RPC_SECURITY_QOS_V2_W}
  970.   PRPC_SECURITY_QOS_V2_W = ^RPC_SECURITY_QOS_V2_W;
  971.   {$EXTERNALSYM PRPC_SECURITY_QOS_V2_W}
  972.   TRpcSecurityQosV2W = RPC_SECURITY_QOS_V2_W;
  973.   PRpcSecurityQosV2W = PRPC_SECURITY_QOS_V2_W;  
  975.   _RPC_SECURITY_QOS_V2_A = record
  976.     Version: Cardinal;
  977.     Capabilities: Cardinal;
  978.     IdentityTracking: Cardinal;
  979.     ImpersonationType: Cardinal;
  980.     AdditionalSecurityInfoType: Cardinal;
  981.     case Integer of
  982.       0: (HttpCredentials: PRPC_HTTP_TRANSPORT_CREDENTIALS_A);
  983.   end;
  984.   {$EXTERNALSYM _RPC_SECURITY_QOS_V2_A}
  985.   RPC_SECURITY_QOS_V2_A = _RPC_SECURITY_QOS_V2_A;
  986.   {$EXTERNALSYM RPC_SECURITY_QOS_V2_A}
  987.   PRPC_SECURITY_QOS_V2_A = ^RPC_SECURITY_QOS_V2_A;
  988.   {$EXTERNALSYM PRPC_SECURITY_QOS_V2_A}
  989.   TRpcSecurityQosV2A = RPC_SECURITY_QOS_V2_A;
  990.   PRpcSecurityQosV2A = PRPC_SECURITY_QOS_V2_A;
  992. const
  993.   RPC_C_SECURITY_QOS_VERSION_3 = 3;
  994.   {$EXTERNALSYM RPC_C_SECURITY_QOS_VERSION_3}
  996. type
  997.   _RPC_SECURITY_QOS_V3_W = record
  998.     Version: Cardinal;
  999.     Capabilities: Cardinal;
  1000.     IdentityTracking: Cardinal;
  1001.     ImpersonationType: Cardinal;
  1002.     AdditionalSecurityInfoType: Cardinal;
  1003.     u: record
  1004.     case Integer of
  1005.       0: (HttpCredentials: PRPC_HTTP_TRANSPORT_CREDENTIALS_W);
  1006.     end;
  1007.     Sid: Pointer;
  1008.   end;
  1009.   {$EXTERNALSYM _RPC_SECURITY_QOS_V3_W}
  1010.   RPC_SECURITY_QOS_V3_W = _RPC_SECURITY_QOS_V3_W;
  1011.   {$EXTERNALSYM RPC_SECURITY_QOS_V3_W}
  1012.   PRPC_SECURITY_QOS_V3_W = ^RPC_SECURITY_QOS_V3_W;
  1013.   {$EXTERNALSYM PRPC_SECURITY_QOS_V3_W}
  1014.   TRpcSecurityQosV3W = RPC_SECURITY_QOS_V3_W;
  1015.   PRpcSecurityQosV3W = PRPC_SECURITY_QOS_V3_W;
  1017.   _RPC_SECURITY_QOS_V3_A = record
  1018.     Version: Cardinal;
  1019.     Capabilities: Cardinal;
  1020.     IdentityTracking: Cardinal;
  1021.     ImpersonationType: Cardinal;
  1022.     AdditionalSecurityInfoType: Cardinal;
  1023.     u: record
  1024.     case Integer of
  1025.       0: (HttpCredentials: PRPC_HTTP_TRANSPORT_CREDENTIALS_A);
  1026.     end;
  1027.     Sid: Pointer;
  1028.   end;
  1029.   {$EXTERNALSYM _RPC_SECURITY_QOS_V3_A}
  1030.   RPC_SECURITY_QOS_V3_A = _RPC_SECURITY_QOS_V3_A;
  1031.   {$EXTERNALSYM RPC_SECURITY_QOS_V3_A}
  1032.   PRPC_SECURITY_QOS_V3_A = ^RPC_SECURITY_QOS_V3_A;
  1033.   {$EXTERNALSYM PRPC_SECURITY_QOS_V3_A}
  1034.   TRpcSecurityQosV3A = RPC_SECURITY_QOS_V3_A;
  1035.   PRpcSecurityQosV3A = PRPC_SECURITY_QOS_V3_A;
  1037. {$IFDEF UNICODE}
  1039.   RPC_SECURITY_QOS_V2 = RPC_SECURITY_QOS_V2_W;
  1040.   {$EXTERNALSYM RPC_SECURITY_QOS_V2}
  1041.   PRPC_SECURITY_QOS_V2 = PRPC_SECURITY_QOS_V2_W;
  1042.   {$EXTERNALSYM PRPC_SECURITY_QOS_V2}
  1043.   _RPC_SECURITY_QOS_V2 = _RPC_SECURITY_QOS_V2_W;
  1044.   {$EXTERNALSYM _RPC_SECURITY_QOS_V2}
  1045.   TRpcSecurityQosV2 = TRpcSecurityQosV2W;
  1046.   PRpcSecurityQosV2 = PRpcSecurityQosV2W;
  1048.   RPC_HTTP_TRANSPORT_CREDENTIALS = RPC_HTTP_TRANSPORT_CREDENTIALS_W;
  1049.   {$EXTERNALSYM RPC_HTTP_TRANSPORT_CREDENTIALS}
  1050.   PRPC_HTTP_TRANSPORT_CREDENTIALS = PRPC_HTTP_TRANSPORT_CREDENTIALS_W;
  1051.   {$EXTERNALSYM PRPC_HTTP_TRANSPORT_CREDENTIALS}
  1052.   _RPC_HTTP_TRANSPORT_CREDENTIALS = _RPC_HTTP_TRANSPORT_CREDENTIALS_W;
  1053.   {$EXTERNALSYM _RPC_HTTP_TRANSPORT_CREDENTIALS}
  1054.   TRpcHttpTransportCredentials = TRpcHttpTransportCredentialsW;
  1055.   PRpcHttpTransportCredentials = PRpcHttpTransportCredentialsW;
  1057.   RPC_SECURITY_QOS_V3 = RPC_SECURITY_QOS_V3_W;
  1058.   {$EXTERNALSYM RPC_SECURITY_QOS_V3}
  1059.   PRPC_SECURITY_QOS_V3 = PRPC_SECURITY_QOS_V3_W;
  1060.   {$EXTERNALSYM PRPC_SECURITY_QOS_V3}
  1061.   _RPC_SECURITY_QOS_V3 = _RPC_SECURITY_QOS_V3_W;
  1062.   {$EXTERNALSYM _RPC_SECURITY_QOS_V3}
  1063.   TRpcSecurityQosV3 = TRpcSecurityQosV3W;
  1064.   PRpcSecurityQosV3 = PRpcSecurityQosV3W;
  1066. {$ELSE}
  1068.   RPC_SECURITY_QOS_V2 = RPC_SECURITY_QOS_V2_A;
  1069.   {$EXTERNALSYM RPC_SECURITY_QOS_V2}
  1070.   PRPC_SECURITY_QOS_V2 = PRPC_SECURITY_QOS_V2_A;
  1071.   {$EXTERNALSYM PRPC_SECURITY_QOS_V2}
  1072.   _RPC_SECURITY_QOS_V2 = _RPC_SECURITY_QOS_V2_A;
  1073.   {$EXTERNALSYM _RPC_SECURITY_QOS_V2}
  1074.   TRpcSecurityQosV2 = TRpcSecurityQosV2A;
  1075.   PRpcSecurityQosV2 = PRpcSecurityQosV2A;
  1077.   RPC_HTTP_TRANSPORT_CREDENTIALS = RPC_HTTP_TRANSPORT_CREDENTIALS_A;
  1078.   {$EXTERNALSYM RPC_HTTP_TRANSPORT_CREDENTIALS}
  1079.   PRPC_HTTP_TRANSPORT_CREDENTIALS = PRPC_HTTP_TRANSPORT_CREDENTIALS_A;
  1080.   {$EXTERNALSYM PRPC_HTTP_TRANSPORT_CREDENTIALS}
  1081.   _RPC_HTTP_TRANSPORT_CREDENTIALS = _RPC_HTTP_TRANSPORT_CREDENTIALS_A;
  1082.   {$EXTERNALSYM _RPC_HTTP_TRANSPORT_CREDENTIALS}
  1083.   TRpcHttpTransportCredentials = TRpcHttpTransportCredentialsA;
  1084.   PRpcHttpTransportCredentials = PRpcHttpTransportCredentialsA;
  1086.   RPC_SECURITY_QOS_V3 = RPC_SECURITY_QOS_V3_A;
  1087.   {$EXTERNALSYM RPC_SECURITY_QOS_V3}
  1088.   PRPC_SECURITY_QOS_V3 = PRPC_SECURITY_QOS_V3_A;
  1089.   {$EXTERNALSYM PRPC_SECURITY_QOS_V3}
  1090.   _RPC_SECURITY_QOS_V3 = _RPC_SECURITY_QOS_V3_A;
  1091.   {$EXTERNALSYM _RPC_SECURITY_QOS_V3}
  1092.   TRpcSecurityQosV3 = TRpcSecurityQosV3A;
  1093.   PRpcSecurityQosV3 = PRpcSecurityQosV3A;
  1095. {$ENDIF}
  1097. type
  1098.   RPC_NEW_HTTP_PROXY_CHANNEL = function (ServerName: PWideChar; ServerPort: PWord; RemoteUser: PByte; out NewServerName: PWord): RPC_STATUS; stdcall;
  1099.   {$EXTERNALSYM RPC_NEW_HTTP_PROXY_CHANNEL}
  1101.   RPC_HTTP_PROXY_FREE_STRING = procedure (ServerName: PWideChar); stdcall;
  1102.   {$EXTERNALSYM RPC_HTTP_PROXY_FREE_STRING}
  1104. const
  1105.   RPC_C_AUTHZ_NONE    = 0;
  1106.   {$EXTERNALSYM RPC_C_AUTHZ_NONE}
  1107.   RPC_C_AUTHZ_NAME    = 1;
  1108.   {$EXTERNALSYM RPC_C_AUTHZ_NAME}
  1109.   RPC_C_AUTHZ_DCE     = 2;
  1110.   {$EXTERNALSYM RPC_C_AUTHZ_DCE}
  1111.   RPC_C_AUTHZ_DEFAULT = DWORD($ffffffff);
  1112.   {$EXTERNALSYM RPC_C_AUTHZ_DEFAULT}
  1114. function RpcImpersonateClient(BindingHandle: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  1115. {$EXTERNALSYM RpcImpersonateClient}
  1117. function RpcRevertToSelfEx(BindingHandle: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  1118. {$EXTERNALSYM RpcRevertToSelfEx}
  1120. function RpcRevertToSelf: RPC_STATUS; stdcall;
  1121. {$EXTERNALSYM RpcRevertToSelf}
  1123. function RpcBindingInqAuthClientA(ClientBinding: RPC_BINDING_HANDLE;
  1124.   Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPChar; AuthnLevel, AuthnSvc,
  1125.   AuthzSvc: PCardinal): RPC_STATUS; stdcall;
  1126. {$EXTERNALSYM RpcBindingInqAuthClientA}
  1127. function RpcBindingInqAuthClientW(ClientBinding: RPC_BINDING_HANDLE;
  1128.   Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc,
  1129.   AuthzSvc: PCardinal): RPC_STATUS; stdcall;
  1130. {$EXTERNALSYM RpcBindingInqAuthClientW}
  1132. function RpcBindingInqAuthClientExA(ClientBinding: RPC_BINDING_HANDLE;
  1133.   Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPChar; AuthnLevel, AuthnSvc,
  1134.   AuthzSvc: PCardinal; Flags: Cardinal): RPC_STATUS; stdcall;
  1135. {$EXTERNALSYM RpcBindingInqAuthClientExA}
  1136. function RpcBindingInqAuthClientExW(ClientBinding: RPC_BINDING_HANDLE;
  1137.   Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc,
  1138.   AuthzSvc: PCardinal; Flags: Cardinal): RPC_STATUS; stdcall;
  1139. {$EXTERNALSYM RpcBindingInqAuthClientExW}
  1141. function RpcBindingInqAuthInfoA(Binding: RPC_BINDING_HANDLE; ServerPrincName: PPChar;
  1142.   AuthnLevel, AuthnSvc: PCardinal; AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE;
  1143.   AuthzSvc: PCardinal): RPC_STATUS; stdcall;
  1144. {$EXTERNALSYM RpcBindingInqAuthInfoA}
  1145. function RpcBindingInqAuthInfoW(Binding: RPC_BINDING_HANDLE; ServerPrincName: PPWideChar;
  1146.   AuthnLevel, AuthnSvc: PCardinal; AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE;
  1147.   AuthzSvc: PCardinal): RPC_STATUS; stdcall;
  1148. {$EXTERNALSYM RpcBindingInqAuthInfoW}
  1150. function RpcBindingSetAuthInfoA(Binding: RPC_BINDING_HANDLE; ServerPrincName: PChar;
  1151.   AuthnLevel, AuthnSvc: Cardinal; AuthIdentity: RPC_AUTH_IDENTITY_HANDLE;
  1152.   AuthzSvc: Cardinal): RPC_STATUS; stdcall;
  1153. {$EXTERNALSYM RpcBindingSetAuthInfoA}
  1154. function RpcBindingSetAuthInfoW(Binding: RPC_BINDING_HANDLE; ServerPrincName: PWideChar;
  1155.   AuthnLevel, AuthnSvc: Cardinal; AuthIdentity: RPC_AUTH_IDENTITY_HANDLE;
  1156.   AuthzSvc: Cardinal): RPC_STATUS; stdcall;
  1157. {$EXTERNALSYM RpcBindingSetAuthInfoW}
  1159. function RpcBindingSetAuthInfoExA(Binding: RPC_BINDING_HANDLE;
  1160.   ServerPrincName: PChar; AuthnLevel, AuthnSvc: Cardinal;
  1161.   AuthIdentity: RPC_AUTH_IDENTITY_HANDLE; AuthzSvc: Cardinal;
  1162.   const SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
  1163. {$EXTERNALSYM RpcBindingSetAuthInfoExA}
  1164. function RpcBindingSetAuthInfoExW(Binding: RPC_BINDING_HANDLE;
  1165.   ServerPrincName: PWideChar; AuthnLevel, AuthnSvc: Cardinal;
  1166.   AuthIdentity: RPC_AUTH_IDENTITY_HANDLE; AuthzSvc: Cardinal;
  1167.   const SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
  1168. {$EXTERNALSYM RpcBindingSetAuthInfoExW}
  1170. function RpcBindingInqAuthInfoExA(Binding: RPC_BINDING_HANDLE;
  1171.   ServerPrincName: PPChar; AuthnLevel, AuthnSvc: PCardinal;
  1172.   AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE; AuthzSvc: PCardinal;
  1173.   RpcQosVersion: Cardinal; var SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
  1174. {$EXTERNALSYM RpcBindingInqAuthInfoExA}
  1175. function RpcBindingInqAuthInfoExW(Binding: RPC_BINDING_HANDLE;
  1176.   ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc: PCardinal;
  1177.   AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE; AuthzSvc: PCardinal;
  1178.   RpcQosVersion: Cardinal; var SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
  1179. {$EXTERNALSYM RpcBindingInqAuthInfoExW}
  1181. type
  1182.   RPC_AUTH_KEY_RETRIEVAL_FN = procedure (Arg: Pointer; ServerPrincName: PWideChar;
  1183.     KeyVer: Cardinal; var Key: Pointer; var Status: RPC_STATUS); stdcall;
  1184.   {$EXTERNALSYM RPC_AUTH_KEY_RETRIEVAL_FN}
  1185.   TRpcAuthKeyRetrievalFn = RPC_AUTH_KEY_RETRIEVAL_FN;
  1187. function RpcServerRegisterAuthInfoA(ServerPrincName: PChar; AuthnSvc: Cardinal;
  1188.   GetKeyFn: RPC_AUTH_KEY_RETRIEVAL_FN; Arg: Pointer): RPC_STATUS; stdcall;
  1189. {$EXTERNALSYM RpcServerRegisterAuthInfoA}
  1190. function RpcServerRegisterAuthInfoW(ServerPrincName: PWideChar; AuthnSvc: Cardinal;
  1191.   GetKeyFn: RPC_AUTH_KEY_RETRIEVAL_FN; Arg: Pointer): RPC_STATUS; stdcall;
  1192. {$EXTERNALSYM RpcServerRegisterAuthInfoW}
  1194. {$IFDEF UNICODE}
  1195. function RpcBindingInqAuthClient(ClientBinding: RPC_BINDING_HANDLE;
  1196.   Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc,
  1197.   AuthzSvc: PCardinal): RPC_STATUS; stdcall;
  1198. {$EXTERNALSYM RpcBindingInqAuthClient}
  1199. function RpcBindingInqAuthClientEx(ClientBinding: RPC_BINDING_HANDLE;
  1200.   Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc,
  1201.   AuthzSvc: PCardinal; Flags: Cardinal): RPC_STATUS; stdcall;
  1202. {$EXTERNALSYM RpcBindingInqAuthClientEx}
  1203. function RpcBindingInqAuthInfo(Binding: RPC_BINDING_HANDLE; ServerPrincName: PPWideChar;
  1204.   AuthnLevel, AuthnSvc: PCardinal; AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE;
  1205.   AuthzSvc: PCardinal): RPC_STATUS; stdcall;
  1206. {$EXTERNALSYM RpcBindingInqAuthInfo}
  1207. function RpcBindingSetAuthInfo(Binding: RPC_BINDING_HANDLE; ServerPrincName: PWideChar;
  1208.   AuthnLevel, AuthnSvc: Cardinal; AuthIdentity: RPC_AUTH_IDENTITY_HANDLE;
  1209.   AuthzSvc: Cardinal): RPC_STATUS; stdcall;
  1210. {$EXTERNALSYM RpcBindingSetAuthInfo}
  1211. function RpcBindingSetAuthInfoEx(Binding: RPC_BINDING_HANDLE;
  1212.   ServerPrincName: PWideChar; AuthnLevel, AuthnSvc: Cardinal;
  1213.   AuthIdentity: RPC_AUTH_IDENTITY_HANDLE; AuthzSvc: Cardinal;
  1214.   const SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
  1215. {$EXTERNALSYM RpcBindingSetAuthInfoEx}
  1216. function RpcBindingInqAuthInfoEx(Binding: RPC_BINDING_HANDLE;
  1217.   ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc: PCardinal;
  1218.   AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE; AuthzSvc: PCardinal;
  1219.   RpcQosVersion: Cardinal; var SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
  1220. {$EXTERNALSYM RpcBindingInqAuthInfoEx}
  1221. function RpcServerRegisterAuthInfo(ServerPrincName: PWideChar; AuthnSvc: Cardinal;
  1222.   GetKeyFn: RPC_AUTH_KEY_RETRIEVAL_FN; Arg: Pointer): RPC_STATUS; stdcall;
  1223. {$EXTERNALSYM RpcServerRegisterAuthInfo}
  1224. {$ELSE}
  1225. function RpcBindingInqAuthClient(ClientBinding: RPC_BINDING_HANDLE;
  1226.   Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPChar; AuthnLevel, AuthnSvc,
  1227.   AuthzSvc: PCardinal): RPC_STATUS; stdcall;
  1228. {$EXTERNALSYM RpcBindingInqAuthClient}
  1229. function RpcBindingInqAuthClientEx(ClientBinding: RPC_BINDING_HANDLE;
  1230.   Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPChar; AuthnLevel, AuthnSvc,
  1231.   AuthzSvc: PCardinal; Flags: Cardinal): RPC_STATUS; stdcall;
  1232. {$EXTERNALSYM RpcBindingInqAuthClientEx}
  1233. function RpcBindingInqAuthInfo(Binding: RPC_BINDING_HANDLE; ServerPrincName: PPChar;
  1234.   AuthnLevel, AuthnSvc: PCardinal; AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE;
  1235.   AuthzSvc: PCardinal): RPC_STATUS; stdcall;
  1236. {$EXTERNALSYM RpcBindingInqAuthInfo}
  1237. function RpcBindingSetAuthInfo(Binding: RPC_BINDING_HANDLE; ServerPrincName: PChar;
  1238.   AuthnLevel, AuthnSvc: Cardinal; AuthIdentity: RPC_AUTH_IDENTITY_HANDLE;
  1239.   AuthzSvc: Cardinal): RPC_STATUS; stdcall;
  1240. {$EXTERNALSYM RpcBindingSetAuthInfo}
  1241. function RpcBindingSetAuthInfoEx(Binding: RPC_BINDING_HANDLE;
  1242.   ServerPrincName: PChar; AuthnLevel, AuthnSvc: Cardinal;
  1243.   AuthIdentity: RPC_AUTH_IDENTITY_HANDLE; AuthzSvc: Cardinal;
  1244.   const SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
  1245. {$EXTERNALSYM RpcBindingSetAuthInfoEx}
  1246. function RpcBindingInqAuthInfoEx(Binding: RPC_BINDING_HANDLE;
  1247.   ServerPrincName: PPChar; AuthnLevel, AuthnSvc: PCardinal;
  1248.   AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE; AuthzSvc: PCardinal;
  1249.   RpcQosVersion: Cardinal; var SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
  1250. {$EXTERNALSYM RpcBindingInqAuthInfoEx}
  1251. function RpcServerRegisterAuthInfo(ServerPrincName: PChar; AuthnSvc: Cardinal;
  1252.   GetKeyFn: RPC_AUTH_KEY_RETRIEVAL_FN; Arg: Pointer): RPC_STATUS; stdcall;
  1253. {$EXTERNALSYM RpcServerRegisterAuthInfo}
  1254. {$ENDIF}
  1256. type
  1257.   RPC_CLIENT_INFORMATION1 = record
  1258.     UserName: PChar;
  1259.     ComputerName: PChar;
  1260.     Privilege: Word;
  1261.     AuthFlags: Longword;
  1262.   end;
  1263.   {$EXTERNALSYM RPC_CLIENT_INFORMATION1}
  1264.   PRPC_CLIENT_INFORMATION1 = ^RPC_CLIENT_INFORMATION1;
  1265.   {$EXTERNALSYM PRPC_CLIENT_INFORMATION1}
  1266.   TRpcClientInformation1 = RPC_CLIENT_INFORMATION1;
  1267.   PRpcClientInformation1 = PRPC_CLIENT_INFORMATION1;
  1269. function RpcBindingServerFromClient(ClientBinding: RPC_BINDING_HANDLE;
  1270.   var ServerBinding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  1271. {$EXTERNALSYM RpcBindingServerFromClient}
  1273. procedure RpcRaiseException(exception: RPC_STATUS); stdcall;
  1274. {$EXTERNALSYM RpcRaiseException}
  1276. function RpcTestCancel: RPC_STATUS; stdcall;
  1277. {$EXTERNALSYM RpcTestCancel}
  1279. function RpcServerTestCancel(BindingHandle: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  1280. {$EXTERNALSYM RpcServerTestCancel}
  1282. function RpcCancelThread(Thread: Pointer): RPC_STATUS; stdcall;
  1283. {$EXTERNALSYM RpcCancelThread}
  1285. function RpcCancelThreadEx(Thread: Pointer; Timeout: Longint): RPC_STATUS; stdcall;
  1286. {$EXTERNALSYM RpcCancelThreadEx}
  1288. function UuidCreate(var Uuid: UUID): RPC_STATUS; stdcall;
  1289. {$EXTERNALSYM UuidCreate}
  1291. function UuidCreateSequential(Uuid: UUID): RPC_STATUS; stdcall;
  1292. {$EXTERNALSYM UuidCreateSequential}
  1294. function UuidFromStringA(StringUuid: PChar; var Uuid: UUID): RPC_STATUS; stdcall;
  1295. {$EXTERNALSYM UuidFromStringA}
  1296. function UuidFromStringW(StringUuid: PWideChar; var Uuid: UUID): RPC_STATUS; stdcall;
  1297. {$EXTERNALSYM UuidFromStringW}
  1299. {$IFDEF UNICODE}
  1300. function UuidFromString(StringUuid: PWideChar; var Uuid: UUID): RPC_STATUS; stdcall;
  1301. {$EXTERNALSYM UuidFromString}
  1302. {$ELSE}
  1303. function UuidFromString(StringUuid: PChar; var Uuid: UUID): RPC_STATUS; stdcall;
  1304. {$EXTERNALSYM UuidFromString}
  1305. {$ENDIF}
  1307. function UuidToStringA(const Uuid: UUID; var StringUuid: PChar): RPC_STATUS; stdcall;
  1308. {$EXTERNALSYM UuidToStringA}
  1309. function UuidToStringW(const Uuid: UUID; var StringUuid: PWideChar): RPC_STATUS; stdcall;
  1310. {$EXTERNALSYM UuidToStringW}
  1312. {$IFDEF UNICODE}
  1313. function UuidToString(const Uuid: UUID; var StringUuid: PWideChar): RPC_STATUS; stdcall;
  1314. {$EXTERNALSYM UuidToString}
  1315. {$ELSE}
  1316. function UuidToString(const Uuid: UUID; var StringUuid: PChar): RPC_STATUS; stdcall;
  1317. {$EXTERNALSYM UuidToString}
  1318. {$ENDIF}
  1320. function UuidCompare(const Uuid1, Uuid2: UUID; var Status: RPC_STATUS): Integer; stdcall;
  1321. {$EXTERNALSYM UuidCompare}
  1323. function UuidCreateNil(var NilUuid: UUID): RPC_STATUS; stdcall;
  1324. {$EXTERNALSYM UuidCreateNil}
  1326. function UuidEqual(const Uuid1, Uuid2: UUID; var Status: RPC_STATUS): Integer; stdcall;
  1327. {$EXTERNALSYM UuidEqual}
  1329. function UuidHash(const Uuid: UUID; var Status: RPC_STATUS): Word; stdcall;
  1330. {$EXTERNALSYM UuidHash}
  1332. function UuidIsNil(const Uuid: UUID; var Status: RPC_STATUS): Integer; stdcall;
  1333. {$EXTERNALSYM UuidIsNil}
  1335. function RpcEpRegisterNoReplaceA(IfSpec: RPC_IF_HANDLE;
  1336.   BindingVector: PRPC_BINDING_VECTOR; UuidVector: PUUID_VECTOR;
  1337.   Annotation: PChar): RPC_STATUS; stdcall;
  1338. {$EXTERNALSYM RpcEpRegisterNoReplaceA}
  1339. function RpcEpRegisterNoReplaceW(IfSpec: RPC_IF_HANDLE;
  1340.   BindingVector: PRPC_BINDING_VECTOR; UuidVector: PUUID_VECTOR;
  1341.   Annotation: PWideChar): RPC_STATUS; stdcall;
  1342. {$EXTERNALSYM RpcEpRegisterNoReplaceW}
  1344. {$IFDEF UNICODE}
  1345. function RpcEpRegisterNoReplace(IfSpec: RPC_IF_HANDLE;
  1346.   BindingVector: PRPC_BINDING_VECTOR; UuidVector: PUUID_VECTOR;
  1347.   Annotation: PWideChar): RPC_STATUS; stdcall;
  1348. {$EXTERNALSYM RpcEpRegisterNoReplace}
  1349. {$ELSE}
  1350. function RpcEpRegisterNoReplace(IfSpec: RPC_IF_HANDLE;
  1351.   BindingVector: PRPC_BINDING_VECTOR; UuidVector: PUUID_VECTOR;
  1352.   Annotation: PChar): RPC_STATUS; stdcall;
  1353. {$EXTERNALSYM RpcEpRegisterNoReplace}
  1354. {$ENDIF}
  1356. function RpcEpRegisterA(IfSpec: RPC_IF_HANDLE; BindingVector: PRPC_BINDING_VECTOR;
  1357.   UuidVector: PUUID_VECTOR; Annotation: PChar): RPC_STATUS; stdcall;
  1358. {$EXTERNALSYM RpcEpRegisterA}
  1359. function RpcEpRegisterW(IfSpec: RPC_IF_HANDLE; BindingVector: PRPC_BINDING_VECTOR;
  1360.   UuidVector: PUUID_VECTOR; Annotation: PWideChar): RPC_STATUS; stdcall;
  1361. {$EXTERNALSYM RpcEpRegisterW}
  1363. {$IFDEF UNICODE}
  1364. function RpcEpRegister(IfSpec: RPC_IF_HANDLE; BindingVector: PRPC_BINDING_VECTOR;
  1365.   UuidVector: PUUID_VECTOR; Annotation: PWideChar): RPC_STATUS; stdcall;
  1366. {$EXTERNALSYM RpcEpRegister}
  1367. {$ELSE}
  1368. function RpcEpRegister(IfSpec: RPC_IF_HANDLE; BindingVector: PRPC_BINDING_VECTOR;
  1369.   UuidVector: PUUID_VECTOR; Annotation: PChar): RPC_STATUS; stdcall;
  1370. {$EXTERNALSYM RpcEpRegister}
  1371. {$ENDIF}
  1373. function RpcEpUnregister(IfSpec: RPC_IF_HANDLE; BindingVector: PRPC_BINDING_VECTOR;
  1374.   UuidVector: UUID_VECTOR): RPC_STATUS; stdcall;
  1375. {$EXTERNALSYM RpcEpUnregister}
  1377. function DceErrorInqTextA(RpcStatus: RPC_STATUS; ErrorText: PChar): RPC_STATUS; stdcall;
  1378. {$EXTERNALSYM DceErrorInqTextA}
  1379. function DceErrorInqTextW(RpcStatus: RPC_STATUS; ErrorText: PWideChar): RPC_STATUS; stdcall;
  1380. {$EXTERNALSYM DceErrorInqTextW}
  1382. {$IFDEF UNICODE}
  1383. function DceErrorInqText(RpcStatus: RPC_STATUS; ErrorText: PWideChar): RPC_STATUS; stdcall;
  1384. {$EXTERNALSYM DceErrorInqText}
  1385. {$ELSE}
  1386. function DceErrorInqText(RpcStatus: RPC_STATUS; ErrorText: PChar): RPC_STATUS; stdcall;
  1387. {$EXTERNALSYM DceErrorInqText}
  1388. {$ENDIF}
  1390. const
  1391.   DCE_C_ERROR_STRING_LEN = 256;
  1392.   {$EXTERNALSYM DCE_C_ERROR_STRING_LEN}
  1394. type
  1395.   RPC_EP_INQ_HANDLE = ^I_RPC_HANDLE;
  1396.   {$EXTERNALSYM RPC_EP_INQ_HANDLE}
  1398. const
  1399.   RPC_C_EP_ALL_ELTS      = 0;
  1400.   {$EXTERNALSYM RPC_C_EP_ALL_ELTS}
  1401.   RPC_C_EP_MATCH_BY_IF   = 1;
  1402.   {$EXTERNALSYM RPC_C_EP_MATCH_BY_IF}
  1403.   RPC_C_EP_MATCH_BY_OBJ  = 2;
  1404.   {$EXTERNALSYM RPC_C_EP_MATCH_BY_OBJ}
  1405.   RPC_C_EP_MATCH_BY_BOTH = 3;
  1406.   {$EXTERNALSYM RPC_C_EP_MATCH_BY_BOTH}
  1408.   RPC_C_VERS_ALL        = 1;
  1409.   {$EXTERNALSYM RPC_C_VERS_ALL}
  1410.   RPC_C_VERS_COMPATIBLE = 2;
  1411.   {$EXTERNALSYM RPC_C_VERS_COMPATIBLE}
  1412.   RPC_C_VERS_EXACT      = 3;
  1413.   {$EXTERNALSYM RPC_C_VERS_EXACT}
  1414.   RPC_C_VERS_MAJOR_ONLY = 4;
  1415.   {$EXTERNALSYM RPC_C_VERS_MAJOR_ONLY}
  1416.   RPC_C_VERS_UPTO       = 5;
  1417.   {$EXTERNALSYM RPC_C_VERS_UPTO}
  1419. function RpcMgmtEpEltInqBegin(EpBinding: RPC_BINDING_HANDLE; InquiryType: Cardinal;
  1420.   IfId: PRPC_IF_ID; VersOption: Cardinal; ObjectUuid: PUUID;
  1421.   var InquiryContext: RPC_EP_INQ_HANDLE): RPC_STATUS; stdcall;
  1422. {$EXTERNALSYM RpcMgmtEpEltInqBegin}
  1424. function RpcMgmtEpEltInqDone(var InquiryContext: RPC_EP_INQ_HANDLE): RPC_STATUS; stdcall;
  1425. {$EXTERNALSYM RpcMgmtEpEltInqDone}
  1427. function RpcMgmtEpEltInqNextA(InquiryContext: RPC_EP_INQ_HANDLE; var IfId: RPC_IF_ID;
  1428.   Binding: PRPC_BINDING_HANDLE; ObjectUuid: PUUID; var Annotation: PChar): RPC_STATUS; stdcall;
  1429. {$EXTERNALSYM RpcMgmtEpEltInqNextA}
  1431. function RpcMgmtEpEltInqNextW(InquiryContext: RPC_EP_INQ_HANDLE; var IfId: RPC_IF_ID;
  1432.   Binding: PRPC_BINDING_HANDLE; ObjectUuid: PUUID; var Annotation: PWideChar): RPC_STATUS; stdcall;
  1433. {$EXTERNALSYM RpcMgmtEpEltInqNextW}
  1435. {$IFDEF UNICODE}
  1436. function RpcMgmtEpEltInqNext(InquiryContext: RPC_EP_INQ_HANDLE; var IfId: RPC_IF_ID;
  1437.   Binding: PRPC_BINDING_HANDLE; ObjectUuid: PUUID; var Annotation: PWideChar): RPC_STATUS; stdcall;
  1438. {$EXTERNALSYM RpcMgmtEpEltInqNext}
  1439. {$ELSE}
  1440. function RpcMgmtEpEltInqNext(InquiryContext: RPC_EP_INQ_HANDLE; var IfId: RPC_IF_ID;
  1441.   Binding: PRPC_BINDING_HANDLE; ObjectUuid: PUUID; var Annotation: PChar): RPC_STATUS; stdcall;
  1442. {$EXTERNALSYM RpcMgmtEpEltInqNext}
  1443. {$ENDIF}
  1445. function RpcMgmtEpUnregister(EpBinding: RPC_BINDING_HANDLE; IfId: PRPC_IF_ID;
  1446.   Binding: RPC_BINDING_HANDLE; ObjectUuid : PUUID): RPC_STATUS; stdcall;
  1447. {$EXTERNALSYM RpcMgmtEpUnregister}
  1449. type
  1450.   RPC_MGMT_AUTHORIZATION_FN = function (ClientBinding: RPC_BINDING_HANDLE;
  1451.     RequestedMgmtOperation: Cardinal; var Status: RPC_STATUS): Integer; stdcall;
  1452.   {$EXTERNALSYM RPC_MGMT_AUTHORIZATION_FN}
  1453.   TRpcMgmtAuthorizationFn = RPC_MGMT_AUTHORIZATION_FN;
  1455. const
  1456.   RPC_C_MGMT_INQ_IF_IDS         = 0;
  1457.   {$EXTERNALSYM RPC_C_MGMT_INQ_IF_IDS}
  1458.   RPC_C_MGMT_INQ_PRINC_NAME     = 1;
  1459.   {$EXTERNALSYM RPC_C_MGMT_INQ_PRINC_NAME}
  1460.   RPC_C_MGMT_INQ_STATS          = 2;
  1461.   {$EXTERNALSYM RPC_C_MGMT_INQ_STATS}
  1462.   RPC_C_MGMT_IS_SERVER_LISTEN   = 3;
  1463.   {$EXTERNALSYM RPC_C_MGMT_IS_SERVER_LISTEN}
  1464.   RPC_C_MGMT_STOP_SERVER_LISTEN = 4;
  1465.   {$EXTERNALSYM RPC_C_MGMT_STOP_SERVER_LISTEN}
  1467. function RpcMgmtSetAuthorizationFn(AuthorizationFn: RPC_MGMT_AUTHORIZATION_FN): RPC_STATUS; stdcall;
  1468. {$EXTERNALSYM RpcMgmtSetAuthorizationFn}
  1470. const
  1471.   RPC_C_PARM_MAX_PACKET_LENGTH = 1;
  1472.   {$EXTERNALSYM RPC_C_PARM_MAX_PACKET_LENGTH}
  1473.   RPC_C_PARM_BUFFER_LENGTH     = 2;
  1474.   {$EXTERNALSYM RPC_C_PARM_BUFFER_LENGTH}
  1476.   RPC_IF_AUTOLISTEN              = $0001;
  1477.   {$EXTERNALSYM RPC_IF_AUTOLISTEN}
  1478.   RPC_IF_OLE                     = $0002;
  1479.   {$EXTERNALSYM RPC_IF_OLE}
  1480.   RPC_IF_ALLOW_UNKNOWN_AUTHORITY = $0004;
  1481.   {$EXTERNALSYM RPC_IF_ALLOW_UNKNOWN_AUTHORITY}
  1482.   RPC_IF_ALLOW_SECURE_ONLY       = $0008;
  1483.   {$EXTERNALSYM RPC_IF_ALLOW_SECURE_ONLY}
  1484.   RPC_IF_ALLOW_CALLBACKS_WITH_NO_AUTH = $0010;
  1485.   {$EXTERNALSYM RPC_IF_ALLOW_CALLBACKS_WITH_NO_AUTH}
  1487. implementation
  1489. const
  1490.   rpclib = 'rpcrt4.dll';
  1493. {$IFDEF DYNAMIC_LINK}
  1494. var
  1495.   _RpcBindingCopy: Pointer;
  1497. function RpcBindingCopy;
  1498. begin
  1499.   GetProcedureAddress(_RpcBindingCopy, rpclib, 'RpcBindingCopy');
  1500.   asm
  1501.     mov esp, ebp
  1502.     pop ebp
  1503.     jmp [_RpcBindingCopy]
  1504.   end;
  1505. end;
  1506. {$ELSE}
  1507. function RpcBindingCopy; external rpclib name 'RpcBindingCopy';
  1508. {$ENDIF DYNAMIC_LINK}
  1510. {$IFDEF DYNAMIC_LINK}
  1511. var
  1512.   _RpcBindingFree: Pointer;
  1514. function RpcBindingFree;
  1515. begin
  1516.   GetProcedureAddress(_RpcBindingFree, rpclib, 'RpcBindingFree');
  1517.   asm
  1518.     mov esp, ebp
  1519.     pop ebp
  1520.     jmp [_RpcBindingFree]
  1521.   end;
  1522. end;
  1523. {$ELSE}
  1524. function RpcBindingFree; external rpclib name 'RpcBindingFree';
  1525. {$ENDIF DYNAMIC_LINK}
  1527. {$IFDEF DYNAMIC_LINK}
  1528. var
  1529.   _RpcBindingSetOption: Pointer;
  1531. function RpcBindingSetOption;
  1532. begin
  1533.   GetProcedureAddress(_RpcBindingSetOption, rpclib, 'RpcBindingSetOption');
  1534.   asm
  1535.     mov esp, ebp
  1536.     pop ebp
  1537.     jmp [_RpcBindingSetOption]
  1538.   end;
  1539. end;
  1540. {$ELSE}
  1541. function RpcBindingSetOption; external rpclib name 'RpcBindingSetOption';
  1542. {$ENDIF DYNAMIC_LINK}
  1544. {$IFDEF DYNAMIC_LINK}
  1545. var
  1546.   _RpcBindingInqOption: Pointer;
  1548. function RpcBindingInqOption;
  1549. begin
  1550.   GetProcedureAddress(_RpcBindingInqOption, rpclib, 'RpcBindingInqOption');
  1551.   asm
  1552.     mov esp, ebp
  1553.     pop ebp
  1554.     jmp [_RpcBindingInqOption]
  1555.   end;
  1556. end;
  1557. {$ELSE}
  1558. function RpcBindingInqOption; external rpclib name 'RpcBindingInqOption';
  1559. {$ENDIF DYNAMIC_LINK}
  1561. {$IFDEF DYNAMIC_LINK}
  1562. var
  1563.   _RpcBindingFromStringBindingA: Pointer;
  1565. function RpcBindingFromStringBindingA;
  1566. begin
  1567.   GetProcedureAddress(_RpcBindingFromStringBindingA, rpclib, 'RpcBindingFromStringBindingA');
  1568.   asm
  1569.     mov esp, ebp
  1570.     pop ebp
  1571.     jmp [_RpcBindingFromStringBindingA]
  1572.   end;
  1573. end;
  1574. {$ELSE}
  1575. function RpcBindingFromStringBindingA; external rpclib name 'RpcBindingFromStringBindingA';
  1576. {$ENDIF DYNAMIC_LINK}
  1578. {$IFDEF DYNAMIC_LINK}
  1579. var
  1580.   _RpcBindingFromStringBindingW: Pointer;
  1582. function RpcBindingFromStringBindingW;
  1583. begin
  1584.   GetProcedureAddress(_RpcBindingFromStringBindingW, rpclib, 'RpcBindingFromStringBindingW');
  1585.   asm
  1586.     mov esp, ebp
  1587.     pop ebp
  1588.     jmp [_RpcBindingFromStringBindingW]
  1589.   end;
  1590. end;
  1591. {$ELSE}
  1592. function RpcBindingFromStringBindingW; external rpclib name 'RpcBindingFromStringBindingW';
  1593. {$ENDIF DYNAMIC_LINK}
  1594. {$IFDEF UNICODE}
  1596. {$IFDEF DYNAMIC_LINK}
  1597. var
  1598.   _RpcBindingFromStringBinding: Pointer;
  1600. function RpcBindingFromStringBinding;
  1601. begin
  1602.   GetProcedureAddress(_RpcBindingFromStringBinding, rpclib, 'RpcBindingFromStringBindingW');
  1603.   asm
  1604.     mov esp, ebp
  1605.     pop ebp
  1606.     jmp [_RpcBindingFromStringBinding]
  1607.   end;
  1608. end;
  1609. {$ELSE}
  1610. function RpcBindingFromStringBinding; external rpclib name 'RpcBindingFromStringBindingW';
  1611. {$ENDIF DYNAMIC_LINK}
  1612. {$ELSE}
  1614. {$IFDEF DYNAMIC_LINK}
  1615. var
  1616.   _RpcBindingFromStringBinding: Pointer;
  1618. function RpcBindingFromStringBinding;
  1619. begin
  1620.   GetProcedureAddress(_RpcBindingFromStringBinding, rpclib, 'RpcBindingFromStringBindingA');
  1621.   asm
  1622.     mov esp, ebp
  1623.     pop ebp
  1624.     jmp [_RpcBindingFromStringBinding]
  1625.   end;
  1626. end;
  1627. {$ELSE}
  1628. function RpcBindingFromStringBinding; external rpclib name 'RpcBindingFromStringBindingA';
  1629. {$ENDIF DYNAMIC_LINK}
  1630. {$ENDIF}
  1632. {$IFDEF DYNAMIC_LINK}
  1633. var
  1634.   _RpcSsGetContextBinding: Pointer;
  1636. function RpcSsGetContextBinding;
  1637. begin
  1638.   GetProcedureAddress(_RpcSsGetContextBinding, rpclib, 'RpcSsGetContextBinding');
  1639.   asm
  1640.     mov esp, ebp
  1641.     pop ebp
  1642.     jmp [_RpcSsGetContextBinding]
  1643.   end;
  1644. end;
  1645. {$ELSE}
  1646. function RpcSsGetContextBinding; external rpclib name 'RpcSsGetContextBinding';
  1647. {$ENDIF DYNAMIC_LINK}
  1649. {$IFDEF DYNAMIC_LINK}
  1650. var
  1651.   _RpcBindingInqObject: Pointer;
  1653. function RpcBindingInqObject;
  1654. begin
  1655.   GetProcedureAddress(_RpcBindingInqObject, rpclib, 'RpcBindingInqObject');
  1656.   asm
  1657.     mov esp, ebp
  1658.     pop ebp
  1659.     jmp [_RpcBindingInqObject]
  1660.   end;
  1661. end;
  1662. {$ELSE}
  1663. function RpcBindingInqObject; external rpclib name 'RpcBindingInqObject';
  1664. {$ENDIF DYNAMIC_LINK}
  1666. {$IFDEF DYNAMIC_LINK}
  1667. var
  1668.   _RpcBindingReset: Pointer;
  1670. function RpcBindingReset;
  1671. begin
  1672.   GetProcedureAddress(_RpcBindingReset, rpclib, 'RpcBindingReset');
  1673.   asm
  1674.     mov esp, ebp
  1675.     pop ebp
  1676.     jmp [_RpcBindingReset]
  1677.   end;
  1678. end;
  1679. {$ELSE}
  1680. function RpcBindingReset; external rpclib name 'RpcBindingReset';
  1681. {$ENDIF DYNAMIC_LINK}
  1683. {$IFDEF DYNAMIC_LINK}
  1684. var
  1685.   _RpcBindingSetObject: Pointer;
  1687. function RpcBindingSetObject;
  1688. begin
  1689.   GetProcedureAddress(_RpcBindingSetObject, rpclib, 'RpcBindingSetObject');
  1690.   asm
  1691.     mov esp, ebp
  1692.     pop ebp
  1693.     jmp [_RpcBindingSetObject]
  1694.   end;
  1695. end;
  1696. {$ELSE}
  1697. function RpcBindingSetObject; external rpclib name 'RpcBindingSetObject';
  1698. {$ENDIF DYNAMIC_LINK}
  1700. {$IFDEF DYNAMIC_LINK}
  1701. var
  1702.   _RpcMgmtInqDefaultProtectLevel: Pointer;
  1704. function RpcMgmtInqDefaultProtectLevel;
  1705. begin
  1706.   GetProcedureAddress(_RpcMgmtInqDefaultProtectLevel, rpclib, 'RpcMgmtInqDefaultProtectLevel');
  1707.   asm
  1708.     mov esp, ebp
  1709.     pop ebp
  1710.     jmp [_RpcMgmtInqDefaultProtectLevel]
  1711.   end;
  1712. end;
  1713. {$ELSE}
  1714. function RpcMgmtInqDefaultProtectLevel; external rpclib name 'RpcMgmtInqDefaultProtectLevel';
  1715. {$ENDIF DYNAMIC_LINK}
  1717. {$IFDEF DYNAMIC_LINK}
  1718. var
  1719.   _RpcBindingToStringBindingA: Pointer;
  1721. function RpcBindingToStringBindingA;
  1722. begin
  1723.   GetProcedureAddress(_RpcBindingToStringBindingA, rpclib, 'RpcBindingToStringBindingA');
  1724.   asm
  1725.     mov esp, ebp
  1726.     pop ebp
  1727.     jmp [_RpcBindingToStringBindingA]
  1728.   end;
  1729. end;
  1730. {$ELSE}
  1731. function RpcBindingToStringBindingA; external rpclib name 'RpcBindingToStringBindingA';
  1732. {$ENDIF DYNAMIC_LINK}
  1734. {$IFDEF DYNAMIC_LINK}
  1735. var
  1736.   _RpcBindingToStringBindingW: Pointer;
  1738. function RpcBindingToStringBindingW;
  1739. begin
  1740.   GetProcedureAddress(_RpcBindingToStringBindingW, rpclib, 'RpcBindingToStringBindingW');
  1741.   asm
  1742.     mov esp, ebp
  1743.     pop ebp
  1744.     jmp [_RpcBindingToStringBindingW]
  1745.   end;
  1746. end;
  1747. {$ELSE}
  1748. function RpcBindingToStringBindingW; external rpclib name 'RpcBindingToStringBindingW';
  1749. {$ENDIF DYNAMIC_LINK}
  1750. {$IFDEF UNICODE}
  1752. {$IFDEF DYNAMIC_LINK}
  1753. var
  1754.   _RpcBindingToStringBinding: Pointer;
  1756. function RpcBindingToStringBinding;
  1757. begin
  1758.   GetProcedureAddress(_RpcBindingToStringBinding, rpclib, 'RpcBindingToStringBindingW');
  1759.   asm
  1760.     mov esp, ebp
  1761.     pop ebp
  1762.     jmp [_RpcBindingToStringBinding]
  1763.   end;
  1764. end;
  1765. {$ELSE}
  1766. function RpcBindingToStringBinding; external rpclib name 'RpcBindingToStringBindingW';
  1767. {$ENDIF DYNAMIC_LINK}
  1768. {$ELSE}
  1770. {$IFDEF DYNAMIC_LINK}
  1771. var
  1772.   _RpcBindingToStringBinding: Pointer;
  1774. function RpcBindingToStringBinding;
  1775. begin
  1776.   GetProcedureAddress(_RpcBindingToStringBinding, rpclib, 'RpcBindingToStringBindingA');
  1777.   asm
  1778.     mov esp, ebp
  1779.     pop ebp
  1780.     jmp [_RpcBindingToStringBinding]
  1781.   end;
  1782. end;
  1783. {$ELSE}
  1784. function RpcBindingToStringBinding; external rpclib name 'RpcBindingToStringBindingA';
  1785. {$ENDIF DYNAMIC_LINK}
  1786. {$ENDIF}
  1788. {$IFDEF DYNAMIC_LINK}
  1789. var
  1790.   _RpcBindingVectorFree: Pointer;
  1792. function RpcBindingVectorFree;
  1793. begin
  1794.   GetProcedureAddress(_RpcBindingVectorFree, rpclib, 'RpcBindingVectorFree');
  1795.   asm
  1796.     mov esp, ebp
  1797.     pop ebp
  1798.     jmp [_RpcBindingVectorFree]
  1799.   end;
  1800. end;
  1801. {$ELSE}
  1802. function RpcBindingVectorFree; external rpclib name 'RpcBindingVectorFree';
  1803. {$ENDIF DYNAMIC_LINK}
  1805. {$IFDEF DYNAMIC_LINK}
  1806. var
  1807.   _RpcStringBindingComposeA: Pointer;
  1809. function RpcStringBindingComposeA;
  1810. begin
  1811.   GetProcedureAddress(_RpcStringBindingComposeA, rpclib, 'RpcStringBindingComposeA');
  1812.   asm
  1813.     mov esp, ebp
  1814.     pop ebp
  1815.     jmp [_RpcStringBindingComposeA]
  1816.   end;
  1817. end;
  1818. {$ELSE}
  1819. function RpcStringBindingComposeA; external rpclib name 'RpcStringBindingComposeA';
  1820. {$ENDIF DYNAMIC_LINK}
  1822. {$IFDEF DYNAMIC_LINK}
  1823. var
  1824.   _RpcStringBindingComposeW: Pointer;
  1826. function RpcStringBindingComposeW;
  1827. begin
  1828.   GetProcedureAddress(_RpcStringBindingComposeW, rpclib, 'RpcStringBindingComposeW');
  1829.   asm
  1830.     mov esp, ebp
  1831.     pop ebp
  1832.     jmp [_RpcStringBindingComposeW]
  1833.   end;
  1834. end;
  1835. {$ELSE}
  1836. function RpcStringBindingComposeW; external rpclib name 'RpcStringBindingComposeW';
  1837. {$ENDIF DYNAMIC_LINK}
  1838. {$IFDEF UNICODE}
  1840. {$IFDEF DYNAMIC_LINK}
  1841. var
  1842.   _RpcStringBindingCompose: Pointer;
  1844. function RpcStringBindingCompose;
  1845. begin
  1846.   GetProcedureAddress(_RpcStringBindingCompose, rpclib, 'RpcStringBindingComposeW');
  1847.   asm
  1848.     mov esp, ebp
  1849.     pop ebp
  1850.     jmp [_RpcStringBindingCompose]
  1851.   end;
  1852. end;
  1853. {$ELSE}
  1854. function RpcStringBindingCompose; external rpclib name 'RpcStringBindingComposeW';
  1855. {$ENDIF DYNAMIC_LINK}
  1856. {$ELSE}
  1858. {$IFDEF DYNAMIC_LINK}
  1859. var
  1860.   _RpcStringBindingCompose: Pointer;
  1862. function RpcStringBindingCompose;
  1863. begin
  1864.   GetProcedureAddress(_RpcStringBindingCompose, rpclib, 'RpcStringBindingComposeA');
  1865.   asm
  1866.     mov esp, ebp
  1867.     pop ebp
  1868.     jmp [_RpcStringBindingCompose]
  1869.   end;
  1870. end;
  1871. {$ELSE}
  1872. function RpcStringBindingCompose; external rpclib name 'RpcStringBindingComposeA';
  1873. {$ENDIF DYNAMIC_LINK}
  1874. {$ENDIF}
  1876. {$IFDEF DYNAMIC_LINK}
  1877. var
  1878.   _RpcStringBindingParseA: Pointer;
  1880. function RpcStringBindingParseA;
  1881. begin
  1882.   GetProcedureAddress(_RpcStringBindingParseA, rpclib, 'RpcStringBindingParseA');
  1883.   asm
  1884.     mov esp, ebp
  1885.     pop ebp
  1886.     jmp [_RpcStringBindingParseA]
  1887.   end;
  1888. end;
  1889. {$ELSE}
  1890. function RpcStringBindingParseA; external rpclib name 'RpcStringBindingParseA';
  1891. {$ENDIF DYNAMIC_LINK}
  1893. {$IFDEF DYNAMIC_LINK}
  1894. var
  1895.   _RpcStringBindingParseW: Pointer;
  1897. function RpcStringBindingParseW;
  1898. begin
  1899.   GetProcedureAddress(_RpcStringBindingParseW, rpclib, 'RpcStringBindingParseW');
  1900.   asm
  1901.     mov esp, ebp
  1902.     pop ebp
  1903.     jmp [_RpcStringBindingParseW]
  1904.   end;
  1905. end;
  1906. {$ELSE}
  1907. function RpcStringBindingParseW; external rpclib name 'RpcStringBindingParseW';
  1908. {$ENDIF DYNAMIC_LINK}
  1909. {$IFDEF UNICODE}
  1911. {$IFDEF DYNAMIC_LINK}
  1912. var
  1913.   _RpcStringBindingParse: Pointer;
  1915. function RpcStringBindingParse;
  1916. begin
  1917.   GetProcedureAddress(_RpcStringBindingParse, rpclib, 'RpcStringBindingParseW');
  1918.   asm
  1919.     mov esp, ebp
  1920.     pop ebp
  1921.     jmp [_RpcStringBindingParse]
  1922.   end;
  1923. end;
  1924. {$ELSE}
  1925. function RpcStringBindingParse; external rpclib name 'RpcStringBindingParseW';
  1926. {$ENDIF DYNAMIC_LINK}
  1927. {$ELSE}
  1929. {$IFDEF DYNAMIC_LINK}
  1930. var
  1931.   _RpcStringBindingParse: Pointer;
  1933. function RpcStringBindingParse;
  1934. begin
  1935.   GetProcedureAddress(_RpcStringBindingParse, rpclib, 'RpcStringBindingParseA');
  1936.   asm
  1937.     mov esp, ebp
  1938.     pop ebp
  1939.     jmp [_RpcStringBindingParse]
  1940.   end;
  1941. end;
  1942. {$ELSE}
  1943. function RpcStringBindingParse; external rpclib name 'RpcStringBindingParseA';
  1944. {$ENDIF DYNAMIC_LINK}
  1945. {$ENDIF}
  1947. {$IFDEF DYNAMIC_LINK}
  1948. var
  1949.   _RpcStringFreeA: Pointer;
  1951. function RpcStringFreeA;
  1952. begin
  1953.   GetProcedureAddress(_RpcStringFreeA, rpclib, 'RpcStringFreeA');
  1954.   asm
  1955.     mov esp, ebp
  1956.     pop ebp
  1957.     jmp [_RpcStringFreeA]
  1958.   end;
  1959. end;
  1960. {$ELSE}
  1961. function RpcStringFreeA; external rpclib name 'RpcStringFreeA';
  1962. {$ENDIF DYNAMIC_LINK}
  1964. {$IFDEF DYNAMIC_LINK}
  1965. var
  1966.   _RpcStringFreeW: Pointer;
  1968. function RpcStringFreeW;
  1969. begin
  1970.   GetProcedureAddress(_RpcStringFreeW, rpclib, 'RpcStringFreeW');
  1971.   asm
  1972.     mov esp, ebp
  1973.     pop ebp
  1974.     jmp [_RpcStringFreeW]
  1975.   end;
  1976. end;
  1977. {$ELSE}
  1978. function RpcStringFreeW; external rpclib name 'RpcStringFreeW';
  1979. {$ENDIF DYNAMIC_LINK}
  1980. {$IFDEF UNICODE}
  1982. {$IFDEF DYNAMIC_LINK}
  1983. var
  1984.   _RpcStringFree: Pointer;
  1986. function RpcStringFree;
  1987. begin
  1988.   GetProcedureAddress(_RpcStringFree, rpclib, 'RpcStringFreeW');
  1989.   asm
  1990.     mov esp, ebp
  1991.     pop ebp
  1992.     jmp [_RpcStringFree]
  1993.   end;
  1994. end;
  1995. {$ELSE}
  1996. function RpcStringFree; external rpclib name 'RpcStringFreeW';
  1997. {$ENDIF DYNAMIC_LINK}
  1998. {$ELSE}
  2000. {$IFDEF DYNAMIC_LINK}
  2001. var
  2002.   _RpcStringFree: Pointer;
  2004. function RpcStringFree;
  2005. begin
  2006.   GetProcedureAddress(_RpcStringFree, rpclib, 'RpcStringFreeA');
  2007.   asm
  2008.     mov esp, ebp
  2009.     pop ebp
  2010.     jmp [_RpcStringFree]
  2011.   end;
  2012. end;
  2013. {$ELSE}
  2014. function RpcStringFree; external rpclib name 'RpcStringFreeA';
  2015. {$ENDIF DYNAMIC_LINK}
  2016. {$ENDIF}
  2018. {$IFDEF DYNAMIC_LINK}
  2019. var
  2020.   _RpcIfInqId: Pointer;
  2022. function RpcIfInqId;
  2023. begin
  2024.   GetProcedureAddress(_RpcIfInqId, rpclib, 'RpcIfInqId');
  2025.   asm
  2026.     mov esp, ebp
  2027.     pop ebp
  2028.     jmp [_RpcIfInqId]
  2029.   end;
  2030. end;
  2031. {$ELSE}
  2032. function RpcIfInqId; external rpclib name 'RpcIfInqId';
  2033. {$ENDIF DYNAMIC_LINK}
  2035. {$IFDEF DYNAMIC_LINK}
  2036. var
  2037.   _RpcNetworkIsProtseqValidA: Pointer;
  2039. function RpcNetworkIsProtseqValidA;
  2040. begin
  2041.   GetProcedureAddress(_RpcNetworkIsProtseqValidA, rpclib, 'RpcNetworkIsProtseqValidA');
  2042.   asm
  2043.     mov esp, ebp
  2044.     pop ebp
  2045.     jmp [_RpcNetworkIsProtseqValidA]
  2046.   end;
  2047. end;
  2048. {$ELSE}
  2049. function RpcNetworkIsProtseqValidA; external rpclib name 'RpcNetworkIsProtseqValidA';
  2050. {$ENDIF DYNAMIC_LINK}
  2052. {$IFDEF DYNAMIC_LINK}
  2053. var
  2054.   _RpcNetworkIsProtseqValidW: Pointer;
  2056. function RpcNetworkIsProtseqValidW;
  2057. begin
  2058.   GetProcedureAddress(_RpcNetworkIsProtseqValidW, rpclib, 'RpcNetworkIsProtseqValidW');
  2059.   asm
  2060.     mov esp, ebp
  2061.     pop ebp
  2062.     jmp [_RpcNetworkIsProtseqValidW]
  2063.   end;
  2064. end;
  2065. {$ELSE}
  2066. function RpcNetworkIsProtseqValidW; external rpclib name 'RpcNetworkIsProtseqValidW';
  2067. {$ENDIF DYNAMIC_LINK}
  2069. {$IFDEF DYNAMIC_LINK}
  2070. var
  2071.   _RpcMgmtInqComTimeout: Pointer;
  2073. function RpcMgmtInqComTimeout;
  2074. begin
  2075.   GetProcedureAddress(_RpcMgmtInqComTimeout, rpclib, 'RpcMgmtInqComTimeout');
  2076.   asm
  2077.     mov esp, ebp
  2078.     pop ebp
  2079.     jmp [_RpcMgmtInqComTimeout]
  2080.   end;
  2081. end;
  2082. {$ELSE}
  2083. function RpcMgmtInqComTimeout; external rpclib name 'RpcMgmtInqComTimeout';
  2084. {$ENDIF DYNAMIC_LINK}
  2086. {$IFDEF DYNAMIC_LINK}
  2087. var
  2088.   _RpcMgmtSetComTimeout: Pointer;
  2090. function RpcMgmtSetComTimeout;
  2091. begin
  2092.   GetProcedureAddress(_RpcMgmtSetComTimeout, rpclib, 'RpcMgmtSetComTimeout');
  2093.   asm
  2094.     mov esp, ebp
  2095.     pop ebp
  2096.     jmp [_RpcMgmtSetComTimeout]
  2097.   end;
  2098. end;
  2099. {$ELSE}
  2100. function RpcMgmtSetComTimeout; external rpclib name 'RpcMgmtSetComTimeout';
  2101. {$ENDIF DYNAMIC_LINK}
  2103. {$IFDEF DYNAMIC_LINK}
  2104. var
  2105.   _RpcMgmtSetCancelTimeout: Pointer;
  2107. function RpcMgmtSetCancelTimeout;
  2108. begin
  2109.   GetProcedureAddress(_RpcMgmtSetCancelTimeout, rpclib, 'RpcMgmtSetCancelTimeout');
  2110.   asm
  2111.     mov esp, ebp
  2112.     pop ebp
  2113.     jmp [_RpcMgmtSetCancelTimeout]
  2114.   end;
  2115. end;
  2116. {$ELSE}
  2117. function RpcMgmtSetCancelTimeout; external rpclib name 'RpcMgmtSetCancelTimeout';
  2118. {$ENDIF DYNAMIC_LINK}
  2120. {$IFDEF DYNAMIC_LINK}
  2121. var
  2122.   _RpcNetworkInqProtseqsA: Pointer;
  2124. function RpcNetworkInqProtseqsA;
  2125. begin
  2126.   GetProcedureAddress(_RpcNetworkInqProtseqsA, rpclib, 'RpcNetworkInqProtseqsA');
  2127.   asm
  2128.     mov esp, ebp
  2129.     pop ebp
  2130.     jmp [_RpcNetworkInqProtseqsA]
  2131.   end;
  2132. end;
  2133. {$ELSE}
  2134. function RpcNetworkInqProtseqsA; external rpclib name 'RpcNetworkInqProtseqsA';
  2135. {$ENDIF DYNAMIC_LINK}
  2137. {$IFDEF DYNAMIC_LINK}
  2138. var
  2139.   _RpcNetworkInqProtseqsW: Pointer;
  2141. function RpcNetworkInqProtseqsW;
  2142. begin
  2143.   GetProcedureAddress(_RpcNetworkInqProtseqsW, rpclib, 'RpcNetworkInqProtseqsW');
  2144.   asm
  2145.     mov esp, ebp
  2146.     pop ebp
  2147.     jmp [_RpcNetworkInqProtseqsW]
  2148.   end;
  2149. end;
  2150. {$ELSE}
  2151. function RpcNetworkInqProtseqsW; external rpclib name 'RpcNetworkInqProtseqsW';
  2152. {$ENDIF DYNAMIC_LINK}
  2153. {$IFDEF UNICODE}
  2155. {$IFDEF DYNAMIC_LINK}
  2156. var
  2157.   _RpcNetworkInqProtseqs: Pointer;
  2159. function RpcNetworkInqProtseqs;
  2160. begin
  2161.   GetProcedureAddress(_RpcNetworkInqProtseqs, rpclib, 'RpcNetworkInqProtseqsW');
  2162.   asm
  2163.     mov esp, ebp
  2164.     pop ebp
  2165.     jmp [_RpcNetworkInqProtseqs]
  2166.   end;
  2167. end;
  2168. {$ELSE}
  2169. function RpcNetworkInqProtseqs; external rpclib name 'RpcNetworkInqProtseqsW';
  2170. {$ENDIF DYNAMIC_LINK}
  2171. {$ELSE}
  2173. {$IFDEF DYNAMIC_LINK}
  2174. var
  2175.   _RpcNetworkInqProtseqs: Pointer;
  2177. function RpcNetworkInqProtseqs;
  2178. begin
  2179.   GetProcedureAddress(_RpcNetworkInqProtseqs, rpclib, 'RpcNetworkInqProtseqsA');
  2180.   asm
  2181.     mov esp, ebp
  2182.     pop ebp
  2183.     jmp [_RpcNetworkInqProtseqs]
  2184.   end;
  2185. end;
  2186. {$ELSE}
  2187. function RpcNetworkInqProtseqs; external rpclib name 'RpcNetworkInqProtseqsA';
  2188. {$ENDIF DYNAMIC_LINK}
  2189. {$ENDIF}
  2191. {$IFDEF DYNAMIC_LINK}
  2192. var
  2193.   _RpcObjectInqType: Pointer;
  2195. function RpcObjectInqType;
  2196. begin
  2197.   GetProcedureAddress(_RpcObjectInqType, rpclib, 'RpcObjectInqType');
  2198.   asm
  2199.     mov esp, ebp
  2200.     pop ebp
  2201.     jmp [_RpcObjectInqType]
  2202.   end;
  2203. end;
  2204. {$ELSE}
  2205. function RpcObjectInqType; external rpclib name 'RpcObjectInqType';
  2206. {$ENDIF DYNAMIC_LINK}
  2208. {$IFDEF DYNAMIC_LINK}
  2209. var
  2210.   _RpcObjectSetInqFn: Pointer;
  2212. function RpcObjectSetInqFn;
  2213. begin
  2214.   GetProcedureAddress(_RpcObjectSetInqFn, rpclib, 'RpcObjectSetInqFn');
  2215.   asm
  2216.     mov esp, ebp
  2217.     pop ebp
  2218.     jmp [_RpcObjectSetInqFn]
  2219.   end;
  2220. end;
  2221. {$ELSE}
  2222. function RpcObjectSetInqFn; external rpclib name 'RpcObjectSetInqFn';
  2223. {$ENDIF DYNAMIC_LINK}
  2225. {$IFDEF DYNAMIC_LINK}
  2226. var
  2227.   _RpcObjectSetType: Pointer;
  2229. function RpcObjectSetType;
  2230. begin
  2231.   GetProcedureAddress(_RpcObjectSetType, rpclib, 'RpcObjectSetType');
  2232.   asm
  2233.     mov esp, ebp
  2234.     pop ebp
  2235.     jmp [_RpcObjectSetType]
  2236.   end;
  2237. end;
  2238. {$ELSE}
  2239. function RpcObjectSetType; external rpclib name 'RpcObjectSetType';
  2240. {$ENDIF DYNAMIC_LINK}
  2242. {$IFDEF DYNAMIC_LINK}
  2243. var
  2244.   _RpcProtseqVectorFreeA: Pointer;
  2246. function RpcProtseqVectorFreeA;
  2247. begin
  2248.   GetProcedureAddress(_RpcProtseqVectorFreeA, rpclib, 'RpcProtseqVectorFreeA');
  2249.   asm
  2250.     mov esp, ebp
  2251.     pop ebp
  2252.     jmp [_RpcProtseqVectorFreeA]
  2253.   end;
  2254. end;
  2255. {$ELSE}
  2256. function RpcProtseqVectorFreeA; external rpclib name 'RpcProtseqVectorFreeA';
  2257. {$ENDIF DYNAMIC_LINK}
  2259. {$IFDEF DYNAMIC_LINK}
  2260. var
  2261.   _RpcProtseqVectorFreeW: Pointer;
  2263. function RpcProtseqVectorFreeW;
  2264. begin
  2265.   GetProcedureAddress(_RpcProtseqVectorFreeW, rpclib, 'RpcProtseqVectorFreeW');
  2266.   asm
  2267.     mov esp, ebp
  2268.     pop ebp
  2269.     jmp [_RpcProtseqVectorFreeW]
  2270.   end;
  2271. end;
  2272. {$ELSE}
  2273. function RpcProtseqVectorFreeW; external rpclib name 'RpcProtseqVectorFreeW';
  2274. {$ENDIF DYNAMIC_LINK}
  2275. {$IFDEF UNICODE}
  2277. {$IFDEF DYNAMIC_LINK}
  2278. var
  2279.   _RpcProtseqVectorFree: Pointer;
  2281. function RpcProtseqVectorFree;
  2282. begin
  2283.   GetProcedureAddress(_RpcProtseqVectorFree, rpclib, 'RpcProtseqVectorFreeW');
  2284.   asm
  2285.     mov esp, ebp
  2286.     pop ebp
  2287.     jmp [_RpcProtseqVectorFree]
  2288.   end;
  2289. end;
  2290. {$ELSE}
  2291. function RpcProtseqVectorFree; external rpclib name 'RpcProtseqVectorFreeW';
  2292. {$ENDIF DYNAMIC_LINK}
  2293. {$ELSE}
  2295. {$IFDEF DYNAMIC_LINK}
  2296. var
  2297.   _RpcProtseqVectorFree: Pointer;
  2299. function RpcProtseqVectorFree;
  2300. begin
  2301.   GetProcedureAddress(_RpcProtseqVectorFree, rpclib, 'RpcProtseqVectorFreeA');
  2302.   asm
  2303.     mov esp, ebp
  2304.     pop ebp
  2305.     jmp [_RpcProtseqVectorFree]
  2306.   end;
  2307. end;
  2308. {$ELSE}
  2309. function RpcProtseqVectorFree; external rpclib name 'RpcProtseqVectorFreeA';
  2310. {$ENDIF DYNAMIC_LINK}
  2311. {$ENDIF}
  2313. {$IFDEF DYNAMIC_LINK}
  2314. var
  2315.   _RpcServerInqBindings: Pointer;
  2317. function RpcServerInqBindings;
  2318. begin
  2319.   GetProcedureAddress(_RpcServerInqBindings, rpclib, 'RpcServerInqBindings');
  2320.   asm
  2321.     mov esp, ebp
  2322.     pop ebp
  2323.     jmp [_RpcServerInqBindings]
  2324.   end;
  2325. end;
  2326. {$ELSE}
  2327. function RpcServerInqBindings; external rpclib name 'RpcServerInqBindings';
  2328. {$ENDIF DYNAMIC_LINK}
  2330. {$IFDEF DYNAMIC_LINK}
  2331. var
  2332.   _RpcServerInqIf: Pointer;
  2334. function RpcServerInqIf;
  2335. begin
  2336.   GetProcedureAddress(_RpcServerInqIf, rpclib, 'RpcServerInqIf');
  2337.   asm
  2338.     mov esp, ebp
  2339.     pop ebp
  2340.     jmp [_RpcServerInqIf]
  2341.   end;
  2342. end;
  2343. {$ELSE}
  2344. function RpcServerInqIf; external rpclib name 'RpcServerInqIf';
  2345. {$ENDIF DYNAMIC_LINK}
  2347. {$IFDEF DYNAMIC_LINK}
  2348. var
  2349.   _RpcServerListen: Pointer;
  2351. function RpcServerListen;
  2352. begin
  2353.   GetProcedureAddress(_RpcServerListen, rpclib, 'RpcServerListen');
  2354.   asm
  2355.     mov esp, ebp
  2356.     pop ebp
  2357.     jmp [_RpcServerListen]
  2358.   end;
  2359. end;
  2360. {$ELSE}
  2361. function RpcServerListen; external rpclib name 'RpcServerListen';
  2362. {$ENDIF DYNAMIC_LINK}
  2364. {$IFDEF DYNAMIC_LINK}
  2365. var
  2366.   _RpcServerRegisterIf: Pointer;
  2368. function RpcServerRegisterIf;
  2369. begin
  2370.   GetProcedureAddress(_RpcServerRegisterIf, rpclib, 'RpcServerRegisterIf');
  2371.   asm
  2372.     mov esp, ebp
  2373.     pop ebp
  2374.     jmp [_RpcServerRegisterIf]
  2375.   end;
  2376. end;
  2377. {$ELSE}
  2378. function RpcServerRegisterIf; external rpclib name 'RpcServerRegisterIf';
  2379. {$ENDIF DYNAMIC_LINK}
  2381. {$IFDEF DYNAMIC_LINK}
  2382. var
  2383.   _RpcServerRegisterIfEx: Pointer;
  2385. function RpcServerRegisterIfEx;
  2386. begin
  2387.   GetProcedureAddress(_RpcServerRegisterIfEx, rpclib, 'RpcServerRegisterIfEx');
  2388.   asm
  2389.     mov esp, ebp
  2390.     pop ebp
  2391.     jmp [_RpcServerRegisterIfEx]
  2392.   end;
  2393. end;
  2394. {$ELSE}
  2395. function RpcServerRegisterIfEx; external rpclib name 'RpcServerRegisterIfEx';
  2396. {$ENDIF DYNAMIC_LINK}
  2398. {$IFDEF DYNAMIC_LINK}
  2399. var
  2400.   _RpcServerRegisterIf2: Pointer;
  2402. function RpcServerRegisterIf2;
  2403. begin
  2404.   GetProcedureAddress(_RpcServerRegisterIf2, rpclib, 'RpcServerRegisterIf2');
  2405.   asm
  2406.     mov esp, ebp
  2407.     pop ebp
  2408.     jmp [_RpcServerRegisterIf2]
  2409.   end;
  2410. end;
  2411. {$ELSE}
  2412. function RpcServerRegisterIf2; external rpclib name 'RpcServerRegisterIf2';
  2413. {$ENDIF DYNAMIC_LINK}
  2415. {$IFDEF DYNAMIC_LINK}
  2416. var
  2417.   _RpcServerUnregisterIf: Pointer;
  2419. function RpcServerUnregisterIf;
  2420. begin
  2421.   GetProcedureAddress(_RpcServerUnregisterIf, rpclib, 'RpcServerUnregisterIf');
  2422.   asm
  2423.     mov esp, ebp
  2424.     pop ebp
  2425.     jmp [_RpcServerUnregisterIf]
  2426.   end;
  2427. end;
  2428. {$ELSE}
  2429. function RpcServerUnregisterIf; external rpclib name 'RpcServerUnregisterIf';
  2430. {$ENDIF DYNAMIC_LINK}
  2432. {$IFDEF DYNAMIC_LINK}
  2433. var
  2434.   _RpcServerUnregisterIfEx: Pointer;
  2436. function RpcServerUnregisterIfEx;
  2437. begin
  2438.   GetProcedureAddress(_RpcServerUnregisterIfEx, rpclib, 'RpcServerUnregisterIfEx');
  2439.   asm
  2440.     mov esp, ebp
  2441.     pop ebp
  2442.     jmp [_RpcServerUnregisterIfEx]
  2443.   end;
  2444. end;
  2445. {$ELSE}
  2446. function RpcServerUnregisterIfEx; external rpclib name 'RpcServerUnregisterIfEx';
  2447. {$ENDIF DYNAMIC_LINK}
  2449. {$IFDEF DYNAMIC_LINK}
  2450. var
  2451.   _RpcServerUseAllProtseqs: Pointer;
  2453. function RpcServerUseAllProtseqs;
  2454. begin
  2455.   GetProcedureAddress(_RpcServerUseAllProtseqs, rpclib, 'RpcServerUseAllProtseqs');
  2456.   asm
  2457.     mov esp, ebp
  2458.     pop ebp
  2459.     jmp [_RpcServerUseAllProtseqs]
  2460.   end;
  2461. end;
  2462. {$ELSE}
  2463. function RpcServerUseAllProtseqs; external rpclib name 'RpcServerUseAllProtseqs';
  2464. {$ENDIF DYNAMIC_LINK}
  2466. {$IFDEF DYNAMIC_LINK}
  2467. var
  2468.   _RpcServerUseAllProtseqsEx: Pointer;
  2470. function RpcServerUseAllProtseqsEx;
  2471. begin
  2472.   GetProcedureAddress(_RpcServerUseAllProtseqsEx, rpclib, 'RpcServerUseAllProtseqsEx');
  2473.   asm
  2474.     mov esp, ebp
  2475.     pop ebp
  2476.     jmp [_RpcServerUseAllProtseqsEx]
  2477.   end;
  2478. end;
  2479. {$ELSE}
  2480. function RpcServerUseAllProtseqsEx; external rpclib name 'RpcServerUseAllProtseqsEx';
  2481. {$ENDIF DYNAMIC_LINK}
  2483. {$IFDEF DYNAMIC_LINK}
  2484. var
  2485.   _RpcServerUseAllProtseqsIf: Pointer;
  2487. function RpcServerUseAllProtseqsIf;
  2488. begin
  2489.   GetProcedureAddress(_RpcServerUseAllProtseqsIf, rpclib, 'RpcServerUseAllProtseqsIf');
  2490.   asm
  2491.     mov esp, ebp
  2492.     pop ebp
  2493.     jmp [_RpcServerUseAllProtseqsIf]
  2494.   end;
  2495. end;
  2496. {$ELSE}
  2497. function RpcServerUseAllProtseqsIf; external rpclib name 'RpcServerUseAllProtseqsIf';
  2498. {$ENDIF DYNAMIC_LINK}
  2500. {$IFDEF DYNAMIC_LINK}
  2501. var
  2502.   _RpcServerUseAllProtseqsIfEx: Pointer;
  2504. function RpcServerUseAllProtseqsIfEx;
  2505. begin
  2506.   GetProcedureAddress(_RpcServerUseAllProtseqsIfEx, rpclib, 'RpcServerUseAllProtseqsIfEx');
  2507.   asm
  2508.     mov esp, ebp
  2509.     pop ebp
  2510.     jmp [_RpcServerUseAllProtseqsIfEx]
  2511.   end;
  2512. end;
  2513. {$ELSE}
  2514. function RpcServerUseAllProtseqsIfEx; external rpclib name 'RpcServerUseAllProtseqsIfEx';
  2515. {$ENDIF DYNAMIC_LINK}
  2517. {$IFDEF DYNAMIC_LINK}
  2518. var
  2519.   _RpcServerUseProtseqA: Pointer;
  2521. function RpcServerUseProtseqA;
  2522. begin
  2523.   GetProcedureAddress(_RpcServerUseProtseqA, rpclib, 'RpcServerUseProtseqA');
  2524.   asm
  2525.     mov esp, ebp
  2526.     pop ebp
  2527.     jmp [_RpcServerUseProtseqA]
  2528.   end;
  2529. end;
  2530. {$ELSE}
  2531. function RpcServerUseProtseqA; external rpclib name 'RpcServerUseProtseqA';
  2532. {$ENDIF DYNAMIC_LINK}
  2534. {$IFDEF DYNAMIC_LINK}
  2535. var
  2536.   _RpcServerUseProtseqW: Pointer;
  2538. function RpcServerUseProtseqW;
  2539. begin
  2540.   GetProcedureAddress(_RpcServerUseProtseqW, rpclib, 'RpcServerUseProtseqW');
  2541.   asm
  2542.     mov esp, ebp
  2543.     pop ebp
  2544.     jmp [_RpcServerUseProtseqW]
  2545.   end;
  2546. end;
  2547. {$ELSE}
  2548. function RpcServerUseProtseqW; external rpclib name 'RpcServerUseProtseqW';
  2549. {$ENDIF DYNAMIC_LINK}
  2550. {$IFDEF UNICODE}
  2552. {$IFDEF DYNAMIC_LINK}
  2553. var
  2554.   _RpcServerUseProtseq: Pointer;
  2556. function RpcServerUseProtseq;
  2557. begin
  2558.   GetProcedureAddress(_RpcServerUseProtseq, rpclib, 'RpcServerUseProtseqW');
  2559.   asm
  2560.     mov esp, ebp
  2561.     pop ebp
  2562.     jmp [_RpcServerUseProtseq]
  2563.   end;
  2564. end;
  2565. {$ELSE}
  2566. function RpcServerUseProtseq; external rpclib name 'RpcServerUseProtseqW';
  2567. {$ENDIF DYNAMIC_LINK}
  2568. {$ELSE}
  2570. {$IFDEF DYNAMIC_LINK}
  2571. var
  2572.   _RpcServerUseProtseq: Pointer;
  2574. function RpcServerUseProtseq;
  2575. begin
  2576.   GetProcedureAddress(_RpcServerUseProtseq, rpclib, 'RpcServerUseProtseqA');
  2577.   asm
  2578.     mov esp, ebp
  2579.     pop ebp
  2580.     jmp [_RpcServerUseProtseq]
  2581.   end;
  2582. end;
  2583. {$ELSE}
  2584. function RpcServerUseProtseq; external rpclib name 'RpcServerUseProtseqA';
  2585. {$ENDIF DYNAMIC_LINK}
  2586. {$ENDIF}
  2588. {$IFDEF DYNAMIC_LINK}
  2589. var
  2590.   _RpcServerUseProtseqExA: Pointer;
  2592. function RpcServerUseProtseqExA;
  2593. begin
  2594.   GetProcedureAddress(_RpcServerUseProtseqExA, rpclib, 'RpcServerUseProtseqExA');
  2595.   asm
  2596.     mov esp, ebp
  2597.     pop ebp
  2598.     jmp [_RpcServerUseProtseqExA]
  2599.   end;
  2600. end;
  2601. {$ELSE}
  2602. function RpcServerUseProtseqExA; external rpclib name 'RpcServerUseProtseqExA';
  2603. {$ENDIF DYNAMIC_LINK}
  2605. {$IFDEF DYNAMIC_LINK}
  2606. var
  2607.   _RpcServerUseProtseqExW: Pointer;
  2609. function RpcServerUseProtseqExW;
  2610. begin
  2611.   GetProcedureAddress(_RpcServerUseProtseqExW, rpclib, 'RpcServerUseProtseqExW');
  2612.   asm
  2613.     mov esp, ebp
  2614.     pop ebp
  2615.     jmp [_RpcServerUseProtseqExW]
  2616.   end;
  2617. end;
  2618. {$ELSE}
  2619. function RpcServerUseProtseqExW; external rpclib name 'RpcServerUseProtseqExW';
  2620. {$ENDIF DYNAMIC_LINK}
  2621. {$IFDEF UNICODE}
  2623. {$IFDEF DYNAMIC_LINK}
  2624. var
  2625.   _RpcServerUseProtseqEx: Pointer;
  2627. function RpcServerUseProtseqEx;
  2628. begin
  2629.   GetProcedureAddress(_RpcServerUseProtseqEx, rpclib, 'RpcServerUseProtseqExW');
  2630.   asm
  2631.     mov esp, ebp
  2632.     pop ebp
  2633.     jmp [_RpcServerUseProtseqEx]
  2634.   end;
  2635. end;
  2636. {$ELSE}
  2637. function RpcServerUseProtseqEx; external rpclib name 'RpcServerUseProtseqExW';
  2638. {$ENDIF DYNAMIC_LINK}
  2639. {$ELSE}
  2641. {$IFDEF DYNAMIC_LINK}
  2642. var
  2643.   _RpcServerUseProtseqEx: Pointer;
  2645. function RpcServerUseProtseqEx;
  2646. begin
  2647.   GetProcedureAddress(_RpcServerUseProtseqEx, rpclib, 'RpcServerUseProtseqExA');
  2648.   asm
  2649.     mov esp, ebp
  2650.     pop ebp
  2651.     jmp [_RpcServerUseProtseqEx]
  2652.   end;
  2653. end;
  2654. {$ELSE}
  2655. function RpcServerUseProtseqEx; external rpclib name 'RpcServerUseProtseqExA';
  2656. {$ENDIF DYNAMIC_LINK}
  2657. {$ENDIF}
  2659. {$IFDEF DYNAMIC_LINK}
  2660. var
  2661.   _RpcServerUseProtseqEpA: Pointer;
  2663. function RpcServerUseProtseqEpA;
  2664. begin
  2665.   GetProcedureAddress(_RpcServerUseProtseqEpA, rpclib, 'RpcServerUseProtseqEpA');
  2666.   asm
  2667.     mov esp, ebp
  2668.     pop ebp
  2669.     jmp [_RpcServerUseProtseqEpA]
  2670.   end;
  2671. end;
  2672. {$ELSE}
  2673. function RpcServerUseProtseqEpA; external rpclib name 'RpcServerUseProtseqEpA';
  2674. {$ENDIF DYNAMIC_LINK}
  2676. {$IFDEF DYNAMIC_LINK}
  2677. var
  2678.   _RpcServerUseProtseqEpW: Pointer;
  2680. function RpcServerUseProtseqEpW;
  2681. begin
  2682.   GetProcedureAddress(_RpcServerUseProtseqEpW, rpclib, 'RpcServerUseProtseqEpW');
  2683.   asm
  2684.     mov esp, ebp
  2685.     pop ebp
  2686.     jmp [_RpcServerUseProtseqEpW]
  2687.   end;
  2688. end;
  2689. {$ELSE}
  2690. function RpcServerUseProtseqEpW; external rpclib name 'RpcServerUseProtseqEpW';
  2691. {$ENDIF DYNAMIC_LINK}
  2692. {$IFDEF UNICODE}
  2694. {$IFDEF DYNAMIC_LINK}
  2695. var
  2696.   _RpcServerUseProtseqEp: Pointer;
  2698. function RpcServerUseProtseqEp;
  2699. begin
  2700.   GetProcedureAddress(_RpcServerUseProtseqEp, rpclib, 'RpcServerUseProtseqEpW');
  2701.   asm
  2702.     mov esp, ebp
  2703.     pop ebp
  2704.     jmp [_RpcServerUseProtseqEp]
  2705.   end;
  2706. end;
  2707. {$ELSE}
  2708. function RpcServerUseProtseqEp; external rpclib name 'RpcServerUseProtseqEpW';
  2709. {$ENDIF DYNAMIC_LINK}
  2710. {$ELSE}
  2712. {$IFDEF DYNAMIC_LINK}
  2713. var
  2714.   _RpcServerUseProtseqEp: Pointer;
  2716. function RpcServerUseProtseqEp;
  2717. begin
  2718.   GetProcedureAddress(_RpcServerUseProtseqEp, rpclib, 'RpcServerUseProtseqEpA');
  2719.   asm
  2720.     mov esp, ebp
  2721.     pop ebp
  2722.     jmp [_RpcServerUseProtseqEp]
  2723.   end;
  2724. end;
  2725. {$ELSE}
  2726. function RpcServerUseProtseqEp; external rpclib name 'RpcServerUseProtseqEpA';
  2727. {$ENDIF DYNAMIC_LINK}
  2728. {$ENDIF}
  2730. {$IFDEF DYNAMIC_LINK}
  2731. var
  2732.   _RpcServerUseProtseqEpExA: Pointer;
  2734. function RpcServerUseProtseqEpExA;
  2735. begin
  2736.   GetProcedureAddress(_RpcServerUseProtseqEpExA, rpclib, 'RpcServerUseProtseqEpExA');
  2737.   asm
  2738.     mov esp, ebp
  2739.     pop ebp
  2740.     jmp [_RpcServerUseProtseqEpExA]
  2741.   end;
  2742. end;
  2743. {$ELSE}
  2744. function RpcServerUseProtseqEpExA; external rpclib name 'RpcServerUseProtseqEpExA';
  2745. {$ENDIF DYNAMIC_LINK}
  2747. {$IFDEF DYNAMIC_LINK}
  2748. var
  2749.   _RpcServerUseProtseqEpExW: Pointer;
  2751. function RpcServerUseProtseqEpExW;
  2752. begin
  2753.   GetProcedureAddress(_RpcServerUseProtseqEpExW, rpclib, 'RpcServerUseProtseqEpExW');
  2754.   asm
  2755.     mov esp, ebp
  2756.     pop ebp
  2757.     jmp [_RpcServerUseProtseqEpExW]
  2758.   end;
  2759. end;
  2760. {$ELSE}
  2761. function RpcServerUseProtseqEpExW; external rpclib name 'RpcServerUseProtseqEpExW';
  2762. {$ENDIF DYNAMIC_LINK}
  2763. {$IFDEF UNICODE}
  2765. {$IFDEF DYNAMIC_LINK}
  2766. var
  2767.   _RpcServerUseProtseqEpEx: Pointer;
  2769. function RpcServerUseProtseqEpEx;
  2770. begin
  2771.   GetProcedureAddress(_RpcServerUseProtseqEpEx, rpclib, 'RpcServerUseProtseqEpExW');
  2772.   asm
  2773.     mov esp, ebp
  2774.     pop ebp
  2775.     jmp [_RpcServerUseProtseqEpEx]
  2776.   end;
  2777. end;
  2778. {$ELSE}
  2779. function RpcServerUseProtseqEpEx; external rpclib name 'RpcServerUseProtseqEpExW';
  2780. {$ENDIF DYNAMIC_LINK}
  2781. {$ELSE}
  2783. {$IFDEF DYNAMIC_LINK}
  2784. var
  2785.   _RpcServerUseProtseqEpEx: Pointer;
  2787. function RpcServerUseProtseqEpEx;
  2788. begin
  2789.   GetProcedureAddress(_RpcServerUseProtseqEpEx, rpclib, 'RpcServerUseProtseqEpExA');
  2790.   asm
  2791.     mov esp, ebp
  2792.     pop ebp
  2793.     jmp [_RpcServerUseProtseqEpEx]
  2794.   end;
  2795. end;
  2796. {$ELSE}
  2797. function RpcServerUseProtseqEpEx; external rpclib name 'RpcServerUseProtseqEpExA';
  2798. {$ENDIF DYNAMIC_LINK}
  2799. {$ENDIF}
  2801. {$IFDEF DYNAMIC_LINK}
  2802. var
  2803.   _RpcServerUseProtseqIfA: Pointer;
  2805. function RpcServerUseProtseqIfA;
  2806. begin
  2807.   GetProcedureAddress(_RpcServerUseProtseqIfA, rpclib, 'RpcServerUseProtseqIfA');
  2808.   asm
  2809.     mov esp, ebp
  2810.     pop ebp
  2811.     jmp [_RpcServerUseProtseqIfA]
  2812.   end;
  2813. end;
  2814. {$ELSE}
  2815. function RpcServerUseProtseqIfA; external rpclib name 'RpcServerUseProtseqIfA';
  2816. {$ENDIF DYNAMIC_LINK}
  2818. {$IFDEF DYNAMIC_LINK}
  2819. var
  2820.   _RpcServerUseProtseqIfW: Pointer;
  2822. function RpcServerUseProtseqIfW;
  2823. begin
  2824.   GetProcedureAddress(_RpcServerUseProtseqIfW, rpclib, 'RpcServerUseProtseqIfW');
  2825.   asm
  2826.     mov esp, ebp
  2827.     pop ebp
  2828.     jmp [_RpcServerUseProtseqIfW]
  2829.   end;
  2830. end;
  2831. {$ELSE}
  2832. function RpcServerUseProtseqIfW; external rpclib name 'RpcServerUseProtseqIfW';
  2833. {$ENDIF DYNAMIC_LINK}
  2835. {$IFDEF DYNAMIC_LINK}
  2836. var
  2837.   _RpcServerUseProtseqIfExA: Pointer;
  2839. function RpcServerUseProtseqIfExA;
  2840. begin
  2841.   GetProcedureAddress(_RpcServerUseProtseqIfExA, rpclib, 'RpcServerUseProtseqIfExA');
  2842.   asm
  2843.     mov esp, ebp
  2844.     pop ebp
  2845.     jmp [_RpcServerUseProtseqIfExA]
  2846.   end;
  2847. end;
  2848. {$ELSE}
  2849. function RpcServerUseProtseqIfExA; external rpclib name 'RpcServerUseProtseqIfExA';
  2850. {$ENDIF DYNAMIC_LINK}
  2852. {$IFDEF DYNAMIC_LINK}
  2853. var
  2854.   _RpcServerUseProtseqIfExW: Pointer;
  2856. function RpcServerUseProtseqIfExW;
  2857. begin
  2858.   GetProcedureAddress(_RpcServerUseProtseqIfExW, rpclib, 'RpcServerUseProtseqIfExW');
  2859.   asm
  2860.     mov esp, ebp
  2861.     pop ebp
  2862.     jmp [_RpcServerUseProtseqIfExW]
  2863.   end;
  2864. end;
  2865. {$ELSE}
  2866. function RpcServerUseProtseqIfExW; external rpclib name 'RpcServerUseProtseqIfExW';
  2867. {$ENDIF DYNAMIC_LINK}
  2868. {$IFDEF UNICODE}
  2870. {$IFDEF DYNAMIC_LINK}
  2871. var
  2872.   _RpcServerUseProtseqIfEx: Pointer;
  2874. function RpcServerUseProtseqIfEx;
  2875. begin
  2876.   GetProcedureAddress(_RpcServerUseProtseqIfEx, rpclib, 'RpcServerUseProtseqIfExW');
  2877.   asm
  2878.     mov esp, ebp
  2879.     pop ebp
  2880.     jmp [_RpcServerUseProtseqIfEx]
  2881.   end;
  2882. end;
  2883. {$ELSE}
  2884. function RpcServerUseProtseqIfEx; external rpclib name 'RpcServerUseProtseqIfExW';
  2885. {$ENDIF DYNAMIC_LINK}
  2886. {$ELSE}
  2888. {$IFDEF DYNAMIC_LINK}
  2889. var
  2890.   _RpcServerUseProtseqIfEx: Pointer;
  2892. function RpcServerUseProtseqIfEx;
  2893. begin
  2894.   GetProcedureAddress(_RpcServerUseProtseqIfEx, rpclib, 'RpcServerUseProtseqIfExA');
  2895.   asm
  2896.     mov esp, ebp
  2897.     pop ebp
  2898.     jmp [_RpcServerUseProtseqIfEx]
  2899.   end;
  2900. end;
  2901. {$ELSE}
  2902. function RpcServerUseProtseqIfEx; external rpclib name 'RpcServerUseProtseqIfExA';
  2903. {$ENDIF DYNAMIC_LINK}
  2904. {$ENDIF}
  2906. {$IFDEF DYNAMIC_LINK}
  2907. var
  2908.   _RpcServerYield: Pointer;
  2910. procedure RpcServerYield;
  2911. begin
  2912.   GetProcedureAddress(_RpcServerYield, rpclib, 'RpcServerYield');
  2913.   asm
  2914.     mov esp, ebp
  2915.     pop ebp
  2916.     jmp [_RpcServerYield]
  2917.   end;
  2918. end;
  2919. {$ELSE}
  2920. procedure RpcServerYield; external rpclib name 'RpcServerYield';
  2921. {$ENDIF DYNAMIC_LINK}
  2923. {$IFDEF DYNAMIC_LINK}
  2924. var
  2925.   _RpcMgmtStatsVectorFree: Pointer;
  2927. function RpcMgmtStatsVectorFree;
  2928. begin
  2929.   GetProcedureAddress(_RpcMgmtStatsVectorFree, rpclib, 'RpcMgmtStatsVectorFree');
  2930.   asm
  2931.     mov esp, ebp
  2932.     pop ebp
  2933.     jmp [_RpcMgmtStatsVectorFree]
  2934.   end;
  2935. end;
  2936. {$ELSE}
  2937. function RpcMgmtStatsVectorFree; external rpclib name 'RpcMgmtStatsVectorFree';
  2938. {$ENDIF DYNAMIC_LINK}
  2940. {$IFDEF DYNAMIC_LINK}
  2941. var
  2942.   _RpcMgmtInqStats: Pointer;
  2944. function RpcMgmtInqStats;
  2945. begin
  2946.   GetProcedureAddress(_RpcMgmtInqStats, rpclib, 'RpcMgmtInqStats');
  2947.   asm
  2948.     mov esp, ebp
  2949.     pop ebp
  2950.     jmp [_RpcMgmtInqStats]
  2951.   end;
  2952. end;
  2953. {$ELSE}
  2954. function RpcMgmtInqStats; external rpclib name 'RpcMgmtInqStats';
  2955. {$ENDIF DYNAMIC_LINK}
  2957. {$IFDEF DYNAMIC_LINK}
  2958. var
  2959.   _RpcMgmtIsServerListening: Pointer;
  2961. function RpcMgmtIsServerListening;
  2962. begin
  2963.   GetProcedureAddress(_RpcMgmtIsServerListening, rpclib, 'RpcMgmtIsServerListening');
  2964.   asm
  2965.     mov esp, ebp
  2966.     pop ebp
  2967.     jmp [_RpcMgmtIsServerListening]
  2968.   end;
  2969. end;
  2970. {$ELSE}
  2971. function RpcMgmtIsServerListening; external rpclib name 'RpcMgmtIsServerListening';
  2972. {$ENDIF DYNAMIC_LINK}
  2974. {$IFDEF DYNAMIC_LINK}
  2975. var
  2976.   _RpcMgmtStopServerListening: Pointer;
  2978. function RpcMgmtStopServerListening;
  2979. begin
  2980.   GetProcedureAddress(_RpcMgmtStopServerListening, rpclib, 'RpcMgmtStopServerListening');
  2981.   asm
  2982.     mov esp, ebp
  2983.     pop ebp
  2984.     jmp [_RpcMgmtStopServerListening]
  2985.   end;
  2986. end;
  2987. {$ELSE}
  2988. function RpcMgmtStopServerListening; external rpclib name 'RpcMgmtStopServerListening';
  2989. {$ENDIF DYNAMIC_LINK}
  2991. {$IFDEF DYNAMIC_LINK}
  2992. var
  2993.   _RpcMgmtWaitServerListen: Pointer;
  2995. function RpcMgmtWaitServerListen;
  2996. begin
  2997.   GetProcedureAddress(_RpcMgmtWaitServerListen, rpclib, 'RpcMgmtWaitServerListen');
  2998.   asm
  2999.     mov esp, ebp
  3000.     pop ebp
  3001.     jmp [_RpcMgmtWaitServerListen]
  3002.   end;
  3003. end;
  3004. {$ELSE}
  3005. function RpcMgmtWaitServerListen; external rpclib name 'RpcMgmtWaitServerListen';
  3006. {$ENDIF DYNAMIC_LINK}
  3008. {$IFDEF DYNAMIC_LINK}
  3009. var
  3010.   _RpcMgmtSetServerStackSize: Pointer;
  3012. function RpcMgmtSetServerStackSize;
  3013. begin
  3014.   GetProcedureAddress(_RpcMgmtSetServerStackSize, rpclib, 'RpcMgmtSetServerStackSize');
  3015.   asm
  3016.     mov esp, ebp
  3017.     pop ebp
  3018.     jmp [_RpcMgmtSetServerStackSize]
  3019.   end;
  3020. end;
  3021. {$ELSE}
  3022. function RpcMgmtSetServerStackSize; external rpclib name 'RpcMgmtSetServerStackSize';
  3023. {$ENDIF DYNAMIC_LINK}
  3025. {$IFDEF DYNAMIC_LINK}
  3026. var
  3027.   _RpcSsDontSerializeContext: Pointer;
  3029. procedure RpcSsDontSerializeContext;
  3030. begin
  3031.   GetProcedureAddress(_RpcSsDontSerializeContext, rpclib, 'RpcSsDontSerializeContext');
  3032.   asm
  3033.     mov esp, ebp
  3034.     pop ebp
  3035.     jmp [_RpcSsDontSerializeContext]
  3036.   end;
  3037. end;
  3038. {$ELSE}
  3039. procedure RpcSsDontSerializeContext; external rpclib name 'RpcSsDontSerializeContext';
  3040. {$ENDIF DYNAMIC_LINK}
  3042. {$IFDEF DYNAMIC_LINK}
  3043. var
  3044.   _RpcMgmtEnableIdleCleanup: Pointer;
  3046. function RpcMgmtEnableIdleCleanup;
  3047. begin
  3048.   GetProcedureAddress(_RpcMgmtEnableIdleCleanup, rpclib, 'RpcMgmtEnableIdleCleanup');
  3049.   asm
  3050.     mov esp, ebp
  3051.     pop ebp
  3052.     jmp [_RpcMgmtEnableIdleCleanup]
  3053.   end;
  3054. end;
  3055. {$ELSE}
  3056. function RpcMgmtEnableIdleCleanup; external rpclib name 'RpcMgmtEnableIdleCleanup';
  3057. {$ENDIF DYNAMIC_LINK}
  3059. {$IFDEF DYNAMIC_LINK}
  3060. var
  3061.   _RpcMgmtInqIfIds: Pointer;
  3063. function RpcMgmtInqIfIds;
  3064. begin
  3065.   GetProcedureAddress(_RpcMgmtInqIfIds, rpclib, 'RpcMgmtInqIfIds');
  3066.   asm
  3067.     mov esp, ebp
  3068.     pop ebp
  3069.     jmp [_RpcMgmtInqIfIds]
  3070.   end;
  3071. end;
  3072. {$ELSE}
  3073. function RpcMgmtInqIfIds; external rpclib name 'RpcMgmtInqIfIds';
  3074. {$ENDIF DYNAMIC_LINK}
  3076. {$IFDEF DYNAMIC_LINK}
  3077. var
  3078.   _RpcIfIdVectorFree: Pointer;
  3080. function RpcIfIdVectorFree;
  3081. begin
  3082.   GetProcedureAddress(_RpcIfIdVectorFree, rpclib, 'RpcIfIdVectorFree');
  3083.   asm
  3084.     mov esp, ebp
  3085.     pop ebp
  3086.     jmp [_RpcIfIdVectorFree]
  3087.   end;
  3088. end;
  3089. {$ELSE}
  3090. function RpcIfIdVectorFree; external rpclib name 'RpcIfIdVectorFree';
  3091. {$ENDIF DYNAMIC_LINK}
  3093. {$IFDEF DYNAMIC_LINK}
  3094. var
  3095.   _RpcMgmtInqServerPrincNameA: Pointer;
  3097. function RpcMgmtInqServerPrincNameA;
  3098. begin
  3099.   GetProcedureAddress(_RpcMgmtInqServerPrincNameA, rpclib, 'RpcMgmtInqServerPrincNameA');
  3100.   asm
  3101.     mov esp, ebp
  3102.     pop ebp
  3103.     jmp [_RpcMgmtInqServerPrincNameA]
  3104.   end;
  3105. end;
  3106. {$ELSE}
  3107. function RpcMgmtInqServerPrincNameA; external rpclib name 'RpcMgmtInqServerPrincNameA';
  3108. {$ENDIF DYNAMIC_LINK}
  3110. {$IFDEF DYNAMIC_LINK}
  3111. var
  3112.   _RpcMgmtInqServerPrincNameW: Pointer;
  3114. function RpcMgmtInqServerPrincNameW;
  3115. begin
  3116.   GetProcedureAddress(_RpcMgmtInqServerPrincNameW, rpclib, 'RpcMgmtInqServerPrincNameW');
  3117.   asm
  3118.     mov esp, ebp
  3119.     pop ebp
  3120.     jmp [_RpcMgmtInqServerPrincNameW]
  3121.   end;
  3122. end;
  3123. {$ELSE}
  3124. function RpcMgmtInqServerPrincNameW; external rpclib name 'RpcMgmtInqServerPrincNameW';
  3125. {$ENDIF DYNAMIC_LINK}
  3126. {$IFDEF UNICODE}
  3128. {$IFDEF DYNAMIC_LINK}
  3129. var
  3130.   _RpcMgmtInqServerPrincName: Pointer;
  3132. function RpcMgmtInqServerPrincName;
  3133. begin
  3134.   GetProcedureAddress(_RpcMgmtInqServerPrincName, rpclib, 'RpcMgmtInqServerPrincNameW');
  3135.   asm
  3136.     mov esp, ebp
  3137.     pop ebp
  3138.     jmp [_RpcMgmtInqServerPrincName]
  3139.   end;
  3140. end;
  3141. {$ELSE}
  3142. function RpcMgmtInqServerPrincName; external rpclib name 'RpcMgmtInqServerPrincNameW';
  3143. {$ENDIF DYNAMIC_LINK}
  3144. {$ELSE}
  3146. {$IFDEF DYNAMIC_LINK}
  3147. var
  3148.   _RpcMgmtInqServerPrincName: Pointer;
  3150. function RpcMgmtInqServerPrincName;
  3151. begin
  3152.   GetProcedureAddress(_RpcMgmtInqServerPrincName, rpclib, 'RpcMgmtInqServerPrincNameA');
  3153.   asm
  3154.     mov esp, ebp
  3155.     pop ebp
  3156.     jmp [_RpcMgmtInqServerPrincName]
  3157.   end;
  3158. end;
  3159. {$ELSE}
  3160. function RpcMgmtInqServerPrincName; external rpclib name 'RpcMgmtInqServerPrincNameA';
  3161. {$ENDIF DYNAMIC_LINK}
  3162. {$ENDIF}
  3164. {$IFDEF DYNAMIC_LINK}
  3165. var
  3166.   _RpcServerInqDefaultPrincNameA: Pointer;
  3168. function RpcServerInqDefaultPrincNameA;
  3169. begin
  3170.   GetProcedureAddress(_RpcServerInqDefaultPrincNameA, rpclib, 'RpcServerInqDefaultPrincNameA');
  3171.   asm
  3172.     mov esp, ebp
  3173.     pop ebp
  3174.     jmp [_RpcServerInqDefaultPrincNameA]
  3175.   end;
  3176. end;
  3177. {$ELSE}
  3178. function RpcServerInqDefaultPrincNameA; external rpclib name 'RpcServerInqDefaultPrincNameA';
  3179. {$ENDIF DYNAMIC_LINK}
  3181. {$IFDEF DYNAMIC_LINK}
  3182. var
  3183.   _RpcServerInqDefaultPrincNameW: Pointer;
  3185. function RpcServerInqDefaultPrincNameW;
  3186. begin
  3187.   GetProcedureAddress(_RpcServerInqDefaultPrincNameW, rpclib, 'RpcServerInqDefaultPrincNameW');
  3188.   asm
  3189.     mov esp, ebp
  3190.     pop ebp
  3191.     jmp [_RpcServerInqDefaultPrincNameW]
  3192.   end;
  3193. end;
  3194. {$ELSE}
  3195. function RpcServerInqDefaultPrincNameW; external rpclib name 'RpcServerInqDefaultPrincNameW';
  3196. {$ENDIF DYNAMIC_LINK}
  3197. {$IFDEF UNICODE}
  3199. {$IFDEF DYNAMIC_LINK}
  3200. var
  3201.   _RpcServerInqDefaultPrincName: Pointer;
  3203. function RpcServerInqDefaultPrincName;
  3204. begin
  3205.   GetProcedureAddress(_RpcServerInqDefaultPrincName, rpclib, 'RpcServerInqDefaultPrincNameW');
  3206.   asm
  3207.     mov esp, ebp
  3208.     pop ebp
  3209.     jmp [_RpcServerInqDefaultPrincName]
  3210.   end;
  3211. end;
  3212. {$ELSE}
  3213. function RpcServerInqDefaultPrincName; external rpclib name 'RpcServerInqDefaultPrincNameW';
  3214. {$ENDIF DYNAMIC_LINK}
  3215. {$ELSE}
  3217. {$IFDEF DYNAMIC_LINK}
  3218. var
  3219.   _RpcServerInqDefaultPrincName: Pointer;
  3221. function RpcServerInqDefaultPrincName;
  3222. begin
  3223.   GetProcedureAddress(_RpcServerInqDefaultPrincName, rpclib, 'RpcServerInqDefaultPrincNameA');
  3224.   asm
  3225.     mov esp, ebp
  3226.     pop ebp
  3227.     jmp [_RpcServerInqDefaultPrincName]
  3228.   end;
  3229. end;
  3230. {$ELSE}
  3231. function RpcServerInqDefaultPrincName; external rpclib name 'RpcServerInqDefaultPrincNameA';
  3232. {$ENDIF DYNAMIC_LINK}
  3233. {$ENDIF}
  3235. {$IFDEF DYNAMIC_LINK}
  3236. var
  3237.   _RpcEpResolveBinding: Pointer;
  3239. function RpcEpResolveBinding;
  3240. begin
  3241.   GetProcedureAddress(_RpcEpResolveBinding, rpclib, 'RpcEpResolveBinding');
  3242.   asm
  3243.     mov esp, ebp
  3244.     pop ebp
  3245.     jmp [_RpcEpResolveBinding]
  3246.   end;
  3247. end;
  3248. {$ELSE}
  3249. function RpcEpResolveBinding; external rpclib name 'RpcEpResolveBinding';
  3250. {$ENDIF DYNAMIC_LINK}
  3252. {$IFDEF DYNAMIC_LINK}
  3253. var
  3254.   _RpcNsBindingInqEntryNameA: Pointer;
  3256. function RpcNsBindingInqEntryNameA;
  3257. begin
  3258.   GetProcedureAddress(_RpcNsBindingInqEntryNameA, rpclib, 'RpcNsBindingInqEntryNameA');
  3259.   asm
  3260.     mov esp, ebp
  3261.     pop ebp
  3262.     jmp [_RpcNsBindingInqEntryNameA]
  3263.   end;
  3264. end;
  3265. {$ELSE}
  3266. function RpcNsBindingInqEntryNameA; external rpclib name 'RpcNsBindingInqEntryNameA';
  3267. {$ENDIF DYNAMIC_LINK}
  3269. {$IFDEF DYNAMIC_LINK}
  3270. var
  3271.   _RpcNsBindingInqEntryNameW: Pointer;
  3273. function RpcNsBindingInqEntryNameW;
  3274. begin
  3275.   GetProcedureAddress(_RpcNsBindingInqEntryNameW, rpclib, 'RpcNsBindingInqEntryNameW');
  3276.   asm
  3277.     mov esp, ebp
  3278.     pop ebp
  3279.     jmp [_RpcNsBindingInqEntryNameW]
  3280.   end;
  3281. end;
  3282. {$ELSE}
  3283. function RpcNsBindingInqEntryNameW; external rpclib name 'RpcNsBindingInqEntryNameW';
  3284. {$ENDIF DYNAMIC_LINK}
  3285. {$IFDEF UNICODE}
  3287. {$IFDEF DYNAMIC_LINK}
  3288. var
  3289.   _RpcNsBindingInqEntryName: Pointer;
  3291. function RpcNsBindingInqEntryName;
  3292. begin
  3293.   GetProcedureAddress(_RpcNsBindingInqEntryName, rpclib, 'RpcNsBindingInqEntryNameW');
  3294.   asm
  3295.     mov esp, ebp
  3296.     pop ebp
  3297.     jmp [_RpcNsBindingInqEntryName]
  3298.   end;
  3299. end;
  3300. {$ELSE}
  3301. function RpcNsBindingInqEntryName; external rpclib name 'RpcNsBindingInqEntryNameW';
  3302. {$ENDIF DYNAMIC_LINK}
  3303. {$ELSE}
  3305. {$IFDEF DYNAMIC_LINK}
  3306. var
  3307.   _RpcNsBindingInqEntryName: Pointer;
  3309. function RpcNsBindingInqEntryName;
  3310. begin
  3311.   GetProcedureAddress(_RpcNsBindingInqEntryName, rpclib, 'RpcNsBindingInqEntryNameA');
  3312.   asm
  3313.     mov esp, ebp
  3314.     pop ebp
  3315.     jmp [_RpcNsBindingInqEntryName]
  3316.   end;
  3317. end;
  3318. {$ELSE}
  3319. function RpcNsBindingInqEntryName; external rpclib name 'RpcNsBindingInqEntryNameA';
  3320. {$ENDIF DYNAMIC_LINK}
  3321. {$ENDIF}
  3323. {$IFDEF DYNAMIC_LINK}
  3324. var
  3325.   _RpcImpersonateClient: Pointer;
  3327. function RpcImpersonateClient;
  3328. begin
  3329.   GetProcedureAddress(_RpcImpersonateClient, rpclib, 'RpcImpersonateClient');
  3330.   asm
  3331.     mov esp, ebp
  3332.     pop ebp
  3333.     jmp [_RpcImpersonateClient]
  3334.   end;
  3335. end;
  3336. {$ELSE}
  3337. function RpcImpersonateClient; external rpclib name 'RpcImpersonateClient';
  3338. {$ENDIF DYNAMIC_LINK}
  3340. {$IFDEF DYNAMIC_LINK}
  3341. var
  3342.   _RpcRevertToSelfEx: Pointer;
  3344. function RpcRevertToSelfEx;
  3345. begin
  3346.   GetProcedureAddress(_RpcRevertToSelfEx, rpclib, 'RpcRevertToSelfEx');
  3347.   asm
  3348.     mov esp, ebp
  3349.     pop ebp
  3350.     jmp [_RpcRevertToSelfEx]
  3351.   end;
  3352. end;
  3353. {$ELSE}
  3354. function RpcRevertToSelfEx; external rpclib name 'RpcRevertToSelfEx';
  3355. {$ENDIF DYNAMIC_LINK}
  3357. {$IFDEF DYNAMIC_LINK}
  3358. var
  3359.   _RpcRevertToSelf: Pointer;
  3361. function RpcRevertToSelf;
  3362. begin
  3363.   GetProcedureAddress(_RpcRevertToSelf, rpclib, 'RpcRevertToSelf');
  3364.   asm
  3365.     mov esp, ebp
  3366.     pop ebp
  3367.     jmp [_RpcRevertToSelf]
  3368.   end;
  3369. end;
  3370. {$ELSE}
  3371. function RpcRevertToSelf; external rpclib name 'RpcRevertToSelf';
  3372. {$ENDIF DYNAMIC_LINK}
  3374. {$IFDEF DYNAMIC_LINK}
  3375. var
  3376.   _RpcBindingInqAuthClientA: Pointer;
  3378. function RpcBindingInqAuthClientA;
  3379. begin
  3380.   GetProcedureAddress(_RpcBindingInqAuthClientA, rpclib, 'RpcBindingInqAuthClientA');
  3381.   asm
  3382.     mov esp, ebp
  3383.     pop ebp
  3384.     jmp [_RpcBindingInqAuthClientA]
  3385.   end;
  3386. end;
  3387. {$ELSE}
  3388. function RpcBindingInqAuthClientA; external rpclib name 'RpcBindingInqAuthClientA';
  3389. {$ENDIF DYNAMIC_LINK}
  3391. {$IFDEF DYNAMIC_LINK}
  3392. var
  3393.   _RpcBindingInqAuthClientW: Pointer;
  3395. function RpcBindingInqAuthClientW;
  3396. begin
  3397.   GetProcedureAddress(_RpcBindingInqAuthClientW, rpclib, 'RpcBindingInqAuthClientW');
  3398.   asm
  3399.     mov esp, ebp
  3400.     pop ebp
  3401.     jmp [_RpcBindingInqAuthClientW]
  3402.   end;
  3403. end;
  3404. {$ELSE}
  3405. function RpcBindingInqAuthClientW; external rpclib name 'RpcBindingInqAuthClientW';
  3406. {$ENDIF DYNAMIC_LINK}
  3408. {$IFDEF DYNAMIC_LINK}
  3409. var
  3410.   _RpcBindingInqAuthClientExA: Pointer;
  3412. function RpcBindingInqAuthClientExA;
  3413. begin
  3414.   GetProcedureAddress(_RpcBindingInqAuthClientExA, rpclib, 'RpcBindingInqAuthClientExA');
  3415.   asm
  3416.     mov esp, ebp
  3417.     pop ebp
  3418.     jmp [_RpcBindingInqAuthClientExA]
  3419.   end;
  3420. end;
  3421. {$ELSE}
  3422. function RpcBindingInqAuthClientExA; external rpclib name 'RpcBindingInqAuthClientExA';
  3423. {$ENDIF DYNAMIC_LINK}
  3425. {$IFDEF DYNAMIC_LINK}
  3426. var
  3427.   _RpcBindingInqAuthClientExW: Pointer;
  3429. function RpcBindingInqAuthClientExW;
  3430. begin
  3431.   GetProcedureAddress(_RpcBindingInqAuthClientExW, rpclib, 'RpcBindingInqAuthClientExW');
  3432.   asm
  3433.     mov esp, ebp
  3434.     pop ebp
  3435.     jmp [_RpcBindingInqAuthClientExW]
  3436.   end;
  3437. end;
  3438. {$ELSE}
  3439. function RpcBindingInqAuthClientExW; external rpclib name 'RpcBindingInqAuthClientExW';
  3440. {$ENDIF DYNAMIC_LINK}
  3442. {$IFDEF DYNAMIC_LINK}
  3443. var
  3444.   _RpcBindingInqAuthInfoA: Pointer;
  3446. function RpcBindingInqAuthInfoA;
  3447. begin
  3448.   GetProcedureAddress(_RpcBindingInqAuthInfoA, rpclib, 'RpcBindingInqAuthInfoA');
  3449.   asm
  3450.     mov esp, ebp
  3451.     pop ebp
  3452.     jmp [_RpcBindingInqAuthInfoA]
  3453.   end;
  3454. end;
  3455. {$ELSE}
  3456. function RpcBindingInqAuthInfoA; external rpclib name 'RpcBindingInqAuthInfoA';
  3457. {$ENDIF DYNAMIC_LINK}
  3459. {$IFDEF DYNAMIC_LINK}
  3460. var
  3461.   _RpcBindingInqAuthInfoW: Pointer;
  3463. function RpcBindingInqAuthInfoW;
  3464. begin
  3465.   GetProcedureAddress(_RpcBindingInqAuthInfoW, rpclib, 'RpcBindingInqAuthInfoW');
  3466.   asm
  3467.     mov esp, ebp
  3468.     pop ebp
  3469.     jmp [_RpcBindingInqAuthInfoW]
  3470.   end;
  3471. end;
  3472. {$ELSE}
  3473. function RpcBindingInqAuthInfoW; external rpclib name 'RpcBindingInqAuthInfoW';
  3474. {$ENDIF DYNAMIC_LINK}
  3476. {$IFDEF DYNAMIC_LINK}
  3477. var
  3478.   _RpcBindingSetAuthInfoA: Pointer;
  3480. function RpcBindingSetAuthInfoA;
  3481. begin
  3482.   GetProcedureAddress(_RpcBindingSetAuthInfoA, rpclib, 'RpcBindingSetAuthInfoA');
  3483.   asm
  3484.     mov esp, ebp
  3485.     pop ebp
  3486.     jmp [_RpcBindingSetAuthInfoA]
  3487.   end;
  3488. end;
  3489. {$ELSE}
  3490. function RpcBindingSetAuthInfoA; external rpclib name 'RpcBindingSetAuthInfoA';
  3491. {$ENDIF DYNAMIC_LINK}
  3493. {$IFDEF DYNAMIC_LINK}
  3494. var
  3495.   _RpcBindingSetAuthInfoW: Pointer;
  3497. function RpcBindingSetAuthInfoW;
  3498. begin
  3499.   GetProcedureAddress(_RpcBindingSetAuthInfoW, rpclib, 'RpcBindingSetAuthInfoW');
  3500.   asm
  3501.     mov esp, ebp
  3502.     pop ebp
  3503.     jmp [_RpcBindingSetAuthInfoW]
  3504.   end;
  3505. end;
  3506. {$ELSE}
  3507. function RpcBindingSetAuthInfoW; external rpclib name 'RpcBindingSetAuthInfoW';
  3508. {$ENDIF DYNAMIC_LINK}
  3510. {$IFDEF DYNAMIC_LINK}
  3511. var
  3512.   _RpcBindingSetAuthInfoExA: Pointer;
  3514. function RpcBindingSetAuthInfoExA;
  3515. begin
  3516.   GetProcedureAddress(_RpcBindingSetAuthInfoExA, rpclib, 'RpcBindingSetAuthInfoExA');
  3517.   asm
  3518.     mov esp, ebp
  3519.     pop ebp
  3520.     jmp [_RpcBindingSetAuthInfoExA]
  3521.   end;
  3522. end;
  3523. {$ELSE}
  3524. function RpcBindingSetAuthInfoExA; external rpclib name 'RpcBindingSetAuthInfoExA';
  3525. {$ENDIF DYNAMIC_LINK}
  3527. {$IFDEF DYNAMIC_LINK}
  3528. var
  3529.   _RpcBindingSetAuthInfoExW: Pointer;
  3531. function RpcBindingSetAuthInfoExW;
  3532. begin
  3533.   GetProcedureAddress(_RpcBindingSetAuthInfoExW, rpclib, 'RpcBindingSetAuthInfoExW');
  3534.   asm
  3535.     mov esp, ebp
  3536.     pop ebp
  3537.     jmp [_RpcBindingSetAuthInfoExW]
  3538.   end;
  3539. end;
  3540. {$ELSE}
  3541. function RpcBindingSetAuthInfoExW; external rpclib name 'RpcBindingSetAuthInfoExW';
  3542. {$ENDIF DYNAMIC_LINK}
  3544. {$IFDEF DYNAMIC_LINK}
  3545. var
  3546.   _RpcBindingInqAuthInfoExA: Pointer;
  3548. function RpcBindingInqAuthInfoExA;
  3549. begin
  3550.   GetProcedureAddress(_RpcBindingInqAuthInfoExA, rpclib, 'RpcBindingInqAuthInfoExA');
  3551.   asm
  3552.     mov esp, ebp
  3553.     pop ebp
  3554.     jmp [_RpcBindingInqAuthInfoExA]
  3555.   end;
  3556. end;
  3557. {$ELSE}
  3558. function RpcBindingInqAuthInfoExA; external rpclib name 'RpcBindingInqAuthInfoExA';
  3559. {$ENDIF DYNAMIC_LINK}
  3561. {$IFDEF DYNAMIC_LINK}
  3562. var
  3563.   _RpcBindingInqAuthInfoExW: Pointer;
  3565. function RpcBindingInqAuthInfoExW;
  3566. begin
  3567.   GetProcedureAddress(_RpcBindingInqAuthInfoExW, rpclib, 'RpcBindingInqAuthInfoExW');
  3568.   asm
  3569.     mov esp, ebp
  3570.     pop ebp
  3571.     jmp [_RpcBindingInqAuthInfoExW]
  3572.   end;
  3573. end;
  3574. {$ELSE}
  3575. function RpcBindingInqAuthInfoExW; external rpclib name 'RpcBindingInqAuthInfoExW';
  3576. {$ENDIF DYNAMIC_LINK}
  3578. {$IFDEF DYNAMIC_LINK}
  3579. var
  3580.   _RpcServerRegisterAuthInfoA: Pointer;
  3582. function RpcServerRegisterAuthInfoA;
  3583. begin
  3584.   GetProcedureAddress(_RpcServerRegisterAuthInfoA, rpclib, 'RpcServerRegisterAuthInfoA');
  3585.   asm
  3586.     mov esp, ebp
  3587.     pop ebp
  3588.     jmp [_RpcServerRegisterAuthInfoA]
  3589.   end;
  3590. end;
  3591. {$ELSE}
  3592. function RpcServerRegisterAuthInfoA; external rpclib name 'RpcServerRegisterAuthInfoA';
  3593. {$ENDIF DYNAMIC_LINK}
  3595. {$IFDEF DYNAMIC_LINK}
  3596. var
  3597.   _RpcServerRegisterAuthInfoW: Pointer;
  3599. function RpcServerRegisterAuthInfoW;
  3600. begin
  3601.   GetProcedureAddress(_RpcServerRegisterAuthInfoW, rpclib, 'RpcServerRegisterAuthInfoW');
  3602.   asm
  3603.     mov esp, ebp
  3604.     pop ebp
  3605.     jmp [_RpcServerRegisterAuthInfoW]
  3606.   end;
  3607. end;
  3608. {$ELSE}
  3609. function RpcServerRegisterAuthInfoW; external rpclib name 'RpcServerRegisterAuthInfoW';
  3610. {$ENDIF DYNAMIC_LINK}
  3611. {$IFDEF UNICODE}
  3613. {$IFDEF DYNAMIC_LINK}
  3614. var
  3615.   _RpcBindingInqAuthClient: Pointer;
  3617. function RpcBindingInqAuthClient;
  3618. begin
  3619.   GetProcedureAddress(_RpcBindingInqAuthClient, rpclib, 'RpcBindingInqAuthClientW');
  3620.   asm
  3621.     mov esp, ebp
  3622.     pop ebp
  3623.     jmp [_RpcBindingInqAuthClient]
  3624.   end;
  3625. end;
  3626. {$ELSE}
  3627. function RpcBindingInqAuthClient; external rpclib name 'RpcBindingInqAuthClientW';
  3628. {$ENDIF DYNAMIC_LINK}
  3630. {$IFDEF DYNAMIC_LINK}
  3631. var
  3632.   _RpcBindingInqAuthClientEx: Pointer;
  3634. function RpcBindingInqAuthClientEx;
  3635. begin
  3636.   GetProcedureAddress(_RpcBindingInqAuthClientEx, rpclib, 'RpcBindingInqAuthClientExW');
  3637.   asm
  3638.     mov esp, ebp
  3639.     pop ebp
  3640.     jmp [_RpcBindingInqAuthClientEx]
  3641.   end;
  3642. end;
  3643. {$ELSE}
  3644. function RpcBindingInqAuthClientEx; external rpclib name 'RpcBindingInqAuthClientExW';
  3645. {$ENDIF DYNAMIC_LINK}
  3647. {$IFDEF DYNAMIC_LINK}
  3648. var
  3649.   _RpcBindingInqAuthInfo: Pointer;
  3651. function RpcBindingInqAuthInfo;
  3652. begin
  3653.   GetProcedureAddress(_RpcBindingInqAuthInfo, rpclib, 'RpcBindingInqAuthInfoW');
  3654.   asm
  3655.     mov esp, ebp
  3656.     pop ebp
  3657.     jmp [_RpcBindingInqAuthInfo]
  3658.   end;
  3659. end;
  3660. {$ELSE}
  3661. function RpcBindingInqAuthInfo; external rpclib name 'RpcBindingInqAuthInfoW';
  3662. {$ENDIF DYNAMIC_LINK}
  3664. {$IFDEF DYNAMIC_LINK}
  3665. var
  3666.   _RpcBindingSetAuthInfo: Pointer;
  3668. function RpcBindingSetAuthInfo;
  3669. begin
  3670.   GetProcedureAddress(_RpcBindingSetAuthInfo, rpclib, 'RpcBindingSetAuthInfoW');
  3671.   asm
  3672.     mov esp, ebp
  3673.     pop ebp
  3674.     jmp [_RpcBindingSetAuthInfo]
  3675.   end;
  3676. end;
  3677. {$ELSE}
  3678. function RpcBindingSetAuthInfo; external rpclib name 'RpcBindingSetAuthInfoW';
  3679. {$ENDIF DYNAMIC_LINK}
  3681. {$IFDEF DYNAMIC_LINK}
  3682. var
  3683.   _RpcBindingSetAuthInfoEx: Pointer;
  3685. function RpcBindingSetAuthInfoEx;
  3686. begin
  3687.   GetProcedureAddress(_RpcBindingSetAuthInfoEx, rpclib, 'RpcBindingSetAuthInfoExW');
  3688.   asm
  3689.     mov esp, ebp
  3690.     pop ebp
  3691.     jmp [_RpcBindingSetAuthInfoEx]
  3692.   end;
  3693. end;
  3694. {$ELSE}
  3695. function RpcBindingSetAuthInfoEx; external rpclib name 'RpcBindingSetAuthInfoExW';
  3696. {$ENDIF DYNAMIC_LINK}
  3698. {$IFDEF DYNAMIC_LINK}
  3699. var
  3700.   _RpcBindingInqAuthInfoEx: Pointer;
  3702. function RpcBindingInqAuthInfoEx;
  3703. begin
  3704.   GetProcedureAddress(_RpcBindingInqAuthInfoEx, rpclib, 'RpcBindingInqAuthInfoExW');
  3705.   asm
  3706.     mov esp, ebp
  3707.     pop ebp
  3708.     jmp [_RpcBindingInqAuthInfoEx]
  3709.   end;
  3710. end;
  3711. {$ELSE}
  3712. function RpcBindingInqAuthInfoEx; external rpclib name 'RpcBindingInqAuthInfoExW';
  3713. {$ENDIF DYNAMIC_LINK}
  3715. {$IFDEF DYNAMIC_LINK}
  3716. var
  3717.   _RpcServerRegisterAuthInfo: Pointer;
  3719. function RpcServerRegisterAuthInfo;
  3720. begin
  3721.   GetProcedureAddress(_RpcServerRegisterAuthInfo, rpclib, 'RpcServerRegisterAuthInfoW');
  3722.   asm
  3723.     mov esp, ebp
  3724.     pop ebp
  3725.     jmp [_RpcServerRegisterAuthInfo]
  3726.   end;
  3727. end;
  3728. {$ELSE}
  3729. function RpcServerRegisterAuthInfo; external rpclib name 'RpcServerRegisterAuthInfoW';
  3730. {$ENDIF DYNAMIC_LINK}
  3731. {$ELSE}
  3733. {$IFDEF DYNAMIC_LINK}
  3734. var
  3735.   _RpcBindingInqAuthClient: Pointer;
  3737. function RpcBindingInqAuthClient;
  3738. begin
  3739.   GetProcedureAddress(_RpcBindingInqAuthClient, rpclib, 'RpcBindingInqAuthClientA');
  3740.   asm
  3741.     mov esp, ebp
  3742.     pop ebp
  3743.     jmp [_RpcBindingInqAuthClient]
  3744.   end;
  3745. end;
  3746. {$ELSE}
  3747. function RpcBindingInqAuthClient; external rpclib name 'RpcBindingInqAuthClientA';
  3748. {$ENDIF DYNAMIC_LINK}
  3750. {$IFDEF DYNAMIC_LINK}
  3751. var
  3752.   _RpcBindingInqAuthClientEx: Pointer;
  3754. function RpcBindingInqAuthClientEx;
  3755. begin
  3756.   GetProcedureAddress(_RpcBindingInqAuthClientEx, rpclib, 'RpcBindingInqAuthClientExA');
  3757.   asm
  3758.     mov esp, ebp
  3759.     pop ebp
  3760.     jmp [_RpcBindingInqAuthClientEx]
  3761.   end;
  3762. end;
  3763. {$ELSE}
  3764. function RpcBindingInqAuthClientEx; external rpclib name 'RpcBindingInqAuthClientExA';
  3765. {$ENDIF DYNAMIC_LINK}
  3767. {$IFDEF DYNAMIC_LINK}
  3768. var
  3769.   _RpcBindingInqAuthInfo: Pointer;
  3771. function RpcBindingInqAuthInfo;
  3772. begin
  3773.   GetProcedureAddress(_RpcBindingInqAuthInfo, rpclib, 'RpcBindingInqAuthInfoA');
  3774.   asm
  3775.     mov esp, ebp
  3776.     pop ebp
  3777.     jmp [_RpcBindingInqAuthInfo]
  3778.   end;
  3779. end;
  3780. {$ELSE}
  3781. function RpcBindingInqAuthInfo; external rpclib name 'RpcBindingInqAuthInfoA';
  3782. {$ENDIF DYNAMIC_LINK}
  3784. {$IFDEF DYNAMIC_LINK}
  3785. var
  3786.   _RpcBindingSetAuthInfo: Pointer;
  3788. function RpcBindingSetAuthInfo;
  3789. begin
  3790.   GetProcedureAddress(_RpcBindingSetAuthInfo, rpclib, 'RpcBindingSetAuthInfoA');
  3791.   asm
  3792.     mov esp, ebp
  3793.     pop ebp
  3794.     jmp [_RpcBindingSetAuthInfo]
  3795.   end;
  3796. end;
  3797. {$ELSE}
  3798. function RpcBindingSetAuthInfo; external rpclib name 'RpcBindingSetAuthInfoA';
  3799. {$ENDIF DYNAMIC_LINK}
  3801. {$IFDEF DYNAMIC_LINK}
  3802. var
  3803.   _RpcBindingSetAuthInfoEx: Pointer;
  3805. function RpcBindingSetAuthInfoEx;
  3806. begin
  3807.   GetProcedureAddress(_RpcBindingSetAuthInfoEx, rpclib, 'RpcBindingSetAuthInfoExA');
  3808.   asm
  3809.     mov esp, ebp
  3810.     pop ebp
  3811.     jmp [_RpcBindingSetAuthInfoEx]
  3812.   end;
  3813. end;
  3814. {$ELSE}
  3815. function RpcBindingSetAuthInfoEx; external rpclib name 'RpcBindingSetAuthInfoExA';
  3816. {$ENDIF DYNAMIC_LINK}
  3818. {$IFDEF DYNAMIC_LINK}
  3819. var
  3820.   _RpcBindingInqAuthInfoEx: Pointer;
  3822. function RpcBindingInqAuthInfoEx;
  3823. begin
  3824.   GetProcedureAddress(_RpcBindingInqAuthInfoEx, rpclib, 'RpcBindingInqAuthInfoExA');
  3825.   asm
  3826.     mov esp, ebp
  3827.     pop ebp
  3828.     jmp [_RpcBindingInqAuthInfoEx]
  3829.   end;
  3830. end;
  3831. {$ELSE}
  3832. function RpcBindingInqAuthInfoEx; external rpclib name 'RpcBindingInqAuthInfoExA';
  3833. {$ENDIF DYNAMIC_LINK}
  3835. {$IFDEF DYNAMIC_LINK}
  3836. var
  3837.   _RpcServerRegisterAuthInfo: Pointer;
  3839. function RpcServerRegisterAuthInfo;
  3840. begin
  3841.   GetProcedureAddress(_RpcServerRegisterAuthInfo, rpclib, 'RpcServerRegisterAuthInfoA');
  3842.   asm
  3843.     mov esp, ebp
  3844.     pop ebp
  3845.     jmp [_RpcServerRegisterAuthInfo]
  3846.   end;
  3847. end;
  3848. {$ELSE}
  3849. function RpcServerRegisterAuthInfo; external rpclib name 'RpcServerRegisterAuthInfoA';
  3850. {$ENDIF DYNAMIC_LINK}
  3851. {$ENDIF}
  3853. {$IFDEF DYNAMIC_LINK}
  3854. var
  3855.   _RpcBindingServerFromClient: Pointer;
  3857. function RpcBindingServerFromClient;
  3858. begin
  3859.   GetProcedureAddress(_RpcBindingServerFromClient, rpclib, 'RpcBindingServerFromClient');
  3860.   asm
  3861.     mov esp, ebp
  3862.     pop ebp
  3863.     jmp [_RpcBindingServerFromClient]
  3864.   end;
  3865. end;
  3866. {$ELSE}
  3867. function RpcBindingServerFromClient; external rpclib name 'RpcBindingServerFromClient';
  3868. {$ENDIF DYNAMIC_LINK}
  3870. {$IFDEF DYNAMIC_LINK}
  3871. var
  3872.   _RpcRaiseException: Pointer;
  3874. procedure RpcRaiseException;
  3875. begin
  3876.   GetProcedureAddress(_RpcRaiseException, rpclib, 'RpcRaiseException');
  3877.   asm
  3878.     mov esp, ebp
  3879.     pop ebp
  3880.     jmp [_RpcRaiseException]
  3881.   end;
  3882. end;
  3883. {$ELSE}
  3884. procedure RpcRaiseException; external rpclib name 'RpcRaiseException';
  3885. {$ENDIF DYNAMIC_LINK}
  3887. {$IFDEF DYNAMIC_LINK}
  3888. var
  3889.   _RpcTestCancel: Pointer;
  3891. function RpcTestCancel;
  3892. begin
  3893.   GetProcedureAddress(_RpcTestCancel, rpclib, 'RpcTestCancel');
  3894.   asm
  3895.     mov esp, ebp
  3896.     pop ebp
  3897.     jmp [_RpcTestCancel]
  3898.   end;
  3899. end;
  3900. {$ELSE}
  3901. function RpcTestCancel; external rpclib name 'RpcTestCancel';
  3902. {$ENDIF DYNAMIC_LINK}
  3904. {$IFDEF DYNAMIC_LINK}
  3905. var
  3906.   _RpcServerTestCancel: Pointer;
  3908. function RpcServerTestCancel;
  3909. begin
  3910.   GetProcedureAddress(_RpcServerTestCancel, rpclib, 'RpcServerTestCancel');
  3911.   asm
  3912.     mov esp, ebp
  3913.     pop ebp
  3914.     jmp [_RpcServerTestCancel]
  3915.   end;
  3916. end;
  3917. {$ELSE}
  3918. function RpcServerTestCancel; external rpclib name 'RpcServerTestCancel';
  3919. {$ENDIF DYNAMIC_LINK}
  3921. {$IFDEF DYNAMIC_LINK}
  3922. var
  3923.   _RpcCancelThread: Pointer;
  3925. function RpcCancelThread;
  3926. begin
  3927.   GetProcedureAddress(_RpcCancelThread, rpclib, 'RpcCancelThread');
  3928.   asm
  3929.     mov esp, ebp
  3930.     pop ebp
  3931.     jmp [_RpcCancelThread]
  3932.   end;
  3933. end;
  3934. {$ELSE}
  3935. function RpcCancelThread; external rpclib name 'RpcCancelThread';
  3936. {$ENDIF DYNAMIC_LINK}
  3938. {$IFDEF DYNAMIC_LINK}
  3939. var
  3940.   _RpcCancelThreadEx: Pointer;
  3942. function RpcCancelThreadEx;
  3943. begin
  3944.   GetProcedureAddress(_RpcCancelThreadEx, rpclib, 'RpcCancelThreadEx');
  3945.   asm
  3946.     mov esp, ebp
  3947.     pop ebp
  3948.     jmp [_RpcCancelThreadEx]
  3949.   end;
  3950. end;
  3951. {$ELSE}
  3952. function RpcCancelThreadEx; external rpclib name 'RpcCancelThreadEx';
  3953. {$ENDIF DYNAMIC_LINK}
  3955. {$IFDEF DYNAMIC_LINK}
  3956. var
  3957.   _UuidCreate: Pointer;
  3959. function UuidCreate;
  3960. begin
  3961.   GetProcedureAddress(_UuidCreate, rpclib, 'UuidCreate');
  3962.   asm
  3963.     mov esp, ebp
  3964.     pop ebp
  3965.     jmp [_UuidCreate]
  3966.   end;
  3967. end;
  3968. {$ELSE}
  3969. function UuidCreate; external rpclib name 'UuidCreate';
  3970. {$ENDIF DYNAMIC_LINK}
  3972. {$IFDEF DYNAMIC_LINK}
  3973. var
  3974.   _UuidCreateSequential: Pointer;
  3976. function UuidCreateSequential;
  3977. begin
  3978.   GetProcedureAddress(_UuidCreateSequential, rpclib, 'UuidCreateSequential');
  3979.   asm
  3980.     mov esp, ebp
  3981.     pop ebp
  3982.     jmp [_UuidCreateSequential]
  3983.   end;
  3984. end;
  3985. {$ELSE}
  3986. function UuidCreateSequential; external rpclib name 'UuidCreateSequential';
  3987. {$ENDIF DYNAMIC_LINK}
  3989. {$IFDEF DYNAMIC_LINK}
  3990. var
  3991.   _UuidFromStringA: Pointer;
  3993. function UuidFromStringA;
  3994. begin
  3995.   GetProcedureAddress(_UuidFromStringA, rpclib, 'UuidFromStringA');
  3996.   asm
  3997.     mov esp, ebp
  3998.     pop ebp
  3999.     jmp [_UuidFromStringA]
  4000.   end;
  4001. end;
  4002. {$ELSE}
  4003. function UuidFromStringA; external rpclib name 'UuidFromStringA';
  4004. {$ENDIF DYNAMIC_LINK}
  4006. {$IFDEF DYNAMIC_LINK}
  4007. var
  4008.   _UuidFromStringW: Pointer;
  4010. function UuidFromStringW;
  4011. begin
  4012.   GetProcedureAddress(_UuidFromStringW, rpclib, 'UuidFromStringW');
  4013.   asm
  4014.     mov esp, ebp
  4015.     pop ebp
  4016.     jmp [_UuidFromStringW]
  4017.   end;
  4018. end;
  4019. {$ELSE}
  4020. function UuidFromStringW; external rpclib name 'UuidFromStringW';
  4021. {$ENDIF DYNAMIC_LINK}
  4022. {$IFDEF UNICODE}
  4024. {$IFDEF DYNAMIC_LINK}
  4025. var
  4026.   _UuidFromString: Pointer;
  4028. function UuidFromString;
  4029. begin
  4030.   GetProcedureAddress(_UuidFromString, rpclib, 'UuidFromStringW');
  4031.   asm
  4032.     mov esp, ebp
  4033.     pop ebp
  4034.     jmp [_UuidFromString]
  4035.   end;
  4036. end;
  4037. {$ELSE}
  4038. function UuidFromString; external rpclib name 'UuidFromStringW';
  4039. {$ENDIF DYNAMIC_LINK}
  4040. {$ELSE}
  4042. {$IFDEF DYNAMIC_LINK}
  4043. var
  4044.   _UuidFromString: Pointer;
  4046. function UuidFromString;
  4047. begin
  4048.   GetProcedureAddress(_UuidFromString, rpclib, 'UuidFromStringA');
  4049.   asm
  4050.     mov esp, ebp
  4051.     pop ebp
  4052.     jmp [_UuidFromString]
  4053.   end;
  4054. end;
  4055. {$ELSE}
  4056. function UuidFromString; external rpclib name 'UuidFromStringA';
  4057. {$ENDIF DYNAMIC_LINK}
  4058. {$ENDIF}
  4060. {$IFDEF DYNAMIC_LINK}
  4061. var
  4062.   _UuidToStringA: Pointer;
  4064. function UuidToStringA;
  4065. begin
  4066.   GetProcedureAddress(_UuidToStringA, rpclib, 'UuidToStringA');
  4067.   asm
  4068.     mov esp, ebp
  4069.     pop ebp
  4070.     jmp [_UuidToStringA]
  4071.   end;
  4072. end;
  4073. {$ELSE}
  4074. function UuidToStringA; external rpclib name 'UuidToStringA';
  4075. {$ENDIF DYNAMIC_LINK}
  4077. {$IFDEF DYNAMIC_LINK}
  4078. var
  4079.   _UuidToStringW: Pointer;
  4081. function UuidToStringW;
  4082. begin
  4083.   GetProcedureAddress(_UuidToStringW, rpclib, 'UuidToStringW');
  4084.   asm
  4085.     mov esp, ebp
  4086.     pop ebp
  4087.     jmp [_UuidToStringW]
  4088.   end;
  4089. end;
  4090. {$ELSE}
  4091. function UuidToStringW; external rpclib name 'UuidToStringW';
  4092. {$ENDIF DYNAMIC_LINK}
  4093. {$IFDEF UNICODE}
  4095. {$IFDEF DYNAMIC_LINK}
  4096. var
  4097.   _UuidToString: Pointer;
  4099. function UuidToString;
  4100. begin
  4101.   GetProcedureAddress(_UuidToString, rpclib, 'UuidToStringW');
  4102.   asm
  4103.     mov esp, ebp
  4104.     pop ebp
  4105.     jmp [_UuidToString]
  4106.   end;
  4107. end;
  4108. {$ELSE}
  4109. function UuidToString; external rpclib name 'UuidToStringW';
  4110. {$ENDIF DYNAMIC_LINK}
  4111. {$ELSE}
  4113. {$IFDEF DYNAMIC_LINK}
  4114. var
  4115.   _UuidToString: Pointer;
  4117. function UuidToString;
  4118. begin
  4119.   GetProcedureAddress(_UuidToString, rpclib, 'UuidToStringA');
  4120.   asm
  4121.     mov esp, ebp
  4122.     pop ebp
  4123.     jmp [_UuidToString]
  4124.   end;
  4125. end;
  4126. {$ELSE}
  4127. function UuidToString; external rpclib name 'UuidToStringA';
  4128. {$ENDIF DYNAMIC_LINK}
  4129. {$ENDIF}
  4131. {$IFDEF DYNAMIC_LINK}
  4132. var
  4133.   _UuidCompare: Pointer;
  4135. function UuidCompare;
  4136. begin
  4137.   GetProcedureAddress(_UuidCompare, rpclib, 'UuidCompare');
  4138.   asm
  4139.     mov esp, ebp
  4140.     pop ebp
  4141.     jmp [_UuidCompare]
  4142.   end;
  4143. end;
  4144. {$ELSE}
  4145. function UuidCompare; external rpclib name 'UuidCompare';
  4146. {$ENDIF DYNAMIC_LINK}
  4148. {$IFDEF DYNAMIC_LINK}
  4149. var
  4150.   _UuidCreateNil: Pointer;
  4152. function UuidCreateNil;
  4153. begin
  4154.   GetProcedureAddress(_UuidCreateNil, rpclib, 'UuidCreateNil');
  4155.   asm
  4156.     mov esp, ebp
  4157.     pop ebp
  4158.     jmp [_UuidCreateNil]
  4159.   end;
  4160. end;
  4161. {$ELSE}
  4162. function UuidCreateNil; external rpclib name 'UuidCreateNil';
  4163. {$ENDIF DYNAMIC_LINK}
  4165. {$IFDEF DYNAMIC_LINK}
  4166. var
  4167.   _UuidEqual: Pointer;
  4169. function UuidEqual;
  4170. begin
  4171.   GetProcedureAddress(_UuidEqual, rpclib, 'UuidEqual');
  4172.   asm
  4173.     mov esp, ebp
  4174.     pop ebp
  4175.     jmp [_UuidEqual]
  4176.   end;
  4177. end;
  4178. {$ELSE}
  4179. function UuidEqual; external rpclib name 'UuidEqual';
  4180. {$ENDIF DYNAMIC_LINK}
  4182. {$IFDEF DYNAMIC_LINK}
  4183. var
  4184.   _UuidHash: Pointer;
  4186. function UuidHash;
  4187. begin
  4188.   GetProcedureAddress(_UuidHash, rpclib, 'UuidHash');
  4189.   asm
  4190.     mov esp, ebp
  4191.     pop ebp
  4192.     jmp [_UuidHash]
  4193.   end;
  4194. end;
  4195. {$ELSE}
  4196. function UuidHash; external rpclib name 'UuidHash';
  4197. {$ENDIF DYNAMIC_LINK}
  4199. {$IFDEF DYNAMIC_LINK}
  4200. var
  4201.   _UuidIsNil: Pointer;
  4203. function UuidIsNil;
  4204. begin
  4205.   GetProcedureAddress(_UuidIsNil, rpclib, 'UuidIsNil');
  4206.   asm
  4207.     mov esp, ebp
  4208.     pop ebp
  4209.     jmp [_UuidIsNil]
  4210.   end;
  4211. end;
  4212. {$ELSE}
  4213. function UuidIsNil; external rpclib name 'UuidIsNil';
  4214. {$ENDIF DYNAMIC_LINK}
  4216. {$IFDEF DYNAMIC_LINK}
  4217. var
  4218.   _RpcEpRegisterNoReplaceA: Pointer;
  4220. function RpcEpRegisterNoReplaceA;
  4221. begin
  4222.   GetProcedureAddress(_RpcEpRegisterNoReplaceA, rpclib, 'RpcEpRegisterNoReplaceA');
  4223.   asm
  4224.     mov esp, ebp
  4225.     pop ebp
  4226.     jmp [_RpcEpRegisterNoReplaceA]
  4227.   end;
  4228. end;
  4229. {$ELSE}
  4230. function RpcEpRegisterNoReplaceA; external rpclib name 'RpcEpRegisterNoReplaceA';
  4231. {$ENDIF DYNAMIC_LINK}
  4233. {$IFDEF DYNAMIC_LINK}
  4234. var
  4235.   _RpcEpRegisterNoReplaceW: Pointer;
  4237. function RpcEpRegisterNoReplaceW;
  4238. begin
  4239.   GetProcedureAddress(_RpcEpRegisterNoReplaceW, rpclib, 'RpcEpRegisterNoReplaceW');
  4240.   asm
  4241.     mov esp, ebp
  4242.     pop ebp
  4243.     jmp [_RpcEpRegisterNoReplaceW]
  4244.   end;
  4245. end;
  4246. {$ELSE}
  4247. function RpcEpRegisterNoReplaceW; external rpclib name 'RpcEpRegisterNoReplaceW';
  4248. {$ENDIF DYNAMIC_LINK}
  4249. {$IFDEF UNICODE}
  4251. {$IFDEF DYNAMIC_LINK}
  4252. var
  4253.   _RpcEpRegisterNoReplace: Pointer;
  4255. function RpcEpRegisterNoReplace;
  4256. begin
  4257.   GetProcedureAddress(_RpcEpRegisterNoReplace, rpclib, 'RpcEpRegisterNoReplaceW');
  4258.   asm
  4259.     mov esp, ebp
  4260.     pop ebp
  4261.     jmp [_RpcEpRegisterNoReplace]
  4262.   end;
  4263. end;
  4264. {$ELSE}
  4265. function RpcEpRegisterNoReplace; external rpclib name 'RpcEpRegisterNoReplaceW';
  4266. {$ENDIF DYNAMIC_LINK}
  4267. {$ELSE}
  4269. {$IFDEF DYNAMIC_LINK}
  4270. var
  4271.   _RpcEpRegisterNoReplace: Pointer;
  4273. function RpcEpRegisterNoReplace;
  4274. begin
  4275.   GetProcedureAddress(_RpcEpRegisterNoReplace, rpclib, 'RpcEpRegisterNoReplaceA');
  4276.   asm
  4277.     mov esp, ebp
  4278.     pop ebp
  4279.     jmp [_RpcEpRegisterNoReplace]
  4280.   end;
  4281. end;
  4282. {$ELSE}
  4283. function RpcEpRegisterNoReplace; external rpclib name 'RpcEpRegisterNoReplaceA';
  4284. {$ENDIF DYNAMIC_LINK}
  4285. {$ENDIF}
  4287. {$IFDEF DYNAMIC_LINK}
  4288. var
  4289.   _RpcEpRegisterA: Pointer;
  4291. function RpcEpRegisterA;
  4292. begin
  4293.   GetProcedureAddress(_RpcEpRegisterA, rpclib, 'RpcEpRegisterA');
  4294.   asm
  4295.     mov esp, ebp
  4296.     pop ebp
  4297.     jmp [_RpcEpRegisterA]
  4298.   end;
  4299. end;
  4300. {$ELSE}
  4301. function RpcEpRegisterA; external rpclib name 'RpcEpRegisterA';
  4302. {$ENDIF DYNAMIC_LINK}
  4304. {$IFDEF DYNAMIC_LINK}
  4305. var
  4306.   _RpcEpRegisterW: Pointer;
  4308. function RpcEpRegisterW;
  4309. begin
  4310.   GetProcedureAddress(_RpcEpRegisterW, rpclib, 'RpcEpRegisterW');
  4311.   asm
  4312.     mov esp, ebp
  4313.     pop ebp
  4314.     jmp [_RpcEpRegisterW]
  4315.   end;
  4316. end;
  4317. {$ELSE}
  4318. function RpcEpRegisterW; external rpclib name 'RpcEpRegisterW';
  4319. {$ENDIF DYNAMIC_LINK}
  4320. {$IFDEF UNICODE}
  4322. {$IFDEF DYNAMIC_LINK}
  4323. var
  4324.   _RpcEpRegister: Pointer;
  4326. function RpcEpRegister;
  4327. begin
  4328.   GetProcedureAddress(_RpcEpRegister, rpclib, 'RpcEpRegisterW');
  4329.   asm
  4330.     mov esp, ebp
  4331.     pop ebp
  4332.     jmp [_RpcEpRegister]
  4333.   end;
  4334. end;
  4335. {$ELSE}
  4336. function RpcEpRegister; external rpclib name 'RpcEpRegisterW';
  4337. {$ENDIF DYNAMIC_LINK}
  4338. {$ELSE}
  4340. {$IFDEF DYNAMIC_LINK}
  4341. var
  4342.   _RpcEpRegister: Pointer;
  4344. function RpcEpRegister;
  4345. begin
  4346.   GetProcedureAddress(_RpcEpRegister, rpclib, 'RpcEpRegisterA');
  4347.   asm
  4348.     mov esp, ebp
  4349.     pop ebp
  4350.     jmp [_RpcEpRegister]
  4351.   end;
  4352. end;
  4353. {$ELSE}
  4354. function RpcEpRegister; external rpclib name 'RpcEpRegisterA';
  4355. {$ENDIF DYNAMIC_LINK}
  4356. {$ENDIF}
  4358. {$IFDEF DYNAMIC_LINK}
  4359. var
  4360.   _RpcEpUnregister: Pointer;
  4362. function RpcEpUnregister;
  4363. begin
  4364.   GetProcedureAddress(_RpcEpUnregister, rpclib, 'RpcEpUnregister');
  4365.   asm
  4366.     mov esp, ebp
  4367.     pop ebp
  4368.     jmp [_RpcEpUnregister]
  4369.   end;
  4370. end;
  4371. {$ELSE}
  4372. function RpcEpUnregister; external rpclib name 'RpcEpUnregister';
  4373. {$ENDIF DYNAMIC_LINK}
  4375. {$IFDEF DYNAMIC_LINK}
  4376. var
  4377.   _DceErrorInqTextA: Pointer;
  4379. function DceErrorInqTextA;
  4380. begin
  4381.   GetProcedureAddress(_DceErrorInqTextA, rpclib, 'DceErrorInqTextA');
  4382.   asm
  4383.     mov esp, ebp
  4384.     pop ebp
  4385.     jmp [_DceErrorInqTextA]
  4386.   end;
  4387. end;
  4388. {$ELSE}
  4389. function DceErrorInqTextA; external rpclib name 'DceErrorInqTextA';
  4390. {$ENDIF DYNAMIC_LINK}
  4392. {$IFDEF DYNAMIC_LINK}
  4393. var
  4394.   _DceErrorInqTextW: Pointer;
  4396. function DceErrorInqTextW;
  4397. begin
  4398.   GetProcedureAddress(_DceErrorInqTextW, rpclib, 'DceErrorInqTextW');
  4399.   asm
  4400.     mov esp, ebp
  4401.     pop ebp
  4402.     jmp [_DceErrorInqTextW]
  4403.   end;
  4404. end;
  4405. {$ELSE}
  4406. function DceErrorInqTextW; external rpclib name 'DceErrorInqTextW';
  4407. {$ENDIF DYNAMIC_LINK}
  4408. {$IFDEF UNICODE}
  4410. {$IFDEF DYNAMIC_LINK}
  4411. var
  4412.   _DceErrorInqText: Pointer;
  4414. function DceErrorInqText;
  4415. begin
  4416.   GetProcedureAddress(_DceErrorInqText, rpclib, 'DceErrorInqTextW');
  4417.   asm
  4418.     mov esp, ebp
  4419.     pop ebp
  4420.     jmp [_DceErrorInqText]
  4421.   end;
  4422. end;
  4423. {$ELSE}
  4424. function DceErrorInqText; external rpclib name 'DceErrorInqTextW';
  4425. {$ENDIF DYNAMIC_LINK}
  4426. {$ELSE}
  4428. {$IFDEF DYNAMIC_LINK}
  4429. var
  4430.   _DceErrorInqText: Pointer;
  4432. function DceErrorInqText;
  4433. begin
  4434.   GetProcedureAddress(_DceErrorInqText, rpclib, 'DceErrorInqTextA');
  4435.   asm
  4436.     mov esp, ebp
  4437.     pop ebp
  4438.     jmp [_DceErrorInqText]
  4439.   end;
  4440. end;
  4441. {$ELSE}
  4442. function DceErrorInqText; external rpclib name 'DceErrorInqTextA';
  4443. {$ENDIF DYNAMIC_LINK}
  4444. {$ENDIF}
  4446. {$IFDEF DYNAMIC_LINK}
  4447. var
  4448.   _RpcMgmtEpEltInqBegin: Pointer;
  4450. function RpcMgmtEpEltInqBegin;
  4451. begin
  4452.   GetProcedureAddress(_RpcMgmtEpEltInqBegin, rpclib, 'RpcMgmtEpEltInqBegin');
  4453.   asm
  4454.     mov esp, ebp
  4455.     pop ebp
  4456.     jmp [_RpcMgmtEpEltInqBegin]
  4457.   end;
  4458. end;
  4459. {$ELSE}
  4460. function RpcMgmtEpEltInqBegin; external rpclib name 'RpcMgmtEpEltInqBegin';
  4461. {$ENDIF DYNAMIC_LINK}
  4463. {$IFDEF DYNAMIC_LINK}
  4464. var
  4465.   _RpcMgmtEpEltInqDone: Pointer;
  4467. function RpcMgmtEpEltInqDone;
  4468. begin
  4469.   GetProcedureAddress(_RpcMgmtEpEltInqDone, rpclib, 'RpcMgmtEpEltInqDone');
  4470.   asm
  4471.     mov esp, ebp
  4472.     pop ebp
  4473.     jmp [_RpcMgmtEpEltInqDone]
  4474.   end;
  4475. end;
  4476. {$ELSE}
  4477. function RpcMgmtEpEltInqDone; external rpclib name 'RpcMgmtEpEltInqDone';
  4478. {$ENDIF DYNAMIC_LINK}
  4480. {$IFDEF DYNAMIC_LINK}
  4481. var
  4482.   _RpcMgmtEpEltInqNextA: Pointer;
  4484. function RpcMgmtEpEltInqNextA;
  4485. begin
  4486.   GetProcedureAddress(_RpcMgmtEpEltInqNextA, rpclib, 'RpcMgmtEpEltInqNextA');
  4487.   asm
  4488.     mov esp, ebp
  4489.     pop ebp
  4490.     jmp [_RpcMgmtEpEltInqNextA]
  4491.   end;
  4492. end;
  4493. {$ELSE}
  4494. function RpcMgmtEpEltInqNextA; external rpclib name 'RpcMgmtEpEltInqNextA';
  4495. {$ENDIF DYNAMIC_LINK}
  4497. {$IFDEF DYNAMIC_LINK}
  4498. var
  4499.   _RpcMgmtEpEltInqNextW: Pointer;
  4501. function RpcMgmtEpEltInqNextW;
  4502. begin
  4503.   GetProcedureAddress(_RpcMgmtEpEltInqNextW, rpclib, 'RpcMgmtEpEltInqNextW');
  4504.   asm
  4505.     mov esp, ebp
  4506.     pop ebp
  4507.     jmp [_RpcMgmtEpEltInqNextW]
  4508.   end;
  4509. end;
  4510. {$ELSE}
  4511. function RpcMgmtEpEltInqNextW; external rpclib name 'RpcMgmtEpEltInqNextW';
  4512. {$ENDIF DYNAMIC_LINK}
  4513. {$IFDEF UNICODE}
  4515. {$IFDEF DYNAMIC_LINK}
  4516. var
  4517.   _RpcMgmtEpEltInqNext: Pointer;
  4519. function RpcMgmtEpEltInqNext;
  4520. begin
  4521.   GetProcedureAddress(_RpcMgmtEpEltInqNext, rpclib, 'RpcMgmtEpEltInqNextW');
  4522.   asm
  4523.     mov esp, ebp
  4524.     pop ebp
  4525.     jmp [_RpcMgmtEpEltInqNext]
  4526.   end;
  4527. end;
  4528. {$ELSE}
  4529. function RpcMgmtEpEltInqNext; external rpclib name 'RpcMgmtEpEltInqNextW';
  4530. {$ENDIF DYNAMIC_LINK}
  4531. {$ELSE}
  4533. {$IFDEF DYNAMIC_LINK}
  4534. var
  4535.   _RpcMgmtEpEltInqNext: Pointer;
  4537. function RpcMgmtEpEltInqNext;
  4538. begin
  4539.   GetProcedureAddress(_RpcMgmtEpEltInqNext, rpclib, 'RpcMgmtEpEltInqNextA');
  4540.   asm
  4541.     mov esp, ebp
  4542.     pop ebp
  4543.     jmp [_RpcMgmtEpEltInqNext]
  4544.   end;
  4545. end;
  4546. {$ELSE}
  4547. function RpcMgmtEpEltInqNext; external rpclib name 'RpcMgmtEpEltInqNextA';
  4548. {$ENDIF DYNAMIC_LINK}
  4549. {$ENDIF}
  4551. {$IFDEF DYNAMIC_LINK}
  4552. var
  4553.   _RpcMgmtEpUnregister: Pointer;
  4555. function RpcMgmtEpUnregister;
  4556. begin
  4557.   GetProcedureAddress(_RpcMgmtEpUnregister, rpclib, 'RpcMgmtEpUnregister');
  4558.   asm
  4559.     mov esp, ebp
  4560.     pop ebp
  4561.     jmp [_RpcMgmtEpUnregister]
  4562.   end;
  4563. end;
  4564. {$ELSE}
  4565. function RpcMgmtEpUnregister; external rpclib name 'RpcMgmtEpUnregister';
  4566. {$ENDIF DYNAMIC_LINK}
  4568. {$IFDEF DYNAMIC_LINK}
  4569. var
  4570.   _RpcMgmtSetAuthorizationFn: Pointer;
  4572. function RpcMgmtSetAuthorizationFn;
  4573. begin
  4574.   GetProcedureAddress(_RpcMgmtSetAuthorizationFn, rpclib, 'RpcMgmtSetAuthorizationFn');
  4575.   asm
  4576.     mov esp, ebp
  4577.     pop ebp
  4578.     jmp [_RpcMgmtSetAuthorizationFn]
  4579.   end;
  4580. end;
  4581. {$ELSE}
  4582. function RpcMgmtSetAuthorizationFn; external rpclib name 'RpcMgmtSetAuthorizationFn';
  4583. {$ENDIF DYNAMIC_LINK}
  4585. end.