Windows编程

开发平台：

Delphi

JwaWinUser.pas：源码内容

_CharPrevExA: Pointer;
function CharPrevExA;
begin
GetProcedureAddress(_CharPrevExA, user32, 'CharPrevExA');
asm
mov esp, ebp
pop ebp
jmp [_CharPrevExA]
end;
end;
{$ELSE}
function CharPrevExA; external user32 name 'CharPrevExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsCharAlphaA: Pointer;
function IsCharAlphaA;
begin
GetProcedureAddress(_IsCharAlphaA, user32, 'IsCharAlphaA');
asm
mov esp, ebp
pop ebp
jmp [_IsCharAlphaA]
end;
end;
{$ELSE}
function IsCharAlphaA; external user32 name 'IsCharAlphaA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsCharAlphaW: Pointer;
function IsCharAlphaW;
begin
GetProcedureAddress(_IsCharAlphaW, user32, 'IsCharAlphaW');
asm
mov esp, ebp
pop ebp
jmp [_IsCharAlphaW]
end;
end;
{$ELSE}
function IsCharAlphaW; external user32 name 'IsCharAlphaW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_IsCharAlpha: Pointer;
function IsCharAlpha;
begin
GetProcedureAddress(_IsCharAlpha, user32, 'IsCharAlphaW');
asm
mov esp, ebp
pop ebp
jmp [_IsCharAlpha]
end;
end;
{$ELSE}
function IsCharAlpha; external user32 name 'IsCharAlphaW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_IsCharAlpha: Pointer;
function IsCharAlpha;
begin
GetProcedureAddress(_IsCharAlpha, user32, 'IsCharAlphaA');
asm
mov esp, ebp
pop ebp
jmp [_IsCharAlpha]
end;
end;
{$ELSE}
function IsCharAlpha; external user32 name 'IsCharAlphaA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_IsCharAlphaNumericA: Pointer;
function IsCharAlphaNumericA;
begin
GetProcedureAddress(_IsCharAlphaNumericA, user32, 'IsCharAlphaNumericA');
asm
mov esp, ebp
pop ebp
jmp [_IsCharAlphaNumericA]
end;
end;
{$ELSE}
function IsCharAlphaNumericA; external user32 name 'IsCharAlphaNumericA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsCharAlphaNumericW: Pointer;
function IsCharAlphaNumericW;
begin
GetProcedureAddress(_IsCharAlphaNumericW, user32, 'IsCharAlphaNumericW');
asm
mov esp, ebp
pop ebp
jmp [_IsCharAlphaNumericW]
end;
end;
{$ELSE}
function IsCharAlphaNumericW; external user32 name 'IsCharAlphaNumericW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_IsCharAlphaNumeric: Pointer;
function IsCharAlphaNumeric;
begin
GetProcedureAddress(_IsCharAlphaNumeric, user32, 'IsCharAlphaNumericW');
asm
mov esp, ebp
pop ebp
jmp [_IsCharAlphaNumeric]
end;
end;
{$ELSE}
function IsCharAlphaNumeric; external user32 name 'IsCharAlphaNumericW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_IsCharAlphaNumeric: Pointer;
function IsCharAlphaNumeric;
begin
GetProcedureAddress(_IsCharAlphaNumeric, user32, 'IsCharAlphaNumericA');
asm
mov esp, ebp
pop ebp
jmp [_IsCharAlphaNumeric]
end;
end;
{$ELSE}
function IsCharAlphaNumeric; external user32 name 'IsCharAlphaNumericA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_IsCharUpperA: Pointer;
function IsCharUpperA;
begin
GetProcedureAddress(_IsCharUpperA, user32, 'IsCharUpperA');
asm
mov esp, ebp
pop ebp
jmp [_IsCharUpperA]
end;
end;
{$ELSE}
function IsCharUpperA; external user32 name 'IsCharUpperA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsCharUpperW: Pointer;
function IsCharUpperW;
begin
GetProcedureAddress(_IsCharUpperW, user32, 'IsCharUpperW');
asm
mov esp, ebp
pop ebp
jmp [_IsCharUpperW]
end;
end;
{$ELSE}
function IsCharUpperW; external user32 name 'IsCharUpperW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_IsCharUpper: Pointer;
function IsCharUpper;
begin
GetProcedureAddress(_IsCharUpper, user32, 'IsCharUpperW');
asm
mov esp, ebp
pop ebp
jmp [_IsCharUpper]
end;
end;
{$ELSE}
function IsCharUpper; external user32 name 'IsCharUpperW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_IsCharUpper: Pointer;
function IsCharUpper;
begin
GetProcedureAddress(_IsCharUpper, user32, 'IsCharUpperA');
asm
mov esp, ebp
pop ebp
jmp [_IsCharUpper]
end;
end;
{$ELSE}
function IsCharUpper; external user32 name 'IsCharUpperA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_IsCharLowerA: Pointer;
function IsCharLowerA;
begin
GetProcedureAddress(_IsCharLowerA, user32, 'IsCharLowerA');
asm
mov esp, ebp
pop ebp
jmp [_IsCharLowerA]
end;
end;
{$ELSE}
function IsCharLowerA; external user32 name 'IsCharLowerA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsCharLowerW: Pointer;
function IsCharLowerW;
begin
GetProcedureAddress(_IsCharLowerW, user32, 'IsCharLowerW');
asm
mov esp, ebp
pop ebp
jmp [_IsCharLowerW]
end;
end;
{$ELSE}
function IsCharLowerW; external user32 name 'IsCharLowerW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_IsCharLower: Pointer;
function IsCharLower;
begin
GetProcedureAddress(_IsCharLower, user32, 'IsCharLowerW');
asm
mov esp, ebp
pop ebp
jmp [_IsCharLower]
end;
end;
{$ELSE}
function IsCharLower; external user32 name 'IsCharLowerW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_IsCharLower: Pointer;
function IsCharLower;
begin
GetProcedureAddress(_IsCharLower, user32, 'IsCharLowerA');
asm
mov esp, ebp
pop ebp
jmp [_IsCharLower]
end;
end;
{$ELSE}
function IsCharLower; external user32 name 'IsCharLowerA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetFocus: Pointer;
function SetFocus;
begin
GetProcedureAddress(_SetFocus, user32, 'SetFocus');
asm
mov esp, ebp
pop ebp
jmp [_SetFocus]
end;
end;
{$ELSE}
function SetFocus; external user32 name 'SetFocus';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetActiveWindow: Pointer;
function GetActiveWindow;
begin
GetProcedureAddress(_GetActiveWindow, user32, 'GetActiveWindow');
asm
mov esp, ebp
pop ebp
jmp [_GetActiveWindow]
end;
end;
{$ELSE}
function GetActiveWindow; external user32 name 'GetActiveWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetFocus: Pointer;
function GetFocus;
begin
GetProcedureAddress(_GetFocus, user32, 'GetFocus');
asm
mov esp, ebp
pop ebp
jmp [_GetFocus]
end;
end;
{$ELSE}
function GetFocus; external user32 name 'GetFocus';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetKBCodePage: Pointer;
function GetKBCodePage;
begin
GetProcedureAddress(_GetKBCodePage, user32, 'GetKBCodePage');
asm
mov esp, ebp
pop ebp
jmp [_GetKBCodePage]
end;
end;
{$ELSE}
function GetKBCodePage; external user32 name 'GetKBCodePage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetKeyState: Pointer;
function GetKeyState;
begin
GetProcedureAddress(_GetKeyState, user32, 'GetKeyState');
asm
mov esp, ebp
pop ebp
jmp [_GetKeyState]
end;
end;
{$ELSE}
function GetKeyState; external user32 name 'GetKeyState';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetAsyncKeyState: Pointer;
function GetAsyncKeyState;
begin
GetProcedureAddress(_GetAsyncKeyState, user32, 'GetAsyncKeyState');
asm
mov esp, ebp
pop ebp
jmp [_GetAsyncKeyState]
end;
end;
{$ELSE}
function GetAsyncKeyState; external user32 name 'GetAsyncKeyState';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetKeyboardState: Pointer;
function GetKeyboardState;
begin
GetProcedureAddress(_GetKeyboardState, user32, 'GetKeyboardState');
asm
mov esp, ebp
pop ebp
jmp [_GetKeyboardState]
end;
end;
{$ELSE}
function GetKeyboardState; external user32 name 'GetKeyboardState';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetKeyboardState: Pointer;
function SetKeyboardState;
begin
GetProcedureAddress(_SetKeyboardState, user32, 'SetKeyboardState');
asm
mov esp, ebp
pop ebp
jmp [_SetKeyboardState]
end;
end;
{$ELSE}
function SetKeyboardState; external user32 name 'SetKeyboardState';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetKeyNameTextA: Pointer;
function GetKeyNameTextA;
begin
GetProcedureAddress(_GetKeyNameTextA, user32, 'GetKeyNameTextA');
asm
mov esp, ebp
pop ebp
jmp [_GetKeyNameTextA]
end;
end;
{$ELSE}
function GetKeyNameTextA; external user32 name 'GetKeyNameTextA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetKeyNameTextW: Pointer;
function GetKeyNameTextW;
begin
GetProcedureAddress(_GetKeyNameTextW, user32, 'GetKeyNameTextW');
asm
mov esp, ebp
pop ebp
jmp [_GetKeyNameTextW]
end;
end;
{$ELSE}
function GetKeyNameTextW; external user32 name 'GetKeyNameTextW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetKeyNameText: Pointer;
function GetKeyNameText;
begin
GetProcedureAddress(_GetKeyNameText, user32, 'GetKeyNameTextW');
asm
mov esp, ebp
pop ebp
jmp [_GetKeyNameText]
end;
end;
{$ELSE}
function GetKeyNameText; external user32 name 'GetKeyNameTextW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetKeyNameText: Pointer;
function GetKeyNameText;
begin
GetProcedureAddress(_GetKeyNameText, user32, 'GetKeyNameTextA');
asm
mov esp, ebp
pop ebp
jmp [_GetKeyNameText]
end;
end;
{$ELSE}
function GetKeyNameText; external user32 name 'GetKeyNameTextA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetKeyboardType: Pointer;
function GetKeyboardType;
begin
GetProcedureAddress(_GetKeyboardType, user32, 'GetKeyboardType');
asm
mov esp, ebp
pop ebp
jmp [_GetKeyboardType]
end;
end;
{$ELSE}
function GetKeyboardType; external user32 name 'GetKeyboardType';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ToAscii: Pointer;
function ToAscii;
begin
GetProcedureAddress(_ToAscii, user32, 'ToAscii');
asm
mov esp, ebp
pop ebp
jmp [_ToAscii]
end;
end;
{$ELSE}
function ToAscii; external user32 name 'ToAscii';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ToAsciiEx: Pointer;
function ToAsciiEx;
begin
GetProcedureAddress(_ToAsciiEx, user32, 'ToAsciiEx');
asm
mov esp, ebp
pop ebp
jmp [_ToAsciiEx]
end;
end;
{$ELSE}
function ToAsciiEx; external user32 name 'ToAsciiEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ToUnicode: Pointer;
function ToUnicode;
begin
GetProcedureAddress(_ToUnicode, user32, 'ToUnicode');
asm
mov esp, ebp
pop ebp
jmp [_ToUnicode]
end;
end;
{$ELSE}
function ToUnicode; external user32 name 'ToUnicode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OemKeyScan: Pointer;
function OemKeyScan;
begin
GetProcedureAddress(_OemKeyScan, user32, 'OemKeyScan');
asm
mov esp, ebp
pop ebp
jmp [_OemKeyScan]
end;
end;
{$ELSE}
function OemKeyScan; external user32 name 'OemKeyScan';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_VkKeyScanA: Pointer;
function VkKeyScanA;
begin
GetProcedureAddress(_VkKeyScanA, user32, 'VkKeyScanA');
asm
mov esp, ebp
pop ebp
jmp [_VkKeyScanA]
end;
end;
{$ELSE}
function VkKeyScanA; external user32 name 'VkKeyScanA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_VkKeyScanW: Pointer;
function VkKeyScanW;
begin
GetProcedureAddress(_VkKeyScanW, user32, 'VkKeyScanW');
asm
mov esp, ebp
pop ebp
jmp [_VkKeyScanW]
end;
end;
{$ELSE}
function VkKeyScanW; external user32 name 'VkKeyScanW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_VkKeyScan: Pointer;
function VkKeyScan;
begin
GetProcedureAddress(_VkKeyScan, user32, 'VkKeyScanW');
asm
mov esp, ebp
pop ebp
jmp [_VkKeyScan]
end;
end;
{$ELSE}
function VkKeyScan; external user32 name 'VkKeyScanW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_VkKeyScan: Pointer;
function VkKeyScan;
begin
GetProcedureAddress(_VkKeyScan, user32, 'VkKeyScanA');
asm
mov esp, ebp
pop ebp
jmp [_VkKeyScan]
end;
end;
{$ELSE}
function VkKeyScan; external user32 name 'VkKeyScanA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_VkKeyScanExA: Pointer;
function VkKeyScanExA;
begin
GetProcedureAddress(_VkKeyScanExA, user32, 'VkKeyScanExA');
asm
mov esp, ebp
pop ebp
jmp [_VkKeyScanExA]
end;
end;
{$ELSE}
function VkKeyScanExA; external user32 name 'VkKeyScanExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_VkKeyScanExW: Pointer;
function VkKeyScanExW;
begin
GetProcedureAddress(_VkKeyScanExW, user32, 'VkKeyScanExW');
asm
mov esp, ebp
pop ebp
jmp [_VkKeyScanExW]
end;
end;
{$ELSE}
function VkKeyScanExW; external user32 name 'VkKeyScanExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_VkKeyScanEx: Pointer;
function VkKeyScanEx;
begin
GetProcedureAddress(_VkKeyScanEx, user32, 'VkKeyScanExW');
asm
mov esp, ebp
pop ebp
jmp [_VkKeyScanEx]
end;
end;
{$ELSE}
function VkKeyScanEx; external user32 name 'VkKeyScanExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_VkKeyScanEx: Pointer;
function VkKeyScanEx;
begin
GetProcedureAddress(_VkKeyScanEx, user32, 'VkKeyScanExA');
asm
mov esp, ebp
pop ebp
jmp [_VkKeyScanEx]
end;
end;
{$ELSE}
function VkKeyScanEx; external user32 name 'VkKeyScanExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_keybd_event: Pointer;
procedure keybd_event;
begin
GetProcedureAddress(_keybd_event, user32, 'keybd_event');
asm
mov esp, ebp
pop ebp
jmp [_keybd_event]
end;
end;
{$ELSE}
procedure keybd_event; external user32 name 'keybd_event';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_mouse_event: Pointer;
procedure mouse_event;
begin
GetProcedureAddress(_mouse_event, user32, 'mouse_event');
asm
mov esp, ebp
pop ebp
jmp [_mouse_event]
end;
end;
{$ELSE}
procedure mouse_event; external user32 name 'mouse_event';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SendInput: Pointer;
function SendInput;
begin
GetProcedureAddress(_SendInput, user32, 'SendInput');
asm
mov esp, ebp
pop ebp
jmp [_SendInput]
end;
end;
{$ELSE}
function SendInput; external user32 name 'SendInput';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetLastInputInfo: Pointer;
function GetLastInputInfo;
begin
GetProcedureAddress(_GetLastInputInfo, user32, 'GetLastInputInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetLastInputInfo]
end;
end;
{$ELSE}
function GetLastInputInfo; external user32 name 'GetLastInputInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MapVirtualKeyA: Pointer;
function MapVirtualKeyA;
begin
GetProcedureAddress(_MapVirtualKeyA, user32, 'MapVirtualKeyA');
asm
mov esp, ebp
pop ebp
jmp [_MapVirtualKeyA]
end;
end;
{$ELSE}
function MapVirtualKeyA; external user32 name 'MapVirtualKeyA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MapVirtualKeyW: Pointer;
function MapVirtualKeyW;
begin
GetProcedureAddress(_MapVirtualKeyW, user32, 'MapVirtualKeyW');
asm
mov esp, ebp
pop ebp
jmp [_MapVirtualKeyW]
end;
end;
{$ELSE}
function MapVirtualKeyW; external user32 name 'MapVirtualKeyW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MapVirtualKey: Pointer;
function MapVirtualKey;
begin
GetProcedureAddress(_MapVirtualKey, user32, 'MapVirtualKeyW');
asm
mov esp, ebp
pop ebp
jmp [_MapVirtualKey]
end;
end;
{$ELSE}
function MapVirtualKey; external user32 name 'MapVirtualKeyW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MapVirtualKey: Pointer;
function MapVirtualKey;
begin
GetProcedureAddress(_MapVirtualKey, user32, 'MapVirtualKeyA');
asm
mov esp, ebp
pop ebp
jmp [_MapVirtualKey]
end;
end;
{$ELSE}
function MapVirtualKey; external user32 name 'MapVirtualKeyA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MapVirtualKeyExA: Pointer;
function MapVirtualKeyExA;
begin
GetProcedureAddress(_MapVirtualKeyExA, user32, 'MapVirtualKeyExA');
asm
mov esp, ebp
pop ebp
jmp [_MapVirtualKeyExA]
end;
end;
{$ELSE}
function MapVirtualKeyExA; external user32 name 'MapVirtualKeyExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MapVirtualKeyExW: Pointer;
function MapVirtualKeyExW;
begin
GetProcedureAddress(_MapVirtualKeyExW, user32, 'MapVirtualKeyExW');
asm
mov esp, ebp
pop ebp
jmp [_MapVirtualKeyExW]
end;
end;
{$ELSE}
function MapVirtualKeyExW; external user32 name 'MapVirtualKeyExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MapVirtualKeyEx: Pointer;
function MapVirtualKeyEx;
begin
GetProcedureAddress(_MapVirtualKeyEx, user32, 'MapVirtualKeyExW');
asm
mov esp, ebp
pop ebp
jmp [_MapVirtualKeyEx]
end;
end;
{$ELSE}
function MapVirtualKeyEx; external user32 name 'MapVirtualKeyExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MapVirtualKeyEx: Pointer;
function MapVirtualKeyEx;
begin
GetProcedureAddress(_MapVirtualKeyEx, user32, 'MapVirtualKeyExA');
asm
mov esp, ebp
pop ebp
jmp [_MapVirtualKeyEx]
end;
end;
{$ELSE}
function MapVirtualKeyEx; external user32 name 'MapVirtualKeyExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetInputState: Pointer;
function GetInputState;
begin
GetProcedureAddress(_GetInputState, user32, 'GetInputState');
asm
mov esp, ebp
pop ebp
jmp [_GetInputState]
end;
end;
{$ELSE}
function GetInputState; external user32 name 'GetInputState';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetQueueStatus: Pointer;
function GetQueueStatus;
begin
GetProcedureAddress(_GetQueueStatus, user32, 'GetQueueStatus');
asm
mov esp, ebp
pop ebp
jmp [_GetQueueStatus]
end;
end;
{$ELSE}
function GetQueueStatus; external user32 name 'GetQueueStatus';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCapture: Pointer;
function GetCapture;
begin
GetProcedureAddress(_GetCapture, user32, 'GetCapture');
asm
mov esp, ebp
pop ebp
jmp [_GetCapture]
end;
end;
{$ELSE}
function GetCapture; external user32 name 'GetCapture';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetCapture: Pointer;
function SetCapture;
begin
GetProcedureAddress(_SetCapture, user32, 'SetCapture');
asm
mov esp, ebp
pop ebp
jmp [_SetCapture]
end;
end;
{$ELSE}
function SetCapture; external user32 name 'SetCapture';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ReleaseCapture: Pointer;
function ReleaseCapture;
begin
GetProcedureAddress(_ReleaseCapture, user32, 'ReleaseCapture');
asm
mov esp, ebp
pop ebp
jmp [_ReleaseCapture]
end;
end;
{$ELSE}
function ReleaseCapture; external user32 name 'ReleaseCapture';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsgWaitForMultipleObjects: Pointer;
function MsgWaitForMultipleObjects;
begin
GetProcedureAddress(_MsgWaitForMultipleObjects, user32, 'MsgWaitForMultipleObjects');
asm
mov esp, ebp
pop ebp
jmp [_MsgWaitForMultipleObjects]
end;
end;
{$ELSE}
function MsgWaitForMultipleObjects; external user32 name 'MsgWaitForMultipleObjects';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MsgWaitForMultipleObjectsEx: Pointer;
function MsgWaitForMultipleObjectsEx;
begin
GetProcedureAddress(_MsgWaitForMultipleObjectsEx, user32, 'MsgWaitForMultipleObjectsEx');
asm
mov esp, ebp
pop ebp
jmp [_MsgWaitForMultipleObjectsEx]
end;
end;
{$ELSE}
function MsgWaitForMultipleObjectsEx; external user32 name 'MsgWaitForMultipleObjectsEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetTimer: Pointer;
function SetTimer;
begin
GetProcedureAddress(_SetTimer, user32, 'SetTimer');
asm
mov esp, ebp
pop ebp
jmp [_SetTimer]
end;
end;
{$ELSE}
function SetTimer; external user32 name 'SetTimer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_KillTimer: Pointer;
function KillTimer;
begin
GetProcedureAddress(_KillTimer, user32, 'KillTimer');
asm
mov esp, ebp
pop ebp
jmp [_KillTimer]
end;
end;
{$ELSE}
function KillTimer; external user32 name 'KillTimer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsWindowUnicode: Pointer;
function IsWindowUnicode;
begin
GetProcedureAddress(_IsWindowUnicode, user32, 'IsWindowUnicode');
asm
mov esp, ebp
pop ebp
jmp [_IsWindowUnicode]
end;
end;
{$ELSE}
function IsWindowUnicode; external user32 name 'IsWindowUnicode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnableWindow: Pointer;
function EnableWindow;
begin
GetProcedureAddress(_EnableWindow, user32, 'EnableWindow');
asm
mov esp, ebp
pop ebp
jmp [_EnableWindow]
end;
end;
{$ELSE}
function EnableWindow; external user32 name 'EnableWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsWindowEnabled: Pointer;
function IsWindowEnabled;
begin
GetProcedureAddress(_IsWindowEnabled, user32, 'IsWindowEnabled');
asm
mov esp, ebp
pop ebp
jmp [_IsWindowEnabled]
end;
end;
{$ELSE}
function IsWindowEnabled; external user32 name 'IsWindowEnabled';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadAcceleratorsA: Pointer;
function LoadAcceleratorsA;
begin
GetProcedureAddress(_LoadAcceleratorsA, user32, 'LoadAcceleratorsA');
asm
mov esp, ebp
pop ebp
jmp [_LoadAcceleratorsA]
end;
end;
{$ELSE}
function LoadAcceleratorsA; external user32 name 'LoadAcceleratorsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadAcceleratorsW: Pointer;
function LoadAcceleratorsW;
begin
GetProcedureAddress(_LoadAcceleratorsW, user32, 'LoadAcceleratorsW');
asm
mov esp, ebp
pop ebp
jmp [_LoadAcceleratorsW]
end;
end;
{$ELSE}
function LoadAcceleratorsW; external user32 name 'LoadAcceleratorsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadAccelerators: Pointer;
function LoadAccelerators;
begin
GetProcedureAddress(_LoadAccelerators, user32, 'LoadAcceleratorsW');
asm
mov esp, ebp
pop ebp
jmp [_LoadAccelerators]
end;
end;
{$ELSE}
function LoadAccelerators; external user32 name 'LoadAcceleratorsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadAccelerators: Pointer;
function LoadAccelerators;
begin
GetProcedureAddress(_LoadAccelerators, user32, 'LoadAcceleratorsA');
asm
mov esp, ebp
pop ebp
jmp [_LoadAccelerators]
end;
end;
{$ELSE}
function LoadAccelerators; external user32 name 'LoadAcceleratorsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateAcceleratorTableA: Pointer;
function CreateAcceleratorTableA;
begin
GetProcedureAddress(_CreateAcceleratorTableA, user32, 'CreateAcceleratorTableA');
asm
mov esp, ebp
pop ebp
jmp [_CreateAcceleratorTableA]
end;
end;
{$ELSE}
function CreateAcceleratorTableA; external user32 name 'CreateAcceleratorTableA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateAcceleratorTableW: Pointer;
function CreateAcceleratorTableW;
begin
GetProcedureAddress(_CreateAcceleratorTableW, user32, 'CreateAcceleratorTableW');
asm
mov esp, ebp
pop ebp
jmp [_CreateAcceleratorTableW]
end;
end;
{$ELSE}
function CreateAcceleratorTableW; external user32 name 'CreateAcceleratorTableW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateAcceleratorTable: Pointer;
function CreateAcceleratorTable;
begin
GetProcedureAddress(_CreateAcceleratorTable, user32, 'CreateAcceleratorTableW');
asm
mov esp, ebp
pop ebp
jmp [_CreateAcceleratorTable]
end;
end;
{$ELSE}
function CreateAcceleratorTable; external user32 name 'CreateAcceleratorTableW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateAcceleratorTable: Pointer;
function CreateAcceleratorTable;
begin
GetProcedureAddress(_CreateAcceleratorTable, user32, 'CreateAcceleratorTableA');
asm
mov esp, ebp
pop ebp
jmp [_CreateAcceleratorTable]
end;
end;
{$ELSE}
function CreateAcceleratorTable; external user32 name 'CreateAcceleratorTableA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DestroyAcceleratorTable: Pointer;
function DestroyAcceleratorTable;
begin
GetProcedureAddress(_DestroyAcceleratorTable, user32, 'DestroyAcceleratorTable');
asm
mov esp, ebp
pop ebp
jmp [_DestroyAcceleratorTable]
end;
end;
{$ELSE}
function DestroyAcceleratorTable; external user32 name 'DestroyAcceleratorTable';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CopyAcceleratorTableA: Pointer;
function CopyAcceleratorTableA;
begin
GetProcedureAddress(_CopyAcceleratorTableA, user32, 'CopyAcceleratorTableA');
asm
mov esp, ebp
pop ebp
jmp [_CopyAcceleratorTableA]
end;
end;
{$ELSE}
function CopyAcceleratorTableA; external user32 name 'CopyAcceleratorTableA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CopyAcceleratorTableW: Pointer;
function CopyAcceleratorTableW;
begin
GetProcedureAddress(_CopyAcceleratorTableW, user32, 'CopyAcceleratorTableW');
asm
mov esp, ebp
pop ebp
jmp [_CopyAcceleratorTableW]
end;
end;
{$ELSE}
function CopyAcceleratorTableW; external user32 name 'CopyAcceleratorTableW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CopyAcceleratorTable: Pointer;
function CopyAcceleratorTable;
begin
GetProcedureAddress(_CopyAcceleratorTable, user32, 'CopyAcceleratorTableW');
asm
mov esp, ebp
pop ebp
jmp [_CopyAcceleratorTable]
end;
end;
{$ELSE}
function CopyAcceleratorTable; external user32 name 'CopyAcceleratorTableW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CopyAcceleratorTable: Pointer;
function CopyAcceleratorTable;
begin
GetProcedureAddress(_CopyAcceleratorTable, user32, 'CopyAcceleratorTableA');
asm
mov esp, ebp
pop ebp
jmp [_CopyAcceleratorTable]
end;
end;
{$ELSE}
function CopyAcceleratorTable; external user32 name 'CopyAcceleratorTableA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_TranslateAcceleratorA: Pointer;
function TranslateAcceleratorA;
begin
GetProcedureAddress(_TranslateAcceleratorA, user32, 'TranslateAcceleratorA');
asm
mov esp, ebp
pop ebp
jmp [_TranslateAcceleratorA]
end;
end;
{$ELSE}
function TranslateAcceleratorA; external user32 name 'TranslateAcceleratorA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_TranslateAcceleratorW: Pointer;
function TranslateAcceleratorW;
begin
GetProcedureAddress(_TranslateAcceleratorW, user32, 'TranslateAcceleratorW');
asm
mov esp, ebp
pop ebp
jmp [_TranslateAcceleratorW]
end;
end;
{$ELSE}
function TranslateAcceleratorW; external user32 name 'TranslateAcceleratorW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_TranslateAccelerator: Pointer;
function TranslateAccelerator;
begin
GetProcedureAddress(_TranslateAccelerator, user32, 'TranslateAcceleratorW');
asm
mov esp, ebp
pop ebp
jmp [_TranslateAccelerator]
end;
end;
{$ELSE}
function TranslateAccelerator; external user32 name 'TranslateAcceleratorW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_TranslateAccelerator: Pointer;
function TranslateAccelerator;
begin
GetProcedureAddress(_TranslateAccelerator, user32, 'TranslateAcceleratorA');
asm
mov esp, ebp
pop ebp
jmp [_TranslateAccelerator]
end;
end;
{$ELSE}
function TranslateAccelerator; external user32 name 'TranslateAcceleratorA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemMetrics: Pointer;
function GetSystemMetrics;
begin
GetProcedureAddress(_GetSystemMetrics, user32, 'GetSystemMetrics');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemMetrics]
end;
end;
{$ELSE}
function GetSystemMetrics; external user32 name 'GetSystemMetrics';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadMenuA: Pointer;
function LoadMenuA;
begin
GetProcedureAddress(_LoadMenuA, user32, 'LoadMenuAA');
asm
mov esp, ebp
pop ebp
jmp [_LoadMenuA]
end;
end;
{$ELSE}
function LoadMenuA; external user32 name 'LoadMenuAA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadMenuW: Pointer;
function LoadMenuW;
begin
GetProcedureAddress(_LoadMenuW, user32, 'LoadMenuWA');
asm
mov esp, ebp
pop ebp
jmp [_LoadMenuW]
end;
end;
{$ELSE}
function LoadMenuW; external user32 name 'LoadMenuWA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadMenu: Pointer;
function LoadMenu;
begin
GetProcedureAddress(_LoadMenu, user32, 'LoadMenuW');
asm
mov esp, ebp
pop ebp
jmp [_LoadMenu]
end;
end;
{$ELSE}
function LoadMenu; external user32 name 'LoadMenuW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadMenu: Pointer;
function LoadMenu;
begin
GetProcedureAddress(_LoadMenu, user32, 'LoadMenuA');
asm
mov esp, ebp
pop ebp
jmp [_LoadMenu]
end;
end;
{$ELSE}
function LoadMenu; external user32 name 'LoadMenuA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LoadMenuIndirectA: Pointer;
function LoadMenuIndirectA;
begin
GetProcedureAddress(_LoadMenuIndirectA, user32, 'LoadMenuIndirectA');
asm
mov esp, ebp
pop ebp
jmp [_LoadMenuIndirectA]
end;
end;
{$ELSE}
function LoadMenuIndirectA; external user32 name 'LoadMenuIndirectA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadMenuIndirectW: Pointer;
function LoadMenuIndirectW;
begin
GetProcedureAddress(_LoadMenuIndirectW, user32, 'LoadMenuIndirectW');
asm
mov esp, ebp
pop ebp
jmp [_LoadMenuIndirectW]
end;
end;
{$ELSE}
function LoadMenuIndirectW; external user32 name 'LoadMenuIndirectW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadMenuIndirect: Pointer;
function LoadMenuIndirect;
begin
GetProcedureAddress(_LoadMenuIndirect, user32, 'LoadMenuIndirectW');
asm
mov esp, ebp
pop ebp
jmp [_LoadMenuIndirect]
end;
end;
{$ELSE}
function LoadMenuIndirect; external user32 name 'LoadMenuIndirectW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadMenuIndirect: Pointer;
function LoadMenuIndirect;
begin
GetProcedureAddress(_LoadMenuIndirect, user32, 'LoadMenuIndirectA');
asm
mov esp, ebp
pop ebp
jmp [_LoadMenuIndirect]
end;
end;
{$ELSE}
function LoadMenuIndirect; external user32 name 'LoadMenuIndirectA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetMenu: Pointer;
function GetMenu;
begin
GetProcedureAddress(_GetMenu, user32, 'GetMenu');
asm
mov esp, ebp
pop ebp
jmp [_GetMenu]
end;
end;
{$ELSE}
function GetMenu; external user32 name 'GetMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMenu: Pointer;
function SetMenu;
begin
GetProcedureAddress(_SetMenu, user32, 'SetMenu');
asm
mov esp, ebp
pop ebp
jmp [_SetMenu]
end;
end;
{$ELSE}
function SetMenu; external user32 name 'SetMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ChangeMenuA: Pointer;
function ChangeMenuA;
begin
GetProcedureAddress(_ChangeMenuA, user32, 'ChangeMenuA');
asm
mov esp, ebp
pop ebp
jmp [_ChangeMenuA]
end;
end;
{$ELSE}
function ChangeMenuA; external user32 name 'ChangeMenuA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ChangeMenuW: Pointer;
function ChangeMenuW;
begin
GetProcedureAddress(_ChangeMenuW, user32, 'ChangeMenuW');
asm
mov esp, ebp
pop ebp
jmp [_ChangeMenuW]
end;
end;
{$ELSE}
function ChangeMenuW; external user32 name 'ChangeMenuW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_ChangeMenu: Pointer;
function ChangeMenu;
begin
GetProcedureAddress(_ChangeMenu, user32, 'ChangeMenuW');
asm
mov esp, ebp
pop ebp
jmp [_ChangeMenu]
end;
end;
{$ELSE}
function ChangeMenu; external user32 name 'ChangeMenuW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_ChangeMenu: Pointer;
function ChangeMenu;
begin
GetProcedureAddress(_ChangeMenu, user32, 'ChangeMenuA');
asm
mov esp, ebp
pop ebp
jmp [_ChangeMenu]
end;
end;
{$ELSE}
function ChangeMenu; external user32 name 'ChangeMenuA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_HiliteMenuItem: Pointer;
function HiliteMenuItem;
begin
GetProcedureAddress(_HiliteMenuItem, user32, 'HiliteMenuItem');
asm
mov esp, ebp
pop ebp
jmp [_HiliteMenuItem]
end;
end;
{$ELSE}
function HiliteMenuItem; external user32 name 'HiliteMenuItem';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuStringA: Pointer;
function GetMenuStringA;
begin
GetProcedureAddress(_GetMenuStringA, user32, 'GetMenuStringA');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuStringA]
end;
end;
{$ELSE}
function GetMenuStringA; external user32 name 'GetMenuStringA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuStringW: Pointer;
function GetMenuStringW;
begin
GetProcedureAddress(_GetMenuStringW, user32, 'GetMenuStringW');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuStringW]
end;
end;
{$ELSE}
function GetMenuStringW; external user32 name 'GetMenuStringW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuString: Pointer;
function GetMenuString;
begin
GetProcedureAddress(_GetMenuString, user32, 'GetMenuStringW');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuString]
end;
end;
{$ELSE}
function GetMenuString; external user32 name 'GetMenuStringW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuString: Pointer;
function GetMenuString;
begin
GetProcedureAddress(_GetMenuString, user32, 'GetMenuStringA');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuString]
end;
end;
{$ELSE}
function GetMenuString; external user32 name 'GetMenuStringA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuState: Pointer;
function GetMenuState;
begin
GetProcedureAddress(_GetMenuState, user32, 'GetMenuState');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuState]
end;
end;
{$ELSE}
function GetMenuState; external user32 name 'GetMenuState';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawMenuBar: Pointer;
function DrawMenuBar;
begin
GetProcedureAddress(_DrawMenuBar, user32, 'DrawMenuBar');
asm
mov esp, ebp
pop ebp
jmp [_DrawMenuBar]
end;
end;
{$ELSE}
function DrawMenuBar; external user32 name 'DrawMenuBar';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemMenu: Pointer;
function GetSystemMenu;
begin
GetProcedureAddress(_GetSystemMenu, user32, 'GetSystemMenu');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemMenu]
end;
end;
{$ELSE}
function GetSystemMenu; external user32 name 'GetSystemMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateMenu: Pointer;
function CreateMenu;
begin
GetProcedureAddress(_CreateMenu, user32, 'CreateMenu');
asm
mov esp, ebp
pop ebp
jmp [_CreateMenu]
end;
end;
{$ELSE}
function CreateMenu; external user32 name 'CreateMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreatePopupMenu: Pointer;
function CreatePopupMenu;
begin
GetProcedureAddress(_CreatePopupMenu, user32, 'CreatePopupMenu');
asm
mov esp, ebp
pop ebp
jmp [_CreatePopupMenu]
end;
end;
{$ELSE}
function CreatePopupMenu; external user32 name 'CreatePopupMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DestroyMenu: Pointer;
function DestroyMenu;
begin
GetProcedureAddress(_DestroyMenu, user32, 'DestroyMenu');
asm
mov esp, ebp
pop ebp
jmp [_DestroyMenu]
end;
end;
{$ELSE}
function DestroyMenu; external user32 name 'DestroyMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CheckMenuItem: Pointer;
function CheckMenuItem;
begin
GetProcedureAddress(_CheckMenuItem, user32, 'CheckMenuItem');
asm
mov esp, ebp
pop ebp
jmp [_CheckMenuItem]
end;
end;
{$ELSE}
function CheckMenuItem; external user32 name 'CheckMenuItem';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnableMenuItem: Pointer;
function EnableMenuItem;
begin
GetProcedureAddress(_EnableMenuItem, user32, 'EnableMenuItem');
asm
mov esp, ebp
pop ebp
jmp [_EnableMenuItem]
end;
end;
{$ELSE}
function EnableMenuItem; external user32 name 'EnableMenuItem';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSubMenu: Pointer;
function GetSubMenu;
begin
GetProcedureAddress(_GetSubMenu, user32, 'GetSubMenu');
asm
mov esp, ebp
pop ebp
jmp [_GetSubMenu]
end;
end;
{$ELSE}
function GetSubMenu; external user32 name 'GetSubMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuItemID: Pointer;
function GetMenuItemID;
begin
GetProcedureAddress(_GetMenuItemID, user32, 'GetMenuItemID');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuItemID]
end;
end;
{$ELSE}
function GetMenuItemID; external user32 name 'GetMenuItemID';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuItemCount: Pointer;
function GetMenuItemCount;
begin
GetProcedureAddress(_GetMenuItemCount, user32, 'GetMenuItemCount');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuItemCount]
end;
end;
{$ELSE}
function GetMenuItemCount; external user32 name 'GetMenuItemCount';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InsertMenuA: Pointer;
function InsertMenuA;
begin
GetProcedureAddress(_InsertMenuA, user32, 'InsertMenuA');
asm
mov esp, ebp
pop ebp
jmp [_InsertMenuA]
end;
end;
{$ELSE}
function InsertMenuA; external user32 name 'InsertMenuA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InsertMenuW: Pointer;
function InsertMenuW;
begin
GetProcedureAddress(_InsertMenuW, user32, 'InsertMenuW');
asm
mov esp, ebp
pop ebp
jmp [_InsertMenuW]
end;
end;
{$ELSE}
function InsertMenuW; external user32 name 'InsertMenuW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_InsertMenu: Pointer;
function InsertMenu;
begin
GetProcedureAddress(_InsertMenu, user32, 'InsertMenuW');
asm
mov esp, ebp
pop ebp
jmp [_InsertMenu]
end;
end;
{$ELSE}
function InsertMenu; external user32 name 'InsertMenuW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_InsertMenu: Pointer;
function InsertMenu;
begin
GetProcedureAddress(_InsertMenu, user32, 'InsertMenuA');
asm
mov esp, ebp
pop ebp
jmp [_InsertMenu]
end;
end;
{$ELSE}
function InsertMenu; external user32 name 'InsertMenuA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_AppendMenuA: Pointer;
function AppendMenuA;
begin
GetProcedureAddress(_AppendMenuA, user32, 'AppendMenuA');
asm
mov esp, ebp
pop ebp
jmp [_AppendMenuA]
end;
end;
{$ELSE}
function AppendMenuA; external user32 name 'AppendMenuA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AppendMenuW: Pointer;
function AppendMenuW;
begin
GetProcedureAddress(_AppendMenuW, user32, 'AppendMenuW');
asm
mov esp, ebp
pop ebp
jmp [_AppendMenuW]
end;
end;
{$ELSE}
function AppendMenuW; external user32 name 'AppendMenuW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_AppendMenu: Pointer;
function AppendMenu;
begin
GetProcedureAddress(_AppendMenu, user32, 'AppendMenuW');
asm
mov esp, ebp
pop ebp
jmp [_AppendMenu]
end;
end;
{$ELSE}
function AppendMenu; external user32 name 'AppendMenuW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_AppendMenu: Pointer;
function AppendMenu;
begin
GetProcedureAddress(_AppendMenu, user32, 'AppendMenuA');
asm
mov esp, ebp
pop ebp
jmp [_AppendMenu]
end;
end;
{$ELSE}
function AppendMenu; external user32 name 'AppendMenuA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_ModifyMenuA: Pointer;
function ModifyMenuA;
begin
GetProcedureAddress(_ModifyMenuA, user32, 'ModifyMenuA');
asm
mov esp, ebp
pop ebp
jmp [_ModifyMenuA]
end;
end;
{$ELSE}
function ModifyMenuA; external user32 name 'ModifyMenuA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ModifyMenuW: Pointer;
function ModifyMenuW;
begin
GetProcedureAddress(_ModifyMenuW, user32, 'ModifyMenuW');
asm
mov esp, ebp
pop ebp
jmp [_ModifyMenuW]
end;
end;
{$ELSE}
function ModifyMenuW; external user32 name 'ModifyMenuW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_ModifyMenu: Pointer;
function ModifyMenu;
begin
GetProcedureAddress(_ModifyMenu, user32, 'ModifyMenuW');
asm
mov esp, ebp
pop ebp
jmp [_ModifyMenu]
end;
end;
{$ELSE}
function ModifyMenu; external user32 name 'ModifyMenuW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_ModifyMenu: Pointer;
function ModifyMenu;
begin
GetProcedureAddress(_ModifyMenu, user32, 'ModifyMenuA');
asm
mov esp, ebp
pop ebp
jmp [_ModifyMenu]
end;
end;
{$ELSE}
function ModifyMenu; external user32 name 'ModifyMenuA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_RemoveMenu: Pointer;
function RemoveMenu;
begin
GetProcedureAddress(_RemoveMenu, user32, 'RemoveMenu');
asm
mov esp, ebp
pop ebp
jmp [_RemoveMenu]
end;
end;
{$ELSE}
function RemoveMenu; external user32 name 'RemoveMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeleteMenu: Pointer;
function DeleteMenu;
begin
GetProcedureAddress(_DeleteMenu, user32, 'DeleteMenu');
asm
mov esp, ebp
pop ebp
jmp [_DeleteMenu]
end;
end;
{$ELSE}
function DeleteMenu; external user32 name 'DeleteMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMenuItemBitmaps: Pointer;
function SetMenuItemBitmaps;
begin
GetProcedureAddress(_SetMenuItemBitmaps, user32, 'SetMenuItemBitmaps');
asm
mov esp, ebp
pop ebp
jmp [_SetMenuItemBitmaps]
end;
end;
{$ELSE}
function SetMenuItemBitmaps; external user32 name 'SetMenuItemBitmaps';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuCheckMarkDimensions: Pointer;
function GetMenuCheckMarkDimensions;
begin
GetProcedureAddress(_GetMenuCheckMarkDimensions, user32, 'GetMenuCheckMarkDimensions');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuCheckMarkDimensions]
end;
end;
{$ELSE}
function GetMenuCheckMarkDimensions; external user32 name 'GetMenuCheckMarkDimensions';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_TrackPopupMenu: Pointer;
function TrackPopupMenu;
begin
GetProcedureAddress(_TrackPopupMenu, user32, 'TrackPopupMenu');
asm
mov esp, ebp
pop ebp
jmp [_TrackPopupMenu]
end;
end;
{$ELSE}
function TrackPopupMenu; external user32 name 'TrackPopupMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_TrackPopupMenuEx: Pointer;
function TrackPopupMenuEx;
begin
GetProcedureAddress(_TrackPopupMenuEx, user32, 'TrackPopupMenuEx');
asm
mov esp, ebp
pop ebp
jmp [_TrackPopupMenuEx]
end;
end;
{$ELSE}
function TrackPopupMenuEx; external user32 name 'TrackPopupMenuEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuInfo: Pointer;
function GetMenuInfo;
begin
GetProcedureAddress(_GetMenuInfo, user32, 'GetMenuInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuInfo]
end;
end;
{$ELSE}
function GetMenuInfo; external user32 name 'GetMenuInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMenuInfo: Pointer;
function SetMenuInfo;
begin
GetProcedureAddress(_SetMenuInfo, user32, 'SetMenuInfo');
asm
mov esp, ebp
pop ebp
jmp [_SetMenuInfo]
end;
end;
{$ELSE}
function SetMenuInfo; external user32 name 'SetMenuInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EndMenu: Pointer;
function EndMenu;
begin
GetProcedureAddress(_EndMenu, user32, 'EndMenu');
asm
mov esp, ebp
pop ebp
jmp [_EndMenu]
end;
end;
{$ELSE}
function EndMenu; external user32 name 'EndMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InsertMenuItemA: Pointer;
function InsertMenuItemA;
begin
GetProcedureAddress(_InsertMenuItemA, user32, 'InsertMenuItemA');
asm
mov esp, ebp
pop ebp
jmp [_InsertMenuItemA]
end;
end;
{$ELSE}
function InsertMenuItemA; external user32 name 'InsertMenuItemA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InsertMenuItemW: Pointer;
function InsertMenuItemW;
begin
GetProcedureAddress(_InsertMenuItemW, user32, 'InsertMenuItemW');
asm
mov esp, ebp
pop ebp
jmp [_InsertMenuItemW]
end;
end;
{$ELSE}
function InsertMenuItemW; external user32 name 'InsertMenuItemW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_InsertMenuItem: Pointer;
function InsertMenuItem;
begin
GetProcedureAddress(_InsertMenuItem, user32, 'InsertMenuItemW');
asm
mov esp, ebp
pop ebp
jmp [_InsertMenuItem]
end;
end;
{$ELSE}
function InsertMenuItem; external user32 name 'InsertMenuItemW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_InsertMenuItem: Pointer;
function InsertMenuItem;
begin
GetProcedureAddress(_InsertMenuItem, user32, 'InsertMenuItemA');
asm
mov esp, ebp
pop ebp
jmp [_InsertMenuItem]
end;
end;
{$ELSE}
function InsertMenuItem; external user32 name 'InsertMenuItemA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuItemInfoA: Pointer;
function GetMenuItemInfoA;
begin
GetProcedureAddress(_GetMenuItemInfoA, user32, 'GetMenuItemInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuItemInfoA]
end;
end;
{$ELSE}
function GetMenuItemInfoA; external user32 name 'GetMenuItemInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuItemInfoW: Pointer;
function GetMenuItemInfoW;
begin
GetProcedureAddress(_GetMenuItemInfoW, user32, 'GetMenuItemInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuItemInfoW]
end;
end;
{$ELSE}
function GetMenuItemInfoW; external user32 name 'GetMenuItemInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuItemInfo: Pointer;
function GetMenuItemInfo;
begin
GetProcedureAddress(_GetMenuItemInfo, user32, 'GetMenuItemInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuItemInfo]
end;
end;
{$ELSE}
function GetMenuItemInfo; external user32 name 'GetMenuItemInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuItemInfo: Pointer;
function GetMenuItemInfo;
begin
GetProcedureAddress(_GetMenuItemInfo, user32, 'GetMenuItemInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuItemInfo]
end;
end;
{$ELSE}
function GetMenuItemInfo; external user32 name 'GetMenuItemInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetMenuItemInfoA: Pointer;
function SetMenuItemInfoA;
begin
GetProcedureAddress(_SetMenuItemInfoA, user32, 'SetMenuItemInfoA');
asm
mov esp, ebp
pop ebp
jmp [_SetMenuItemInfoA]
end;
end;
{$ELSE}
function SetMenuItemInfoA; external user32 name 'SetMenuItemInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMenuItemInfoW: Pointer;
function SetMenuItemInfoW;
begin
GetProcedureAddress(_SetMenuItemInfoW, user32, 'SetMenuItemInfoW');
asm
mov esp, ebp
pop ebp
jmp [_SetMenuItemInfoW]
end;
end;
{$ELSE}
function SetMenuItemInfoW; external user32 name 'SetMenuItemInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetMenuItemInfo: Pointer;
function SetMenuItemInfo;
begin
GetProcedureAddress(_SetMenuItemInfo, user32, 'SetMenuItemInfoW');
asm
mov esp, ebp
pop ebp
jmp [_SetMenuItemInfo]
end;
end;
{$ELSE}
function SetMenuItemInfo; external user32 name 'SetMenuItemInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetMenuItemInfo: Pointer;
function SetMenuItemInfo;
begin
GetProcedureAddress(_SetMenuItemInfo, user32, 'SetMenuItemInfoA');
asm
mov esp, ebp
pop ebp
jmp [_SetMenuItemInfo]
end;
end;
{$ELSE}
function SetMenuItemInfo; external user32 name 'SetMenuItemInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuDefaultItem: Pointer;
function GetMenuDefaultItem;
begin
GetProcedureAddress(_GetMenuDefaultItem, user32, 'GetMenuDefaultItem');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuDefaultItem]
end;
end;
{$ELSE}
function GetMenuDefaultItem; external user32 name 'GetMenuDefaultItem';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMenuDefaultItem: Pointer;
function SetMenuDefaultItem;
begin
GetProcedureAddress(_SetMenuDefaultItem, user32, 'SetMenuDefaultItem');
asm
mov esp, ebp
pop ebp
jmp [_SetMenuDefaultItem]
end;
end;
{$ELSE}
function SetMenuDefaultItem; external user32 name 'SetMenuDefaultItem';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuItemRect: Pointer;
function GetMenuItemRect;
begin
GetProcedureAddress(_GetMenuItemRect, user32, 'GetMenuItemRect');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuItemRect]
end;
end;
{$ELSE}
function GetMenuItemRect; external user32 name 'GetMenuItemRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MenuItemFromPoint: Pointer;
function MenuItemFromPoint;
begin
GetProcedureAddress(_MenuItemFromPoint, user32, 'MenuItemFromPoint');
asm
mov esp, ebp
pop ebp
jmp [_MenuItemFromPoint]
end;
end;
{$ELSE}
function MenuItemFromPoint; external user32 name 'MenuItemFromPoint';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DragObject: Pointer;
function DragObject;
begin
GetProcedureAddress(_DragObject, user32, 'DragObject');
asm
mov esp, ebp
pop ebp
jmp [_DragObject]
end;
end;
{$ELSE}
function DragObject; external user32 name 'DragObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DragDetect: Pointer;
function DragDetect;
begin
GetProcedureAddress(_DragDetect, user32, 'DragDetect');
asm
mov esp, ebp
pop ebp
jmp [_DragDetect]
end;
end;
{$ELSE}
function DragDetect; external user32 name 'DragDetect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawIcon: Pointer;
function DrawIcon;
begin
GetProcedureAddress(_DrawIcon, user32, 'DrawIcon');
asm
mov esp, ebp
pop ebp
jmp [_DrawIcon]
end;
end;
{$ELSE}
function DrawIcon; external user32 name 'DrawIcon';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawTextA: Pointer;
function DrawTextA;
begin
GetProcedureAddress(_DrawTextA, user32, 'DrawTextA');
asm
mov esp, ebp
pop ebp
jmp [_DrawTextA]
end;
end;
{$ELSE}
function DrawTextA; external user32 name 'DrawTextA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawTextW: Pointer;
function DrawTextW;
begin
GetProcedureAddress(_DrawTextW, user32, 'DrawTextW');
asm
mov esp, ebp
pop ebp
jmp [_DrawTextW]
end;
end;
{$ELSE}
function DrawTextW; external user32 name 'DrawTextW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DrawText: Pointer;
function DrawText;
begin
GetProcedureAddress(_DrawText, user32, 'DrawTextW');
asm
mov esp, ebp
pop ebp
jmp [_DrawText]
end;
end;
{$ELSE}
function DrawText; external user32 name 'DrawTextW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DrawText: Pointer;
function DrawText;
begin
GetProcedureAddress(_DrawText, user32, 'DrawTextA');
asm
mov esp, ebp
pop ebp
jmp [_DrawText]
end;
end;
{$ELSE}
function DrawText; external user32 name 'DrawTextA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DrawTextExA: Pointer;
function DrawTextExA;
begin
GetProcedureAddress(_DrawTextExA, user32, 'DrawTextExA');
asm
mov esp, ebp
pop ebp
jmp [_DrawTextExA]
end;
end;
{$ELSE}
function DrawTextExA; external user32 name 'DrawTextExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawTextExW: Pointer;
function DrawTextExW;
begin
GetProcedureAddress(_DrawTextExW, user32, 'DrawTextExW');
asm
mov esp, ebp
pop ebp
jmp [_DrawTextExW]
end;
end;
{$ELSE}
function DrawTextExW; external user32 name 'DrawTextExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DrawTextEx: Pointer;
function DrawTextEx;
begin
GetProcedureAddress(_DrawTextEx, user32, 'DrawTextExW');
asm
mov esp, ebp
pop ebp
jmp [_DrawTextEx]
end;
end;
{$ELSE}
function DrawTextEx; external user32 name 'DrawTextExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DrawTextEx: Pointer;
function DrawTextEx;
begin
GetProcedureAddress(_DrawTextEx, user32, 'DrawTextExA');
asm
mov esp, ebp
pop ebp
jmp [_DrawTextEx]
end;
end;
{$ELSE}
function DrawTextEx; external user32 name 'DrawTextExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GrayStringA: Pointer;
function GrayStringA;
begin
GetProcedureAddress(_GrayStringA, user32, 'GrayStringA');
asm
mov esp, ebp
pop ebp
jmp [_GrayStringA]
end;
end;
{$ELSE}
function GrayStringA; external user32 name 'GrayStringA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GrayStringW: Pointer;
function GrayStringW;
begin
GetProcedureAddress(_GrayStringW, user32, 'GrayStringW');
asm
mov esp, ebp
pop ebp
jmp [_GrayStringW]
end;
end;
{$ELSE}
function GrayStringW; external user32 name 'GrayStringW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GrayString: Pointer;
function GrayString;
begin
GetProcedureAddress(_GrayString, user32, 'GrayStringW');
asm
mov esp, ebp
pop ebp
jmp [_GrayString]
end;
end;
{$ELSE}
function GrayString; external user32 name 'GrayStringW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GrayString: Pointer;
function GrayString;
begin
GetProcedureAddress(_GrayString, user32, 'GrayStringA');
asm
mov esp, ebp
pop ebp
jmp [_GrayString]
end;
end;
{$ELSE}
function GrayString; external user32 name 'GrayStringA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DrawStateA: Pointer;
function DrawStateA;
begin
GetProcedureAddress(_DrawStateA, user32, 'DrawStateA');
asm
mov esp, ebp
pop ebp
jmp [_DrawStateA]
end;
end;
{$ELSE}
function DrawStateA; external user32 name 'DrawStateA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawStateW: Pointer;
function DrawStateW;
begin
GetProcedureAddress(_DrawStateW, user32, 'DrawStateW');
asm
mov esp, ebp
pop ebp
jmp [_DrawStateW]
end;
end;
{$ELSE}
function DrawStateW; external user32 name 'DrawStateW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DrawState: Pointer;
function DrawState;
begin
GetProcedureAddress(_DrawState, user32, 'DrawStateW');
asm
mov esp, ebp
pop ebp
jmp [_DrawState]
end;
end;
{$ELSE}
function DrawState; external user32 name 'DrawStateW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DrawState: Pointer;
function DrawState;
begin
GetProcedureAddress(_DrawState, user32, 'DrawStateA');
asm
mov esp, ebp
pop ebp
jmp [_DrawState]
end;
end;
{$ELSE}
function DrawState; external user32 name 'DrawStateA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_TabbedTextOutA: Pointer;
function TabbedTextOutA;
begin
GetProcedureAddress(_TabbedTextOutA, user32, 'TabbedTextOutA');
asm
mov esp, ebp
pop ebp
jmp [_TabbedTextOutA]
end;
end;
{$ELSE}
function TabbedTextOutA; external user32 name 'TabbedTextOutA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_TabbedTextOutW: Pointer;
function TabbedTextOutW;
begin
GetProcedureAddress(_TabbedTextOutW, user32, 'TabbedTextOutW');
asm
mov esp, ebp
pop ebp
jmp [_TabbedTextOutW]
end;
end;
{$ELSE}
function TabbedTextOutW; external user32 name 'TabbedTextOutW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_TabbedTextOut: Pointer;
function TabbedTextOut;
begin
GetProcedureAddress(_TabbedTextOut, user32, 'TabbedTextOutW');
asm
mov esp, ebp
pop ebp
jmp [_TabbedTextOut]
end;
end;
{$ELSE}
function TabbedTextOut; external user32 name 'TabbedTextOutW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_TabbedTextOut: Pointer;
function TabbedTextOut;
begin
GetProcedureAddress(_TabbedTextOut, user32, 'TabbedTextOutA');
asm
mov esp, ebp
pop ebp
jmp [_TabbedTextOut]
end;
end;
{$ELSE}
function TabbedTextOut; external user32 name 'TabbedTextOutA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetTabbedTextExtentA: Pointer;
function GetTabbedTextExtentA;
begin
GetProcedureAddress(_GetTabbedTextExtentA, user32, 'GetTabbedTextExtentA');
asm
mov esp, ebp
pop ebp
jmp [_GetTabbedTextExtentA]
end;
end;
{$ELSE}
function GetTabbedTextExtentA; external user32 name 'GetTabbedTextExtentA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTabbedTextExtentW: Pointer;
function GetTabbedTextExtentW;
begin
GetProcedureAddress(_GetTabbedTextExtentW, user32, 'GetTabbedTextExtentW');
asm
mov esp, ebp
pop ebp
jmp [_GetTabbedTextExtentW]
end;
end;
{$ELSE}
function GetTabbedTextExtentW; external user32 name 'GetTabbedTextExtentW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetTabbedTextExtent: Pointer;
function GetTabbedTextExtent;
begin
GetProcedureAddress(_GetTabbedTextExtent, user32, 'GetTabbedTextExtentW');
asm
mov esp, ebp
pop ebp
jmp [_GetTabbedTextExtent]
end;
end;
{$ELSE}
function GetTabbedTextExtent; external user32 name 'GetTabbedTextExtentW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetTabbedTextExtent: Pointer;
function GetTabbedTextExtent;
begin
GetProcedureAddress(_GetTabbedTextExtent, user32, 'GetTabbedTextExtentA');
asm
mov esp, ebp
pop ebp
jmp [_GetTabbedTextExtent]
end;
end;
{$ELSE}
function GetTabbedTextExtent; external user32 name 'GetTabbedTextExtentA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_UpdateWindow: Pointer;
function UpdateWindow;
begin
GetProcedureAddress(_UpdateWindow, user32, 'UpdateWindow');
asm
mov esp, ebp
pop ebp
jmp [_UpdateWindow]
end;
end;
{$ELSE}
function UpdateWindow; external user32 name 'UpdateWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetActiveWindow: Pointer;
function SetActiveWindow;
begin
GetProcedureAddress(_SetActiveWindow, user32, 'SetActiveWindow');
asm
mov esp, ebp
pop ebp
jmp [_SetActiveWindow]
end;
end;
{$ELSE}
function SetActiveWindow; external user32 name 'SetActiveWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetForegroundWindow: Pointer;
function GetForegroundWindow;
begin
GetProcedureAddress(_GetForegroundWindow, user32, 'GetForegroundWindow');
asm
mov esp, ebp
pop ebp
jmp [_GetForegroundWindow]
end;
end;
{$ELSE}
function GetForegroundWindow; external user32 name 'GetForegroundWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PaintDesktop: Pointer;
function PaintDesktop;
begin
GetProcedureAddress(_PaintDesktop, user32, 'PaintDesktop');
asm
mov esp, ebp
pop ebp
jmp [_PaintDesktop]
end;
end;
{$ELSE}
function PaintDesktop; external user32 name 'PaintDesktop';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SwitchToThisWindow: Pointer;
procedure SwitchToThisWindow;
begin
GetProcedureAddress(_SwitchToThisWindow, user32, 'SwitchToThisWindow');
asm
mov esp, ebp
pop ebp
jmp [_SwitchToThisWindow]
end;
end;
{$ELSE}
procedure SwitchToThisWindow; external user32 name 'SwitchToThisWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetForegroundWindow: Pointer;
function SetForegroundWindow;
begin
GetProcedureAddress(_SetForegroundWindow, user32, 'SetForegroundWindow');
asm
mov esp, ebp
pop ebp
jmp [_SetForegroundWindow]
end;
end;
{$ELSE}
function SetForegroundWindow; external user32 name 'SetForegroundWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AllowSetForegroundWindow: Pointer;
function AllowSetForegroundWindow;
begin
GetProcedureAddress(_AllowSetForegroundWindow, user32, 'AllowSetForegroundWindow');
asm
mov esp, ebp
pop ebp
jmp [_AllowSetForegroundWindow]
end;
end;
{$ELSE}
function AllowSetForegroundWindow; external user32 name 'AllowSetForegroundWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LockSetForegroundWindow: Pointer;
function LockSetForegroundWindow;
begin
GetProcedureAddress(_LockSetForegroundWindow, user32, 'LockSetForegroundWindow');
asm
mov esp, ebp
pop ebp
jmp [_LockSetForegroundWindow]
end;
end;
{$ELSE}
function LockSetForegroundWindow; external user32 name 'LockSetForegroundWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WindowFromDC: Pointer;
function WindowFromDC;
begin
GetProcedureAddress(_WindowFromDC, user32, 'WindowFromDC');
asm
mov esp, ebp
pop ebp
jmp [_WindowFromDC]
end;
end;
{$ELSE}
function WindowFromDC; external user32 name 'WindowFromDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDC: Pointer;
function GetDC;
begin
GetProcedureAddress(_GetDC, user32, 'GetDC');
asm
mov esp, ebp
pop ebp
jmp [_GetDC]
end;
end;
{$ELSE}
function GetDC; external user32 name 'GetDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDCEx: Pointer;
function GetDCEx;
begin
GetProcedureAddress(_GetDCEx, user32, 'GetDCEx');
asm
mov esp, ebp
pop ebp
jmp [_GetDCEx]
end;
end;
{$ELSE}
function GetDCEx; external user32 name 'GetDCEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowDC: Pointer;
function GetWindowDC;
begin
GetProcedureAddress(_GetWindowDC, user32, 'GetWindowDC');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowDC]
end;
end;
{$ELSE}
function GetWindowDC; external user32 name 'GetWindowDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ReleaseDC: Pointer;
function ReleaseDC;
begin
GetProcedureAddress(_ReleaseDC, user32, 'ReleaseDC');
asm
mov esp, ebp
pop ebp
jmp [_ReleaseDC]
end;
end;
{$ELSE}
function ReleaseDC; external user32 name 'ReleaseDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BeginPaint: Pointer;
function BeginPaint;
begin
GetProcedureAddress(_BeginPaint, user32, 'BeginPaint');
asm
mov esp, ebp
pop ebp
jmp [_BeginPaint]
end;
end;
{$ELSE}
function BeginPaint; external user32 name 'BeginPaint';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EndPaint: Pointer;
function EndPaint;
begin
GetProcedureAddress(_EndPaint, user32, 'EndPaint');
asm
mov esp, ebp
pop ebp
jmp [_EndPaint]
end;
end;
{$ELSE}
function EndPaint; external user32 name 'EndPaint';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetUpdateRect: Pointer;
function GetUpdateRect;
begin
GetProcedureAddress(_GetUpdateRect, user32, 'GetUpdateRect');
asm
mov esp, ebp
pop ebp
jmp [_GetUpdateRect]
end;
end;
{$ELSE}
function GetUpdateRect; external user32 name 'GetUpdateRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetUpdateRgn: Pointer;
function GetUpdateRgn;
begin
GetProcedureAddress(_GetUpdateRgn, user32, 'GetUpdateRgn');
asm
mov esp, ebp
pop ebp
jmp [_GetUpdateRgn]
end;
end;
{$ELSE}
function GetUpdateRgn; external user32 name 'GetUpdateRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowRgn: Pointer;
function SetWindowRgn;
begin
GetProcedureAddress(_SetWindowRgn, user32, 'SetWindowRgn');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowRgn]
end;
end;
{$ELSE}
function SetWindowRgn; external user32 name 'SetWindowRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowRgn: Pointer;
function GetWindowRgn;
begin
GetProcedureAddress(_GetWindowRgn, user32, 'GetWindowRgn');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowRgn]
end;
end;
{$ELSE}
function GetWindowRgn; external user32 name 'GetWindowRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowRgnBox: Pointer;
function GetWindowRgnBox;
begin
GetProcedureAddress(_GetWindowRgnBox, user32, 'GetWindowRgnBox');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowRgnBox]
end;
end;
{$ELSE}
function GetWindowRgnBox; external user32 name 'GetWindowRgnBox';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ExcludeUpdateRgn: Pointer;
function ExcludeUpdateRgn;
begin
GetProcedureAddress(_ExcludeUpdateRgn, user32, 'ExcludeUpdateRgn');
asm
mov esp, ebp
pop ebp
jmp [_ExcludeUpdateRgn]
end;
end;
{$ELSE}
function ExcludeUpdateRgn; external user32 name 'ExcludeUpdateRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InvalidateRect: Pointer;
function InvalidateRect;
begin
GetProcedureAddress(_InvalidateRect, user32, 'InvalidateRect');
asm
mov esp, ebp
pop ebp
jmp [_InvalidateRect]
end;
end;
{$ELSE}
function InvalidateRect; external user32 name 'InvalidateRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ValidateRect: Pointer;
function ValidateRect;
begin
GetProcedureAddress(_ValidateRect, user32, 'ValidateRect');
asm
mov esp, ebp
pop ebp
jmp [_ValidateRect]
end;
end;
{$ELSE}
function ValidateRect; external user32 name 'ValidateRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InvalidateRgn: Pointer;
function InvalidateRgn;
begin
GetProcedureAddress(_InvalidateRgn, user32, 'InvalidateRgn');
asm
mov esp, ebp
pop ebp
jmp [_InvalidateRgn]
end;
end;
{$ELSE}
function InvalidateRgn; external user32 name 'InvalidateRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ValidateRgn: Pointer;
function ValidateRgn;
begin
GetProcedureAddress(_ValidateRgn, user32, 'ValidateRgn');
asm
mov esp, ebp
pop ebp
jmp [_ValidateRgn]
end;
end;
{$ELSE}
function ValidateRgn; external user32 name 'ValidateRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RedrawWindow: Pointer;
function RedrawWindow;
begin
GetProcedureAddress(_RedrawWindow, user32, 'RedrawWindow');
asm
mov esp, ebp
pop ebp
jmp [_RedrawWindow]
end;
end;
{$ELSE}
function RedrawWindow; external user32 name 'RedrawWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LockWindowUpdate: Pointer;
function LockWindowUpdate;
begin
GetProcedureAddress(_LockWindowUpdate, user32, 'LockWindowUpdate');
asm
mov esp, ebp
pop ebp
jmp [_LockWindowUpdate]
end;
end;
{$ELSE}
function LockWindowUpdate; external user32 name 'LockWindowUpdate';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ScrollWindow: Pointer;
function ScrollWindow;
begin
GetProcedureAddress(_ScrollWindow, user32, 'ScrollWindow');
asm
mov esp, ebp
pop ebp
jmp [_ScrollWindow]
end;
end;
{$ELSE}
function ScrollWindow; external user32 name 'ScrollWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ScrollDC: Pointer;
function ScrollDC;
begin
GetProcedureAddress(_ScrollDC, user32, 'ScrollDC');
asm
mov esp, ebp
pop ebp
jmp [_ScrollDC]
end;
end;
{$ELSE}
function ScrollDC; external user32 name 'ScrollDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ScrollWindowEx: Pointer;
function ScrollWindowEx;
begin
GetProcedureAddress(_ScrollWindowEx, user32, 'ScrollWindowEx');
asm
mov esp, ebp
pop ebp
jmp [_ScrollWindowEx]
end;
end;
{$ELSE}
function ScrollWindowEx; external user32 name 'ScrollWindowEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetScrollPos: Pointer;
function SetScrollPos;
begin
GetProcedureAddress(_SetScrollPos, user32, 'SetScrollPos');
asm
mov esp, ebp
pop ebp
jmp [_SetScrollPos]
end;
end;
{$ELSE}
function SetScrollPos; external user32 name 'SetScrollPos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetScrollPos: Pointer;
function GetScrollPos;
begin
GetProcedureAddress(_GetScrollPos, user32, 'GetScrollPos');
asm
mov esp, ebp
pop ebp
jmp [_GetScrollPos]
end;
end;
{$ELSE}
function GetScrollPos; external user32 name 'GetScrollPos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetScrollRange: Pointer;
function SetScrollRange;
begin
GetProcedureAddress(_SetScrollRange, user32, 'SetScrollRange');
asm
mov esp, ebp
pop ebp
jmp [_SetScrollRange]
end;
end;
{$ELSE}
function SetScrollRange; external user32 name 'SetScrollRange';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetScrollRange: Pointer;
function GetScrollRange;
begin
GetProcedureAddress(_GetScrollRange, user32, 'GetScrollRange');
asm
mov esp, ebp
pop ebp
jmp [_GetScrollRange]
end;
end;
{$ELSE}
function GetScrollRange; external user32 name 'GetScrollRange';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ShowScrollBar: Pointer;
function ShowScrollBar;
begin
GetProcedureAddress(_ShowScrollBar, user32, 'ShowScrollBar');
asm
mov esp, ebp
pop ebp
jmp [_ShowScrollBar]
end;
end;
{$ELSE}
function ShowScrollBar; external user32 name 'ShowScrollBar';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnableScrollBar: Pointer;
function EnableScrollBar;
begin
GetProcedureAddress(_EnableScrollBar, user32, 'EnableScrollBar');
asm
mov esp, ebp
pop ebp
jmp [_EnableScrollBar]
end;
end;
{$ELSE}
function EnableScrollBar; external user32 name 'EnableScrollBar';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetPropA: Pointer;
function SetPropA;
begin
GetProcedureAddress(_SetPropA, user32, 'SetPropA');
asm
mov esp, ebp
pop ebp
jmp [_SetPropA]
end;
end;
{$ELSE}
function SetPropA; external user32 name 'SetPropA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetPropW: Pointer;
function SetPropW;
begin
GetProcedureAddress(_SetPropW, user32, 'SetPropW');
asm
mov esp, ebp
pop ebp
jmp [_SetPropW]
end;
end;
{$ELSE}
function SetPropW; external user32 name 'SetPropW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetProp: Pointer;
function SetProp;
begin
GetProcedureAddress(_SetProp, user32, 'SetPropW');
asm
mov esp, ebp
pop ebp
jmp [_SetProp]
end;
end;
{$ELSE}
function SetProp; external user32 name 'SetPropW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetProp: Pointer;
function SetProp;
begin
GetProcedureAddress(_SetProp, user32, 'SetPropA');
asm
mov esp, ebp
pop ebp
jmp [_SetProp]
end;
end;
{$ELSE}
function SetProp; external user32 name 'SetPropA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetPropA: Pointer;
function GetPropA;
begin
GetProcedureAddress(_GetPropA, user32, 'GetPropA');
asm
mov esp, ebp
pop ebp
jmp [_GetPropA]
end;
end;
{$ELSE}
function GetPropA; external user32 name 'GetPropA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPropW: Pointer;
function GetPropW;
begin
GetProcedureAddress(_GetPropW, user32, 'GetPropW');
asm
mov esp, ebp
pop ebp
jmp [_GetPropW]
end;
end;
{$ELSE}
function GetPropW; external user32 name 'GetPropW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetProp: Pointer;
function GetProp;
begin
GetProcedureAddress(_GetProp, user32, 'GetPropW');
asm
mov esp, ebp
pop ebp
jmp [_GetProp]
end;
end;
{$ELSE}
function GetProp; external user32 name 'GetPropW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetProp: Pointer;
function GetProp;
begin
GetProcedureAddress(_GetProp, user32, 'GetPropA');
asm
mov esp, ebp
pop ebp
jmp [_GetProp]
end;
end;
{$ELSE}
function GetProp; external user32 name 'GetPropA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_RemovePropA: Pointer;
function RemovePropA;
begin
GetProcedureAddress(_RemovePropA, user32, 'RemovePropA');
asm
mov esp, ebp
pop ebp
jmp [_RemovePropA]
end;
end;
{$ELSE}
function RemovePropA; external user32 name 'RemovePropA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RemovePropW: Pointer;
function RemovePropW;
begin
GetProcedureAddress(_RemovePropW, user32, 'RemovePropW');
asm
mov esp, ebp
pop ebp
jmp [_RemovePropW]
end;
end;
{$ELSE}
function RemovePropW; external user32 name 'RemovePropW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_RemoveProp: Pointer;
function RemoveProp;
begin
GetProcedureAddress(_RemoveProp, user32, 'RemovePropW');
asm
mov esp, ebp
pop ebp
jmp [_RemoveProp]
end;
end;
{$ELSE}
function RemoveProp; external user32 name 'RemovePropW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_RemoveProp: Pointer;
function RemoveProp;
begin
GetProcedureAddress(_RemoveProp, user32, 'RemovePropA');
asm
mov esp, ebp
pop ebp
jmp [_RemoveProp]
end;
end;
{$ELSE}
function RemoveProp; external user32 name 'RemovePropA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumPropsExA: Pointer;
function EnumPropsExA;
begin
GetProcedureAddress(_EnumPropsExA, user32, 'EnumPropsExA');
asm
mov esp, ebp
pop ebp
jmp [_EnumPropsExA]
end;
end;
{$ELSE}
function EnumPropsExA; external user32 name 'EnumPropsExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumPropsExW: Pointer;
function EnumPropsExW;
begin
GetProcedureAddress(_EnumPropsExW, user32, 'EnumPropsExW');
asm
mov esp, ebp
pop ebp
jmp [_EnumPropsExW]
end;
end;
{$ELSE}
function EnumPropsExW; external user32 name 'EnumPropsExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumPropsEx: Pointer;
function EnumPropsEx;
begin
GetProcedureAddress(_EnumPropsEx, user32, 'EnumPropsExW');
asm
mov esp, ebp
pop ebp
jmp [_EnumPropsEx]
end;
end;
{$ELSE}
function EnumPropsEx; external user32 name 'EnumPropsExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumPropsEx: Pointer;
function EnumPropsEx;
begin
GetProcedureAddress(_EnumPropsEx, user32, 'EnumPropsExA');
asm
mov esp, ebp
pop ebp
jmp [_EnumPropsEx]
end;
end;
{$ELSE}
function EnumPropsEx; external user32 name 'EnumPropsExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumPropsA: Pointer;
function EnumPropsA;
begin
GetProcedureAddress(_EnumPropsA, user32, 'EnumPropsA');
asm
mov esp, ebp
pop ebp
jmp [_EnumPropsA]
end;
end;
{$ELSE}
function EnumPropsA; external user32 name 'EnumPropsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumPropsW: Pointer;
function EnumPropsW;
begin
GetProcedureAddress(_EnumPropsW, user32, 'EnumPropsW');
asm
mov esp, ebp
pop ebp
jmp [_EnumPropsW]
end;
end;
{$ELSE}
function EnumPropsW; external user32 name 'EnumPropsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumProps: Pointer;
function EnumProps;
begin
GetProcedureAddress(_EnumProps, user32, 'EnumPropsW');
asm
mov esp, ebp
pop ebp
jmp [_EnumProps]
end;
end;
{$ELSE}
function EnumProps; external user32 name 'EnumPropsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumProps: Pointer;
function EnumProps;
begin
GetProcedureAddress(_EnumProps, user32, 'EnumPropsA');
asm
mov esp, ebp
pop ebp
jmp [_EnumProps]
end;
end;
{$ELSE}
function EnumProps; external user32 name 'EnumPropsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowTextA: Pointer;
function SetWindowTextA;
begin
GetProcedureAddress(_SetWindowTextA, user32, 'SetWindowTextA');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowTextA]
end;
end;
{$ELSE}
function SetWindowTextA; external user32 name 'SetWindowTextA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowTextW: Pointer;
function SetWindowTextW;
begin
GetProcedureAddress(_SetWindowTextW, user32, 'SetWindowTextW');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowTextW]
end;
end;
{$ELSE}
function SetWindowTextW; external user32 name 'SetWindowTextW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowText: Pointer;
function SetWindowText;
begin
GetProcedureAddress(_SetWindowText, user32, 'SetWindowTextW');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowText]
end;
end;
{$ELSE}
function SetWindowText; external user32 name 'SetWindowTextW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowText: Pointer;
function SetWindowText;
begin
GetProcedureAddress(_SetWindowText, user32, 'SetWindowTextA');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowText]
end;
end;
{$ELSE}
function SetWindowText; external user32 name 'SetWindowTextA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowTextA: Pointer;
function GetWindowTextA;
begin
GetProcedureAddress(_GetWindowTextA, user32, 'GetWindowTextA');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowTextA]
end;
end;
{$ELSE}
function GetWindowTextA; external user32 name 'GetWindowTextA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowTextW: Pointer;
function GetWindowTextW;
begin
GetProcedureAddress(_GetWindowTextW, user32, 'GetWindowTextW');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowTextW]
end;
end;
{$ELSE}
function GetWindowTextW; external user32 name 'GetWindowTextW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowText: Pointer;
function GetWindowText;
begin
GetProcedureAddress(_GetWindowText, user32, 'GetWindowTextW');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowText]
end;
end;
{$ELSE}
function GetWindowText; external user32 name 'GetWindowTextW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowText: Pointer;
function GetWindowText;
begin
GetProcedureAddress(_GetWindowText, user32, 'GetWindowTextA');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowText]
end;
end;
{$ELSE}
function GetWindowText; external user32 name 'GetWindowTextA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowTextLengthA: Pointer;
function GetWindowTextLengthA;
begin
GetProcedureAddress(_GetWindowTextLengthA, user32, 'GetWindowTextLengthA');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowTextLengthA]
end;
end;
{$ELSE}
function GetWindowTextLengthA; external user32 name 'GetWindowTextLengthA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowTextLengthW: Pointer;
function GetWindowTextLengthW;
begin
GetProcedureAddress(_GetWindowTextLengthW, user32, 'GetWindowTextLengthW');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowTextLengthW]
end;
end;
{$ELSE}
function GetWindowTextLengthW; external user32 name 'GetWindowTextLengthW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowTextLength: Pointer;
function GetWindowTextLength;
begin
GetProcedureAddress(_GetWindowTextLength, user32, 'GetWindowTextLengthW');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowTextLength]
end;
end;
{$ELSE}
function GetWindowTextLength; external user32 name 'GetWindowTextLengthW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowTextLength: Pointer;
function GetWindowTextLength;
begin
GetProcedureAddress(_GetWindowTextLength, user32, 'GetWindowTextLengthA');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowTextLength]
end;
end;
{$ELSE}
function GetWindowTextLength; external user32 name 'GetWindowTextLengthA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetClientRect: Pointer;
function GetClientRect;
begin
GetProcedureAddress(_GetClientRect, user32, 'GetClientRect');
asm
mov esp, ebp
pop ebp
jmp [_GetClientRect]
end;
end;
{$ELSE}
function GetClientRect; external user32 name 'GetClientRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowRect: Pointer;
function GetWindowRect;
begin
GetProcedureAddress(_GetWindowRect, user32, 'GetWindowRect');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowRect]
end;
end;
{$ELSE}
function GetWindowRect; external user32 name 'GetWindowRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AdjustWindowRect: Pointer;
function AdjustWindowRect;
begin
GetProcedureAddress(_AdjustWindowRect, user32, 'AdjustWindowRect');
asm
mov esp, ebp
pop ebp
jmp [_AdjustWindowRect]
end;
end;
{$ELSE}
function AdjustWindowRect; external user32 name 'AdjustWindowRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AdjustWindowRectEx: Pointer;
function AdjustWindowRectEx;
begin
GetProcedureAddress(_AdjustWindowRectEx, user32, 'AdjustWindowRectEx');
asm
mov esp, ebp
pop ebp
jmp [_AdjustWindowRectEx]
end;
end;
{$ELSE}
function AdjustWindowRectEx; external user32 name 'AdjustWindowRectEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowContextHelpId: Pointer;
function SetWindowContextHelpId;
begin
GetProcedureAddress(_SetWindowContextHelpId, user32, 'SetWindowContextHelpId');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowContextHelpId]
end;
end;
{$ELSE}
function SetWindowContextHelpId; external user32 name 'SetWindowContextHelpId';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowContextHelpId: Pointer;
function GetWindowContextHelpId;
begin
GetProcedureAddress(_GetWindowContextHelpId, user32, 'GetWindowContextHelpId');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowContextHelpId]
end;
end;
{$ELSE}
function GetWindowContextHelpId; external user32 name 'GetWindowContextHelpId';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMenuContextHelpId: Pointer;
function SetMenuContextHelpId;
begin
GetProcedureAddress(_SetMenuContextHelpId, user32, 'SetMenuContextHelpId');
asm
mov esp, ebp
pop ebp
jmp [_SetMenuContextHelpId]
end;
end;
{$ELSE}
function SetMenuContextHelpId; external user32 name 'SetMenuContextHelpId';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuContextHelpId: Pointer;
function GetMenuContextHelpId;
begin
GetProcedureAddress(_GetMenuContextHelpId, user32, 'GetMenuContextHelpId');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuContextHelpId]
end;
end;
{$ELSE}
function GetMenuContextHelpId; external user32 name 'GetMenuContextHelpId';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MessageBoxA: Pointer;
function MessageBoxA;
begin
GetProcedureAddress(_MessageBoxA, user32, 'MessageBoxA');
asm
mov esp, ebp
pop ebp
jmp [_MessageBoxA]
end;
end;
{$ELSE}
function MessageBoxA; external user32 name 'MessageBoxA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MessageBoxW: Pointer;
function MessageBoxW;
begin
GetProcedureAddress(_MessageBoxW, user32, 'MessageBoxW');
asm
mov esp, ebp
pop ebp
jmp [_MessageBoxW]
end;
end;
{$ELSE}
function MessageBoxW; external user32 name 'MessageBoxW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MessageBox: Pointer;
function MessageBox;
begin
GetProcedureAddress(_MessageBox, user32, 'MessageBoxW');
asm
mov esp, ebp
pop ebp
jmp [_MessageBox]
end;
end;
{$ELSE}
function MessageBox; external user32 name 'MessageBoxW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MessageBox: Pointer;
function MessageBox;
begin
GetProcedureAddress(_MessageBox, user32, 'MessageBoxA');
asm
mov esp, ebp
pop ebp
jmp [_MessageBox]
end;
end;
{$ELSE}
function MessageBox; external user32 name 'MessageBoxA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MessageBoxExA: Pointer;
function MessageBoxExA;
begin
GetProcedureAddress(_MessageBoxExA, user32, 'MessageBoxExA');
asm
mov esp, ebp
pop ebp
jmp [_MessageBoxExA]
end;
end;
{$ELSE}
function MessageBoxExA; external user32 name 'MessageBoxExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MessageBoxExW: Pointer;
function MessageBoxExW;
begin
GetProcedureAddress(_MessageBoxExW, user32, 'MessageBoxExW');
asm
mov esp, ebp
pop ebp
jmp [_MessageBoxExW]
end;
end;
{$ELSE}
function MessageBoxExW; external user32 name 'MessageBoxExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MessageBoxEx: Pointer;
function MessageBoxEx;
begin
GetProcedureAddress(_MessageBoxEx, user32, 'MessageBoxExW');
asm
mov esp, ebp
pop ebp
jmp [_MessageBoxEx]
end;
end;
{$ELSE}
function MessageBoxEx; external user32 name 'MessageBoxExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MessageBoxEx: Pointer;
function MessageBoxEx;
begin
GetProcedureAddress(_MessageBoxEx, user32, 'MessageBoxExA');
asm
mov esp, ebp
pop ebp
jmp [_MessageBoxEx]
end;
end;
{$ELSE}
function MessageBoxEx; external user32 name 'MessageBoxExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MessageBoxIndirectA: Pointer;
function MessageBoxIndirectA;
begin
GetProcedureAddress(_MessageBoxIndirectA, user32, 'MessageBoxIndirectA');
asm
mov esp, ebp
pop ebp
jmp [_MessageBoxIndirectA]
end;
end;