Windows编程

开发平台：

Delphi

JwaWinUser.pas：源码内容

{$ELSE}
function MessageBoxIndirectA; external user32 name 'MessageBoxIndirectA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MessageBoxIndirectW: Pointer;
function MessageBoxIndirectW;
begin
GetProcedureAddress(_MessageBoxIndirectW, user32, 'MessageBoxIndirectW');
asm
mov esp, ebp
pop ebp
jmp [_MessageBoxIndirectW]
end;
end;
{$ELSE}
function MessageBoxIndirectW; external user32 name 'MessageBoxIndirectW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_MessageBoxIndirect: Pointer;
function MessageBoxIndirect;
begin
GetProcedureAddress(_MessageBoxIndirect, user32, 'MessageBoxIndirectW');
asm
mov esp, ebp
pop ebp
jmp [_MessageBoxIndirect]
end;
end;
{$ELSE}
function MessageBoxIndirect; external user32 name 'MessageBoxIndirectW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_MessageBoxIndirect: Pointer;
function MessageBoxIndirect;
begin
GetProcedureAddress(_MessageBoxIndirect, user32, 'MessageBoxIndirectA');
asm
mov esp, ebp
pop ebp
jmp [_MessageBoxIndirect]
end;
end;
{$ELSE}
function MessageBoxIndirect; external user32 name 'MessageBoxIndirectA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MessageBeep: Pointer;
function MessageBeep;
begin
GetProcedureAddress(_MessageBeep, user32, 'MessageBeep');
asm
mov esp, ebp
pop ebp
jmp [_MessageBeep]
end;
end;
{$ELSE}
function MessageBeep; external user32 name 'MessageBeep';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ShowCursor: Pointer;
function ShowCursor;
begin
GetProcedureAddress(_ShowCursor, user32, 'ShowCursor');
asm
mov esp, ebp
pop ebp
jmp [_ShowCursor]
end;
end;
{$ELSE}
function ShowCursor; external user32 name 'ShowCursor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetCursorPos: Pointer;
function SetCursorPos;
begin
GetProcedureAddress(_SetCursorPos, user32, 'SetCursorPos');
asm
mov esp, ebp
pop ebp
jmp [_SetCursorPos]
end;
end;
{$ELSE}
function SetCursorPos; external user32 name 'SetCursorPos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetCursor: Pointer;
function SetCursor;
begin
GetProcedureAddress(_SetCursor, user32, 'SetCursor');
asm
mov esp, ebp
pop ebp
jmp [_SetCursor]
end;
end;
{$ELSE}
function SetCursor; external user32 name 'SetCursor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCursorPos: Pointer;
function GetCursorPos;
begin
GetProcedureAddress(_GetCursorPos, user32, 'GetCursorPos');
asm
mov esp, ebp
pop ebp
jmp [_GetCursorPos]
end;
end;
{$ELSE}
function GetCursorPos; external user32 name 'GetCursorPos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ClipCursor: Pointer;
function ClipCursor;
begin
GetProcedureAddress(_ClipCursor, user32, 'ClipCursor');
asm
mov esp, ebp
pop ebp
jmp [_ClipCursor]
end;
end;
{$ELSE}
function ClipCursor; external user32 name 'ClipCursor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClipCursor: Pointer;
function GetClipCursor;
begin
GetProcedureAddress(_GetClipCursor, user32, 'GetClipCursor');
asm
mov esp, ebp
pop ebp
jmp [_GetClipCursor]
end;
end;
{$ELSE}
function GetClipCursor; external user32 name 'GetClipCursor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCursor: Pointer;
function GetCursor;
begin
GetProcedureAddress(_GetCursor, user32, 'GetCursor');
asm
mov esp, ebp
pop ebp
jmp [_GetCursor]
end;
end;
{$ELSE}
function GetCursor; external user32 name 'GetCursor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateCaret: Pointer;
function CreateCaret;
begin
GetProcedureAddress(_CreateCaret, user32, 'CreateCaret');
asm
mov esp, ebp
pop ebp
jmp [_CreateCaret]
end;
end;
{$ELSE}
function CreateCaret; external user32 name 'CreateCaret';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCaretBlinkTime: Pointer;
function GetCaretBlinkTime;
begin
GetProcedureAddress(_GetCaretBlinkTime, user32, 'GetCaretBlinkTime');
asm
mov esp, ebp
pop ebp
jmp [_GetCaretBlinkTime]
end;
end;
{$ELSE}
function GetCaretBlinkTime; external user32 name 'GetCaretBlinkTime';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetCaretBlinkTime: Pointer;
function SetCaretBlinkTime;
begin
GetProcedureAddress(_SetCaretBlinkTime, user32, 'SetCaretBlinkTime');
asm
mov esp, ebp
pop ebp
jmp [_SetCaretBlinkTime]
end;
end;
{$ELSE}
function SetCaretBlinkTime; external user32 name 'SetCaretBlinkTime';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DestroyCaret: Pointer;
function DestroyCaret;
begin
GetProcedureAddress(_DestroyCaret, user32, 'DestroyCaret');
asm
mov esp, ebp
pop ebp
jmp [_DestroyCaret]
end;
end;
{$ELSE}
function DestroyCaret; external user32 name 'DestroyCaret';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_HideCaret: Pointer;
function HideCaret;
begin
GetProcedureAddress(_HideCaret, user32, 'HideCaret');
asm
mov esp, ebp
pop ebp
jmp [_HideCaret]
end;
end;
{$ELSE}
function HideCaret; external user32 name 'HideCaret';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ShowCaret: Pointer;
function ShowCaret;
begin
GetProcedureAddress(_ShowCaret, user32, 'ShowCaret');
asm
mov esp, ebp
pop ebp
jmp [_ShowCaret]
end;
end;
{$ELSE}
function ShowCaret; external user32 name 'ShowCaret';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetCaretPos: Pointer;
function SetCaretPos;
begin
GetProcedureAddress(_SetCaretPos, user32, 'SetCaretPos');
asm
mov esp, ebp
pop ebp
jmp [_SetCaretPos]
end;
end;
{$ELSE}
function SetCaretPos; external user32 name 'SetCaretPos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCaretPos: Pointer;
function GetCaretPos;
begin
GetProcedureAddress(_GetCaretPos, user32, 'GetCaretPos');
asm
mov esp, ebp
pop ebp
jmp [_GetCaretPos]
end;
end;
{$ELSE}
function GetCaretPos; external user32 name 'GetCaretPos';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ClientToScreen: Pointer;
function ClientToScreen;
begin
GetProcedureAddress(_ClientToScreen, user32, 'ClientToScreen');
asm
mov esp, ebp
pop ebp
jmp [_ClientToScreen]
end;
end;
{$ELSE}
function ClientToScreen; external user32 name 'ClientToScreen';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ScreenToClient: Pointer;
function ScreenToClient;
begin
GetProcedureAddress(_ScreenToClient, user32, 'ScreenToClient');
asm
mov esp, ebp
pop ebp
jmp [_ScreenToClient]
end;
end;
{$ELSE}
function ScreenToClient; external user32 name 'ScreenToClient';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MapWindowPoints: Pointer;
function MapWindowPoints;
begin
GetProcedureAddress(_MapWindowPoints, user32, 'MapWindowPoints');
asm
mov esp, ebp
pop ebp
jmp [_MapWindowPoints]
end;
end;
{$ELSE}
function MapWindowPoints; external user32 name 'MapWindowPoints';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WindowFromPoint: Pointer;
function WindowFromPoint;
begin
GetProcedureAddress(_WindowFromPoint, user32, 'WindowFromPoint');
asm
mov esp, ebp
pop ebp
jmp [_WindowFromPoint]
end;
end;
{$ELSE}
function WindowFromPoint; external user32 name 'WindowFromPoint';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ChildWindowFromPoint: Pointer;
function ChildWindowFromPoint;
begin
GetProcedureAddress(_ChildWindowFromPoint, user32, 'ChildWindowFromPoint');
asm
mov esp, ebp
pop ebp
jmp [_ChildWindowFromPoint]
end;
end;
{$ELSE}
function ChildWindowFromPoint; external user32 name 'ChildWindowFromPoint';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ChildWindowFromPointEx: Pointer;
function ChildWindowFromPointEx;
begin
GetProcedureAddress(_ChildWindowFromPointEx, user32, 'ChildWindowFromPointEx');
asm
mov esp, ebp
pop ebp
jmp [_ChildWindowFromPointEx]
end;
end;
{$ELSE}
function ChildWindowFromPointEx; external user32 name 'ChildWindowFromPointEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSysColor: Pointer;
function GetSysColor;
begin
GetProcedureAddress(_GetSysColor, user32, 'GetSysColor');
asm
mov esp, ebp
pop ebp
jmp [_GetSysColor]
end;
end;
{$ELSE}
function GetSysColor; external user32 name 'GetSysColor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSysColorBrush: Pointer;
function GetSysColorBrush;
begin
GetProcedureAddress(_GetSysColorBrush, user32, 'GetSysColorBrush');
asm
mov esp, ebp
pop ebp
jmp [_GetSysColorBrush]
end;
end;
{$ELSE}
function GetSysColorBrush; external user32 name 'GetSysColorBrush';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetSysColors: Pointer;
function SetSysColors;
begin
GetProcedureAddress(_SetSysColors, user32, 'SetSysColors');
asm
mov esp, ebp
pop ebp
jmp [_SetSysColors]
end;
end;
{$ELSE}
function SetSysColors; external user32 name 'SetSysColors';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawFocusRect: Pointer;
function DrawFocusRect;
begin
GetProcedureAddress(_DrawFocusRect, user32, 'DrawFocusRect');
asm
mov esp, ebp
pop ebp
jmp [_DrawFocusRect]
end;
end;
{$ELSE}
function DrawFocusRect; external user32 name 'DrawFocusRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FillRect: Pointer;
function FillRect;
begin
GetProcedureAddress(_FillRect, user32, 'FillRect');
asm
mov esp, ebp
pop ebp
jmp [_FillRect]
end;
end;
{$ELSE}
function FillRect; external user32 name 'FillRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FrameRect: Pointer;
function FrameRect;
begin
GetProcedureAddress(_FrameRect, user32, 'FrameRect');
asm
mov esp, ebp
pop ebp
jmp [_FrameRect]
end;
end;
{$ELSE}
function FrameRect; external user32 name 'FrameRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InvertRect: Pointer;
function InvertRect;
begin
GetProcedureAddress(_InvertRect, user32, 'InvertRect');
asm
mov esp, ebp
pop ebp
jmp [_InvertRect]
end;
end;
{$ELSE}
function InvertRect; external user32 name 'InvertRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetRect: Pointer;
function SetRect;
begin
GetProcedureAddress(_SetRect, user32, 'SetRect');
asm
mov esp, ebp
pop ebp
jmp [_SetRect]
end;
end;
{$ELSE}
function SetRect; external user32 name 'SetRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetRectEmpty: Pointer;
function SetRectEmpty;
begin
GetProcedureAddress(_SetRectEmpty, user32, 'SetRectEmpty');
asm
mov esp, ebp
pop ebp
jmp [_SetRectEmpty]
end;
end;
{$ELSE}
function SetRectEmpty; external user32 name 'SetRectEmpty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CopyRect: Pointer;
function CopyRect;
begin
GetProcedureAddress(_CopyRect, user32, 'CopyRect');
asm
mov esp, ebp
pop ebp
jmp [_CopyRect]
end;
end;
{$ELSE}
function CopyRect; external user32 name 'CopyRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InflateRect: Pointer;
function InflateRect;
begin
GetProcedureAddress(_InflateRect, user32, 'InflateRect');
asm
mov esp, ebp
pop ebp
jmp [_InflateRect]
end;
end;
{$ELSE}
function InflateRect; external user32 name 'InflateRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IntersectRect: Pointer;
function IntersectRect;
begin
GetProcedureAddress(_IntersectRect, user32, 'IntersectRect');
asm
mov esp, ebp
pop ebp
jmp [_IntersectRect]
end;
end;
{$ELSE}
function IntersectRect; external user32 name 'IntersectRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UnionRect: Pointer;
function UnionRect;
begin
GetProcedureAddress(_UnionRect, user32, 'UnionRect');
asm
mov esp, ebp
pop ebp
jmp [_UnionRect]
end;
end;
{$ELSE}
function UnionRect; external user32 name 'UnionRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SubtractRect: Pointer;
function SubtractRect;
begin
GetProcedureAddress(_SubtractRect, user32, 'SubtractRect');
asm
mov esp, ebp
pop ebp
jmp [_SubtractRect]
end;
end;
{$ELSE}
function SubtractRect; external user32 name 'SubtractRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OffsetRect: Pointer;
function OffsetRect;
begin
GetProcedureAddress(_OffsetRect, user32, 'OffsetRect');
asm
mov esp, ebp
pop ebp
jmp [_OffsetRect]
end;
end;
{$ELSE}
function OffsetRect; external user32 name 'OffsetRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsRectEmpty: Pointer;
function IsRectEmpty;
begin
GetProcedureAddress(_IsRectEmpty, user32, 'IsRectEmpty');
asm
mov esp, ebp
pop ebp
jmp [_IsRectEmpty]
end;
end;
{$ELSE}
function IsRectEmpty; external user32 name 'IsRectEmpty';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EqualRect: Pointer;
function EqualRect;
begin
GetProcedureAddress(_EqualRect, user32, 'EqualRect');
asm
mov esp, ebp
pop ebp
jmp [_EqualRect]
end;
end;
{$ELSE}
function EqualRect; external user32 name 'EqualRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PtInRect: Pointer;
function PtInRect;
begin
GetProcedureAddress(_PtInRect, user32, 'PtInRect');
asm
mov esp, ebp
pop ebp
jmp [_PtInRect]
end;
end;
{$ELSE}
function PtInRect; external user32 name 'PtInRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowWord: Pointer;
function GetWindowWord;
begin
GetProcedureAddress(_GetWindowWord, user32, 'GetWindowWord');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowWord]
end;
end;
{$ELSE}
function GetWindowWord; external user32 name 'GetWindowWord';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowWord: Pointer;
function SetWindowWord;
begin
GetProcedureAddress(_SetWindowWord, user32, 'SetWindowWord');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowWord]
end;
end;
{$ELSE}
function SetWindowWord; external user32 name 'SetWindowWord';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowLongA: Pointer;
function GetWindowLongA;
begin
GetProcedureAddress(_GetWindowLongA, user32, 'GetWindowLongA');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowLongA]
end;
end;
{$ELSE}
function GetWindowLongA; external user32 name 'GetWindowLongA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowLongW: Pointer;
function GetWindowLongW;
begin
GetProcedureAddress(_GetWindowLongW, user32, 'GetWindowLongW');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowLongW]
end;
end;
{$ELSE}
function GetWindowLongW; external user32 name 'GetWindowLongW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowLong: Pointer;
function GetWindowLong;
begin
GetProcedureAddress(_GetWindowLong, user32, 'GetWindowLongW');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowLong]
end;
end;
{$ELSE}
function GetWindowLong; external user32 name 'GetWindowLongW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowLong: Pointer;
function GetWindowLong;
begin
GetProcedureAddress(_GetWindowLong, user32, 'GetWindowLongA');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowLong]
end;
end;
{$ELSE}
function GetWindowLong; external user32 name 'GetWindowLongA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowLongA: Pointer;
function SetWindowLongA;
begin
GetProcedureAddress(_SetWindowLongA, user32, 'SetWindowLongA');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowLongA]
end;
end;
{$ELSE}
function SetWindowLongA; external user32 name 'SetWindowLongA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowLongW: Pointer;
function SetWindowLongW;
begin
GetProcedureAddress(_SetWindowLongW, user32, 'SetWindowLongW');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowLongW]
end;
end;
{$ELSE}
function SetWindowLongW; external user32 name 'SetWindowLongW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowLong: Pointer;
function SetWindowLong;
begin
GetProcedureAddress(_SetWindowLong, user32, 'SetWindowLongW');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowLong]
end;
end;
{$ELSE}
function SetWindowLong; external user32 name 'SetWindowLongW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowLong: Pointer;
function SetWindowLong;
begin
GetProcedureAddress(_SetWindowLong, user32, 'SetWindowLongA');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowLong]
end;
end;
{$ELSE}
function SetWindowLong; external user32 name 'SetWindowLongA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetClassWord: Pointer;
function GetClassWord;
begin
GetProcedureAddress(_GetClassWord, user32, 'GetClassWord');
asm
mov esp, ebp
pop ebp
jmp [_GetClassWord]
end;
end;
{$ELSE}
function GetClassWord; external user32 name 'GetClassWord';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetClassWord: Pointer;
function SetClassWord;
begin
GetProcedureAddress(_SetClassWord, user32, 'SetClassWord');
asm
mov esp, ebp
pop ebp
jmp [_SetClassWord]
end;
end;
{$ELSE}
function SetClassWord; external user32 name 'SetClassWord';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClassLongA: Pointer;
function GetClassLongA;
begin
GetProcedureAddress(_GetClassLongA, user32, 'GetClassLongA');
asm
mov esp, ebp
pop ebp
jmp [_GetClassLongA]
end;
end;
{$ELSE}
function GetClassLongA; external user32 name 'GetClassLongA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClassLongW: Pointer;
function GetClassLongW;
begin
GetProcedureAddress(_GetClassLongW, user32, 'GetClassLongW');
asm
mov esp, ebp
pop ebp
jmp [_GetClassLongW]
end;
end;
{$ELSE}
function GetClassLongW; external user32 name 'GetClassLongW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetClassLong: Pointer;
function GetClassLong;
begin
GetProcedureAddress(_GetClassLong, user32, 'GetClassLongW');
asm
mov esp, ebp
pop ebp
jmp [_GetClassLong]
end;
end;
{$ELSE}
function GetClassLong; external user32 name 'GetClassLongW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetClassLong: Pointer;
function GetClassLong;
begin
GetProcedureAddress(_GetClassLong, user32, 'GetClassLongA');
asm
mov esp, ebp
pop ebp
jmp [_GetClassLong]
end;
end;
{$ELSE}
function GetClassLong; external user32 name 'GetClassLongA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetClassLongA: Pointer;
function SetClassLongA;
begin
GetProcedureAddress(_SetClassLongA, user32, 'SetClassLongA');
asm
mov esp, ebp
pop ebp
jmp [_SetClassLongA]
end;
end;
{$ELSE}
function SetClassLongA; external user32 name 'SetClassLongA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetClassLongW: Pointer;
function SetClassLongW;
begin
GetProcedureAddress(_SetClassLongW, user32, 'SetClassLongW');
asm
mov esp, ebp
pop ebp
jmp [_SetClassLongW]
end;
end;
{$ELSE}
function SetClassLongW; external user32 name 'SetClassLongW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetClassLong: Pointer;
function SetClassLong;
begin
GetProcedureAddress(_SetClassLong, user32, 'SetClassLongW');
asm
mov esp, ebp
pop ebp
jmp [_SetClassLong]
end;
end;
{$ELSE}
function SetClassLong; external user32 name 'SetClassLongW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetClassLong: Pointer;
function SetClassLong;
begin
GetProcedureAddress(_SetClassLong, user32, 'SetClassLongA');
asm
mov esp, ebp
pop ebp
jmp [_SetClassLong]
end;
end;
{$ELSE}
function SetClassLong; external user32 name 'SetClassLongA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetProcessDefaultLayout: Pointer;
function GetProcessDefaultLayout;
begin
GetProcedureAddress(_GetProcessDefaultLayout, user32, 'GetProcessDefaultLayout');
asm
mov esp, ebp
pop ebp
jmp [_GetProcessDefaultLayout]
end;
end;
{$ELSE}
function GetProcessDefaultLayout; external user32 name 'GetProcessDefaultLayout';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetProcessDefaultLayout: Pointer;
function SetProcessDefaultLayout;
begin
GetProcedureAddress(_SetProcessDefaultLayout, user32, 'SetProcessDefaultLayout');
asm
mov esp, ebp
pop ebp
jmp [_SetProcessDefaultLayout]
end;
end;
{$ELSE}
function SetProcessDefaultLayout; external user32 name 'SetProcessDefaultLayout';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDesktopWindow: Pointer;
function GetDesktopWindow;
begin
GetProcedureAddress(_GetDesktopWindow, user32, 'GetDesktopWindow');
asm
mov esp, ebp
pop ebp
jmp [_GetDesktopWindow]
end;
end;
{$ELSE}
function GetDesktopWindow; external user32 name 'GetDesktopWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetParent: Pointer;
function GetParent;
begin
GetProcedureAddress(_GetParent, user32, 'GetParent');
asm
mov esp, ebp
pop ebp
jmp [_GetParent]
end;
end;
{$ELSE}
function GetParent; external user32 name 'GetParent';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetParent: Pointer;
function SetParent;
begin
GetProcedureAddress(_SetParent, user32, 'SetParent');
asm
mov esp, ebp
pop ebp
jmp [_SetParent]
end;
end;
{$ELSE}
function SetParent; external user32 name 'SetParent';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumChildWindows: Pointer;
function EnumChildWindows;
begin
GetProcedureAddress(_EnumChildWindows, user32, 'EnumChildWindows');
asm
mov esp, ebp
pop ebp
jmp [_EnumChildWindows]
end;
end;
{$ELSE}
function EnumChildWindows; external user32 name 'EnumChildWindows';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindWindowA: Pointer;
function FindWindowA;
begin
GetProcedureAddress(_FindWindowA, user32, 'FindWindowA');
asm
mov esp, ebp
pop ebp
jmp [_FindWindowA]
end;
end;
{$ELSE}
function FindWindowA; external user32 name 'FindWindowA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindWindowW: Pointer;
function FindWindowW;
begin
GetProcedureAddress(_FindWindowW, user32, 'FindWindowW');
asm
mov esp, ebp
pop ebp
jmp [_FindWindowW]
end;
end;
{$ELSE}
function FindWindowW; external user32 name 'FindWindowW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindWindow: Pointer;
function FindWindow;
begin
GetProcedureAddress(_FindWindow, user32, 'FindWindowW');
asm
mov esp, ebp
pop ebp
jmp [_FindWindow]
end;
end;
{$ELSE}
function FindWindow; external user32 name 'FindWindowW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindWindow: Pointer;
function FindWindow;
begin
GetProcedureAddress(_FindWindow, user32, 'FindWindowA');
asm
mov esp, ebp
pop ebp
jmp [_FindWindow]
end;
end;
{$ELSE}
function FindWindow; external user32 name 'FindWindowA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindWindowExA: Pointer;
function FindWindowExA;
begin
GetProcedureAddress(_FindWindowExA, user32, 'FindWindowExA');
asm
mov esp, ebp
pop ebp
jmp [_FindWindowExA]
end;
end;
{$ELSE}
function FindWindowExA; external user32 name 'FindWindowExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindWindowExW: Pointer;
function FindWindowExW;
begin
GetProcedureAddress(_FindWindowExW, user32, 'FindWindowExW');
asm
mov esp, ebp
pop ebp
jmp [_FindWindowExW]
end;
end;
{$ELSE}
function FindWindowExW; external user32 name 'FindWindowExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindWindowEx: Pointer;
function FindWindowEx;
begin
GetProcedureAddress(_FindWindowEx, user32, 'FindWindowExW');
asm
mov esp, ebp
pop ebp
jmp [_FindWindowEx]
end;
end;
{$ELSE}
function FindWindowEx; external user32 name 'FindWindowExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindWindowEx: Pointer;
function FindWindowEx;
begin
GetProcedureAddress(_FindWindowEx, user32, 'FindWindowExA');
asm
mov esp, ebp
pop ebp
jmp [_FindWindowEx]
end;
end;
{$ELSE}
function FindWindowEx; external user32 name 'FindWindowExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetShellWindow: Pointer;
function GetShellWindow;
begin
GetProcedureAddress(_GetShellWindow, user32, 'GetShellWindow');
asm
mov esp, ebp
pop ebp
jmp [_GetShellWindow]
end;
end;
{$ELSE}
function GetShellWindow; external user32 name 'GetShellWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumWindows: Pointer;
function EnumWindows;
begin
GetProcedureAddress(_EnumWindows, user32, 'EnumWindows');
asm
mov esp, ebp
pop ebp
jmp [_EnumWindows]
end;
end;
{$ELSE}
function EnumWindows; external user32 name 'EnumWindows';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumThreadWindows: Pointer;
function EnumThreadWindows;
begin
GetProcedureAddress(_EnumThreadWindows, user32, 'EnumThreadWindows');
asm
mov esp, ebp
pop ebp
jmp [_EnumThreadWindows]
end;
end;
{$ELSE}
function EnumThreadWindows; external user32 name 'EnumThreadWindows';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClassNameA: Pointer;
function GetClassNameA;
begin
GetProcedureAddress(_GetClassNameA, user32, 'GetClassNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetClassNameA]
end;
end;
{$ELSE}
function GetClassNameA; external user32 name 'GetClassNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClassNameW: Pointer;
function GetClassNameW;
begin
GetProcedureAddress(_GetClassNameW, user32, 'GetClassNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetClassNameW]
end;
end;
{$ELSE}
function GetClassNameW; external user32 name 'GetClassNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetClassName: Pointer;
function GetClassName;
begin
GetProcedureAddress(_GetClassName, user32, 'GetClassNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetClassName]
end;
end;
{$ELSE}
function GetClassName; external user32 name 'GetClassNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetClassName: Pointer;
function GetClassName;
begin
GetProcedureAddress(_GetClassName, user32, 'GetClassNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetClassName]
end;
end;
{$ELSE}
function GetClassName; external user32 name 'GetClassNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetTopWindow: Pointer;
function GetTopWindow;
begin
GetProcedureAddress(_GetTopWindow, user32, 'GetTopWindow');
asm
mov esp, ebp
pop ebp
jmp [_GetTopWindow]
end;
end;
{$ELSE}
function GetTopWindow; external user32 name 'GetTopWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowThreadProcessId: Pointer;
function GetWindowThreadProcessId;
begin
GetProcedureAddress(_GetWindowThreadProcessId, user32, 'GetWindowThreadProcessId');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowThreadProcessId]
end;
end;
{$ELSE}
function GetWindowThreadProcessId; external user32 name 'GetWindowThreadProcessId';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsGUIThread: Pointer;
function IsGUIThread;
begin
GetProcedureAddress(_IsGUIThread, user32, 'IsGUIThread');
asm
mov esp, ebp
pop ebp
jmp [_IsGUIThread]
end;
end;
{$ELSE}
function IsGUIThread; external user32 name 'IsGUIThread';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetLastActivePopup: Pointer;
function GetLastActivePopup;
begin
GetProcedureAddress(_GetLastActivePopup, user32, 'GetLastActivePopup');
asm
mov esp, ebp
pop ebp
jmp [_GetLastActivePopup]
end;
end;
{$ELSE}
function GetLastActivePopup; external user32 name 'GetLastActivePopup';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindow: Pointer;
function GetWindow;
begin
GetProcedureAddress(_GetWindow, user32, 'GetWindow');
asm
mov esp, ebp
pop ebp
jmp [_GetWindow]
end;
end;
{$ELSE}
function GetWindow; external user32 name 'GetWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowsHookA: Pointer;
function SetWindowsHookA;
begin
GetProcedureAddress(_SetWindowsHookA, user32, 'SetWindowsHookA');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowsHookA]
end;
end;
{$ELSE}
function SetWindowsHookA; external user32 name 'SetWindowsHookA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowsHookW: Pointer;
function SetWindowsHookW;
begin
GetProcedureAddress(_SetWindowsHookW, user32, 'SetWindowsHookW');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowsHookW]
end;
end;
{$ELSE}
function SetWindowsHookW; external user32 name 'SetWindowsHookW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowsHook: Pointer;
function SetWindowsHook;
begin
GetProcedureAddress(_SetWindowsHook, user32, 'SetWindowsHookW');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowsHook]
end;
end;
{$ELSE}
function SetWindowsHook; external user32 name 'SetWindowsHookW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowsHook: Pointer;
function SetWindowsHook;
begin
GetProcedureAddress(_SetWindowsHook, user32, 'SetWindowsHookA');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowsHook]
end;
end;
{$ELSE}
function SetWindowsHook; external user32 name 'SetWindowsHookA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_UnhookWindowsHook: Pointer;
function UnhookWindowsHook;
begin
GetProcedureAddress(_UnhookWindowsHook, user32, 'UnhookWindowsHook');
asm
mov esp, ebp
pop ebp
jmp [_UnhookWindowsHook]
end;
end;
{$ELSE}
function UnhookWindowsHook; external user32 name 'UnhookWindowsHook';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowsHookExA: Pointer;
function SetWindowsHookExA;
begin
GetProcedureAddress(_SetWindowsHookExA, user32, 'SetWindowsHookExA');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowsHookExA]
end;
end;
{$ELSE}
function SetWindowsHookExA; external user32 name 'SetWindowsHookExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowsHookExW: Pointer;
function SetWindowsHookExW;
begin
GetProcedureAddress(_SetWindowsHookExW, user32, 'SetWindowsHookExW');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowsHookExW]
end;
end;
{$ELSE}
function SetWindowsHookExW; external user32 name 'SetWindowsHookExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowsHookEx: Pointer;
function SetWindowsHookEx;
begin
GetProcedureAddress(_SetWindowsHookEx, user32, 'SetWindowsHookExW');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowsHookEx]
end;
end;
{$ELSE}
function SetWindowsHookEx; external user32 name 'SetWindowsHookExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowsHookEx: Pointer;
function SetWindowsHookEx;
begin
GetProcedureAddress(_SetWindowsHookEx, user32, 'SetWindowsHookExA');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowsHookEx]
end;
end;
{$ELSE}
function SetWindowsHookEx; external user32 name 'SetWindowsHookExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_UnhookWindowsHookEx: Pointer;
function UnhookWindowsHookEx;
begin
GetProcedureAddress(_UnhookWindowsHookEx, user32, 'UnhookWindowsHookEx');
asm
mov esp, ebp
pop ebp
jmp [_UnhookWindowsHookEx]
end;
end;
{$ELSE}
function UnhookWindowsHookEx; external user32 name 'UnhookWindowsHookEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CallNextHookEx: Pointer;
function CallNextHookEx;
begin
GetProcedureAddress(_CallNextHookEx, user32, 'CallNextHookEx');
asm
mov esp, ebp
pop ebp
jmp [_CallNextHookEx]
end;
end;
{$ELSE}
function CallNextHookEx; external user32 name 'CallNextHookEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CheckMenuRadioItem: Pointer;
function CheckMenuRadioItem;
begin
GetProcedureAddress(_CheckMenuRadioItem, user32, 'CheckMenuRadioItem');
asm
mov esp, ebp
pop ebp
jmp [_CheckMenuRadioItem]
end;
end;
{$ELSE}
function CheckMenuRadioItem; external user32 name 'CheckMenuRadioItem';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadBitmapA: Pointer;
function LoadBitmapA;
begin
GetProcedureAddress(_LoadBitmapA, user32, 'LoadBitmapA');
asm
mov esp, ebp
pop ebp
jmp [_LoadBitmapA]
end;
end;
{$ELSE}
function LoadBitmapA; external user32 name 'LoadBitmapA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadBitmapW: Pointer;
function LoadBitmapW;
begin
GetProcedureAddress(_LoadBitmapW, user32, 'LoadBitmapW');
asm
mov esp, ebp
pop ebp
jmp [_LoadBitmapW]
end;
end;
{$ELSE}
function LoadBitmapW; external user32 name 'LoadBitmapW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadBitmap: Pointer;
function LoadBitmap;
begin
GetProcedureAddress(_LoadBitmap, user32, 'LoadBitmapW');
asm
mov esp, ebp
pop ebp
jmp [_LoadBitmap]
end;
end;
{$ELSE}
function LoadBitmap; external user32 name 'LoadBitmapW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadBitmap: Pointer;
function LoadBitmap;
begin
GetProcedureAddress(_LoadBitmap, user32, 'LoadBitmapA');
asm
mov esp, ebp
pop ebp
jmp [_LoadBitmap]
end;
end;
{$ELSE}
function LoadBitmap; external user32 name 'LoadBitmapA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LoadCursorA: Pointer;
function LoadCursorA;
begin
GetProcedureAddress(_LoadCursorA, user32, 'LoadCursorA');
asm
mov esp, ebp
pop ebp
jmp [_LoadCursorA]
end;
end;
{$ELSE}
function LoadCursorA; external user32 name 'LoadCursorA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadCursorW: Pointer;
function LoadCursorW;
begin
GetProcedureAddress(_LoadCursorW, user32, 'LoadCursorW');
asm
mov esp, ebp
pop ebp
jmp [_LoadCursorW]
end;
end;
{$ELSE}
function LoadCursorW; external user32 name 'LoadCursorW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadCursor: Pointer;
function LoadCursor;
begin
GetProcedureAddress(_LoadCursor, user32, 'LoadCursorW');
asm
mov esp, ebp
pop ebp
jmp [_LoadCursor]
end;
end;
{$ELSE}
function LoadCursor; external user32 name 'LoadCursorW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadCursor: Pointer;
function LoadCursor;
begin
GetProcedureAddress(_LoadCursor, user32, 'LoadCursorA');
asm
mov esp, ebp
pop ebp
jmp [_LoadCursor]
end;
end;
{$ELSE}
function LoadCursor; external user32 name 'LoadCursorA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LoadCursorFromFileA: Pointer;
function LoadCursorFromFileA;
begin
GetProcedureAddress(_LoadCursorFromFileA, user32, 'LoadCursorFromFileA');
asm
mov esp, ebp
pop ebp
jmp [_LoadCursorFromFileA]
end;
end;
{$ELSE}
function LoadCursorFromFileA; external user32 name 'LoadCursorFromFileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadCursorFromFileW: Pointer;
function LoadCursorFromFileW;
begin
GetProcedureAddress(_LoadCursorFromFileW, user32, 'LoadCursorFromFileW');
asm
mov esp, ebp
pop ebp
jmp [_LoadCursorFromFileW]
end;
end;
{$ELSE}
function LoadCursorFromFileW; external user32 name 'LoadCursorFromFileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadCursorFromFile: Pointer;
function LoadCursorFromFile;
begin
GetProcedureAddress(_LoadCursorFromFile, user32, 'LoadCursorFromFileW');
asm
mov esp, ebp
pop ebp
jmp [_LoadCursorFromFile]
end;
end;
{$ELSE}
function LoadCursorFromFile; external user32 name 'LoadCursorFromFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadCursorFromFile: Pointer;
function LoadCursorFromFile;
begin
GetProcedureAddress(_LoadCursorFromFile, user32, 'LoadCursorFromFileA');
asm
mov esp, ebp
pop ebp
jmp [_LoadCursorFromFile]
end;
end;
{$ELSE}
function LoadCursorFromFile; external user32 name 'LoadCursorFromFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateCursor: Pointer;
function CreateCursor;
begin
GetProcedureAddress(_CreateCursor, user32, 'CreateCursor');
asm
mov esp, ebp
pop ebp
jmp [_CreateCursor]
end;
end;
{$ELSE}
function CreateCursor; external user32 name 'CreateCursor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DestroyCursor: Pointer;
function DestroyCursor;
begin
GetProcedureAddress(_DestroyCursor, user32, 'DestroyCursor');
asm
mov esp, ebp
pop ebp
jmp [_DestroyCursor]
end;
end;
{$ELSE}
function DestroyCursor; external user32 name 'DestroyCursor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetSystemCursor: Pointer;
function SetSystemCursor;
begin
GetProcedureAddress(_SetSystemCursor, user32, 'SetSystemCursor');
asm
mov esp, ebp
pop ebp
jmp [_SetSystemCursor]
end;
end;
{$ELSE}
function SetSystemCursor; external user32 name 'SetSystemCursor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadIconA: Pointer;
function LoadIconA;
begin
GetProcedureAddress(_LoadIconA, user32, 'LoadIconA');
asm
mov esp, ebp
pop ebp
jmp [_LoadIconA]
end;
end;
{$ELSE}
function LoadIconA; external user32 name 'LoadIconA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadIconW: Pointer;
function LoadIconW;
begin
GetProcedureAddress(_LoadIconW, user32, 'LoadIconW');
asm
mov esp, ebp
pop ebp
jmp [_LoadIconW]
end;
end;
{$ELSE}
function LoadIconW; external user32 name 'LoadIconW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadIcon: Pointer;
function LoadIcon;
begin
GetProcedureAddress(_LoadIcon, user32, 'LoadIconW');
asm
mov esp, ebp
pop ebp
jmp [_LoadIcon]
end;
end;
{$ELSE}
function LoadIcon; external user32 name 'LoadIconW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadIcon: Pointer;
function LoadIcon;
begin
GetProcedureAddress(_LoadIcon, user32, 'LoadIconA');
asm
mov esp, ebp
pop ebp
jmp [_LoadIcon]
end;
end;
{$ELSE}
function LoadIcon; external user32 name 'LoadIconA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_PrivateExtractIconsA: Pointer;
function PrivateExtractIconsA;
begin
GetProcedureAddress(_PrivateExtractIconsA, user32, 'PrivateExtractIconsA');
asm
mov esp, ebp
pop ebp
jmp [_PrivateExtractIconsA]
end;
end;
{$ELSE}
function PrivateExtractIconsA; external user32 name 'PrivateExtractIconsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PrivateExtractIconsW: Pointer;
function PrivateExtractIconsW;
begin
GetProcedureAddress(_PrivateExtractIconsW, user32, 'PrivateExtractIconsW');
asm
mov esp, ebp
pop ebp
jmp [_PrivateExtractIconsW]
end;
end;
{$ELSE}
function PrivateExtractIconsW; external user32 name 'PrivateExtractIconsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_PrivateExtractIcons: Pointer;
function PrivateExtractIcons;
begin
GetProcedureAddress(_PrivateExtractIcons, user32, 'PrivateExtractIconsW');
asm
mov esp, ebp
pop ebp
jmp [_PrivateExtractIcons]
end;
end;
{$ELSE}
function PrivateExtractIcons; external user32 name 'PrivateExtractIconsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_PrivateExtractIcons: Pointer;
function PrivateExtractIcons;
begin
GetProcedureAddress(_PrivateExtractIcons, user32, 'PrivateExtractIconsA');
asm
mov esp, ebp
pop ebp
jmp [_PrivateExtractIcons]
end;
end;
{$ELSE}
function PrivateExtractIcons; external user32 name 'PrivateExtractIconsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateIcon: Pointer;
function CreateIcon;
begin
GetProcedureAddress(_CreateIcon, user32, 'CreateIcon');
asm
mov esp, ebp
pop ebp
jmp [_CreateIcon]
end;
end;
{$ELSE}
function CreateIcon; external user32 name 'CreateIcon';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DestroyIcon: Pointer;
function DestroyIcon;
begin
GetProcedureAddress(_DestroyIcon, user32, 'DestroyIcon');
asm
mov esp, ebp
pop ebp
jmp [_DestroyIcon]
end;
end;
{$ELSE}
function DestroyIcon; external user32 name 'DestroyIcon';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LookupIconIdFromDirectory: Pointer;
function LookupIconIdFromDirectory;
begin
GetProcedureAddress(_LookupIconIdFromDirectory, user32, 'LookupIconIdFromDirectory');
asm
mov esp, ebp
pop ebp
jmp [_LookupIconIdFromDirectory]
end;
end;
{$ELSE}
function LookupIconIdFromDirectory; external user32 name 'LookupIconIdFromDirectory';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LookupIconIdFromDirectoryEx: Pointer;
function LookupIconIdFromDirectoryEx;
begin
GetProcedureAddress(_LookupIconIdFromDirectoryEx, user32, 'LookupIconIdFromDirectoryEx');
asm
mov esp, ebp
pop ebp
jmp [_LookupIconIdFromDirectoryEx]
end;
end;
{$ELSE}
function LookupIconIdFromDirectoryEx; external user32 name 'LookupIconIdFromDirectoryEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateIconFromResource: Pointer;
function CreateIconFromResource;
begin
GetProcedureAddress(_CreateIconFromResource, user32, 'CreateIconFromResource');
asm
mov esp, ebp
pop ebp
jmp [_CreateIconFromResource]
end;
end;
{$ELSE}
function CreateIconFromResource; external user32 name 'CreateIconFromResource';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateIconFromResourceEx: Pointer;
function CreateIconFromResourceEx;
begin
GetProcedureAddress(_CreateIconFromResourceEx, user32, 'CreateIconFromResourceEx');
asm
mov esp, ebp
pop ebp
jmp [_CreateIconFromResourceEx]
end;
end;
{$ELSE}
function CreateIconFromResourceEx; external user32 name 'CreateIconFromResourceEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadImageA: Pointer;
function LoadImageA;
begin
GetProcedureAddress(_LoadImageA, user32, 'LoadImageA');
asm
mov esp, ebp
pop ebp
jmp [_LoadImageA]
end;
end;
{$ELSE}
function LoadImageA; external user32 name 'LoadImageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadImageW: Pointer;
function LoadImageW;
begin
GetProcedureAddress(_LoadImageW, user32, 'LoadImageW');
asm
mov esp, ebp
pop ebp
jmp [_LoadImageW]
end;
end;
{$ELSE}
function LoadImageW; external user32 name 'LoadImageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadImage: Pointer;
function LoadImage;
begin
GetProcedureAddress(_LoadImage, user32, 'LoadImageW');
asm
mov esp, ebp
pop ebp
jmp [_LoadImage]
end;
end;
{$ELSE}
function LoadImage; external user32 name 'LoadImageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadImage: Pointer;
function LoadImage;
begin
GetProcedureAddress(_LoadImage, user32, 'LoadImageA');
asm
mov esp, ebp
pop ebp
jmp [_LoadImage]
end;
end;
{$ELSE}
function LoadImage; external user32 name 'LoadImageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CopyImage: Pointer;
function CopyImage;
begin
GetProcedureAddress(_CopyImage, user32, 'CopyImage');
asm
mov esp, ebp
pop ebp
jmp [_CopyImage]
end;
end;
{$ELSE}
function CopyImage; external user32 name 'CopyImage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DrawIconEx: Pointer;
function DrawIconEx;
begin
GetProcedureAddress(_DrawIconEx, user32, 'DrawIconEx');
asm
mov esp, ebp
pop ebp
jmp [_DrawIconEx]
end;
end;
{$ELSE}
function DrawIconEx; external user32 name 'DrawIconEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateIconIndirect: Pointer;
function CreateIconIndirect;
begin
GetProcedureAddress(_CreateIconIndirect, user32, 'CreateIconIndirect');
asm
mov esp, ebp
pop ebp
jmp [_CreateIconIndirect]
end;
end;
{$ELSE}
function CreateIconIndirect; external user32 name 'CreateIconIndirect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CopyIcon: Pointer;
function CopyIcon;
begin
GetProcedureAddress(_CopyIcon, user32, 'CopyIcon');
asm
mov esp, ebp
pop ebp
jmp [_CopyIcon]
end;
end;
{$ELSE}
function CopyIcon; external user32 name 'CopyIcon';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetIconInfo: Pointer;
function GetIconInfo;
begin
GetProcedureAddress(_GetIconInfo, user32, 'GetIconInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetIconInfo]
end;
end;
{$ELSE}
function GetIconInfo; external user32 name 'GetIconInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadStringA: Pointer;
function LoadStringA;
begin
GetProcedureAddress(_LoadStringA, user32, 'LoadStringA');
asm
mov esp, ebp
pop ebp
jmp [_LoadStringA]
end;
end;
{$ELSE}
function LoadStringA; external user32 name 'LoadStringA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadStringW: Pointer;
function LoadStringW;
begin
GetProcedureAddress(_LoadStringW, user32, 'LoadStringW');
asm
mov esp, ebp
pop ebp
jmp [_LoadStringW]
end;
end;
{$ELSE}
function LoadStringW; external user32 name 'LoadStringW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadString: Pointer;
function LoadString;
begin
GetProcedureAddress(_LoadString, user32, 'LoadStringW');
asm
mov esp, ebp
pop ebp
jmp [_LoadString]
end;
end;
{$ELSE}
function LoadString; external user32 name 'LoadStringW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadString: Pointer;
function LoadString;
begin
GetProcedureAddress(_LoadString, user32, 'LoadStringA');
asm
mov esp, ebp
pop ebp
jmp [_LoadString]
end;
end;
{$ELSE}
function LoadString; external user32 name 'LoadStringA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_IsDialogMessageA: Pointer;
function IsDialogMessageA;
begin
GetProcedureAddress(_IsDialogMessageA, user32, 'IsDialogMessageA');
asm
mov esp, ebp
pop ebp
jmp [_IsDialogMessageA]
end;
end;
{$ELSE}
function IsDialogMessageA; external user32 name 'IsDialogMessageA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsDialogMessageW: Pointer;
function IsDialogMessageW;
begin
GetProcedureAddress(_IsDialogMessageW, user32, 'IsDialogMessageW');
asm
mov esp, ebp
pop ebp
jmp [_IsDialogMessageW]
end;
end;
{$ELSE}
function IsDialogMessageW; external user32 name 'IsDialogMessageW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_IsDialogMessage: Pointer;
function IsDialogMessage;
begin
GetProcedureAddress(_IsDialogMessage, user32, 'IsDialogMessageW');
asm
mov esp, ebp
pop ebp
jmp [_IsDialogMessage]
end;
end;
{$ELSE}
function IsDialogMessage; external user32 name 'IsDialogMessageW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_IsDialogMessage: Pointer;
function IsDialogMessage;
begin
GetProcedureAddress(_IsDialogMessage, user32, 'IsDialogMessageA');
asm
mov esp, ebp
pop ebp
jmp [_IsDialogMessage]
end;
end;
{$ELSE}
function IsDialogMessage; external user32 name 'IsDialogMessageA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MapDialogRect: Pointer;
function MapDialogRect;
begin
GetProcedureAddress(_MapDialogRect, user32, 'MapDialogRect');
asm
mov esp, ebp
pop ebp
jmp [_MapDialogRect]
end;
end;
{$ELSE}
function MapDialogRect; external user32 name 'MapDialogRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirListA: Pointer;
function DlgDirListA;
begin
GetProcedureAddress(_DlgDirListA, user32, 'DlgDirListA');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirListA]
end;
end;
{$ELSE}
function DlgDirListA; external user32 name 'DlgDirListA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirListW: Pointer;
function DlgDirListW;
begin
GetProcedureAddress(_DlgDirListW, user32, 'DlgDirListW');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirListW]
end;
end;
{$ELSE}
function DlgDirListW; external user32 name 'DlgDirListW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirList: Pointer;
function DlgDirList;
begin
GetProcedureAddress(_DlgDirList, user32, 'DlgDirListW');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirList]
end;
end;
{$ELSE}
function DlgDirList; external user32 name 'DlgDirListW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirList: Pointer;
function DlgDirList;
begin
GetProcedureAddress(_DlgDirList, user32, 'DlgDirListA');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirList]
end;
end;
{$ELSE}
function DlgDirList; external user32 name 'DlgDirListA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirSelectExA: Pointer;
function DlgDirSelectExA;
begin
GetProcedureAddress(_DlgDirSelectExA, user32, 'DlgDirSelectExA');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirSelectExA]
end;
end;
{$ELSE}
function DlgDirSelectExA; external user32 name 'DlgDirSelectExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirSelectExW: Pointer;
function DlgDirSelectExW;
begin
GetProcedureAddress(_DlgDirSelectExW, user32, 'DlgDirSelectExW');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirSelectExW]
end;
end;
{$ELSE}
function DlgDirSelectExW; external user32 name 'DlgDirSelectExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirSelectEx: Pointer;
function DlgDirSelectEx;
begin
GetProcedureAddress(_DlgDirSelectEx, user32, 'DlgDirSelectExW');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirSelectEx]
end;
end;
{$ELSE}
function DlgDirSelectEx; external user32 name 'DlgDirSelectExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirSelectEx: Pointer;
function DlgDirSelectEx;
begin
GetProcedureAddress(_DlgDirSelectEx, user32, 'DlgDirSelectExA');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirSelectEx]
end;
end;
{$ELSE}
function DlgDirSelectEx; external user32 name 'DlgDirSelectExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirListComboBoxA: Pointer;
function DlgDirListComboBoxA;
begin
GetProcedureAddress(_DlgDirListComboBoxA, user32, 'DlgDirListComboBoxA');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirListComboBoxA]
end;
end;
{$ELSE}
function DlgDirListComboBoxA; external user32 name 'DlgDirListComboBoxA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirListComboBoxW: Pointer;
function DlgDirListComboBoxW;
begin
GetProcedureAddress(_DlgDirListComboBoxW, user32, 'DlgDirListComboBoxW');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirListComboBoxW]
end;
end;
{$ELSE}
function DlgDirListComboBoxW; external user32 name 'DlgDirListComboBoxW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirListComboBox: Pointer;
function DlgDirListComboBox;
begin
GetProcedureAddress(_DlgDirListComboBox, user32, 'DlgDirListComboBoxW');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirListComboBox]
end;
end;
{$ELSE}
function DlgDirListComboBox; external user32 name 'DlgDirListComboBoxW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirListComboBox: Pointer;
function DlgDirListComboBox;
begin
GetProcedureAddress(_DlgDirListComboBox, user32, 'DlgDirListComboBoxA');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirListComboBox]
end;
end;
{$ELSE}
function DlgDirListComboBox; external user32 name 'DlgDirListComboBoxA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirSelectComboBoxExA: Pointer;
function DlgDirSelectComboBoxExA;
begin
GetProcedureAddress(_DlgDirSelectComboBoxExA, user32, 'DlgDirSelectComboBoxExA');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirSelectComboBoxExA]
end;
end;
{$ELSE}
function DlgDirSelectComboBoxExA; external user32 name 'DlgDirSelectComboBoxExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirSelectComboBoxExW: Pointer;
function DlgDirSelectComboBoxExW;
begin
GetProcedureAddress(_DlgDirSelectComboBoxExW, user32, 'DlgDirSelectComboBoxExW');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirSelectComboBoxExW]
end;
end;
{$ELSE}
function DlgDirSelectComboBoxExW; external user32 name 'DlgDirSelectComboBoxExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirSelectComboBoxEx: Pointer;
function DlgDirSelectComboBoxEx;
begin
GetProcedureAddress(_DlgDirSelectComboBoxEx, user32, 'DlgDirSelectComboBoxExW');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirSelectComboBoxEx]
end;
end;
{$ELSE}
function DlgDirSelectComboBoxEx; external user32 name 'DlgDirSelectComboBoxExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DlgDirSelectComboBoxEx: Pointer;
function DlgDirSelectComboBoxEx;
begin
GetProcedureAddress(_DlgDirSelectComboBoxEx, user32, 'DlgDirSelectComboBoxExA');
asm
mov esp, ebp
pop ebp
jmp [_DlgDirSelectComboBoxEx]
end;
end;
{$ELSE}
function DlgDirSelectComboBoxEx; external user32 name 'DlgDirSelectComboBoxExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetScrollInfo: Pointer;
function SetScrollInfo;
begin
GetProcedureAddress(_SetScrollInfo, user32, 'SetScrollInfo');
asm
mov esp, ebp
pop ebp
jmp [_SetScrollInfo]
end;
end;
{$ELSE}
function SetScrollInfo; external user32 name 'SetScrollInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetScrollInfo: Pointer;
function GetScrollInfo;
begin
GetProcedureAddress(_GetScrollInfo, user32, 'GetScrollInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetScrollInfo]
end;
end;
{$ELSE}
function GetScrollInfo; external user32 name 'GetScrollInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DefFrameProcA: Pointer;
function DefFrameProcA;
begin
GetProcedureAddress(_DefFrameProcA, user32, 'DefFrameProcA');
asm
mov esp, ebp
pop ebp
jmp [_DefFrameProcA]
end;
end;
{$ELSE}
function DefFrameProcA; external user32 name 'DefFrameProcA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DefFrameProcW: Pointer;
function DefFrameProcW;
begin
GetProcedureAddress(_DefFrameProcW, user32, 'DefFrameProcW');
asm
mov esp, ebp
pop ebp
jmp [_DefFrameProcW]
end;
end;
{$ELSE}
function DefFrameProcW; external user32 name 'DefFrameProcW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DefFrameProc: Pointer;
function DefFrameProc;
begin
GetProcedureAddress(_DefFrameProc, user32, 'DefFrameProcW');
asm
mov esp, ebp
pop ebp
jmp [_DefFrameProc]
end;
end;
{$ELSE}
function DefFrameProc; external user32 name 'DefFrameProcW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DefFrameProc: Pointer;
function DefFrameProc;
begin
GetProcedureAddress(_DefFrameProc, user32, 'DefFrameProcA');
asm
mov esp, ebp
pop ebp
jmp [_DefFrameProc]
end;
end;
{$ELSE}
function DefFrameProc; external user32 name 'DefFrameProcA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DefMDIChildProcA: Pointer;
function DefMDIChildProcA;
begin
GetProcedureAddress(_DefMDIChildProcA, user32, 'DefMDIChildProcA');
asm
mov esp, ebp
pop ebp
jmp [_DefMDIChildProcA]
end;
end;
{$ELSE}
function DefMDIChildProcA; external user32 name 'DefMDIChildProcA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DefMDIChildProcW: Pointer;
function DefMDIChildProcW;
begin
GetProcedureAddress(_DefMDIChildProcW, user32, 'DefMDIChildProcW');
asm
mov esp, ebp
pop ebp
jmp [_DefMDIChildProcW]
end;
end;
{$ELSE}
function DefMDIChildProcW; external user32 name 'DefMDIChildProcW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DefMDIChildProc: Pointer;
function DefMDIChildProc;
begin
GetProcedureAddress(_DefMDIChildProc, user32, 'DefMDIChildProcW');
asm
mov esp, ebp
pop ebp
jmp [_DefMDIChildProc]
end;
end;
{$ELSE}
function DefMDIChildProc; external user32 name 'DefMDIChildProcW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DefMDIChildProc: Pointer;
function DefMDIChildProc;
begin
GetProcedureAddress(_DefMDIChildProc, user32, 'DefMDIChildProcA');
asm
mov esp, ebp
pop ebp
jmp [_DefMDIChildProc]
end;
end;
{$ELSE}
function DefMDIChildProc; external user32 name 'DefMDIChildProcA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_TranslateMDISysAccel: Pointer;
function TranslateMDISysAccel;
begin
GetProcedureAddress(_TranslateMDISysAccel, user32, 'TranslateMDISysAccel');
asm
mov esp, ebp
pop ebp
jmp [_TranslateMDISysAccel]
end;
end;
{$ELSE}
function TranslateMDISysAccel; external user32 name 'TranslateMDISysAccel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ArrangeIconicWindows: Pointer;
function ArrangeIconicWindows;
begin
GetProcedureAddress(_ArrangeIconicWindows, user32, 'ArrangeIconicWindows');
asm
mov esp, ebp
pop ebp
jmp [_ArrangeIconicWindows]
end;
end;
{$ELSE}
function ArrangeIconicWindows; external user32 name 'ArrangeIconicWindows';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateMDIWindowA: Pointer;
function CreateMDIWindowA;
begin
GetProcedureAddress(_CreateMDIWindowA, user32, 'CreateMDIWindowA');
asm
mov esp, ebp
pop ebp
jmp [_CreateMDIWindowA]
end;
end;
{$ELSE}
function CreateMDIWindowA; external user32 name 'CreateMDIWindowA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateMDIWindowW: Pointer;
function CreateMDIWindowW;
begin
GetProcedureAddress(_CreateMDIWindowW, user32, 'CreateMDIWindowW');
asm
mov esp, ebp
pop ebp
jmp [_CreateMDIWindowW]
end;
end;
{$ELSE}
function CreateMDIWindowW; external user32 name 'CreateMDIWindowW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateMDIWindow: Pointer;
function CreateMDIWindow;
begin
GetProcedureAddress(_CreateMDIWindow, user32, 'CreateMDIWindowW');
asm
mov esp, ebp
pop ebp
jmp [_CreateMDIWindow]
end;
end;
{$ELSE}
function CreateMDIWindow; external user32 name 'CreateMDIWindowW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateMDIWindow: Pointer;
function CreateMDIWindow;
begin
GetProcedureAddress(_CreateMDIWindow, user32, 'CreateMDIWindowA');
asm
mov esp, ebp
pop ebp
jmp [_CreateMDIWindow]
end;
end;
{$ELSE}
function CreateMDIWindow; external user32 name 'CreateMDIWindowA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_TileWindows: Pointer;
function TileWindows;
begin
GetProcedureAddress(_TileWindows, user32, 'TileWindows');
asm
mov esp, ebp
pop ebp
jmp [_TileWindows]
end;
end;
{$ELSE}
function TileWindows; external user32 name 'TileWindows';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CascadeWindows: Pointer;
function CascadeWindows;
begin
GetProcedureAddress(_CascadeWindows, user32, 'CascadeWindows');
asm
mov esp, ebp
pop ebp
jmp [_CascadeWindows]
end;
end;
{$ELSE}
function CascadeWindows; external user32 name 'CascadeWindows';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WinHelpA: Pointer;
function WinHelpA;
begin
GetProcedureAddress(_WinHelpA, user32, 'WinHelpA');
asm
mov esp, ebp
pop ebp
jmp [_WinHelpA]
end;
end;
{$ELSE}
function WinHelpA; external user32 name 'WinHelpA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WinHelpW: Pointer;
function WinHelpW;
begin
GetProcedureAddress(_WinHelpW, user32, 'WinHelpW');
asm
mov esp, ebp
pop ebp
jmp [_WinHelpW]
end;
end;
{$ELSE}
function WinHelpW; external user32 name 'WinHelpW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_WinHelp: Pointer;
function WinHelp;
begin
GetProcedureAddress(_WinHelp, user32, 'WinHelpW');
asm
mov esp, ebp
pop ebp
jmp [_WinHelp]
end;
end;
{$ELSE}
function WinHelp; external user32 name 'WinHelpW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_WinHelp: Pointer;
function WinHelp;
begin
GetProcedureAddress(_WinHelp, user32, 'WinHelpA');
asm
mov esp, ebp
pop ebp
jmp [_WinHelp]
end;
end;
{$ELSE}
function WinHelp; external user32 name 'WinHelpA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetGuiResources: Pointer;
function GetGuiResources;
begin
GetProcedureAddress(_GetGuiResources, user32, 'GetGuiResources');
asm
mov esp, ebp
pop ebp
jmp [_GetGuiResources]
end;
end;
{$ELSE}
function GetGuiResources; external user32 name 'GetGuiResources';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ChangeDisplaySettingsA: Pointer;
function ChangeDisplaySettingsA;
begin
GetProcedureAddress(_ChangeDisplaySettingsA, user32, 'ChangeDisplaySettingsA');
asm
mov esp, ebp
pop ebp
jmp [_ChangeDisplaySettingsA]
end;
end;
{$ELSE}
function ChangeDisplaySettingsA; external user32 name 'ChangeDisplaySettingsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ChangeDisplaySettingsW: Pointer;
function ChangeDisplaySettingsW;
begin
GetProcedureAddress(_ChangeDisplaySettingsW, user32, 'ChangeDisplaySettingsW');
asm
mov esp, ebp
pop ebp
jmp [_ChangeDisplaySettingsW]
end;
end;
{$ELSE}
function ChangeDisplaySettingsW; external user32 name 'ChangeDisplaySettingsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_ChangeDisplaySettings: Pointer;
function ChangeDisplaySettings;
begin
GetProcedureAddress(_ChangeDisplaySettings, user32, 'ChangeDisplaySettingsW');
asm
mov esp, ebp
pop ebp
jmp [_ChangeDisplaySettings]
end;
end;
{$ELSE}
function ChangeDisplaySettings; external user32 name 'ChangeDisplaySettingsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_ChangeDisplaySettings: Pointer;
function ChangeDisplaySettings;
begin
GetProcedureAddress(_ChangeDisplaySettings, user32, 'ChangeDisplaySettingsA');
asm
mov esp, ebp
pop ebp
jmp [_ChangeDisplaySettings]
end;
end;
{$ELSE}
function ChangeDisplaySettings; external user32 name 'ChangeDisplaySettingsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_ChangeDisplaySettingsExA: Pointer;
function ChangeDisplaySettingsExA;
begin
GetProcedureAddress(_ChangeDisplaySettingsExA, user32, 'ChangeDisplaySettingsExA');
asm
mov esp, ebp
pop ebp
jmp [_ChangeDisplaySettingsExA]
end;
end;
{$ELSE}
function ChangeDisplaySettingsExA; external user32 name 'ChangeDisplaySettingsExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ChangeDisplaySettingsExW: Pointer;
function ChangeDisplaySettingsExW;
begin
GetProcedureAddress(_ChangeDisplaySettingsExW, user32, 'ChangeDisplaySettingsExW');
asm
mov esp, ebp
pop ebp
jmp [_ChangeDisplaySettingsExW]
end;
end;
{$ELSE}
function ChangeDisplaySettingsExW; external user32 name 'ChangeDisplaySettingsExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_ChangeDisplaySettingsEx: Pointer;
function ChangeDisplaySettingsEx;
begin
GetProcedureAddress(_ChangeDisplaySettingsEx, user32, 'ChangeDisplaySettingsExW');
asm
mov esp, ebp
pop ebp
jmp [_ChangeDisplaySettingsEx]
end;
end;
{$ELSE}
function ChangeDisplaySettingsEx; external user32 name 'ChangeDisplaySettingsExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_ChangeDisplaySettingsEx: Pointer;
function ChangeDisplaySettingsEx;
begin
GetProcedureAddress(_ChangeDisplaySettingsEx, user32, 'ChangeDisplaySettingsExA');
asm
mov esp, ebp
pop ebp
jmp [_ChangeDisplaySettingsEx]
end;
end;
{$ELSE}
function ChangeDisplaySettingsEx; external user32 name 'ChangeDisplaySettingsExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplaySettingsA: Pointer;
function EnumDisplaySettingsA;
begin
GetProcedureAddress(_EnumDisplaySettingsA, user32, 'EnumDisplaySettingsA');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplaySettingsA]
end;
end;
{$ELSE}
function EnumDisplaySettingsA; external user32 name 'EnumDisplaySettingsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplaySettingsW: Pointer;
function EnumDisplaySettingsW;
begin
GetProcedureAddress(_EnumDisplaySettingsW, user32, 'EnumDisplaySettingsW');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplaySettingsW]
end;
end;
{$ELSE}
function EnumDisplaySettingsW; external user32 name 'EnumDisplaySettingsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplaySettings: Pointer;
function EnumDisplaySettings;
begin
GetProcedureAddress(_EnumDisplaySettings, user32, 'EnumDisplaySettingsW');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplaySettings]
end;
end;
{$ELSE}
function EnumDisplaySettings; external user32 name 'EnumDisplaySettingsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplaySettings: Pointer;
function EnumDisplaySettings;
begin
GetProcedureAddress(_EnumDisplaySettings, user32, 'EnumDisplaySettingsA');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplaySettings]
end;
end;
{$ELSE}
function EnumDisplaySettings; external user32 name 'EnumDisplaySettingsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplaySettingsExA: Pointer;
function EnumDisplaySettingsExA;
begin
GetProcedureAddress(_EnumDisplaySettingsExA, user32, 'EnumDisplaySettingsExA');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplaySettingsExA]
end;
end;
{$ELSE}
function EnumDisplaySettingsExA; external user32 name 'EnumDisplaySettingsExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplaySettingsExW: Pointer;
function EnumDisplaySettingsExW;
begin
GetProcedureAddress(_EnumDisplaySettingsExW, user32, 'EnumDisplaySettingsExW');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplaySettingsExW]
end;
end;
{$ELSE}
function EnumDisplaySettingsExW; external user32 name 'EnumDisplaySettingsExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplaySettingsEx: Pointer;
function EnumDisplaySettingsEx;
begin
GetProcedureAddress(_EnumDisplaySettingsEx, user32, 'EnumDisplaySettingsExW');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplaySettingsEx]
end;
end;
{$ELSE}
function EnumDisplaySettingsEx; external user32 name 'EnumDisplaySettingsExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplaySettingsEx: Pointer;
function EnumDisplaySettingsEx;
begin
GetProcedureAddress(_EnumDisplaySettingsEx, user32, 'EnumDisplaySettingsExA');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplaySettingsEx]
end;
end;
{$ELSE}
function EnumDisplaySettingsEx; external user32 name 'EnumDisplaySettingsExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplayDevicesA: Pointer;
function EnumDisplayDevicesA;
begin
GetProcedureAddress(_EnumDisplayDevicesA, user32, 'EnumDisplayDevicesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplayDevicesA]
end;
end;
{$ELSE}
function EnumDisplayDevicesA; external user32 name 'EnumDisplayDevicesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplayDevicesW: Pointer;
function EnumDisplayDevicesW;
begin
GetProcedureAddress(_EnumDisplayDevicesW, user32, 'EnumDisplayDevicesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplayDevicesW]
end;
end;
{$ELSE}
function EnumDisplayDevicesW; external user32 name 'EnumDisplayDevicesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplayDevices: Pointer;
function EnumDisplayDevices;
begin
GetProcedureAddress(_EnumDisplayDevices, user32, 'EnumDisplayDevicesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplayDevices]
end;
end;
{$ELSE}
function EnumDisplayDevices; external user32 name 'EnumDisplayDevicesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplayDevices: Pointer;
function EnumDisplayDevices;
begin
GetProcedureAddress(_EnumDisplayDevices, user32, 'EnumDisplayDevicesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplayDevices]
end;
end;
{$ELSE}
function EnumDisplayDevices; external user32 name 'EnumDisplayDevicesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SystemParametersInfoA: Pointer;
function SystemParametersInfoA;
begin
GetProcedureAddress(_SystemParametersInfoA, user32, 'SystemParametersInfoA');
asm
mov esp, ebp
pop ebp
jmp [_SystemParametersInfoA]
end;
end;
{$ELSE}
function SystemParametersInfoA; external user32 name 'SystemParametersInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SystemParametersInfoW: Pointer;
function SystemParametersInfoW;
begin
GetProcedureAddress(_SystemParametersInfoW, user32, 'SystemParametersInfoW');
asm
mov esp, ebp
pop ebp
jmp [_SystemParametersInfoW]
end;
end;
{$ELSE}
function SystemParametersInfoW; external user32 name 'SystemParametersInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SystemParametersInfo: Pointer;
function SystemParametersInfo;
begin
GetProcedureAddress(_SystemParametersInfo, user32, 'SystemParametersInfoW');
asm
mov esp, ebp
pop ebp
jmp [_SystemParametersInfo]
end;
end;
{$ELSE}
function SystemParametersInfo; external user32 name 'SystemParametersInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SystemParametersInfo: Pointer;
function SystemParametersInfo;
begin
GetProcedureAddress(_SystemParametersInfo, user32, 'SystemParametersInfoA');
asm
mov esp, ebp
pop ebp
jmp [_SystemParametersInfo]
end;
end;
{$ELSE}
function SystemParametersInfo; external user32 name 'SystemParametersInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetDebugErrorLevel: Pointer;
procedure SetDebugErrorLevel;
begin
GetProcedureAddress(_SetDebugErrorLevel, user32, 'SetDebugErrorLevel');
asm
mov esp, ebp
pop ebp
jmp [_SetDebugErrorLevel]
end;
end;
{$ELSE}
procedure SetDebugErrorLevel; external user32 name 'SetDebugErrorLevel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetLastErrorEx: Pointer;
procedure SetLastErrorEx;
begin
GetProcedureAddress(_SetLastErrorEx, user32, 'SetLastErrorEx');
asm
mov esp, ebp
pop ebp
jmp [_SetLastErrorEx]
end;
end;
{$ELSE}
procedure SetLastErrorEx; external user32 name 'SetLastErrorEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InternalGetWindowText: Pointer;
function InternalGetWindowText;
begin
GetProcedureAddress(_InternalGetWindowText, user32, 'InternalGetWindowText');
asm
mov esp, ebp
pop ebp
jmp [_InternalGetWindowText]
end;
end;
{$ELSE}
function InternalGetWindowText; external user32 name 'InternalGetWindowText';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EndTask: Pointer;
function EndTask;
begin
GetProcedureAddress(_EndTask, user32, 'EndTask');
asm
mov esp, ebp
pop ebp
jmp [_EndTask]
end;
end;
{$ELSE}
function EndTask; external user32 name 'EndTask';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MonitorFromPoint: Pointer;
function MonitorFromPoint;
begin
GetProcedureAddress(_MonitorFromPoint, user32, 'MonitorFromPoint');
asm
mov esp, ebp
pop ebp
jmp [_MonitorFromPoint]
end;
end;
{$ELSE}
function MonitorFromPoint; external user32 name 'MonitorFromPoint';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MonitorFromRect: Pointer;
function MonitorFromRect;
begin
GetProcedureAddress(_MonitorFromRect, user32, 'MonitorFromRect');
asm
mov esp, ebp
pop ebp
jmp [_MonitorFromRect]
end;
end;
{$ELSE}
function MonitorFromRect; external user32 name 'MonitorFromRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MonitorFromWindow: Pointer;
function MonitorFromWindow;
begin
GetProcedureAddress(_MonitorFromWindow, user32, 'MonitorFromWindow');
asm
mov esp, ebp
pop ebp
jmp [_MonitorFromWindow]
end;
end;
{$ELSE}
function MonitorFromWindow; external user32 name 'MonitorFromWindow';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMonitorInfoA: Pointer;
function GetMonitorInfoA;
begin
GetProcedureAddress(_GetMonitorInfoA, user32, 'GetMonitorInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetMonitorInfoA]
end;
end;
{$ELSE}
function GetMonitorInfoA; external user32 name 'GetMonitorInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMonitorInfoW: Pointer;
function GetMonitorInfoW;
begin
GetProcedureAddress(_GetMonitorInfoW, user32, 'GetMonitorInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetMonitorInfoW]
end;
end;
{$ELSE}
function GetMonitorInfoW; external user32 name 'GetMonitorInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetMonitorInfo: Pointer;
function GetMonitorInfo;
begin
GetProcedureAddress(_GetMonitorInfo, user32, 'GetMonitorInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetMonitorInfo]
end;
end;
{$ELSE}
function GetMonitorInfo; external user32 name 'GetMonitorInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetMonitorInfo: Pointer;
function GetMonitorInfo;
begin
GetProcedureAddress(_GetMonitorInfo, user32, 'GetMonitorInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetMonitorInfo]
end;
end;
{$ELSE}
function GetMonitorInfo; external user32 name 'GetMonitorInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumDisplayMonitors: Pointer;
function EnumDisplayMonitors;
begin
GetProcedureAddress(_EnumDisplayMonitors, user32, 'EnumDisplayMonitors');
asm
mov esp, ebp
pop ebp
jmp [_EnumDisplayMonitors]
end;
end;
{$ELSE}
function EnumDisplayMonitors; external user32 name 'EnumDisplayMonitors';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_NotifyWinEvent: Pointer;
procedure NotifyWinEvent;
begin
GetProcedureAddress(_NotifyWinEvent, user32, 'NotifyWinEvent');
asm
mov esp, ebp
pop ebp
jmp [_NotifyWinEvent]
end;
end;
{$ELSE}
procedure NotifyWinEvent; external user32 name 'NotifyWinEvent';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWinEventHook: Pointer;
function SetWinEventHook;
begin
GetProcedureAddress(_SetWinEventHook, user32, 'SetWinEventHook');
asm
mov esp, ebp
pop ebp
jmp [_SetWinEventHook]
end;
end;
{$ELSE}
function SetWinEventHook; external user32 name 'SetWinEventHook';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IsWinEventHookInstalled: Pointer;
function IsWinEventHookInstalled;
begin
GetProcedureAddress(_IsWinEventHookInstalled, user32, 'IsWinEventHookInstalled');
asm
mov esp, ebp
pop ebp
jmp [_IsWinEventHookInstalled]
end;
end;
{$ELSE}
function IsWinEventHookInstalled; external user32 name 'IsWinEventHookInstalled';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UnhookWinEvent: Pointer;
function UnhookWinEvent;
begin
GetProcedureAddress(_UnhookWinEvent, user32, 'UnhookWinEvent');
asm
mov esp, ebp
pop ebp
jmp [_UnhookWinEvent]
end;
end;
{$ELSE}
function UnhookWinEvent; external user32 name 'UnhookWinEvent';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetGUIThreadInfo: Pointer;
function GetGUIThreadInfo;
begin
GetProcedureAddress(_GetGUIThreadInfo, user32, 'GetGUIThreadInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetGUIThreadInfo]
end;
end;
{$ELSE}
function GetGUIThreadInfo; external user32 name 'GetGUIThreadInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowModuleFileNameA: Pointer;
function GetWindowModuleFileNameA;
begin
GetProcedureAddress(_GetWindowModuleFileNameA, user32, 'GetWindowModuleFileNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowModuleFileNameA]
end;
end;
{$ELSE}
function GetWindowModuleFileNameA; external user32 name 'GetWindowModuleFileNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowModuleFileNameW: Pointer;
function GetWindowModuleFileNameW;
begin
GetProcedureAddress(_GetWindowModuleFileNameW, user32, 'GetWindowModuleFileNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowModuleFileNameW]
end;
end;
{$ELSE}
function GetWindowModuleFileNameW; external user32 name 'GetWindowModuleFileNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowModuleFileName: Pointer;
function GetWindowModuleFileName;
begin
GetProcedureAddress(_GetWindowModuleFileName, user32, 'GetWindowModuleFileNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowModuleFileName]
end;
end;
{$ELSE}
function GetWindowModuleFileName; external user32 name 'GetWindowModuleFileNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowModuleFileName: Pointer;
function GetWindowModuleFileName;
begin
GetProcedureAddress(_GetWindowModuleFileName, user32, 'GetWindowModuleFileNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowModuleFileName]
end;
end;
{$ELSE}
function GetWindowModuleFileName; external user32 name 'GetWindowModuleFileNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetCursorInfo: Pointer;
function GetCursorInfo;
begin
GetProcedureAddress(_GetCursorInfo, user32, 'GetCursorInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetCursorInfo]
end;
end;
{$ELSE}
function GetCursorInfo; external user32 name 'GetCursorInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowInfo: Pointer;
function GetWindowInfo;
begin
GetProcedureAddress(_GetWindowInfo, user32, 'GetWindowInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowInfo]
end;
end;
{$ELSE}
function GetWindowInfo; external user32 name 'GetWindowInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTitleBarInfo: Pointer;
function GetTitleBarInfo;
begin
GetProcedureAddress(_GetTitleBarInfo, user32, 'GetTitleBarInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetTitleBarInfo]
end;
end;
{$ELSE}
function GetTitleBarInfo; external user32 name 'GetTitleBarInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMenuBarInfo: Pointer;
function GetMenuBarInfo;
begin
GetProcedureAddress(_GetMenuBarInfo, user32, 'GetMenuBarInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetMenuBarInfo]
end;
end;
{$ELSE}
function GetMenuBarInfo; external user32 name 'GetMenuBarInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetScrollBarInfo: Pointer;
function GetScrollBarInfo;
begin
GetProcedureAddress(_GetScrollBarInfo, user32, 'GetScrollBarInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetScrollBarInfo]
end;
end;
{$ELSE}
function GetScrollBarInfo; external user32 name 'GetScrollBarInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetComboBoxInfo: Pointer;
function GetComboBoxInfo;
begin
GetProcedureAddress(_GetComboBoxInfo, user32, 'GetComboBoxInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetComboBoxInfo]
end;
end;
{$ELSE}
function GetComboBoxInfo; external user32 name 'GetComboBoxInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetAncestor: Pointer;
function GetAncestor;
begin
GetProcedureAddress(_GetAncestor, user32, 'GetAncestor');
asm
mov esp, ebp
pop ebp
jmp [_GetAncestor]
end;
end;
{$ELSE}
function GetAncestor; external user32 name 'GetAncestor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RealChildWindowFromPoint: Pointer;
function RealChildWindowFromPoint;
begin
GetProcedureAddress(_RealChildWindowFromPoint, user32, 'RealChildWindowFromPoint');
asm
mov esp, ebp
pop ebp
jmp [_RealChildWindowFromPoint]
end;
end;
{$ELSE}
function RealChildWindowFromPoint; external user32 name 'RealChildWindowFromPoint';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RealGetWindowClassA: Pointer;
function RealGetWindowClassA;
begin
GetProcedureAddress(_RealGetWindowClassA, user32, 'RealGetWindowClassA');
asm
mov esp, ebp
pop ebp
jmp [_RealGetWindowClassA]
end;
end;
{$ELSE}
function RealGetWindowClassA; external user32 name 'RealGetWindowClassA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RealGetWindowClassW: Pointer;
function RealGetWindowClassW;
begin
GetProcedureAddress(_RealGetWindowClassW, user32, 'RealGetWindowClassW');
asm
mov esp, ebp
pop ebp
jmp [_RealGetWindowClassW]
end;
end;
{$ELSE}
function RealGetWindowClassW; external user32 name 'RealGetWindowClassW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_RealGetWindowClass: Pointer;
function RealGetWindowClass;
begin
GetProcedureAddress(_RealGetWindowClass, user32, 'RealGetWindowClassW');
asm
mov esp, ebp
pop ebp
jmp [_RealGetWindowClass]
end;
end;
{$ELSE}
function RealGetWindowClass; external user32 name 'RealGetWindowClassW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_RealGetWindowClass: Pointer;
function RealGetWindowClass;
begin
GetProcedureAddress(_RealGetWindowClass, user32, 'RealGetWindowClassA');
asm
mov esp, ebp
pop ebp
jmp [_RealGetWindowClass]
end;
end;
{$ELSE}
function RealGetWindowClass; external user32 name 'RealGetWindowClassA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetAltTabInfoA: Pointer;
function GetAltTabInfoA;
begin
GetProcedureAddress(_GetAltTabInfoA, user32, 'GetAltTabInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetAltTabInfoA]
end;
end;
{$ELSE}
function GetAltTabInfoA; external user32 name 'GetAltTabInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetAltTabInfoW: Pointer;
function GetAltTabInfoW;
begin
GetProcedureAddress(_GetAltTabInfoW, user32, 'GetAltTabInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetAltTabInfoW]
end;
end;
{$ELSE}
function GetAltTabInfoW; external user32 name 'GetAltTabInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetAltTabInfo: Pointer;
function GetAltTabInfo;
begin
GetProcedureAddress(_GetAltTabInfo, user32, 'GetAltTabInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetAltTabInfo]
end;
end;
{$ELSE}
function GetAltTabInfo; external user32 name 'GetAltTabInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetAltTabInfo: Pointer;
function GetAltTabInfo;
begin
GetProcedureAddress(_GetAltTabInfo, user32, 'GetAltTabInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetAltTabInfo]
end;
end;
{$ELSE}
function GetAltTabInfo; external user32 name 'GetAltTabInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetListBoxInfo: Pointer;
function GetListBoxInfo;
begin
GetProcedureAddress(_GetListBoxInfo, user32, 'GetListBoxInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetListBoxInfo]
end;
end;
{$ELSE}
function GetListBoxInfo; external user32 name 'GetListBoxInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LockWorkStation: Pointer;
function LockWorkStation;
begin
GetProcedureAddress(_LockWorkStation, user32, 'LockWorkStation');
asm
mov esp, ebp
pop ebp
jmp [_LockWorkStation]
end;
end;
{$ELSE}
function LockWorkStation; external user32 name 'LockWorkStation';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UserHandleGrantAccess: Pointer;
function UserHandleGrantAccess;
begin
GetProcedureAddress(_UserHandleGrantAccess, user32, 'UserHandleGrantAccess');
asm
mov esp, ebp
pop ebp
jmp [_UserHandleGrantAccess]
end;
end;
{$ELSE}
function UserHandleGrantAccess; external user32 name 'UserHandleGrantAccess';
{$ENDIF DYNAMIC_LINK}
function GET_RAWINPUT_CODE_WPARAM(wParam: WPARAM): DWORD;
begin
Result := wParam and $ff;
end;
function RAWINPUT_ALIGN(x: Pointer): Pointer;
begin
Result := Pointer((Integer(x) + SizeOf(DWORD) - 1) and not (SizeOf(DWORD) - 1));
end;
function NEXTRAWINPUTBLOCK(ptr: PRawInput): PRawInput;
begin
Result := PRAWINPUT(DWORD(RAWINPUT_ALIGN(ptr)) + ptr^.header.dwSize);
end;
{$IFDEF DYNAMIC_LINK}
var
_GetRawInputData: Pointer;
function GetRawInputData;
begin
GetProcedureAddress(_GetRawInputData, user32, 'GetRawInputData');
asm
mov esp, ebp
pop ebp
jmp [_GetRawInputData]
end;
end;
{$ELSE}
function GetRawInputData; external user32 name 'GetRawInputData';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetRawInputDeviceInfoA: Pointer;
function GetRawInputDeviceInfoA;
begin
GetProcedureAddress(_GetRawInputDeviceInfoA, user32, 'GetRawInputDeviceInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetRawInputDeviceInfoA]
end;
end;
{$ELSE}
function GetRawInputDeviceInfoA; external user32 name 'GetRawInputDeviceInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetRawInputDeviceInfoW: Pointer;
function GetRawInputDeviceInfoW;
begin
GetProcedureAddress(_GetRawInputDeviceInfoW, user32, 'GetRawInputDeviceInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetRawInputDeviceInfoW]
end;
end;
{$ELSE}
function GetRawInputDeviceInfoW; external user32 name 'GetRawInputDeviceInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetRawInputDeviceInfo: Pointer;
function GetRawInputDeviceInfo;
begin
GetProcedureAddress(_GetRawInputDeviceInfo, user32, 'GetRawInputDeviceInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetRawInputDeviceInfo]
end;
end;
{$ELSE}
function GetRawInputDeviceInfo; external user32 name 'GetRawInputDeviceInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetRawInputDeviceInfo: Pointer;
function GetRawInputDeviceInfo;
begin
GetProcedureAddress(_GetRawInputDeviceInfo, user32, 'GetRawInputDeviceInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetRawInputDeviceInfo]
end;
end;
{$ELSE}
function GetRawInputDeviceInfo; external user32 name 'GetRawInputDeviceInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetRawInputBuffer: Pointer;
function GetRawInputBuffer;
begin
GetProcedureAddress(_GetRawInputBuffer, user32, 'GetRawInputBuffer');
asm
mov esp, ebp
pop ebp
jmp [_GetRawInputBuffer]
end;
end;
{$ELSE}
function GetRawInputBuffer; external user32 name 'GetRawInputBuffer';
{$ENDIF DYNAMIC_LINK}
function RIDEV_EXMODE(mode: DWORD): DWORD;
begin
Result := mode and RIDEV_EXMODEMASK;
end;
{$IFDEF DYNAMIC_LINK}
var
_RegisterRawInputDevices: Pointer;
function RegisterRawInputDevices;
begin
GetProcedureAddress(_RegisterRawInputDevices, user32, 'RegisterRawInputDevices');
asm
mov esp, ebp
pop ebp
jmp [_RegisterRawInputDevices]
end;
end;
{$ELSE}
function RegisterRawInputDevices; external user32 name 'RegisterRawInputDevices';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetRegisteredRawInputDevices: Pointer;
function GetRegisteredRawInputDevices;
begin
GetProcedureAddress(_GetRegisteredRawInputDevices, user32, 'GetRegisteredRawInputDevices');
asm
mov esp, ebp
pop ebp
jmp [_GetRegisteredRawInputDevices]
end;
end;
{$ELSE}
function GetRegisteredRawInputDevices; external user32 name 'GetRegisteredRawInputDevices';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetRawInputDeviceList: Pointer;
function GetRawInputDeviceList;
begin
GetProcedureAddress(_GetRawInputDeviceList, user32, 'GetRawInputDeviceList');
asm
mov esp, ebp
pop ebp
jmp [_GetRawInputDeviceList]
end;
end;
{$ELSE}
function GetRawInputDeviceList; external user32 name 'GetRawInputDeviceList';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DefRawInputProc: Pointer;
function DefRawInputProc;
begin
GetProcedureAddress(_DefRawInputProc, user32, 'DefRawInputProc');
asm
mov esp, ebp
pop ebp
jmp [_DefRawInputProc]
end;
end;
{$ELSE}
function DefRawInputProc; external user32 name 'DefRawInputProc';
{$ENDIF DYNAMIC_LINK}
end.