jwarpcnsi.pas

比较全面的win32api开发包

  var IfIdVec: PRPC_IF_ID_VECTOR): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsMgmtEntryInqIfIdsW}

{$IFDEF UNICODE}
function RpcNsMgmtEntryInqIfIds(EntryNameSyntax: Longword; EntryName: PWideChar;
  var IfIdVec: PRPC_IF_ID_VECTOR): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsMgmtEntryInqIfIds}
{$ELSE}
function RpcNsMgmtEntryInqIfIds(EntryNameSyntax: Longword; EntryName: PChar;
  var IfIdVec: PRPC_IF_ID_VECTOR): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsMgmtEntryInqIfIds}
{$ENDIF}

function RpcNsMgmtHandleSetExpAge(NsHandle: RPC_NS_HANDLE;
  ExpirationAge: Longword): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsMgmtHandleSetExpAge}

function RpcNsMgmtInqExpAge(var ExpirationAge: Longword): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsMgmtInqExpAge}

function RpcNsMgmtSetExpAge(ExpirationAge: Longword): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsMgmtSetExpAge}

// Client API's implemented in wrappers.

function RpcNsBindingImportBeginA(EntryNameSyntax: Longword; EntryName: PChar;
  IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; var ImportContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsBindingImportBeginA}
function RpcNsBindingImportBeginW(EntryNameSyntax: Longword; EntryName: PWideChar;
  IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; var ImportContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsBindingImportBeginW}

{$IFDEF UNICODE}
function RpcNsBindingImportBegin(EntryNameSyntax: Longword; EntryName: PWideChar;
  IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; var ImportContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsBindingImportBegin}
{$ELSE}
function RpcNsBindingImportBegin(EntryNameSyntax: Longword; EntryName: PChar;
  IfSpec: RPC_IF_HANDLE; ObjUuid: PUUID; var ImportContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsBindingImportBegin}
{$ENDIF}

function RpcNsBindingImportNext(ImportContext: RPC_NS_HANDLE;
  var Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsBindingImportNext}

function RpcNsBindingImportDone(var ImportContext: RPC_NS_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsBindingImportDone}

function RpcNsBindingSelect(BindingVec: PRPC_BINDING_VECTOR; var Binding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcNsBindingSelect}

implementation

const
  rpcns4 = 'rpcns4.dll';


