freepascal.compiler/packages/extra/winunits/jwadhcpsapi.pas

{******************************************************************************}
{                                                                              }
{ DHCP Server Management API interface Unit for Object Pascal                  }
{                                                                              }
{ Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
{ Corporation. All Rights Reserved.                                            }
{                                                                              }
{ The original file is: dhcpsapi.h, released Feb 2003. The original Pascal     }
{ code is: DhcpsApi.pas, released December 2003. The initial developer of the  }
{ Pascal code is Marcel van Brakel (brakelm att chello dott nl).               }
{                                                                              }
{ Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
{ Marcel van Brakel. All Rights Reserved.                                      }
{                                                                              }
{ Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
{                                                                              }
{ You may retrieve the latest version of this file at the Project JEDI         }
{ APILIB home page, located at http://jedi-apilib.sourceforge.net              }
{                                                                              }
{ The contents of this file are used with permission, subject to the Mozilla   }
{ Public License Version 1.1 (the "License"); you may not use this file except }
{ in compliance with the License. You may obtain a copy of the License at      }
{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }
{                                                                              }
{ Software distributed under the License is distributed on an "AS IS" basis,   }
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
{ the specific language governing rights and limitations under the License.    }
{                                                                              }
{ Alternatively, the contents of this file may be used under the terms of the  }
{ GNU Lesser General Public License (the  "LGPL License"), in which case the   }
{ provisions of the LGPL License are applicable instead of those above.        }
{ If you wish to allow use of your version of this file only under the terms   }
{ of the LGPL License and not to allow others to use your version of this file }
{ under the MPL, indicate your decision by deleting  the provisions above and  }
{ replace  them with the notice and other provisions required by the LGPL      }
{ License.  If you do not delete the provisions above, a recipient may use     }
{ your version of this file under either the MPL or the LGPL License.          }
{                                                                              }
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
{                                                                              }
{******************************************************************************}


unit JwaDhcpsApi;

{$WEAKPACKAGEUNIT}

{$HPPEMIT ''}
{$HPPEMIT '#include "dhcpsapi.h"'}
{$HPPEMIT ''}

{$I jediapilib.inc}

interface

uses
  JwaWinType;

type
  DHCP_IP_ADDRESS = DWORD;
  {$EXTERNALSYM DHCP_IP_ADDRESS}
  PDHCP_IP_ADDRESS = ^DHCP_IP_ADDRESS;
  {$EXTERNALSYM PDHCP_IP_ADDRESS}
  LPDHCP_IP_ADDRESS = ^DHCP_IP_ADDRESS;
  {$EXTERNALSYM LPDHCP_IP_ADDRESS}
  TDhcpIpAddress = DHCP_IP_ADDRESS;
  PDhcpIpAddress = ^DHCP_IP_ADDRESS;

  DHCP_IP_MASK = DWORD;
  {$EXTERNALSYM DHCP_IP_MASK}
  TDhcpIpMask = DHCP_IP_MASK;
  DHCP_RESUME_HANDLE = DWORD;
  {$EXTERNALSYM DHCP_RESUME_HANDLE}
  TDhcpResumeHandle = DHCP_RESUME_HANDLE;

  DHCP_OPTION_ID = DWORD;
  {$EXTERNALSYM DHCP_OPTION_ID}
  TDhcpOptionID = DHCP_OPTION_ID;

  _DATE_TIME = record
    dwLowDateTime: DWORD;
    dwHighDateTime: DWORD;
  end;
  {$EXTERNALSYM _DATE_TIME}
  DATE_TIME = _DATE_TIME;
  {$EXTERNALSYM DATE_TIME}
  LPDATE_TIME = ^DATE_TIME;
  {$EXTERNALSYM LPDATE_TIME}
  TDateTime = DATE_TIME;
  PDateTime = ^DATE_TIME;

  _DWORD_DWORD = record
    DWord1: DWORD;
    DWord2: DWORD;
  end;
  {$EXTERNALSYM _DWORD_DWORD}
  DWORD_DWORD = _DWORD_DWORD;
  {$EXTERNALSYM DWORD_DWORD}
  LPDWORD_DWORD = ^DWORD_DWORD;
  {$EXTERNALSYM LPDWORD_DWORD}
  TDwordDword = DWORD_DWORD;
  PDwordDword = ^DWORD_DWORD;

  _DHCP_BINARY_DATA = record
    DataLength: DWORD;
    Data: LPBYTE;
  end;
  {$EXTERNALSYM _DHCP_BINARY_DATA}
  DHCP_BINARY_DATA = _DHCP_BINARY_DATA;
  {$EXTERNALSYM DHCP_BINARY_DATA}
  LPDHCP_BINARY_DATA = ^DHCP_BINARY_DATA;
  {$EXTERNALSYM LPDHCP_BINARY_DATA}
  TDhcpBinaryData = DHCP_BINARY_DATA;
  PDhcpBinaryData = ^DHCP_BINARY_DATA;

  DHCP_CLIENT_UID = DHCP_BINARY_DATA;
  {$EXTERNALSYM DHCP_CLIENT_UID}
  TDhcpClientUid = DHCP_CLIENT_UID;

const
  DHCP_ENDPOINT_FLAG_CANT_MODIFY = $01;
  {$EXTERNALSYM DHCP_ENDPOINT_FLAG_CANT_MODIFY}

type
  _DHCP_BIND_ELEMENT = record
    Flags: ULONG;
    fBoundToDHCPServer: BOOL;
    AdapterPrimaryAddress: DHCP_IP_ADDRESS;
    AdapterSubnetAddress: DHCP_IP_ADDRESS;
    IfDescription: LPWSTR;
    IfIdSize: ULONG;
    IfId: LPBYTE;
  end;
  {$EXTERNALSYM _DHCP_BIND_ELEMENT}
  DHCP_BIND_ELEMENT = _DHCP_BIND_ELEMENT;
  {$EXTERNALSYM DHCP_BIND_ELEMENT}
  LPDHCP_BIND_ELEMENT = ^DHCP_BIND_ELEMENT;
  {$EXTERNALSYM LPDHCP_BIND_ELEMENT}
  TDhcpBindElement = DHCP_BIND_ELEMENT;
  PDhcpBindElement = ^DHCP_BIND_ELEMENT;

  _DHCP_BIND_ELEMENT_ARRAY = record
    NumElements: DWORD;
    Elements: LPDHCP_BIND_ELEMENT; //array
  end;
  {$EXTERNALSYM _DHCP_BIND_ELEMENT_ARRAY}
  DHCP_BIND_ELEMENT_ARRAY = _DHCP_BIND_ELEMENT_ARRAY;
  {$EXTERNALSYM DHCP_BIND_ELEMENT_ARRAY}
  LPDHCP_BIND_ELEMENT_ARRAY = ^DHCP_BIND_ELEMENT_ARRAY;
  {$EXTERNALSYM LPDHCP_BIND_ELEMENT_ARRAY}
  TDhcpBindElementArray = DHCP_BIND_ELEMENT_ARRAY;
  PDhcpBindElementArray = ^DHCP_BIND_ELEMENT_ARRAY;

  _DHCP_CLIENT_SEARCH_TYPE = (
    DhcpClientIpAddress,
    DhcpClientHardwareAddress,
    DhcpClientName);
  {$EXTERNALSYM _DHCP_CLIENT_SEARCH_TYPE}
  DHCP_SEARCH_INFO_TYPE = _DHCP_CLIENT_SEARCH_TYPE;
  {$EXTERNALSYM DHCP_SEARCH_INFO_TYPE}
  LPDHCP_SEARCH_INFO_TYPE = ^DHCP_SEARCH_INFO_TYPE;
  {$EXTERNALSYM LPDHCP_SEARCH_INFO_TYPE}
  TDhcpSearchInfoType = DHCP_SEARCH_INFO_TYPE;
  PDhcpSearchInfoType = ^DHCP_SEARCH_INFO_TYPE;

  _DHCP_CLIENT_SEARCH_UNION = record
    case Integer of
      0: (ClientIpAddress: DHCP_IP_ADDRESS);
      1: (ClientHardwareAddress: DHCP_CLIENT_UID);
      2: (ClientName: LPWSTR);
  end;
  {$EXTERNALSYM _DHCP_CLIENT_SEARCH_UNION}

  _DHCP_CLIENT_SEARCH_INFO = record
    SearchType: DHCP_SEARCH_INFO_TYPE;
    SearchInfo: _DHCP_CLIENT_SEARCH_UNION;
  end;
  {$EXTERNALSYM _DHCP_CLIENT_SEARCH_INFO}
  DHCP_SEARCH_INFO = _DHCP_CLIENT_SEARCH_INFO;
  {$EXTERNALSYM DHCP_SEARCH_INFO}
  LPDHCP_SEARCH_INFO = ^DHCP_SEARCH_INFO;
  {$EXTERNALSYM LPDHCP_SEARCH_INFO}
  TDhcpSearchInfo = DHCP_SEARCH_INFO;
  PDhcpSearchInfo = ^DHCP_SEARCH_INFO;

  _DHCP_OPTION_SCOPE_TYPE = (
    DhcpDefaultOptions,
    DhcpGlobalOptions,
    DhcpSubnetOptions,
    DhcpReservedOptions,
    DhcpMScopeOptions);
  {$EXTERNALSYM _DHCP_OPTION_SCOPE_TYPE}
  DHCP_OPTION_SCOPE_TYPE = _DHCP_OPTION_SCOPE_TYPE;
  {$EXTERNALSYM DHCP_OPTION_SCOPE_TYPE}
  LPDHCP_OPTION_SCOPE_TYPE = ^DHCP_OPTION_SCOPE_TYPE;
  {$EXTERNALSYM LPDHCP_OPTION_SCOPE_TYPE}
  TDhcpOptionScopeType = DHCP_OPTION_SCOPE_TYPE;
  PDhcpOptionScopeType = ^DHCP_OPTION_SCOPE_TYPE;

  _DHCP_RESERVED_SCOPE = record
    ReservedIpAddress: DHCP_IP_ADDRESS;
    ReservedIpSubnetAddress: DHCP_IP_ADDRESS;
  end;
  {$EXTERNALSYM _DHCP_RESERVED_SCOPE}
  DHCP_RESERVED_SCOPE = _DHCP_RESERVED_SCOPE;
  {$EXTERNALSYM DHCP_RESERVED_SCOPE}
  LPDHCP_RESERVED_SCOPE = ^DHCP_RESERVED_SCOPE;
  {$EXTERNALSYM LPDHCP_RESERVED_SCOPE}
  TDhcpReservedScope = DHCP_RESERVED_SCOPE;
  PDhcpReservedScope = ^DHCP_RESERVED_SCOPE;

  _DHCP_OPTION_SCOPE_UNION = record
    case Integer of
      0: (DefaultScopeInfo: PVOID); // must be NULL
      1: (GlobalScopeInfo: PVOID);  // must be NULL
      2: (SubnetScopeInfo: DHCP_IP_ADDRESS);
      3: (ReservedScopeInfo: DHCP_RESERVED_SCOPE);
      4: (MScopeInfo: LPWSTR);
  end;
  {$EXTERNALSYM _DHCP_OPTION_SCOPE_UNION}

  _DHCP_OPTION_SCOPE_INFO = record
    ScopeType: DHCP_OPTION_SCOPE_TYPE;
    ScopeInfo: _DHCP_OPTION_SCOPE_UNION;
  end;
  {$EXTERNALSYM _DHCP_OPTION_SCOPE_INFO}
  DHCP_OPTION_SCOPE_INFO = _DHCP_OPTION_SCOPE_INFO;
  {$EXTERNALSYM DHCP_OPTION_SCOPE_INFO}
  LPDHCP_OPTION_SCOPE_INFO = ^DHCP_OPTION_SCOPE_INFO;
  {$EXTERNALSYM LPDHCP_OPTION_SCOPE_INFO}
  TDhcpOptionScopeInfo = DHCP_OPTION_SCOPE_INFO;
  PDhcpOptionScopeInfo = ^DHCP_OPTION_SCOPE_INFO;

  _DHCP_HOST_INFO = record
    IpAddress: DHCP_IP_ADDRESS;      // minimum information always available
    NetBiosName: LPWSTR;             // optional information
    HostName: LPWSTR;                // optional information
  end;
  {$EXTERNALSYM _DHCP_HOST_INFO}
  DHCP_HOST_INFO = _DHCP_HOST_INFO;
  {$EXTERNALSYM DHCP_HOST_INFO}
  LPDHCP_HOST_INFO = ^DHCP_HOST_INFO;
  {$EXTERNALSYM LPDHCP_HOST_INFO}
  TDhcpHostInfo = DHCP_HOST_INFO;
  PDhcpHostInfo = ^DHCP_HOST_INFO;

  _DHCP_CLIENT_INFO = record
    ClientIpAddress: DHCP_IP_ADDRESS;    // currently assigned IP address.
    SubnetMask: DHCP_IP_MASK;
    ClientHardwareAddress: DHCP_CLIENT_UID;
    ClientName: LPWSTR;                  // optional.
    ClientComment: LPWSTR;
    ClientLeaseExpires: DATE_TIME;       // UTC time in FILE_TIME format.
    OwnerHost: DHCP_HOST_INFO;           // host that distributed this IP address.
  end;
  {$EXTERNALSYM _DHCP_CLIENT_INFO}
  DHCP_CLIENT_INFO = _DHCP_CLIENT_INFO;
  {$EXTERNALSYM DHCP_CLIENT_INFO}
  LPDHCP_CLIENT_INFO = ^DHCP_CLIENT_INFO;
  {$EXTERNALSYM LPDHCP_CLIENT_INFO}
  TDhcpClientInfo = DHCP_CLIENT_INFO;
  PDhcpClientInfo = ^DHCP_CLIENT_INFO;

  _DHCP_CLIENT_INFO_ARRAY = record
    NumElements: DWORD;
    Clients: ^LPDHCP_CLIENT_INFO; // array of pointers\
  end;
  {$EXTERNALSYM _DHCP_CLIENT_INFO_ARRAY}
  DHCP_CLIENT_INFO_ARRAY = _DHCP_CLIENT_INFO_ARRAY;
  {$EXTERNALSYM DHCP_CLIENT_INFO_ARRAY}
  LPDHCP_CLIENT_INFO_ARRAY = ^DHCP_CLIENT_INFO_ARRAY;
  {$EXTERNALSYM LPDHCP_CLIENT_INFO_ARRAY}
  TDhcpClientInfoArray = DHCP_CLIENT_INFO_ARRAY;
  PDhcpClientInfoArray = ^DHCP_CLIENT_INFO_ARRAY;

  _DHCP_IP_ARRAY = record
    NumElements: DWORD;
    Elements: LPDHCP_IP_ADDRESS; //array
  end;
  {$EXTERNALSYM _DHCP_IP_ARRAY}
  DHCP_IP_ARRAY = _DHCP_IP_ARRAY;
  {$EXTERNALSYM DHCP_IP_ARRAY}
  LPDHCP_IP_ARRAY = ^DHCP_IP_ARRAY;
  {$EXTERNALSYM LPDHCP_IP_ARRAY}
  TDhcpIpArray = DHCP_IP_ARRAY;
  PDhcpIpArray = ^DHCP_IP_ARRAY;

//
// Subnet State.
//
// Currently a Subnet scope can be Enabled or Disabled.
//
// If the state is Enabled State,
//  The server distributes address to the client, extends leases and
//  accepts releases.
//
// If the state is Disabled State,
//  The server does not distribute address to any new client, and does
//  extent (and sends NACK) old leases, but the servers accepts lease
//  releases.
//
// The idea behind this subnet state is, when the admin wants to stop
//  serving a subnet, he moves the state from Enbaled to Disabled so
//  that the clients from the subnets smoothly move to another servers
//  serving that subnet. When all or most of the clients move to
//  another server, the admin can delete the subnet without any force
//  if no client left in that subnet, otherwise the admin should use
//  full force to delete the subnet.
//

type
  _DHCP_SUBNET_STATE = (
    DhcpSubnetEnabled = 0,
    DhcpSubnetDisabled,
    DhcpSubnetEnabledSwitched,
    DhcpSubnetDisabledSwitched,
    DhcpSubnetInvalidState);
  {$EXTERNALSYM _DHCP_SUBNET_STATE}
  DHCP_SUBNET_STATE = _DHCP_SUBNET_STATE;
  {$EXTERNALSYM DHCP_SUBNET_STATE}
  LPDHCP_SUBNET_STATE = ^DHCP_SUBNET_STATE;
  {$EXTERNALSYM LPDHCP_SUBNET_STATE}
  TDhcpSubnetState = DHCP_SUBNET_STATE;
  PDhcpSubnetState = ^DHCP_SUBNET_STATE;

//
// Subnet related data structures.
//

  _DHCP_SUBNET_INFO = record
    SubnetAddress: DHCP_IP_ADDRESS;
    SubnetMask: DHCP_IP_MASK;
    SubnetName: LPWSTR;
    SubnetComment: LPWSTR;
    PrimaryHost: DHCP_HOST_INFO;
    SubnetState: DHCP_SUBNET_STATE;
  end;
  {$EXTERNALSYM _DHCP_SUBNET_INFO}
  DHCP_SUBNET_INFO = _DHCP_SUBNET_INFO;
  {$EXTERNALSYM DHCP_SUBNET_INFO}
  LPDHCP_SUBNET_INFO = ^DHCP_SUBNET_INFO;
  {$EXTERNALSYM LPDHCP_SUBNET_INFO}
  TDhcpSubnetInfo = DHCP_SUBNET_INFO;
  PDhcpSubnetInfo = ^DHCP_SUBNET_INFO;

//
// DHCP Options related data structures.
//

  _DHCP_OPTION_DATA_TYPE = (
    DhcpByteOption,
    DhcpWordOption,
    DhcpDWordOption,
    DhcpDWordDWordOption,
    DhcpIpAddressOption,
    DhcpStringDataOption,
    DhcpBinaryDataOption,
    DhcpEncapsulatedDataOption);
  {$EXTERNALSYM _DHCP_OPTION_DATA_TYPE}
  DHCP_OPTION_DATA_TYPE = _DHCP_OPTION_DATA_TYPE;
  {$EXTERNALSYM DHCP_OPTION_DATA_TYPE}
  LPDHCP_OPTION_DATA_TYPE = ^DHCP_OPTION_DATA_TYPE;
  {$EXTERNALSYM LPDHCP_OPTION_DATA_TYPE}
  TDhcpOptionDataType = DHCP_OPTION_DATA_TYPE;
  PDhcpOptionDataType = ^DHCP_OPTION_DATA_TYPE;

  _DHCP_OPTION_ELEMENT_UNION = record
    case Integer of
      0: (ByteOption: BYTE);
      1: (WordOption: WORD);
      2: (DWordOption: DWORD);
      3: (DWordDWordOption: DWORD_DWORD);
      4: (IpAddressOption: DHCP_IP_ADDRESS);
      5: (StringDataOption: LPWSTR);
      6: (BinaryDataOption: DHCP_BINARY_DATA);
      7: (EncapsulatedDataOption: DHCP_BINARY_DATA);
      // for vendor specific information option.
  end;
  {$EXTERNALSYM _DHCP_OPTION_ELEMENT_UNION}

  _DHCP_OPTION_DATA_ELEMENT = record
    OptionType: DHCP_OPTION_DATA_TYPE;
    Element: _DHCP_OPTION_ELEMENT_UNION;
  end;
  {$EXTERNALSYM _DHCP_OPTION_DATA_ELEMENT}
  DHCP_OPTION_DATA_ELEMENT = _DHCP_OPTION_DATA_ELEMENT;
  {$EXTERNALSYM DHCP_OPTION_DATA_ELEMENT}
  LPDHCP_OPTION_DATA_ELEMENT = ^DHCP_OPTION_DATA_ELEMENT;
  {$EXTERNALSYM LPDHCP_OPTION_DATA_ELEMENT}
  TDhcpOptionDataElement = DHCP_OPTION_DATA_ELEMENT;
  PDhcpOptionDataElement = ^DHCP_OPTION_DATA_ELEMENT;

  _DHCP_OPTION_DATA = record
    NumElements: DWORD; // number of option elements in the pointed array
    Elements: LPDHCP_OPTION_DATA_ELEMENT; //array
  end;
  {$EXTERNALSYM _DHCP_OPTION_DATA}
  DHCP_OPTION_DATA = _DHCP_OPTION_DATA;
  {$EXTERNALSYM DHCP_OPTION_DATA}
  LPDHCP_OPTION_DATA = ^DHCP_OPTION_DATA;
  {$EXTERNALSYM LPDHCP_OPTION_DATA}
  TDhcpOptionData = DHCP_OPTION_DATA;
  PDhcpOptionData = ^DHCP_OPTION_DATA;

  _DHCP_OPTION_VALUE = record
    OptionID: DHCP_OPTION_ID;
    Value: DHCP_OPTION_DATA;
  end;
  {$EXTERNALSYM _DHCP_OPTION_VALUE}
  DHCP_OPTION_VALUE = _DHCP_OPTION_VALUE;
  {$EXTERNALSYM DHCP_OPTION_VALUE}
  LPDHCP_OPTION_VALUE = ^DHCP_OPTION_VALUE;
  {$EXTERNALSYM LPDHCP_OPTION_VALUE}
  TDhcpOptionValue = DHCP_OPTION_VALUE;
  PDhcpOptionValue = ^DHCP_OPTION_VALUE;  

function DhcpGetVersion(ServerIpAddress: LPWSTR; MajorVersion, MinorVersion: LPDWORD): DWORD; stdcall;
{$EXTERNALSYM DhcpGetVersion}
function DhcpSetServerBindingInfo(ServerIpAddress: PWideChar; Flags: ULONG; BindElementInfo: LPDHCP_BIND_ELEMENT_ARRAY): DWORD; stdcall;
{$EXTERNALSYM DhcpSetServerBindingInfo}
function DhcpGetServerBindingInfo(ServerIpAddress: PWideChar; Flags: ULONG; out BindElementsInfo: LPDHCP_BIND_ELEMENT_ARRAY): DWORD; stdcall;
{$EXTERNALSYM DhcpGetServerBindingInfo}
function DhcpCreateClientInfo(ServerIpAddress: PWideChar; ClientInfo: LPDHCP_CLIENT_INFO): DWORD; stdcall;
{$EXTERNALSYM DhcpCreateClientInfo}
function DhcpSetClientInfo(ServerIpAddress: PWideChar; ClientInfo: LPDHCP_CLIENT_INFO): DWORD; stdcall;
{$EXTERNALSYM DhcpSetClientInfo}
function DhcpGetClientInfo(ServerIpAddress: PWideChar; SearchInfo: LPDHCP_SEARCH_INFO; ClientInfo: LPDHCP_CLIENT_INFO): DWORD; stdcall;
{$EXTERNALSYM DhcpGetClientInfo}
function DhcpDeleteClientInfo(ServerIpAddress: PWideChar; ClientInfo: LPDHCP_SEARCH_INFO): DWORD; stdcall;
{$EXTERNALSYM DhcpDeleteClientInfo}
function DhcpEnumSubnetClients(ServerIpAddress: PWideChar; SubnetAddress: DHCP_IP_ADDRESS; var ResumeHandle: DHCP_RESUME_HANDLE; PreferredMaximum: DWORD; out ClientInfo: LPDHCP_CLIENT_INFO_ARRAY; out ClientsRead, ClientsTotal: DWORD): DWORD; stdcall;
{$EXTERNALSYM DhcpEnumSubnetClients}
function DhcpEnumSubnets(ServerIpAddress: PWideChar; var ResumeHandle: DHCP_RESUME_HANDLE; PreferredMaximum: DWORD; EnumInfo: LPDHCP_IP_ARRAY; out ElementsRead, ElementsTotal: DWORD): DWORD; stdcall;
{$EXTERNALSYM DhcpEnumSubnets}
function DhcpGetSubnetInfo(ServerIpAddress: PWideChar; SubnetAddress: DHCP_IP_ADDRESS; out SubnetInfo: LPDHCP_SUBNET_INFO): DWORD; stdcall;
{$EXTERNALSYM DhcpGetSubnetInfo}
function DhcpGetOptionValue(ServerIpAddress: PWideChar; OptionID: DHCP_OPTION_ID; const ScopeInfo: DHCP_OPTION_SCOPE_INFO; out OptionValue: LPDHCP_OPTION_VALUE): DWORD; stdcall;
{$EXTERNALSYM DhcpGetOptionValue}
procedure DhcpRpcFreeMemory(BufferPointer: PVOID); stdcall;
{$EXTERNALSYM DhcpRpcFreeMemory}

implementation

const
  dhcplib = 'dhcpsapi.dll';

{$IFDEF DYNAMIC_LINK}

var
  _DhcpGetVersion: Pointer;

function DhcpGetVersion;
begin
  GetProcedureAddress(_DhcpGetVersion, dhcplib, 'DhcpGetVersion');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpGetVersion]
  end;
end;

var
  _DhcpSetServerBindingInfo: Pointer;

function DhcpSetServerBindingInfo;
begin
  GetProcedureAddress(_DhcpSetServerBindingInfo, dhcplib, 'DhcpSetServerBindingInfo');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpSetServerBindingInfo]
  end;
end;

var
  _DhcpGetServerBindingInfo: Pointer;

function DhcpGetServerBindingInfo;
begin
  GetProcedureAddress(_DhcpGetServerBindingInfo, dhcplib, 'DhcpGetServerBindingInfo');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpGetServerBindingInfo]
  end;
end;

var
  _DhcpCreateClientInfo: Pointer;

function DhcpCreateClientInfo;
begin
  GetProcedureAddress(_DhcpCreateClientInfo, dhcplib, 'DhcpCreateClientInfo');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpCreateClientInfo]
  end;
