Windows编程

开发平台：

Delphi

JwaWinUser.pas：源码内容

asm
mov esp, ebp
pop ebp
jmp [_EnumWindowStations]
end;
end;
{$ELSE}
function EnumWindowStations; external user32 name 'EnumWindowStationsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CloseWindowStation: Pointer;
function CloseWindowStation;
begin
GetProcedureAddress(_CloseWindowStation, user32, 'CloseWindowStation');
asm
mov esp, ebp
pop ebp
jmp [_CloseWindowStation]
end;
end;
{$ELSE}
function CloseWindowStation; external user32 name 'CloseWindowStation';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetProcessWindowStation: Pointer;
function SetProcessWindowStation;
begin
GetProcedureAddress(_SetProcessWindowStation, user32, 'SetProcessWindowStation');
asm
mov esp, ebp
pop ebp
jmp [_SetProcessWindowStation]
end;
end;
{$ELSE}
function SetProcessWindowStation; external user32 name 'SetProcessWindowStation';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetProcessWindowStation: Pointer;
function GetProcessWindowStation;
begin
GetProcedureAddress(_GetProcessWindowStation, user32, 'GetProcessWindowStation');
asm
mov esp, ebp
pop ebp
jmp [_GetProcessWindowStation]
end;
end;
{$ELSE}
function GetProcessWindowStation; external user32 name 'GetProcessWindowStation';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetUserObjectSecurity: Pointer;
function SetUserObjectSecurity;
begin
GetProcedureAddress(_SetUserObjectSecurity, user32, 'SetUserObjectSecurity');
asm
mov esp, ebp
pop ebp
jmp [_SetUserObjectSecurity]
end;
end;
{$ELSE}
function SetUserObjectSecurity; external user32 name 'SetUserObjectSecurity';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetUserObjectSecurity: Pointer;
function GetUserObjectSecurity;
begin
GetProcedureAddress(_GetUserObjectSecurity, user32, 'GetUserObjectSecurity');
asm
mov esp, ebp
pop ebp
jmp [_GetUserObjectSecurity]
end;
end;
{$ELSE}
function GetUserObjectSecurity; external user32 name 'GetUserObjectSecurity';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetUserObjectInformationA: Pointer;
function GetUserObjectInformationA;
begin
GetProcedureAddress(_GetUserObjectInformationA, user32, 'GetUserObjectInformationA');
asm
mov esp, ebp
pop ebp
jmp [_GetUserObjectInformationA]
end;
end;
{$ELSE}
function GetUserObjectInformationA; external user32 name 'GetUserObjectInformationA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetUserObjectInformationW: Pointer;
function GetUserObjectInformationW;
begin
GetProcedureAddress(_GetUserObjectInformationW, user32, 'GetUserObjectInformationW');
asm
mov esp, ebp
pop ebp
jmp [_GetUserObjectInformationW]
end;
end;
{$ELSE}
function GetUserObjectInformationW; external user32 name 'GetUserObjectInformationW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetUserObjectInformation: Pointer;
function GetUserObjectInformation;
begin
GetProcedureAddress(_GetUserObjectInformation, user32, 'GetUserObjectInformationW');
asm
mov esp, ebp
pop ebp
jmp [_GetUserObjectInformation]
end;
end;
{$ELSE}
function GetUserObjectInformation; external user32 name 'GetUserObjectInformationW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetUserObjectInformation: Pointer;
function GetUserObjectInformation;
begin
GetProcedureAddress(_GetUserObjectInformation, user32, 'GetUserObjectInformationA');
asm
mov esp, ebp
pop ebp
jmp [_GetUserObjectInformation]
end;
end;
{$ELSE}
function GetUserObjectInformation; external user32 name 'GetUserObjectInformationA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetUserObjectInformationA: Pointer;
function SetUserObjectInformationA;
begin
GetProcedureAddress(_SetUserObjectInformationA, user32, 'SetUserObjectInformationA');
asm
mov esp, ebp
pop ebp
jmp [_SetUserObjectInformationA]
end;
end;
{$ELSE}
function SetUserObjectInformationA; external user32 name 'SetUserObjectInformationA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetUserObjectInformationW: Pointer;
function SetUserObjectInformationW;
begin
GetProcedureAddress(_SetUserObjectInformationW, user32, 'SetUserObjectInformationW');
asm
mov esp, ebp
pop ebp
jmp [_SetUserObjectInformationW]
end;
end;
{$ELSE}
function SetUserObjectInformationW; external user32 name 'SetUserObjectInformationW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetUserObjectInformation: Pointer;
function SetUserObjectInformation;
begin
GetProcedureAddress(_SetUserObjectInformation, user32, 'SetUserObjectInformationW');
asm
mov esp, ebp
pop ebp
jmp [_SetUserObjectInformation]
end;
end;
{$ELSE}
function SetUserObjectInformation; external user32 name 'SetUserObjectInformationW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetUserObjectInformation: Pointer;
function SetUserObjectInformation;
begin
GetProcedureAddress(_SetUserObjectInformation, user32, 'SetUserObjectInformationA');
asm
mov esp, ebp
pop ebp
jmp [_SetUserObjectInformation]
end;
end;
{$ELSE}
function SetUserObjectInformation; external user32 name 'SetUserObjectInformationA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_RegisterWindowMessageA: Pointer;
function RegisterWindowMessageA;
begin
GetProcedureAddress(_RegisterWindowMessageA, user32, 'RegisterWindowMessageA');
asm
mov esp, ebp
pop ebp
jmp [_RegisterWindowMessageA]
end;
end;
{$ELSE}
function RegisterWindowMessageA; external user32 name 'RegisterWindowMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RegisterWindowMessageW: Pointer;
function RegisterWindowMessageW;
begin
GetProcedureAddress(_RegisterWindowMessageW, user32, 'RegisterWindowMessageW');
asm
mov esp, ebp
pop ebp
jmp [_RegisterWindowMessageW]
end;
end;
{$ELSE}
function RegisterWindowMessageW; external user32 name 'RegisterWindowMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_RegisterWindowMessage: Pointer;
function RegisterWindowMessage;
begin
GetProcedureAddress(_RegisterWindowMessage, user32, 'RegisterWindowMessageW');
asm
mov esp, ebp
pop ebp
jmp [_RegisterWindowMessage]
end;
end;
{$ELSE}
function RegisterWindowMessage; external user32 name 'RegisterWindowMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_RegisterWindowMessage: Pointer;
function RegisterWindowMessage;
begin
GetProcedureAddress(_RegisterWindowMessage, user32, 'RegisterWindowMessageA');
asm
mov esp, ebp
pop ebp
jmp [_RegisterWindowMessage]
end;
end;
{$ELSE}
function RegisterWindowMessage; external user32 name 'RegisterWindowMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
__TrackMouseEvent: Pointer;
function TrackMouseEvent;
begin
GetProcedureAddress(__TrackMouseEvent, user32, 'TrackMouseEvent');
asm
mov esp, ebp
pop ebp
jmp [__TrackMouseEvent]
end;
end;
{$ELSE}
function TrackMouseEvent; external user32 name 'TrackMouseEvent';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawEdge: Pointer;
function DrawEdge;
begin
GetProcedureAddress(_DrawEdge, user32, 'DrawEdge');
asm
mov esp, ebp
pop ebp
jmp [_DrawEdge]
end;
end;
{$ELSE}
function DrawEdge; external user32 name 'DrawEdge';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawFrameControl: Pointer;
function DrawFrameControl;
begin
GetProcedureAddress(_DrawFrameControl, user32, 'DrawFrameControl');
asm
mov esp, ebp
pop ebp
jmp [_DrawFrameControl]
end;
end;
{$ELSE}
function DrawFrameControl; external user32 name 'DrawFrameControl';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawCaption: Pointer;
function DrawCaption;
begin
GetProcedureAddress(_DrawCaption, user32, 'DrawCaption');
asm
mov esp, ebp
pop ebp
jmp [_DrawCaption]
end;
end;
{$ELSE}
function DrawCaption; external user32 name 'DrawCaption';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawAnimatedRects: Pointer;
function DrawAnimatedRects;
begin
GetProcedureAddress(_DrawAnimatedRects, user32, 'DrawAnimatedRects');
asm
mov esp, ebp
pop ebp
jmp [_DrawAnimatedRects]
end;
end;
{$ELSE}
function DrawAnimatedRects; external user32 name 'DrawAnimatedRects';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMessageA: Pointer;
function GetMessageA;
begin
GetProcedureAddress(_GetMessageA, user32, 'GetMessageA');
asm
mov esp, ebp
pop ebp
jmp [_GetMessageA]
end;
end;
{$ELSE}
function GetMessageA; external user32 name 'GetMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMessageW: Pointer;
function GetMessageW;
begin
GetProcedureAddress(_GetMessageW, user32, 'GetMessageW');
asm
mov esp, ebp
pop ebp
jmp [_GetMessageW]
end;
end;
{$ELSE}
function GetMessageW; external user32 name 'GetMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetMessage: Pointer;
function GetMessage;
begin
GetProcedureAddress(_GetMessage, user32, 'GetMessageW');
asm
mov esp, ebp
pop ebp
jmp [_GetMessage]
end;
end;
{$ELSE}
function GetMessage; external user32 name 'GetMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetMessage: Pointer;
function GetMessage;
begin
GetProcedureAddress(_GetMessage, user32, 'GetMessageA');
asm
mov esp, ebp
pop ebp
jmp [_GetMessage]
end;
end;
{$ELSE}
function GetMessage; external user32 name 'GetMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_TranslateMessage: Pointer;
function TranslateMessage;
begin
GetProcedureAddress(_TranslateMessage, user32, 'TranslateMessage');
asm
mov esp, ebp
pop ebp
jmp [_TranslateMessage]
end;
end;
{$ELSE}
function TranslateMessage; external user32 name 'TranslateMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DispatchMessageA: Pointer;
function DispatchMessageA;
begin
GetProcedureAddress(_DispatchMessageA, user32, 'DispatchMessageA');
asm
mov esp, ebp
pop ebp
jmp [_DispatchMessageA]
end;
end;
{$ELSE}
function DispatchMessageA; external user32 name 'DispatchMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DispatchMessageW: Pointer;
function DispatchMessageW;
begin
GetProcedureAddress(_DispatchMessageW, user32, 'DispatchMessageW');
asm
mov esp, ebp
pop ebp
jmp [_DispatchMessageW]
end;
end;
{$ELSE}
function DispatchMessageW; external user32 name 'DispatchMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DispatchMessage: Pointer;
function DispatchMessage;
begin
GetProcedureAddress(_DispatchMessage, user32, 'DispatchMessageW');
asm
mov esp, ebp
pop ebp
jmp [_DispatchMessage]
end;
end;
{$ELSE}
function DispatchMessage; external user32 name 'DispatchMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DispatchMessage: Pointer;
function DispatchMessage;
begin
GetProcedureAddress(_DispatchMessage, user32, 'DispatchMessageA');
asm
mov esp, ebp
pop ebp
jmp [_DispatchMessage]
end;
end;
{$ELSE}
function DispatchMessage; external user32 name 'DispatchMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetMessageQueue: Pointer;
function SetMessageQueue;
begin
GetProcedureAddress(_SetMessageQueue, user32, 'SetMessageQueue');
asm
mov esp, ebp
pop ebp
jmp [_SetMessageQueue]
end;
end;
{$ELSE}
function SetMessageQueue; external user32 name 'SetMessageQueue';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PeekMessageA: Pointer;
function PeekMessageA;
begin
GetProcedureAddress(_PeekMessageA, user32, 'PeekMessageA');
asm
mov esp, ebp
pop ebp
jmp [_PeekMessageA]
end;
end;
{$ELSE}
function PeekMessageA; external user32 name 'PeekMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PeekMessageW: Pointer;
function PeekMessageW;
begin
GetProcedureAddress(_PeekMessageW, user32, 'PeekMessageW');
asm
mov esp, ebp
pop ebp
jmp [_PeekMessageW]
end;
end;
{$ELSE}
function PeekMessageW; external user32 name 'PeekMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_PeekMessage: Pointer;
function PeekMessage;
begin
GetProcedureAddress(_PeekMessage, user32, 'PeekMessageW');
asm
mov esp, ebp
pop ebp
jmp [_PeekMessage]
end;
end;
{$ELSE}
function PeekMessage; external user32 name 'PeekMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_PeekMessage: Pointer;
function PeekMessage;
begin
GetProcedureAddress(_PeekMessage, user32, 'PeekMessageA');
asm
mov esp, ebp
pop ebp
jmp [_PeekMessage]
end;
end;
{$ELSE}
function PeekMessage; external user32 name 'PeekMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_RegisterHotKey: Pointer;
function RegisterHotKey;
begin
GetProcedureAddress(_RegisterHotKey, user32, 'RegisterHotKey');
asm
mov esp, ebp
pop ebp
jmp [_RegisterHotKey]
end;
end;
{$ELSE}
function RegisterHotKey; external user32 name 'RegisterHotKey';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UnregisterHotKey: Pointer;
function UnregisterHotKey;
begin
GetProcedureAddress(_UnregisterHotKey, user32, 'UnregisterHotKey');
asm
mov esp, ebp
pop ebp
jmp [_UnregisterHotKey]
end;
end;
{$ELSE}
function UnregisterHotKey; external user32 name 'UnregisterHotKey';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ExitWindowsEx: Pointer;
function ExitWindowsEx;
begin
GetProcedureAddress(_ExitWindowsEx, user32, 'ExitWindowsEx');
asm
mov esp, ebp
pop ebp
jmp [_ExitWindowsEx]
end;
end;
{$ELSE}
function ExitWindowsEx; external user32 name 'ExitWindowsEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SwapMouseButton: Pointer;
function SwapMouseButton;
begin
GetProcedureAddress(_SwapMouseButton, user32, 'SwapMouseButton');
asm
mov esp, ebp
pop ebp
jmp [_SwapMouseButton]
end;
end;
{$ELSE}
function SwapMouseButton; external user32 name 'SwapMouseButton';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMessagePos: Pointer;
function GetMessagePos;
begin
GetProcedureAddress(_GetMessagePos, user32, 'GetMessagePos');
asm
mov esp, ebp
pop ebp
jmp [_GetMessagePos]
end;
end;
{$ELSE}
function GetMessagePos; external user32 name 'GetMessagePos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMessageTime: Pointer;
function GetMessageTime;
begin
GetProcedureAddress(_GetMessageTime, user32, 'GetMessageTime');
asm
mov esp, ebp
pop ebp
jmp [_GetMessageTime]
end;
end;
{$ELSE}
function GetMessageTime; external user32 name 'GetMessageTime';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMessageExtraInfo: Pointer;
function GetMessageExtraInfo;
begin
GetProcedureAddress(_GetMessageExtraInfo, user32, 'GetMessageExtraInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetMessageExtraInfo]
end;
end;
{$ELSE}
function GetMessageExtraInfo; external user32 name 'GetMessageExtraInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMessageExtraInfo: Pointer;
function SetMessageExtraInfo;
begin
GetProcedureAddress(_SetMessageExtraInfo, user32, 'SetMessageExtraInfo');
asm
mov esp, ebp
pop ebp
jmp [_SetMessageExtraInfo]
end;
end;
{$ELSE}
function SetMessageExtraInfo; external user32 name 'SetMessageExtraInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SendMessageA: Pointer;
function SendMessageA;
begin
GetProcedureAddress(_SendMessageA, user32, 'SendMessageA');
asm
mov esp, ebp
pop ebp
jmp [_SendMessageA]
end;
end;
{$ELSE}
function SendMessageA; external user32 name 'SendMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SendMessageW: Pointer;
function SendMessageW;
begin
GetProcedureAddress(_SendMessageW, user32, 'SendMessageW');
asm
mov esp, ebp
pop ebp
jmp [_SendMessageW]
end;
end;
{$ELSE}
function SendMessageW; external user32 name 'SendMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SendMessage: Pointer;
function SendMessage;
begin
GetProcedureAddress(_SendMessage, user32, 'SendMessageW');
asm
mov esp, ebp
pop ebp
jmp [_SendMessage]
end;
end;
{$ELSE}
function SendMessage; external user32 name 'SendMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SendMessage: Pointer;
function SendMessage;
begin
GetProcedureAddress(_SendMessage, user32, 'SendMessageA');
asm
mov esp, ebp
pop ebp
jmp [_SendMessage]
end;
end;
{$ELSE}
function SendMessage; external user32 name 'SendMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SendMessageTimeoutA: Pointer;
function SendMessageTimeoutA;
begin
GetProcedureAddress(_SendMessageTimeoutA, user32, 'SendMessageTimeoutA');
asm
mov esp, ebp
pop ebp
jmp [_SendMessageTimeoutA]
end;
end;
{$ELSE}
function SendMessageTimeoutA; external user32 name 'SendMessageTimeoutA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SendMessageTimeoutW: Pointer;
function SendMessageTimeoutW;
begin
GetProcedureAddress(_SendMessageTimeoutW, user32, 'SendMessageTimeoutW');
asm
mov esp, ebp
pop ebp
jmp [_SendMessageTimeoutW]
end;
end;
{$ELSE}
function SendMessageTimeoutW; external user32 name 'SendMessageTimeoutW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SendMessageTimeout: Pointer;
function SendMessageTimeout;
begin
GetProcedureAddress(_SendMessageTimeout, user32, 'SendMessageTimeoutW');
asm
mov esp, ebp
pop ebp
jmp [_SendMessageTimeout]
end;
end;
{$ELSE}
function SendMessageTimeout; external user32 name 'SendMessageTimeoutW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SendMessageTimeout: Pointer;
function SendMessageTimeout;
begin
GetProcedureAddress(_SendMessageTimeout, user32, 'SendMessageTimeoutA');
asm
mov esp, ebp
pop ebp
jmp [_SendMessageTimeout]
end;
end;
{$ELSE}
function SendMessageTimeout; external user32 name 'SendMessageTimeoutA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SendNotifyMessageA: Pointer;
function SendNotifyMessageA;
begin
GetProcedureAddress(_SendNotifyMessageA, user32, 'SendNotifyMessageA');
asm
mov esp, ebp
pop ebp
jmp [_SendNotifyMessageA]
end;
end;
{$ELSE}
function SendNotifyMessageA; external user32 name 'SendNotifyMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SendNotifyMessageW: Pointer;
function SendNotifyMessageW;
begin
GetProcedureAddress(_SendNotifyMessageW, user32, 'SendNotifyMessageW');
asm
mov esp, ebp
pop ebp
jmp [_SendNotifyMessageW]
end;
end;
{$ELSE}
function SendNotifyMessageW; external user32 name 'SendNotifyMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SendNotifyMessage: Pointer;
function SendNotifyMessage;
begin
GetProcedureAddress(_SendNotifyMessage, user32, 'SendNotifyMessageW');
asm
mov esp, ebp
pop ebp
jmp [_SendNotifyMessage]
end;
end;
{$ELSE}
function SendNotifyMessage; external user32 name 'SendNotifyMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SendNotifyMessage: Pointer;
function SendNotifyMessage;
begin
GetProcedureAddress(_SendNotifyMessage, user32, 'SendNotifyMessageA');
asm
mov esp, ebp
pop ebp
jmp [_SendNotifyMessage]
end;
end;
{$ELSE}
function SendNotifyMessage; external user32 name 'SendNotifyMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SendMessageCallbackA: Pointer;
function SendMessageCallbackA;
begin
GetProcedureAddress(_SendMessageCallbackA, user32, 'SendMessageCallbackA');
asm
mov esp, ebp
pop ebp
jmp [_SendMessageCallbackA]
end;
end;
{$ELSE}
function SendMessageCallbackA; external user32 name 'SendMessageCallbackA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SendMessageCallbackW: Pointer;
function SendMessageCallbackW;
begin
GetProcedureAddress(_SendMessageCallbackW, user32, 'SendMessageCallbackW');
asm
mov esp, ebp
pop ebp
jmp [_SendMessageCallbackW]
end;
end;
{$ELSE}
function SendMessageCallbackW; external user32 name 'SendMessageCallbackW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SendMessageCallback: Pointer;
function SendMessageCallback;
begin
GetProcedureAddress(_SendMessageCallback, user32, 'SendMessageCallbackW');
asm
mov esp, ebp
pop ebp
jmp [_SendMessageCallback]
end;
end;
{$ELSE}
function SendMessageCallback; external user32 name 'SendMessageCallbackW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SendMessageCallback: Pointer;
function SendMessageCallback;
begin
GetProcedureAddress(_SendMessageCallback, user32, 'SendMessageCallbackA');
asm
mov esp, ebp
pop ebp
jmp [_SendMessageCallback]
end;
end;
{$ELSE}
function SendMessageCallback; external user32 name 'SendMessageCallbackA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_BroadcastSystemMessageExA: Pointer;
function BroadcastSystemMessageExA;
begin
GetProcedureAddress(_BroadcastSystemMessageExA, user32, 'BroadcastSystemMessageExA');
asm
mov esp, ebp
pop ebp
jmp [_BroadcastSystemMessageExA]
end;
end;
{$ELSE}
function BroadcastSystemMessageExA; external user32 name 'BroadcastSystemMessageExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BroadcastSystemMessageExW: Pointer;
function BroadcastSystemMessageExW;
begin
GetProcedureAddress(_BroadcastSystemMessageExW, user32, 'BroadcastSystemMessageExW');
asm
mov esp, ebp
pop ebp
jmp [_BroadcastSystemMessageExW]
end;
end;
{$ELSE}
function BroadcastSystemMessageExW; external user32 name 'BroadcastSystemMessageExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_BroadcastSystemMessageEx: Pointer;
function BroadcastSystemMessageEx;
begin
GetProcedureAddress(_BroadcastSystemMessageEx, user32, 'BroadcastSystemMessageExW');
asm
mov esp, ebp
pop ebp
jmp [_BroadcastSystemMessageEx]
end;
end;
{$ELSE}
function BroadcastSystemMessageEx; external user32 name 'BroadcastSystemMessageExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_BroadcastSystemMessageEx: Pointer;
function BroadcastSystemMessageEx;
begin
GetProcedureAddress(_BroadcastSystemMessageEx, user32, 'BroadcastSystemMessageExA');
asm
mov esp, ebp
pop ebp
jmp [_BroadcastSystemMessageEx]
end;
end;
{$ELSE}
function BroadcastSystemMessageEx; external user32 name 'BroadcastSystemMessageExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_BroadcastSystemMessageA: Pointer;
function BroadcastSystemMessageA;
begin
GetProcedureAddress(_BroadcastSystemMessageA, user32, 'BroadcastSystemMessageA');
asm
mov esp, ebp
pop ebp
jmp [_BroadcastSystemMessageA]
end;
end;
{$ELSE}
function BroadcastSystemMessageA; external user32 name 'BroadcastSystemMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BroadcastSystemMessageW: Pointer;
function BroadcastSystemMessageW;
begin
GetProcedureAddress(_BroadcastSystemMessageW, user32, 'BroadcastSystemMessageW');
asm
mov esp, ebp
pop ebp
jmp [_BroadcastSystemMessageW]
end;
end;
{$ELSE}
function BroadcastSystemMessageW; external user32 name 'BroadcastSystemMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_BroadcastSystemMessage: Pointer;
function BroadcastSystemMessage;
begin
GetProcedureAddress(_BroadcastSystemMessage, user32, 'BroadcastSystemMessageW');
asm
mov esp, ebp
pop ebp
jmp [_BroadcastSystemMessage]
end;
end;
{$ELSE}
function BroadcastSystemMessage; external user32 name 'BroadcastSystemMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_BroadcastSystemMessage: Pointer;
function BroadcastSystemMessage;
begin
GetProcedureAddress(_BroadcastSystemMessage, user32, 'BroadcastSystemMessageA');
asm
mov esp, ebp
pop ebp
jmp [_BroadcastSystemMessage]
end;
end;
{$ELSE}
function BroadcastSystemMessage; external user32 name 'BroadcastSystemMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_RegisterDeviceNotificationA: Pointer;
function RegisterDeviceNotificationA;
begin
GetProcedureAddress(_RegisterDeviceNotificationA, user32, 'RegisterDeviceNotificationA');
asm
mov esp, ebp
pop ebp
jmp [_RegisterDeviceNotificationA]
end;
end;
{$ELSE}
function RegisterDeviceNotificationA; external user32 name 'RegisterDeviceNotificationA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RegisterDeviceNotificationW: Pointer;
function RegisterDeviceNotificationW;
begin
GetProcedureAddress(_RegisterDeviceNotificationW, user32, 'RegisterDeviceNotificationW');
asm
mov esp, ebp
pop ebp
jmp [_RegisterDeviceNotificationW]
end;
end;
{$ELSE}
function RegisterDeviceNotificationW; external user32 name 'RegisterDeviceNotificationW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_RegisterDeviceNotification: Pointer;
function RegisterDeviceNotification;
begin
GetProcedureAddress(_RegisterDeviceNotification, user32, 'RegisterDeviceNotificationW');
asm
mov esp, ebp
pop ebp
jmp [_RegisterDeviceNotification]
end;
end;
{$ELSE}
function RegisterDeviceNotification; external user32 name 'RegisterDeviceNotificationW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_RegisterDeviceNotification: Pointer;
function RegisterDeviceNotification;
begin
GetProcedureAddress(_RegisterDeviceNotification, user32, 'RegisterDeviceNotificationA');
asm
mov esp, ebp
pop ebp
jmp [_RegisterDeviceNotification]
end;
end;
{$ELSE}
function RegisterDeviceNotification; external user32 name 'RegisterDeviceNotificationA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_UnregisterDeviceNotification: Pointer;
function UnregisterDeviceNotification;
begin
GetProcedureAddress(_UnregisterDeviceNotification, user32, 'UnregisterDeviceNotification');
asm
mov esp, ebp
pop ebp
jmp [_UnregisterDeviceNotification]
end;
end;
{$ELSE}
function UnregisterDeviceNotification; external user32 name 'UnregisterDeviceNotification';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PostMessageA: Pointer;
function PostMessageA;
begin
GetProcedureAddress(_PostMessageA, user32, 'PostMessageA');
asm
mov esp, ebp
pop ebp
jmp [_PostMessageA]
end;
end;
{$ELSE}
function PostMessageA; external user32 name 'PostMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PostMessageW: Pointer;
function PostMessageW;
begin
GetProcedureAddress(_PostMessageW, user32, 'PostMessageW');
asm
mov esp, ebp
pop ebp
jmp [_PostMessageW]
end;
end;
{$ELSE}
function PostMessageW; external user32 name 'PostMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_PostMessage: Pointer;
function PostMessage;
begin
GetProcedureAddress(_PostMessage, user32, 'PostMessageW');
asm
mov esp, ebp
pop ebp
jmp [_PostMessage]
end;
end;
{$ELSE}
function PostMessage; external user32 name 'PostMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_PostMessage: Pointer;
function PostMessage;
begin
GetProcedureAddress(_PostMessage, user32, 'PostMessageA');
asm
mov esp, ebp
pop ebp
jmp [_PostMessage]
end;
end;
{$ELSE}
function PostMessage; external user32 name 'PostMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_PostThreadMessageA: Pointer;
function PostThreadMessageA;
begin
GetProcedureAddress(_PostThreadMessageA, user32, 'PostThreadMessageA');
asm
mov esp, ebp
pop ebp
jmp [_PostThreadMessageA]
end;
end;
{$ELSE}
function PostThreadMessageA; external user32 name 'PostThreadMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PostThreadMessageW: Pointer;
function PostThreadMessageW;
begin
GetProcedureAddress(_PostThreadMessageW, user32, 'PostThreadMessageW');
asm
mov esp, ebp
pop ebp
jmp [_PostThreadMessageW]
end;
end;
{$ELSE}
function PostThreadMessageW; external user32 name 'PostThreadMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_PostThreadMessage: Pointer;
function PostThreadMessage;
begin
GetProcedureAddress(_PostThreadMessage, user32, 'PostThreadMessageW');
asm
mov esp, ebp
pop ebp
jmp [_PostThreadMessage]
end;
end;
{$ELSE}
function PostThreadMessage; external user32 name 'PostThreadMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_PostThreadMessage: Pointer;
function PostThreadMessage;
begin
GetProcedureAddress(_PostThreadMessage, user32, 'PostThreadMessageA');
asm
mov esp, ebp
pop ebp
jmp [_PostThreadMessage]
end;
end;
{$ELSE}
function PostThreadMessage; external user32 name 'PostThreadMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_AttachThreadInput: Pointer;
function AttachThreadInput;
begin
GetProcedureAddress(_AttachThreadInput, user32, 'AttachThreadInput');
asm
mov esp, ebp
pop ebp
jmp [_AttachThreadInput]
end;
end;
{$ELSE}
function AttachThreadInput; external user32 name 'AttachThreadInput';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ReplyMessage: Pointer;
function ReplyMessage;
begin
GetProcedureAddress(_ReplyMessage, user32, 'ReplyMessage');
asm
mov esp, ebp
pop ebp
jmp [_ReplyMessage]
end;
end;
{$ELSE}
function ReplyMessage; external user32 name 'ReplyMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WaitMessage: Pointer;
function WaitMessage;
begin
GetProcedureAddress(_WaitMessage, user32, 'WaitMessage');
asm
mov esp, ebp
pop ebp
jmp [_WaitMessage]
end;
end;
{$ELSE}
function WaitMessage; external user32 name 'WaitMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WaitForInputIdle: Pointer;
function WaitForInputIdle;
begin
GetProcedureAddress(_WaitForInputIdle, user32, 'WaitForInputIdle');
asm
mov esp, ebp
pop ebp
jmp [_WaitForInputIdle]
end;
end;
{$ELSE}
function WaitForInputIdle; external user32 name 'WaitForInputIdle';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DefWindowProcA: Pointer;
function DefWindowProcA;
begin
GetProcedureAddress(_DefWindowProcA, user32, 'DefWindowProcA');
asm
mov esp, ebp
pop ebp
jmp [_DefWindowProcA]
end;
end;
{$ELSE}
function DefWindowProcA; external user32 name 'DefWindowProcA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DefWindowProcW: Pointer;
function DefWindowProcW;
begin
GetProcedureAddress(_DefWindowProcW, user32, 'DefWindowProcW');
asm
mov esp, ebp
pop ebp
jmp [_DefWindowProcW]
end;
end;
{$ELSE}
function DefWindowProcW; external user32 name 'DefWindowProcW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DefWindowProc: Pointer;
function DefWindowProc;
begin
GetProcedureAddress(_DefWindowProc, user32, 'DefWindowProcW');
asm
mov esp, ebp
pop ebp
jmp [_DefWindowProc]
end;
end;
{$ELSE}
function DefWindowProc; external user32 name 'DefWindowProcW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DefWindowProc: Pointer;
function DefWindowProc;
begin
GetProcedureAddress(_DefWindowProc, user32, 'DefWindowProcA');
asm
mov esp, ebp
pop ebp
jmp [_DefWindowProc]
end;
end;
{$ELSE}
function DefWindowProc; external user32 name 'DefWindowProcA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_PostQuitMessage: Pointer;
procedure PostQuitMessage;
begin
GetProcedureAddress(_PostQuitMessage, user32, 'PostQuitMessage');
asm
mov esp, ebp
pop ebp
jmp [_PostQuitMessage]
end;
end;
{$ELSE}
procedure PostQuitMessage; external user32 name 'PostQuitMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CallWindowProcA: Pointer;
function CallWindowProcA;
begin
GetProcedureAddress(_CallWindowProcA, user32, 'CallWindowProcA');
asm
mov esp, ebp
pop ebp
jmp [_CallWindowProcA]
end;
end;
{$ELSE}
function CallWindowProcA; external user32 name 'CallWindowProcA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CallWindowProcW: Pointer;
function CallWindowProcW;
begin
GetProcedureAddress(_CallWindowProcW, user32, 'CallWindowProcW');
asm
mov esp, ebp
pop ebp
jmp [_CallWindowProcW]
end;
end;
{$ELSE}
function CallWindowProcW; external user32 name 'CallWindowProcW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CallWindowProc: Pointer;
function CallWindowProc;
begin
GetProcedureAddress(_CallWindowProc, user32, 'CallWindowProcW');
asm
mov esp, ebp
pop ebp
jmp [_CallWindowProc]
end;
end;
{$ELSE}
function CallWindowProc; external user32 name 'CallWindowProcW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CallWindowProc: Pointer;
function CallWindowProc;
begin
GetProcedureAddress(_CallWindowProc, user32, 'CallWindowProcA');
asm
mov esp, ebp
pop ebp
jmp [_CallWindowProc]
end;
end;
{$ELSE}
function CallWindowProc; external user32 name 'CallWindowProcA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_InSendMessage: Pointer;
function InSendMessage;
begin
GetProcedureAddress(_InSendMessage, user32, 'InSendMessage');
asm
mov esp, ebp
pop ebp
jmp [_InSendMessage]
end;
end;
{$ELSE}
function InSendMessage; external user32 name 'InSendMessage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InSendMessageEx: Pointer;
function InSendMessageEx;
begin
GetProcedureAddress(_InSendMessageEx, user32, 'InSendMessageEx');
asm
mov esp, ebp
pop ebp
jmp [_InSendMessageEx]
end;
end;
{$ELSE}
function InSendMessageEx; external user32 name 'InSendMessageEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDoubleClickTime: Pointer;
function GetDoubleClickTime;
begin
GetProcedureAddress(_GetDoubleClickTime, user32, 'GetDoubleClickTime');
asm
mov esp, ebp
pop ebp
jmp [_GetDoubleClickTime]
end;
end;
{$ELSE}
function GetDoubleClickTime; external user32 name 'GetDoubleClickTime';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDoubleClickTime: Pointer;
function SetDoubleClickTime;
begin
GetProcedureAddress(_SetDoubleClickTime, user32, 'SetDoubleClickTime');
asm
mov esp, ebp
pop ebp
jmp [_SetDoubleClickTime]
end;
end;
{$ELSE}
function SetDoubleClickTime; external user32 name 'SetDoubleClickTime';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClassA: Pointer;
function RegisterClassA;
begin
GetProcedureAddress(_RegisterClassA, user32, 'RegisterClassA');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClassA]
end;
end;
{$ELSE}
function RegisterClassA; external user32 name 'RegisterClassA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClassW: Pointer;
function RegisterClassW;
begin
GetProcedureAddress(_RegisterClassW, user32, 'RegisterClassW');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClassW]
end;
end;
{$ELSE}
function RegisterClassW; external user32 name 'RegisterClassW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClass: Pointer;
function RegisterClass;
begin
GetProcedureAddress(_RegisterClass, user32, 'RegisterClassW');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClass]
end;
end;
{$ELSE}
function RegisterClass; external user32 name 'RegisterClassW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClass: Pointer;
function RegisterClass;
begin
GetProcedureAddress(_RegisterClass, user32, 'RegisterClassA');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClass]
end;
end;
{$ELSE}
function RegisterClass; external user32 name 'RegisterClassA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_UnregisterClassA: Pointer;
function UnregisterClassA;
begin
GetProcedureAddress(_UnregisterClassA, user32, 'UnregisterClassA');
asm
mov esp, ebp
pop ebp
jmp [_UnregisterClassA]
end;
end;
{$ELSE}
function UnregisterClassA; external user32 name 'UnregisterClassA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UnregisterClassW: Pointer;
function UnregisterClassW;
begin
GetProcedureAddress(_UnregisterClassW, user32, 'UnregisterClassW');
asm
mov esp, ebp
pop ebp
jmp [_UnregisterClassW]
end;
end;
{$ELSE}
function UnregisterClassW; external user32 name 'UnregisterClassW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_UnregisterClass: Pointer;
function UnregisterClass;
begin
GetProcedureAddress(_UnregisterClass, user32, 'UnregisterClassW');
asm
mov esp, ebp
pop ebp
jmp [_UnregisterClass]
end;
end;
{$ELSE}
function UnregisterClass; external user32 name 'UnregisterClassW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_UnregisterClass: Pointer;
function UnregisterClass;
begin
GetProcedureAddress(_UnregisterClass, user32, 'UnregisterClassA');
asm
mov esp, ebp
pop ebp
jmp [_UnregisterClass]
end;
end;
{$ELSE}
function UnregisterClass; external user32 name 'UnregisterClassA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetClassInfoA: Pointer;
function GetClassInfoA;
begin
GetProcedureAddress(_GetClassInfoA, user32, 'GetClassInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetClassInfoA]
end;
end;
{$ELSE}
function GetClassInfoA; external user32 name 'GetClassInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClassInfoW: Pointer;
function GetClassInfoW;
begin
GetProcedureAddress(_GetClassInfoW, user32, 'GetClassInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetClassInfoW]
end;
end;
{$ELSE}
function GetClassInfoW; external user32 name 'GetClassInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetClassInfo: Pointer;
function GetClassInfo;
begin
GetProcedureAddress(_GetClassInfo, user32, 'GetClassInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetClassInfo]
end;
end;
{$ELSE}
function GetClassInfo; external user32 name 'GetClassInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetClassInfo: Pointer;
function GetClassInfo;
begin
GetProcedureAddress(_GetClassInfo, user32, 'GetClassInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetClassInfo]
end;
end;
{$ELSE}
function GetClassInfo; external user32 name 'GetClassInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClassExA: Pointer;
function RegisterClassExA;
begin
GetProcedureAddress(_RegisterClassExA, user32, 'RegisterClassExA');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClassExA]
end;
end;
{$ELSE}
function RegisterClassExA; external user32 name 'RegisterClassExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClassExW: Pointer;
function RegisterClassExW;
begin
GetProcedureAddress(_RegisterClassExW, user32, 'RegisterClassExW');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClassExW]
end;
end;
{$ELSE}
function RegisterClassExW; external user32 name 'RegisterClassExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClassEx: Pointer;
function RegisterClassEx;
begin
GetProcedureAddress(_RegisterClassEx, user32, 'RegisterClassExW');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClassEx]
end;
end;
{$ELSE}
function RegisterClassEx; external user32 name 'RegisterClassExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClassEx: Pointer;
function RegisterClassEx;
begin
GetProcedureAddress(_RegisterClassEx, user32, 'RegisterClassExA');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClassEx]
end;
end;
{$ELSE}
function RegisterClassEx; external user32 name 'RegisterClassExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetClassInfoExA: Pointer;
function GetClassInfoExA;
begin
GetProcedureAddress(_GetClassInfoExA, user32, 'GetClassInfoExA');
asm
mov esp, ebp
pop ebp
jmp [_GetClassInfoExA]
end;
end;
{$ELSE}
function GetClassInfoExA; external user32 name 'GetClassInfoExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClassInfoExW: Pointer;
function GetClassInfoExW;
begin
GetProcedureAddress(_GetClassInfoExW, user32, 'GetClassInfoExW');
asm
mov esp, ebp
pop ebp
jmp [_GetClassInfoExW]
end;
end;
{$ELSE}
function GetClassInfoExW; external user32 name 'GetClassInfoExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetClassInfoEx: Pointer;
function GetClassInfoEx;
begin
GetProcedureAddress(_GetClassInfoEx, user32, 'GetClassInfoExW');
asm
mov esp, ebp
pop ebp
jmp [_GetClassInfoEx]
end;
end;
{$ELSE}
function GetClassInfoEx; external user32 name 'GetClassInfoExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetClassInfoEx: Pointer;
function GetClassInfoEx;
begin
GetProcedureAddress(_GetClassInfoEx, user32, 'GetClassInfoExA');
asm
mov esp, ebp
pop ebp
jmp [_GetClassInfoEx]
end;
end;
{$ELSE}
function GetClassInfoEx; external user32 name 'GetClassInfoExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateWindowExA: Pointer;
function CreateWindowExA;
begin
GetProcedureAddress(_CreateWindowExA, user32, 'CreateWindowExA');
asm
mov esp, ebp
pop ebp
jmp [_CreateWindowExA]
end;
end;
{$ELSE}
function CreateWindowExA; external user32 name 'CreateWindowExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateWindowExW: Pointer;
function CreateWindowExW;
begin
GetProcedureAddress(_CreateWindowExW, user32, 'CreateWindowExW');
asm
mov esp, ebp
pop ebp
jmp [_CreateWindowExW]
end;
end;
{$ELSE}
function CreateWindowExW; external user32 name 'CreateWindowExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateWindowEx: Pointer;
function CreateWindowEx;
begin
GetProcedureAddress(_CreateWindowEx, user32, 'CreateWindowExW');
asm
mov esp, ebp
pop ebp
jmp [_CreateWindowEx]
end;
end;
{$ELSE}
function CreateWindowEx; external user32 name 'CreateWindowExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateWindowEx: Pointer;
function CreateWindowEx;
begin
GetProcedureAddress(_CreateWindowEx, user32, 'CreateWindowExA');
asm
mov esp, ebp
pop ebp
jmp [_CreateWindowEx]
end;
end;
{$ELSE}
function CreateWindowEx; external user32 name 'CreateWindowExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_IsWindow: Pointer;
function IsWindow;
begin
GetProcedureAddress(_IsWindow, user32, 'IsWindow');
asm
mov esp, ebp
pop ebp
jmp [_IsWindow]
end;
end;
{$ELSE}
function IsWindow; external user32 name 'IsWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsMenu: Pointer;
function IsMenu;
begin
GetProcedureAddress(_IsMenu, user32, 'IsMenu');
asm
mov esp, ebp
pop ebp
jmp [_IsMenu]
end;
end;
{$ELSE}
function IsMenu; external user32 name 'IsMenu';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsChild: Pointer;
function IsChild;
begin
GetProcedureAddress(_IsChild, user32, 'IsChild');
asm
mov esp, ebp
pop ebp
jmp [_IsChild]
end;
end;
{$ELSE}
function IsChild; external user32 name 'IsChild';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DestroyWindow: Pointer;
function DestroyWindow;
begin
GetProcedureAddress(_DestroyWindow, user32, 'DestroyWindow');
asm
mov esp, ebp
pop ebp
jmp [_DestroyWindow]
end;
end;
{$ELSE}
function DestroyWindow; external user32 name 'DestroyWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ShowWindow: Pointer;
function ShowWindow;
begin
GetProcedureAddress(_ShowWindow, user32, 'ShowWindow');
asm
mov esp, ebp
pop ebp
jmp [_ShowWindow]
end;
end;
{$ELSE}
function ShowWindow; external user32 name 'ShowWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AnimateWindow: Pointer;
function AnimateWindow;
begin
GetProcedureAddress(_AnimateWindow, user32, 'AnimateWindow');
asm
mov esp, ebp
pop ebp
jmp [_AnimateWindow]
end;
end;
{$ELSE}
function AnimateWindow; external user32 name 'AnimateWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UpdateLayeredWindow: Pointer;
function UpdateLayeredWindow;
begin
GetProcedureAddress(_UpdateLayeredWindow, user32, 'UpdateLayeredWindow');
asm
mov esp, ebp
pop ebp
jmp [_UpdateLayeredWindow]
end;
end;
{$ELSE}
function UpdateLayeredWindow; external user32 name 'UpdateLayeredWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetLayeredWindowAttributes: Pointer;
function GetLayeredWindowAttributes;
begin
GetProcedureAddress(_GetLayeredWindowAttributes, user32, 'GetLayeredWindowAttributes');
asm
mov esp, ebp
pop ebp
jmp [_GetLayeredWindowAttributes]
end;
end;
{$ELSE}
function GetLayeredWindowAttributes; external user32 name 'GetLayeredWindowAttributes';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PrintWindow: Pointer;
function PrintWindow;
begin
GetProcedureAddress(_PrintWindow, user32, 'PrintWindow');
asm
mov esp, ebp
pop ebp
jmp [_PrintWindow]
end;
end;
{$ELSE}
function PrintWindow; external user32 name 'PrintWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetLayeredWindowAttributes: Pointer;
function SetLayeredWindowAttributes;
begin
GetProcedureAddress(_SetLayeredWindowAttributes, user32, 'SetLayeredWindowAttributes');
asm
mov esp, ebp
pop ebp
jmp [_SetLayeredWindowAttributes]
end;
end;
{$ELSE}
function SetLayeredWindowAttributes; external user32 name 'SetLayeredWindowAttributes';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ShowWindowAsync: Pointer;
function ShowWindowAsync;
begin
GetProcedureAddress(_ShowWindowAsync, user32, 'ShowWindowAsync');
asm
mov esp, ebp
pop ebp
jmp [_ShowWindowAsync]
end;
end;
{$ELSE}
function ShowWindowAsync; external user32 name 'ShowWindowAsync';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FlashWindow: Pointer;
function FlashWindow;
begin
GetProcedureAddress(_FlashWindow, user32, 'FlashWindow');
asm
mov esp, ebp
pop ebp
jmp [_FlashWindow]
end;
end;
{$ELSE}
function FlashWindow; external user32 name 'FlashWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FlashWindowEx: Pointer;
function FlashWindowEx;
begin
GetProcedureAddress(_FlashWindowEx, user32, 'FlashWindowEx');
asm
mov esp, ebp
pop ebp
jmp [_FlashWindowEx]
end;
end;
{$ELSE}
function FlashWindowEx; external user32 name 'FlashWindowEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ShowOwnedPopups: Pointer;
function ShowOwnedPopups;
begin
GetProcedureAddress(_ShowOwnedPopups, user32, 'ShowOwnedPopups');
asm
mov esp, ebp
pop ebp
jmp [_ShowOwnedPopups]
end;
end;
{$ELSE}
function ShowOwnedPopups; external user32 name 'ShowOwnedPopups';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OpenIcon: Pointer;
function OpenIcon;
begin
GetProcedureAddress(_OpenIcon, user32, 'OpenIcon');
asm
mov esp, ebp
pop ebp
jmp [_OpenIcon]
end;
end;
{$ELSE}
function OpenIcon; external user32 name 'OpenIcon';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CloseWindow: Pointer;
function CloseWindow;
begin
GetProcedureAddress(_CloseWindow, user32, 'CloseWindow');
asm
mov esp, ebp
pop ebp
jmp [_CloseWindow]
end;
end;
{$ELSE}
function CloseWindow; external user32 name 'CloseWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MoveWindow: Pointer;
function MoveWindow;
begin
GetProcedureAddress(_MoveWindow, user32, 'MoveWindow');
asm
mov esp, ebp
pop ebp
jmp [_MoveWindow]
end;
end;
{$ELSE}
function MoveWindow; external user32 name 'MoveWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowPos: Pointer;
function SetWindowPos;
begin
GetProcedureAddress(_SetWindowPos, user32, 'SetWindowPos');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowPos]
end;
end;
{$ELSE}
function SetWindowPos; external user32 name 'SetWindowPos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowPlacement: Pointer;
function GetWindowPlacement;
begin
GetProcedureAddress(_GetWindowPlacement, user32, 'GetWindowPlacement');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowPlacement]
end;
end;
{$ELSE}
function GetWindowPlacement; external user32 name 'GetWindowPlacement';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowPlacement: Pointer;
function SetWindowPlacement;
begin
GetProcedureAddress(_SetWindowPlacement, user32, 'SetWindowPlacement');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowPlacement]
end;
end;
{$ELSE}
function SetWindowPlacement; external user32 name 'SetWindowPlacement';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BeginDeferWindowPos: Pointer;
function BeginDeferWindowPos;
begin
GetProcedureAddress(_BeginDeferWindowPos, user32, 'BeginDeferWindowPos');
asm
mov esp, ebp
pop ebp
jmp [_BeginDeferWindowPos]
end;
end;
{$ELSE}
function BeginDeferWindowPos; external user32 name 'BeginDeferWindowPos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeferWindowPos: Pointer;
function DeferWindowPos;
begin
GetProcedureAddress(_DeferWindowPos, user32, 'DeferWindowPos');
asm
mov esp, ebp
pop ebp
jmp [_DeferWindowPos]
end;
end;
{$ELSE}
function DeferWindowPos; external user32 name 'DeferWindowPos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EndDeferWindowPos: Pointer;
function EndDeferWindowPos;
begin
GetProcedureAddress(_EndDeferWindowPos, user32, 'EndDeferWindowPos');
asm
mov esp, ebp
pop ebp
jmp [_EndDeferWindowPos]
end;
end;
{$ELSE}
function EndDeferWindowPos; external user32 name 'EndDeferWindowPos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsWindowVisible: Pointer;
function IsWindowVisible;
begin
GetProcedureAddress(_IsWindowVisible, user32, 'IsWindowVisible');
asm
mov esp, ebp
pop ebp
jmp [_IsWindowVisible]
end;
end;
{$ELSE}
function IsWindowVisible; external user32 name 'IsWindowVisible';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsIconic: Pointer;
function IsIconic;
begin
GetProcedureAddress(_IsIconic, user32, 'IsIconic');
asm
mov esp, ebp
pop ebp
jmp [_IsIconic]
end;
end;
{$ELSE}
function IsIconic; external user32 name 'IsIconic';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AnyPopup: Pointer;
function AnyPopup;
begin
GetProcedureAddress(_AnyPopup, user32, 'AnyPopup');
asm
mov esp, ebp
pop ebp
jmp [_AnyPopup]
end;
end;
{$ELSE}
function AnyPopup; external user32 name 'AnyPopup';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BringWindowToTop: Pointer;
function BringWindowToTop;
begin
GetProcedureAddress(_BringWindowToTop, user32, 'BringWindowToTop');
asm
mov esp, ebp
pop ebp
jmp [_BringWindowToTop]
end;
end;
{$ELSE}
function BringWindowToTop; external user32 name 'BringWindowToTop';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsZoomed: Pointer;
function IsZoomed;
begin
GetProcedureAddress(_IsZoomed, user32, 'IsZoomed');
asm
mov esp, ebp
pop ebp
jmp [_IsZoomed]
end;
end;
{$ELSE}
function IsZoomed; external user32 name 'IsZoomed';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateDialogParamA: Pointer;
function CreateDialogParamA;
begin
GetProcedureAddress(_CreateDialogParamA, user32, 'CreateDialogParamA');
asm
mov esp, ebp
pop ebp
jmp [_CreateDialogParamA]
end;
end;
{$ELSE}
function CreateDialogParamA; external user32 name 'CreateDialogParamA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateDialogParamW: Pointer;
function CreateDialogParamW;
begin
GetProcedureAddress(_CreateDialogParamW, user32, 'CreateDialogParamW');
asm
mov esp, ebp
pop ebp
jmp [_CreateDialogParamW]
end;
end;
{$ELSE}
function CreateDialogParamW; external user32 name 'CreateDialogParamW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateDialogParam: Pointer;
function CreateDialogParam;
begin
GetProcedureAddress(_CreateDialogParam, user32, 'CreateDialogParamW');
asm
mov esp, ebp
pop ebp
jmp [_CreateDialogParam]
end;
end;
{$ELSE}
function CreateDialogParam; external user32 name 'CreateDialogParamW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateDialogParam: Pointer;
function CreateDialogParam;
begin
GetProcedureAddress(_CreateDialogParam, user32, 'CreateDialogParamA');
asm
mov esp, ebp
pop ebp
jmp [_CreateDialogParam]
end;
end;
{$ELSE}
function CreateDialogParam; external user32 name 'CreateDialogParamA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateDialogIndirectParamA: Pointer;
function CreateDialogIndirectParamA;
begin
GetProcedureAddress(_CreateDialogIndirectParamA, user32, 'CreateDialogIndirectParamA');
asm
mov esp, ebp
pop ebp
jmp [_CreateDialogIndirectParamA]
end;
end;
{$ELSE}
function CreateDialogIndirectParamA; external user32 name 'CreateDialogIndirectParamA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateDialogIndirectParamW: Pointer;
function CreateDialogIndirectParamW;
begin
GetProcedureAddress(_CreateDialogIndirectParamW, user32, 'CreateDialogIndirectParamW');
asm
mov esp, ebp
pop ebp
jmp [_CreateDialogIndirectParamW]
end;
end;
{$ELSE}
function CreateDialogIndirectParamW; external user32 name 'CreateDialogIndirectParamW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateDialogIndirectParam: Pointer;
function CreateDialogIndirectParam;
begin
GetProcedureAddress(_CreateDialogIndirectParam, user32, 'CreateDialogIndirectParamW');
asm
mov esp, ebp
pop ebp
jmp [_CreateDialogIndirectParam]
end;
end;
{$ELSE}
function CreateDialogIndirectParam; external user32 name 'CreateDialogIndirectParamW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateDialogIndirectParam: Pointer;
function CreateDialogIndirectParam;
begin
GetProcedureAddress(_CreateDialogIndirectParam, user32, 'CreateDialogIndirectParamA');
asm
mov esp, ebp
pop ebp
jmp [_CreateDialogIndirectParam]
end;
end;
{$ELSE}
function CreateDialogIndirectParam; external user32 name 'CreateDialogIndirectParamA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DialogBoxParamA: Pointer;
function DialogBoxParamA;
begin
GetProcedureAddress(_DialogBoxParamA, user32, 'DialogBoxParamA');
asm
mov esp, ebp
pop ebp
jmp [_DialogBoxParamA]
end;
end;
{$ELSE}
function DialogBoxParamA; external user32 name 'DialogBoxParamA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DialogBoxParamW: Pointer;
function DialogBoxParamW;
begin
GetProcedureAddress(_DialogBoxParamW, user32, 'DialogBoxParamW');
asm
mov esp, ebp
pop ebp
jmp [_DialogBoxParamW]
end;
end;
{$ELSE}
function DialogBoxParamW; external user32 name 'DialogBoxParamW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DialogBoxParam: Pointer;
function DialogBoxParam;
begin
GetProcedureAddress(_DialogBoxParam, user32, 'DialogBoxParamW');
asm
mov esp, ebp
pop ebp
jmp [_DialogBoxParam]
end;
end;
{$ELSE}
function DialogBoxParam; external user32 name 'DialogBoxParamW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DialogBoxParam: Pointer;
function DialogBoxParam;
begin
GetProcedureAddress(_DialogBoxParam, user32, 'DialogBoxParamA');
asm
mov esp, ebp
pop ebp
jmp [_DialogBoxParam]
end;
end;
{$ELSE}
function DialogBoxParam; external user32 name 'DialogBoxParamA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DialogBoxIndirectParamA: Pointer;
function DialogBoxIndirectParamA;
begin
GetProcedureAddress(_DialogBoxIndirectParamA, user32, 'DialogBoxIndirectParamA');
asm
mov esp, ebp
pop ebp
jmp [_DialogBoxIndirectParamA]
end;
end;
{$ELSE}
function DialogBoxIndirectParamA; external user32 name 'DialogBoxIndirectParamA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DialogBoxIndirectParamW: Pointer;
function DialogBoxIndirectParamW;
begin
GetProcedureAddress(_DialogBoxIndirectParamW, user32, 'DialogBoxIndirectParamW');
asm
mov esp, ebp
pop ebp
jmp [_DialogBoxIndirectParamW]
end;
end;
{$ELSE}
function DialogBoxIndirectParamW; external user32 name 'DialogBoxIndirectParamW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DialogBoxIndirectParam: Pointer;
function DialogBoxIndirectParam;
begin
GetProcedureAddress(_DialogBoxIndirectParam, user32, 'DialogBoxIndirectParamW');
asm
mov esp, ebp
pop ebp
jmp [_DialogBoxIndirectParam]
end;
end;
{$ELSE}
function DialogBoxIndirectParam; external user32 name 'DialogBoxIndirectParamW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DialogBoxIndirectParam: Pointer;
function DialogBoxIndirectParam;
begin
GetProcedureAddress(_DialogBoxIndirectParam, user32, 'DialogBoxIndirectParamA');
asm
mov esp, ebp
pop ebp
jmp [_DialogBoxIndirectParam]
end;
end;
{$ELSE}
function DialogBoxIndirectParam; external user32 name 'DialogBoxIndirectParamA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EndDialog: Pointer;
function EndDialog;
begin
GetProcedureAddress(_EndDialog, user32, 'EndDialog');
asm
mov esp, ebp
pop ebp
jmp [_EndDialog]
end;
end;
{$ELSE}
function EndDialog; external user32 name 'EndDialog';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDlgItem: Pointer;
function GetDlgItem;
begin
GetProcedureAddress(_GetDlgItem, user32, 'GetDlgItem');
asm
mov esp, ebp
pop ebp
jmp [_GetDlgItem]
end;
end;
{$ELSE}
function GetDlgItem; external user32 name 'GetDlgItem';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDlgItemInt: Pointer;
function SetDlgItemInt;
begin
GetProcedureAddress(_SetDlgItemInt, user32, 'SetDlgItemInt');
asm
mov esp, ebp
pop ebp
jmp [_SetDlgItemInt]
end;
end;
{$ELSE}
function SetDlgItemInt; external user32 name 'SetDlgItemInt';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDlgItemInt: Pointer;
function GetDlgItemInt;
begin
GetProcedureAddress(_GetDlgItemInt, user32, 'GetDlgItemInt');
asm
mov esp, ebp
pop ebp
jmp [_GetDlgItemInt]
end;
end;
{$ELSE}
function GetDlgItemInt; external user32 name 'GetDlgItemInt';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDlgItemTextA: Pointer;
function SetDlgItemTextA;
begin
GetProcedureAddress(_SetDlgItemTextA, user32, 'SetDlgItemTextA');
asm
mov esp, ebp
pop ebp
jmp [_SetDlgItemTextA]
end;
end;
{$ELSE}
function SetDlgItemTextA; external user32 name 'SetDlgItemTextA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDlgItemTextW: Pointer;
function SetDlgItemTextW;
begin
GetProcedureAddress(_SetDlgItemTextW, user32, 'SetDlgItemTextW');
asm
mov esp, ebp
pop ebp
jmp [_SetDlgItemTextW]
end;
end;
{$ELSE}
function SetDlgItemTextW; external user32 name 'SetDlgItemTextW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetDlgItemText: Pointer;
function SetDlgItemText;
begin
GetProcedureAddress(_SetDlgItemText, user32, 'SetDlgItemTextW');
asm
mov esp, ebp
pop ebp
jmp [_SetDlgItemText]
end;
end;
{$ELSE}
function SetDlgItemText; external user32 name 'SetDlgItemTextW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetDlgItemText: Pointer;
function SetDlgItemText;
begin
GetProcedureAddress(_SetDlgItemText, user32, 'SetDlgItemTextA');
asm
mov esp, ebp
pop ebp
jmp [_SetDlgItemText]
end;
end;
{$ELSE}
function SetDlgItemText; external user32 name 'SetDlgItemTextA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetDlgItemTextA: Pointer;
function GetDlgItemTextA;
begin
GetProcedureAddress(_GetDlgItemTextA, user32, 'GetDlgItemTextA');
asm
mov esp, ebp
pop ebp
jmp [_GetDlgItemTextA]
end;
end;
{$ELSE}
function GetDlgItemTextA; external user32 name 'GetDlgItemTextA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDlgItemTextW: Pointer;
function GetDlgItemTextW;
begin
GetProcedureAddress(_GetDlgItemTextW, user32, 'GetDlgItemTextW');
asm
mov esp, ebp
pop ebp
jmp [_GetDlgItemTextW]
end;
end;
{$ELSE}
function GetDlgItemTextW; external user32 name 'GetDlgItemTextW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetDlgItemText: Pointer;
function GetDlgItemText;
begin
GetProcedureAddress(_GetDlgItemText, user32, 'GetDlgItemTextW');
asm
mov esp, ebp
pop ebp
jmp [_GetDlgItemText]
end;
end;
{$ELSE}
function GetDlgItemText; external user32 name 'GetDlgItemTextW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetDlgItemText: Pointer;
function GetDlgItemText;
begin
GetProcedureAddress(_GetDlgItemText, user32, 'GetDlgItemTextA');
asm
mov esp, ebp
pop ebp
jmp [_GetDlgItemText]
end;
end;
{$ELSE}
function GetDlgItemText; external user32 name 'GetDlgItemTextA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CheckDlgButton: Pointer;
function CheckDlgButton;
begin
GetProcedureAddress(_CheckDlgButton, user32, 'CheckDlgButton');
asm
mov esp, ebp
pop ebp
jmp [_CheckDlgButton]
end;
end;
{$ELSE}
function CheckDlgButton; external user32 name 'CheckDlgButton';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CheckRadioButton: Pointer;
function CheckRadioButton;
begin
GetProcedureAddress(_CheckRadioButton, user32, 'CheckRadioButton');
asm
mov esp, ebp
pop ebp
jmp [_CheckRadioButton]
end;
end;
{$ELSE}
function CheckRadioButton; external user32 name 'CheckRadioButton';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsDlgButtonChecked: Pointer;
function IsDlgButtonChecked;
begin
GetProcedureAddress(_IsDlgButtonChecked, user32, 'IsDlgButtonChecked');
asm
mov esp, ebp
pop ebp
jmp [_IsDlgButtonChecked]
end;
end;
{$ELSE}
function IsDlgButtonChecked; external user32 name 'IsDlgButtonChecked';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SendDlgItemMessageA: Pointer;
function SendDlgItemMessageA;
begin
GetProcedureAddress(_SendDlgItemMessageA, user32, 'SendDlgItemMessageA');
asm
mov esp, ebp
pop ebp
jmp [_SendDlgItemMessageA]
end;
end;
{$ELSE}
function SendDlgItemMessageA; external user32 name 'SendDlgItemMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SendDlgItemMessageW: Pointer;
function SendDlgItemMessageW;
begin
GetProcedureAddress(_SendDlgItemMessageW, user32, 'SendDlgItemMessageW');
asm
mov esp, ebp
pop ebp
jmp [_SendDlgItemMessageW]
end;
end;
{$ELSE}
function SendDlgItemMessageW; external user32 name 'SendDlgItemMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SendDlgItemMessage: Pointer;
function SendDlgItemMessage;
begin
GetProcedureAddress(_SendDlgItemMessage, user32, 'SendDlgItemMessageW');
asm
mov esp, ebp
pop ebp
jmp [_SendDlgItemMessage]
end;
end;
{$ELSE}
function SendDlgItemMessage; external user32 name 'SendDlgItemMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SendDlgItemMessage: Pointer;
function SendDlgItemMessage;
begin
GetProcedureAddress(_SendDlgItemMessage, user32, 'SendDlgItemMessageA');
asm
mov esp, ebp
pop ebp
jmp [_SendDlgItemMessage]
end;
end;
{$ELSE}
function SendDlgItemMessage; external user32 name 'SendDlgItemMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetNextDlgGroupItem: Pointer;
function GetNextDlgGroupItem;
begin
GetProcedureAddress(_GetNextDlgGroupItem, user32, 'GetNextDlgGroupItem');
asm
mov esp, ebp
pop ebp
jmp [_GetNextDlgGroupItem]
end;
end;
{$ELSE}
function GetNextDlgGroupItem; external user32 name 'GetNextDlgGroupItem';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetNextDlgTabItem: Pointer;
function GetNextDlgTabItem;
begin
GetProcedureAddress(_GetNextDlgTabItem, user32, 'GetNextDlgTabItem');
asm
mov esp, ebp
pop ebp
jmp [_GetNextDlgTabItem]
end;
end;
{$ELSE}
function GetNextDlgTabItem; external user32 name 'GetNextDlgTabItem';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDlgCtrlID: Pointer;
function GetDlgCtrlID;
begin
GetProcedureAddress(_GetDlgCtrlID, user32, 'GetDlgCtrlID');
asm
mov esp, ebp
pop ebp
jmp [_GetDlgCtrlID]
end;
end;
{$ELSE}
function GetDlgCtrlID; external user32 name 'GetDlgCtrlID';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDialogBaseUnits: Pointer;
function GetDialogBaseUnits;
begin
GetProcedureAddress(_GetDialogBaseUnits, user32, 'GetDialogBaseUnits');
asm
mov esp, ebp
pop ebp
jmp [_GetDialogBaseUnits]
end;
end;
{$ELSE}
function GetDialogBaseUnits; external user32 name 'GetDialogBaseUnits';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DefDlgProcA: Pointer;
function DefDlgProcA;
begin
GetProcedureAddress(_DefDlgProcA, user32, 'DefDlgProcA');
asm
mov esp, ebp
pop ebp
jmp [_DefDlgProcA]
end;
end;
{$ELSE}
function DefDlgProcA; external user32 name 'DefDlgProcA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DefDlgProcW: Pointer;
function DefDlgProcW;
begin
GetProcedureAddress(_DefDlgProcW, user32, 'DefDlgProcW');
asm
mov esp, ebp
pop ebp
jmp [_DefDlgProcW]
end;
end;
{$ELSE}
function DefDlgProcW; external user32 name 'DefDlgProcW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DefDlgProc: Pointer;
function DefDlgProc;
begin
GetProcedureAddress(_DefDlgProc, user32, 'DefDlgProcW');
asm
mov esp, ebp
pop ebp
jmp [_DefDlgProc]
end;
end;
{$ELSE}
function DefDlgProc; external user32 name 'DefDlgProcW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DefDlgProc: Pointer;
function DefDlgProc;
begin
GetProcedureAddress(_DefDlgProc, user32, 'DefDlgProcA');
asm
mov esp, ebp
pop ebp
jmp [_DefDlgProc]
end;
end;
{$ELSE}
function DefDlgProc; external user32 name 'DefDlgProcA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CallMsgFilterA: Pointer;
function CallMsgFilterA;
begin
GetProcedureAddress(_CallMsgFilterA, user32, 'CallMsgFilterA');
asm
mov esp, ebp
pop ebp
jmp [_CallMsgFilterA]
end;
end;
{$ELSE}
function CallMsgFilterA; external user32 name 'CallMsgFilterA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CallMsgFilterW: Pointer;
function CallMsgFilterW;
begin
GetProcedureAddress(_CallMsgFilterW, user32, 'CallMsgFilterW');
asm
mov esp, ebp
pop ebp
jmp [_CallMsgFilterW]
end;
end;
{$ELSE}
function CallMsgFilterW; external user32 name 'CallMsgFilterW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CallMsgFilter: Pointer;
function CallMsgFilter;
begin
GetProcedureAddress(_CallMsgFilter, user32, 'CallMsgFilterW');
asm
mov esp, ebp
pop ebp
jmp [_CallMsgFilter]
end;
end;
{$ELSE}
function CallMsgFilter; external user32 name 'CallMsgFilterW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CallMsgFilter: Pointer;
function CallMsgFilter;
begin
GetProcedureAddress(_CallMsgFilter, user32, 'CallMsgFilterA');
asm
mov esp, ebp
pop ebp
jmp [_CallMsgFilter]
end;
end;
{$ELSE}
function CallMsgFilter; external user32 name 'CallMsgFilterA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_OpenClipboard: Pointer;
function OpenClipboard;
begin
GetProcedureAddress(_OpenClipboard, user32, 'OpenClipboard');
asm
mov esp, ebp
pop ebp
jmp [_OpenClipboard]
end;
end;
{$ELSE}
function OpenClipboard; external user32 name 'OpenClipboard';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CloseClipboard: Pointer;
function CloseClipboard;
begin
GetProcedureAddress(_CloseClipboard, user32, 'CloseClipboard');
asm
mov esp, ebp
pop ebp
jmp [_CloseClipboard]
end;
end;
{$ELSE}
function CloseClipboard; external user32 name 'CloseClipboard';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClipboardSequenceNumber: Pointer;
function GetClipboardSequenceNumber;
begin
GetProcedureAddress(_GetClipboardSequenceNumber, user32, 'GetClipboardSequenceNumber');
asm
mov esp, ebp
pop ebp
jmp [_GetClipboardSequenceNumber]
end;
end;
{$ELSE}
function GetClipboardSequenceNumber; external user32 name 'GetClipboardSequenceNumber';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClipboardOwner: Pointer;
function GetClipboardOwner;
begin
GetProcedureAddress(_GetClipboardOwner, user32, 'GetClipboardOwner');
asm
mov esp, ebp
pop ebp
jmp [_GetClipboardOwner]
end;
end;
{$ELSE}
function GetClipboardOwner; external user32 name 'GetClipboardOwner';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetClipboardViewer: Pointer;
function SetClipboardViewer;
begin
GetProcedureAddress(_SetClipboardViewer, user32, 'SetClipboardViewer');
asm
mov esp, ebp
pop ebp
jmp [_SetClipboardViewer]
end;
end;
{$ELSE}
function SetClipboardViewer; external user32 name 'SetClipboardViewer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClipboardViewer: Pointer;
function GetClipboardViewer;
begin
GetProcedureAddress(_GetClipboardViewer, user32, 'GetClipboardViewer');
asm
mov esp, ebp
pop ebp
jmp [_GetClipboardViewer]
end;
end;
{$ELSE}
function GetClipboardViewer; external user32 name 'GetClipboardViewer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ChangeClipboardChain: Pointer;
function ChangeClipboardChain;
begin
GetProcedureAddress(_ChangeClipboardChain, user32, 'ChangeClipboardChain');
asm
mov esp, ebp
pop ebp
jmp [_ChangeClipboardChain]
end;
end;
{$ELSE}
function ChangeClipboardChain; external user32 name 'ChangeClipboardChain';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetClipboardData: Pointer;
function SetClipboardData;
begin
GetProcedureAddress(_SetClipboardData, user32, 'SetClipboardData');
asm
mov esp, ebp
pop ebp
jmp [_SetClipboardData]
end;
end;
{$ELSE}
function SetClipboardData; external user32 name 'SetClipboardData';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClipboardData: Pointer;
function GetClipboardData;
begin
GetProcedureAddress(_GetClipboardData, user32, 'GetClipboardData');
asm
mov esp, ebp
pop ebp
jmp [_GetClipboardData]
end;
end;
{$ELSE}
function GetClipboardData; external user32 name 'GetClipboardData';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClipboardFormatA: Pointer;
function RegisterClipboardFormatA;
begin
GetProcedureAddress(_RegisterClipboardFormatA, user32, 'RegisterClipboardFormatA');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClipboardFormatA]
end;
end;
{$ELSE}
function RegisterClipboardFormatA; external user32 name 'RegisterClipboardFormatA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClipboardFormatW: Pointer;
function RegisterClipboardFormatW;
begin
GetProcedureAddress(_RegisterClipboardFormatW, user32, 'RegisterClipboardFormatW');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClipboardFormatW]
end;
end;
{$ELSE}
function RegisterClipboardFormatW; external user32 name 'RegisterClipboardFormatW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClipboardFormat: Pointer;
function RegisterClipboardFormat;
begin
GetProcedureAddress(_RegisterClipboardFormat, user32, 'RegisterClipboardFormatW');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClipboardFormat]
end;
end;
{$ELSE}
function RegisterClipboardFormat; external user32 name 'RegisterClipboardFormatW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_RegisterClipboardFormat: Pointer;
function RegisterClipboardFormat;
begin
GetProcedureAddress(_RegisterClipboardFormat, user32, 'RegisterClipboardFormatA');
asm
mov esp, ebp
pop ebp
jmp [_RegisterClipboardFormat]
end;
end;
{$ELSE}
function RegisterClipboardFormat; external user32 name 'RegisterClipboardFormatA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CountClipboardFormats: Pointer;
function CountClipboardFormats;
begin
GetProcedureAddress(_CountClipboardFormats, user32, 'CountClipboardFormats');
asm
mov esp, ebp
pop ebp
jmp [_CountClipboardFormats]
end;
end;
{$ELSE}
function CountClipboardFormats; external user32 name 'CountClipboardFormats';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumClipboardFormats: Pointer;
function EnumClipboardFormats;
begin
GetProcedureAddress(_EnumClipboardFormats, user32, 'EnumClipboardFormats');
asm
mov esp, ebp
pop ebp
jmp [_EnumClipboardFormats]
end;
end;
{$ELSE}
function EnumClipboardFormats; external user32 name 'EnumClipboardFormats';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClipboardFormatNameA: Pointer;
function GetClipboardFormatNameA;
begin
GetProcedureAddress(_GetClipboardFormatNameA, user32, 'GetClipboardFormatNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetClipboardFormatNameA]
end;
end;
{$ELSE}
function GetClipboardFormatNameA; external user32 name 'GetClipboardFormatNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClipboardFormatNameW: Pointer;
function GetClipboardFormatNameW;
begin
GetProcedureAddress(_GetClipboardFormatNameW, user32, 'GetClipboardFormatNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetClipboardFormatNameW]
end;
end;
{$ELSE}
function GetClipboardFormatNameW; external user32 name 'GetClipboardFormatNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetClipboardFormatName: Pointer;
function GetClipboardFormatName;
begin
GetProcedureAddress(_GetClipboardFormatName, user32, 'GetClipboardFormatNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetClipboardFormatName]
end;
end;
{$ELSE}
function GetClipboardFormatName; external user32 name 'GetClipboardFormatNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetClipboardFormatName: Pointer;
function GetClipboardFormatName;
begin
GetProcedureAddress(_GetClipboardFormatName, user32, 'GetClipboardFormatNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetClipboardFormatName]
end;
end;
{$ELSE}
function GetClipboardFormatName; external user32 name 'GetClipboardFormatNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EmptyClipboard: Pointer;
function EmptyClipboard;
begin
GetProcedureAddress(_EmptyClipboard, user32, 'EmptyClipboard');
asm
mov esp, ebp
pop ebp
jmp [_EmptyClipboard]
end;
end;
{$ELSE}
function EmptyClipboard; external user32 name 'EmptyClipboard';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsClipboardFormatAvailable: Pointer;
function IsClipboardFormatAvailable;
begin
GetProcedureAddress(_IsClipboardFormatAvailable, user32, 'IsClipboardFormatAvailable');
asm
mov esp, ebp
pop ebp
jmp [_IsClipboardFormatAvailable]
end;
end;
{$ELSE}
function IsClipboardFormatAvailable; external user32 name 'IsClipboardFormatAvailable';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPriorityClipboardFormat: Pointer;
function GetPriorityClipboardFormat;
begin
GetProcedureAddress(_GetPriorityClipboardFormat, user32, 'GetPriorityClipboardFormat');
asm
mov esp, ebp
pop ebp
jmp [_GetPriorityClipboardFormat]
end;
end;
{$ELSE}
function GetPriorityClipboardFormat; external user32 name 'GetPriorityClipboardFormat';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetOpenClipboardWindow: Pointer;
function GetOpenClipboardWindow;
begin
GetProcedureAddress(_GetOpenClipboardWindow, user32, 'GetOpenClipboardWindow');
asm
mov esp, ebp
pop ebp
jmp [_GetOpenClipboardWindow]
end;
end;
{$ELSE}
function GetOpenClipboardWindow; external user32 name 'GetOpenClipboardWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CharToOemA: Pointer;
function CharToOemA;
begin
GetProcedureAddress(_CharToOemA, user32, 'CharToOemA');
asm
mov esp, ebp
pop ebp
jmp [_CharToOemA]
end;
end;
{$ELSE}
function CharToOemA; external user32 name 'CharToOemA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CharToOemW: Pointer;
function CharToOemW;
begin
GetProcedureAddress(_CharToOemW, user32, 'CharToOemW');
asm
mov esp, ebp
pop ebp
jmp [_CharToOemW]
end;
end;
{$ELSE}
function CharToOemW; external user32 name 'CharToOemW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CharToOem: Pointer;
function CharToOem;
begin
GetProcedureAddress(_CharToOem, user32, 'CharToOemW');
asm
mov esp, ebp
pop ebp
jmp [_CharToOem]
end;
end;
{$ELSE}
function CharToOem; external user32 name 'CharToOemW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CharToOem: Pointer;
function CharToOem;
begin
GetProcedureAddress(_CharToOem, user32, 'CharToOemA');
asm
mov esp, ebp
pop ebp
jmp [_CharToOem]
end;
end;
{$ELSE}
function CharToOem; external user32 name 'CharToOemA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_OemToCharA: Pointer;
function OemToCharA;
begin
GetProcedureAddress(_OemToCharA, user32, 'OemToCharA');
asm
mov esp, ebp
pop ebp
jmp [_OemToCharA]
end;
end;
{$ELSE}
function OemToCharA; external user32 name 'OemToCharA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OemToCharW: Pointer;
function OemToCharW;
begin
GetProcedureAddress(_OemToCharW, user32, 'OemToCharW');
asm
mov esp, ebp
pop ebp
jmp [_OemToCharW]
end;
end;
{$ELSE}
function OemToCharW; external user32 name 'OemToCharW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_OemToChar: Pointer;
function OemToChar;
begin
GetProcedureAddress(_OemToChar, user32, 'OemToCharW');
asm
mov esp, ebp
pop ebp
jmp [_OemToChar]
end;
end;
{$ELSE}
function OemToChar; external user32 name 'OemToCharW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_OemToChar: Pointer;
function OemToChar;
begin
GetProcedureAddress(_OemToChar, user32, 'OemToCharA');
asm
mov esp, ebp
pop ebp
jmp [_OemToChar]
end;
end;
{$ELSE}
function OemToChar; external user32 name 'OemToCharA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CharToOemBuffA: Pointer;
function CharToOemBuffA;
begin
GetProcedureAddress(_CharToOemBuffA, user32, 'CharToOemBuffA');
asm
mov esp, ebp
pop ebp
jmp [_CharToOemBuffA]
end;
end;
{$ELSE}
function CharToOemBuffA; external user32 name 'CharToOemBuffA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CharToOemBuffW: Pointer;
function CharToOemBuffW;
begin
GetProcedureAddress(_CharToOemBuffW, user32, 'CharToOemBuffW');
asm
mov esp, ebp
pop ebp
jmp [_CharToOemBuffW]
end;
end;
{$ELSE}
function CharToOemBuffW; external user32 name 'CharToOemBuffW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CharToOemBuff: Pointer;
function CharToOemBuff;
begin
GetProcedureAddress(_CharToOemBuff, user32, 'CharToOemBuffW');
asm
mov esp, ebp
pop ebp
jmp [_CharToOemBuff]
end;
end;
{$ELSE}
function CharToOemBuff; external user32 name 'CharToOemBuffW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CharToOemBuff: Pointer;
function CharToOemBuff;
begin
GetProcedureAddress(_CharToOemBuff, user32, 'CharToOemBuffA');
asm
mov esp, ebp
pop ebp
jmp [_CharToOemBuff]
end;
end;
{$ELSE}
function CharToOemBuff; external user32 name 'CharToOemBuffA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_OemToCharBuffA: Pointer;
function OemToCharBuffA;
begin
GetProcedureAddress(_OemToCharBuffA, user32, 'OemToCharBuffA');
asm
mov esp, ebp
pop ebp
jmp [_OemToCharBuffA]
end;
end;
{$ELSE}
function OemToCharBuffA; external user32 name 'OemToCharBuffA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OemToCharBuffW: Pointer;
function OemToCharBuffW;
begin
GetProcedureAddress(_OemToCharBuffW, user32, 'OemToCharBuffW');
asm
mov esp, ebp
pop ebp
jmp [_OemToCharBuffW]
end;
end;
{$ELSE}
function OemToCharBuffW; external user32 name 'OemToCharBuffW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_OemToCharBuff: Pointer;
function OemToCharBuff;
begin
GetProcedureAddress(_OemToCharBuff, user32, 'OemToCharBuffW');
asm
mov esp, ebp
pop ebp
jmp [_OemToCharBuff]
end;
end;
{$ELSE}
function OemToCharBuff; external user32 name 'OemToCharBuffW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_OemToCharBuff: Pointer;
function OemToCharBuff;
begin
GetProcedureAddress(_OemToCharBuff, user32, 'OemToCharBuffA');
asm
mov esp, ebp
pop ebp
jmp [_OemToCharBuff]
end;
end;
{$ELSE}
function OemToCharBuff; external user32 name 'OemToCharBuffA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CharUpperA: Pointer;
function CharUpperA;
begin
GetProcedureAddress(_CharUpperA, user32, 'CharUpperA');
asm
mov esp, ebp
pop ebp
jmp [_CharUpperA]
end;
end;
{$ELSE}
function CharUpperA; external user32 name 'CharUpperA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CharUpperW: Pointer;
function CharUpperW;
begin
GetProcedureAddress(_CharUpperW, user32, 'CharUpperW');
asm
mov esp, ebp
pop ebp
jmp [_CharUpperW]
end;
end;
{$ELSE}
function CharUpperW; external user32 name 'CharUpperW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CharUpper: Pointer;
function CharUpper;
begin
GetProcedureAddress(_CharUpper, user32, 'CharUpperW');
asm
mov esp, ebp
pop ebp
jmp [_CharUpper]
end;
end;
{$ELSE}
function CharUpper; external user32 name 'CharUpperW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CharUpper: Pointer;
function CharUpper;
begin
GetProcedureAddress(_CharUpper, user32, 'CharUpperA');
asm
mov esp, ebp
pop ebp
jmp [_CharUpper]
end;
end;
{$ELSE}
function CharUpper; external user32 name 'CharUpperA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CharUpperBuffA: Pointer;
function CharUpperBuffA;
begin
GetProcedureAddress(_CharUpperBuffA, user32, 'CharUpperBuffA');
asm
mov esp, ebp
pop ebp
jmp [_CharUpperBuffA]
end;
end;
{$ELSE}
function CharUpperBuffA; external user32 name 'CharUpperBuffA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CharUpperBuffW: Pointer;
function CharUpperBuffW;
begin
GetProcedureAddress(_CharUpperBuffW, user32, 'CharUpperBuffW');
asm
mov esp, ebp
pop ebp
jmp [_CharUpperBuffW]
end;
end;
{$ELSE}
function CharUpperBuffW; external user32 name 'CharUpperBuffW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CharUpperBuff: Pointer;
function CharUpperBuff;
begin
GetProcedureAddress(_CharUpperBuff, user32, 'CharUpperBuffW');
asm
mov esp, ebp
pop ebp
jmp [_CharUpperBuff]
end;
end;
{$ELSE}
function CharUpperBuff; external user32 name 'CharUpperBuffW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CharUpperBuff: Pointer;
function CharUpperBuff;
begin
GetProcedureAddress(_CharUpperBuff, user32, 'CharUpperBuffA');
asm
mov esp, ebp
pop ebp
jmp [_CharUpperBuff]
end;
end;
{$ELSE}
function CharUpperBuff; external user32 name 'CharUpperBuffA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CharLowerA: Pointer;
function CharLowerA;
begin
GetProcedureAddress(_CharLowerA, user32, 'CharLowerA');
asm
mov esp, ebp
pop ebp
jmp [_CharLowerA]
end;
end;
{$ELSE}
function CharLowerA; external user32 name 'CharLowerA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CharLowerW: Pointer;
function CharLowerW;
begin
GetProcedureAddress(_CharLowerW, user32, 'CharLowerW');
asm
mov esp, ebp
pop ebp
jmp [_CharLowerW]
end;
end;
{$ELSE}
function CharLowerW; external user32 name 'CharLowerW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CharLower: Pointer;
function CharLower;
begin
GetProcedureAddress(_CharLower, user32, 'CharLowerW');
asm
mov esp, ebp
pop ebp
jmp [_CharLower]
end;
end;
{$ELSE}
function CharLower; external user32 name 'CharLowerW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CharLower: Pointer;
function CharLower;
begin
GetProcedureAddress(_CharLower, user32, 'CharLowerA');
asm
mov esp, ebp
pop ebp
jmp [_CharLower]
end;
end;
{$ELSE}
function CharLower; external user32 name 'CharLowerA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CharLowerBuffA: Pointer;
function CharLowerBuffA;
begin
GetProcedureAddress(_CharLowerBuffA, user32, 'CharLowerBuffA');
asm
mov esp, ebp
pop ebp
jmp [_CharLowerBuffA]
end;
end;
{$ELSE}
function CharLowerBuffA; external user32 name 'CharLowerBuffA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CharLowerBuffW: Pointer;
function CharLowerBuffW;
begin
GetProcedureAddress(_CharLowerBuffW, user32, 'CharLowerBuffW');
asm
mov esp, ebp
pop ebp
jmp [_CharLowerBuffW]
end;
end;
{$ELSE}
function CharLowerBuffW; external user32 name 'CharLowerBuffW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CharLowerBuff: Pointer;
function CharLowerBuff;
begin
GetProcedureAddress(_CharLowerBuff, user32, 'CharLowerBuffW');
asm
mov esp, ebp
pop ebp
jmp [_CharLowerBuff]
end;
end;
{$ELSE}
function CharLowerBuff; external user32 name 'CharLowerBuffW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CharLowerBuff: Pointer;
function CharLowerBuff;
begin
GetProcedureAddress(_CharLowerBuff, user32, 'CharLowerBuffA');
asm
mov esp, ebp
pop ebp
jmp [_CharLowerBuff]
end;
end;
{$ELSE}
function CharLowerBuff; external user32 name 'CharLowerBuffA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CharNextA: Pointer;
function CharNextA;
begin
GetProcedureAddress(_CharNextA, user32, 'CharNextA');
asm
mov esp, ebp
pop ebp
jmp [_CharNextA]
end;
end;
{$ELSE}
function CharNextA; external user32 name 'CharNextA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CharNextW: Pointer;
function CharNextW;
begin
GetProcedureAddress(_CharNextW, user32, 'CharNextW');
asm
mov esp, ebp
pop ebp
jmp [_CharNextW]
end;
end;
{$ELSE}
function CharNextW; external user32 name 'CharNextW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CharNext: Pointer;
function CharNext;
begin
GetProcedureAddress(_CharNext, user32, 'CharNextW');
asm
mov esp, ebp
pop ebp
jmp [_CharNext]
end;
end;
{$ELSE}
function CharNext; external user32 name 'CharNextW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CharNext: Pointer;
function CharNext;
begin
GetProcedureAddress(_CharNext, user32, 'CharNextA');
asm
mov esp, ebp
pop ebp
jmp [_CharNext]
end;
end;
{$ELSE}
function CharNext; external user32 name 'CharNextA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CharPrevA: Pointer;
function CharPrevA;
begin
GetProcedureAddress(_CharPrevA, user32, 'CharPrevA');
asm
mov esp, ebp
pop ebp
jmp [_CharPrevA]
end;
end;
{$ELSE}
function CharPrevA; external user32 name 'CharPrevA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CharPrevW: Pointer;
function CharPrevW;
begin
GetProcedureAddress(_CharPrevW, user32, 'CharPrevW');
asm
mov esp, ebp
pop ebp
jmp [_CharPrevW]
end;
end;
{$ELSE}
function CharPrevW; external user32 name 'CharPrevW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CharPrev: Pointer;
function CharPrev;
begin
GetProcedureAddress(_CharPrev, user32, 'CharPrevW');
asm
mov esp, ebp
pop ebp
jmp [_CharPrev]
end;
end;
{$ELSE}
function CharPrev; external user32 name 'CharPrevW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CharPrev: Pointer;
function CharPrev;
begin
GetProcedureAddress(_CharPrev, user32, 'CharPrevA');
asm
mov esp, ebp
pop ebp
jmp [_CharPrev]
end;
end;
{$ELSE}
function CharPrev; external user32 name 'CharPrevA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CharNextExA: Pointer;
function CharNextExA;
begin
GetProcedureAddress(_CharNextExA, user32, 'CharNextExA');
asm
mov esp, ebp
pop ebp
jmp [_CharNextExA]
end;
end;
{$ELSE}
function CharNextExA; external user32 name 'CharNextExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var