{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingExportA: Pointer;

function RpcNsBindingExportA;
begin
  GetProcedureAddress(_RpcNsBindingExportA, rpcns4, 'RpcNsBindingExportA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingExportA]
  end;
end;
{$ELSE}
function RpcNsBindingExportA; external rpcns4 name 'RpcNsBindingExportA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingExportW: Pointer;

function RpcNsBindingExportW;
begin
  GetProcedureAddress(_RpcNsBindingExportW, rpcns4, 'RpcNsBindingExportW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingExportW]
  end;
end;
{$ELSE}
function RpcNsBindingExportW; external rpcns4 name 'RpcNsBindingExportW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingExport: Pointer;

function RpcNsBindingExport;
begin
  GetProcedureAddress(_RpcNsBindingExport, rpcns4, 'RpcNsBindingExportW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingExport]
  end;
end;
{$ELSE}
function RpcNsBindingExport; external rpcns4 name 'RpcNsBindingExportW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingExport: Pointer;

function RpcNsBindingExport;
begin
  GetProcedureAddress(_RpcNsBindingExport, rpcns4, 'RpcNsBindingExportA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingExport]
  end;
end;
{$ELSE}
function RpcNsBindingExport; external rpcns4 name 'RpcNsBindingExportA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingUnexportA: Pointer;

function RpcNsBindingUnexportA;
begin
  GetProcedureAddress(_RpcNsBindingUnexportA, rpcns4, 'RpcNsBindingUnexportA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingUnexportA]
  end;
end;
{$ELSE}
function RpcNsBindingUnexportA; external rpcns4 name 'RpcNsBindingUnexportA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingUnexportW: Pointer;

function RpcNsBindingUnexportW;
begin
  GetProcedureAddress(_RpcNsBindingUnexportW, rpcns4, 'RpcNsBindingUnexportW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingUnexportW]
  end;
end;
{$ELSE}
function RpcNsBindingUnexportW; external rpcns4 name 'RpcNsBindingUnexportW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingUnexport: Pointer;

function RpcNsBindingUnexport;
begin
  GetProcedureAddress(_RpcNsBindingUnexport, rpcns4, 'RpcNsBindingUnexportW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingUnexport]
  end;
end;
{$ELSE}
function RpcNsBindingUnexport; external rpcns4 name 'RpcNsBindingUnexportW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingUnexport: Pointer;

function RpcNsBindingUnexport;
begin
  GetProcedureAddress(_RpcNsBindingUnexport, rpcns4, 'RpcNsBindingUnexportA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingUnexport]
  end;
end;
{$ELSE}
function RpcNsBindingUnexport; external rpcns4 name 'RpcNsBindingUnexportA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingExportPnPA: Pointer;

function RpcNsBindingExportPnPA;
begin
  GetProcedureAddress(_RpcNsBindingExportPnPA, rpcns4, 'RpcNsBindingExportPnPA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingExportPnPA]
  end;
end;
{$ELSE}
function RpcNsBindingExportPnPA; external rpcns4 name 'RpcNsBindingExportPnPA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingExportPnPW: Pointer;

function RpcNsBindingExportPnPW;
begin
  GetProcedureAddress(_RpcNsBindingExportPnPW, rpcns4, 'RpcNsBindingExportPnPW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingExportPnPW]
  end;
end;
{$ELSE}
function RpcNsBindingExportPnPW; external rpcns4 name 'RpcNsBindingExportPnPW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingExportPnP: Pointer;

function RpcNsBindingExportPnP;
begin
  GetProcedureAddress(_RpcNsBindingExportPnP, rpcns4, 'RpcNsBindingExportPnPW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingExportPnP]
  end;
end;
{$ELSE}
function RpcNsBindingExportPnP; external rpcns4 name 'RpcNsBindingExportPnPW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingExportPnP: Pointer;

function RpcNsBindingExportPnP;
begin
  GetProcedureAddress(_RpcNsBindingExportPnP, rpcns4, 'RpcNsBindingExportPnPA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingExportPnP]
  end;
end;
{$ELSE}
function RpcNsBindingExportPnP; external rpcns4 name 'RpcNsBindingExportPnPA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingUnexportPnPA: Pointer;

function RpcNsBindingUnexportPnPA;
begin
  GetProcedureAddress(_RpcNsBindingUnexportPnPA, rpcns4, 'RpcNsBindingUnexportPnPA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingUnexportPnPA]
  end;
end;
{$ELSE}
function RpcNsBindingUnexportPnPA; external rpcns4 name 'RpcNsBindingUnexportPnPA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingUnexportPnPW: Pointer;

function RpcNsBindingUnexportPnPW;
begin
  GetProcedureAddress(_RpcNsBindingUnexportPnPW, rpcns4, 'RpcNsBindingUnexportPnPW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingUnexportPnPW]
  end;
end;
{$ELSE}
function RpcNsBindingUnexportPnPW; external rpcns4 name 'RpcNsBindingUnexportPnPW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingUnexportPnP: Pointer;

function RpcNsBindingUnexportPnP;
begin
  GetProcedureAddress(_RpcNsBindingUnexportPnP, rpcns4, 'RpcNsBindingUnexportPnPW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingUnexportPnP]
  end;
end;
{$ELSE}
function RpcNsBindingUnexportPnP; external rpcns4 name 'RpcNsBindingUnexportPnPW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingUnexportPnP: Pointer;

function RpcNsBindingUnexportPnP;
begin
  GetProcedureAddress(_RpcNsBindingUnexportPnP, rpcns4, 'RpcNsBindingUnexportPnPA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingUnexportPnP]
  end;
end;
{$ELSE}
function RpcNsBindingUnexportPnP; external rpcns4 name 'RpcNsBindingUnexportPnPA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingLookupBeginA: Pointer;

function RpcNsBindingLookupBeginA;
begin
  GetProcedureAddress(_RpcNsBindingLookupBeginA, rpcns4, 'RpcNsBindingLookupBeginA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingLookupBeginA]
  end;
end;
{$ELSE}
function RpcNsBindingLookupBeginA; external rpcns4 name 'RpcNsBindingLookupBeginA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingLookupBeginW: Pointer;

function RpcNsBindingLookupBeginW;
begin
  GetProcedureAddress(_RpcNsBindingLookupBeginW, rpcns4, 'RpcNsBindingLookupBeginW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingLookupBeginW]
  end;
end;
{$ELSE}
function RpcNsBindingLookupBeginW; external rpcns4 name 'RpcNsBindingLookupBeginW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingLookupBegin: Pointer;

function RpcNsBindingLookupBegin;
begin
  GetProcedureAddress(_RpcNsBindingLookupBegin, rpcns4, 'RpcNsBindingLookupBeginW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingLookupBegin]
  end;
end;
{$ELSE}
function RpcNsBindingLookupBegin; external rpcns4 name 'RpcNsBindingLookupBeginW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingLookupBegin: Pointer;

function RpcNsBindingLookupBegin;
begin
  GetProcedureAddress(_RpcNsBindingLookupBegin, rpcns4, 'RpcNsBindingLookupBeginA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingLookupBegin]
  end;
end;
{$ELSE}
function RpcNsBindingLookupBegin; external rpcns4 name 'RpcNsBindingLookupBeginA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingLookupNext: Pointer;

function RpcNsBindingLookupNext;
begin
  GetProcedureAddress(_RpcNsBindingLookupNext, rpcns4, 'RpcNsBindingLookupNext');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingLookupNext]
  end;
end;
{$ELSE}
function RpcNsBindingLookupNext; external rpcns4 name 'RpcNsBindingLookupNext';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsBindingLookupDone: Pointer;

function RpcNsBindingLookupDone;
begin
  GetProcedureAddress(_RpcNsBindingLookupDone, rpcns4, 'RpcNsBindingLookupDone');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RpcNsBindingLookupDone]
  end;
end;
{$ELSE}
function RpcNsBindingLookupDone; external rpcns4 name 'RpcNsBindingLookupDone';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _RpcNsGroupDeleteA: Pointer;

function RpcNsGroupDeleteA;
begin
  GetProcedureAddress(_RpcNsGroupDeleteA, rpcns4, 'RpcNsGroupDeleteA');
  asm
    mov esp, ebp
    pop ebp