Windows编程

开发平台：

Delphi

JwaWinBase.pas：源码内容

end;
{$ELSE}
function SetSecurityDescriptorOwner; external advapi32 name 'SetSecurityDescriptorOwner';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSecurityDescriptorOwner: Pointer;
function GetSecurityDescriptorOwner;
begin
GetProcedureAddress(_GetSecurityDescriptorOwner, advapi32, 'GetSecurityDescriptorOwner');
asm
mov esp, ebp
pop ebp
jmp [_GetSecurityDescriptorOwner]
end;
end;
{$ELSE}
function GetSecurityDescriptorOwner; external advapi32 name 'GetSecurityDescriptorOwner';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetSecurityDescriptorGroup: Pointer;
function SetSecurityDescriptorGroup;
begin
GetProcedureAddress(_SetSecurityDescriptorGroup, advapi32, 'SetSecurityDescriptorGroup');
asm
mov esp, ebp
pop ebp
jmp [_SetSecurityDescriptorGroup]
end;
end;
{$ELSE}
function SetSecurityDescriptorGroup; external advapi32 name 'SetSecurityDescriptorGroup';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSecurityDescriptorGroup: Pointer;
function GetSecurityDescriptorGroup;
begin
GetProcedureAddress(_GetSecurityDescriptorGroup, advapi32, 'GetSecurityDescriptorGroup');
asm
mov esp, ebp
pop ebp
jmp [_GetSecurityDescriptorGroup]
end;
end;
{$ELSE}
function GetSecurityDescriptorGroup; external advapi32 name 'GetSecurityDescriptorGroup';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetSecurityDescriptorRMControl: Pointer;
function SetSecurityDescriptorRMControl;
begin
GetProcedureAddress(_SetSecurityDescriptorRMControl, advapi32, 'SetSecurityDescriptorRMControl');
asm
mov esp, ebp
pop ebp
jmp [_SetSecurityDescriptorRMControl]
end;
end;
{$ELSE}
function SetSecurityDescriptorRMControl; external advapi32 name 'SetSecurityDescriptorRMControl';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSecurityDescriptorRMControl: Pointer;
function GetSecurityDescriptorRMControl;
begin
GetProcedureAddress(_GetSecurityDescriptorRMControl, advapi32, 'GetSecurityDescriptorRMControl');
asm
mov esp, ebp
pop ebp
jmp [_GetSecurityDescriptorRMControl]
end;
end;
{$ELSE}
function GetSecurityDescriptorRMControl; external advapi32 name 'GetSecurityDescriptorRMControl';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreatePrivateObjectSecurity: Pointer;
function CreatePrivateObjectSecurity;
begin
GetProcedureAddress(_CreatePrivateObjectSecurity, advapi32, 'CreatePrivateObjectSecurity');
asm
mov esp, ebp
pop ebp
jmp [_CreatePrivateObjectSecurity]
end;
end;
{$ELSE}
function CreatePrivateObjectSecurity; external advapi32 name 'CreatePrivateObjectSecurity';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ConvertToAutoInheritPrObjSec: Pointer;
function ConvertToAutoInheritPrivateObjectSecurity;
begin
GetProcedureAddress(_ConvertToAutoInheritPrObjSec, advapi32, 'ConvertToAutoInheritPrivateObjectSecurity');
asm
mov esp, ebp
pop ebp
jmp [_ConvertToAutoInheritPrObjSec]
end;
end;
{$ELSE}
function ConvertToAutoInheritPrivateObjectSecurity; external advapi32 name 'ConvertToAutoInheritPrivateObjectSecurity';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreatePrivateObjectSecurityEx: Pointer;
function CreatePrivateObjectSecurityEx;
begin
GetProcedureAddress(_CreatePrivateObjectSecurityEx, advapi32, 'CreatePrivateObjectSecurityEx');
asm
mov esp, ebp
pop ebp
jmp [_CreatePrivateObjectSecurityEx]
end;
end;
{$ELSE}
function CreatePrivateObjectSecurityEx; external advapi32 name 'CreatePrivateObjectSecurityEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetPrivateObjectSecurity: Pointer;
function SetPrivateObjectSecurity;
begin
GetProcedureAddress(_SetPrivateObjectSecurity, advapi32, 'SetPrivateObjectSecurity');
asm
mov esp, ebp
pop ebp
jmp [_SetPrivateObjectSecurity]
end;
end;
{$ELSE}
function SetPrivateObjectSecurity; external advapi32 name 'SetPrivateObjectSecurity';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetPrivateObjectSecurityEx: Pointer;
function SetPrivateObjectSecurityEx;
begin
GetProcedureAddress(_SetPrivateObjectSecurityEx, advapi32, 'SetPrivateObjectSecurityEx');
asm
mov esp, ebp
pop ebp
jmp [_SetPrivateObjectSecurityEx]
end;
end;
{$ELSE}
function SetPrivateObjectSecurityEx; external advapi32 name 'SetPrivateObjectSecurityEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateObjectSecurity: Pointer;
function GetPrivateObjectSecurity;
begin
GetProcedureAddress(_GetPrivateObjectSecurity, advapi32, 'GetPrivateObjectSecurity');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateObjectSecurity]
end;
end;
{$ELSE}
function GetPrivateObjectSecurity; external advapi32 name 'GetPrivateObjectSecurity';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DestroyPrivateObjectSecurity: Pointer;
function DestroyPrivateObjectSecurity;
begin
GetProcedureAddress(_DestroyPrivateObjectSecurity, advapi32, 'DestroyPrivateObjectSecurity');
asm
mov esp, ebp
pop ebp
jmp [_DestroyPrivateObjectSecurity]
end;
end;
{$ELSE}
function DestroyPrivateObjectSecurity; external advapi32 name 'DestroyPrivateObjectSecurity';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MakeSelfRelativeSD: Pointer;
function MakeSelfRelativeSD;
begin
GetProcedureAddress(_MakeSelfRelativeSD, advapi32, 'MakeSelfRelativeSD');
asm
mov esp, ebp
pop ebp
jmp [_MakeSelfRelativeSD]
end;
end;
{$ELSE}
function MakeSelfRelativeSD; external advapi32 name 'MakeSelfRelativeSD';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MakeAbsoluteSD: Pointer;
function MakeAbsoluteSD;
begin
GetProcedureAddress(_MakeAbsoluteSD, advapi32, 'MakeAbsoluteSD');
asm
mov esp, ebp
pop ebp
jmp [_MakeAbsoluteSD]
end;
end;
{$ELSE}
function MakeAbsoluteSD; external advapi32 name 'MakeAbsoluteSD';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MakeAbsoluteSD2: Pointer;
function MakeAbsoluteSD2;
begin
GetProcedureAddress(_MakeAbsoluteSD2, advapi32, 'MakeAbsoluteSD2');
asm
mov esp, ebp
pop ebp
jmp [_MakeAbsoluteSD2]
end;
end;
{$ELSE}
function MakeAbsoluteSD2; external advapi32 name 'MakeAbsoluteSD2';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetFileSecurityA: Pointer;
function SetFileSecurityA;
begin
GetProcedureAddress(_SetFileSecurityA, advapi32, 'SetFileSecurityA');
asm
mov esp, ebp
pop ebp
jmp [_SetFileSecurityA]
end;
end;
{$ELSE}
function SetFileSecurityA; external advapi32 name 'SetFileSecurityA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetFileSecurityW: Pointer;
function SetFileSecurityW;
begin
GetProcedureAddress(_SetFileSecurityW, advapi32, 'SetFileSecurityW');
asm
mov esp, ebp
pop ebp
jmp [_SetFileSecurityW]
end;
end;
{$ELSE}
function SetFileSecurityW; external advapi32 name 'SetFileSecurityW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetFileSecurity: Pointer;
function SetFileSecurity;
begin
GetProcedureAddress(_SetFileSecurity, advapi32, 'SetFileSecurityW');
asm
mov esp, ebp
pop ebp
jmp [_SetFileSecurity]
end;
end;
{$ELSE}
function SetFileSecurity; external advapi32 name 'SetFileSecurityW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetFileSecurity: Pointer;
function SetFileSecurity;
begin
GetProcedureAddress(_SetFileSecurity, advapi32, 'SetFileSecurityA');
asm
mov esp, ebp
pop ebp
jmp [_SetFileSecurity]
end;
end;
{$ELSE}
function SetFileSecurity; external advapi32 name 'SetFileSecurityA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetFileSecurityA: Pointer;
function GetFileSecurityA;
begin
GetProcedureAddress(_GetFileSecurityA, advapi32, 'GetFileSecurityA');
asm
mov esp, ebp
pop ebp
jmp [_GetFileSecurityA]
end;
end;
{$ELSE}
function GetFileSecurityA; external advapi32 name 'GetFileSecurityA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetFileSecurityW: Pointer;
function GetFileSecurityW;
begin
GetProcedureAddress(_GetFileSecurityW, advapi32, 'GetFileSecurityW');
asm
mov esp, ebp
pop ebp
jmp [_GetFileSecurityW]
end;
end;
{$ELSE}
function GetFileSecurityW; external advapi32 name 'GetFileSecurityW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetFileSecurity: Pointer;
function GetFileSecurity;
begin
GetProcedureAddress(_GetFileSecurity, advapi32, 'GetFileSecurityW');
asm
mov esp, ebp
pop ebp
jmp [_GetFileSecurity]
end;
end;
{$ELSE}
function GetFileSecurity; external advapi32 name 'GetFileSecurityW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetFileSecurity: Pointer;
function GetFileSecurity;
begin
GetProcedureAddress(_GetFileSecurity, advapi32, 'GetFileSecurityA');
asm
mov esp, ebp
pop ebp
jmp [_GetFileSecurity]
end;
end;
{$ELSE}
function GetFileSecurity; external advapi32 name 'GetFileSecurityA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetKernelObjectSecurity: Pointer;
function SetKernelObjectSecurity;
begin
GetProcedureAddress(_SetKernelObjectSecurity, advapi32, 'SetKernelObjectSecurity');
asm
mov esp, ebp
pop ebp
jmp [_SetKernelObjectSecurity]
end;
end;
{$ELSE}
function SetKernelObjectSecurity; external advapi32 name 'SetKernelObjectSecurity';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstChangeNotificationA: Pointer;
function FindFirstChangeNotificationA;
begin
GetProcedureAddress(_FindFirstChangeNotificationA, kernel32, 'FindFirstChangeNotificationA');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstChangeNotificationA]
end;
end;
{$ELSE}
function FindFirstChangeNotificationA; external kernel32 name 'FindFirstChangeNotificationA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstChangeNotificationW: Pointer;
function FindFirstChangeNotificationW;
begin
GetProcedureAddress(_FindFirstChangeNotificationW, kernel32, 'FindFirstChangeNotificationW');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstChangeNotificationW]
end;
end;
{$ELSE}
function FindFirstChangeNotificationW; external kernel32 name 'FindFirstChangeNotificationW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstChangeNotification: Pointer;
function FindFirstChangeNotification;
begin
GetProcedureAddress(_FindFirstChangeNotification, kernel32, 'FindFirstChangeNotificationW');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstChangeNotification]
end;
end;
{$ELSE}
function FindFirstChangeNotification; external kernel32 name 'FindFirstChangeNotificationW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstChangeNotification: Pointer;
function FindFirstChangeNotification;
begin
GetProcedureAddress(_FindFirstChangeNotification, kernel32, 'FindFirstChangeNotificationA');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstChangeNotification]
end;
end;
{$ELSE}
function FindFirstChangeNotification; external kernel32 name 'FindFirstChangeNotificationA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindNextChangeNotification: Pointer;
function FindNextChangeNotification;
begin
GetProcedureAddress(_FindNextChangeNotification, kernel32, 'FindNextChangeNotification');
asm
mov esp, ebp
pop ebp
jmp [_FindNextChangeNotification]
end;
end;
{$ELSE}
function FindNextChangeNotification; external kernel32 name 'FindNextChangeNotification';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindCloseChangeNotification: Pointer;
function FindCloseChangeNotification;
begin
GetProcedureAddress(_FindCloseChangeNotification, kernel32, 'FindCloseChangeNotification');
asm
mov esp, ebp
pop ebp
jmp [_FindCloseChangeNotification]
end;
end;
{$ELSE}
function FindCloseChangeNotification; external kernel32 name 'FindCloseChangeNotification';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ReadDirectoryChangesW: Pointer;
function ReadDirectoryChangesW;
begin
GetProcedureAddress(_ReadDirectoryChangesW, kernel32, 'ReadDirectoryChangesW');
asm
mov esp, ebp
pop ebp
jmp [_ReadDirectoryChangesW]
end;
end;
{$ELSE}
function ReadDirectoryChangesW; external kernel32 name 'ReadDirectoryChangesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_VirtualLock: Pointer;
function VirtualLock;
begin
GetProcedureAddress(_VirtualLock, kernel32, 'VirtualLock');
asm
mov esp, ebp
pop ebp
jmp [_VirtualLock]
end;
end;
{$ELSE}
function VirtualLock; external kernel32 name 'VirtualLock';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_VirtualUnlock: Pointer;
function VirtualUnlock;
begin
GetProcedureAddress(_VirtualUnlock, kernel32, 'VirtualUnlock');
asm
mov esp, ebp
pop ebp
jmp [_VirtualUnlock]
end;
end;
{$ELSE}
function VirtualUnlock; external kernel32 name 'VirtualUnlock';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MapViewOfFileEx: Pointer;
function MapViewOfFileEx;
begin
GetProcedureAddress(_MapViewOfFileEx, kernel32, 'MapViewOfFileEx');
asm
mov esp, ebp
pop ebp
jmp [_MapViewOfFileEx]
end;
end;
{$ELSE}
function MapViewOfFileEx; external kernel32 name 'MapViewOfFileEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetPriorityClass: Pointer;
function SetPriorityClass;
begin
GetProcedureAddress(_SetPriorityClass, kernel32, 'SetPriorityClass');
asm
mov esp, ebp
pop ebp
jmp [_SetPriorityClass]
end;
end;
{$ELSE}
function SetPriorityClass; external kernel32 name 'SetPriorityClass';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPriorityClass: Pointer;
function GetPriorityClass;
begin
GetProcedureAddress(_GetPriorityClass, kernel32, 'GetPriorityClass');
asm
mov esp, ebp
pop ebp
jmp [_GetPriorityClass]
end;
end;
{$ELSE}
function GetPriorityClass; external kernel32 name 'GetPriorityClass';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsBadReadPtr: Pointer;
function IsBadReadPtr;
begin
GetProcedureAddress(_IsBadReadPtr, kernel32, 'IsBadReadPtr');
asm
mov esp, ebp
pop ebp
jmp [_IsBadReadPtr]
end;
end;
{$ELSE}
function IsBadReadPtr; external kernel32 name 'IsBadReadPtr';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsBadWritePtr: Pointer;
function IsBadWritePtr;
begin
GetProcedureAddress(_IsBadWritePtr, kernel32, 'IsBadWritePtr');
asm
mov esp, ebp
pop ebp
jmp [_IsBadWritePtr]
end;
end;
{$ELSE}
function IsBadWritePtr; external kernel32 name 'IsBadWritePtr';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsBadHugeReadPtr: Pointer;
function IsBadHugeReadPtr;
begin
GetProcedureAddress(_IsBadHugeReadPtr, kernel32, 'IsBadHugeReadPtr');
asm
mov esp, ebp
pop ebp
jmp [_IsBadHugeReadPtr]
end;
end;
{$ELSE}
function IsBadHugeReadPtr; external kernel32 name 'IsBadHugeReadPtr';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsBadHugeWritePtr: Pointer;
function IsBadHugeWritePtr;
begin
GetProcedureAddress(_IsBadHugeWritePtr, kernel32, 'IsBadHugeWritePtr');
asm
mov esp, ebp
pop ebp
jmp [_IsBadHugeWritePtr]
end;
end;
{$ELSE}
function IsBadHugeWritePtr; external kernel32 name 'IsBadHugeWritePtr';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsBadCodePtr: Pointer;
function IsBadCodePtr;
begin
GetProcedureAddress(_IsBadCodePtr, kernel32, 'IsBadCodePtr');
asm
mov esp, ebp
pop ebp
jmp [_IsBadCodePtr]
end;
end;
{$ELSE}
function IsBadCodePtr; external kernel32 name 'IsBadCodePtr';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsBadStringPtrA: Pointer;
function IsBadStringPtrA;
begin
GetProcedureAddress(_IsBadStringPtrA, kernel32, 'IsBadStringPtrA');
asm
mov esp, ebp
pop ebp
jmp [_IsBadStringPtrA]
end;
end;
{$ELSE}
function IsBadStringPtrA; external kernel32 name 'IsBadStringPtrA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsBadStringPtrW: Pointer;
function IsBadStringPtrW;
begin
GetProcedureAddress(_IsBadStringPtrW, kernel32, 'IsBadStringPtrW');
asm
mov esp, ebp
pop ebp
jmp [_IsBadStringPtrW]
end;
end;
{$ELSE}
function IsBadStringPtrW; external kernel32 name 'IsBadStringPtrW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_IsBadStringPtr: Pointer;
function IsBadStringPtr;
begin
GetProcedureAddress(_IsBadStringPtr, kernel32, 'IsBadStringPtrW');
asm
mov esp, ebp
pop ebp
jmp [_IsBadStringPtr]
end;
end;
{$ELSE}
function IsBadStringPtr; external kernel32 name 'IsBadStringPtrW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_IsBadStringPtr: Pointer;
function IsBadStringPtr;
begin
GetProcedureAddress(_IsBadStringPtr, kernel32, 'IsBadStringPtrA');
asm
mov esp, ebp
pop ebp
jmp [_IsBadStringPtr]
end;
end;
{$ELSE}
function IsBadStringPtr; external kernel32 name 'IsBadStringPtrA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LookupAccountSidA: Pointer;
function LookupAccountSidA;
begin
GetProcedureAddress(_LookupAccountSidA, advapi32, 'LookupAccountSidA');
asm
mov esp, ebp
pop ebp
jmp [_LookupAccountSidA]
end;
end;
{$ELSE}
function LookupAccountSidA; external advapi32 name 'LookupAccountSidA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LookupAccountSidW: Pointer;
function LookupAccountSidW;
begin
GetProcedureAddress(_LookupAccountSidW, advapi32, 'LookupAccountSidW');
asm
mov esp, ebp
pop ebp
jmp [_LookupAccountSidW]
end;
end;
{$ELSE}
function LookupAccountSidW; external advapi32 name 'LookupAccountSidW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LookupAccountSid: Pointer;
function LookupAccountSid;
begin
GetProcedureAddress(_LookupAccountSid, advapi32, 'LookupAccountSidW');
asm
mov esp, ebp
pop ebp
jmp [_LookupAccountSid]
end;
end;
{$ELSE}
function LookupAccountSid; external advapi32 name 'LookupAccountSidW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LookupAccountSid: Pointer;
function LookupAccountSid;
begin
GetProcedureAddress(_LookupAccountSid, advapi32, 'LookupAccountSidA');
asm
mov esp, ebp
pop ebp
jmp [_LookupAccountSid]
end;
end;
{$ELSE}
function LookupAccountSid; external advapi32 name 'LookupAccountSidA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LookupAccountNameA: Pointer;
function LookupAccountNameA;
begin
GetProcedureAddress(_LookupAccountNameA, advapi32, 'LookupAccountNameA');
asm
mov esp, ebp
pop ebp
jmp [_LookupAccountNameA]
end;
end;
{$ELSE}
function LookupAccountNameA; external advapi32 name 'LookupAccountNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LookupAccountNameW: Pointer;
function LookupAccountNameW;
begin
GetProcedureAddress(_LookupAccountNameW, advapi32, 'LookupAccountNameW');
asm
mov esp, ebp
pop ebp
jmp [_LookupAccountNameW]
end;
end;
{$ELSE}
function LookupAccountNameW; external advapi32 name 'LookupAccountNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LookupAccountName: Pointer;
function LookupAccountName;
begin
GetProcedureAddress(_LookupAccountName, advapi32, 'LookupAccountNameW');
asm
mov esp, ebp
pop ebp
jmp [_LookupAccountName]
end;
end;
{$ELSE}
function LookupAccountName; external advapi32 name 'LookupAccountNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LookupAccountName: Pointer;
function LookupAccountName;
begin
GetProcedureAddress(_LookupAccountName, advapi32, 'LookupAccountNameA');
asm
mov esp, ebp
pop ebp
jmp [_LookupAccountName]
end;
end;
{$ELSE}
function LookupAccountName; external advapi32 name 'LookupAccountNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeValueA: Pointer;
function LookupPrivilegeValueA;
begin
GetProcedureAddress(_LookupPrivilegeValueA, advapi32, 'LookupPrivilegeValueA');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeValueA]
end;
end;
{$ELSE}
function LookupPrivilegeValueA; external advapi32 name 'LookupPrivilegeValueA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeValueW: Pointer;
function LookupPrivilegeValueW;
begin
GetProcedureAddress(_LookupPrivilegeValueW, advapi32, 'LookupPrivilegeValueW');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeValueW]
end;
end;
{$ELSE}
function LookupPrivilegeValueW; external advapi32 name 'LookupPrivilegeValueW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeValue: Pointer;
function LookupPrivilegeValue;
begin
GetProcedureAddress(_LookupPrivilegeValue, advapi32, 'LookupPrivilegeValueW');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeValue]
end;
end;
{$ELSE}
function LookupPrivilegeValue; external advapi32 name 'LookupPrivilegeValueW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeValue: Pointer;
function LookupPrivilegeValue;
begin
GetProcedureAddress(_LookupPrivilegeValue, advapi32, 'LookupPrivilegeValueA');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeValue]
end;
end;
{$ELSE}
function LookupPrivilegeValue; external advapi32 name 'LookupPrivilegeValueA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeNameA: Pointer;
function LookupPrivilegeNameA;
begin
GetProcedureAddress(_LookupPrivilegeNameA, advapi32, 'LookupPrivilegeNameA');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeNameA]
end;
end;
{$ELSE}
function LookupPrivilegeNameA; external advapi32 name 'LookupPrivilegeNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeNameW: Pointer;
function LookupPrivilegeNameW;
begin
GetProcedureAddress(_LookupPrivilegeNameW, advapi32, 'LookupPrivilegeNameW');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeNameW]
end;
end;
{$ELSE}
function LookupPrivilegeNameW; external advapi32 name 'LookupPrivilegeNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeName: Pointer;
function LookupPrivilegeName;
begin
GetProcedureAddress(_LookupPrivilegeName, advapi32, 'LookupPrivilegeNameW');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeName]
end;
end;
{$ELSE}
function LookupPrivilegeName; external advapi32 name 'LookupPrivilegeNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeName: Pointer;
function LookupPrivilegeName;
begin
GetProcedureAddress(_LookupPrivilegeName, advapi32, 'LookupPrivilegeNameA');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeName]
end;
end;
{$ELSE}
function LookupPrivilegeName; external advapi32 name 'LookupPrivilegeNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeDisplayNameA: Pointer;
function LookupPrivilegeDisplayNameA;
begin
GetProcedureAddress(_LookupPrivilegeDisplayNameA, advapi32, 'LookupPrivilegeDisplayNameA');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeDisplayNameA]
end;
end;
{$ELSE}
function LookupPrivilegeDisplayNameA; external advapi32 name 'LookupPrivilegeDisplayNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeDisplayNameW: Pointer;
function LookupPrivilegeDisplayNameW;
begin
GetProcedureAddress(_LookupPrivilegeDisplayNameW, advapi32, 'LookupPrivilegeDisplayNameW');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeDisplayNameW]
end;
end;
{$ELSE}
function LookupPrivilegeDisplayNameW; external advapi32 name 'LookupPrivilegeDisplayNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeDisplayName: Pointer;
function LookupPrivilegeDisplayName;
begin
GetProcedureAddress(_LookupPrivilegeDisplayName, advapi32, 'LookupPrivilegeDisplayNameW');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeDisplayName]
end;
end;
{$ELSE}
function LookupPrivilegeDisplayName; external advapi32 name 'LookupPrivilegeDisplayNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LookupPrivilegeDisplayName: Pointer;
function LookupPrivilegeDisplayName;
begin
GetProcedureAddress(_LookupPrivilegeDisplayName, advapi32, 'LookupPrivilegeDisplayNameA');
asm
mov esp, ebp
pop ebp
jmp [_LookupPrivilegeDisplayName]
end;
end;
{$ELSE}
function LookupPrivilegeDisplayName; external advapi32 name 'LookupPrivilegeDisplayNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_AllocateLocallyUniqueId: Pointer;
function AllocateLocallyUniqueId;
begin
GetProcedureAddress(_AllocateLocallyUniqueId, advapi32, 'AllocateLocallyUniqueId');
asm
mov esp, ebp
pop ebp
jmp [_AllocateLocallyUniqueId]
end;
end;
{$ELSE}
function AllocateLocallyUniqueId; external advapi32 name 'AllocateLocallyUniqueId';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BuildCommDCBA: Pointer;
function BuildCommDCBA;
begin
GetProcedureAddress(_BuildCommDCBA, kernel32, 'BuildCommDCBA');
asm
mov esp, ebp
pop ebp
jmp [_BuildCommDCBA]
end;
end;
{$ELSE}
function BuildCommDCBA; external kernel32 name 'BuildCommDCBA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BuildCommDCBW: Pointer;
function BuildCommDCBW;
begin
GetProcedureAddress(_BuildCommDCBW, kernel32, 'BuildCommDCBW');
asm
mov esp, ebp
pop ebp
jmp [_BuildCommDCBW]
end;
end;
{$ELSE}
function BuildCommDCBW; external kernel32 name 'BuildCommDCBW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_BuildCommDCB: Pointer;
function BuildCommDCB;
begin
GetProcedureAddress(_BuildCommDCB, kernel32, 'BuildCommDCBW');
asm
mov esp, ebp
pop ebp
jmp [_BuildCommDCB]
end;
end;
{$ELSE}
function BuildCommDCB; external kernel32 name 'BuildCommDCBW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_BuildCommDCB: Pointer;
function BuildCommDCB;
begin
GetProcedureAddress(_BuildCommDCB, kernel32, 'BuildCommDCBA');
asm
mov esp, ebp
pop ebp
jmp [_BuildCommDCB]
end;
end;
{$ELSE}
function BuildCommDCB; external kernel32 name 'BuildCommDCBA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_BuildCommDCBAndTimeoutsA: Pointer;
function BuildCommDCBAndTimeoutsA;
begin
GetProcedureAddress(_BuildCommDCBAndTimeoutsA, kernel32, 'BuildCommDCBAndTimeoutsA');
asm
mov esp, ebp
pop ebp
jmp [_BuildCommDCBAndTimeoutsA]
end;
end;
{$ELSE}
function BuildCommDCBAndTimeoutsA; external kernel32 name 'BuildCommDCBAndTimeoutsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BuildCommDCBAndTimeoutsW: Pointer;
function BuildCommDCBAndTimeoutsW;
begin
GetProcedureAddress(_BuildCommDCBAndTimeoutsW, kernel32, 'BuildCommDCBAndTimeoutsW');
asm
mov esp, ebp
pop ebp
jmp [_BuildCommDCBAndTimeoutsW]
end;
end;
{$ELSE}
function BuildCommDCBAndTimeoutsW; external kernel32 name 'BuildCommDCBAndTimeoutsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_BuildCommDCBAndTimeouts: Pointer;
function BuildCommDCBAndTimeouts;
begin
GetProcedureAddress(_BuildCommDCBAndTimeouts, kernel32, 'BuildCommDCBAndTimeoutsW');
asm
mov esp, ebp
pop ebp
jmp [_BuildCommDCBAndTimeouts]
end;
end;
{$ELSE}
function BuildCommDCBAndTimeouts; external kernel32 name 'BuildCommDCBAndTimeoutsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_BuildCommDCBAndTimeouts: Pointer;
function BuildCommDCBAndTimeouts;
begin
GetProcedureAddress(_BuildCommDCBAndTimeouts, kernel32, 'BuildCommDCBAndTimeoutsA');
asm
mov esp, ebp
pop ebp
jmp [_BuildCommDCBAndTimeouts]
end;
end;
{$ELSE}
function BuildCommDCBAndTimeouts; external kernel32 name 'BuildCommDCBAndTimeoutsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CommConfigDialogA: Pointer;
function CommConfigDialogA;
begin
GetProcedureAddress(_CommConfigDialogA, kernel32, 'CommConfigDialogA');
asm
mov esp, ebp
pop ebp
jmp [_CommConfigDialogA]
end;
end;
{$ELSE}
function CommConfigDialogA; external kernel32 name 'CommConfigDialogA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CommConfigDialogW: Pointer;
function CommConfigDialogW;
begin
GetProcedureAddress(_CommConfigDialogW, kernel32, 'CommConfigDialogW');
asm
mov esp, ebp
pop ebp
jmp [_CommConfigDialogW]
end;
end;
{$ELSE}
function CommConfigDialogW; external kernel32 name 'CommConfigDialogW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CommConfigDialog: Pointer;
function CommConfigDialog;
begin
GetProcedureAddress(_CommConfigDialog, kernel32, 'CommConfigDialogW');
asm
mov esp, ebp
pop ebp
jmp [_CommConfigDialog]
end;
end;
{$ELSE}
function CommConfigDialog; external kernel32 name 'CommConfigDialogW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CommConfigDialog: Pointer;
function CommConfigDialog;
begin
GetProcedureAddress(_CommConfigDialog, kernel32, 'CommConfigDialogA');
asm
mov esp, ebp
pop ebp
jmp [_CommConfigDialog]
end;
end;
{$ELSE}
function CommConfigDialog; external kernel32 name 'CommConfigDialogA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetDefaultCommConfigA: Pointer;
function GetDefaultCommConfigA;
begin
GetProcedureAddress(_GetDefaultCommConfigA, kernel32, 'GetDefaultCommConfigA');
asm
mov esp, ebp
pop ebp
jmp [_GetDefaultCommConfigA]
end;
end;
{$ELSE}
function GetDefaultCommConfigA; external kernel32 name 'GetDefaultCommConfigA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDefaultCommConfigW: Pointer;
function GetDefaultCommConfigW;
begin
GetProcedureAddress(_GetDefaultCommConfigW, kernel32, 'GetDefaultCommConfigW');
asm
mov esp, ebp
pop ebp
jmp [_GetDefaultCommConfigW]
end;
end;
{$ELSE}
function GetDefaultCommConfigW; external kernel32 name 'GetDefaultCommConfigW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetDefaultCommConfig: Pointer;
function GetDefaultCommConfig;
begin
GetProcedureAddress(_GetDefaultCommConfig, kernel32, 'GetDefaultCommConfigW');
asm
mov esp, ebp
pop ebp
jmp [_GetDefaultCommConfig]
end;
end;
{$ELSE}
function GetDefaultCommConfig; external kernel32 name 'GetDefaultCommConfigW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetDefaultCommConfig: Pointer;
function GetDefaultCommConfig;
begin
GetProcedureAddress(_GetDefaultCommConfig, kernel32, 'GetDefaultCommConfigA');
asm
mov esp, ebp
pop ebp
jmp [_GetDefaultCommConfig]
end;
end;
{$ELSE}
function GetDefaultCommConfig; external kernel32 name 'GetDefaultCommConfigA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetDefaultCommConfigA: Pointer;
function SetDefaultCommConfigA;
begin
GetProcedureAddress(_SetDefaultCommConfigA, kernel32, 'SetDefaultCommConfigA');
asm
mov esp, ebp
pop ebp
jmp [_SetDefaultCommConfigA]
end;
end;
{$ELSE}
function SetDefaultCommConfigA; external kernel32 name 'SetDefaultCommConfigA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDefaultCommConfigW: Pointer;
function SetDefaultCommConfigW;
begin
GetProcedureAddress(_SetDefaultCommConfigW, kernel32, 'SetDefaultCommConfigW');
asm
mov esp, ebp
pop ebp
jmp [_SetDefaultCommConfigW]
end;
end;
{$ELSE}
function SetDefaultCommConfigW; external kernel32 name 'SetDefaultCommConfigW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetDefaultCommConfig: Pointer;
function SetDefaultCommConfig;
begin
GetProcedureAddress(_SetDefaultCommConfig, kernel32, 'SetDefaultCommConfigW');
asm
mov esp, ebp
pop ebp
jmp [_SetDefaultCommConfig]
end;
end;
{$ELSE}
function SetDefaultCommConfig; external kernel32 name 'SetDefaultCommConfigW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetDefaultCommConfig: Pointer;
function SetDefaultCommConfig;
begin
GetProcedureAddress(_SetDefaultCommConfig, kernel32, 'SetDefaultCommConfigA');
asm
mov esp, ebp
pop ebp
jmp [_SetDefaultCommConfig]
end;
end;
{$ELSE}
function SetDefaultCommConfig; external kernel32 name 'SetDefaultCommConfigA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetComputerNameA: Pointer;
function GetComputerNameA;
begin
GetProcedureAddress(_GetComputerNameA, kernel32, 'GetComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetComputerNameA]
end;
end;
{$ELSE}
function GetComputerNameA; external kernel32 name 'GetComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetComputerNameW: Pointer;
function GetComputerNameW;
begin
GetProcedureAddress(_GetComputerNameW, kernel32, 'GetComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetComputerNameW]
end;
end;
{$ELSE}
function GetComputerNameW; external kernel32 name 'GetComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetComputerName: Pointer;
function GetComputerName;
begin
GetProcedureAddress(_GetComputerName, kernel32, 'GetComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetComputerName]
end;
end;
{$ELSE}
function GetComputerName; external kernel32 name 'GetComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetComputerName: Pointer;
function GetComputerName;
begin
GetProcedureAddress(_GetComputerName, kernel32, 'GetComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetComputerName]
end;
end;
{$ELSE}
function GetComputerName; external kernel32 name 'GetComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetComputerNameA: Pointer;
function SetComputerNameA;
begin
GetProcedureAddress(_SetComputerNameA, kernel32, 'SetComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_SetComputerNameA]
end;
end;
{$ELSE}
function SetComputerNameA; external kernel32 name 'SetComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetComputerNameW: Pointer;
function SetComputerNameW;
begin
GetProcedureAddress(_SetComputerNameW, kernel32, 'SetComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_SetComputerNameW]
end;
end;
{$ELSE}
function SetComputerNameW; external kernel32 name 'SetComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetComputerName: Pointer;
function SetComputerName;
begin
GetProcedureAddress(_SetComputerName, kernel32, 'SetComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_SetComputerName]
end;
end;
{$ELSE}
function SetComputerName; external kernel32 name 'SetComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetComputerName: Pointer;
function SetComputerName;
begin
GetProcedureAddress(_SetComputerName, kernel32, 'SetComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_SetComputerName]
end;
end;
{$ELSE}
function SetComputerName; external kernel32 name 'SetComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetComputerNameExA: Pointer;
function GetComputerNameExA;
begin
GetProcedureAddress(_GetComputerNameExA, kernel32, 'GetComputerNameExA');
asm
mov esp, ebp
pop ebp
jmp [_GetComputerNameExA]
end;
end;
{$ELSE}
function GetComputerNameExA; external kernel32 name 'GetComputerNameExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetComputerNameExW: Pointer;
function GetComputerNameExW;
begin
GetProcedureAddress(_GetComputerNameExW, kernel32, 'GetComputerNameExW');
asm
mov esp, ebp
pop ebp
jmp [_GetComputerNameExW]
end;
end;
{$ELSE}
function GetComputerNameExW; external kernel32 name 'GetComputerNameExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetComputerNameEx: Pointer;
function GetComputerNameEx;
begin
GetProcedureAddress(_GetComputerNameEx, kernel32, 'GetComputerNameExW');
asm
mov esp, ebp
pop ebp
jmp [_GetComputerNameEx]
end;
end;
{$ELSE}
function GetComputerNameEx; external kernel32 name 'GetComputerNameExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetComputerNameEx: Pointer;
function GetComputerNameEx;
begin
GetProcedureAddress(_GetComputerNameEx, kernel32, 'GetComputerNameExA');
asm
mov esp, ebp
pop ebp
jmp [_GetComputerNameEx]
end;
end;
{$ELSE}
function GetComputerNameEx; external kernel32 name 'GetComputerNameExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetComputerNameExA: Pointer;
function SetComputerNameExA;
begin
GetProcedureAddress(_SetComputerNameExA, kernel32, 'SetComputerNameExA');
asm
mov esp, ebp
pop ebp
jmp [_SetComputerNameExA]
end;
end;
{$ELSE}
function SetComputerNameExA; external kernel32 name 'SetComputerNameExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetComputerNameExW: Pointer;
function SetComputerNameExW;
begin
GetProcedureAddress(_SetComputerNameExW, kernel32, 'SetComputerNameExW');
asm
mov esp, ebp
pop ebp
jmp [_SetComputerNameExW]
end;
end;
{$ELSE}
function SetComputerNameExW; external kernel32 name 'SetComputerNameExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetComputerNameEx: Pointer;
function SetComputerNameEx;
begin
GetProcedureAddress(_SetComputerNameEx, kernel32, 'SetComputerNameExW');
asm
mov esp, ebp
pop ebp
jmp [_SetComputerNameEx]
end;
end;
{$ELSE}
function SetComputerNameEx; external kernel32 name 'SetComputerNameExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetComputerNameEx: Pointer;
function SetComputerNameEx;
begin
GetProcedureAddress(_SetComputerNameEx, kernel32, 'SetComputerNameExA');
asm
mov esp, ebp
pop ebp
jmp [_SetComputerNameEx]
end;
end;
{$ELSE}
function SetComputerNameEx; external kernel32 name 'SetComputerNameExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_AddLocalAlternateComputerNameA: Pointer;
function AddLocalAlternateComputerNameA;
begin
GetProcedureAddress(_AddLocalAlternateComputerNameA, kernel32, 'AddLocalAlternateComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_AddLocalAlternateComputerNameA]
end;
end;
{$ELSE}
function AddLocalAlternateComputerNameA; external kernel32 name 'AddLocalAlternateComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AddLocalAlternateComputerNameW: Pointer;
function AddLocalAlternateComputerNameW;
begin
GetProcedureAddress(_AddLocalAlternateComputerNameW, kernel32, 'AddLocalAlternateComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_AddLocalAlternateComputerNameW]
end;
end;
{$ELSE}
function AddLocalAlternateComputerNameW; external kernel32 name 'AddLocalAlternateComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_AddLocalAlternateComputerName: Pointer;
function AddLocalAlternateComputerName;
begin
GetProcedureAddress(_AddLocalAlternateComputerName, kernel32, 'AddLocalAlternateComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_AddLocalAlternateComputerName]
end;
end;
{$ELSE}
function AddLocalAlternateComputerName; external kernel32 name 'AddLocalAlternateComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_AddLocalAlternateComputerName: Pointer;
function AddLocalAlternateComputerName;
begin
GetProcedureAddress(_AddLocalAlternateComputerName, kernel32, 'AddLocalAlternateComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_AddLocalAlternateComputerName]
end;
end;
{$ELSE}
function AddLocalAlternateComputerName; external kernel32 name 'AddLocalAlternateComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_RemoveLocalAlternateCompNameA: Pointer;
function RemoveLocalAlternateComputerNameA;
begin
GetProcedureAddress(_RemoveLocalAlternateCompNameA, kernel32, 'RemoveLocalAlternateComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_RemoveLocalAlternateCompNameA]
end;
end;
{$ELSE}
function RemoveLocalAlternateComputerNameA; external kernel32 name 'RemoveLocalAlternateComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RemoveLocalAlternateCompNameW: Pointer;
function RemoveLocalAlternateComputerNameW;
begin
GetProcedureAddress(_RemoveLocalAlternateCompNameW, kernel32, 'RemoveLocalAlternateComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_RemoveLocalAlternateCompNameW]
end;
end;
{$ELSE}
function RemoveLocalAlternateComputerNameW; external kernel32 name 'RemoveLocalAlternateComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_RemoveLocalAlternateCompName: Pointer;
function RemoveLocalAlternateComputerName;
begin
GetProcedureAddress(_RemoveLocalAlternateCompName, kernel32, 'RemoveLocalAlternateComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_RemoveLocalAlternateCompName]
end;
end;
{$ELSE}
function RemoveLocalAlternateComputerName; external kernel32 name 'RemoveLocalAlternateComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_RemoveLocalAlternateCompName: Pointer;
function RemoveLocalAlternateComputerName;
begin
GetProcedureAddress(_RemoveLocalAlternateCompName, kernel32, 'RemoveLocalAlternateComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_RemoveLocalAlternateCompName]
end;
end;
{$ELSE}
function RemoveLocalAlternateComputerName; external kernel32 name 'RemoveLocalAlternateComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetLocalPrimaryComputerNameA: Pointer;
function SetLocalPrimaryComputerNameA;
begin
GetProcedureAddress(_SetLocalPrimaryComputerNameA, kernel32, 'SetLocalPrimaryComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_SetLocalPrimaryComputerNameA]
end;
end;
{$ELSE}
function SetLocalPrimaryComputerNameA; external kernel32 name 'SetLocalPrimaryComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetLocalPrimaryComputerNameW: Pointer;
function SetLocalPrimaryComputerNameW;
begin
GetProcedureAddress(_SetLocalPrimaryComputerNameW, kernel32, 'SetLocalPrimaryComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_SetLocalPrimaryComputerNameW]
end;
end;
{$ELSE}
function SetLocalPrimaryComputerNameW; external kernel32 name 'SetLocalPrimaryComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetLocalPrimaryComputerName: Pointer;
function SetLocalPrimaryComputerName;
begin
GetProcedureAddress(_SetLocalPrimaryComputerName, kernel32, 'SetLocalPrimaryComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_SetLocalPrimaryComputerName]
end;
end;
{$ELSE}
function SetLocalPrimaryComputerName; external kernel32 name 'SetLocalPrimaryComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetLocalPrimaryComputerName: Pointer;
function SetLocalPrimaryComputerName;
begin
GetProcedureAddress(_SetLocalPrimaryComputerName, kernel32, 'SetLocalPrimaryComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_SetLocalPrimaryComputerName]
end;
end;
{$ELSE}
function SetLocalPrimaryComputerName; external kernel32 name 'SetLocalPrimaryComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumerateLocalComputerNamesA: Pointer;
function EnumerateLocalComputerNamesA;
begin
GetProcedureAddress(_EnumerateLocalComputerNamesA, kernel32, 'EnumerateLocalComputerNamesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumerateLocalComputerNamesA]
end;
end;
{$ELSE}
function EnumerateLocalComputerNamesA; external kernel32 name 'EnumerateLocalComputerNamesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumerateLocalComputerNamesW: Pointer;
function EnumerateLocalComputerNamesW;
begin
GetProcedureAddress(_EnumerateLocalComputerNamesW, kernel32, 'EnumerateLocalComputerNamesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumerateLocalComputerNamesW]
end;
end;
{$ELSE}
function EnumerateLocalComputerNamesW; external kernel32 name 'EnumerateLocalComputerNamesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumerateLocalComputerNames: Pointer;
function EnumerateLocalComputerNames;
begin
GetProcedureAddress(_EnumerateLocalComputerNames, kernel32, 'EnumerateLocalComputerNamesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumerateLocalComputerNames]
end;
end;
{$ELSE}
function EnumerateLocalComputerNames; external kernel32 name 'EnumerateLocalComputerNamesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumerateLocalComputerNames: Pointer;
function EnumerateLocalComputerNames;
begin
GetProcedureAddress(_EnumerateLocalComputerNames, kernel32, 'EnumerateLocalComputerNamesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumerateLocalComputerNames]
end;
end;
{$ELSE}
function EnumerateLocalComputerNames; external kernel32 name 'EnumerateLocalComputerNamesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DnsHostnameToComputerNameA: Pointer;
function DnsHostnameToComputerNameA;
begin
GetProcedureAddress(_DnsHostnameToComputerNameA, kernel32, 'DnsHostnameToComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_DnsHostnameToComputerNameA]
end;
end;
{$ELSE}
function DnsHostnameToComputerNameA; external kernel32 name 'DnsHostnameToComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DnsHostnameToComputerNameW: Pointer;
function DnsHostnameToComputerNameW;
begin
GetProcedureAddress(_DnsHostnameToComputerNameW, kernel32, 'DnsHostnameToComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_DnsHostnameToComputerNameW]
end;
end;
{$ELSE}
function DnsHostnameToComputerNameW; external kernel32 name 'DnsHostnameToComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DnsHostnameToComputerName: Pointer;
function DnsHostnameToComputerName;
begin
GetProcedureAddress(_DnsHostnameToComputerName, kernel32, 'DnsHostnameToComputerNameW');
asm
mov esp, ebp
pop ebp
jmp [_DnsHostnameToComputerName]
end;
end;
{$ELSE}
function DnsHostnameToComputerName; external kernel32 name 'DnsHostnameToComputerNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DnsHostnameToComputerName: Pointer;
function DnsHostnameToComputerName;
begin
GetProcedureAddress(_DnsHostnameToComputerName, kernel32, 'DnsHostnameToComputerNameA');
asm
mov esp, ebp
pop ebp
jmp [_DnsHostnameToComputerName]
end;
end;
{$ELSE}
function DnsHostnameToComputerName; external kernel32 name 'DnsHostnameToComputerNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetUserNameA: Pointer;
function GetUserNameA;
begin
GetProcedureAddress(_GetUserNameA, advapi32, 'GetUserNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetUserNameA]
end;
end;
{$ELSE}
function GetUserNameA; external advapi32 name 'GetUserNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetUserNameW: Pointer;
function GetUserNameW;
begin
GetProcedureAddress(_GetUserNameW, advapi32, 'GetUserNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetUserNameW]
end;
end;
{$ELSE}
function GetUserNameW; external advapi32 name 'GetUserNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetUserName: Pointer;
function GetUserName;
begin
GetProcedureAddress(_GetUserName, advapi32, 'GetUserNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetUserName]
end;
end;
{$ELSE}
function GetUserName; external advapi32 name 'GetUserNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetUserName: Pointer;
function GetUserName;
begin
GetProcedureAddress(_GetUserName, advapi32, 'GetUserNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetUserName]
end;
end;
{$ELSE}
function GetUserName; external advapi32 name 'GetUserNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LogonUserA: Pointer;
function LogonUserA;
begin
GetProcedureAddress(_LogonUserA, advapi32, 'LogonUserA');
asm
mov esp, ebp
pop ebp
jmp [_LogonUserA]
end;
end;
{$ELSE}
function LogonUserA; external advapi32 name 'LogonUserA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LogonUserW: Pointer;
function LogonUserW;
begin
GetProcedureAddress(_LogonUserW, advapi32, 'LogonUserW');
asm
mov esp, ebp
pop ebp
jmp [_LogonUserW]
end;
end;
{$ELSE}
function LogonUserW; external advapi32 name 'LogonUserW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LogonUser: Pointer;
function LogonUser;
begin
GetProcedureAddress(_LogonUser, advapi32, 'LogonUserW');
asm
mov esp, ebp
pop ebp
jmp [_LogonUser]
end;
end;
{$ELSE}
function LogonUser; external advapi32 name 'LogonUserW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LogonUser: Pointer;
function LogonUser;
begin
GetProcedureAddress(_LogonUser, advapi32, 'LogonUserA');
asm
mov esp, ebp
pop ebp
jmp [_LogonUser]
end;
end;
{$ELSE}
function LogonUser; external advapi32 name 'LogonUserA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LogonUserExA: Pointer;
function LogonUserExA;
begin
GetProcedureAddress(_LogonUserExA, advapi32, 'LogonUserExA');
asm
mov esp, ebp
pop ebp
jmp [_LogonUserExA]
end;
end;
{$ELSE}
function LogonUserExA; external advapi32 name 'LogonUserExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LogonUserExW: Pointer;
function LogonUserExW;
begin
GetProcedureAddress(_LogonUserExW, advapi32, 'LogonUserExW');
asm
mov esp, ebp
pop ebp
jmp [_LogonUserExW]
end;
end;
{$ELSE}
function LogonUserExW; external advapi32 name 'LogonUserExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LogonUserEx: Pointer;
function LogonUserEx;
begin
GetProcedureAddress(_LogonUserEx, advapi32, 'LogonUserExW');
asm
mov esp, ebp
pop ebp
jmp [_LogonUserEx]
end;
end;
{$ELSE}
function LogonUserEx; external advapi32 name 'LogonUserExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LogonUserEx: Pointer;
function LogonUserEx;
begin
GetProcedureAddress(_LogonUserEx, advapi32, 'LogonUserExA');
asm
mov esp, ebp
pop ebp
jmp [_LogonUserEx]
end;
end;
{$ELSE}
function LogonUserEx; external advapi32 name 'LogonUserExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_ImpersonateLoggedOnUser: Pointer;
function ImpersonateLoggedOnUser;
begin
GetProcedureAddress(_ImpersonateLoggedOnUser, advapi32, 'ImpersonateLoggedOnUser');
asm
mov esp, ebp
pop ebp
jmp [_ImpersonateLoggedOnUser]
end;
end;
{$ELSE}
function ImpersonateLoggedOnUser; external advapi32 name 'ImpersonateLoggedOnUser';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateProcessAsUserA: Pointer;
function CreateProcessAsUserA;
begin
GetProcedureAddress(_CreateProcessAsUserA, advapi32, 'CreateProcessAsUserA');
asm
mov esp, ebp
pop ebp
jmp [_CreateProcessAsUserA]
end;
end;
{$ELSE}
function CreateProcessAsUserA; external advapi32 name 'CreateProcessAsUserA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateProcessAsUserW: Pointer;
function CreateProcessAsUserW;
begin
GetProcedureAddress(_CreateProcessAsUserW, advapi32, 'CreateProcessAsUserW');
asm
mov esp, ebp
pop ebp
jmp [_CreateProcessAsUserW]
end;
end;
{$ELSE}
function CreateProcessAsUserW; external advapi32 name 'CreateProcessAsUserW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateProcessAsUser: Pointer;
function CreateProcessAsUser;
begin
GetProcedureAddress(_CreateProcessAsUser, advapi32, 'CreateProcessAsUserW');
asm
mov esp, ebp
pop ebp
jmp [_CreateProcessAsUser]
end;
end;
{$ELSE}
function CreateProcessAsUser; external advapi32 name 'CreateProcessAsUserW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateProcessAsUser: Pointer;
function CreateProcessAsUser;
begin
GetProcedureAddress(_CreateProcessAsUser, advapi32, 'CreateProcessAsUserA');
asm
mov esp, ebp
pop ebp
jmp [_CreateProcessAsUser]
end;
end;
{$ELSE}
function CreateProcessAsUser; external advapi32 name 'CreateProcessAsUserA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateProcessWithLogonW: Pointer;
function CreateProcessWithLogonW;
begin
GetProcedureAddress(_CreateProcessWithLogonW, advapi32, 'CreateProcessWithLogonW');
asm
mov esp, ebp
pop ebp
jmp [_CreateProcessWithLogonW]
end;
end;
{$ELSE}
function CreateProcessWithLogonW; external advapi32 name 'CreateProcessWithLogonW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateProcessWithTokenW: Pointer;
function CreateProcessWithTokenW;
begin
GetProcedureAddress(_CreateProcessWithTokenW, advapi32, 'CreateProcessWithTokenW');
asm
mov esp, ebp
pop ebp
jmp [_CreateProcessWithTokenW]
end;
end;
{$ELSE}
function CreateProcessWithTokenW; external advapi32 name 'CreateProcessWithTokenW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ImpersonateAnonymousToken: Pointer;
function ImpersonateAnonymousToken;
begin
GetProcedureAddress(_ImpersonateAnonymousToken, advapi32, 'ImpersonateAnonymousToken');
asm
mov esp, ebp
pop ebp
jmp [_ImpersonateAnonymousToken]
end;
end;
{$ELSE}
function ImpersonateAnonymousToken; external advapi32 name 'ImpersonateAnonymousToken';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DuplicateTokenEx: Pointer;
function DuplicateTokenEx;
begin
GetProcedureAddress(_DuplicateTokenEx, advapi32, 'DuplicateTokenEx');
asm
mov esp, ebp
pop ebp
jmp [_DuplicateTokenEx]
end;
end;
{$ELSE}
function DuplicateTokenEx; external advapi32 name 'DuplicateTokenEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateRestrictedToken: Pointer;
function CreateRestrictedToken;
begin
GetProcedureAddress(_CreateRestrictedToken, advapi32, 'CreateRestrictedToken');
asm
mov esp, ebp
pop ebp
jmp [_CreateRestrictedToken]
end;
end;
{$ELSE}
function CreateRestrictedToken; external advapi32 name 'CreateRestrictedToken';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsTokenRestricted: Pointer;
function IsTokenRestricted;
begin
GetProcedureAddress(_IsTokenRestricted, advapi32, 'IsTokenRestricted');
asm
mov esp, ebp
pop ebp
jmp [_IsTokenRestricted]
end;
end;
{$ELSE}
function IsTokenRestricted; external advapi32 name 'IsTokenRestricted';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CheckTokenMembership: Pointer;
function CheckTokenMembership;
begin
GetProcedureAddress(_CheckTokenMembership, advapi32, 'CheckTokenMembership');
asm
mov esp, ebp
pop ebp
jmp [_CheckTokenMembership]
end;
end;
{$ELSE}
function CheckTokenMembership; external advapi32 name 'CheckTokenMembership';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsTokenUntrusted: Pointer;
function IsTokenUntrusted;
begin
GetProcedureAddress(_IsTokenUntrusted, advapi32, 'IsTokenUntrusted');
asm
mov esp, ebp
pop ebp
jmp [_IsTokenUntrusted]
end;
end;
{$ELSE}
function IsTokenUntrusted; external advapi32 name 'IsTokenUntrusted';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RegisterWaitForSingleObject: Pointer;
function RegisterWaitForSingleObject;
begin
GetProcedureAddress(_RegisterWaitForSingleObject, kernel32, 'RegisterWaitForSingleObject');
asm
mov esp, ebp
pop ebp
jmp [_RegisterWaitForSingleObject]
end;
end;
{$ELSE}
function RegisterWaitForSingleObject; external kernel32 name 'RegisterWaitForSingleObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RegisterWaitForSingleObjectEx: Pointer;
function RegisterWaitForSingleObjectEx;
begin
GetProcedureAddress(_RegisterWaitForSingleObjectEx, kernel32, 'RegisterWaitForSingleObjectEx');
asm
mov esp, ebp
pop ebp
jmp [_RegisterWaitForSingleObjectEx]
end;
end;
{$ELSE}
function RegisterWaitForSingleObjectEx; external kernel32 name 'RegisterWaitForSingleObjectEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UnregisterWait: Pointer;
function UnregisterWait;
begin
GetProcedureAddress(_UnregisterWait, kernel32, 'UnregisterWait');
asm
mov esp, ebp
pop ebp
jmp [_UnregisterWait]
end;
end;
{$ELSE}
function UnregisterWait; external kernel32 name 'UnregisterWait';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UnregisterWaitEx: Pointer;
function UnregisterWaitEx;
begin
GetProcedureAddress(_UnregisterWaitEx, kernel32, 'UnregisterWaitEx');
asm
mov esp, ebp
pop ebp
jmp [_UnregisterWaitEx]
end;
end;
{$ELSE}
function UnregisterWaitEx; external kernel32 name 'UnregisterWaitEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_QueueUserWorkItem: Pointer;
function QueueUserWorkItem;
begin
GetProcedureAddress(_QueueUserWorkItem, kernel32, 'QueueUserWorkItem');
asm
mov esp, ebp
pop ebp
jmp [_QueueUserWorkItem]
end;
end;
{$ELSE}
function QueueUserWorkItem; external kernel32 name 'QueueUserWorkItem';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BindIoCompletionCallback: Pointer;
function BindIoCompletionCallback;
begin
GetProcedureAddress(_BindIoCompletionCallback, kernel32, 'BindIoCompletionCallback');
asm
mov esp, ebp
pop ebp
jmp [_BindIoCompletionCallback]
end;
end;
{$ELSE}
function BindIoCompletionCallback; external kernel32 name 'BindIoCompletionCallback';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateTimerQueue: Pointer;
function CreateTimerQueue;
begin
GetProcedureAddress(_CreateTimerQueue, kernel32, 'CreateTimerQueue');
asm
mov esp, ebp
pop ebp
jmp [_CreateTimerQueue]
end;
end;
{$ELSE}
function CreateTimerQueue; external kernel32 name 'CreateTimerQueue';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateTimerQueueTimer: Pointer;
function CreateTimerQueueTimer;
begin
GetProcedureAddress(_CreateTimerQueueTimer, kernel32, 'CreateTimerQueueTimer');
asm
mov esp, ebp
pop ebp
jmp [_CreateTimerQueueTimer]
end;
end;
{$ELSE}
function CreateTimerQueueTimer; external kernel32 name 'CreateTimerQueueTimer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ChangeTimerQueueTimer: Pointer;
function ChangeTimerQueueTimer;
begin
GetProcedureAddress(_ChangeTimerQueueTimer, kernel32, 'ChangeTimerQueueTimer');
asm
mov esp, ebp
pop ebp
jmp [_ChangeTimerQueueTimer]
end;
end;
{$ELSE}
function ChangeTimerQueueTimer; external kernel32 name 'ChangeTimerQueueTimer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeleteTimerQueueTimer: Pointer;
function DeleteTimerQueueTimer;
begin
GetProcedureAddress(_DeleteTimerQueueTimer, kernel32, 'DeleteTimerQueueTimer');
asm
mov esp, ebp
pop ebp
jmp [_DeleteTimerQueueTimer]
end;
end;
{$ELSE}
function DeleteTimerQueueTimer; external kernel32 name 'DeleteTimerQueueTimer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeleteTimerQueueEx: Pointer;
function DeleteTimerQueueEx;
begin
GetProcedureAddress(_DeleteTimerQueueEx, kernel32, 'DeleteTimerQueueEx');
asm
mov esp, ebp
pop ebp
jmp [_DeleteTimerQueueEx]
end;
end;
{$ELSE}
function DeleteTimerQueueEx; external kernel32 name 'DeleteTimerQueueEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetTimerQueueTimer: Pointer;
function SetTimerQueueTimer;
begin
GetProcedureAddress(_SetTimerQueueTimer, kernel32, 'SetTimerQueueTimer');
asm
mov esp, ebp
pop ebp
jmp [_SetTimerQueueTimer]
end;
end;
{$ELSE}
function SetTimerQueueTimer; external kernel32 name 'SetTimerQueueTimer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CancelTimerQueueTimer: Pointer;
function CancelTimerQueueTimer;
begin
GetProcedureAddress(_CancelTimerQueueTimer, kernel32, 'CancelTimerQueueTimer');
asm
mov esp, ebp
pop ebp
jmp [_CancelTimerQueueTimer]
end;
end;
{$ELSE}
function CancelTimerQueueTimer; external kernel32 name 'CancelTimerQueueTimer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeleteTimerQueue: Pointer;
function DeleteTimerQueue;
begin
GetProcedureAddress(_DeleteTimerQueue, kernel32, 'DeleteTimerQueue');
asm
mov esp, ebp
pop ebp
jmp [_DeleteTimerQueue]
end;
end;
{$ELSE}
function DeleteTimerQueue; external kernel32 name 'DeleteTimerQueue';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentHwProfileA: Pointer;
function GetCurrentHwProfileA;
begin
GetProcedureAddress(_GetCurrentHwProfileA, advapi32, 'GetCurrentHwProfileA');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentHwProfileA]
end;
end;
{$ELSE}
function GetCurrentHwProfileA; external advapi32 name 'GetCurrentHwProfileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentHwProfileW: Pointer;
function GetCurrentHwProfileW;
begin
GetProcedureAddress(_GetCurrentHwProfileW, advapi32, 'GetCurrentHwProfileW');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentHwProfileW]
end;
end;
{$ELSE}
function GetCurrentHwProfileW; external advapi32 name 'GetCurrentHwProfileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentHwProfile: Pointer;
function GetCurrentHwProfile;
begin
GetProcedureAddress(_GetCurrentHwProfile, advapi32, 'GetCurrentHwProfileW');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentHwProfile]
end;
end;
{$ELSE}
function GetCurrentHwProfile; external advapi32 name 'GetCurrentHwProfileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentHwProfile: Pointer;
function GetCurrentHwProfile;
begin
GetProcedureAddress(_GetCurrentHwProfile, advapi32, 'GetCurrentHwProfileA');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentHwProfile]
end;
end;
{$ELSE}
function GetCurrentHwProfile; external advapi32 name 'GetCurrentHwProfileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_QueryPerformanceCounter: Pointer;
function QueryPerformanceCounter;
begin
GetProcedureAddress(_QueryPerformanceCounter, kernel32, 'QueryPerformanceCounter');
asm
mov esp, ebp
pop ebp
jmp [_QueryPerformanceCounter]
end;
end;
{$ELSE}
function QueryPerformanceCounter; external kernel32 name 'QueryPerformanceCounter';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_QueryPerformanceFrequency: Pointer;
function QueryPerformanceFrequency;
begin
GetProcedureAddress(_QueryPerformanceFrequency, kernel32, 'QueryPerformanceFrequency');
asm
mov esp, ebp
pop ebp
jmp [_QueryPerformanceFrequency]
end;
end;
{$ELSE}
function QueryPerformanceFrequency; external kernel32 name 'QueryPerformanceFrequency';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetVersionExA: Pointer;
function GetVersionExA;
begin
GetProcedureAddress(_GetVersionExA, kernel32, 'GetVersionExA');
asm
mov esp, ebp
pop ebp
jmp [_GetVersionExA]
end;
end;
{$ELSE}
function GetVersionExA; external kernel32 name 'GetVersionExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetVersionExW: Pointer;
function GetVersionExW;
begin
GetProcedureAddress(_GetVersionExW, kernel32, 'GetVersionExW');
asm
mov esp, ebp
pop ebp
jmp [_GetVersionExW]
end;
end;
{$ELSE}
function GetVersionExW; external kernel32 name 'GetVersionExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetVersionEx: Pointer;
function GetVersionEx;
begin
GetProcedureAddress(_GetVersionEx, kernel32, 'GetVersionExW');
asm
mov esp, ebp
pop ebp
jmp [_GetVersionEx]
end;
end;
{$ELSE}
function GetVersionEx; external kernel32 name 'GetVersionExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetVersionEx: Pointer;
function GetVersionEx;
begin
GetProcedureAddress(_GetVersionEx, kernel32, 'GetVersionExA');
asm
mov esp, ebp
pop ebp
jmp [_GetVersionEx]
end;
end;
{$ELSE}
function GetVersionEx; external kernel32 name 'GetVersionExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_VerifyVersionInfoA: Pointer;
function VerifyVersionInfoA;
begin
GetProcedureAddress(_VerifyVersionInfoA, kernel32, 'VerifyVersionInfoA');
asm
mov esp, ebp
pop ebp
jmp [_VerifyVersionInfoA]
end;
end;
{$ELSE}
function VerifyVersionInfoA; external kernel32 name 'VerifyVersionInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_VerifyVersionInfoW: Pointer;
function VerifyVersionInfoW;
begin
GetProcedureAddress(_VerifyVersionInfoW, kernel32, 'VerifyVersionInfoW');
asm
mov esp, ebp
pop ebp
jmp [_VerifyVersionInfoW]
end;
end;
{$ELSE}
function VerifyVersionInfoW; external kernel32 name 'VerifyVersionInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_VerifyVersionInfo: Pointer;
function VerifyVersionInfo;
begin
GetProcedureAddress(_VerifyVersionInfo, kernel32, 'VerifyVersionInfoW');
asm
mov esp, ebp
pop ebp
jmp [_VerifyVersionInfo]
end;
end;
{$ELSE}
function VerifyVersionInfo; external kernel32 name 'VerifyVersionInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_VerifyVersionInfo: Pointer;
function VerifyVersionInfo;
begin
GetProcedureAddress(_VerifyVersionInfo, kernel32, 'VerifyVersionInfoA');
asm
mov esp, ebp
pop ebp
jmp [_VerifyVersionInfo]
end;
end;
{$ELSE}
function VerifyVersionInfo; external kernel32 name 'VerifyVersionInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemPowerStatus: Pointer;
function GetSystemPowerStatus;
begin
GetProcedureAddress(_GetSystemPowerStatus, kernel32, 'GetSystemPowerStatus');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemPowerStatus]
end;
end;
{$ELSE}
function GetSystemPowerStatus; external kernel32 name 'GetSystemPowerStatus';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetSystemPowerState: Pointer;
function SetSystemPowerState;
begin
GetProcedureAddress(_SetSystemPowerState, kernel32, 'SetSystemPowerState');
asm
mov esp, ebp
pop ebp
jmp [_SetSystemPowerState]
end;
end;
{$ELSE}
function SetSystemPowerState; external kernel32 name 'SetSystemPowerState';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AllocateUserPhysicalPages: Pointer;
function AllocateUserPhysicalPages;
begin
GetProcedureAddress(_AllocateUserPhysicalPages, kernel32, 'AllocateUserPhysicalPages');
asm
mov esp, ebp
pop ebp
jmp [_AllocateUserPhysicalPages]
end;
end;
{$ELSE}
function AllocateUserPhysicalPages; external kernel32 name 'AllocateUserPhysicalPages';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FreeUserPhysicalPages: Pointer;
function FreeUserPhysicalPages;
begin
GetProcedureAddress(_FreeUserPhysicalPages, kernel32, 'FreeUserPhysicalPages');
asm
mov esp, ebp
pop ebp
jmp [_FreeUserPhysicalPages]
end;
end;
{$ELSE}
function FreeUserPhysicalPages; external kernel32 name 'FreeUserPhysicalPages';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MapUserPhysicalPages: Pointer;
function MapUserPhysicalPages;
begin
GetProcedureAddress(_MapUserPhysicalPages, kernel32, 'MapUserPhysicalPages');
asm
mov esp, ebp
pop ebp
jmp [_MapUserPhysicalPages]
end;
end;
{$ELSE}
function MapUserPhysicalPages; external kernel32 name 'MapUserPhysicalPages';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MapUserPhysicalPagesScatter: Pointer;
function MapUserPhysicalPagesScatter;
begin
GetProcedureAddress(_MapUserPhysicalPagesScatter, kernel32, 'MapUserPhysicalPagesScatter');
asm
mov esp, ebp
pop ebp
jmp [_MapUserPhysicalPagesScatter]
end;
end;
{$ELSE}
function MapUserPhysicalPagesScatter; external kernel32 name 'MapUserPhysicalPagesScatter';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateJobObjectA: Pointer;
function CreateJobObjectA;
begin
GetProcedureAddress(_CreateJobObjectA, kernel32, 'CreateJobObjectA');
asm
mov esp, ebp
pop ebp
jmp [_CreateJobObjectA]
end;
end;
{$ELSE}
function CreateJobObjectA; external kernel32 name 'CreateJobObjectA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateJobObjectW: Pointer;
function CreateJobObjectW;
begin
GetProcedureAddress(_CreateJobObjectW, kernel32, 'CreateJobObjectW');
asm
mov esp, ebp
pop ebp
jmp [_CreateJobObjectW]
end;
end;
{$ELSE}
function CreateJobObjectW; external kernel32 name 'CreateJobObjectW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateJobObject: Pointer;
function CreateJobObject;
begin
GetProcedureAddress(_CreateJobObject, kernel32, 'CreateJobObjectW');
asm
mov esp, ebp
pop ebp
jmp [_CreateJobObject]
end;
end;
{$ELSE}
function CreateJobObject; external kernel32 name 'CreateJobObjectW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateJobObject: Pointer;
function CreateJobObject;
begin
GetProcedureAddress(_CreateJobObject, kernel32, 'CreateJobObjectA');
asm
mov esp, ebp
pop ebp
jmp [_CreateJobObject]
end;
end;
{$ELSE}
function CreateJobObject; external kernel32 name 'CreateJobObjectA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_OpenJobObjectA: Pointer;
function OpenJobObjectA;
begin
GetProcedureAddress(_OpenJobObjectA, kernel32, 'OpenJobObjectA');
asm
mov esp, ebp
pop ebp
jmp [_OpenJobObjectA]
end;
end;
{$ELSE}
function OpenJobObjectA; external kernel32 name 'OpenJobObjectA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OpenJobObjectW: Pointer;
function OpenJobObjectW;
begin
GetProcedureAddress(_OpenJobObjectW, kernel32, 'OpenJobObjectW');
asm
mov esp, ebp
pop ebp
jmp [_OpenJobObjectW]
end;
end;
{$ELSE}
function OpenJobObjectW; external kernel32 name 'OpenJobObjectW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_OpenJobObject: Pointer;
function OpenJobObject;
begin
GetProcedureAddress(_OpenJobObject, kernel32, 'OpenJobObjectW');
asm
mov esp, ebp
pop ebp
jmp [_OpenJobObject]
end;
end;
{$ELSE}
function OpenJobObject; external kernel32 name 'OpenJobObjectW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_OpenJobObject: Pointer;
function OpenJobObject;
begin
GetProcedureAddress(_OpenJobObject, kernel32, 'OpenJobObjectA');
asm
mov esp, ebp
pop ebp
jmp [_OpenJobObject]
end;
end;
{$ELSE}
function OpenJobObject; external kernel32 name 'OpenJobObjectA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_AssignProcessToJobObject: Pointer;
function AssignProcessToJobObject;
begin
GetProcedureAddress(_AssignProcessToJobObject, kernel32, 'AssignProcessToJobObject');
asm
mov esp, ebp
pop ebp
jmp [_AssignProcessToJobObject]
end;
end;
{$ELSE}
function AssignProcessToJobObject; external kernel32 name 'AssignProcessToJobObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_TerminateJobObject: Pointer;
function TerminateJobObject;
begin
GetProcedureAddress(_TerminateJobObject, kernel32, 'TerminateJobObject');
asm
mov esp, ebp
pop ebp
jmp [_TerminateJobObject]
end;
end;
{$ELSE}
function TerminateJobObject; external kernel32 name 'TerminateJobObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_QueryInformationJobObject: Pointer;
function QueryInformationJobObject;
begin
GetProcedureAddress(_QueryInformationJobObject, kernel32, 'QueryInformationJobObject');
asm
mov esp, ebp
pop ebp
jmp [_QueryInformationJobObject]
end;
end;
{$ELSE}
function QueryInformationJobObject; external kernel32 name 'QueryInformationJobObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetInformationJobObject: Pointer;
function SetInformationJobObject;
begin
GetProcedureAddress(_SetInformationJobObject, kernel32, 'SetInformationJobObject');
asm
mov esp, ebp
pop ebp
jmp [_SetInformationJobObject]
end;
end;
{$ELSE}
function SetInformationJobObject; external kernel32 name 'SetInformationJobObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsProcessInJob: Pointer;
function IsProcessInJob;
begin
GetProcedureAddress(_IsProcessInJob, kernel32, 'IsProcessInJob');
asm
mov esp, ebp
pop ebp
jmp [_IsProcessInJob]
end;
end;
{$ELSE}
function IsProcessInJob; external kernel32 name 'IsProcessInJob';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateJobSet: Pointer;
function CreateJobSet;
begin
GetProcedureAddress(_CreateJobSet, kernel32, 'CreateJobSet');
asm
mov esp, ebp
pop ebp
jmp [_CreateJobSet]
end;
end;
{$ELSE}
function CreateJobSet; external kernel32 name 'CreateJobSet';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AddVectoredExceptionHandler: Pointer;
function AddVectoredExceptionHandler;
begin
GetProcedureAddress(_AddVectoredExceptionHandler, kernel32, 'AddVectoredExceptionHandler');
asm
mov esp, ebp
pop ebp
jmp [_AddVectoredExceptionHandler]
end;
end;
{$ELSE}
function AddVectoredExceptionHandler; external kernel32 name 'AddVectoredExceptionHandler';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RemoveVectoredExceptionHandler: Pointer;
function RemoveVectoredExceptionHandler;
begin
GetProcedureAddress(_RemoveVectoredExceptionHandler, kernel32, 'RemoveVectoredExceptionHandler');
asm
mov esp, ebp
pop ebp
jmp [_RemoveVectoredExceptionHandler]
end;
end;
{$ELSE}
function RemoveVectoredExceptionHandler; external kernel32 name 'RemoveVectoredExceptionHandler';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstVolumeA: Pointer;
function FindFirstVolumeA;
begin
GetProcedureAddress(_FindFirstVolumeA, kernel32, 'FindFirstVolumeA');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstVolumeA]
end;
end;
{$ELSE}
function FindFirstVolumeA; external kernel32 name 'FindFirstVolumeA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstVolumeW: Pointer;
function FindFirstVolumeW;
begin
GetProcedureAddress(_FindFirstVolumeW, kernel32, 'FindFirstVolumeW');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstVolumeW]
end;
end;
{$ELSE}
function FindFirstVolumeW; external kernel32 name 'FindFirstVolumeW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstVolume: Pointer;
function FindFirstVolume;
begin
GetProcedureAddress(_FindFirstVolume, kernel32, 'FindFirstVolumeW');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstVolume]
end;
end;
{$ELSE}
function FindFirstVolume; external kernel32 name 'FindFirstVolumeW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstVolume: Pointer;
function FindFirstVolume;
begin
GetProcedureAddress(_FindFirstVolume, kernel32, 'FindFirstVolumeA');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstVolume]
end;
end;
{$ELSE}
function FindFirstVolume; external kernel32 name 'FindFirstVolumeA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindNextVolumeA: Pointer;
function FindNextVolumeA;
begin
GetProcedureAddress(_FindNextVolumeA, kernel32, 'FindNextVolumeA');
asm
mov esp, ebp
pop ebp
jmp [_FindNextVolumeA]
end;
end;
{$ELSE}
function FindNextVolumeA; external kernel32 name 'FindNextVolumeA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindNextVolumeW: Pointer;
function FindNextVolumeW;
begin
GetProcedureAddress(_FindNextVolumeW, kernel32, 'FindNextVolumeW');
asm
mov esp, ebp
pop ebp
jmp [_FindNextVolumeW]
end;
end;
{$ELSE}
function FindNextVolumeW; external kernel32 name 'FindNextVolumeW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindNextVolume: Pointer;
function FindNextVolume;
begin
GetProcedureAddress(_FindNextVolume, kernel32, 'FindNextVolumeW');
asm
mov esp, ebp
pop ebp
jmp [_FindNextVolume]
end;
end;
{$ELSE}
function FindNextVolume; external kernel32 name 'FindNextVolumeW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindNextVolume: Pointer;
function FindNextVolume;
begin
GetProcedureAddress(_FindNextVolume, kernel32, 'FindNextVolumeA');
asm
mov esp, ebp
pop ebp
jmp [_FindNextVolume]
end;
end;
{$ELSE}
function FindNextVolume; external kernel32 name 'FindNextVolumeA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindVolumeClose: Pointer;
function FindVolumeClose;
begin
GetProcedureAddress(_FindVolumeClose, kernel32, 'FindVolumeClose');
asm
mov esp, ebp
pop ebp
jmp [_FindVolumeClose]
end;
end;
{$ELSE}
function FindVolumeClose; external kernel32 name 'FindVolumeClose';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstVolumeMountPointA: Pointer;
function FindFirstVolumeMountPointA;
begin
GetProcedureAddress(_FindFirstVolumeMountPointA, kernel32, 'FindFirstVolumeMountPointA');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstVolumeMountPointA]
end;
end;
{$ELSE}
function FindFirstVolumeMountPointA; external kernel32 name 'FindFirstVolumeMountPointA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstVolumeMountPointW: Pointer;
function FindFirstVolumeMountPointW;
begin
GetProcedureAddress(_FindFirstVolumeMountPointW, kernel32, 'FindFirstVolumeMountPointW');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstVolumeMountPointW]
end;
end;
{$ELSE}
function FindFirstVolumeMountPointW; external kernel32 name 'FindFirstVolumeMountPointW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstVolumeMountPoint: Pointer;
function FindFirstVolumeMountPoint;
begin
GetProcedureAddress(_FindFirstVolumeMountPoint, kernel32, 'FindFirstVolumeMountPointW');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstVolumeMountPoint]
end;
end;
{$ELSE}
function FindFirstVolumeMountPoint; external kernel32 name 'FindFirstVolumeMountPointW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindFirstVolumeMountPoint: Pointer;
function FindFirstVolumeMountPoint;
begin
GetProcedureAddress(_FindFirstVolumeMountPoint, kernel32, 'FindFirstVolumeMountPointA');
asm
mov esp, ebp
pop ebp
jmp [_FindFirstVolumeMountPoint]
end;
end;
{$ELSE}
function FindFirstVolumeMountPoint; external kernel32 name 'FindFirstVolumeMountPointA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindNextVolumeMountPointA: Pointer;
function FindNextVolumeMountPointA;
begin
GetProcedureAddress(_FindNextVolumeMountPointA, kernel32, 'FindNextVolumeMountPointA');
asm
mov esp, ebp
pop ebp
jmp [_FindNextVolumeMountPointA]
end;
end;
{$ELSE}
function FindNextVolumeMountPointA; external kernel32 name 'FindNextVolumeMountPointA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindNextVolumeMountPointW: Pointer;
function FindNextVolumeMountPointW;
begin
GetProcedureAddress(_FindNextVolumeMountPointW, kernel32, 'FindNextVolumeMountPointW');
asm
mov esp, ebp
pop ebp
jmp [_FindNextVolumeMountPointW]
end;
end;
{$ELSE}
function FindNextVolumeMountPointW; external kernel32 name 'FindNextVolumeMountPointW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindNextVolumeMountPoint: Pointer;
function FindNextVolumeMountPoint;
begin
GetProcedureAddress(_FindNextVolumeMountPoint, kernel32, 'FindNextVolumeMountPointW');
asm
mov esp, ebp
pop ebp
jmp [_FindNextVolumeMountPoint]
end;
end;
{$ELSE}
function FindNextVolumeMountPoint; external kernel32 name 'FindNextVolumeMountPointW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindNextVolumeMountPoint: Pointer;
function FindNextVolumeMountPoint;
begin
GetProcedureAddress(_FindNextVolumeMountPoint, kernel32, 'FindNextVolumeMountPointA');
asm
mov esp, ebp
pop ebp
jmp [_FindNextVolumeMountPoint]
end;
end;
{$ELSE}
function FindNextVolumeMountPoint; external kernel32 name 'FindNextVolumeMountPointA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindVolumeMountPointClose: Pointer;
function FindVolumeMountPointClose;
begin
GetProcedureAddress(_FindVolumeMountPointClose, kernel32, 'FindVolumeMountPointClose');
asm
mov esp, ebp
pop ebp
jmp [_FindVolumeMountPointClose]
end;
end;
{$ELSE}
function FindVolumeMountPointClose; external kernel32 name 'FindVolumeMountPointClose';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetVolumeMountPointA: Pointer;
function SetVolumeMountPointA;
begin
GetProcedureAddress(_SetVolumeMountPointA, kernel32, 'SetVolumeMountPointA');
asm
mov esp, ebp
pop ebp
jmp [_SetVolumeMountPointA]
end;
end;
{$ELSE}
function SetVolumeMountPointA; external kernel32 name 'SetVolumeMountPointA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetVolumeMountPointW: Pointer;
function SetVolumeMountPointW;
begin
GetProcedureAddress(_SetVolumeMountPointW, kernel32, 'SetVolumeMountPointW');
asm
mov esp, ebp
pop ebp
jmp [_SetVolumeMountPointW]
end;
end;
{$ELSE}
function SetVolumeMountPointW; external kernel32 name 'SetVolumeMountPointW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetVolumeMountPoint: Pointer;
function SetVolumeMountPoint;
begin
GetProcedureAddress(_SetVolumeMountPoint, kernel32, 'SetVolumeMountPointW');
asm
mov esp, ebp
pop ebp
jmp [_SetVolumeMountPoint]
end;
end;
{$ELSE}
function SetVolumeMountPoint; external kernel32 name 'SetVolumeMountPointW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetVolumeMountPoint: Pointer;
function SetVolumeMountPoint;
begin
GetProcedureAddress(_SetVolumeMountPoint, kernel32, 'SetVolumeMountPointA');
asm
mov esp, ebp
pop ebp
jmp [_SetVolumeMountPoint]
end;
end;
{$ELSE}
function SetVolumeMountPoint; external kernel32 name 'SetVolumeMountPointA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DeleteVolumeMountPointA: Pointer;
function DeleteVolumeMountPointA;
begin
GetProcedureAddress(_DeleteVolumeMountPointA, kernel32, 'DeleteVolumeMountPointA');
asm
mov esp, ebp
pop ebp
jmp [_DeleteVolumeMountPointA]
end;
end;
{$ELSE}
function DeleteVolumeMountPointA; external kernel32 name 'DeleteVolumeMountPointA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeleteVolumeMountPointW: Pointer;
function DeleteVolumeMountPointW;
begin
GetProcedureAddress(_DeleteVolumeMountPointW, kernel32, 'DeleteVolumeMountPointW');
asm
mov esp, ebp
pop ebp
jmp [_DeleteVolumeMountPointW]
end;
end;
{$ELSE}
function DeleteVolumeMountPointW; external kernel32 name 'DeleteVolumeMountPointW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DeleteVolumeMountPoint: Pointer;
function DeleteVolumeMountPoint;
begin
GetProcedureAddress(_DeleteVolumeMountPoint, kernel32, 'DeleteVolumeMountPointW');
asm
mov esp, ebp
pop ebp
jmp [_DeleteVolumeMountPoint]
end;
end;
{$ELSE}
function DeleteVolumeMountPoint; external kernel32 name 'DeleteVolumeMountPointW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DeleteVolumeMountPoint: Pointer;
function DeleteVolumeMountPoint;
begin
GetProcedureAddress(_DeleteVolumeMountPoint, kernel32, 'DeleteVolumeMountPointA');
asm
mov esp, ebp
pop ebp
jmp [_DeleteVolumeMountPoint]
end;
end;
{$ELSE}
function DeleteVolumeMountPoint; external kernel32 name 'DeleteVolumeMountPointA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumeNameForVolMountPointA: Pointer;
function GetVolumeNameForVolumeMountPointA;
begin
GetProcedureAddress(_GetVolumeNameForVolMountPointA, kernel32, 'GetVolumeNameForVolumeMountPointA');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumeNameForVolMountPointA]
end;
end;
{$ELSE}
function GetVolumeNameForVolumeMountPointA; external kernel32 name 'GetVolumeNameForVolumeMountPointA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumeNameForVolMountPointW: Pointer;
function GetVolumeNameForVolumeMountPointW;
begin
GetProcedureAddress(_GetVolumeNameForVolMountPointW, kernel32, 'GetVolumeNameForVolumeMountPointW');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumeNameForVolMountPointW]
end;
end;
{$ELSE}
function GetVolumeNameForVolumeMountPointW; external kernel32 name 'GetVolumeNameForVolumeMountPointW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumeNameForVolMountPoint: Pointer;
function GetVolumeNameForVolumeMountPoint;
begin
GetProcedureAddress(_GetVolumeNameForVolMountPoint, kernel32, 'GetVolumeNameForVolumeMountPointW');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumeNameForVolMountPoint]
end;
end;
{$ELSE}
function GetVolumeNameForVolumeMountPoint; external kernel32 name 'GetVolumeNameForVolumeMountPointW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumeNameForVolMountPoint: Pointer;
function GetVolumeNameForVolumeMountPoint;
begin
GetProcedureAddress(_GetVolumeNameForVolMountPoint, kernel32, 'GetVolumeNameForVolumeMountPointA');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumeNameForVolMountPoint]
end;
end;
{$ELSE}
function GetVolumeNameForVolumeMountPoint; external kernel32 name 'GetVolumeNameForVolumeMountPointA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumePathNameA: Pointer;
function GetVolumePathNameA;
begin
GetProcedureAddress(_GetVolumePathNameA, kernel32, 'GetVolumePathNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumePathNameA]
end;
end;
{$ELSE}
function GetVolumePathNameA; external kernel32 name 'GetVolumePathNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumePathNameW: Pointer;
function GetVolumePathNameW;
begin
GetProcedureAddress(_GetVolumePathNameW, kernel32, 'GetVolumePathNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumePathNameW]
end;
end;
{$ELSE}
function GetVolumePathNameW; external kernel32 name 'GetVolumePathNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumePathName: Pointer;
function GetVolumePathName;
begin
GetProcedureAddress(_GetVolumePathName, kernel32, 'GetVolumePathNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumePathName]
end;
end;
{$ELSE}
function GetVolumePathName; external kernel32 name 'GetVolumePathNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumePathName: Pointer;
function GetVolumePathName;
begin
GetProcedureAddress(_GetVolumePathName, kernel32, 'GetVolumePathNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumePathName]
end;
end;
{$ELSE}
function GetVolumePathName; external kernel32 name 'GetVolumePathNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumePathNamesForVolNameA: Pointer;
function GetVolumePathNamesForVolumeNameA;
begin
GetProcedureAddress(_GetVolumePathNamesForVolNameA, kernel32, 'GetVolumePathNamesForVolumeNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumePathNamesForVolNameA]
end;
end;
{$ELSE}
function GetVolumePathNamesForVolumeNameA; external kernel32 name 'GetVolumePathNamesForVolumeNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumePathNamesForVolNameW: Pointer;
function GetVolumePathNamesForVolumeNameW;
begin
GetProcedureAddress(_GetVolumePathNamesForVolNameW, kernel32, 'GetVolumePathNamesForVolumeNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumePathNamesForVolNameW]
end;
end;
{$ELSE}
function GetVolumePathNamesForVolumeNameW; external kernel32 name 'GetVolumePathNamesForVolumeNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumePathNamesForVolName: Pointer;
function GetVolumePathNamesForVolumeName;
begin
GetProcedureAddress(_GetVolumePathNamesForVolName, kernel32, 'GetVolumePathNamesForVolumeNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumePathNamesForVolName]
end;
end;
{$ELSE}
function GetVolumePathNamesForVolumeName; external kernel32 name 'GetVolumePathNamesForVolumeNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetVolumePathNamesForVolName: Pointer;
function GetVolumePathNamesForVolumeName;
begin
GetProcedureAddress(_GetVolumePathNamesForVolName, kernel32, 'GetVolumePathNamesForVolumeNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetVolumePathNamesForVolName]
end;
end;
{$ELSE}
function GetVolumePathNamesForVolumeName; external kernel32 name 'GetVolumePathNamesForVolumeNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateActCtxA: Pointer;
function CreateActCtxA;
begin
GetProcedureAddress(_CreateActCtxA, kernel32, 'CreateActCtxA');
asm
mov esp, ebp
pop ebp
jmp [_CreateActCtxA]
end;
end;
{$ELSE}
function CreateActCtxA; external kernel32 name 'CreateActCtxA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateActCtxW: Pointer;
function CreateActCtxW;
begin
GetProcedureAddress(_CreateActCtxW, kernel32, 'CreateActCtxW');
asm
mov esp, ebp
pop ebp
jmp [_CreateActCtxW]
end;
end;
{$ELSE}
function CreateActCtxW; external kernel32 name 'CreateActCtxW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateActCtx: Pointer;
function CreateActCtx;
begin
GetProcedureAddress(_CreateActCtx, kernel32, 'CreateActCtxW');
asm
mov esp, ebp
pop ebp
jmp [_CreateActCtx]
end;
end;
{$ELSE}
function CreateActCtx; external kernel32 name 'CreateActCtxW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateActCtx: Pointer;
function CreateActCtx;
begin
GetProcedureAddress(_CreateActCtx, kernel32, 'CreateActCtxA');
asm
mov esp, ebp
pop ebp
jmp [_CreateActCtx]
end;
end;
{$ELSE}
function CreateActCtx; external kernel32 name 'CreateActCtxA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_AddRefActCtx: Pointer;
procedure AddRefActCtx;
begin
GetProcedureAddress(_AddRefActCtx, kernel32, 'AddRefActCtx');
asm
mov esp, ebp
pop ebp
jmp [_AddRefActCtx]
end;
end;
{$ELSE}
procedure AddRefActCtx; external kernel32 name 'AddRefActCtx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ReleaseActCtx: Pointer;
procedure ReleaseActCtx;
begin
GetProcedureAddress(_ReleaseActCtx, kernel32, 'ReleaseActCtx');
asm
mov esp, ebp
pop ebp
jmp [_ReleaseActCtx]
end;
end;
{$ELSE}
procedure ReleaseActCtx; external kernel32 name 'ReleaseActCtx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ZombifyActCtx: Pointer;
function ZombifyActCtx;
begin
GetProcedureAddress(_ZombifyActCtx, kernel32, 'ZombifyActCtx');
asm
mov esp, ebp
pop ebp
jmp [_ZombifyActCtx]
end;
end;
{$ELSE}
function ZombifyActCtx; external kernel32 name 'ZombifyActCtx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ActivateActCtx: Pointer;
function ActivateActCtx;
begin
GetProcedureAddress(_ActivateActCtx, kernel32, 'ActivateActCtx');
asm
mov esp, ebp
pop ebp
jmp [_ActivateActCtx]
end;
end;
{$ELSE}
function ActivateActCtx; external kernel32 name 'ActivateActCtx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeactivateActCtx: Pointer;
function DeactivateActCtx;
begin
GetProcedureAddress(_DeactivateActCtx, kernel32, 'DeactivateActCtx');
asm
mov esp, ebp
pop ebp
jmp [_DeactivateActCtx]
end;
end;
{$ELSE}
function DeactivateActCtx; external kernel32 name 'DeactivateActCtx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentActCtx: Pointer;
function GetCurrentActCtx;
begin
GetProcedureAddress(_GetCurrentActCtx, kernel32, 'GetCurrentActCtx');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentActCtx]
end;
end;
{$ELSE}
function GetCurrentActCtx; external kernel32 name 'GetCurrentActCtx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindActCtxSectionStringA: Pointer;
function FindActCtxSectionStringA;
begin
GetProcedureAddress(_FindActCtxSectionStringA, kernel32, 'FindActCtxSectionStringA');
asm
mov esp, ebp
pop ebp
jmp [_FindActCtxSectionStringA]
end;
end;
{$ELSE}
function FindActCtxSectionStringA; external kernel32 name 'FindActCtxSectionStringA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindActCtxSectionStringW: Pointer;
function FindActCtxSectionStringW;
begin
GetProcedureAddress(_FindActCtxSectionStringW, kernel32, 'FindActCtxSectionStringW');
asm
mov esp, ebp
pop ebp
jmp [_FindActCtxSectionStringW]
end;
end;
{$ELSE}
function FindActCtxSectionStringW; external kernel32 name 'FindActCtxSectionStringW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindActCtxSectionString: Pointer;
function FindActCtxSectionString;
begin
GetProcedureAddress(_FindActCtxSectionString, kernel32, 'FindActCtxSectionStringW');
asm
mov esp, ebp
pop ebp
jmp [_FindActCtxSectionString]
end;
end;
{$ELSE}
function FindActCtxSectionString; external kernel32 name 'FindActCtxSectionStringW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindActCtxSectionString: Pointer;
function FindActCtxSectionString;
begin
GetProcedureAddress(_FindActCtxSectionString, kernel32, 'FindActCtxSectionStringA');
asm
mov esp, ebp
pop ebp
jmp [_FindActCtxSectionString]
end;
end;
{$ELSE}
function FindActCtxSectionString; external kernel32 name 'FindActCtxSectionStringA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindActCtxSectionGuid: Pointer;
function FindActCtxSectionGuid;
begin
GetProcedureAddress(_FindActCtxSectionGuid, kernel32, 'FindActCtxSectionGuid');
asm
mov esp, ebp
pop ebp
jmp [_FindActCtxSectionGuid]
end;
end;
{$ELSE}
function FindActCtxSectionGuid; external kernel32 name 'FindActCtxSectionGuid';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_QueryActCtxW: Pointer;
function QueryActCtxW;
begin
GetProcedureAddress(_QueryActCtxW, kernel32, 'QueryActCtxW');
asm
mov esp, ebp
pop ebp
jmp [_QueryActCtxW]
end;
end;
{$ELSE}
function QueryActCtxW; external kernel32 name 'QueryActCtxW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ProcessIdToSessionId: Pointer;
function ProcessIdToSessionId;
begin
GetProcedureAddress(_ProcessIdToSessionId, kernel32, 'ProcessIdToSessionId');
asm
mov esp, ebp
pop ebp
jmp [_ProcessIdToSessionId]
end;
end;
{$ELSE}
function ProcessIdToSessionId; external kernel32 name 'ProcessIdToSessionId';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WTSGetActiveConsoleSessionId: Pointer;
function WTSGetActiveConsoleSessionId;
begin
GetProcedureAddress(_WTSGetActiveConsoleSessionId, kernel32, 'WTSGetActiveConsoleSessionId');
asm
mov esp, ebp
pop ebp
jmp [_WTSGetActiveConsoleSessionId]
end;
end;
{$ELSE}
function WTSGetActiveConsoleSessionId; external kernel32 name 'WTSGetActiveConsoleSessionId';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsWow64Process: Pointer;
function IsWow64Process;
begin
GetProcedureAddress(_IsWow64Process, kernel32, 'IsWow64Process');
asm
mov esp, ebp
pop ebp
jmp [_IsWow64Process]
end;
end;
{$ELSE}
function IsWow64Process; external kernel32 name 'IsWow64Process';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetLogicalProcessorInformation: Pointer;
function GetLogicalProcessorInformation;
begin
GetProcedureAddress(_GetLogicalProcessorInformation, kernel32, 'GetLogicalProcessorInformation');
asm
mov esp, ebp
pop ebp
jmp [_GetLogicalProcessorInformation]
end;
end;
{$ELSE}
function GetLogicalProcessorInformation; external kernel32 name 'GetLogicalProcessorInformation';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetNumaHighestNodeNumber: Pointer;
function GetNumaHighestNodeNumber;
begin
GetProcedureAddress(_GetNumaHighestNodeNumber, kernel32, 'GetNumaHighestNodeNumber');
asm
mov esp, ebp
pop ebp
jmp [_GetNumaHighestNodeNumber]
end;
end;
{$ELSE}
function GetNumaHighestNodeNumber; external kernel32 name 'GetNumaHighestNodeNumber';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetNumaProcessorNode: Pointer;
function GetNumaProcessorNode;
begin
GetProcedureAddress(_GetNumaProcessorNode, kernel32, 'GetNumaProcessorNode');
asm
mov esp, ebp
pop ebp
jmp [_GetNumaProcessorNode]
end;
end;
{$ELSE}
function GetNumaProcessorNode; external kernel32 name 'GetNumaProcessorNode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetNumaNodeProcessorMask: Pointer;
function GetNumaNodeProcessorMask;
begin
GetProcedureAddress(_GetNumaNodeProcessorMask, kernel32, 'GetNumaNodeProcessorMask');
asm
mov esp, ebp
pop ebp
jmp [_GetNumaNodeProcessorMask]
end;
end;
{$ELSE}
function GetNumaNodeProcessorMask; external kernel32 name 'GetNumaNodeProcessorMask';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetNumaAvailableMemoryNode: Pointer;
function GetNumaAvailableMemoryNode;
begin
GetProcedureAddress(_GetNumaAvailableMemoryNode, kernel32, 'GetNumaAvailableMemoryNode');
asm
mov esp, ebp
pop ebp
jmp [_GetNumaAvailableMemoryNode]
end;
end;
{$ELSE}
function GetNumaAvailableMemoryNode; external kernel32 name 'GetNumaAvailableMemoryNode';
{$ENDIF DYNAMIC_LINK}
end.