end;

var
  _DhcpSetClientInfo: Pointer;

function DhcpSetClientInfo;
begin
  GetProcedureAddress(_DhcpSetClientInfo, dhcplib, 'DhcpSetClientInfo');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpSetClientInfo]
  end;
end;

var
  _DhcpGetClientInfo: Pointer;

function DhcpGetClientInfo;
begin
  GetProcedureAddress(_DhcpGetClientInfo, dhcplib, 'DhcpGetClientInfo');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpGetClientInfo]
  end;
end;

var
  _DhcpDeleteClientInfo: Pointer;

function DhcpDeleteClientInfo;
begin
  GetProcedureAddress(_DhcpDeleteClientInfo, dhcplib, 'DhcpDeleteClientInfo');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpDeleteClientInfo]
  end;
end;

var
  _DhcpEnumSubnetClients: Pointer;

function DhcpEnumSubnetClients;
begin
  GetProcedureAddress(_DhcpEnumSubnetClients, dhcplib, 'DhcpEnumSubnetClients');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpEnumSubnetClients]
  end;
end;

var
  _DhcpEnumSubnets: Pointer;

function DhcpEnumSubnets;
begin
  GetProcedureAddress(_DhcpEnumSubnets, dhcplib, 'DhcpEnumSubnets');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpEnumSubnets]
  end;
