Windows编程

开发平台：

Delphi

JwaLM.pas：源码内容

Flags: DWORD): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsAddStdRoot}
function NetDfsRemoveStdRoot(ServerName: LPWSTR; RootShare: LPWSTR;
Flags: DWORD): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsRemoveStdRoot}
function NetDfsAddFtRoot(ServerName, RootShare, FtDfsName, Comment: LPWSTR;
Flags: DWORD): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsAddFtRoot}
function NetDfsRemoveFtRoot(ServerName, RootShare, FtDfsName: LPWSTR;
Flags: DWORD): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsRemoveFtRoot}
function NetDfsRemoveFtRootForced(DomainName, ServerName, RootShare, FtDfsName: LPWSTR;
Flags: DWORD): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsRemoveFtRootForced}
// Call to reinitialize the dfsmanager on a machine
function NetDfsManagerInitialize(ServerName: LPWSTR; Flags: DWORD): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsManagerInitialize}
function NetDfsAddStdRootForced(ServerName, RootShare, Comment, Store: LPWSTR): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsAddStdRootForced}
function NetDfsGetDcAddress(ServerName: LPWSTR; DcIpAddress: LPWSTR;
var IsRoot: Boolean; var Timeout: ULONG): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsGetDcAddress}
function NetDfsSetDcAddress(ServerName: LPWSTR; DcIpAddress: LPWSTR;
Timeout: ULONG; Flags: DWORD): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsSetDcAddress}
// Flags for NetDfsSetDcAddress()
const
NET_DFS_SETDC_FLAGS = $00000000;
{$EXTERNALSYM NET_DFS_SETDC_FLAGS}
NET_DFS_SETDC_TIMEOUT = $00000001;
{$EXTERNALSYM NET_DFS_SETDC_TIMEOUT}
NET_DFS_SETDC_INITPKT = $00000002;
{$EXTERNALSYM NET_DFS_SETDC_INITPKT}
// Structures used for site reporting
type
PDfsSitenameInfo = ^TDfsSitenameInfo;
DFS_SITENAME_INFO = packed record
SiteFlags: ULONG; // Below
SiteName: LPWSTR;
end;
{$EXTERNALSYM DFS_SITENAME_INFO}
TDfsSitenameInfo = DFS_SITENAME_INFO;
const
DFS_SITE_PRIMARY = $1; // This site returned by DsGetSiteName()
{$EXTERNALSYM DFS_SITE_PRIMARY}
type
PDfsSitelistInfo = ^TDfsSitelistInfo;
DFS_SITELIST_INFO = packed record
cSites: ULONG;
Site: TDfsSitenameInfo;
end;
{$EXTERNALSYM DFS_SITELIST_INFO}
TDfsSitelistInfo = DFS_SITELIST_INFO;
// Remove a volume or additional storage for volume from the Dfs at
// DfsEntryPath. When applied to the last storage in a volume, removes
// the volume from the DFS.
function NetDfsRemove(DfsEntryPath, ServerName, ShareName: LPWSTR): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsRemove}
// Get information about all of the volumes in the Dfs. DfsName is
// the "server" part of the UNC name used to refer to this particular Dfs.
//
// Valid levels are 1-4, 200
function NetDfsEnum(DfsName: LPWSTR; Level: DWORD; PrefMaxLen: DWORD;
Buffer: Pointer; var EntriesRead: DWORD; ResumeHandle: PDWORD): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsEnum}
// Get information about the volume or storage.
// If ServerName and ShareName are specified, the information returned
// is specific to that server and share, else the information is specific
// to the volume as a whole.
//
// Valid levels are 1-4, 100
function NetDfsGetInfo(DfsEntryPath, ServerName, ShareName: LPWSTR;
Level: DWORD; Buffer: Pointer): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsGetInfo}
// Set info about the volume or storage.
// If ServerName and ShareName are specified, the information set is
// specific to that server and share, else the information is specific
// to the volume as a whole.
//
// Valid levels are 100, 101 and 102
function NetDfsSetInfo(DfsEntryPath, ServerName, ShareName: LPWSTR;
Level: DWORD; Buffer: Pointer): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsSetInfo}
// Get client's cached information about the volume or storage.
// If ServerName and ShareName are specified, the information returned
// is specific to that server and share, else the information is specific
// to the volume as a whole.
//
// Valid levels are 1-4
function NetDfsGetClientInfo(DfsEntryPath, ServerName, ShareName: LPWSTR;
Level: DWORD; Buffer: Pointer): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsGetClientInfo}
// Set client's cached info about the volume or storage.
// If ServerName and ShareName are specified, the information set is
// specific to that server and share, else the information is specific
// to the volume as a whole.
//
// Valid levels are 101 and 102.
function NetDfsSetClientInfo(DfsEntryPath, ServerName, ShareName: LPWSTR;
Level: DWORD; Buffer: Pointer): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsSetClientInfo}
// Move a DFS volume and all subordinate volumes from one place in the
// DFS to another place in the DFS.
function NetDfsMove(DfsEntryPath, DfsNewEntryPath: LPWSTR): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsMove}
function NetDfsRename(Path, NewPath: LPWSTR): NET_API_STATUS; stdcall;
{$EXTERNALSYM NetDfsRename}
implementation
const
netapi32lib = 'netapi32.dll';
{$NODEFINE netapi32lib}
// LMACCESS.H
{$IFDEF DYNAMIC_LINK}
var
_NetUserAdd: Pointer;
function NetUserAdd;
begin
GetProcedureAddress(_NetUserAdd, netapi32lib, 'NetUserAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetUserAdd]
end;
end;
{$ELSE}
function NetUserAdd; external netapi32lib name 'NetUserAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUserEnum: Pointer;
function NetUserEnum;
begin
GetProcedureAddress(_NetUserEnum, netapi32lib, 'NetUserEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetUserEnum]
end;
end;
{$ELSE}
function NetUserEnum; external netapi32lib name 'NetUserEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUserGetInfo: Pointer;
function NetUserGetInfo;
begin
GetProcedureAddress(_NetUserGetInfo, netapi32lib, 'NetUserGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetUserGetInfo]
end;
end;
{$ELSE}
function NetUserGetInfo; external netapi32lib name 'NetUserGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUserSetInfo: Pointer;
function NetUserSetInfo;
begin
GetProcedureAddress(_NetUserSetInfo, netapi32lib, 'NetUserSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetUserSetInfo]
end;
end;
{$ELSE}
function NetUserSetInfo; external netapi32lib name 'NetUserSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUserDel: Pointer;
function NetUserDel;
begin
GetProcedureAddress(_NetUserDel, netapi32lib, 'NetUserDel');
asm
mov esp, ebp
pop ebp
jmp [_NetUserDel]
end;
end;
{$ELSE}
function NetUserDel; external netapi32lib name 'NetUserDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUserGetGroups: Pointer;
function NetUserGetGroups;
begin
GetProcedureAddress(_NetUserGetGroups, netapi32lib, 'NetUserGetGroups');
asm
mov esp, ebp
pop ebp
jmp [_NetUserGetGroups]
end;
end;
{$ELSE}
function NetUserGetGroups; external netapi32lib name 'NetUserGetGroups';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUserSetGroups: Pointer;
function NetUserSetGroups;
begin
GetProcedureAddress(_NetUserSetGroups, netapi32lib, 'NetUserSetGroups');
asm
mov esp, ebp
pop ebp
jmp [_NetUserSetGroups]
end;
end;
{$ELSE}
function NetUserSetGroups; external netapi32lib name 'NetUserSetGroups';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUserGetLocalGroups: Pointer;
function NetUserGetLocalGroups;
begin
GetProcedureAddress(_NetUserGetLocalGroups, netapi32lib, 'NetUserGetLocalGroups');
asm
mov esp, ebp
pop ebp
jmp [_NetUserGetLocalGroups]
end;
end;
{$ELSE}
function NetUserGetLocalGroups; external netapi32lib name 'NetUserGetLocalGroups';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUserModalsGet: Pointer;
function NetUserModalsGet;
begin
GetProcedureAddress(_NetUserModalsGet, netapi32lib, 'NetUserModalsGet');
asm
mov esp, ebp
pop ebp
jmp [_NetUserModalsGet]
end;
end;
{$ELSE}
function NetUserModalsGet; external netapi32lib name 'NetUserModalsGet';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUserModalsSet: Pointer;
function NetUserModalsSet;
begin
GetProcedureAddress(_NetUserModalsSet, netapi32lib, 'NetUserModalsSet');
asm
mov esp, ebp
pop ebp
jmp [_NetUserModalsSet]
end;
end;
{$ELSE}
function NetUserModalsSet; external netapi32lib name 'NetUserModalsSet';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUserChangePassword: Pointer;
function NetUserChangePassword;
begin
GetProcedureAddress(_NetUserChangePassword, netapi32lib, 'NetUserChangePassword');
asm
mov esp, ebp
pop ebp
jmp [_NetUserChangePassword]
end;
end;
{$ELSE}
function NetUserChangePassword; external netapi32lib name 'NetUserChangePassword';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGroupAdd: Pointer;
function NetGroupAdd;
begin
GetProcedureAddress(_NetGroupAdd, netapi32lib, 'NetGroupAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetGroupAdd]
end;
end;
{$ELSE}
function NetGroupAdd; external netapi32lib name 'NetGroupAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGroupAddUser: Pointer;
function NetGroupAddUser;
begin
GetProcedureAddress(_NetGroupAddUser, netapi32lib, 'NetGroupAddUser');
asm
mov esp, ebp
pop ebp
jmp [_NetGroupAddUser]
end;
end;
{$ELSE}
function NetGroupAddUser; external netapi32lib name 'NetGroupAddUser';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGroupEnum: Pointer;
function NetGroupEnum;
begin
GetProcedureAddress(_NetGroupEnum, netapi32lib, 'NetGroupEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetGroupEnum]
end;
end;
{$ELSE}
function NetGroupEnum; external netapi32lib name 'NetGroupEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGroupGetInfo: Pointer;
function NetGroupGetInfo;
begin
GetProcedureAddress(_NetGroupGetInfo, netapi32lib, 'NetGroupGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetGroupGetInfo]
end;
end;
{$ELSE}
function NetGroupGetInfo; external netapi32lib name 'NetGroupGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGroupSetInfo: Pointer;
function NetGroupSetInfo;
begin
GetProcedureAddress(_NetGroupSetInfo, netapi32lib, 'NetGroupSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetGroupSetInfo]
end;
end;
{$ELSE}
function NetGroupSetInfo; external netapi32lib name 'NetGroupSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGroupDel: Pointer;
function NetGroupDel;
begin
GetProcedureAddress(_NetGroupDel, netapi32lib, 'NetGroupDel');
asm
mov esp, ebp
pop ebp
jmp [_NetGroupDel]
end;
end;
{$ELSE}
function NetGroupDel; external netapi32lib name 'NetGroupDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGroupDelUser: Pointer;
function NetGroupDelUser;
begin
GetProcedureAddress(_NetGroupDelUser, netapi32lib, 'NetGroupDelUser');
asm
mov esp, ebp
pop ebp
jmp [_NetGroupDelUser]
end;
end;
{$ELSE}
function NetGroupDelUser; external netapi32lib name 'NetGroupDelUser';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGroupGetUsers: Pointer;
function NetGroupGetUsers;
begin
GetProcedureAddress(_NetGroupGetUsers, netapi32lib, 'NetGroupGetUsers');
asm
mov esp, ebp
pop ebp
jmp [_NetGroupGetUsers]
end;
end;
{$ELSE}
function NetGroupGetUsers; external netapi32lib name 'NetGroupGetUsers';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGroupSetUsers: Pointer;
function NetGroupSetUsers;
begin
GetProcedureAddress(_NetGroupSetUsers, netapi32lib, 'NetGroupSetUsers');
asm
mov esp, ebp
pop ebp
jmp [_NetGroupSetUsers]
end;
end;
{$ELSE}
function NetGroupSetUsers; external netapi32lib name 'NetGroupSetUsers';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupAdd: Pointer;
function NetLocalGroupAdd;
begin
GetProcedureAddress(_NetLocalGroupAdd, netapi32lib, 'NetLocalGroupAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupAdd]
end;
end;
{$ELSE}
function NetLocalGroupAdd; external netapi32lib name 'NetLocalGroupAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupAddMember: Pointer;
function NetLocalGroupAddMember;
begin
GetProcedureAddress(_NetLocalGroupAddMember, netapi32lib, 'NetLocalGroupAddMember');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupAddMember]
end;
end;
{$ELSE}
function NetLocalGroupAddMember; external netapi32lib name 'NetLocalGroupAddMember';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupEnum: Pointer;
function NetLocalGroupEnum;
begin
GetProcedureAddress(_NetLocalGroupEnum, netapi32lib, 'NetLocalGroupEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupEnum]
end;
end;
{$ELSE}
function NetLocalGroupEnum; external netapi32lib name 'NetLocalGroupEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupGetInfo: Pointer;
function NetLocalGroupGetInfo;
begin
GetProcedureAddress(_NetLocalGroupGetInfo, netapi32lib, 'NetLocalGroupGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupGetInfo]
end;
end;
{$ELSE}
function NetLocalGroupGetInfo; external netapi32lib name 'NetLocalGroupGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupSetInfo: Pointer;
function NetLocalGroupSetInfo;
begin
GetProcedureAddress(_NetLocalGroupSetInfo, netapi32lib, 'NetLocalGroupSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupSetInfo]
end;
end;
{$ELSE}
function NetLocalGroupSetInfo; external netapi32lib name 'NetLocalGroupSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupDel: Pointer;
function NetLocalGroupDel;
begin
GetProcedureAddress(_NetLocalGroupDel, netapi32lib, 'NetLocalGroupDel');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupDel]
end;
end;
{$ELSE}
function NetLocalGroupDel; external netapi32lib name 'NetLocalGroupDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupDelMember: Pointer;
function NetLocalGroupDelMember;
begin
GetProcedureAddress(_NetLocalGroupDelMember, netapi32lib, 'NetLocalGroupDelMember');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupDelMember]
end;
end;
{$ELSE}
function NetLocalGroupDelMember; external netapi32lib name 'NetLocalGroupDelMember';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupGetMembers: Pointer;
function NetLocalGroupGetMembers;
begin
GetProcedureAddress(_NetLocalGroupGetMembers, netapi32lib, 'NetLocalGroupGetMembers');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupGetMembers]
end;
end;
{$ELSE}
function NetLocalGroupGetMembers; external netapi32lib name 'NetLocalGroupGetMembers';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupSetMembers: Pointer;
function NetLocalGroupSetMembers;
begin
GetProcedureAddress(_NetLocalGroupSetMembers, netapi32lib, 'NetLocalGroupSetMembers');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupSetMembers]
end;
end;
{$ELSE}
function NetLocalGroupSetMembers; external netapi32lib name 'NetLocalGroupSetMembers';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupAddMembers: Pointer;
function NetLocalGroupAddMembers;
begin
GetProcedureAddress(_NetLocalGroupAddMembers, netapi32lib, 'NetLocalGroupAddMembers');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupAddMembers]
end;
end;
{$ELSE}
function NetLocalGroupAddMembers; external netapi32lib name 'NetLocalGroupAddMembers';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetLocalGroupDelMembers: Pointer;
function NetLocalGroupDelMembers;
begin
GetProcedureAddress(_NetLocalGroupDelMembers, netapi32lib, 'NetLocalGroupDelMembers');
asm
mov esp, ebp
pop ebp
jmp [_NetLocalGroupDelMembers]
end;
end;
{$ELSE}
function NetLocalGroupDelMembers; external netapi32lib name 'NetLocalGroupDelMembers';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetQueryDisplayInformation: Pointer;
function NetQueryDisplayInformation;
begin
GetProcedureAddress(_NetQueryDisplayInformation, netapi32lib, 'NetQueryDisplayInformation');
asm
mov esp, ebp
pop ebp
jmp [_NetQueryDisplayInformation]
end;
end;
{$ELSE}
function NetQueryDisplayInformation; external netapi32lib name 'NetQueryDisplayInformation';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGetDisplayInformationIndex: Pointer;
function NetGetDisplayInformationIndex;
begin
GetProcedureAddress(_NetGetDisplayInformationIndex, netapi32lib, 'NetGetDisplayInformationIndex');
asm
mov esp, ebp
pop ebp
jmp [_NetGetDisplayInformationIndex]
end;
end;
{$ELSE}
function NetGetDisplayInformationIndex; external netapi32lib name 'NetGetDisplayInformationIndex';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetAccessAdd: Pointer;
function NetAccessAdd;
begin
GetProcedureAddress(_NetAccessAdd, netapi32lib, 'NetAccessAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetAccessAdd]
end;
end;
{$ELSE}
function NetAccessAdd; external netapi32lib name 'NetAccessAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetAccessEnum: Pointer;
function NetAccessEnum;
begin
GetProcedureAddress(_NetAccessEnum, netapi32lib, 'NetAccessEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetAccessEnum]
end;
end;
{$ELSE}
function NetAccessEnum; external netapi32lib name 'NetAccessEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetAccessGetInfo: Pointer;
function NetAccessGetInfo;
begin
GetProcedureAddress(_NetAccessGetInfo, netapi32lib, 'NetAccessGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetAccessGetInfo]
end;
end;
{$ELSE}
function NetAccessGetInfo; external netapi32lib name 'NetAccessGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetAccessSetInfo: Pointer;
function NetAccessSetInfo;
begin
GetProcedureAddress(_NetAccessSetInfo, netapi32lib, 'NetAccessSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetAccessSetInfo]
end;
end;
{$ELSE}
function NetAccessSetInfo; external netapi32lib name 'NetAccessSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetAccessDel: Pointer;
function NetAccessDel;
begin
GetProcedureAddress(_NetAccessDel, netapi32lib, 'NetAccessDel');
asm
mov esp, ebp
pop ebp
jmp [_NetAccessDel]
end;
end;
{$ELSE}
function NetAccessDel; external netapi32lib name 'NetAccessDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetAccessGetUserPerms: Pointer;
function NetAccessGetUserPerms;
begin
GetProcedureAddress(_NetAccessGetUserPerms, netapi32lib, 'NetAccessGetUserPerms');
asm
mov esp, ebp
pop ebp
jmp [_NetAccessGetUserPerms]
end;
end;
{$ELSE}
function NetAccessGetUserPerms; external netapi32lib name 'NetAccessGetUserPerms';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGetDCName: Pointer;
function NetGetDCName;
begin
GetProcedureAddress(_NetGetDCName, netapi32lib, 'NetGetDCName');
asm
mov esp, ebp
pop ebp
jmp [_NetGetDCName]
end;
end;
{$ELSE}
function NetGetDCName; external netapi32lib name 'NetGetDCName';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGetAnyDCName: Pointer;
function NetGetAnyDCName;
begin
GetProcedureAddress(_NetGetAnyDCName, netapi32lib, 'NetGetAnyDCName');
asm
mov esp, ebp
pop ebp
jmp [_NetGetAnyDCName]
end;
end;
{$ELSE}
function NetGetAnyDCName; external netapi32lib name 'NetGetAnyDCName';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_NetLogonControl: Pointer;
function I_NetLogonControl;
begin
GetProcedureAddress(_I_NetLogonControl, netapi32lib, 'I_NetLogonControl');
asm
mov esp, ebp
pop ebp
jmp [_I_NetLogonControl]
end;
end;
{$ELSE}
function I_NetLogonControl; external netapi32lib name 'I_NetLogonControl';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_NetLogonControl2: Pointer;
function I_NetLogonControl2;
begin
GetProcedureAddress(_I_NetLogonControl2, netapi32lib, 'I_NetLogonControl2');
asm
mov esp, ebp
pop ebp
jmp [_I_NetLogonControl2]
end;
end;
{$ELSE}
function I_NetLogonControl2; external netapi32lib name 'I_NetLogonControl2';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetEnumerateTrustedDomains: Pointer;
function NetEnumerateTrustedDomains;
begin
GetProcedureAddress(_NetEnumerateTrustedDomains, netapi32lib, 'NetEnumerateTrustedDomains');
asm
mov esp, ebp
pop ebp
jmp [_NetEnumerateTrustedDomains]
end;
end;
{$ELSE}
function NetEnumerateTrustedDomains; external netapi32lib name 'NetEnumerateTrustedDomains';
{$ENDIF DYNAMIC_LINK}
// LMALERT.H
function ALERT_OTHER_INFO(x: Pointer): Pointer;
begin
Result := PChar(x) + Sizeof(STD_ALERT);
end;
function ALERT_VAR_DATA(const p): Pointer;
begin
Result := PChar(p) + Sizeof(p);
end;
{$IFDEF DYNAMIC_LINK}
var
_NetAlertRaise: Pointer;
function NetAlertRaise;
begin
GetProcedureAddress(_NetAlertRaise, netapi32lib, 'NetAlertRaise');
asm
mov esp, ebp
pop ebp
jmp [_NetAlertRaise]
end;
end;
{$ELSE}
function NetAlertRaise; external netapi32lib name 'NetAlertRaise';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetAlertRaiseEx: Pointer;
function NetAlertRaiseEx;
begin
GetProcedureAddress(_NetAlertRaiseEx, netapi32lib, 'NetAlertRaiseEx');
asm
mov esp, ebp
pop ebp
jmp [_NetAlertRaiseEx]
end;
end;
{$ELSE}
function NetAlertRaiseEx; external netapi32lib name 'NetAlertRaiseEx';
{$ENDIF DYNAMIC_LINK}
// LMSHARE.H
{$IFDEF DYNAMIC_LINK}
var
_NetShareAdd: Pointer;
function NetShareAdd;
begin
GetProcedureAddress(_NetShareAdd, netapi32lib, 'NetShareAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetShareAdd]
end;
end;
{$ELSE}
function NetShareAdd; external netapi32lib name 'NetShareAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetShareEnum: Pointer;
function NetShareEnum;
begin
GetProcedureAddress(_NetShareEnum, netapi32lib, 'NetShareEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetShareEnum]
end;
end;
{$ELSE}
function NetShareEnum; external netapi32lib name 'NetShareEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetShareEnumSticky: Pointer;
function NetShareEnumSticky;
begin
GetProcedureAddress(_NetShareEnumSticky, netapi32lib, 'NetShareEnumSticky');
asm
mov esp, ebp
pop ebp
jmp [_NetShareEnumSticky]
end;
end;
{$ELSE}
function NetShareEnumSticky; external netapi32lib name 'NetShareEnumSticky';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetShareGetInfo: Pointer;
function NetShareGetInfo;
begin
GetProcedureAddress(_NetShareGetInfo, netapi32lib, 'NetShareGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetShareGetInfo]
end;
end;
{$ELSE}
function NetShareGetInfo; external netapi32lib name 'NetShareGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetShareSetInfo: Pointer;
function NetShareSetInfo;
begin
GetProcedureAddress(_NetShareSetInfo, netapi32lib, 'NetShareSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetShareSetInfo]
end;
end;
{$ELSE}
function NetShareSetInfo; external netapi32lib name 'NetShareSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetShareDel: Pointer;
function NetShareDel;
begin
GetProcedureAddress(_NetShareDel, netapi32lib, 'NetShareDel');
asm
mov esp, ebp
pop ebp
jmp [_NetShareDel]
end;
end;
{$ELSE}
function NetShareDel; external netapi32lib name 'NetShareDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetShareDelSticky: Pointer;
function NetShareDelSticky;
begin
GetProcedureAddress(_NetShareDelSticky, netapi32lib, 'NetShareDelSticky');
asm
mov esp, ebp
pop ebp
jmp [_NetShareDelSticky]
end;
end;
{$ELSE}
function NetShareDelSticky; external netapi32lib name 'NetShareDelSticky';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetShareCheck: Pointer;
function NetShareCheck;
begin
GetProcedureAddress(_NetShareCheck, netapi32lib, 'NetShareCheck');
asm
mov esp, ebp
pop ebp
jmp [_NetShareCheck]
end;
end;
{$ELSE}
function NetShareCheck; external netapi32lib name 'NetShareCheck';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetSessionEnum: Pointer;
function NetSessionEnum;
begin
GetProcedureAddress(_NetSessionEnum, netapi32lib, 'NetSessionEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetSessionEnum]
end;
end;
{$ELSE}
function NetSessionEnum; external netapi32lib name 'NetSessionEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetSessionDel: Pointer;
function NetSessionDel;
begin
GetProcedureAddress(_NetSessionDel, netapi32lib, 'NetSessionDel');
asm
mov esp, ebp
pop ebp
jmp [_NetSessionDel]
end;
end;
{$ELSE}
function NetSessionDel; external netapi32lib name 'NetSessionDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetSessionGetInfo: Pointer;
function NetSessionGetInfo;
begin
GetProcedureAddress(_NetSessionGetInfo, netapi32lib, 'NetSessionGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetSessionGetInfo]
end;
end;
{$ELSE}
function NetSessionGetInfo; external netapi32lib name 'NetSessionGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetConnectionEnum: Pointer;
function NetConnectionEnum;
begin
GetProcedureAddress(_NetConnectionEnum, netapi32lib, 'NetConnectionEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetConnectionEnum]
end;
end;
{$ELSE}
function NetConnectionEnum; external netapi32lib name 'NetConnectionEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetFileClose: Pointer;
function NetFileClose;
begin
GetProcedureAddress(_NetFileClose, netapi32lib, 'NetFileClose');
asm
mov esp, ebp
pop ebp
jmp [_NetFileClose]
end;
end;
{$ELSE}
function NetFileClose; external netapi32lib name 'NetFileClose';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetFileEnum: Pointer;
function NetFileEnum;
begin
GetProcedureAddress(_NetFileEnum, netapi32lib, 'NetFileEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetFileEnum]
end;
end;
{$ELSE}
function NetFileEnum; external netapi32lib name 'NetFileEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetFileGetInfo: Pointer;
function NetFileGetInfo;
begin
GetProcedureAddress(_NetFileGetInfo, netapi32lib, 'NetFileGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetFileGetInfo]
end;
end;
{$ELSE}
function NetFileGetInfo; external netapi32lib name 'NetFileGetInfo';
{$ENDIF DYNAMIC_LINK}
// LMMSG.H
{$IFDEF DYNAMIC_LINK}
var
_NetMessageNameAdd: Pointer;
function NetMessageNameAdd;
begin
GetProcedureAddress(_NetMessageNameAdd, netapi32lib, 'NetMessageNameAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetMessageNameAdd]
end;
end;
{$ELSE}
function NetMessageNameAdd; external netapi32lib name 'NetMessageNameAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetMessageNameEnum: Pointer;
function NetMessageNameEnum;
begin
GetProcedureAddress(_NetMessageNameEnum, netapi32lib, 'NetMessageNameEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetMessageNameEnum]
end;
end;
{$ELSE}
function NetMessageNameEnum; external netapi32lib name 'NetMessageNameEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetMessageNameGetInfo: Pointer;
function NetMessageNameGetInfo;
begin
GetProcedureAddress(_NetMessageNameGetInfo, netapi32lib, 'NetMessageNameGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetMessageNameGetInfo]
end;
end;
{$ELSE}
function NetMessageNameGetInfo; external netapi32lib name 'NetMessageNameGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetMessageNameDel: Pointer;
function NetMessageNameDel;
begin
GetProcedureAddress(_NetMessageNameDel, netapi32lib, 'NetMessageNameDel');
asm
mov esp, ebp
pop ebp
jmp [_NetMessageNameDel]
end;
end;
{$ELSE}
function NetMessageNameDel; external netapi32lib name 'NetMessageNameDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetMessageBufferSend: Pointer;
function NetMessageBufferSend;
begin
GetProcedureAddress(_NetMessageBufferSend, netapi32lib, 'NetMessageBufferSend');
asm
mov esp, ebp
pop ebp
jmp [_NetMessageBufferSend]
end;
end;
{$ELSE}
function NetMessageBufferSend; external netapi32lib name 'NetMessageBufferSend';
{$ENDIF DYNAMIC_LINK}
// LMREMUTL.H
{$IFDEF DYNAMIC_LINK}
var
_NetRemoteTOD: Pointer;
function NetRemoteTOD;
begin
GetProcedureAddress(_NetRemoteTOD, netapi32lib, 'NetRemoteTOD');
asm
mov esp, ebp
pop ebp
jmp [_NetRemoteTOD]
end;
end;
{$ELSE}
function NetRemoteTOD; external netapi32lib name 'NetRemoteTOD';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetRemoteComputerSupports: Pointer;
function NetRemoteComputerSupports;
begin
GetProcedureAddress(_NetRemoteComputerSupports, netapi32lib, 'NetRemoteComputerSupports');
asm
mov esp, ebp
pop ebp
jmp [_NetRemoteComputerSupports]
end;
end;
{$ELSE}
function NetRemoteComputerSupports; external netapi32lib name 'NetRemoteComputerSupports';
{$ENDIF DYNAMIC_LINK}
// LMREPL.H
{$IFDEF DYNAMIC_LINK}
var
_NetReplGetInfo: Pointer;
function NetReplGetInfo;
begin
GetProcedureAddress(_NetReplGetInfo, netapi32lib, 'NetReplGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetReplGetInfo]
end;
end;
{$ELSE}
function NetReplGetInfo; external netapi32lib name 'NetReplGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplSetInfo: Pointer;
function NetReplSetInfo;
begin
GetProcedureAddress(_NetReplSetInfo, netapi32lib, 'NetReplSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetReplSetInfo]
end;
end;
{$ELSE}
function NetReplSetInfo; external netapi32lib name 'NetReplSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplExportDirAdd: Pointer;
function NetReplExportDirAdd;
begin
GetProcedureAddress(_NetReplExportDirAdd, netapi32lib, 'NetReplExportDirAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetReplExportDirAdd]
end;
end;
{$ELSE}
function NetReplExportDirAdd; external netapi32lib name 'NetReplExportDirAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplExportDirDel: Pointer;
function NetReplExportDirDel;
begin
GetProcedureAddress(_NetReplExportDirDel, netapi32lib, 'NetReplExportDirDel');
asm
mov esp, ebp
pop ebp
jmp [_NetReplExportDirDel]
end;
end;
{$ELSE}
function NetReplExportDirDel; external netapi32lib name 'NetReplExportDirDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplExportDirEnum: Pointer;
function NetReplExportDirEnum;
begin
GetProcedureAddress(_NetReplExportDirEnum, netapi32lib, 'NetReplExportDirEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetReplExportDirEnum]
end;
end;
{$ELSE}
function NetReplExportDirEnum; external netapi32lib name 'NetReplExportDirEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplExportDirGetInfo: Pointer;
function NetReplExportDirGetInfo;
begin
GetProcedureAddress(_NetReplExportDirGetInfo, netapi32lib, 'NetReplExportDirGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetReplExportDirGetInfo]
end;
end;
{$ELSE}
function NetReplExportDirGetInfo; external netapi32lib name 'NetReplExportDirGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplExportDirSetInfo: Pointer;
function NetReplExportDirSetInfo;
begin
GetProcedureAddress(_NetReplExportDirSetInfo, netapi32lib, 'NetReplExportDirSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetReplExportDirSetInfo]
end;
end;
{$ELSE}
function NetReplExportDirSetInfo; external netapi32lib name 'NetReplExportDirSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplExportDirLock: Pointer;
function NetReplExportDirLock;
begin
GetProcedureAddress(_NetReplExportDirLock, netapi32lib, 'NetReplExportDirLock');
asm
mov esp, ebp
pop ebp
jmp [_NetReplExportDirLock]
end;
end;
{$ELSE}
function NetReplExportDirLock; external netapi32lib name 'NetReplExportDirLock';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplExportDirUnlock: Pointer;
function NetReplExportDirUnlock;
begin
GetProcedureAddress(_NetReplExportDirUnlock, netapi32lib, 'NetReplExportDirUnlock');
asm
mov esp, ebp
pop ebp
jmp [_NetReplExportDirUnlock]
end;
end;
{$ELSE}
function NetReplExportDirUnlock; external netapi32lib name 'NetReplExportDirUnlock';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplImportDirAdd: Pointer;
function NetReplImportDirAdd;
begin
GetProcedureAddress(_NetReplImportDirAdd, netapi32lib, 'NetReplImportDirAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetReplImportDirAdd]
end;
end;
{$ELSE}
function NetReplImportDirAdd; external netapi32lib name 'NetReplImportDirAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplImportDirDel: Pointer;
function NetReplImportDirDel;
begin
GetProcedureAddress(_NetReplImportDirDel, netapi32lib, 'NetReplImportDirDel');
asm
mov esp, ebp
pop ebp
jmp [_NetReplImportDirDel]
end;
end;
{$ELSE}
function NetReplImportDirDel; external netapi32lib name 'NetReplImportDirDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplImportDirEnum: Pointer;
function NetReplImportDirEnum;
begin
GetProcedureAddress(_NetReplImportDirEnum, netapi32lib, 'NetReplImportDirEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetReplImportDirEnum]
end;
end;
{$ELSE}
function NetReplImportDirEnum; external netapi32lib name 'NetReplImportDirEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplImportDirGetInfo: Pointer;
function NetReplImportDirGetInfo;
begin
GetProcedureAddress(_NetReplImportDirGetInfo, netapi32lib, 'NetReplImportDirGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetReplImportDirGetInfo]
end;
end;
{$ELSE}
function NetReplImportDirGetInfo; external netapi32lib name 'NetReplImportDirGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplImportDirLock: Pointer;
function NetReplImportDirLock;
begin
GetProcedureAddress(_NetReplImportDirLock, netapi32lib, 'NetReplImportDirLock');
asm
mov esp, ebp
pop ebp
jmp [_NetReplImportDirLock]
end;
end;
{$ELSE}
function NetReplImportDirLock; external netapi32lib name 'NetReplImportDirLock';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetReplImportDirUnlock: Pointer;
function NetReplImportDirUnlock;
begin
GetProcedureAddress(_NetReplImportDirUnlock, netapi32lib, 'NetReplImportDirUnlock');
asm
mov esp, ebp
pop ebp
jmp [_NetReplImportDirUnlock]
end;
end;
{$ELSE}
function NetReplImportDirUnlock; external netapi32lib name 'NetReplImportDirUnlock';
{$ENDIF DYNAMIC_LINK}
// LMSERVER.H
{$IFDEF DYNAMIC_LINK}
var
_NetServerEnum: Pointer;
function NetServerEnum;
begin
GetProcedureAddress(_NetServerEnum, netapi32lib, 'NetServerEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetServerEnum]
end;
end;
{$ELSE}
function NetServerEnum; external netapi32lib name 'NetServerEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerEnumEx: Pointer;
function NetServerEnumEx;
begin
GetProcedureAddress(_NetServerEnumEx, netapi32lib, 'NetServerEnumEx');
asm
mov esp, ebp
pop ebp
jmp [_NetServerEnumEx]
end;
end;
{$ELSE}
function NetServerEnumEx; external netapi32lib name 'NetServerEnumEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerGetInfo: Pointer;
function NetServerGetInfo;
begin
GetProcedureAddress(_NetServerGetInfo, netapi32lib, 'NetServerGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetServerGetInfo]
end;
end;
{$ELSE}
function NetServerGetInfo; external netapi32lib name 'NetServerGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerSetInfo: Pointer;
function NetServerSetInfo;
begin
GetProcedureAddress(_NetServerSetInfo, netapi32lib, 'NetServerSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetServerSetInfo]
end;
end;
{$ELSE}
function NetServerSetInfo; external netapi32lib name 'NetServerSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerSetInfoCommandLine: Pointer;
function NetServerSetInfoCommandLine;
begin
GetProcedureAddress(_NetServerSetInfoCommandLine, netapi32lib, 'NetServerSetInfoCommandLine');
asm
mov esp, ebp
pop ebp
jmp [_NetServerSetInfoCommandLine]
end;
end;
{$ELSE}
function NetServerSetInfoCommandLine; external netapi32lib name 'NetServerSetInfoCommandLine';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerDiskEnum: Pointer;
function NetServerDiskEnum;
begin
GetProcedureAddress(_NetServerDiskEnum, netapi32lib, 'NetServerDiskEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetServerDiskEnum]
end;
end;
{$ELSE}
function NetServerDiskEnum; external netapi32lib name 'NetServerDiskEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerComputerNameAdd: Pointer;
function NetServerComputerNameAdd;
begin
GetProcedureAddress(_NetServerComputerNameAdd, netapi32lib, 'NetServerComputerNameAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetServerComputerNameAdd]
end;
end;
{$ELSE}
function NetServerComputerNameAdd; external netapi32lib name 'NetServerComputerNameAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerComputerNameDel: Pointer;
function NetServerComputerNameDel;
begin
GetProcedureAddress(_NetServerComputerNameDel, netapi32lib, 'NetServerComputerNameDel');
asm
mov esp, ebp
pop ebp
jmp [_NetServerComputerNameDel]
end;
end;
{$ELSE}
function NetServerComputerNameDel; external netapi32lib name 'NetServerComputerNameDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerTransportAdd: Pointer;
function NetServerTransportAdd;
begin
GetProcedureAddress(_NetServerTransportAdd, netapi32lib, 'NetServerTransportAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetServerTransportAdd]
end;
end;
{$ELSE}
function NetServerTransportAdd; external netapi32lib name 'NetServerTransportAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerTransportAddEx: Pointer;
function NetServerTransportAddEx;
begin
GetProcedureAddress(_NetServerTransportAddEx, netapi32lib, 'NetServerTransportAddEx');
asm
mov esp, ebp
pop ebp
jmp [_NetServerTransportAddEx]
end;
end;
{$ELSE}
function NetServerTransportAddEx; external netapi32lib name 'NetServerTransportAddEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerTransportDel: Pointer;
function NetServerTransportDel;
begin
GetProcedureAddress(_NetServerTransportDel, netapi32lib, 'NetServerTransportDel');
asm
mov esp, ebp
pop ebp
jmp [_NetServerTransportDel]
end;
end;
{$ELSE}
function NetServerTransportDel; external netapi32lib name 'NetServerTransportDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServerTransportEnum: Pointer;
function NetServerTransportEnum;
begin
GetProcedureAddress(_NetServerTransportEnum, netapi32lib, 'NetServerTransportEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetServerTransportEnum]
end;
end;
{$ELSE}
function NetServerTransportEnum; external netapi32lib name 'NetServerTransportEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetServiceBits: Pointer;
function SetServiceBits;
begin
GetProcedureAddress(_SetServiceBits, netapi32lib, 'SetServiceBits');
asm
mov esp, ebp
pop ebp
jmp [_SetServiceBits]
end;
end;
{$ELSE}
function SetServiceBits; external netapi32lib name 'SetServiceBits';
{$ENDIF DYNAMIC_LINK}
// LMSVC.H
function SERVICE_IP_CODE(tt, nn: LongInt): LongInt;
begin
Result := SERVICE_IP_QUERY_HINT or (nn or tt shl SERVICE_IP_WAITTIME_SHIFT);
end;
function SERVICE_CCP_CODE(tt, nn: LongInt): LongInt;
begin
Result := SERVICE_CCP_QUERY_HINT or (nn or tt shl SERVICE_IP_WAITTIME_SHIFT);
end;
function SERVICE_UIC_CODE(cc, mm: LongInt): LongInt;
begin
Result := (cc shl 16) or Word(mm);
end;
function SERVICE_NT_CCP_CODE(tt, nn: LongInt): LongInt;
begin
Result := nn or ((tt and LOWER_HINT_MASK) shl SERVICE_IP_WAITTIME_SHIFT) or
((tt and UPPER_HINT_MASK) shl SERVICE_NTIP_WAITTIME_SHIFT);
end;
function SERVICE_NT_WAIT_GET(code: DWORD): DWORD;
begin
Result := ((code and UPPER_GET_HINT_MASK) shr SERVICE_NTIP_WAITTIME_SHIFT) or
((code and LOWER_GET_HINT_MASK) shr SERVICE_IP_WAITTIME_SHIFT);
end;
{$IFDEF DYNAMIC_LINK}
var
_NetServiceControl: Pointer;
function NetServiceControl;
begin
GetProcedureAddress(_NetServiceControl, netapi32lib, 'NetServiceControl');
asm
mov esp, ebp
pop ebp
jmp [_NetServiceControl]
end;
end;
{$ELSE}
function NetServiceControl; external netapi32lib name 'NetServiceControl';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServiceEnum: Pointer;
function NetServiceEnum;
begin
GetProcedureAddress(_NetServiceEnum, netapi32lib, 'NetServiceEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetServiceEnum]
end;
end;
{$ELSE}
function NetServiceEnum; external netapi32lib name 'NetServiceEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServiceGetInfo: Pointer;
function NetServiceGetInfo;
begin
GetProcedureAddress(_NetServiceGetInfo, netapi32lib, 'NetServiceGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetServiceGetInfo]
end;
end;
{$ELSE}
function NetServiceGetInfo; external netapi32lib name 'NetServiceGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetServiceInstall: Pointer;
function NetServiceInstall;
begin
GetProcedureAddress(_NetServiceInstall, netapi32lib, 'NetServiceInstall');
asm
mov esp, ebp
pop ebp
jmp [_NetServiceInstall]
end;
end;
{$ELSE}
function NetServiceInstall; external netapi32lib name 'NetServiceInstall';
{$ENDIF DYNAMIC_LINK}
// LMUSE.H
{$IFDEF DYNAMIC_LINK}
var
_NetUseAdd: Pointer;
function NetUseAdd;
begin
GetProcedureAddress(_NetUseAdd, netapi32lib, 'NetUseAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetUseAdd]
end;
end;
{$ELSE}
function NetUseAdd; external netapi32lib name 'NetUseAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUseDel: Pointer;
function NetUseDel;
begin
GetProcedureAddress(_NetUseDel, netapi32lib, 'NetUseDel');
asm
mov esp, ebp
pop ebp
jmp [_NetUseDel]
end;
end;
{$ELSE}
function NetUseDel; external netapi32lib name 'NetUseDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUseEnum: Pointer;
function NetUseEnum;
begin
GetProcedureAddress(_NetUseEnum, netapi32lib, 'NetUseEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetUseEnum]
end;
end;
{$ELSE}
function NetUseEnum; external netapi32lib name 'NetUseEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUseGetInfo: Pointer;
function NetUseGetInfo;
begin
GetProcedureAddress(_NetUseGetInfo, netapi32lib, 'NetUseGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetUseGetInfo]
end;
end;
{$ELSE}
function NetUseGetInfo; external netapi32lib name 'NetUseGetInfo';
{$ENDIF DYNAMIC_LINK}
// LMWKSTA.H
{$IFDEF DYNAMIC_LINK}
var
_NetWkstaGetInfo: Pointer;
function NetWkstaGetInfo;
begin
GetProcedureAddress(_NetWkstaGetInfo, netapi32lib, 'NetWkstaGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetWkstaGetInfo]
end;
end;
{$ELSE}
function NetWkstaGetInfo; external netapi32lib name 'NetWkstaGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetWkstaSetInfo: Pointer;
function NetWkstaSetInfo;
begin
GetProcedureAddress(_NetWkstaSetInfo, netapi32lib, 'NetWkstaSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetWkstaSetInfo]
end;
end;
{$ELSE}
function NetWkstaSetInfo; external netapi32lib name 'NetWkstaSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetWkstaUserGetInfo: Pointer;
function NetWkstaUserGetInfo;
begin
GetProcedureAddress(_NetWkstaUserGetInfo, netapi32lib, 'NetWkstaUserGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetWkstaUserGetInfo]
end;
end;
{$ELSE}
function NetWkstaUserGetInfo; external netapi32lib name 'NetWkstaUserGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetWkstaUserSetInfo: Pointer;
function NetWkstaUserSetInfo;
begin
GetProcedureAddress(_NetWkstaUserSetInfo, netapi32lib, 'NetWkstaUserSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetWkstaUserSetInfo]
end;
end;
{$ELSE}
function NetWkstaUserSetInfo; external netapi32lib name 'NetWkstaUserSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetWkstaUserEnum: Pointer;
function NetWkstaUserEnum;
begin
GetProcedureAddress(_NetWkstaUserEnum, netapi32lib, 'NetWkstaUserEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetWkstaUserEnum]
end;
end;
{$ELSE}
function NetWkstaUserEnum; external netapi32lib name 'NetWkstaUserEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetWkstaTransportAdd: Pointer;
function NetWkstaTransportAdd;
begin
GetProcedureAddress(_NetWkstaTransportAdd, netapi32lib, 'NetWkstaTransportAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetWkstaTransportAdd]
end;
end;
{$ELSE}
function NetWkstaTransportAdd; external netapi32lib name 'NetWkstaTransportAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetWkstaTransportDel: Pointer;
function NetWkstaTransportDel;
begin
GetProcedureAddress(_NetWkstaTransportDel, netapi32lib, 'NetWkstaTransportDel');
asm
mov esp, ebp
pop ebp
jmp [_NetWkstaTransportDel]
end;
end;
{$ELSE}
function NetWkstaTransportDel; external netapi32lib name 'NetWkstaTransportDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetWkstaTransportEnum: Pointer;
function NetWkstaTransportEnum;
begin
GetProcedureAddress(_NetWkstaTransportEnum, netapi32lib, 'NetWkstaTransportEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetWkstaTransportEnum]
end;
end;
{$ELSE}
function NetWkstaTransportEnum; external netapi32lib name 'NetWkstaTransportEnum';
{$ENDIF DYNAMIC_LINK}
// LMAPIBUF.H
{$IFDEF DYNAMIC_LINK}
var
_NetApiBufferAllocate: Pointer;
function NetApiBufferAllocate;
begin
GetProcedureAddress(_NetApiBufferAllocate, netapi32lib, 'NetApiBufferAllocate');
asm
mov esp, ebp
pop ebp
jmp [_NetApiBufferAllocate]
end;
end;
{$ELSE}
function NetApiBufferAllocate; external netapi32lib name 'NetApiBufferAllocate';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetApiBufferFree: Pointer;
function NetApiBufferFree;
begin
GetProcedureAddress(_NetApiBufferFree, netapi32lib, 'NetApiBufferFree');
asm
mov esp, ebp
pop ebp
jmp [_NetApiBufferFree]
end;
end;
{$ELSE}
function NetApiBufferFree; external netapi32lib name 'NetApiBufferFree';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetApiBufferReallocate: Pointer;
function NetApiBufferReallocate;
begin
GetProcedureAddress(_NetApiBufferReallocate, netapi32lib, 'NetApiBufferReallocate');
asm
mov esp, ebp
pop ebp
jmp [_NetApiBufferReallocate]
end;
end;
{$ELSE}
function NetApiBufferReallocate; external netapi32lib name 'NetApiBufferReallocate';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetApiBufferSize: Pointer;
function NetApiBufferSize;
begin
GetProcedureAddress(_NetApiBufferSize, netapi32lib, 'NetApiBufferSize');
asm
mov esp, ebp
pop ebp
jmp [_NetApiBufferSize]
end;
end;
{$ELSE}
function NetApiBufferSize; external netapi32lib name 'NetApiBufferSize';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetapipBufferAllocate: Pointer;
function NetapipBufferAllocate;
begin
GetProcedureAddress(_NetapipBufferAllocate, netapi32lib, 'NetapipBufferAllocate');
asm
mov esp, ebp
pop ebp
jmp [_NetapipBufferAllocate]
end;
end;
{$ELSE}
function NetapipBufferAllocate; external netapi32lib name 'NetapipBufferAllocate';
{$ENDIF DYNAMIC_LINK}
// LMCONFIG.H
{$IFDEF DYNAMIC_LINK}
var
_NetConfigGet: Pointer;
function NetConfigGet;
begin
GetProcedureAddress(_NetConfigGet, netapi32lib, 'NetConfigGet');
asm
mov esp, ebp
pop ebp
jmp [_NetConfigGet]
end;
end;
{$ELSE}
function NetConfigGet; external netapi32lib name 'NetConfigGet';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetConfigGetAll: Pointer;
function NetConfigGetAll;
begin
GetProcedureAddress(_NetConfigGetAll, netapi32lib, 'NetConfigGetAll');
asm
mov esp, ebp
pop ebp
jmp [_NetConfigGetAll]
end;
end;
{$ELSE}
function NetConfigGetAll; external netapi32lib name 'NetConfigGetAll';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetConfigSet: Pointer;
function NetConfigSet;
begin
GetProcedureAddress(_NetConfigSet, netapi32lib, 'NetConfigSet');
asm
mov esp, ebp
pop ebp
jmp [_NetConfigSet]
end;
end;
{$ELSE}
function NetConfigSet; external netapi32lib name 'NetConfigSet';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetRegisterDomNameChangeNot: Pointer;
function NetRegisterDomainNameChangeNotification;
begin
GetProcedureAddress(_NetRegisterDomNameChangeNot, netapi32lib, 'NetRegisterDomainNameChangeNotification');
asm
mov esp, ebp
pop ebp
jmp [_NetRegisterDomNameChangeNot]
end;
end;
{$ELSE}
function NetRegisterDomainNameChangeNotification; external netapi32lib name 'NetRegisterDomainNameChangeNotification';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUnregisterDomNameChangeNot: Pointer;
function NetUnregisterDomainNameChangeNotification;
begin
GetProcedureAddress(_NetUnregisterDomNameChangeNot, netapi32lib, 'NetUnregisterDomainNameChangeNotification');
asm
mov esp, ebp
pop ebp
jmp [_NetUnregisterDomNameChangeNot]
end;
end;
{$ELSE}
function NetUnregisterDomainNameChangeNotification; external netapi32lib name 'NetUnregisterDomainNameChangeNotification';
{$ENDIF DYNAMIC_LINK}
// LMSTATS.H
{$IFDEF DYNAMIC_LINK}
var
_NetStatisticsGet: Pointer;
function NetStatisticsGet;
begin
GetProcedureAddress(_NetStatisticsGet, netapi32lib, 'NetStatisticsGet');
asm
mov esp, ebp
pop ebp
jmp [_NetStatisticsGet]
end;
end;
{$ELSE}
function NetStatisticsGet; external netapi32lib name 'NetStatisticsGet';
{$ENDIF DYNAMIC_LINK}
// LMAUDIT.H
{$IFDEF DYNAMIC_LINK}
var
_NetAuditClear: Pointer;
function NetAuditClear;
begin
GetProcedureAddress(_NetAuditClear, netapi32lib, 'NetAuditClear');
asm
mov esp, ebp
pop ebp
jmp [_NetAuditClear]
end;
end;
{$ELSE}
function NetAuditClear; external netapi32lib name 'NetAuditClear';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetAuditRead: Pointer;
function NetAuditRead;
begin
GetProcedureAddress(_NetAuditRead, netapi32lib, 'NetAuditRead');
asm
mov esp, ebp
pop ebp
jmp [_NetAuditRead]
end;
end;
{$ELSE}
function NetAuditRead; external netapi32lib name 'NetAuditRead';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetAuditWrite: Pointer;
function NetAuditWrite;
begin
GetProcedureAddress(_NetAuditWrite, netapi32lib, 'NetAuditWrite');
asm
mov esp, ebp
pop ebp
jmp [_NetAuditWrite]
end;
end;
{$ELSE}
function NetAuditWrite; external netapi32lib name 'NetAuditWrite';
{$ENDIF DYNAMIC_LINK}
// LMJOIN.H
{$IFDEF DYNAMIC_LINK}
var
_NetJoinDomain: Pointer;
function NetJoinDomain;
begin
GetProcedureAddress(_NetJoinDomain, netapi32lib, 'NetJoinDomain');
asm
mov esp, ebp
pop ebp
jmp [_NetJoinDomain]
end;
end;
{$ELSE}
function NetJoinDomain; external netapi32lib name 'NetJoinDomain';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetUnjoinDomain: Pointer;
function NetUnjoinDomain;
begin
GetProcedureAddress(_NetUnjoinDomain, netapi32lib, 'NetUnjoinDomain');
asm
mov esp, ebp
pop ebp
jmp [_NetUnjoinDomain]
end;
end;
{$ELSE}
function NetUnjoinDomain; external netapi32lib name 'NetUnjoinDomain';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetRenameMachineInDomain: Pointer;
function NetRenameMachineInDomain;
begin
GetProcedureAddress(_NetRenameMachineInDomain, netapi32lib, 'NetRenameMachineInDomain');
asm
mov esp, ebp
pop ebp
jmp [_NetRenameMachineInDomain]
end;
end;
{$ELSE}
function NetRenameMachineInDomain; external netapi32lib name 'NetRenameMachineInDomain';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetValidateName: Pointer;
function NetValidateName;
begin
GetProcedureAddress(_NetValidateName, netapi32lib, 'NetValidateName');
asm
mov esp, ebp
pop ebp
jmp [_NetValidateName]
end;
end;
{$ELSE}
function NetValidateName; external netapi32lib name 'NetValidateName';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGetJoinInformation: Pointer;
function NetGetJoinInformation;
begin
GetProcedureAddress(_NetGetJoinInformation, netapi32lib, 'NetGetJoinInformation');
asm
mov esp, ebp
pop ebp
jmp [_NetGetJoinInformation]
end;
end;
{$ELSE}
function NetGetJoinInformation; external netapi32lib name 'NetGetJoinInformation';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetGetJoinableOUs: Pointer;
function NetGetJoinableOUs;
begin
GetProcedureAddress(_NetGetJoinableOUs, netapi32lib, 'NetGetJoinableOUs');
asm
mov esp, ebp
pop ebp
jmp [_NetGetJoinableOUs]
end;
end;
{$ELSE}
function NetGetJoinableOUs; external netapi32lib name 'NetGetJoinableOUs';
{$ENDIF DYNAMIC_LINK}
// LMERRLOG.H
{$IFDEF DYNAMIC_LINK}
var
_NetErrorLogClear: Pointer;
function NetErrorLogClear;
begin
GetProcedureAddress(_NetErrorLogClear, netapi32lib, 'NetErrorLogClear');
asm
mov esp, ebp
pop ebp
jmp [_NetErrorLogClear]
end;
end;
{$ELSE}
function NetErrorLogClear; external netapi32lib name 'NetErrorLogClear';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetErrorLogRead: Pointer;
function NetErrorLogRead;
begin
GetProcedureAddress(_NetErrorLogRead, netapi32lib, 'NetErrorLogRead');
asm
mov esp, ebp
pop ebp
jmp [_NetErrorLogRead]
end;
end;
{$ELSE}
function NetErrorLogRead; external netapi32lib name 'NetErrorLogRead';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetErrorLogWrite: Pointer;
function NetErrorLogWrite;
begin
GetProcedureAddress(_NetErrorLogWrite, netapi32lib, 'NetErrorLogWrite');
asm
mov esp, ebp
pop ebp
jmp [_NetErrorLogWrite]
end;
end;
{$ELSE}
function NetErrorLogWrite; external netapi32lib name 'NetErrorLogWrite';
{$ENDIF DYNAMIC_LINK}
// LMAT.H
{$IFDEF DYNAMIC_LINK}
var
_NetScheduleJobAdd: Pointer;
function NetScheduleJobAdd;
begin
GetProcedureAddress(_NetScheduleJobAdd, netapi32lib, 'NetScheduleJobAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetScheduleJobAdd]
end;
end;
{$ELSE}
function NetScheduleJobAdd; external netapi32lib name 'NetScheduleJobAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetScheduleJobDel: Pointer;
function NetScheduleJobDel;
begin
GetProcedureAddress(_NetScheduleJobDel, netapi32lib, 'NetScheduleJobDel');
asm
mov esp, ebp
pop ebp
jmp [_NetScheduleJobDel]
end;
end;
{$ELSE}
function NetScheduleJobDel; external netapi32lib name 'NetScheduleJobDel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetScheduleJobEnum: Pointer;
function NetScheduleJobEnum;
begin
GetProcedureAddress(_NetScheduleJobEnum, netapi32lib, 'NetScheduleJobEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetScheduleJobEnum]
end;
end;
{$ELSE}
function NetScheduleJobEnum; external netapi32lib name 'NetScheduleJobEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetScheduleJobGetInfo: Pointer;
function NetScheduleJobGetInfo;
begin
GetProcedureAddress(_NetScheduleJobGetInfo, netapi32lib, 'NetScheduleJobGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetScheduleJobGetInfo]
end;
end;
{$ELSE}
function NetScheduleJobGetInfo; external netapi32lib name 'NetScheduleJobGetInfo';
{$ENDIF DYNAMIC_LINK}
// LMBROWSR.H
{$IFDEF DYNAMIC_LINK}
var
_I_BrowserServerEnum: Pointer;
function I_BrowserServerEnum;
begin
GetProcedureAddress(_I_BrowserServerEnum, netapi32lib, 'I_BrowserServerEnum');
asm
mov esp, ebp
pop ebp
jmp [_I_BrowserServerEnum]
end;
end;
{$ELSE}
function I_BrowserServerEnum; external netapi32lib name 'I_BrowserServerEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_BrowserServerEnumEx: Pointer;
function I_BrowserServerEnumEx;
begin
GetProcedureAddress(_I_BrowserServerEnumEx, netapi32lib, 'I_BrowserServerEnumEx');
asm
mov esp, ebp
pop ebp
jmp [_I_BrowserServerEnumEx]
end;
end;
{$ELSE}
function I_BrowserServerEnumEx; external netapi32lib name 'I_BrowserServerEnumEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_BrowserQueryOtherDomains: Pointer;
function I_BrowserQueryOtherDomains;
begin
GetProcedureAddress(_I_BrowserQueryOtherDomains, netapi32lib, 'I_BrowserQueryOtherDomains');
asm
mov esp, ebp
pop ebp
jmp [_I_BrowserQueryOtherDomains]
end;
end;
{$ELSE}
function I_BrowserQueryOtherDomains; external netapi32lib name 'I_BrowserQueryOtherDomains';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_BrowserResetNetlogonState: Pointer;
function I_BrowserResetNetlogonState;
begin
GetProcedureAddress(_I_BrowserResetNetlogonState, netapi32lib, 'I_BrowserResetNetlogonState');
asm
mov esp, ebp
pop ebp
jmp [_I_BrowserResetNetlogonState]
end;
end;
{$ELSE}
function I_BrowserResetNetlogonState; external netapi32lib name 'I_BrowserResetNetlogonState';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_BrowserSetNetlogonState: Pointer;
function I_BrowserSetNetlogonState;
begin
GetProcedureAddress(_I_BrowserSetNetlogonState, netapi32lib, 'I_BrowserSetNetlogonState');
asm
mov esp, ebp
pop ebp
jmp [_I_BrowserSetNetlogonState]
end;
end;
{$ELSE}
function I_BrowserSetNetlogonState; external netapi32lib name 'I_BrowserSetNetlogonState';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_BrowserQueryEmulatedDomains: Pointer;
function I_BrowserQueryEmulatedDomains;
begin
GetProcedureAddress(_I_BrowserQueryEmulatedDomains, netapi32lib, 'I_BrowserQueryEmulatedDomains');
asm
mov esp, ebp
pop ebp
jmp [_I_BrowserQueryEmulatedDomains]
end;
end;
{$ELSE}
function I_BrowserQueryEmulatedDomains; external netapi32lib name 'I_BrowserQueryEmulatedDomains';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_BrowserQueryStatistics: Pointer;
function I_BrowserQueryStatistics;
begin
GetProcedureAddress(_I_BrowserQueryStatistics, netapi32lib, 'I_BrowserQueryStatistics');
asm
mov esp, ebp
pop ebp
jmp [_I_BrowserQueryStatistics]
end;
end;
{$ELSE}
function I_BrowserQueryStatistics; external netapi32lib name 'I_BrowserQueryStatistics';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_BrowserResetStatistics: Pointer;
function I_BrowserResetStatistics;
begin
GetProcedureAddress(_I_BrowserResetStatistics, netapi32lib, 'I_BrowserResetStatistics');
asm
mov esp, ebp
pop ebp
jmp [_I_BrowserResetStatistics]
end;
end;
{$ELSE}
function I_BrowserResetStatistics; external netapi32lib name 'I_BrowserResetStatistics';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_BrowserServerEnumForXactsrv: Pointer;
function I_BrowserServerEnumForXactsrv;
begin
GetProcedureAddress(_I_BrowserServerEnumForXactsrv, netapi32lib, 'I_BrowserServerEnumForXactsrv');
asm
mov esp, ebp
pop ebp
jmp [_I_BrowserServerEnumForXactsrv]
end;
end;
{$ELSE}
function I_BrowserServerEnumForXactsrv; external netapi32lib name 'I_BrowserServerEnumForXactsrv';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_I_BrowserDebugTrace: Pointer;
function I_BrowserDebugTrace;
begin
GetProcedureAddress(_I_BrowserDebugTrace, netapi32lib, 'I_BrowserDebugTrace');
asm
mov esp, ebp
pop ebp
jmp [_I_BrowserDebugTrace]
end;
end;
{$ELSE}
function I_BrowserDebugTrace; external netapi32lib name 'I_BrowserDebugTrace';
{$ENDIF DYNAMIC_LINK}
// LMCHDEV.H
{$IFDEF DYNAMIC_LINK}
var
_NetCharDevEnum: Pointer;
function NetCharDevEnum;
begin
GetProcedureAddress(_NetCharDevEnum, netapi32lib, 'NetCharDevEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetCharDevEnum]
end;
end;
{$ELSE}
function NetCharDevEnum; external netapi32lib name 'NetCharDevEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetCharDevGetInfo: Pointer;
function NetCharDevGetInfo;
begin
GetProcedureAddress(_NetCharDevGetInfo, netapi32lib, 'NetCharDevGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetCharDevGetInfo]
end;
end;
{$ELSE}
function NetCharDevGetInfo; external netapi32lib name 'NetCharDevGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetCharDevControl: Pointer;
function NetCharDevControl;
begin
GetProcedureAddress(_NetCharDevControl, netapi32lib, 'NetCharDevControl');
asm
mov esp, ebp
pop ebp
jmp [_NetCharDevControl]
end;
end;
{$ELSE}
function NetCharDevControl; external netapi32lib name 'NetCharDevControl';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetCharDevQEnum: Pointer;
function NetCharDevQEnum;
begin
GetProcedureAddress(_NetCharDevQEnum, netapi32lib, 'NetCharDevQEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetCharDevQEnum]
end;
end;
{$ELSE}
function NetCharDevQEnum; external netapi32lib name 'NetCharDevQEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetCharDevQGetInfo: Pointer;
function NetCharDevQGetInfo;
begin
GetProcedureAddress(_NetCharDevQGetInfo, netapi32lib, 'NetCharDevQGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetCharDevQGetInfo]
end;
end;
{$ELSE}
function NetCharDevQGetInfo; external netapi32lib name 'NetCharDevQGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetCharDevQSetInfo: Pointer;
function NetCharDevQSetInfo;
begin
GetProcedureAddress(_NetCharDevQSetInfo, netapi32lib, 'NetCharDevQSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetCharDevQSetInfo]
end;
end;
{$ELSE}
function NetCharDevQSetInfo; external netapi32lib name 'NetCharDevQSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetCharDevQPurge: Pointer;
function NetCharDevQPurge;
begin
GetProcedureAddress(_NetCharDevQPurge, netapi32lib, 'NetCharDevQPurge');
asm
mov esp, ebp
pop ebp
jmp [_NetCharDevQPurge]
end;
end;
{$ELSE}
function NetCharDevQPurge; external netapi32lib name 'NetCharDevQPurge';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetCharDevQPurgeSelf: Pointer;
function NetCharDevQPurgeSelf;
begin
GetProcedureAddress(_NetCharDevQPurgeSelf, netapi32lib, 'NetCharDevQPurgeSelf');
asm
mov esp, ebp
pop ebp
jmp [_NetCharDevQPurgeSelf]
end;
end;
{$ELSE}
function NetCharDevQPurgeSelf; external netapi32lib name 'NetCharDevQPurgeSelf';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetHandleGetInfo: Pointer;
function NetHandleGetInfo;
begin
GetProcedureAddress(_NetHandleGetInfo, netapi32lib, 'NetHandleGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetHandleGetInfo]
end;
end;
{$ELSE}
function NetHandleGetInfo; external netapi32lib name 'NetHandleGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetHandleSetInfo: Pointer;
function NetHandleSetInfo;
begin
GetProcedureAddress(_NetHandleSetInfo, netapi32lib, 'NetHandleSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetHandleSetInfo]
end;
end;
{$ELSE}
function NetHandleSetInfo; external netapi32lib name 'NetHandleSetInfo';
{$ENDIF DYNAMIC_LINK}
// LMDFS.H
{$IFDEF DYNAMIC_LINK}
var
_NetDfsAdd: Pointer;
function NetDfsAdd;
begin
GetProcedureAddress(_NetDfsAdd, netapi32lib, 'NetDfsAdd');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsAdd]
end;
end;
{$ELSE}
function NetDfsAdd; external netapi32lib name 'NetDfsAdd';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsAddStdRoot: Pointer;
function NetDfsAddStdRoot;
begin
GetProcedureAddress(_NetDfsAddStdRoot, netapi32lib, 'NetDfsAddStdRoot');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsAddStdRoot]
end;
end;
{$ELSE}
function NetDfsAddStdRoot; external netapi32lib name 'NetDfsAddStdRoot';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsRemoveStdRoot: Pointer;
function NetDfsRemoveStdRoot;
begin
GetProcedureAddress(_NetDfsRemoveStdRoot, netapi32lib, 'NetDfsRemoveStdRoot');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsRemoveStdRoot]
end;
end;
{$ELSE}
function NetDfsRemoveStdRoot; external netapi32lib name 'NetDfsRemoveStdRoot';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsAddFtRoot: Pointer;
function NetDfsAddFtRoot;
begin
GetProcedureAddress(_NetDfsAddFtRoot, netapi32lib, 'NetDfsAddFtRoot');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsAddFtRoot]
end;
end;
{$ELSE}
function NetDfsAddFtRoot; external netapi32lib name 'NetDfsAddFtRoot';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsRemoveFtRoot: Pointer;
function NetDfsRemoveFtRoot;
begin
GetProcedureAddress(_NetDfsRemoveFtRoot, netapi32lib, 'NetDfsRemoveFtRoot');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsRemoveFtRoot]
end;
end;
{$ELSE}
function NetDfsRemoveFtRoot; external netapi32lib name 'NetDfsRemoveFtRoot';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsRemoveFtRootForced: Pointer;
function NetDfsRemoveFtRootForced;
begin
GetProcedureAddress(_NetDfsRemoveFtRootForced, netapi32lib, 'NetDfsRemoveFtRootForced');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsRemoveFtRootForced]
end;
end;
{$ELSE}
function NetDfsRemoveFtRootForced; external netapi32lib name 'NetDfsRemoveFtRootForced';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsManagerInitialize: Pointer;
function NetDfsManagerInitialize;
begin
GetProcedureAddress(_NetDfsManagerInitialize, netapi32lib, 'NetDfsManagerInitialize');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsManagerInitialize]
end;
end;
{$ELSE}
function NetDfsManagerInitialize; external netapi32lib name 'NetDfsManagerInitialize';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsAddStdRootForced: Pointer;
function NetDfsAddStdRootForced;
begin
GetProcedureAddress(_NetDfsAddStdRootForced, netapi32lib, 'NetDfsAddStdRootForced');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsAddStdRootForced]
end;
end;
{$ELSE}
function NetDfsAddStdRootForced; external netapi32lib name 'NetDfsAddStdRootForced';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsGetDcAddress: Pointer;
function NetDfsGetDcAddress;
begin
GetProcedureAddress(_NetDfsGetDcAddress, netapi32lib, 'NetDfsGetDcAddress');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsGetDcAddress]
end;
end;
{$ELSE}
function NetDfsGetDcAddress; external netapi32lib name 'NetDfsGetDcAddress';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsSetDcAddress: Pointer;
function NetDfsSetDcAddress;
begin
GetProcedureAddress(_NetDfsSetDcAddress, netapi32lib, 'NetDfsSetDcAddress');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsSetDcAddress]
end;
end;
{$ELSE}
function NetDfsSetDcAddress; external netapi32lib name 'NetDfsSetDcAddress';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsRemove: Pointer;
function NetDfsRemove;
begin
GetProcedureAddress(_NetDfsRemove, netapi32lib, 'NetDfsRemove');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsRemove]
end;
end;
{$ELSE}
function NetDfsRemove; external netapi32lib name 'NetDfsRemove';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsEnum: Pointer;
function NetDfsEnum;
begin
GetProcedureAddress(_NetDfsEnum, netapi32lib, 'NetDfsEnum');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsEnum]
end;
end;
{$ELSE}
function NetDfsEnum; external netapi32lib name 'NetDfsEnum';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsGetInfo: Pointer;
function NetDfsGetInfo;
begin
GetProcedureAddress(_NetDfsGetInfo, netapi32lib, 'NetDfsGetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsGetInfo]
end;
end;
{$ELSE}
function NetDfsGetInfo; external netapi32lib name 'NetDfsGetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsSetInfo: Pointer;
function NetDfsSetInfo;
begin
GetProcedureAddress(_NetDfsSetInfo, netapi32lib, 'NetDfsSetInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsSetInfo]
end;
end;
{$ELSE}
function NetDfsSetInfo; external netapi32lib name 'NetDfsSetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsGetClientInfo: Pointer;
function NetDfsGetClientInfo;
begin
GetProcedureAddress(_NetDfsGetClientInfo, netapi32lib, 'NetDfsGetClientInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsGetClientInfo]
end;
end;
{$ELSE}
function NetDfsGetClientInfo; external netapi32lib name 'NetDfsGetClientInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsSetClientInfo: Pointer;
function NetDfsSetClientInfo;
begin
GetProcedureAddress(_NetDfsSetClientInfo, netapi32lib, 'NetDfsSetClientInfo');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsSetClientInfo]
end;
end;
{$ELSE}
function NetDfsSetClientInfo; external netapi32lib name 'NetDfsSetClientInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsMove: Pointer;
function NetDfsMove;
begin
GetProcedureAddress(_NetDfsMove, netapi32lib, 'NetDfsMove');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsMove]
end;
end;
{$ELSE}
function NetDfsMove; external netapi32lib name 'NetDfsMove';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NetDfsRename: Pointer;
function NetDfsRename;
begin
GetProcedureAddress(_NetDfsRename, netapi32lib, 'NetDfsRename');
asm
mov esp, ebp
pop ebp
jmp [_NetDfsRename]
end;
end;
{$ELSE}
function NetDfsRename; external netapi32lib name 'NetDfsRename';
{$ENDIF DYNAMIC_LINK}
end.