paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-13 13:31:36 +01:00
Code Issues Packages Projects Releases Wiki Activity
762e335da1
fpc/packages/extra/winunits/jwanetsh.pas
fpc 790a4fe2d3 * log and id tags removed 
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

531 lines
18 KiB
ObjectPascal
Raw Blame History

{******************************************************************************}
{ }
{ Net Shell API interface Unit for Object Pascal }
{ }
{ Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft }
{ Corporation. All Rights Reserved. }
{ }
{ The original file is: netsh.h, released August 2001. The original Pascal }
{ code is: NetSh.pas, released December 2001. 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 JwaNetSh;
{$WEAKPACKAGEUNIT}
{$HPPEMIT ''}
{$HPPEMIT '#include "netsh.h"'}
{$HPPEMIT ''}
{$I jediapilib.inc}
interface
uses
JwaWinNT, JwaWinType;
// This file contains definitions which are needed by all NetSh helper DLLs.
//
// Error codes
//
const
NETSH_ERROR_BASE = 15000;
{$EXTERNALSYM NETSH_ERROR_BASE}
ERROR_NO_ENTRIES = NETSH_ERROR_BASE + 0;
{$EXTERNALSYM ERROR_NO_ENTRIES}
ERROR_INVALID_SYNTAX = NETSH_ERROR_BASE + 1;
{$EXTERNALSYM ERROR_INVALID_SYNTAX}
ERROR_PROTOCOL_NOT_IN_TRANSPORT = NETSH_ERROR_BASE + 2;
{$EXTERNALSYM ERROR_PROTOCOL_NOT_IN_TRANSPORT}
ERROR_NO_CHANGE = NETSH_ERROR_BASE + 3;
{$EXTERNALSYM ERROR_NO_CHANGE}
ERROR_CMD_NOT_FOUND = NETSH_ERROR_BASE + 4;
{$EXTERNALSYM ERROR_CMD_NOT_FOUND}
ERROR_ENTRY_PT_NOT_FOUND = NETSH_ERROR_BASE + 5;
{$EXTERNALSYM ERROR_ENTRY_PT_NOT_FOUND}
ERROR_DLL_LOAD_FAILED = NETSH_ERROR_BASE + 6;
{$EXTERNALSYM ERROR_DLL_LOAD_FAILED}
ERROR_INIT_DISPLAY = NETSH_ERROR_BASE + 7;
{$EXTERNALSYM ERROR_INIT_DISPLAY}
ERROR_TAG_ALREADY_PRESENT = NETSH_ERROR_BASE + 8;
{$EXTERNALSYM ERROR_TAG_ALREADY_PRESENT}
ERROR_INVALID_OPTION_TAG = NETSH_ERROR_BASE + 9;
{$EXTERNALSYM ERROR_INVALID_OPTION_TAG}
ERROR_NO_TAG = NETSH_ERROR_BASE + 10;
{$EXTERNALSYM ERROR_NO_TAG}
ERROR_MISSING_OPTION = NETSH_ERROR_BASE + 11;
{$EXTERNALSYM ERROR_MISSING_OPTION}
ERROR_TRANSPORT_NOT_PRESENT = NETSH_ERROR_BASE + 12;
{$EXTERNALSYM ERROR_TRANSPORT_NOT_PRESENT}
ERROR_SHOW_USAGE = NETSH_ERROR_BASE + 13;
{$EXTERNALSYM ERROR_SHOW_USAGE}
ERROR_INVALID_OPTION_VALUE = NETSH_ERROR_BASE + 14;
{$EXTERNALSYM ERROR_INVALID_OPTION_VALUE}
ERROR_OKAY = NETSH_ERROR_BASE + 15;
{$EXTERNALSYM ERROR_OKAY}
ERROR_CONTINUE_IN_PARENT_CONTEXT = NETSH_ERROR_BASE + 16;
{$EXTERNALSYM ERROR_CONTINUE_IN_PARENT_CONTEXT}
ERROR_SUPPRESS_OUTPUT = NETSH_ERROR_BASE + 17;
{$EXTERNALSYM ERROR_SUPPRESS_OUTPUT}
ERROR_HELPER_ALREADY_REGISTERED = NETSH_ERROR_BASE + 18;
{$EXTERNALSYM ERROR_HELPER_ALREADY_REGISTERED}
ERROR_CONTEXT_ALREADY_REGISTERED = NETSH_ERROR_BASE + 19;
{$EXTERNALSYM ERROR_CONTEXT_ALREADY_REGISTERED}
NETSH_ERROR_END = ERROR_CONTEXT_ALREADY_REGISTERED;
{$EXTERNALSYM NETSH_ERROR_END}
// Flags
type
NS_CMD_FLAGS = DWORD;
{$EXTERNALSYM NS_CMD_FLAGS}
TNsCmdFlags = NS_CMD_FLAGS;
const
CMD_FLAG_PRIVATE = $01; // not valid in sub-contexts
{$EXTERNALSYM CMD_FLAG_PRIVATE}
CMD_FLAG_INTERACTIVE = $02; // not valid from outside netsh
{$EXTERNALSYM CMD_FLAG_INTERACTIVE}
CMD_FLAG_LOCAL = $08; // not valid from a remote machine
{$EXTERNALSYM CMD_FLAG_LOCAL}
CMD_FLAG_ONLINE = $10; // not valid in offline/non-commit mode
{$EXTERNALSYM CMD_FLAG_ONLINE}
CMD_FLAG_HIDDEN = $20; // hide from help but allow execution
{$EXTERNALSYM CMD_FLAG_HIDDEN}
CMD_FLAG_LIMIT_MASK = $ffff;
{$EXTERNALSYM CMD_FLAG_LIMIT_MASK}
CMD_FLAG_PRIORITY = DWORD($80000000); // ulPriority field is used
{$EXTERNALSYM CMD_FLAG_PRIORITY}
type
NS_REQS = (
NS_REQ_ZERO,
NS_REQ_PRESENT,
NS_REQ_ALLOW_MULTIPLE,
NS_REQ_ONE_OR_MORE);
{$EXTERNALSYM NS_REQS}
TNsReqs = NS_REQS;
NS_EVENTS = DWORD;
{$EXTERNALSYM NS_EVENTS}
TNsEvents = NS_EVENTS;
const
NS_EVENT_LOOP = $00010000;
{$EXTERNALSYM NS_EVENT_LOOP}
NS_EVENT_LAST_N = $00000001;
{$EXTERNALSYM NS_EVENT_LAST_N}
NS_EVENT_LAST_SECS = $00000002;
{$EXTERNALSYM NS_EVENT_LAST_SECS}
NS_EVENT_FROM_N = $00000004;
{$EXTERNALSYM NS_EVENT_FROM_N}
NS_EVENT_FROM_START = $00000008;
{$EXTERNALSYM NS_EVENT_FROM_START}
type
NS_MODE_CHANGE = (
NETSH_COMMIT,
NETSH_UNCOMMIT,
NETSH_FLUSH,
NETSH_COMMIT_STATE,
NETSH_SAVE);
{$EXTERNALSYM NS_MODE_CHANGE}
TNsModeChange = NS_MODE_CHANGE;
const
NS_GET_EVENT_IDS_FN_NAME = 'GetEventIds';
{$EXTERNALSYM NS_GET_EVENT_IDS_FN_NAME}
// todo where is MAX_DLL_NAME
// MAX_NAME_LEN = MAX_DLL_NAME;
// {$EXTERNALSYM MAX_NAME_LEN}
NETSH_VERSION_50 = $0005000;
{$EXTERNALSYM NETSH_VERSION_50}
NETSH_ARG_DELIMITER = WideString('=');
{$EXTERNALSYM NETSH_ARG_DELIMITER}
NETSH_CMD_DELIMITER = WideString(' ');
{$EXTERNALSYM NETSH_CMD_DELIMITER}
NETSH_MAX_TOKEN_LENGTH = 64;
{$EXTERNALSYM NETSH_MAX_TOKEN_LENGTH}
NETSH_MAX_CMD_TOKEN_LENGTH = 128;
{$EXTERNALSYM NETSH_MAX_CMD_TOKEN_LENGTH}
NETSH_ROOT_GUID: TGUID = (
D1: 0; D2: 0; D3: 0; D4: (0, 0, 0, 0, 0, 0, 0, 0));
{$EXTERNALSYM NETSH_ROOT_GUID}
DEFAULT_CONTEXT_PRIORITY = 100;
{$EXTERNALSYM DEFAULT_CONTEXT_PRIORITY}
type
PTOKEN_VALUE = ^TOKEN_VALUE;
{$EXTERNALSYM PTOKEN_VALUE}
_TOKEN_VALUE = record
pwszToken: LPCWSTR; // literal token string
dwValue: DWORD; // ID of info string
end;
{$EXTERNALSYM _TOKEN_VALUE}
TOKEN_VALUE = _TOKEN_VALUE;
{$EXTERNALSYM TOKEN_VALUE}
TTokenValue = TOKEN_VALUE;
PTokenValue = PTOKEN_VALUE;
// Macros
(* TODO
#define CREATE_CMD_ENTRY(t,f) {CMD_##t, f, HLP_##t, HLP_##t##_EX, CMD_FLAG_PRIVATE, NULL}
#define CREATE_CMD_ENTRY_EX(t,f,i) {CMD_##t, f, HLP_##t, HLP_##t##_EX, i, NULL}
#define CREATE_CMD_ENTRY_EX_VER(t,f,i,v) {CMD_##t, f, HLP_##t, HLP_##t##_EX, i, v}
#define CREATE_CMD_GROUP_ENTRY(t,s) {CMD_##t, HLP_##t, sizeof(s)/sizeof(CMD_ENTRY), 0, s, NULL }
#define CREATE_CMD_GROUP_ENTRY_EX(t,s,i) {CMD_##t, HLP_##t, sizeof(s)/sizeof(CMD_ENTRY), i, s, NULL }
#define CREATE_CMD_GROUP_ENTRY_EX_VER(t,s,i,v) {CMD_##t, HLP_##t, sizeof(s)/sizeof(CMD_ENTRY), i, s, v }
#define NUM_TOKENS_IN_TABLE(TokenArray) sizeof(TokenArray)/sizeof(TOKEN_VALUE)
#define NUM_TAGS_IN_TABLE(TagsArray) sizeof(TagsArray)/sizeof(TAG_TYPE)
*)
// Callbacks
type
NS_CONTEXT_COMMIT_FN = function(dwAction: DWORD): DWORD; stdcall;
{$EXTERNALSYM NS_CONTEXT_COMMIT_FN}
PNS_CONTEXT_COMMIT_FN = ^NS_CONTEXT_COMMIT_FN;
{$EXTERNALSYM PNS_CONTEXT_COMMIT_FN}
TNsContextCommitFn = NS_CONTEXT_COMMIT_FN;
PNsContextCommitFn = PNS_CONTEXT_COMMIT_FN;
NS_CONTEXT_CONNECT_FN = function(pwszMachine: LPCWSTR): DWORD; stdcall;
{$EXTERNALSYM NS_CONTEXT_CONNECT_FN}
PNS_CONTEXT_CONNECT_FN = ^NS_CONTEXT_CONNECT_FN;
{$EXTERNALSYM PNS_CONTEXT_CONNECT_FN}
TNsContextConnextFn = NS_CONTEXT_CONNECT_FN;
PNsContextConnextFn = PNS_CONTEXT_CONNECT_FN;
NS_CONTEXT_DUMP_FN = function(pwszRouter: LPCWSTR; var ppwcArguments: LPWSTR; dwArgCount: DWORD; pvData: LPCVOID): DWORD; stdcall;
{$EXTERNALSYM NS_CONTEXT_DUMP_FN}
PNS_CONTEXT_DUMP_FN = ^NS_CONTEXT_DUMP_FN;
{$EXTERNALSYM PNS_CONTEXT_DUMP_FN}
TNsContextDumpFn = NS_CONTEXT_DUMP_FN;
PNsContextDumpFn = PNS_CONTEXT_DUMP_FN;
NS_DLL_STOP_FN = function(dwReserved: DWORD): DWORD; stdcall;
{$EXTERNALSYM NS_DLL_STOP_FN}
PNS_DLL_STOP_FN = ^NS_DLL_STOP_FN;
{$EXTERNALSYM PNS_DLL_STOP_FN}
TNsDllStopFn = NS_DLL_STOP_FN;
PNsDllStopFn = PNS_DLL_STOP_FN;
NS_HELPER_START_FN = function(const pguidParent: TGUID; dwVersion: DWORD): DWORD; stdcall;
{$EXTERNALSYM NS_HELPER_START_FN}
PNS_HELPER_START_FN = NS_HELPER_START_FN;
{$EXTERNALSYM PNS_HELPER_START_FN}
TNsHelperStartFn = NS_HELPER_START_FN;
PNsHelperStartFn = PNS_HELPER_START_FN;
NS_HELPER_STOP_FN = function(dwReserved: DWORD): DWORD; stdcall;
{$EXTERNALSYM NS_HELPER_STOP_FN}
PNS_HELPER_STOP_FN = ^NS_HELPER_STOP_FN;
{$EXTERNALSYM PNS_HELPER_STOP_FN}
TNsHelperStopFn = NS_HELPER_STOP_FN;
PNsHelperStopFn = PNS_HELPER_STOP_FN;
FN_HANDLE_CMD = function(pwszMachine: LPCWSTR; var ppwcArguments: LPWSTR; dwCurrentIndex, dwArgCount,
dwFlags: DWORD; pvData: LPCVOID; var pbDone: BOOL): DWORD; stdcall;
{$EXTERNALSYM FN_HANDLE_CMD}
PFN_HANDLE_CMD = ^FN_HANDLE_CMD;
{$EXTERNALSYM PFN_HANDLE_CMD}
TFnHandleCmd = FN_HANDLE_CMD;
PFnHandleCmd = PFN_HANDLE_CMD;
NS_OSVERSIONCHECK = function(CIMOSType, CIMOSProductSuite: UINT; CIMOSVersion, CIMOSBuildNumber, CIMServicePackMajorVersion,
CIMServicePackMinorVersion: LPCWSTR; CIMProcessorArchitecture: UINT; dwReserved: DWORD): BOOL; stdcall;
{$EXTERNALSYM NS_OSVERSIONCHECK}
PNS_OSVERSIONCHECK = ^NS_OSVERSIONCHECK;
{$EXTERNALSYM PNS_OSVERSIONCHECK}
TNsOSVersionCheck = NS_OSVERSIONCHECK;
PNsOSVersionCheck = PNS_OSVERSIONCHECK;
// Structures
_NS_HELPER_ATTRIBUTES = record
Union: record
case Integer of
0: (
dwVersion: DWORD;
dwReserved: DWORD);
1: (
_ullAlign: ULONGLONG);
end;
guidHelper: TGUID; // GUID associated with the helper
pfnStart: PNS_HELPER_START_FN; // Function to start this helper
pfnStop: PNS_HELPER_STOP_FN; // Function to stop this helper
end;
{$EXTERNALSYM _NS_HELPER_ATTRIBUTES}
NS_HELPER_ATTRIBUTES = _NS_HELPER_ATTRIBUTES;
{$EXTERNALSYM NS_HELPER_ATTRIBUTES}
PNS_HELPER_ATTRIBUTES = ^NS_HELPER_ATTRIBUTES;
{$EXTERNALSYM PNS_HELPER_ATTRIBUTES}
TNsHelperAttributes = NS_HELPER_ATTRIBUTES;
PNsHelperAttributes = PNS_HELPER_ATTRIBUTES;
PCMD_ENTRY = ^CMD_ENTRY;
{$EXTERNALSYM PCMD_ENTRY}
_CMD_ENTRY = record
pwszCmdToken: LPCWSTR; // The token for the command
pfnCmdHandler: PFN_HANDLE_CMD; // The function which handles this command
dwShortCmdHelpToken: DWORD; // The short help message
dwCmdHlpToken: DWORD; // The message to display if the only thing after the command is a help token (HELP, /?, -?, ?)
dwFlags: DWORD; // Flags (see CMD_FLAGS_xxx above)
pOsVersionCheck: PNS_OSVERSIONCHECK; // Check for the version of the OS this command can run against
end;
{$EXTERNALSYM _CMD_ENTRY}
CMD_ENTRY = _CMD_ENTRY;
{$EXTERNALSYM CMD_ENTRY}
TCmdEntry = CMD_ENTRY;
PCmdEntry = PCMD_ENTRY;
PCMD_GROUP_ENTRY = ^CMD_GROUP_ENTRY;
{$EXTERNALSYM PCMD_GROUP_ENTRY}
_CMD_GROUP_ENTRY = record
pwszCmdGroupToken: LPCWSTR; // The token for the command verb
dwShortCmdHelpToken: DWORD; // The message to display in a command listing.
ulCmdGroupSize: ULONG; // The number of entries in the cmd table
dwFlags: DWORD; // Flags (see CMD_FLAG_xxx)
pCmdGroup: PCMD_ENTRY; // The command table
pOsVersionCheck: PNS_OSVERSIONCHECK; // Check for the version of the OS this command can run against
end;
{$EXTERNALSYM _CMD_GROUP_ENTRY}
CMD_GROUP_ENTRY = _CMD_GROUP_ENTRY;
{$EXTERNALSYM CMD_GROUP_ENTRY}
TCmdGroupEntry = CMD_GROUP_ENTRY;
PCmdGroupEntry = PCMD_GROUP_ENTRY;
_NS_CONTEXT_ATTRIBUTES = record
Union: record
case Integer of
0: (
dwVersion: DWORD;
dwReserved: DWORD);
1: (
_ullAlign: ULONGLONG);
end;
pwszContext: LPWSTR; // Name of the context
guidHelper: TGUID; // GUID of the helper servicing this context
dwFlags: DWORD; // Flags limiting when context is available. (See CMD_FLAG_xxx)
ulPriority: ULONG; // Priority field is only relevant if CMD_FLAG_PRIORITY is set in dwFlags
ulNumTopCmds: ULONG; // Number of top-level commands
pTopCmds: PCMD_ENTRY; // Array of top-level commands
ulNumGroups: ULONG; // Number of command groups
pCmdGroups: PCMD_GROUP_ENTRY; // Array of command groups
pfnCommitFn: PNS_CONTEXT_COMMIT_FN;
pfnDumpFn: PNS_CONTEXT_DUMP_FN;
pfnConnectFn: PNS_CONTEXT_CONNECT_FN;
pReserved: PVOID;
pfnOsVersionCheck: PNS_OSVERSIONCHECK;
end;
{$EXTERNALSYM _NS_CONTEXT_ATTRIBUTES}
NS_CONTEXT_ATTRIBUTES = _NS_CONTEXT_ATTRIBUTES;
{$EXTERNALSYM NS_CONTEXT_ATTRIBUTES}
PNS_CONTEXT_ATTRIBUTES = ^NS_CONTEXT_ATTRIBUTES;
{$EXTERNALSYM PNS_CONTEXT_ATTRIBUTES}
TNsContextAttributes = NS_CONTEXT_ATTRIBUTES;
PNsContextAttributes = PNS_CONTEXT_ATTRIBUTES;
PCNS_CONTEXT_ATTRIBUTES = ^_NS_CONTEXT_ATTRIBUTES;
{$EXTERNALSYM PCNS_CONTEXT_ATTRIBUTES}
PTAG_TYPE = ^TAG_TYPE;
{$EXTERNALSYM PTAG_TYPE}
_TAG_TYPE = record
pwszTag: LPCWSTR; // tag string
dwRequired: DWORD; // required or not
bPresent: BOOL; // present or not
end;
{$EXTERNALSYM _TAG_TYPE}
TAG_TYPE = _TAG_TYPE;
{$EXTERNALSYM TAG_TYPE}
TTagType = TAG_TYPE;
PTagType = PTAG_TYPE;
type
NS_DLL_INIT_FN = function(dwNetshVersion: DWORD; pReserved: PVOID): DWORD; stdcall;
{$EXTERNALSYM NS_DLL_INIT_FN}
PNS_DLL_INIT_FN = ^NS_DLL_INIT_FN;
{$EXTERNALSYM PNS_DLL_INIT_FN}
TNdDllInitFn = NS_DLL_INIT_FN;
PNdDllInitFn = PNS_DLL_INIT_FN;
// Exports
function GetHostMachineInfo(var puiCIMOSType, puiCIMOSProductSuite: UINT; pszCIMOSVersion, pszCIMOSBuildNumber,
pszCIMServicePackMajorVersion, pszCIMServicePackMinorVersion: LPWSTR; var puiCIMProcessorArchitecture: UINT): DWORD; stdcall;
{$EXTERNALSYM GetHostMachineInfo}
function MatchEnumTag(hModule: HANDLE; pwcArg: LPCWSTR; dwNumArg: DWORD; pEnumTable: PTOKEN_VALUE; pdwValue: PDWORD): DWORD; stdcall;
{$EXTERNALSYM MatchEnumTag}
function MatchToken(pwszUserToken, pwszCmdToken: LPCWSTR): BOOL; stdcall;
{$EXTERNALSYM MatchToken}
function PreprocessCommand(hModule: HANDLE; var ppwcArguments: LPWSTR; dwCurrentIndex, dwArgCount: DWORD; pttTags: PTAG_TYPE;
dwTagCount, dwMinArgs, dwMaxArgs: DWORD; var pdwTagType: DWORD): DWORD; stdcall;
{$EXTERNALSYM PreprocessCommand}
(* TODO
DWORD PrintError(
IN HANDLE hModule, OPTIONAL
IN DWORD dwErrId,
...
);
DWORD PrintMessageFromModule(
IN HANDLE hModule,
IN DWORD dwMsgId,
...
);
DWORD PrintMessage(
IN LPCWSTR pwszFormat,
...
);
*)
function RegisterContext(pChildContext: PNS_CONTEXT_ATTRIBUTES): DWORD; stdcall;
{$EXTERNALSYM RegisterContext}
function RegisterHelper(const pguidParentContext: TGUID; pfnRegisterSubContext: PNS_HELPER_ATTRIBUTES): DWORD; stdcall;
{$EXTERNALSYM RegisterHelper}
implementation
const
netsh = 'netsh.exe';
{$IFDEF DYNAMIC_LINK}
var
_GetHostMachineInfo: Pointer;
function GetHostMachineInfo;
begin
GetProcedureAddress(_GetHostMachineInfo, netsh, 'GetHostMachineInfo');
asm
MOV ESP, EBP
POP EBP
JMP [_GetHostMachineInfo]
end;
end;
var
_MatchEnumTag: Pointer;
function MatchEnumTag;
begin
GetProcedureAddress(_MatchEnumTag, netsh, 'MatchEnumTag');
asm
MOV ESP, EBP
POP EBP
JMP [_MatchEnumTag]
end;
end;
var
_MatchToken: Pointer;
function MatchToken;
begin
GetProcedureAddress(_MatchToken, netsh, 'MatchToken');
asm
MOV ESP, EBP
POP EBP
JMP [_MatchToken]
end;
end;
var
_PreprocessCommand: Pointer;
function PreprocessCommand;
begin
GetProcedureAddress(_PreprocessCommand, netsh, 'PreprocessCommand');
asm
MOV ESP, EBP
POP EBP
JMP [_PreprocessCommand]
end;
end;
var
_RegisterContext: Pointer;
function RegisterContext;
begin
GetProcedureAddress(_RegisterContext, netsh, 'RegisterContext');
asm
MOV ESP, EBP
POP EBP
JMP [_RegisterContext]
end;
end;
var
_RegisterHelper: Pointer;
function RegisterHelper;
begin
GetProcedureAddress(_RegisterHelper, netsh, 'RegisterHelper');
asm
MOV ESP, EBP
POP EBP
JMP [_RegisterHelper]
end;
end;
{$ELSE}
function GetHostMachineInfo; external netsh name 'GetHostMachineInfo';
function MatchEnumTag; external netsh name 'MatchEnumTag';
function MatchToken; external netsh name 'MatchToken';
function PreprocessCommand; external netsh name 'PreprocessCommand';
function RegisterContext; external netsh name 'RegisterContext';
function RegisterHelper; external netsh name 'RegisterHelper';
{$ENDIF DYNAMIC_LINK}
end.
Reference in New Issue View Git Blame Copy Permalink