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

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

Windows编程

开发平台：

Delphi

JwaRpcNsi.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { RPC NSI 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: rpcnsi.h, released June 2000. The original Pascal      }
  9. { code is: RpcNsi.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 JwaRpcNsi;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "RpcNsi.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaRpc, JwaRpcDce, JwaWinType{todo only here for GetProcedureAddress};
  59. type
  60.   RPC_NS_HANDLE = Pointer;
  61.   {$EXTERNALSYM RPC_NS_HANDLE}
  63. const
  64.   RPC_C_NS_SYNTAX_DEFAULT = 0;
  65.   {$EXTERNALSYM RPC_C_NS_SYNTAX_DEFAULT}
  66.   RPC_C_NS_SYNTAX_DCE = 3;
  67.   {$EXTERNALSYM RPC_C_NS_SYNTAX_DCE}
  69.   RPC_C_PROFILE_DEFAULT_ELT = 0;
  70.   {$EXTERNALSYM RPC_C_PROFILE_DEFAULT_ELT}
  71.   RPC_C_PROFILE_ALL_ELT = 1;
  72.   {$EXTERNALSYM RPC_C_PROFILE_ALL_ELT}
  73.   RPC_C_PROFILE_ALL_ELTS = RPC_C_PROFILE_ALL_ELT;
  74.   {$EXTERNALSYM RPC_C_PROFILE_ALL_ELTS}
  75.   RPC_C_PROFILE_MATCH_BY_IF = 2;
  76.   {$EXTERNALSYM RPC_C_PROFILE_MATCH_BY_IF}
  77.   RPC_C_PROFILE_MATCH_BY_MBR = 3;
  78.   {$EXTERNALSYM RPC_C_PROFILE_MATCH_BY_MBR}
  79.   RPC_C_PROFILE_MATCH_BY_BOTH = 4;
  80.   {$EXTERNALSYM RPC_C_PROFILE_MATCH_BY_BOTH}
  82.   RPC_C_NS_DEFAULT_EXP_AGE = -1;
  83.   {$EXTERNALSYM RPC_C_NS_DEFAULT_EXP_AGE}
  85. // Server APIs
  87. function RpcNsBindingExportA(EntryNameSyntax: Longword; EntryName: PChar;
  88.   IfSpec: RPC_IF_HANDLE; BindingVec: PRPC_BINDING_VECTOR;
  89.   ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  90. {$EXTERNALSYM RpcNsBindingExportA}
  91. function RpcNsBindingExportW(EntryNameSyntax: Longword; EntryName: PWideChar;
  92.   IfSpec: RPC_IF_HANDLE; BindingVec: PRPC_BINDING_VECTOR;
  93.   ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  94. {$EXTERNALSYM RpcNsBindingExportW}
  96. {$IFDEF UNICODE}
  97. function RpcNsBindingExport(EntryNameSyntax: Longword; EntryName: PWideChar;
  98.   IfSpec: RPC_IF_HANDLE; BindingVec: PRPC_BINDING_VECTOR;
  99.   ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  100. {$EXTERNALSYM RpcNsBindingExport}
  101. {$ELSE}
  102. function RpcNsBindingExport(EntryNameSyntax: Longword; EntryName: PChar;
  103.   IfSpec: RPC_IF_HANDLE; BindingVec: PRPC_BINDING_VECTOR;
  104.   ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  105. {$EXTERNALSYM RpcNsBindingExport}
  106. {$ENDIF}
  108. function RpcNsBindingUnexportA(EntryNameSyntax: Longword; EntryName: PChar;
  109.   IfSpec: RPC_IF_HANDLE; ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  110. {$EXTERNALSYM RpcNsBindingUnexportA}
  111. function RpcNsBindingUnexportW(EntryNameSyntax: Longword; EntryName: PWideChar;
  112.   IfSpec: RPC_IF_HANDLE; ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  113. {$EXTERNALSYM RpcNsBindingUnexportW}
  115. {$IFDEF UNICODE}
  116. function RpcNsBindingUnexport(EntryNameSyntax: Longword; EntryName: PWideChar;
  117.   IfSpec: RPC_IF_HANDLE; ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  118. {$EXTERNALSYM RpcNsBindingUnexport}
  119. {$ELSE}
  120. function RpcNsBindingUnexport(EntryNameSyntax: Longword; EntryName: PChar;
  121.   IfSpec: RPC_IF_HANDLE; ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  122. {$EXTERNALSYM RpcNsBindingUnexport}
  123. {$ENDIF}
  125. // Server PnP APIs
  127. function RpcNsBindingExportPnPA(EntryNameSyntax: Longword; EntryName: PChar;
  128.   IfSpec: RPC_IF_HANDLE; ObjectVector: PUUID_VECTOR): RPC_STATUS; stdcall;
  129. {$EXTERNALSYM RpcNsBindingExportPnPA}
  130. function RpcNsBindingExportPnPW(EntryNameSyntax: Longword; EntryName: PWideChar;
  131.   IfSpec: RPC_IF_HANDLE; ObjectVector: PUUID_VECTOR): RPC_STATUS; stdcall;
  132. {$EXTERNALSYM RpcNsBindingExportPnPW}
  134. {$IFDEF UNICODE}
  135. function RpcNsBindingExportPnP(EntryNameSyntax: Longword; EntryName: PWideChar;
  136.   IfSpec: RPC_IF_HANDLE; ObjectVector: PUUID_VECTOR): RPC_STATUS; stdcall;
  137. {$EXTERNALSYM RpcNsBindingExportPnP}
  138. {$ELSE}
  139. function RpcNsBindingExportPnP(EntryNameSyntax: Longword; EntryName: PChar;
  140.   IfSpec: RPC_IF_HANDLE; ObjectVector: PUUID_VECTOR): RPC_STATUS; stdcall;
  141. {$EXTERNALSYM RpcNsBindingExportPnP}
  142. {$ENDIF}
  144. function RpcNsBindingUnexportPnPA(EntryNameSyntax: Longword; EntryName: PChar;
  145.   IfSpec: RPC_IF_HANDLE; ObjectVector: PUUID_VECTOR): RPC_STATUS; stdcall;
  146. {$EXTERNALSYM RpcNsBindingUnexportPnPA}
  147. function RpcNsBindingUnexportPnPW(EntryNameSyntax: Longword; EntryName: PWideChar;
  148.   IfSpec: RPC_IF_HANDLE; ObjectVector: PUUID_VECTOR): RPC_STATUS; stdcall;
  149. {$EXTERNALSYM RpcNsBindingUnexportPnPW}
  151. {$IFDEF UNICODE}
  152. function RpcNsBindingUnexportPnP(EntryNameSyntax: Longword; EntryName: PWideChar;
  153.   IfSpec: RPC_IF_HANDLE; ObjectVector: PUUID_VECTOR): RPC_STATUS; stdcall;
  154. {$EXTERNALSYM RpcNsBindingUnexportPnP}
  155. {$ELSE}
  156. function RpcNsBindingUnexportPnP(EntryNameSyntax: Longword; EntryName: PChar;
  157.   IfSpec: RPC_IF_HANDLE; ObjectVector: PUUID_VECTOR): RPC_STATUS; stdcall;
  158. {$EXTERNALSYM RpcNsBindingUnexportPnP}
  159. {$ENDIF}
  161. // Client APIs
  163. function RpcNsBindingLookupBeginA(EntryNameSyntax: Longword; EntryName: PChar;
  164.   IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; BindingMaxCount: Longword;
  165.   var LookupContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  166. {$EXTERNALSYM RpcNsBindingLookupBeginA}
  167. function RpcNsBindingLookupBeginW(EntryNameSyntax: Longword; EntryName: PWideChar;
  168.   IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; BindingMaxCount: Longword;
  169.   var LookupContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  170. {$EXTERNALSYM RpcNsBindingLookupBeginW}
  172. {$IFDEF UNICODE}
  173. function RpcNsBindingLookupBegin(EntryNameSyntax: Longword; EntryName: PWideChar;
  174.   IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; BindingMaxCount: Longword;
  175.   var LookupContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  176. {$EXTERNALSYM RpcNsBindingLookupBegin}
  177. {$ELSE}
  178. function RpcNsBindingLookupBegin(EntryNameSyntax: Longword; EntryName: PChar;
  179.   IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; BindingMaxCount: Longword;
  180.   var LookupContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  181. {$EXTERNALSYM RpcNsBindingLookupBegin}
  182. {$ENDIF}
  184. function RpcNsBindingLookupNext(LookupContext: RPC_NS_HANDLE;
  185.   var BindingVec: PRPC_BINDING_VECTOR): RPC_STATUS; stdcall;
  186. {$EXTERNALSYM RpcNsBindingLookupNext}
  188. function RpcNsBindingLookupDone(var LookupContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  189. {$EXTERNALSYM RpcNsBindingLookupDone}
  191. // Group APIs
  193. function RpcNsGroupDeleteA(GroupNameSyntax: Longword; GroupName: PChar): RPC_STATUS; stdcall;
  194. {$EXTERNALSYM RpcNsGroupDeleteA}
  195. function RpcNsGroupDeleteW(GroupNameSyntax: Longword; GroupName: PWideChar): RPC_STATUS; stdcall;
  196. {$EXTERNALSYM RpcNsGroupDeleteW}
  198. {$IFDEF UNICODE}
  199. function RpcNsGroupDelete(GroupNameSyntax: Longword; GroupName: PWideChar): RPC_STATUS; stdcall;
  200. {$EXTERNALSYM RpcNsGroupDelete}
  201. {$ELSE}
  202. function RpcNsGroupDelete(GroupNameSyntax: Longword; GroupName: PChar): RPC_STATUS; stdcall;
  203. {$EXTERNALSYM RpcNsGroupDelete}
  204. {$ENDIF}
  206. function RpcNsGroupMbrAddA(GroupNameSyntax: Longword; GroupName: PChar;
  207.   MemberNameSyntax: Longword; MemberName: PChar): RPC_STATUS; stdcall;
  208. {$EXTERNALSYM RpcNsGroupMbrAddA}
  209. function RpcNsGroupMbrAddW(GroupNameSyntax: Longword; GroupName: PWideChar;
  210.   MemberNameSyntax: Longword; MemberName: PWideChar): RPC_STATUS; stdcall;
  211. {$EXTERNALSYM RpcNsGroupMbrAddW}
  213. {$IFDEF UNICODE}
  214. function RpcNsGroupMbrAdd(GroupNameSyntax: Longword; GroupName: PWideChar;
  215.   MemberNameSyntax: Longword; MemberName: PWideChar): RPC_STATUS; stdcall;
  216. {$EXTERNALSYM RpcNsGroupMbrAdd}
  217. {$ELSE}
  218. function RpcNsGroupMbrAdd(GroupNameSyntax: Longword; GroupName: PChar;
  219.   MemberNameSyntax: Longword; MemberName: PChar): RPC_STATUS; stdcall;
  220. {$EXTERNALSYM RpcNsGroupMbrAdd}
  221. {$ENDIF}
  223. function RpcNsGroupMbrRemoveA(GroupNameSyntax: Longword; GroupName: PChar;
  224.   MemberNameSyntax: Longword; MemberName: PChar): RPC_STATUS; stdcall;
  225. {$EXTERNALSYM RpcNsGroupMbrRemoveA}
  226. function RpcNsGroupMbrRemoveW(GroupNameSyntax: Longword; GroupName: PWideChar;
  227.   MemberNameSyntax: Longword; MemberName: PWideChar): RPC_STATUS; stdcall;
  228. {$EXTERNALSYM RpcNsGroupMbrRemoveW}
  230. {$IFDEF UNICODE}
  231. function RpcNsGroupMbrRemove(GroupNameSyntax: Longword; GroupName: PWideChar;
  232.   MemberNameSyntax: Longword; MemberName: PWideChar): RPC_STATUS; stdcall;
  233. {$EXTERNALSYM RpcNsGroupMbrRemove}
  234. {$ELSE}
  235. function RpcNsGroupMbrRemove(GroupNameSyntax: Longword; GroupName: PChar;
  236.   MemberNameSyntax: Longword; MemberName: PChar): RPC_STATUS; stdcall;
  237. {$EXTERNALSYM RpcNsGroupMbrRemove}
  238. {$ENDIF}
  240. function RpcNsGroupMbrInqBeginA(GroupNameSyntax: Longword; GroupName: PChar;
  241.   MemberNameSyntax: Longword; var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  242. {$EXTERNALSYM RpcNsGroupMbrInqBeginA}
  243. function RpcNsGroupMbrInqBeginW(GroupNameSyntax: Longword; GroupName: PWideChar;
  244.   MemberNameSyntax: Longword; var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  245. {$EXTERNALSYM RpcNsGroupMbrInqBeginW}
  247. {$IFDEF UNICODE}
  248. function RpcNsGroupMbrInqBegin(GroupNameSyntax: Longword; GroupName: PWideChar;
  249.   MemberNameSyntax: Longword; var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  250. {$EXTERNALSYM RpcNsGroupMbrInqBegin}
  251. {$ELSE}
  252. function RpcNsGroupMbrInqBegin(GroupNameSyntax: Longword; GroupName: PChar;
  253.   MemberNameSyntax: Longword; var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  254. {$EXTERNALSYM RpcNsGroupMbrInqBegin}
  255. {$ENDIF}
  257. function RpcNsGroupMbrInqNextA(InquiryContext: RPC_NS_HANDLE; MemberName: PPChar): RPC_STATUS; stdcall;
  258. {$EXTERNALSYM RpcNsGroupMbrInqNextA}
  259. function RpcNsGroupMbrInqNextW(InquiryContext: RPC_NS_HANDLE; MemberName: PPWideChar): RPC_STATUS; stdcall;
  260. {$EXTERNALSYM RpcNsGroupMbrInqNextW}
  262. {$IFDEF UNICODE}
  263. function RpcNsGroupMbrInqNext(InquiryContext: RPC_NS_HANDLE; MemberName: PPWideChar): RPC_STATUS; stdcall;
  264. {$EXTERNALSYM RpcNsGroupMbrInqNext}
  265. {$ELSE}
  266. function RpcNsGroupMbrInqNext(InquiryContext: RPC_NS_HANDLE; MemberName: PPChar): RPC_STATUS; stdcall;
  267. {$EXTERNALSYM RpcNsGroupMbrInqNext}
  268. {$ENDIF}
  270. function RpcNsGroupMbrInqDone(var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  271. {$EXTERNALSYM RpcNsGroupMbrInqDone}
  273. // Profile APIs
  275. function RpcNsProfileDeleteA(ProfileNameSyntax: Longword; ProfileName: PChar): RPC_STATUS; stdcall;
  276. {$EXTERNALSYM RpcNsProfileDeleteA}
  277. function RpcNsProfileDeleteW(ProfileNameSyntax: Longword; ProfileName: PWideChar): RPC_STATUS; stdcall;
  278. {$EXTERNALSYM RpcNsProfileDeleteW}
  280. {$IFDEF UNICODE}
  281. function RpcNsProfileDelete(ProfileNameSyntax: Longword; ProfileName: PWideChar): RPC_STATUS; stdcall;
  282. {$EXTERNALSYM RpcNsProfileDelete}
  283. {$ELSE}
  284. function RpcNsProfileDelete(ProfileNameSyntax: Longword; ProfileName: PChar): RPC_STATUS; stdcall;
  285. {$EXTERNALSYM RpcNsProfileDelete}
  286. {$ENDIF}
  288. function RpcNsProfileEltAddA(ProfileNameSyntax: Longword; ProfileName: PChar;
  289.   IfId: PRPC_IF_ID; MemberNameSyntax: Longword; MemberName: PChar;
  290.   Priority: Longword; Annotation: PChar): RPC_STATUS; stdcall;
  291. {$EXTERNALSYM RpcNsProfileEltAddA}
  292. function RpcNsProfileEltAddW(ProfileNameSyntax: Longword; ProfileName: PWideChar;
  293.   IfId: PRPC_IF_ID; MemberNameSyntax: Longword; MemberName: PWideChar;
  294.   Priority: Longword; Annotation: PWideChar): RPC_STATUS; stdcall;
  295. {$EXTERNALSYM RpcNsProfileEltAddW}
  297. {$IFDEF UNICODE}
  298. function RpcNsProfileEltAdd(ProfileNameSyntax: Longword; ProfileName: PWideChar;
  299.   IfId: PRPC_IF_ID; MemberNameSyntax: Longword; MemberName: PWideChar;
  300.   Priority: Longword; Annotation: PWideChar): RPC_STATUS; stdcall;
  301. {$EXTERNALSYM RpcNsProfileEltAdd}
  302. {$ELSE}
  303. function RpcNsProfileEltAdd(ProfileNameSyntax: Longword; ProfileName: PChar;
  304.   IfId: PRPC_IF_ID; MemberNameSyntax: Longword; MemberName: PChar;
  305.   Priority: Longword; Annotation: PChar): RPC_STATUS; stdcall;
  306. {$EXTERNALSYM RpcNsProfileEltAdd}
  307. {$ENDIF}
  309. function RpcNsProfileEltRemoveA(ProfileNameSyntax: Longword; ProfileName: PChar;
  310.   IfId: PRPC_IF_ID; MemberNameSyntax: Longword; MemberName: PChar): RPC_STATUS; stdcall;
  311. {$EXTERNALSYM RpcNsProfileEltRemoveA}
  312. function RpcNsProfileEltRemoveW(ProfileNameSyntax: Longword; ProfileName: PWideChar;
  313.   IfId: PRPC_IF_ID; MemberNameSyntax: Longword; MemberName: PWideChar): RPC_STATUS; stdcall;
  314. {$EXTERNALSYM RpcNsProfileEltRemoveW}
  316. {$IFDEF UNICODE}
  317. function RpcNsProfileEltRemove(ProfileNameSyntax: Longword; ProfileName: PWideChar;
  318.   IfId: PRPC_IF_ID; MemberNameSyntax: Longword; MemberName: PWideChar): RPC_STATUS; stdcall;
  319. {$EXTERNALSYM RpcNsProfileEltRemove}
  320. {$ELSE}
  321. function RpcNsProfileEltRemove(ProfileNameSyntax: Longword; ProfileName: PChar;
  322.   IfId: PRPC_IF_ID; MemberNameSyntax: Longword; MemberName: PChar): RPC_STATUS; stdcall;
  323. {$EXTERNALSYM RpcNsProfileEltRemove}
  324. {$ENDIF}
  326. function RpcNsProfileEltInqBeginA(ProfileNameSyntax: Longword; ProfileName: PChar;
  327.   InquiryType: Longword; IfId: PRPC_IF_ID; VersOption, MemberNameSyntax: Longword;
  328.   MemberName: PChar; var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  329. {$EXTERNALSYM RpcNsProfileEltInqBeginA}
  330. function RpcNsProfileEltInqBeginW(ProfileNameSyntax: Longword; ProfileName: PWideChar;
  331.   InquiryType: Longword; IfId: PRPC_IF_ID; VersOption, MemberNameSyntax: Longword;
  332.   MemberName: PWideChar; var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  333. {$EXTERNALSYM RpcNsProfileEltInqBeginW}
  335. {$IFDEF UNICODE}
  336. function RpcNsProfileEltInqBegin(ProfileNameSyntax: Longword; ProfileName: PWideChar;
  337.   InquiryType: Longword; IfId: PRPC_IF_ID; VersOption, MemberNameSyntax: Longword;
  338.   MemberName: PWideChar; var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  339. {$EXTERNALSYM RpcNsProfileEltInqBegin}
  340. {$ELSE}
  341. function RpcNsProfileEltInqBegin(ProfileNameSyntax: Longword; ProfileName: PChar;
  342.   InquiryType: Longword; IfId: PRPC_IF_ID; VersOption, MemberNameSyntax: Longword;
  343.   MemberName: PChar; var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  344. {$EXTERNALSYM RpcNsProfileEltInqBegin}
  345. {$ENDIF}
  347. function RpcNsProfileEltInqNextA(InquiryContext: RPC_NS_HANDLE; var IfId: RPC_IF_ID;
  348.   MemberName: PPChar; var Priority: Longword; Annotation: PPChar): RPC_STATUS; stdcall;
  349. {$EXTERNALSYM RpcNsProfileEltInqNextA}
  350. function RpcNsProfileEltInqNextW(InquiryContext: RPC_NS_HANDLE; var IfId: RPC_IF_ID;
  351.   MemberName: PPWideChar; var Priority: Longword; Annotation: PPWideChar): RPC_STATUS; stdcall;
  352. {$EXTERNALSYM RpcNsProfileEltInqNextW}
  354. {$IFDEF UNICODE}
  355. function RpcNsProfileEltInqNext(InquiryContext: RPC_NS_HANDLE; var IfId: RPC_IF_ID;
  356.   MemberName: PPWideChar; var Priority: Longword; Annotation: PPWideChar): RPC_STATUS; stdcall;
  357. {$EXTERNALSYM RpcNsProfileEltInqNext}
  358. {$ELSE}
  359. function RpcNsProfileEltInqNext(InquiryContext: RPC_NS_HANDLE; var IfId: RPC_IF_ID;
  360.   MemberName: PPChar; var Priority: Longword; Annotation: PPChar): RPC_STATUS; stdcall;
  361. {$EXTERNALSYM RpcNsProfileEltInqNext}
  362. {$ENDIF}
  364. function RpcNsProfileEltInqDone(var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  365. {$EXTERNALSYM RpcNsProfileEltInqDone}
  367. // Entry object APIs
  369. function RpcNsEntryObjectInqBeginA(EntryNameSyntax: Longword; EntryName: PChar;
  370.   var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  371. {$EXTERNALSYM RpcNsEntryObjectInqBeginA}
  372. function RpcNsEntryObjectInqBeginW(EntryNameSyntax: Longword; EntryName: PWideChar;
  373.   var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  374. {$EXTERNALSYM RpcNsEntryObjectInqBeginW}
  376. {$IFDEF UNICODE}
  377. function RpcNsEntryObjectInqBegin(EntryNameSyntax: Longword; EntryName: PWideChar;
  378.   var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  379. {$EXTERNALSYM RpcNsEntryObjectInqBegin}
  380. {$ELSE}
  381. function RpcNsEntryObjectInqBegin(EntryNameSyntax: Longword; EntryName: PChar;
  382.   var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  383. {$EXTERNALSYM RpcNsEntryObjectInqBegin}
  384. {$ENDIF}
  386. function RpcNsEntryObjectInqNext(InquiryContext: RPC_NS_HANDLE; ObjUuid: PUUID): RPC_STATUS; stdcall;
  387. {$EXTERNALSYM RpcNsEntryObjectInqNext}
  389. function RpcNsEntryObjectInqDone(var InquiryContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  390. {$EXTERNALSYM RpcNsEntryObjectInqDone}
  392. // Management and MISC APIs
  394. function RpcNsEntryExpandNameA(EntryNameSyntax: Longword; EntryName: PChar;
  395.   var ExpandedName: PChar): RPC_STATUS; stdcall;
  396. {$EXTERNALSYM RpcNsEntryExpandNameA}
  397. function RpcNsEntryExpandNameW(EntryNameSyntax: Longword; EntryName: PWideChar;
  398.   var ExpandedName: PWideChar): RPC_STATUS; stdcall;
  399. {$EXTERNALSYM RpcNsEntryExpandNameW}
  401. {$IFDEF UNICODE}
  402. function RpcNsEntryExpandName(EntryNameSyntax: Longword; EntryName: PWideChar;
  403.   var ExpandedName: PWideChar): RPC_STATUS; stdcall;
  404. {$EXTERNALSYM RpcNsEntryExpandName}
  405. {$ELSE}
  406. function RpcNsEntryExpandName(EntryNameSyntax: Longword; EntryName: PChar;
  407.   var ExpandedName: PChar): RPC_STATUS; stdcall;
  408. {$EXTERNALSYM RpcNsEntryExpandName}
  409. {$ENDIF}
  411. function RpcNsMgmtBindingUnexportA(EntryNameSyntax: Longword; EntryName: PChar;
  412.   IfId: PRPC_IF_ID; VersOption: Longword; ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  413. {$EXTERNALSYM RpcNsMgmtBindingUnexportA}
  414. function RpcNsMgmtBindingUnexportW(EntryNameSyntax: Longword; EntryName: PWideChar;
  415.   IfId: PRPC_IF_ID; VersOption: Longword; ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  416. {$EXTERNALSYM RpcNsMgmtBindingUnexportW}
  418. {$IFDEF UNICODE}
  419. function RpcNsMgmtBindingUnexport(EntryNameSyntax: Longword; EntryName: PWideChar;
  420.   IfId: PRPC_IF_ID; VersOption: Longword; ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  421. {$EXTERNALSYM RpcNsMgmtBindingUnexport}
  422. {$ELSE}
  423. function RpcNsMgmtBindingUnexport(EntryNameSyntax: Longword; EntryName: PChar;
  424.   IfId: PRPC_IF_ID; VersOption: Longword; ObjectUuidVec: PUUID_VECTOR): RPC_STATUS; stdcall;
  425. {$EXTERNALSYM RpcNsMgmtBindingUnexport}
  426. {$ENDIF}
  428. function RpcNsMgmtEntryCreateA(EntryNameSyntax: Longword; EntryName: PChar): RPC_STATUS; stdcall;
  429. {$EXTERNALSYM RpcNsMgmtEntryCreateA}
  430. function RpcNsMgmtEntryCreateW(EntryNameSyntax: Longword; EntryName: PWideChar): RPC_STATUS; stdcall;
  431. {$EXTERNALSYM RpcNsMgmtEntryCreateW}
  433. {$IFDEF UNICODE}
  434. function RpcNsMgmtEntryCreate(EntryNameSyntax: Longword; EntryName: PWideChar): RPC_STATUS; stdcall;
  435. {$EXTERNALSYM RpcNsMgmtEntryCreate}
  436. {$ELSE}
  437. function RpcNsMgmtEntryCreate(EntryNameSyntax: Longword; EntryName: PChar): RPC_STATUS; stdcall;
  438. {$EXTERNALSYM RpcNsMgmtEntryCreate}
  439. {$ENDIF}
  441. function RpcNsMgmtEntryDeleteA(EntryNameSyntax: Longword; EntryName: PChar): RPC_STATUS; stdcall;
  442. {$EXTERNALSYM RpcNsMgmtEntryDeleteA}
  443. function RpcNsMgmtEntryDeleteW(EntryNameSyntax: Longword; EntryName: PWideChar): RPC_STATUS; stdcall;
  444. {$EXTERNALSYM RpcNsMgmtEntryDeleteW}
  446. {$IFDEF UNICODE}
  447. function RpcNsMgmtEntryDelete(EntryNameSyntax: Longword; EntryName: PWideChar): RPC_STATUS; stdcall;
  448. {$EXTERNALSYM RpcNsMgmtEntryDelete}
  449. {$ELSE}
  450. function RpcNsMgmtEntryDelete(EntryNameSyntax: Longword; EntryName: PChar): RPC_STATUS; stdcall;
  451. {$EXTERNALSYM RpcNsMgmtEntryDelete}
  452. {$ENDIF}
  454. function RpcNsMgmtEntryInqIfIdsA(EntryNameSyntax: Longword; EntryName: PChar;
  455.   var IfIdVec: PRPC_IF_ID_VECTOR): RPC_STATUS; stdcall;
  456. {$EXTERNALSYM RpcNsMgmtEntryInqIfIdsA}
  457. function RpcNsMgmtEntryInqIfIdsW(EntryNameSyntax: Longword; EntryName: PWideChar;
  458.   var IfIdVec: PRPC_IF_ID_VECTOR): RPC_STATUS; stdcall;
  459. {$EXTERNALSYM RpcNsMgmtEntryInqIfIdsW}
  461. {$IFDEF UNICODE}
  462. function RpcNsMgmtEntryInqIfIds(EntryNameSyntax: Longword; EntryName: PWideChar;
  463.   var IfIdVec: PRPC_IF_ID_VECTOR): RPC_STATUS; stdcall;
  464. {$EXTERNALSYM RpcNsMgmtEntryInqIfIds}
  465. {$ELSE}
  466. function RpcNsMgmtEntryInqIfIds(EntryNameSyntax: Longword; EntryName: PChar;
  467.   var IfIdVec: PRPC_IF_ID_VECTOR): RPC_STATUS; stdcall;
  468. {$EXTERNALSYM RpcNsMgmtEntryInqIfIds}
  469. {$ENDIF}
  471. function RpcNsMgmtHandleSetExpAge(NsHandle: RPC_NS_HANDLE;
  472.   ExpirationAge: Longword): RPC_STATUS; stdcall;
  473. {$EXTERNALSYM RpcNsMgmtHandleSetExpAge}
  475. function RpcNsMgmtInqExpAge(var ExpirationAge: Longword): RPC_STATUS; stdcall;
  476. {$EXTERNALSYM RpcNsMgmtInqExpAge}
  478. function RpcNsMgmtSetExpAge(ExpirationAge: Longword): RPC_STATUS; stdcall;
  479. {$EXTERNALSYM RpcNsMgmtSetExpAge}
  481. // Client API's implemented in wrappers.
  483. function RpcNsBindingImportBeginA(EntryNameSyntax: Longword; EntryName: PChar;
  484.   IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; var ImportContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  485. {$EXTERNALSYM RpcNsBindingImportBeginA}
  486. function RpcNsBindingImportBeginW(EntryNameSyntax: Longword; EntryName: PWideChar;
  487.   IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; var ImportContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  488. {$EXTERNALSYM RpcNsBindingImportBeginW}
  490. {$IFDEF UNICODE}
  491. function RpcNsBindingImportBegin(EntryNameSyntax: Longword; EntryName: PWideChar;
  492.   IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; var ImportContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  493. {$EXTERNALSYM RpcNsBindingImportBegin}
  494. {$ELSE}
  495. function RpcNsBindingImportBegin(EntryNameSyntax: Longword; EntryName: PChar;
  496.   IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; var ImportContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  497. {$EXTERNALSYM RpcNsBindingImportBegin}
  498. {$ENDIF}
  500. function RpcNsBindingImportNext(ImportContext: RPC_NS_HANDLE;
  501.   var Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  502. {$EXTERNALSYM RpcNsBindingImportNext}
  504. function RpcNsBindingImportDone(var ImportContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
  505. {$EXTERNALSYM RpcNsBindingImportDone}
  507. function RpcNsBindingSelect(BindingVec: PRPC_BINDING_VECTOR; var Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
  508. {$EXTERNALSYM RpcNsBindingSelect}
  510. implementation
  512. const
  513.   rpcns4 = 'rpcns4.dll';
  516. {$IFDEF DYNAMIC_LINK}
  517. var
  518.   _RpcNsBindingExportA: Pointer;
  520. function RpcNsBindingExportA;
  521. begin
  522.   GetProcedureAddress(_RpcNsBindingExportA, rpcns4, 'RpcNsBindingExportA');
  523.   asm
  524.     mov esp, ebp
  525.     pop ebp
  526.     jmp [_RpcNsBindingExportA]
  527.   end;
  528. end;
  529. {$ELSE}
  530. function RpcNsBindingExportA; external rpcns4 name 'RpcNsBindingExportA';
  531. {$ENDIF DYNAMIC_LINK}
  533. {$IFDEF DYNAMIC_LINK}
  534. var
  535.   _RpcNsBindingExportW: Pointer;
  537. function RpcNsBindingExportW;
  538. begin
  539.   GetProcedureAddress(_RpcNsBindingExportW, rpcns4, 'RpcNsBindingExportW');
  540.   asm
  541.     mov esp, ebp
  542.     pop ebp
  543.     jmp [_RpcNsBindingExportW]
  544.   end;
  545. end;
  546. {$ELSE}
  547. function RpcNsBindingExportW; external rpcns4 name 'RpcNsBindingExportW';
  548. {$ENDIF DYNAMIC_LINK}
  549. {$IFDEF UNICODE}
  551. {$IFDEF DYNAMIC_LINK}
  552. var
  553.   _RpcNsBindingExport: Pointer;
  555. function RpcNsBindingExport;
  556. begin
  557.   GetProcedureAddress(_RpcNsBindingExport, rpcns4, 'RpcNsBindingExportW');
  558.   asm
  559.     mov esp, ebp
  560.     pop ebp
  561.     jmp [_RpcNsBindingExport]
  562.   end;
  563. end;
  564. {$ELSE}
  565. function RpcNsBindingExport; external rpcns4 name 'RpcNsBindingExportW';
  566. {$ENDIF DYNAMIC_LINK}
  567. {$ELSE}
  569. {$IFDEF DYNAMIC_LINK}
  570. var
  571.   _RpcNsBindingExport: Pointer;
  573. function RpcNsBindingExport;
  574. begin
  575.   GetProcedureAddress(_RpcNsBindingExport, rpcns4, 'RpcNsBindingExportA');
  576.   asm
  577.     mov esp, ebp
  578.     pop ebp
  579.     jmp [_RpcNsBindingExport]
  580.   end;
  581. end;
  582. {$ELSE}
  583. function RpcNsBindingExport; external rpcns4 name 'RpcNsBindingExportA';
  584. {$ENDIF DYNAMIC_LINK}
  585. {$ENDIF}
  587. {$IFDEF DYNAMIC_LINK}
  588. var
  589.   _RpcNsBindingUnexportA: Pointer;
  591. function RpcNsBindingUnexportA;
  592. begin
  593.   GetProcedureAddress(_RpcNsBindingUnexportA, rpcns4, 'RpcNsBindingUnexportA');
  594.   asm
  595.     mov esp, ebp
  596.     pop ebp
  597.     jmp [_RpcNsBindingUnexportA]
  598.   end;
  599. end;
  600. {$ELSE}
  601. function RpcNsBindingUnexportA; external rpcns4 name 'RpcNsBindingUnexportA';
  602. {$ENDIF DYNAMIC_LINK}
  604. {$IFDEF DYNAMIC_LINK}
  605. var
  606.   _RpcNsBindingUnexportW: Pointer;
  608. function RpcNsBindingUnexportW;
  609. begin
  610.   GetProcedureAddress(_RpcNsBindingUnexportW, rpcns4, 'RpcNsBindingUnexportW');
  611.   asm
  612.     mov esp, ebp
  613.     pop ebp
  614.     jmp [_RpcNsBindingUnexportW]
  615.   end;
  616. end;
  617. {$ELSE}
  618. function RpcNsBindingUnexportW; external rpcns4 name 'RpcNsBindingUnexportW';
  619. {$ENDIF DYNAMIC_LINK}
  620. {$IFDEF UNICODE}
  622. {$IFDEF DYNAMIC_LINK}
  623. var
  624.   _RpcNsBindingUnexport: Pointer;
  626. function RpcNsBindingUnexport;
  627. begin
  628.   GetProcedureAddress(_RpcNsBindingUnexport, rpcns4, 'RpcNsBindingUnexportW');
  629.   asm
  630.     mov esp, ebp
  631.     pop ebp
  632.     jmp [_RpcNsBindingUnexport]
  633.   end;
  634. end;
  635. {$ELSE}
  636. function RpcNsBindingUnexport; external rpcns4 name 'RpcNsBindingUnexportW';
  637. {$ENDIF DYNAMIC_LINK}
  638. {$ELSE}
  640. {$IFDEF DYNAMIC_LINK}
  641. var
  642.   _RpcNsBindingUnexport: Pointer;
  644. function RpcNsBindingUnexport;
  645. begin
  646.   GetProcedureAddress(_RpcNsBindingUnexport, rpcns4, 'RpcNsBindingUnexportA');
  647.   asm
  648.     mov esp, ebp
  649.     pop ebp
  650.     jmp [_RpcNsBindingUnexport]
  651.   end;
  652. end;
  653. {$ELSE}
  654. function RpcNsBindingUnexport; external rpcns4 name 'RpcNsBindingUnexportA';
  655. {$ENDIF DYNAMIC_LINK}
  656. {$ENDIF}
  658. {$IFDEF DYNAMIC_LINK}
  659. var
  660.   _RpcNsBindingExportPnPA: Pointer;
  662. function RpcNsBindingExportPnPA;
  663. begin
  664.   GetProcedureAddress(_RpcNsBindingExportPnPA, rpcns4, 'RpcNsBindingExportPnPA');
  665.   asm
  666.     mov esp, ebp
  667.     pop ebp
  668.     jmp [_RpcNsBindingExportPnPA]
  669.   end;
  670. end;
  671. {$ELSE}
  672. function RpcNsBindingExportPnPA; external rpcns4 name 'RpcNsBindingExportPnPA';
  673. {$ENDIF DYNAMIC_LINK}
  675. {$IFDEF DYNAMIC_LINK}
  676. var
  677.   _RpcNsBindingExportPnPW: Pointer;
  679. function RpcNsBindingExportPnPW;
  680. begin
  681.   GetProcedureAddress(_RpcNsBindingExportPnPW, rpcns4, 'RpcNsBindingExportPnPW');
  682.   asm
  683.     mov esp, ebp
  684.     pop ebp
  685.     jmp [_RpcNsBindingExportPnPW]
  686.   end;
  687. end;
  688. {$ELSE}
  689. function RpcNsBindingExportPnPW; external rpcns4 name 'RpcNsBindingExportPnPW';
  690. {$ENDIF DYNAMIC_LINK}
  691. {$IFDEF UNICODE}
  693. {$IFDEF DYNAMIC_LINK}
  694. var
  695.   _RpcNsBindingExportPnP: Pointer;
  697. function RpcNsBindingExportPnP;
  698. begin
  699.   GetProcedureAddress(_RpcNsBindingExportPnP, rpcns4, 'RpcNsBindingExportPnPW');
  700.   asm
  701.     mov esp, ebp
  702.     pop ebp
  703.     jmp [_RpcNsBindingExportPnP]
  704.   end;
  705. end;
  706. {$ELSE}
  707. function RpcNsBindingExportPnP; external rpcns4 name 'RpcNsBindingExportPnPW';
  708. {$ENDIF DYNAMIC_LINK}
  709. {$ELSE}
  711. {$IFDEF DYNAMIC_LINK}
  712. var
  713.   _RpcNsBindingExportPnP: Pointer;
  715. function RpcNsBindingExportPnP;
  716. begin
  717.   GetProcedureAddress(_RpcNsBindingExportPnP, rpcns4, 'RpcNsBindingExportPnPA');
  718.   asm
  719.     mov esp, ebp
  720.     pop ebp
  721.     jmp [_RpcNsBindingExportPnP]
  722.   end;
  723. end;
  724. {$ELSE}
  725. function RpcNsBindingExportPnP; external rpcns4 name 'RpcNsBindingExportPnPA';
  726. {$ENDIF DYNAMIC_LINK}
  727. {$ENDIF}
  729. {$IFDEF DYNAMIC_LINK}
  730. var
  731.   _RpcNsBindingUnexportPnPA: Pointer;
  733. function RpcNsBindingUnexportPnPA;
  734. begin
  735.   GetProcedureAddress(_RpcNsBindingUnexportPnPA, rpcns4, 'RpcNsBindingUnexportPnPA');
  736.   asm
  737.     mov esp, ebp
  738.     pop ebp
  739.     jmp [_RpcNsBindingUnexportPnPA]
  740.   end;
  741. end;
  742. {$ELSE}
  743. function RpcNsBindingUnexportPnPA; external rpcns4 name 'RpcNsBindingUnexportPnPA';
  744. {$ENDIF DYNAMIC_LINK}
  746. {$IFDEF DYNAMIC_LINK}
  747. var
  748.   _RpcNsBindingUnexportPnPW: Pointer;
  750. function RpcNsBindingUnexportPnPW;
  751. begin
  752.   GetProcedureAddress(_RpcNsBindingUnexportPnPW, rpcns4, 'RpcNsBindingUnexportPnPW');
  753.   asm
  754.     mov esp, ebp
  755.     pop ebp
  756.     jmp [_RpcNsBindingUnexportPnPW]
  757.   end;
  758. end;
  759. {$ELSE}
  760. function RpcNsBindingUnexportPnPW; external rpcns4 name 'RpcNsBindingUnexportPnPW';
  761. {$ENDIF DYNAMIC_LINK}
  762. {$IFDEF UNICODE}
  764. {$IFDEF DYNAMIC_LINK}
  765. var
  766.   _RpcNsBindingUnexportPnP: Pointer;
  768. function RpcNsBindingUnexportPnP;
  769. begin
  770.   GetProcedureAddress(_RpcNsBindingUnexportPnP, rpcns4, 'RpcNsBindingUnexportPnPW');
  771.   asm
  772.     mov esp, ebp
  773.     pop ebp
  774.     jmp [_RpcNsBindingUnexportPnP]
  775.   end;
  776. end;
  777. {$ELSE}
  778. function RpcNsBindingUnexportPnP; external rpcns4 name 'RpcNsBindingUnexportPnPW';
  779. {$ENDIF DYNAMIC_LINK}
  780. {$ELSE}
  782. {$IFDEF DYNAMIC_LINK}
  783. var
  784.   _RpcNsBindingUnexportPnP: Pointer;
  786. function RpcNsBindingUnexportPnP;
  787. begin
  788.   GetProcedureAddress(_RpcNsBindingUnexportPnP, rpcns4, 'RpcNsBindingUnexportPnPA');
  789.   asm
  790.     mov esp, ebp
  791.     pop ebp
  792.     jmp [_RpcNsBindingUnexportPnP]
  793.   end;
  794. end;
  795. {$ELSE}
  796. function RpcNsBindingUnexportPnP; external rpcns4 name 'RpcNsBindingUnexportPnPA';
  797. {$ENDIF DYNAMIC_LINK}
  798. {$ENDIF}
  800. {$IFDEF DYNAMIC_LINK}
  801. var
  802.   _RpcNsBindingLookupBeginA: Pointer;
  804. function RpcNsBindingLookupBeginA;
  805. begin
  806.   GetProcedureAddress(_RpcNsBindingLookupBeginA, rpcns4, 'RpcNsBindingLookupBeginA');
  807.   asm
  808.     mov esp, ebp
  809.     pop ebp
  810.     jmp [_RpcNsBindingLookupBeginA]
  811.   end;
  812. end;
  813. {$ELSE}
  814. function RpcNsBindingLookupBeginA; external rpcns4 name 'RpcNsBindingLookupBeginA';
  815. {$ENDIF DYNAMIC_LINK}
  817. {$IFDEF DYNAMIC_LINK}
  818. var
  819.   _RpcNsBindingLookupBeginW: Pointer;
  821. function RpcNsBindingLookupBeginW;
  822. begin
  823.   GetProcedureAddress(_RpcNsBindingLookupBeginW, rpcns4, 'RpcNsBindingLookupBeginW');
  824.   asm
  825.     mov esp, ebp
  826.     pop ebp
  827.     jmp [_RpcNsBindingLookupBeginW]
  828.   end;
  829. end;
  830. {$ELSE}
  831. function RpcNsBindingLookupBeginW; external rpcns4 name 'RpcNsBindingLookupBeginW';
  832. {$ENDIF DYNAMIC_LINK}
  833. {$IFDEF UNICODE}
  835. {$IFDEF DYNAMIC_LINK}
  836. var
  837.   _RpcNsBindingLookupBegin: Pointer;
  839. function RpcNsBindingLookupBegin;
  840. begin
  841.   GetProcedureAddress(_RpcNsBindingLookupBegin, rpcns4, 'RpcNsBindingLookupBeginW');
  842.   asm
  843.     mov esp, ebp
  844.     pop ebp
  845.     jmp [_RpcNsBindingLookupBegin]
  846.   end;
  847. end;
  848. {$ELSE}
  849. function RpcNsBindingLookupBegin; external rpcns4 name 'RpcNsBindingLookupBeginW';
  850. {$ENDIF DYNAMIC_LINK}
  851. {$ELSE}
  853. {$IFDEF DYNAMIC_LINK}
  854. var
  855.   _RpcNsBindingLookupBegin: Pointer;
  857. function RpcNsBindingLookupBegin;
  858. begin
  859.   GetProcedureAddress(_RpcNsBindingLookupBegin, rpcns4, 'RpcNsBindingLookupBeginA');
  860.   asm
  861.     mov esp, ebp
  862.     pop ebp
  863.     jmp [_RpcNsBindingLookupBegin]
  864.   end;
  865. end;
  866. {$ELSE}
  867. function RpcNsBindingLookupBegin; external rpcns4 name 'RpcNsBindingLookupBeginA';
  868. {$ENDIF DYNAMIC_LINK}
  869. {$ENDIF}
  871. {$IFDEF DYNAMIC_LINK}
  872. var
  873.   _RpcNsBindingLookupNext: Pointer;
  875. function RpcNsBindingLookupNext;
  876. begin
  877.   GetProcedureAddress(_RpcNsBindingLookupNext, rpcns4, 'RpcNsBindingLookupNext');
  878.   asm
  879.     mov esp, ebp
  880.     pop ebp
  881.     jmp [_RpcNsBindingLookupNext]
  882.   end;
  883. end;
  884. {$ELSE}
  885. function RpcNsBindingLookupNext; external rpcns4 name 'RpcNsBindingLookupNext';
  886. {$ENDIF DYNAMIC_LINK}
  888. {$IFDEF DYNAMIC_LINK}
  889. var
  890.   _RpcNsBindingLookupDone: Pointer;
  892. function RpcNsBindingLookupDone;
  893. begin
  894.   GetProcedureAddress(_RpcNsBindingLookupDone, rpcns4, 'RpcNsBindingLookupDone');
  895.   asm
  896.     mov esp, ebp
  897.     pop ebp
  898.     jmp [_RpcNsBindingLookupDone]
  899.   end;
  900. end;
  901. {$ELSE}
  902. function RpcNsBindingLookupDone; external rpcns4 name 'RpcNsBindingLookupDone';
  903. {$ENDIF DYNAMIC_LINK}
  905. {$IFDEF DYNAMIC_LINK}
  906. var
  907.   _RpcNsGroupDeleteA: Pointer;
  909. function RpcNsGroupDeleteA;
  910. begin
  911.   GetProcedureAddress(_RpcNsGroupDeleteA, rpcns4, 'RpcNsGroupDeleteA');
  912.   asm
  913.     mov esp, ebp
  914.     pop ebp
  915.     jmp [_RpcNsGroupDeleteA]
  916.   end;
  917. end;
  918. {$ELSE}
  919. function RpcNsGroupDeleteA; external rpcns4 name 'RpcNsGroupDeleteA';
  920. {$ENDIF DYNAMIC_LINK}
  922. {$IFDEF DYNAMIC_LINK}
  923. var
  924.   _RpcNsGroupDeleteW: Pointer;
  926. function RpcNsGroupDeleteW;
  927. begin
  928.   GetProcedureAddress(_RpcNsGroupDeleteW, rpcns4, 'RpcNsGroupDeleteW');
  929.   asm
  930.     mov esp, ebp
  931.     pop ebp
  932.     jmp [_RpcNsGroupDeleteW]
  933.   end;
  934. end;
  935. {$ELSE}
  936. function RpcNsGroupDeleteW; external rpcns4 name 'RpcNsGroupDeleteW';
  937. {$ENDIF DYNAMIC_LINK}
  938. {$IFDEF UNICODE}
  940. {$IFDEF DYNAMIC_LINK}
  941. var
  942.   _RpcNsGroupDelete: Pointer;
  944. function RpcNsGroupDelete;
  945. begin
  946.   GetProcedureAddress(_RpcNsGroupDelete, rpcns4, 'RpcNsGroupDeleteW');
  947.   asm
  948.     mov esp, ebp
  949.     pop ebp
  950.     jmp [_RpcNsGroupDelete]
  951.   end;
  952. end;
  953. {$ELSE}
  954. function RpcNsGroupDelete; external rpcns4 name 'RpcNsGroupDeleteW';
  955. {$ENDIF DYNAMIC_LINK}
  956. {$ELSE}
  958. {$IFDEF DYNAMIC_LINK}
  959. var
  960.   _RpcNsGroupDelete: Pointer;
  962. function RpcNsGroupDelete;
  963. begin
  964.   GetProcedureAddress(_RpcNsGroupDelete, rpcns4, 'RpcNsGroupDeleteA');
  965.   asm
  966.     mov esp, ebp
  967.     pop ebp
  968.     jmp [_RpcNsGroupDelete]
  969.   end;
  970. end;
  971. {$ELSE}
  972. function RpcNsGroupDelete; external rpcns4 name 'RpcNsGroupDeleteA';
  973. {$ENDIF DYNAMIC_LINK}
  974. {$ENDIF}
  976. {$IFDEF DYNAMIC_LINK}
  977. var
  978.   _RpcNsGroupMbrAddA: Pointer;
  980. function RpcNsGroupMbrAddA;
  981. begin
  982.   GetProcedureAddress(_RpcNsGroupMbrAddA, rpcns4, 'RpcNsGroupMbrAddA');
  983.   asm
  984.     mov esp, ebp
  985.     pop ebp
  986.     jmp [_RpcNsGroupMbrAddA]
  987.   end;
  988. end;
  989. {$ELSE}
  990. function RpcNsGroupMbrAddA; external rpcns4 name 'RpcNsGroupMbrAddA';
  991. {$ENDIF DYNAMIC_LINK}
  993. {$IFDEF DYNAMIC_LINK}
  994. var
  995.   _RpcNsGroupMbrAddW: Pointer;
  997. function RpcNsGroupMbrAddW;
  998. begin
  999.   GetProcedureAddress(_RpcNsGroupMbrAddW, rpcns4, 'RpcNsGroupMbrAddW');
  1000.   asm
  1001.     mov esp, ebp
  1002.     pop ebp
  1003.     jmp [_RpcNsGroupMbrAddW]
  1004.   end;
  1005. end;
  1006. {$ELSE}
  1007. function RpcNsGroupMbrAddW; external rpcns4 name 'RpcNsGroupMbrAddW';
  1008. {$ENDIF DYNAMIC_LINK}
  1009. {$IFDEF UNICODE}
  1011. {$IFDEF DYNAMIC_LINK}
  1012. var
  1013.   _RpcNsGroupMbrAdd: Pointer;
  1015. function RpcNsGroupMbrAdd;
  1016. begin
  1017.   GetProcedureAddress(_RpcNsGroupMbrAdd, rpcns4, 'RpcNsGroupMbrAddW');
  1018.   asm
  1019.     mov esp, ebp
  1020.     pop ebp
  1021.     jmp [_RpcNsGroupMbrAdd]
  1022.   end;
  1023. end;
  1024. {$ELSE}
  1025. function RpcNsGroupMbrAdd; external rpcns4 name 'RpcNsGroupMbrAddW';
  1026. {$ENDIF DYNAMIC_LINK}
  1027. {$ELSE}
  1029. {$IFDEF DYNAMIC_LINK}
  1030. var
  1031.   _RpcNsGroupMbrAdd: Pointer;
  1033. function RpcNsGroupMbrAdd;
  1034. begin
  1035.   GetProcedureAddress(_RpcNsGroupMbrAdd, rpcns4, 'RpcNsGroupMbrAddA');
  1036.   asm
  1037.     mov esp, ebp
  1038.     pop ebp
  1039.     jmp [_RpcNsGroupMbrAdd]
  1040.   end;
  1041. end;
  1042. {$ELSE}
  1043. function RpcNsGroupMbrAdd; external rpcns4 name 'RpcNsGroupMbrAddA';
  1044. {$ENDIF DYNAMIC_LINK}
  1045. {$ENDIF}
  1047. {$IFDEF DYNAMIC_LINK}
  1048. var
  1049.   _RpcNsGroupMbrRemoveA: Pointer;
  1051. function RpcNsGroupMbrRemoveA;
  1052. begin
  1053.   GetProcedureAddress(_RpcNsGroupMbrRemoveA, rpcns4, 'RpcNsGroupMbrRemoveA');
  1054.   asm
  1055.     mov esp, ebp
  1056.     pop ebp
  1057.     jmp [_RpcNsGroupMbrRemoveA]
  1058.   end;
  1059. end;
  1060. {$ELSE}
  1061. function RpcNsGroupMbrRemoveA; external rpcns4 name 'RpcNsGroupMbrRemoveA';
  1062. {$ENDIF DYNAMIC_LINK}
  1064. {$IFDEF DYNAMIC_LINK}
  1065. var
  1066.   _RpcNsGroupMbrRemoveW: Pointer;
  1068. function RpcNsGroupMbrRemoveW;
  1069. begin
  1070.   GetProcedureAddress(_RpcNsGroupMbrRemoveW, rpcns4, 'RpcNsGroupMbrRemoveW');
  1071.   asm
  1072.     mov esp, ebp
  1073.     pop ebp
  1074.     jmp [_RpcNsGroupMbrRemoveW]
  1075.   end;
  1076. end;
  1077. {$ELSE}
  1078. function RpcNsGroupMbrRemoveW; external rpcns4 name 'RpcNsGroupMbrRemoveW';
  1079. {$ENDIF DYNAMIC_LINK}
  1080. {$IFDEF UNICODE}
  1082. {$IFDEF DYNAMIC_LINK}
  1083. var
  1084.   _RpcNsGroupMbrRemove: Pointer;
  1086. function RpcNsGroupMbrRemove;
  1087. begin
  1088.   GetProcedureAddress(_RpcNsGroupMbrRemove, rpcns4, 'RpcNsGroupMbrRemoveW');
  1089.   asm
  1090.     mov esp, ebp
  1091.     pop ebp
  1092.     jmp [_RpcNsGroupMbrRemove]
  1093.   end;
  1094. end;
  1095. {$ELSE}
  1096. function RpcNsGroupMbrRemove; external rpcns4 name 'RpcNsGroupMbrRemoveW';
  1097. {$ENDIF DYNAMIC_LINK}
  1098. {$ELSE}
  1100. {$IFDEF DYNAMIC_LINK}
  1101. var
  1102.   _RpcNsGroupMbrRemove: Pointer;
  1104. function RpcNsGroupMbrRemove;
  1105. begin
  1106.   GetProcedureAddress(_RpcNsGroupMbrRemove, rpcns4, 'RpcNsGroupMbrRemoveA');
  1107.   asm
  1108.     mov esp, ebp
  1109.     pop ebp
  1110.     jmp [_RpcNsGroupMbrRemove]
  1111.   end;
  1112. end;
  1113. {$ELSE}
  1114. function RpcNsGroupMbrRemove; external rpcns4 name 'RpcNsGroupMbrRemoveA';
  1115. {$ENDIF DYNAMIC_LINK}
  1116. {$ENDIF}
  1118. {$IFDEF DYNAMIC_LINK}
  1119. var
  1120.   _RpcNsGroupMbrInqBeginA: Pointer;
  1122. function RpcNsGroupMbrInqBeginA;
  1123. begin
  1124.   GetProcedureAddress(_RpcNsGroupMbrInqBeginA, rpcns4, 'RpcNsGroupMbrInqBeginA');
  1125.   asm
  1126.     mov esp, ebp
  1127.     pop ebp
  1128.     jmp [_RpcNsGroupMbrInqBeginA]
  1129.   end;
  1130. end;
  1131. {$ELSE}
  1132. function RpcNsGroupMbrInqBeginA; external rpcns4 name 'RpcNsGroupMbrInqBeginA';
  1133. {$ENDIF DYNAMIC_LINK}
  1135. {$IFDEF DYNAMIC_LINK}
  1136. var
  1137.   _RpcNsGroupMbrInqBeginW: Pointer;
  1139. function RpcNsGroupMbrInqBeginW;
  1140. begin
  1141.   GetProcedureAddress(_RpcNsGroupMbrInqBeginW, rpcns4, 'RpcNsGroupMbrInqBeginW');
  1142.   asm
  1143.     mov esp, ebp
  1144.     pop ebp
  1145.     jmp [_RpcNsGroupMbrInqBeginW]
  1146.   end;
  1147. end;
  1148. {$ELSE}
  1149. function RpcNsGroupMbrInqBeginW; external rpcns4 name 'RpcNsGroupMbrInqBeginW';
  1150. {$ENDIF DYNAMIC_LINK}
  1151. {$IFDEF UNICODE}
  1153. {$IFDEF DYNAMIC_LINK}
  1154. var
  1155.   _RpcNsGroupMbrInqBegin: Pointer;
  1157. function RpcNsGroupMbrInqBegin;
  1158. begin
  1159.   GetProcedureAddress(_RpcNsGroupMbrInqBegin, rpcns4, 'RpcNsGroupMbrInqBeginW');
  1160.   asm
  1161.     mov esp, ebp
  1162.     pop ebp
  1163.     jmp [_RpcNsGroupMbrInqBegin]
  1164.   end;
  1165. end;
  1166. {$ELSE}
  1167. function RpcNsGroupMbrInqBegin; external rpcns4 name 'RpcNsGroupMbrInqBeginW';
  1168. {$ENDIF DYNAMIC_LINK}
  1169. {$ELSE}
  1171. {$IFDEF DYNAMIC_LINK}
  1172. var
  1173.   _RpcNsGroupMbrInqBegin: Pointer;
  1175. function RpcNsGroupMbrInqBegin;
  1176. begin
  1177.   GetProcedureAddress(_RpcNsGroupMbrInqBegin, rpcns4, 'RpcNsGroupMbrInqBeginA');
  1178.   asm
  1179.     mov esp, ebp
  1180.     pop ebp
  1181.     jmp [_RpcNsGroupMbrInqBegin]
  1182.   end;
  1183. end;
  1184. {$ELSE}
  1185. function RpcNsGroupMbrInqBegin; external rpcns4 name 'RpcNsGroupMbrInqBeginA';
  1186. {$ENDIF DYNAMIC_LINK}
  1187. {$ENDIF}
  1189. {$IFDEF DYNAMIC_LINK}
  1190. var
  1191.   _RpcNsGroupMbrInqNextA: Pointer;
  1193. function RpcNsGroupMbrInqNextA;
  1194. begin
  1195.   GetProcedureAddress(_RpcNsGroupMbrInqNextA, rpcns4, 'RpcNsGroupMbrInqNextA');
  1196.   asm
  1197.     mov esp, ebp
  1198.     pop ebp
  1199.     jmp [_RpcNsGroupMbrInqNextA]
  1200.   end;
  1201. end;
  1202. {$ELSE}
  1203. function RpcNsGroupMbrInqNextA; external rpcns4 name 'RpcNsGroupMbrInqNextA';
  1204. {$ENDIF DYNAMIC_LINK}
  1206. {$IFDEF DYNAMIC_LINK}
  1207. var
  1208.   _RpcNsGroupMbrInqNextW: Pointer;
  1210. function RpcNsGroupMbrInqNextW;
  1211. begin
  1212.   GetProcedureAddress(_RpcNsGroupMbrInqNextW, rpcns4, 'RpcNsGroupMbrInqNextW');
  1213.   asm
  1214.     mov esp, ebp
  1215.     pop ebp
  1216.     jmp [_RpcNsGroupMbrInqNextW]
  1217.   end;
  1218. end;
  1219. {$ELSE}
  1220. function RpcNsGroupMbrInqNextW; external rpcns4 name 'RpcNsGroupMbrInqNextW';
  1221. {$ENDIF DYNAMIC_LINK}
  1222. {$IFDEF UNICODE}
  1224. {$IFDEF DYNAMIC_LINK}
  1225. var
  1226.   _RpcNsGroupMbrInqNext: Pointer;
  1228. function RpcNsGroupMbrInqNext;
  1229. begin
  1230.   GetProcedureAddress(_RpcNsGroupMbrInqNext, rpcns4, 'RpcNsGroupMbrInqNextW');
  1231.   asm
  1232.     mov esp, ebp
  1233.     pop ebp
  1234.     jmp [_RpcNsGroupMbrInqNext]
  1235.   end;
  1236. end;
  1237. {$ELSE}
  1238. function RpcNsGroupMbrInqNext; external rpcns4 name 'RpcNsGroupMbrInqNextW';
  1239. {$ENDIF DYNAMIC_LINK}
  1240. {$ELSE}
  1242. {$IFDEF DYNAMIC_LINK}
  1243. var
  1244.   _RpcNsGroupMbrInqNext: Pointer;
  1246. function RpcNsGroupMbrInqNext;
  1247. begin
  1248.   GetProcedureAddress(_RpcNsGroupMbrInqNext, rpcns4, 'RpcNsGroupMbrInqNextA');
  1249.   asm
  1250.     mov esp, ebp
  1251.     pop ebp
  1252.     jmp [_RpcNsGroupMbrInqNext]
  1253.   end;
  1254. end;
  1255. {$ELSE}
  1256. function RpcNsGroupMbrInqNext; external rpcns4 name 'RpcNsGroupMbrInqNextA';
  1257. {$ENDIF DYNAMIC_LINK}
  1258. {$ENDIF}
  1260. {$IFDEF DYNAMIC_LINK}
  1261. var
  1262.   _RpcNsGroupMbrInqDone: Pointer;
  1264. function RpcNsGroupMbrInqDone;
  1265. begin
  1266.   GetProcedureAddress(_RpcNsGroupMbrInqDone, rpcns4, 'RpcNsGroupMbrInqDone');
  1267.   asm
  1268.     mov esp, ebp
  1269.     pop ebp
  1270.     jmp [_RpcNsGroupMbrInqDone]
  1271.   end;
  1272. end;
  1273. {$ELSE}
  1274. function RpcNsGroupMbrInqDone; external rpcns4 name 'RpcNsGroupMbrInqDone';
  1275. {$ENDIF DYNAMIC_LINK}
  1277. {$IFDEF DYNAMIC_LINK}
  1278. var
  1279.   _RpcNsProfileDeleteA: Pointer;
  1281. function RpcNsProfileDeleteA;
  1282. begin
  1283.   GetProcedureAddress(_RpcNsProfileDeleteA, rpcns4, 'RpcNsProfileDeleteA');
  1284.   asm
  1285.     mov esp, ebp
  1286.     pop ebp
  1287.     jmp [_RpcNsProfileDeleteA]
  1288.   end;
  1289. end;
  1290. {$ELSE}
  1291. function RpcNsProfileDeleteA; external rpcns4 name 'RpcNsProfileDeleteA';
  1292. {$ENDIF DYNAMIC_LINK}
  1294. {$IFDEF DYNAMIC_LINK}
  1295. var
  1296.   _RpcNsProfileDeleteW: Pointer;
  1298. function RpcNsProfileDeleteW;
  1299. begin
  1300.   GetProcedureAddress(_RpcNsProfileDeleteW, rpcns4, 'RpcNsProfileDeleteW');
  1301.   asm
  1302.     mov esp, ebp
  1303.     pop ebp
  1304.     jmp [_RpcNsProfileDeleteW]
  1305.   end;
  1306. end;
  1307. {$ELSE}
  1308. function RpcNsProfileDeleteW; external rpcns4 name 'RpcNsProfileDeleteW';
  1309. {$ENDIF DYNAMIC_LINK}
  1310. {$IFDEF UNICODE}
  1312. {$IFDEF DYNAMIC_LINK}
  1313. var
  1314.   _RpcNsProfileDelete: Pointer;
  1316. function RpcNsProfileDelete;
  1317. begin
  1318.   GetProcedureAddress(_RpcNsProfileDelete, rpcns4, 'RpcNsProfileDeleteW');
  1319.   asm
  1320.     mov esp, ebp
  1321.     pop ebp
  1322.     jmp [_RpcNsProfileDelete]
  1323.   end;
  1324. end;
  1325. {$ELSE}
  1326. function RpcNsProfileDelete; external rpcns4 name 'RpcNsProfileDeleteW';
  1327. {$ENDIF DYNAMIC_LINK}
  1328. {$ELSE}
  1330. {$IFDEF DYNAMIC_LINK}
  1331. var
  1332.   _RpcNsProfileDelete: Pointer;
  1334. function RpcNsProfileDelete;
  1335. begin
  1336.   GetProcedureAddress(_RpcNsProfileDelete, rpcns4, 'RpcNsProfileDeleteA');
  1337.   asm
  1338.     mov esp, ebp
  1339.     pop ebp
  1340.     jmp [_RpcNsProfileDelete]
  1341.   end;
  1342. end;
  1343. {$ELSE}
  1344. function RpcNsProfileDelete; external rpcns4 name 'RpcNsProfileDeleteA';
  1345. {$ENDIF DYNAMIC_LINK}
  1346. {$ENDIF}
  1348. {$IFDEF DYNAMIC_LINK}
  1349. var
  1350.   _RpcNsProfileEltAddA: Pointer;
  1352. function RpcNsProfileEltAddA;
  1353. begin
  1354.   GetProcedureAddress(_RpcNsProfileEltAddA, rpcns4, 'RpcNsProfileEltAddA');
  1355.   asm
  1356.     mov esp, ebp
  1357.     pop ebp
  1358.     jmp [_RpcNsProfileEltAddA]
  1359.   end;
  1360. end;
  1361. {$ELSE}
  1362. function RpcNsProfileEltAddA; external rpcns4 name 'RpcNsProfileEltAddA';
  1363. {$ENDIF DYNAMIC_LINK}
  1365. {$IFDEF DYNAMIC_LINK}
  1366. var
  1367.   _RpcNsProfileEltAddW: Pointer;
  1369. function RpcNsProfileEltAddW;
  1370. begin
  1371.   GetProcedureAddress(_RpcNsProfileEltAddW, rpcns4, 'RpcNsProfileEltAddW');
  1372.   asm
  1373.     mov esp, ebp
  1374.     pop ebp
  1375.     jmp [_RpcNsProfileEltAddW]
  1376.   end;
  1377. end;
  1378. {$ELSE}
  1379. function RpcNsProfileEltAddW; external rpcns4 name 'RpcNsProfileEltAddW';
  1380. {$ENDIF DYNAMIC_LINK}
  1381. {$IFDEF UNICODE}
  1383. {$IFDEF DYNAMIC_LINK}
  1384. var
  1385.   _RpcNsProfileEltAdd: Pointer;
  1387. function RpcNsProfileEltAdd;
  1388. begin
  1389.   GetProcedureAddress(_RpcNsProfileEltAdd, rpcns4, 'RpcNsProfileEltAddW');
  1390.   asm
  1391.     mov esp, ebp
  1392.     pop ebp
  1393.     jmp [_RpcNsProfileEltAdd]
  1394.   end;
  1395. end;
  1396. {$ELSE}
  1397. function RpcNsProfileEltAdd; external rpcns4 name 'RpcNsProfileEltAddW';
  1398. {$ENDIF DYNAMIC_LINK}
  1399. {$ELSE}
  1401. {$IFDEF DYNAMIC_LINK}
  1402. var
  1403.   _RpcNsProfileEltAdd: Pointer;
  1405. function RpcNsProfileEltAdd;
  1406. begin
  1407.   GetProcedureAddress(_RpcNsProfileEltAdd, rpcns4, 'RpcNsProfileEltAddA');
  1408.   asm
  1409.     mov esp, ebp
  1410.     pop ebp
  1411.     jmp [_RpcNsProfileEltAdd]
  1412.   end;
  1413. end;
  1414. {$ELSE}
  1415. function RpcNsProfileEltAdd; external rpcns4 name 'RpcNsProfileEltAddA';
  1416. {$ENDIF DYNAMIC_LINK}
  1417. {$ENDIF}
  1419. {$IFDEF DYNAMIC_LINK}
  1420. var
  1421.   _RpcNsProfileEltRemoveA: Pointer;
  1423. function RpcNsProfileEltRemoveA;
  1424. begin
  1425.   GetProcedureAddress(_RpcNsProfileEltRemoveA, rpcns4, 'RpcNsProfileEltRemoveA');
  1426.   asm
  1427.     mov esp, ebp
  1428.     pop ebp
  1429.     jmp [_RpcNsProfileEltRemoveA]
  1430.   end;
  1431. end;
  1432. {$ELSE}
  1433. function RpcNsProfileEltRemoveA; external rpcns4 name 'RpcNsProfileEltRemoveA';
  1434. {$ENDIF DYNAMIC_LINK}
  1436. {$IFDEF DYNAMIC_LINK}
  1437. var
  1438.   _RpcNsProfileEltRemoveW: Pointer;
  1440. function RpcNsProfileEltRemoveW;
  1441. begin
  1442.   GetProcedureAddress(_RpcNsProfileEltRemoveW, rpcns4, 'RpcNsProfileEltRemoveW');
  1443.   asm
  1444.     mov esp, ebp
  1445.     pop ebp
  1446.     jmp [_RpcNsProfileEltRemoveW]
  1447.   end;
  1448. end;
  1449. {$ELSE}
  1450. function RpcNsProfileEltRemoveW; external rpcns4 name 'RpcNsProfileEltRemoveW';
  1451. {$ENDIF DYNAMIC_LINK}
  1452. {$IFDEF UNICODE}
  1454. {$IFDEF DYNAMIC_LINK}
  1455. var
  1456.   _RpcNsProfileEltRemove: Pointer;
  1458. function RpcNsProfileEltRemove;
  1459. begin
  1460.   GetProcedureAddress(_RpcNsProfileEltRemove, rpcns4, 'RpcNsProfileEltRemoveW');
  1461.   asm
  1462.     mov esp, ebp
  1463.     pop ebp
  1464.     jmp [_RpcNsProfileEltRemove]
  1465.   end;
  1466. end;
  1467. {$ELSE}
  1468. function RpcNsProfileEltRemove; external rpcns4 name 'RpcNsProfileEltRemoveW';
  1469. {$ENDIF DYNAMIC_LINK}
  1470. {$ELSE}
  1472. {$IFDEF DYNAMIC_LINK}
  1473. var
  1474.   _RpcNsProfileEltRemove: Pointer;
  1476. function RpcNsProfileEltRemove;
  1477. begin
  1478.   GetProcedureAddress(_RpcNsProfileEltRemove, rpcns4, 'RpcNsProfileEltRemoveA');
  1479.   asm
  1480.     mov esp, ebp
  1481.     pop ebp
  1482.     jmp [_RpcNsProfileEltRemove]
  1483.   end;
  1484. end;
  1485. {$ELSE}
  1486. function RpcNsProfileEltRemove; external rpcns4 name 'RpcNsProfileEltRemoveA';
  1487. {$ENDIF DYNAMIC_LINK}
  1488. {$ENDIF}
  1490. {$IFDEF DYNAMIC_LINK}
  1491. var
  1492.   _RpcNsProfileEltInqBeginA: Pointer;
  1494. function RpcNsProfileEltInqBeginA;
  1495. begin
  1496.   GetProcedureAddress(_RpcNsProfileEltInqBeginA, rpcns4, 'RpcNsProfileEltInqBeginA');
  1497.   asm
  1498.     mov esp, ebp
  1499.     pop ebp
  1500.     jmp [_RpcNsProfileEltInqBeginA]
  1501.   end;
  1502. end;
  1503. {$ELSE}
  1504. function RpcNsProfileEltInqBeginA; external rpcns4 name 'RpcNsProfileEltInqBeginA';
  1505. {$ENDIF DYNAMIC_LINK}
  1507. {$IFDEF DYNAMIC_LINK}
  1508. var
  1509.   _RpcNsProfileEltInqBeginW: Pointer;
  1511. function RpcNsProfileEltInqBeginW;
  1512. begin
  1513.   GetProcedureAddress(_RpcNsProfileEltInqBeginW, rpcns4, 'RpcNsProfileEltInqBeginW');
  1514.   asm
  1515.     mov esp, ebp
  1516.     pop ebp
  1517.     jmp [_RpcNsProfileEltInqBeginW]
  1518.   end;
  1519. end;
  1520. {$ELSE}
  1521. function RpcNsProfileEltInqBeginW; external rpcns4 name 'RpcNsProfileEltInqBeginW';
  1522. {$ENDIF DYNAMIC_LINK}
  1523. {$IFDEF UNICODE}
  1525. {$IFDEF DYNAMIC_LINK}
  1526. var
  1527.   _RpcNsProfileEltInqBegin: Pointer;
  1529. function RpcNsProfileEltInqBegin;
  1530. begin
  1531.   GetProcedureAddress(_RpcNsProfileEltInqBegin, rpcns4, 'RpcNsProfileEltInqBeginW');
  1532.   asm
  1533.     mov esp, ebp
  1534.     pop ebp
  1535.     jmp [_RpcNsProfileEltInqBegin]
  1536.   end;
  1537. end;
  1538. {$ELSE}
  1539. function RpcNsProfileEltInqBegin; external rpcns4 name 'RpcNsProfileEltInqBeginW';
  1540. {$ENDIF DYNAMIC_LINK}
  1541. {$ELSE}
  1543. {$IFDEF DYNAMIC_LINK}
  1544. var
  1545.   _RpcNsProfileEltInqBegin: Pointer;
  1547. function RpcNsProfileEltInqBegin;
  1548. begin
  1549.   GetProcedureAddress(_RpcNsProfileEltInqBegin, rpcns4, 'RpcNsProfileEltInqBeginA');
  1550.   asm
  1551.     mov esp, ebp
  1552.     pop ebp
  1553.     jmp [_RpcNsProfileEltInqBegin]
  1554.   end;
  1555. end;
  1556. {$ELSE}
  1557. function RpcNsProfileEltInqBegin; external rpcns4 name 'RpcNsProfileEltInqBeginA';
  1558. {$ENDIF DYNAMIC_LINK}
  1559. {$ENDIF}
  1561. {$IFDEF DYNAMIC_LINK}
  1562. var
  1563.   _RpcNsProfileEltInqNextA: Pointer;
  1565. function RpcNsProfileEltInqNextA;
  1566. begin
  1567.   GetProcedureAddress(_RpcNsProfileEltInqNextA, rpcns4, 'RpcNsProfileEltInqNextA');
  1568.   asm
  1569.     mov esp, ebp
  1570.     pop ebp
  1571.     jmp [_RpcNsProfileEltInqNextA]
  1572.   end;
  1573. end;
  1574. {$ELSE}
  1575. function RpcNsProfileEltInqNextA; external rpcns4 name 'RpcNsProfileEltInqNextA';
  1576. {$ENDIF DYNAMIC_LINK}
  1578. {$IFDEF DYNAMIC_LINK}
  1579. var
  1580.   _RpcNsProfileEltInqNextW: Pointer;
  1582. function RpcNsProfileEltInqNextW;
  1583. begin
  1584.   GetProcedureAddress(_RpcNsProfileEltInqNextW, rpcns4, 'RpcNsProfileEltInqNextW');
  1585.   asm
  1586.     mov esp, ebp
  1587.     pop ebp
  1588.     jmp [_RpcNsProfileEltInqNextW]
  1589.   end;
  1590. end;
  1591. {$ELSE}
  1592. function RpcNsProfileEltInqNextW; external rpcns4 name 'RpcNsProfileEltInqNextW';
  1593. {$ENDIF DYNAMIC_LINK}
  1594. {$IFDEF UNICODE}
  1596. {$IFDEF DYNAMIC_LINK}
  1597. var
  1598.   _RpcNsProfileEltInqNext: Pointer;
  1600. function RpcNsProfileEltInqNext;
  1601. begin
  1602.   GetProcedureAddress(_RpcNsProfileEltInqNext, rpcns4, 'RpcNsProfileEltInqNextW');
  1603.   asm
  1604.     mov esp, ebp
  1605.     pop ebp
  1606.     jmp [_RpcNsProfileEltInqNext]
  1607.   end;
  1608. end;
  1609. {$ELSE}
  1610. function RpcNsProfileEltInqNext; external rpcns4 name 'RpcNsProfileEltInqNextW';
  1611. {$ENDIF DYNAMIC_LINK}
  1612. {$ELSE}
  1614. {$IFDEF DYNAMIC_LINK}
  1615. var
  1616.   _RpcNsProfileEltInqNext: Pointer;
  1618. function RpcNsProfileEltInqNext;
  1619. begin
  1620.   GetProcedureAddress(_RpcNsProfileEltInqNext, rpcns4, 'RpcNsProfileEltInqNextA');
  1621.   asm
  1622.     mov esp, ebp
  1623.     pop ebp
  1624.     jmp [_RpcNsProfileEltInqNext]
  1625.   end;
  1626. end;
  1627. {$ELSE}
  1628. function RpcNsProfileEltInqNext; external rpcns4 name 'RpcNsProfileEltInqNextA';
  1629. {$ENDIF DYNAMIC_LINK}
  1630. {$ENDIF}
  1632. {$IFDEF DYNAMIC_LINK}
  1633. var
  1634.   _RpcNsProfileEltInqDone: Pointer;
  1636. function RpcNsProfileEltInqDone;
  1637. begin
  1638.   GetProcedureAddress(_RpcNsProfileEltInqDone, rpcns4, 'RpcNsProfileEltInqDone');
  1639.   asm
  1640.     mov esp, ebp
  1641.     pop ebp
  1642.     jmp [_RpcNsProfileEltInqDone]
  1643.   end;
  1644. end;
  1645. {$ELSE}
  1646. function RpcNsProfileEltInqDone; external rpcns4 name 'RpcNsProfileEltInqDone';
  1647. {$ENDIF DYNAMIC_LINK}
  1649. {$IFDEF DYNAMIC_LINK}
  1650. var
  1651.   _RpcNsEntryObjectInqBeginA: Pointer;
  1653. function RpcNsEntryObjectInqBeginA;
  1654. begin
  1655.   GetProcedureAddress(_RpcNsEntryObjectInqBeginA, rpcns4, 'RpcNsEntryObjectInqBeginA');
  1656.   asm
  1657.     mov esp, ebp
  1658.     pop ebp
  1659.     jmp [_RpcNsEntryObjectInqBeginA]
  1660.   end;
  1661. end;
  1662. {$ELSE}
  1663. function RpcNsEntryObjectInqBeginA; external rpcns4 name 'RpcNsEntryObjectInqBeginA';
  1664. {$ENDIF DYNAMIC_LINK}
  1666. {$IFDEF DYNAMIC_LINK}
  1667. var
  1668.   _RpcNsEntryObjectInqBeginW: Pointer;
  1670. function RpcNsEntryObjectInqBeginW;
  1671. begin
  1672.   GetProcedureAddress(_RpcNsEntryObjectInqBeginW, rpcns4, 'RpcNsEntryObjectInqBeginW');
  1673.   asm
  1674.     mov esp, ebp
  1675.     pop ebp
  1676.     jmp [_RpcNsEntryObjectInqBeginW]
  1677.   end;
  1678. end;
  1679. {$ELSE}
  1680. function RpcNsEntryObjectInqBeginW; external rpcns4 name 'RpcNsEntryObjectInqBeginW';
  1681. {$ENDIF DYNAMIC_LINK}
  1682. {$IFDEF UNICODE}
  1684. {$IFDEF DYNAMIC_LINK}
  1685. var
  1686.   _RpcNsEntryObjectInqBegin: Pointer;
  1688. function RpcNsEntryObjectInqBegin;
  1689. begin
  1690.   GetProcedureAddress(_RpcNsEntryObjectInqBegin, rpcns4, 'RpcNsEntryObjectInqBeginW');
  1691.   asm
  1692.     mov esp, ebp
  1693.     pop ebp
  1694.     jmp [_RpcNsEntryObjectInqBegin]
  1695.   end;
  1696. end;
  1697. {$ELSE}
  1698. function RpcNsEntryObjectInqBegin; external rpcns4 name 'RpcNsEntryObjectInqBeginW';
  1699. {$ENDIF DYNAMIC_LINK}
  1700. {$ELSE}
  1702. {$IFDEF DYNAMIC_LINK}
  1703. var
  1704.   _RpcNsEntryObjectInqBegin: Pointer;
  1706. function RpcNsEntryObjectInqBegin;
  1707. begin
  1708.   GetProcedureAddress(_RpcNsEntryObjectInqBegin, rpcns4, 'RpcNsEntryObjectInqBeginA');
  1709.   asm
  1710.     mov esp, ebp
  1711.     pop ebp
  1712.     jmp [_RpcNsEntryObjectInqBegin]
  1713.   end;
  1714. end;
  1715. {$ELSE}
  1716. function RpcNsEntryObjectInqBegin; external rpcns4 name 'RpcNsEntryObjectInqBeginA';
  1717. {$ENDIF DYNAMIC_LINK}
  1718. {$ENDIF}
  1720. {$IFDEF DYNAMIC_LINK}
  1721. var
  1722.   _RpcNsEntryObjectInqNext: Pointer;
  1724. function RpcNsEntryObjectInqNext;
  1725. begin
  1726.   GetProcedureAddress(_RpcNsEntryObjectInqNext, rpcns4, 'RpcNsEntryObjectInqNext');
  1727.   asm
  1728.     mov esp, ebp
  1729.     pop ebp
  1730.     jmp [_RpcNsEntryObjectInqNext]
  1731.   end;
  1732. end;
  1733. {$ELSE}
  1734. function RpcNsEntryObjectInqNext; external rpcns4 name 'RpcNsEntryObjectInqNext';
  1735. {$ENDIF DYNAMIC_LINK}
  1737. {$IFDEF DYNAMIC_LINK}
  1738. var
  1739.   _RpcNsEntryObjectInqDone: Pointer;
  1741. function RpcNsEntryObjectInqDone;
  1742. begin
  1743.   GetProcedureAddress(_RpcNsEntryObjectInqDone, rpcns4, 'RpcNsEntryObjectInqDone');
  1744.   asm
  1745.     mov esp, ebp
  1746.     pop ebp
  1747.     jmp [_RpcNsEntryObjectInqDone]
  1748.   end;
  1749. end;
  1750. {$ELSE}
  1751. function RpcNsEntryObjectInqDone; external rpcns4 name 'RpcNsEntryObjectInqDone';
  1752. {$ENDIF DYNAMIC_LINK}
  1754. {$IFDEF DYNAMIC_LINK}
  1755. var
  1756.   _RpcNsEntryExpandNameA: Pointer;
  1758. function RpcNsEntryExpandNameA;
  1759. begin
  1760.   GetProcedureAddress(_RpcNsEntryExpandNameA, rpcns4, 'RpcNsEntryExpandNameA');
  1761.   asm
  1762.     mov esp, ebp
  1763.     pop ebp
  1764.     jmp [_RpcNsEntryExpandNameA]
  1765.   end;
  1766. end;
  1767. {$ELSE}
  1768. function RpcNsEntryExpandNameA; external rpcns4 name 'RpcNsEntryExpandNameA';
  1769. {$ENDIF DYNAMIC_LINK}
  1771. {$IFDEF DYNAMIC_LINK}
  1772. var
  1773.   _RpcNsEntryExpandNameW: Pointer;
  1775. function RpcNsEntryExpandNameW;
  1776. begin
  1777.   GetProcedureAddress(_RpcNsEntryExpandNameW, rpcns4, 'RpcNsEntryExpandNameW');
  1778.   asm
  1779.     mov esp, ebp
  1780.     pop ebp
  1781.     jmp [_RpcNsEntryExpandNameW]
  1782.   end;
  1783. end;
  1784. {$ELSE}
  1785. function RpcNsEntryExpandNameW; external rpcns4 name 'RpcNsEntryExpandNameW';
  1786. {$ENDIF DYNAMIC_LINK}
  1787. {$IFDEF UNICODE}
  1789. {$IFDEF DYNAMIC_LINK}
  1790. var
  1791.   _RpcNsEntryExpandName: Pointer;
  1793. function RpcNsEntryExpandName;
  1794. begin
  1795.   GetProcedureAddress(_RpcNsEntryExpandName, rpcns4, 'RpcNsEntryExpandNameW');
  1796.   asm
  1797.     mov esp, ebp
  1798.     pop ebp
  1799.     jmp [_RpcNsEntryExpandName]
  1800.   end;
  1801. end;
  1802. {$ELSE}
  1803. function RpcNsEntryExpandName; external rpcns4 name 'RpcNsEntryExpandNameW';
  1804. {$ENDIF DYNAMIC_LINK}
  1805. {$ELSE}
  1807. {$IFDEF DYNAMIC_LINK}
  1808. var
  1809.   _RpcNsEntryExpandName: Pointer;
  1811. function RpcNsEntryExpandName;
  1812. begin
  1813.   GetProcedureAddress(_RpcNsEntryExpandName, rpcns4, 'RpcNsEntryExpandNameA');
  1814.   asm
  1815.     mov esp, ebp
  1816.     pop ebp
  1817.     jmp [_RpcNsEntryExpandName]
  1818.   end;
  1819. end;
  1820. {$ELSE}
  1821. function RpcNsEntryExpandName; external rpcns4 name 'RpcNsEntryExpandNameA';
  1822. {$ENDIF DYNAMIC_LINK}
  1823. {$ENDIF}
  1825. {$IFDEF DYNAMIC_LINK}
  1826. var
  1827.   _RpcNsMgmtBindingUnexportA: Pointer;
  1829. function RpcNsMgmtBindingUnexportA;
  1830. begin
  1831.   GetProcedureAddress(_RpcNsMgmtBindingUnexportA, rpcns4, 'RpcNsMgmtBindingUnexportA');
  1832.   asm
  1833.     mov esp, ebp
  1834.     pop ebp
  1835.     jmp [_RpcNsMgmtBindingUnexportA]
  1836.   end;
  1837. end;
  1838. {$ELSE}
  1839. function RpcNsMgmtBindingUnexportA; external rpcns4 name 'RpcNsMgmtBindingUnexportA';
  1840. {$ENDIF DYNAMIC_LINK}
  1842. {$IFDEF DYNAMIC_LINK}
  1843. var
  1844.   _RpcNsMgmtBindingUnexportW: Pointer;
  1846. function RpcNsMgmtBindingUnexportW;
  1847. begin
  1848.   GetProcedureAddress(_RpcNsMgmtBindingUnexportW, rpcns4, 'RpcNsMgmtBindingUnexportW');
  1849.   asm
  1850.     mov esp, ebp
  1851.     pop ebp
  1852.     jmp [_RpcNsMgmtBindingUnexportW]
  1853.   end;
  1854. end;
  1855. {$ELSE}
  1856. function RpcNsMgmtBindingUnexportW; external rpcns4 name 'RpcNsMgmtBindingUnexportW';
  1857. {$ENDIF DYNAMIC_LINK}
  1858. {$IFDEF UNICODE}
  1860. {$IFDEF DYNAMIC_LINK}
  1861. var
  1862.   _RpcNsMgmtBindingUnexport: Pointer;
  1864. function RpcNsMgmtBindingUnexport;
  1865. begin
  1866.   GetProcedureAddress(_RpcNsMgmtBindingUnexport, rpcns4, 'RpcNsMgmtBindingUnexportW');
  1867.   asm
  1868.     mov esp, ebp
  1869.     pop ebp
  1870.     jmp [_RpcNsMgmtBindingUnexport]
  1871.   end;
  1872. end;
  1873. {$ELSE}
  1874. function RpcNsMgmtBindingUnexport; external rpcns4 name 'RpcNsMgmtBindingUnexportW';
  1875. {$ENDIF DYNAMIC_LINK}
  1876. {$ELSE}
  1878. {$IFDEF DYNAMIC_LINK}
  1879. var
  1880.   _RpcNsMgmtBindingUnexport: Pointer;
  1882. function RpcNsMgmtBindingUnexport;
  1883. begin
  1884.   GetProcedureAddress(_RpcNsMgmtBindingUnexport, rpcns4, 'RpcNsMgmtBindingUnexportA');
  1885.   asm
  1886.     mov esp, ebp
  1887.     pop ebp
  1888.     jmp [_RpcNsMgmtBindingUnexport]
  1889.   end;
  1890. end;
  1891. {$ELSE}
  1892. function RpcNsMgmtBindingUnexport; external rpcns4 name 'RpcNsMgmtBindingUnexportA';
  1893. {$ENDIF DYNAMIC_LINK}
  1894. {$ENDIF}
  1896. {$IFDEF DYNAMIC_LINK}
  1897. var
  1898.   _RpcNsMgmtEntryCreateA: Pointer;
  1900. function RpcNsMgmtEntryCreateA;
  1901. begin
  1902.   GetProcedureAddress(_RpcNsMgmtEntryCreateA, rpcns4, 'RpcNsMgmtEntryCreateA');
  1903.   asm
  1904.     mov esp, ebp
  1905.     pop ebp
  1906.     jmp [_RpcNsMgmtEntryCreateA]
  1907.   end;
  1908. end;
  1909. {$ELSE}
  1910. function RpcNsMgmtEntryCreateA; external rpcns4 name 'RpcNsMgmtEntryCreateA';
  1911. {$ENDIF DYNAMIC_LINK}
  1913. {$IFDEF DYNAMIC_LINK}
  1914. var
  1915.   _RpcNsMgmtEntryCreateW: Pointer;
  1917. function RpcNsMgmtEntryCreateW;
  1918. begin
  1919.   GetProcedureAddress(_RpcNsMgmtEntryCreateW, rpcns4, 'RpcNsMgmtEntryCreateW');
  1920.   asm
  1921.     mov esp, ebp
  1922.     pop ebp
  1923.     jmp [_RpcNsMgmtEntryCreateW]
  1924.   end;
  1925. end;
  1926. {$ELSE}
  1927. function RpcNsMgmtEntryCreateW; external rpcns4 name 'RpcNsMgmtEntryCreateW';
  1928. {$ENDIF DYNAMIC_LINK}
  1929. {$IFDEF UNICODE}
  1931. {$IFDEF DYNAMIC_LINK}
  1932. var
  1933.   _RpcNsMgmtEntryCreate: Pointer;
  1935. function RpcNsMgmtEntryCreate;
  1936. begin
  1937.   GetProcedureAddress(_RpcNsMgmtEntryCreate, rpcns4, 'RpcNsMgmtEntryCreateW');
  1938.   asm
  1939.     mov esp, ebp
  1940.     pop ebp
  1941.     jmp [_RpcNsMgmtEntryCreate]
  1942.   end;
  1943. end;
  1944. {$ELSE}
  1945. function RpcNsMgmtEntryCreate; external rpcns4 name 'RpcNsMgmtEntryCreateW';
  1946. {$ENDIF DYNAMIC_LINK}
  1947. {$ELSE}
  1949. {$IFDEF DYNAMIC_LINK}
  1950. var
  1951.   _RpcNsMgmtEntryCreate: Pointer;
  1953. function RpcNsMgmtEntryCreate;
  1954. begin
  1955.   GetProcedureAddress(_RpcNsMgmtEntryCreate, rpcns4, 'RpcNsMgmtEntryCreateA');
  1956.   asm
  1957.     mov esp, ebp
  1958.     pop ebp
  1959.     jmp [_RpcNsMgmtEntryCreate]
  1960.   end;
  1961. end;
  1962. {$ELSE}
  1963. function RpcNsMgmtEntryCreate; external rpcns4 name 'RpcNsMgmtEntryCreateA';
  1964. {$ENDIF DYNAMIC_LINK}
  1965. {$ENDIF}
  1967. {$IFDEF DYNAMIC_LINK}
  1968. var
  1969.   _RpcNsMgmtEntryDeleteA: Pointer;
  1971. function RpcNsMgmtEntryDeleteA;
  1972. begin
  1973.   GetProcedureAddress(_RpcNsMgmtEntryDeleteA, rpcns4, 'RpcNsMgmtEntryDeleteA');
  1974.   asm
  1975.     mov esp, ebp
  1976.     pop ebp
  1977.     jmp [_RpcNsMgmtEntryDeleteA]
  1978.   end;
  1979. end;
  1980. {$ELSE}
  1981. function RpcNsMgmtEntryDeleteA; external rpcns4 name 'RpcNsMgmtEntryDeleteA';
  1982. {$ENDIF DYNAMIC_LINK}
  1984. {$IFDEF DYNAMIC_LINK}
  1985. var
  1986.   _RpcNsMgmtEntryDeleteW: Pointer;
  1988. function RpcNsMgmtEntryDeleteW;
  1989. begin
  1990.   GetProcedureAddress(_RpcNsMgmtEntryDeleteW, rpcns4, 'RpcNsMgmtEntryDeleteW');
  1991.   asm
  1992.     mov esp, ebp
  1993.     pop ebp
  1994.     jmp [_RpcNsMgmtEntryDeleteW]
  1995.   end;
  1996. end;
  1997. {$ELSE}
  1998. function RpcNsMgmtEntryDeleteW; external rpcns4 name 'RpcNsMgmtEntryDeleteW';
  1999. {$ENDIF DYNAMIC_LINK}
  2000. {$IFDEF UNICODE}
  2002. {$IFDEF DYNAMIC_LINK}
  2003. var
  2004.   _RpcNsMgmtEntryDelete: Pointer;
  2006. function RpcNsMgmtEntryDelete;
  2007. begin
  2008.   GetProcedureAddress(_RpcNsMgmtEntryDelete, rpcns4, 'RpcNsMgmtEntryDeleteW');
  2009.   asm
  2010.     mov esp, ebp
  2011.     pop ebp
  2012.     jmp [_RpcNsMgmtEntryDelete]
  2013.   end;
  2014. end;
  2015. {$ELSE}
  2016. function RpcNsMgmtEntryDelete; external rpcns4 name 'RpcNsMgmtEntryDeleteW';
  2017. {$ENDIF DYNAMIC_LINK}
  2018. {$ELSE}
  2020. {$IFDEF DYNAMIC_LINK}
  2021. var
  2022.   _RpcNsMgmtEntryDelete: Pointer;
  2024. function RpcNsMgmtEntryDelete;
  2025. begin
  2026.   GetProcedureAddress(_RpcNsMgmtEntryDelete, rpcns4, 'RpcNsMgmtEntryDeleteA');
  2027.   asm
  2028.     mov esp, ebp
  2029.     pop ebp
  2030.     jmp [_RpcNsMgmtEntryDelete]
  2031.   end;
  2032. end;
  2033. {$ELSE}
  2034. function RpcNsMgmtEntryDelete; external rpcns4 name 'RpcNsMgmtEntryDeleteA';
  2035. {$ENDIF DYNAMIC_LINK}
  2036. {$ENDIF}
  2038. {$IFDEF DYNAMIC_LINK}
  2039. var
  2040.   _RpcNsMgmtEntryInqIfIdsA: Pointer;
  2042. function RpcNsMgmtEntryInqIfIdsA;
  2043. begin
  2044.   GetProcedureAddress(_RpcNsMgmtEntryInqIfIdsA, rpcns4, 'RpcNsMgmtEntryInqIfIdsA');
  2045.   asm
  2046.     mov esp, ebp
  2047.     pop ebp
  2048.     jmp [_RpcNsMgmtEntryInqIfIdsA]
  2049.   end;
  2050. end;
  2051. {$ELSE}
  2052. function RpcNsMgmtEntryInqIfIdsA; external rpcns4 name 'RpcNsMgmtEntryInqIfIdsA';
  2053. {$ENDIF DYNAMIC_LINK}
  2055. {$IFDEF DYNAMIC_LINK}
  2056. var
  2057.   _RpcNsMgmtEntryInqIfIdsW: Pointer;
  2059. function RpcNsMgmtEntryInqIfIdsW;
  2060. begin
  2061.   GetProcedureAddress(_RpcNsMgmtEntryInqIfIdsW, rpcns4, 'RpcNsMgmtEntryInqIfIdsW');
  2062.   asm
  2063.     mov esp, ebp
  2064.     pop ebp
  2065.     jmp [_RpcNsMgmtEntryInqIfIdsW]
  2066.   end;
  2067. end;
  2068. {$ELSE}
  2069. function RpcNsMgmtEntryInqIfIdsW; external rpcns4 name 'RpcNsMgmtEntryInqIfIdsW';
  2070. {$ENDIF DYNAMIC_LINK}
  2071. {$IFDEF UNICODE}
  2073. {$IFDEF DYNAMIC_LINK}
  2074. var
  2075.   _RpcNsMgmtEntryInqIfIds: Pointer;
  2077. function RpcNsMgmtEntryInqIfIds;
  2078. begin
  2079.   GetProcedureAddress(_RpcNsMgmtEntryInqIfIds, rpcns4, 'RpcNsMgmtEntryInqIfIdsW');
  2080.   asm
  2081.     mov esp, ebp
  2082.     pop ebp
  2083.     jmp [_RpcNsMgmtEntryInqIfIds]
  2084.   end;
  2085. end;
  2086. {$ELSE}
  2087. function RpcNsMgmtEntryInqIfIds; external rpcns4 name 'RpcNsMgmtEntryInqIfIdsW';
  2088. {$ENDIF DYNAMIC_LINK}
  2089. {$ELSE}
  2091. {$IFDEF DYNAMIC_LINK}
  2092. var
  2093.   _RpcNsMgmtEntryInqIfIds: Pointer;
  2095. function RpcNsMgmtEntryInqIfIds;
  2096. begin
  2097.   GetProcedureAddress(_RpcNsMgmtEntryInqIfIds, rpcns4, 'RpcNsMgmtEntryInqIfIdsA');
  2098.   asm
  2099.     mov esp, ebp
  2100.     pop ebp
  2101.     jmp [_RpcNsMgmtEntryInqIfIds]
  2102.   end;
  2103. end;
  2104. {$ELSE}
  2105. function RpcNsMgmtEntryInqIfIds; external rpcns4 name 'RpcNsMgmtEntryInqIfIdsA';
  2106. {$ENDIF DYNAMIC_LINK}
  2107. {$ENDIF}
  2109. {$IFDEF DYNAMIC_LINK}
  2110. var
  2111.   _RpcNsMgmtHandleSetExpAge: Pointer;
  2113. function RpcNsMgmtHandleSetExpAge;
  2114. begin
  2115.   GetProcedureAddress(_RpcNsMgmtHandleSetExpAge, rpcns4, 'RpcNsMgmtHandleSetExpAge');
  2116.   asm
  2117.     mov esp, ebp
  2118.     pop ebp
  2119.     jmp [_RpcNsMgmtHandleSetExpAge]
  2120.   end;
  2121. end;
  2122. {$ELSE}
  2123. function RpcNsMgmtHandleSetExpAge; external rpcns4 name 'RpcNsMgmtHandleSetExpAge';
  2124. {$ENDIF DYNAMIC_LINK}
  2126. {$IFDEF DYNAMIC_LINK}
  2127. var
  2128.   _RpcNsMgmtInqExpAge: Pointer;
  2130. function RpcNsMgmtInqExpAge;
  2131. begin
  2132.   GetProcedureAddress(_RpcNsMgmtInqExpAge, rpcns4, 'RpcNsMgmtInqExpAge');
  2133.   asm
  2134.     mov esp, ebp
  2135.     pop ebp
  2136.     jmp [_RpcNsMgmtInqExpAge]
  2137.   end;
  2138. end;
  2139. {$ELSE}
  2140. function RpcNsMgmtInqExpAge; external rpcns4 name 'RpcNsMgmtInqExpAge';
  2141. {$ENDIF DYNAMIC_LINK}
  2143. {$IFDEF DYNAMIC_LINK}
  2144. var
  2145.   _RpcNsMgmtSetExpAge: Pointer;
  2147. function RpcNsMgmtSetExpAge;
  2148. begin
  2149.   GetProcedureAddress(_RpcNsMgmtSetExpAge, rpcns4, 'RpcNsMgmtSetExpAge');
  2150.   asm
  2151.     mov esp, ebp
  2152.     pop ebp
  2153.     jmp [_RpcNsMgmtSetExpAge]
  2154.   end;
  2155. end;
  2156. {$ELSE}
  2157. function RpcNsMgmtSetExpAge; external rpcns4 name 'RpcNsMgmtSetExpAge';
  2158. {$ENDIF DYNAMIC_LINK}
  2160. {$IFDEF DYNAMIC_LINK}
  2161. var
  2162.   _RpcNsBindingImportBeginA: Pointer;
  2164. function RpcNsBindingImportBeginA;
  2165. begin
  2166.   GetProcedureAddress(_RpcNsBindingImportBeginA, rpcns4, 'RpcNsBindingImportBeginA');
  2167.   asm
  2168.     mov esp, ebp
  2169.     pop ebp
  2170.     jmp [_RpcNsBindingImportBeginA]
  2171.   end;
  2172. end;
  2173. {$ELSE}
  2174. function RpcNsBindingImportBeginA; external rpcns4 name 'RpcNsBindingImportBeginA';
  2175. {$ENDIF DYNAMIC_LINK}
  2177. {$IFDEF DYNAMIC_LINK}
  2178. var
  2179.   _RpcNsBindingImportBeginW: Pointer;
  2181. function RpcNsBindingImportBeginW;
  2182. begin
  2183.   GetProcedureAddress(_RpcNsBindingImportBeginW, rpcns4, 'RpcNsBindingImportBeginW');
  2184.   asm
  2185.     mov esp, ebp
  2186.     pop ebp
  2187.     jmp [_RpcNsBindingImportBeginW]
  2188.   end;
  2189. end;
  2190. {$ELSE}
  2191. function RpcNsBindingImportBeginW; external rpcns4 name 'RpcNsBindingImportBeginW';
  2192. {$ENDIF DYNAMIC_LINK}
  2193. {$IFDEF UNICODE}
  2195. {$IFDEF DYNAMIC_LINK}
  2196. var
  2197.   _RpcNsBindingImportBegin: Pointer;
  2199. function RpcNsBindingImportBegin;
  2200. begin
  2201.   GetProcedureAddress(_RpcNsBindingImportBegin, rpcns4, 'RpcNsBindingImportBeginW');
  2202.   asm
  2203.     mov esp, ebp
  2204.     pop ebp
  2205.     jmp [_RpcNsBindingImportBegin]
  2206.   end;
  2207. end;
  2208. {$ELSE}
  2209. function RpcNsBindingImportBegin; external rpcns4 name 'RpcNsBindingImportBeginW';
  2210. {$ENDIF DYNAMIC_LINK}
  2211. {$ELSE}
  2213. {$IFDEF DYNAMIC_LINK}
  2214. var
  2215.   _RpcNsBindingImportBegin: Pointer;
  2217. function RpcNsBindingImportBegin;
  2218. begin
  2219.   GetProcedureAddress(_RpcNsBindingImportBegin, rpcns4, 'RpcNsBindingImportBeginA');
  2220.   asm
  2221.     mov esp, ebp
  2222.     pop ebp
  2223.     jmp [_RpcNsBindingImportBegin]
  2224.   end;
  2225. end;
  2226. {$ELSE}
  2227. function RpcNsBindingImportBegin; external rpcns4 name 'RpcNsBindingImportBeginA';
  2228. {$ENDIF DYNAMIC_LINK}
  2229. {$ENDIF}
  2231. {$IFDEF DYNAMIC_LINK}
  2232. var
  2233.   _RpcNsBindingImportNext: Pointer;
  2235. function RpcNsBindingImportNext;
  2236. begin
  2237.   GetProcedureAddress(_RpcNsBindingImportNext, rpcns4, 'RpcNsBindingImportNext');
  2238.   asm
  2239.     mov esp, ebp
  2240.     pop ebp
  2241.     jmp [_RpcNsBindingImportNext]
  2242.   end;
  2243. end;
  2244. {$ELSE}
  2245. function RpcNsBindingImportNext; external rpcns4 name 'RpcNsBindingImportNext';
  2246. {$ENDIF DYNAMIC_LINK}
  2248. {$IFDEF DYNAMIC_LINK}
  2249. var
  2250.   _RpcNsBindingImportDone: Pointer;
  2252. function RpcNsBindingImportDone;
  2253. begin
  2254.   GetProcedureAddress(_RpcNsBindingImportDone, rpcns4, 'RpcNsBindingImportDone');
  2255.   asm
  2256.     mov esp, ebp
  2257.     pop ebp
  2258.     jmp [_RpcNsBindingImportDone]
  2259.   end;
  2260. end;
  2261. {$ELSE}
  2262. function RpcNsBindingImportDone; external rpcns4 name 'RpcNsBindingImportDone';
  2263. {$ENDIF DYNAMIC_LINK}
  2265. {$IFDEF DYNAMIC_LINK}
  2266. var
  2267.   _RpcNsBindingSelect: Pointer;
  2269. function RpcNsBindingSelect;
  2270. begin
  2271.   GetProcedureAddress(_RpcNsBindingSelect, rpcns4, 'RpcNsBindingSelect');
  2272.   asm
  2273.     mov esp, ebp
  2274.     pop ebp
  2275.     jmp [_RpcNsBindingSelect]
  2276.   end;
  2277. end;
  2278. {$ELSE}
  2279. function RpcNsBindingSelect; external rpcns4 name 'RpcNsBindingSelect';
  2280. {$ENDIF DYNAMIC_LINK}
  2282. end.