end;

var
  _DhcpGetSubnetInfo: Pointer;

function DhcpGetSubnetInfo;
begin
  GetProcedureAddress(_DhcpGetSubnetInfo, dhcplib, 'DhcpGetSubnetInfo');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpGetSubnetInfo]
  end;
end;

var
  _DhcpGetOptionValue: Pointer;

function DhcpGetOptionValue;
begin
  GetProcedureAddress(_DhcpGetOptionValue, dhcplib, 'DhcpGetOptionValue');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpGetOptionValue]
  end;
end;

var
  _DhcpRpcFreeMemory: Pointer;

procedure DhcpRpcFreeMemory;
begin
  GetProcedureAddress(_DhcpRpcFreeMemory, dhcplib, 'DhcpRpcFreeMemory');
  asm
        MOV     ESP, EBP
        POP     EBP
        JMP     [_DhcpRpcFreeMemory]
  end;
end;
                                   
{$ELSE}

function DhcpGetVersion; external dhcplib name 'DhcpGetVersion';
function DhcpSetServerBindingInfo; external dhcplib name 'DhcpSetServerBindingInfo';
function DhcpGetServerBindingInfo; external dhcplib name 'DhcpGetServerBindingInfo';
function DhcpCreateClientInfo; external dhcplib name 'DhcpCreateClientInfo';
function DhcpSetClientInfo; external dhcplib name 'DhcpSetClientInfo';
function DhcpGetClientInfo; external dhcplib name 'DhcpGetClientInfo';
function DhcpDeleteClientInfo; external dhcplib name 'DhcpDeleteClientInfo';
function DhcpEnumSubnetClients; external dhcplib name 'DhcpEnumSubnetClients';
function DhcpEnumSubnets; external dhcplib name 'DhcpEnumSubnets';
function DhcpGetSubnetInfo; external dhcplib name 'DhcpGetSubnetInfo';
function DhcpGetOptionValue; external dhcplib name 'DhcpGetOptionValue';
procedure DhcpRpcFreeMemory; external dhcplib name 'DhcpRpcFreeMemory';

{$ENDIF DYNAMIC_LINK}

end.