Windows编程

开发平台：

Delphi

JwaWinGDI.pas：源码内容

{$ELSE}
function RectVisible; external gdi32 name 'RectVisible';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_Rectangle: Pointer;
function Rectangle;
begin
GetProcedureAddress(_Rectangle, gdi32, 'Rectangle');
asm
mov esp, ebp
pop ebp
jmp [_Rectangle]
end;
end;
{$ELSE}
function Rectangle; external gdi32 name 'Rectangle';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RestoreDC: Pointer;
function RestoreDC;
begin
GetProcedureAddress(_RestoreDC, gdi32, 'RestoreDC');
asm
mov esp, ebp
pop ebp
jmp [_RestoreDC]
end;
end;
{$ELSE}
function RestoreDC; external gdi32 name 'RestoreDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ResetDCA: Pointer;
function ResetDCA;
begin
GetProcedureAddress(_ResetDCA, gdi32, 'ResetDCA');
asm
mov esp, ebp
pop ebp
jmp [_ResetDCA]
end;
end;
{$ELSE}
function ResetDCA; external gdi32 name 'ResetDCA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ResetDCW: Pointer;
function ResetDCW;
begin
GetProcedureAddress(_ResetDCW, gdi32, 'ResetDCW');
asm
mov esp, ebp
pop ebp
jmp [_ResetDCW]
end;
end;
{$ELSE}
function ResetDCW; external gdi32 name 'ResetDCW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_ResetDC: Pointer;
function ResetDC;
begin
GetProcedureAddress(_ResetDC, gdi32, 'ResetDCW');
asm
mov esp, ebp
pop ebp
jmp [_ResetDC]
end;
end;
{$ELSE}
function ResetDC; external gdi32 name 'ResetDCW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_ResetDC: Pointer;
function ResetDC;
begin
GetProcedureAddress(_ResetDC, gdi32, 'ResetDCA');
asm
mov esp, ebp
pop ebp
jmp [_ResetDC]
end;
end;
{$ELSE}
function ResetDC; external gdi32 name 'ResetDCA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_RealizePalette: Pointer;
function RealizePalette;
begin
GetProcedureAddress(_RealizePalette, gdi32, 'RealizePalette');
asm
mov esp, ebp
pop ebp
jmp [_RealizePalette]
end;
end;
{$ELSE}
function RealizePalette; external gdi32 name 'RealizePalette';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RemoveFontResourceA: Pointer;
function RemoveFontResourceA;
begin
GetProcedureAddress(_RemoveFontResourceA, gdi32, 'RemoveFontResourceA');
asm
mov esp, ebp
pop ebp
jmp [_RemoveFontResourceA]
end;
end;
{$ELSE}
function RemoveFontResourceA; external gdi32 name 'RemoveFontResourceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RemoveFontResourceW: Pointer;
function RemoveFontResourceW;
begin
GetProcedureAddress(_RemoveFontResourceW, gdi32, 'RemoveFontResourceW');
asm
mov esp, ebp
pop ebp
jmp [_RemoveFontResourceW]
end;
end;
{$ELSE}
function RemoveFontResourceW; external gdi32 name 'RemoveFontResourceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_RemoveFontResource: Pointer;
function RemoveFontResource;
begin
GetProcedureAddress(_RemoveFontResource, gdi32, 'RemoveFontResourceW');
asm
mov esp, ebp
pop ebp
jmp [_RemoveFontResource]
end;
end;
{$ELSE}
function RemoveFontResource; external gdi32 name 'RemoveFontResourceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_RemoveFontResource: Pointer;
function RemoveFontResource;
begin
GetProcedureAddress(_RemoveFontResource, gdi32, 'RemoveFontResourceA');
asm
mov esp, ebp
pop ebp
jmp [_RemoveFontResource]
end;
end;
{$ELSE}
function RemoveFontResource; external gdi32 name 'RemoveFontResourceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_RoundRect: Pointer;
function RoundRect;
begin
GetProcedureAddress(_RoundRect, gdi32, 'RoundRect');
asm
mov esp, ebp
pop ebp
jmp [_RoundRect]
end;
end;
{$ELSE}
function RoundRect; external gdi32 name 'RoundRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ResizePalette: Pointer;
function ResizePalette;
begin
GetProcedureAddress(_ResizePalette, gdi32, 'ResizePalette');
asm
mov esp, ebp
pop ebp
jmp [_ResizePalette]
end;
end;
{$ELSE}
function ResizePalette; external gdi32 name 'ResizePalette';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SaveDC: Pointer;
function SaveDC;
begin
GetProcedureAddress(_SaveDC, gdi32, 'SaveDC');
asm
mov esp, ebp
pop ebp
jmp [_SaveDC]
end;
end;
{$ELSE}
function SaveDC; external gdi32 name 'SaveDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SelectClipRgn: Pointer;
function SelectClipRgn;
begin
GetProcedureAddress(_SelectClipRgn, gdi32, 'SelectClipRgn');
asm
mov esp, ebp
pop ebp
jmp [_SelectClipRgn]
end;
end;
{$ELSE}
function SelectClipRgn; external gdi32 name 'SelectClipRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ExtSelectClipRgn: Pointer;
function ExtSelectClipRgn;
begin
GetProcedureAddress(_ExtSelectClipRgn, gdi32, 'ExtSelectClipRgn');
asm
mov esp, ebp
pop ebp
jmp [_ExtSelectClipRgn]
end;
end;
{$ELSE}
function ExtSelectClipRgn; external gdi32 name 'ExtSelectClipRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMetaRgn: Pointer;
function SetMetaRgn;
begin
GetProcedureAddress(_SetMetaRgn, gdi32, 'SetMetaRgn');
asm
mov esp, ebp
pop ebp
jmp [_SetMetaRgn]
end;
end;
{$ELSE}
function SetMetaRgn; external gdi32 name 'SetMetaRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SelectObject: Pointer;
function SelectObject;
begin
GetProcedureAddress(_SelectObject, gdi32, 'SelectObject');
asm
mov esp, ebp
pop ebp
jmp [_SelectObject]
end;
end;
{$ELSE}
function SelectObject; external gdi32 name 'SelectObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SelectPalette: Pointer;
function SelectPalette;
begin
GetProcedureAddress(_SelectPalette, gdi32, 'SelectPalette');
asm
mov esp, ebp
pop ebp
jmp [_SelectPalette]
end;
end;
{$ELSE}
function SelectPalette; external gdi32 name 'SelectPalette';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetBkColor: Pointer;
function SetBkColor;
begin
GetProcedureAddress(_SetBkColor, gdi32, 'SetBkColor');
asm
mov esp, ebp
pop ebp
jmp [_SetBkColor]
end;
end;
{$ELSE}
function SetBkColor; external gdi32 name 'SetBkColor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDCBrushColor: Pointer;
function SetDCBrushColor;
begin
GetProcedureAddress(_SetDCBrushColor, gdi32, 'SetDCBrushColor');
asm
mov esp, ebp
pop ebp
jmp [_SetDCBrushColor]
end;
end;
{$ELSE}
function SetDCBrushColor; external gdi32 name 'SetDCBrushColor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDCPenColor: Pointer;
function SetDCPenColor;
begin
GetProcedureAddress(_SetDCPenColor, gdi32, 'SetDCPenColor');
asm
mov esp, ebp
pop ebp
jmp [_SetDCPenColor]
end;
end;
{$ELSE}
function SetDCPenColor; external gdi32 name 'SetDCPenColor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetBkMode: Pointer;
function SetBkMode;
begin
GetProcedureAddress(_SetBkMode, gdi32, 'SetBkMode');
asm
mov esp, ebp
pop ebp
jmp [_SetBkMode]
end;
end;
{$ELSE}
function SetBkMode; external gdi32 name 'SetBkMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetBitmapBits: Pointer;
function SetBitmapBits;
begin
GetProcedureAddress(_SetBitmapBits, gdi32, 'SetBitmapBits');
asm
mov esp, ebp
pop ebp
jmp [_SetBitmapBits]
end;
end;
{$ELSE}
function SetBitmapBits; external gdi32 name 'SetBitmapBits';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetBoundsRect: Pointer;
function SetBoundsRect;
begin
GetProcedureAddress(_SetBoundsRect, gdi32, 'SetBoundsRect');
asm
mov esp, ebp
pop ebp
jmp [_SetBoundsRect]
end;
end;
{$ELSE}
function SetBoundsRect; external gdi32 name 'SetBoundsRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDIBits: Pointer;
function SetDIBits;
begin
GetProcedureAddress(_SetDIBits, gdi32, 'SetDIBits');
asm
mov esp, ebp
pop ebp
jmp [_SetDIBits]
end;
end;
{$ELSE}
function SetDIBits; external gdi32 name 'SetDIBits';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDIBitsToDevice: Pointer;
function SetDIBitsToDevice;
begin
GetProcedureAddress(_SetDIBitsToDevice, gdi32, 'SetDIBitsToDevice');
asm
mov esp, ebp
pop ebp
jmp [_SetDIBitsToDevice]
end;
end;
{$ELSE}
function SetDIBitsToDevice; external gdi32 name 'SetDIBitsToDevice';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMapperFlags: Pointer;
function SetMapperFlags;
begin
GetProcedureAddress(_SetMapperFlags, gdi32, 'SetMapperFlags');
asm
mov esp, ebp
pop ebp
jmp [_SetMapperFlags]
end;
end;
{$ELSE}
function SetMapperFlags; external gdi32 name 'SetMapperFlags';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetGraphicsMode: Pointer;
function SetGraphicsMode;
begin
GetProcedureAddress(_SetGraphicsMode, gdi32, 'SetGraphicsMode');
asm
mov esp, ebp
pop ebp
jmp [_SetGraphicsMode]
end;
end;
{$ELSE}
function SetGraphicsMode; external gdi32 name 'SetGraphicsMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMapMode: Pointer;
function SetMapMode;
begin
GetProcedureAddress(_SetMapMode, gdi32, 'SetMapMode');
asm
mov esp, ebp
pop ebp
jmp [_SetMapMode]
end;
end;
{$ELSE}
function SetMapMode; external gdi32 name 'SetMapMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetLayout: Pointer;
function SetLayout;
begin
GetProcedureAddress(_SetLayout, gdi32, 'SetLayout');
asm
mov esp, ebp
pop ebp
jmp [_SetLayout]
end;
end;
{$ELSE}
function SetLayout; external gdi32 name 'SetLayout';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetLayout: Pointer;
function GetLayout;
begin
GetProcedureAddress(_GetLayout, gdi32, 'GetLayout');
asm
mov esp, ebp
pop ebp
jmp [_GetLayout]
end;
end;
{$ELSE}
function GetLayout; external gdi32 name 'GetLayout';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMetaFileBitsEx: Pointer;
function SetMetaFileBitsEx;
begin
GetProcedureAddress(_SetMetaFileBitsEx, gdi32, 'SetMetaFileBitsEx');
asm
mov esp, ebp
pop ebp
jmp [_SetMetaFileBitsEx]
end;
end;
{$ELSE}
function SetMetaFileBitsEx; external gdi32 name 'SetMetaFileBitsEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetPaletteEntries: Pointer;
function SetPaletteEntries;
begin
GetProcedureAddress(_SetPaletteEntries, gdi32, 'SetPaletteEntries');
asm
mov esp, ebp
pop ebp
jmp [_SetPaletteEntries]
end;
end;
{$ELSE}
function SetPaletteEntries; external gdi32 name 'SetPaletteEntries';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetPixel: Pointer;
function SetPixel;
begin
GetProcedureAddress(_SetPixel, gdi32, 'SetPixel');
asm
mov esp, ebp
pop ebp
jmp [_SetPixel]
end;
end;
{$ELSE}
function SetPixel; external gdi32 name 'SetPixel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetPixelV: Pointer;
function SetPixelV;
begin
GetProcedureAddress(_SetPixelV, gdi32, 'SetPixelV');
asm
mov esp, ebp
pop ebp
jmp [_SetPixelV]
end;
end;
{$ELSE}
function SetPixelV; external gdi32 name 'SetPixelV';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetPixelFormat: Pointer;
function SetPixelFormat;
begin
GetProcedureAddress(_SetPixelFormat, gdi32, 'SetPixelFormat');
asm
mov esp, ebp
pop ebp
jmp [_SetPixelFormat]
end;
end;
{$ELSE}
function SetPixelFormat; external gdi32 name 'SetPixelFormat';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetPolyFillMode: Pointer;
function SetPolyFillMode;
begin
GetProcedureAddress(_SetPolyFillMode, gdi32, 'SetPolyFillMode');
asm
mov esp, ebp
pop ebp
jmp [_SetPolyFillMode]
end;
end;
{$ELSE}
function SetPolyFillMode; external gdi32 name 'SetPolyFillMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_StretchBlt: Pointer;
function StretchBlt;
begin
GetProcedureAddress(_StretchBlt, gdi32, 'StretchBlt');
asm
mov esp, ebp
pop ebp
jmp [_StretchBlt]
end;
end;
{$ELSE}
function StretchBlt; external gdi32 name 'StretchBlt';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetRectRgn: Pointer;
function SetRectRgn;
begin
GetProcedureAddress(_SetRectRgn, gdi32, 'SetRectRgn');
asm
mov esp, ebp
pop ebp
jmp [_SetRectRgn]
end;
end;
{$ELSE}
function SetRectRgn; external gdi32 name 'SetRectRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_StretchDIBits: Pointer;
function StretchDIBits;
begin
GetProcedureAddress(_StretchDIBits, gdi32, 'StretchDIBits');
asm
mov esp, ebp
pop ebp
jmp [_StretchDIBits]
end;
end;
{$ELSE}
function StretchDIBits; external gdi32 name 'StretchDIBits';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetROP2: Pointer;
function SetROP2;
begin
GetProcedureAddress(_SetROP2, gdi32, 'SetROP2');
asm
mov esp, ebp
pop ebp
jmp [_SetROP2]
end;
end;
{$ELSE}
function SetROP2; external gdi32 name 'SetROP2';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetStretchBltMode: Pointer;
function SetStretchBltMode;
begin
GetProcedureAddress(_SetStretchBltMode, gdi32, 'SetStretchBltMode');
asm
mov esp, ebp
pop ebp
jmp [_SetStretchBltMode]
end;
end;
{$ELSE}
function SetStretchBltMode; external gdi32 name 'SetStretchBltMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetSystemPaletteUse: Pointer;
function SetSystemPaletteUse;
begin
GetProcedureAddress(_SetSystemPaletteUse, gdi32, 'SetSystemPaletteUse');
asm
mov esp, ebp
pop ebp
jmp [_SetSystemPaletteUse]
end;
end;
{$ELSE}
function SetSystemPaletteUse; external gdi32 name 'SetSystemPaletteUse';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetTextCharacterExtra: Pointer;
function SetTextCharacterExtra;
begin
GetProcedureAddress(_SetTextCharacterExtra, gdi32, 'SetTextCharacterExtra');
asm
mov esp, ebp
pop ebp
jmp [_SetTextCharacterExtra]
end;
end;
{$ELSE}
function SetTextCharacterExtra; external gdi32 name 'SetTextCharacterExtra';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetTextColor: Pointer;
function SetTextColor;
begin
GetProcedureAddress(_SetTextColor, gdi32, 'SetTextColor');
asm
mov esp, ebp
pop ebp
jmp [_SetTextColor]
end;
end;
{$ELSE}
function SetTextColor; external gdi32 name 'SetTextColor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetTextAlign: Pointer;
function SetTextAlign;
begin
GetProcedureAddress(_SetTextAlign, gdi32, 'SetTextAlign');
asm
mov esp, ebp
pop ebp
jmp [_SetTextAlign]
end;
end;
{$ELSE}
function SetTextAlign; external gdi32 name 'SetTextAlign';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetTextJustification: Pointer;
function SetTextJustification;
begin
GetProcedureAddress(_SetTextJustification, gdi32, 'SetTextJustification');
asm
mov esp, ebp
pop ebp
jmp [_SetTextJustification]
end;
end;
{$ELSE}
function SetTextJustification; external gdi32 name 'SetTextJustification';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UpdateColors: Pointer;
function UpdateColors;
begin
GetProcedureAddress(_UpdateColors, gdi32, 'UpdateColors');
asm
mov esp, ebp
pop ebp
jmp [_UpdateColors]
end;
end;
{$ELSE}
function UpdateColors; external gdi32 name 'UpdateColors';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AlphaBlend: Pointer;
function AlphaBlend;
begin
GetProcedureAddress(_AlphaBlend, msimg32, 'AlphaBlend');
asm
mov esp, ebp
pop ebp
jmp [_AlphaBlend]
end;
end;
{$ELSE}
function AlphaBlend; external msimg32 name 'AlphaBlend';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_TransparentBlt: Pointer;
function TransparentBlt;
begin
GetProcedureAddress(_TransparentBlt, msimg32, 'TransparentBlt');
asm
mov esp, ebp
pop ebp
jmp [_TransparentBlt]
end;
end;
{$ELSE}
function TransparentBlt; external msimg32 name 'TransparentBlt';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GradientFill: Pointer;
function GradientFill;
begin
GetProcedureAddress(_GradientFill, msimg32, 'GradientFill');
asm
mov esp, ebp
pop ebp
jmp [_GradientFill]
end;
end;
{$ELSE}
function GradientFill; external msimg32 name 'GradientFill';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PlayMetaFileRecord: Pointer;
function PlayMetaFileRecord;
begin
GetProcedureAddress(_PlayMetaFileRecord, gdi32, 'PlayMetaFileRecord');
asm
mov esp, ebp
pop ebp
jmp [_PlayMetaFileRecord]
end;
end;
{$ELSE}
function PlayMetaFileRecord; external gdi32 name 'PlayMetaFileRecord';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumMetaFile: Pointer;
function EnumMetaFile;
begin
GetProcedureAddress(_EnumMetaFile, gdi32, 'EnumMetaFile');
asm
mov esp, ebp
pop ebp
jmp [_EnumMetaFile]
end;
end;
{$ELSE}
function EnumMetaFile; external gdi32 name 'EnumMetaFile';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CloseEnhMetaFile: Pointer;
function CloseEnhMetaFile;
begin
GetProcedureAddress(_CloseEnhMetaFile, gdi32, 'CloseEnhMetaFile');
asm
mov esp, ebp
pop ebp
jmp [_CloseEnhMetaFile]
end;
end;
{$ELSE}
function CloseEnhMetaFile; external gdi32 name 'CloseEnhMetaFile';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CopyEnhMetaFileA: Pointer;
function CopyEnhMetaFileA;
begin
GetProcedureAddress(_CopyEnhMetaFileA, gdi32, 'CopyEnhMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_CopyEnhMetaFileA]
end;
end;
{$ELSE}
function CopyEnhMetaFileA; external gdi32 name 'CopyEnhMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CopyEnhMetaFileW: Pointer;
function CopyEnhMetaFileW;
begin
GetProcedureAddress(_CopyEnhMetaFileW, gdi32, 'CopyEnhMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_CopyEnhMetaFileW]
end;
end;
{$ELSE}
function CopyEnhMetaFileW; external gdi32 name 'CopyEnhMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CopyEnhMetaFile: Pointer;
function CopyEnhMetaFile;
begin
GetProcedureAddress(_CopyEnhMetaFile, gdi32, 'CopyEnhMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_CopyEnhMetaFile]
end;
end;
{$ELSE}
function CopyEnhMetaFile; external gdi32 name 'CopyEnhMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CopyEnhMetaFile: Pointer;
function CopyEnhMetaFile;
begin
GetProcedureAddress(_CopyEnhMetaFile, gdi32, 'CopyEnhMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_CopyEnhMetaFile]
end;
end;
{$ELSE}
function CopyEnhMetaFile; external gdi32 name 'CopyEnhMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateEnhMetaFileA: Pointer;
function CreateEnhMetaFileA;
begin
GetProcedureAddress(_CreateEnhMetaFileA, gdi32, 'CreateEnhMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_CreateEnhMetaFileA]
end;
end;
{$ELSE}
function CreateEnhMetaFileA; external gdi32 name 'CreateEnhMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateEnhMetaFileW: Pointer;
function CreateEnhMetaFileW;
begin
GetProcedureAddress(_CreateEnhMetaFileW, gdi32, 'CreateEnhMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_CreateEnhMetaFileW]
end;
end;
{$ELSE}
function CreateEnhMetaFileW; external gdi32 name 'CreateEnhMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateEnhMetaFile: Pointer;
function CreateEnhMetaFile;
begin
GetProcedureAddress(_CreateEnhMetaFile, gdi32, 'CreateEnhMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_CreateEnhMetaFile]
end;
end;
{$ELSE}
function CreateEnhMetaFile; external gdi32 name 'CreateEnhMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateEnhMetaFile: Pointer;
function CreateEnhMetaFile;
begin
GetProcedureAddress(_CreateEnhMetaFile, gdi32, 'CreateEnhMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_CreateEnhMetaFile]
end;
end;
{$ELSE}
function CreateEnhMetaFile; external gdi32 name 'CreateEnhMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DeleteEnhMetaFile: Pointer;
function DeleteEnhMetaFile;
begin
GetProcedureAddress(_DeleteEnhMetaFile, gdi32, 'DeleteEnhMetaFile');
asm
mov esp, ebp
pop ebp
jmp [_DeleteEnhMetaFile]
end;
end;
{$ELSE}
function DeleteEnhMetaFile; external gdi32 name 'DeleteEnhMetaFile';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumEnhMetaFile: Pointer;
function EnumEnhMetaFile;
begin
GetProcedureAddress(_EnumEnhMetaFile, gdi32, 'EnumEnhMetaFile');
asm
mov esp, ebp
pop ebp
jmp [_EnumEnhMetaFile]
end;
end;
{$ELSE}
function EnumEnhMetaFile; external gdi32 name 'EnumEnhMetaFile';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFileA: Pointer;
function GetEnhMetaFileA;
begin
GetProcedureAddress(_GetEnhMetaFileA, gdi32, 'GetEnhMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFileA]
end;
end;
{$ELSE}
function GetEnhMetaFileA; external gdi32 name 'GetEnhMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFileW: Pointer;
function GetEnhMetaFileW;
begin
GetProcedureAddress(_GetEnhMetaFileW, gdi32, 'GetEnhMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFileW]
end;
end;
{$ELSE}
function GetEnhMetaFileW; external gdi32 name 'GetEnhMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFile: Pointer;
function GetEnhMetaFile;
begin
GetProcedureAddress(_GetEnhMetaFile, gdi32, 'GetEnhMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFile]
end;
end;
{$ELSE}
function GetEnhMetaFile; external gdi32 name 'GetEnhMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFile: Pointer;
function GetEnhMetaFile;
begin
GetProcedureAddress(_GetEnhMetaFile, gdi32, 'GetEnhMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFile]
end;
end;
{$ELSE}
function GetEnhMetaFile; external gdi32 name 'GetEnhMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFileBits: Pointer;
function GetEnhMetaFileBits;
begin
GetProcedureAddress(_GetEnhMetaFileBits, gdi32, 'GetEnhMetaFileBits');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFileBits]
end;
end;
{$ELSE}
function GetEnhMetaFileBits; external gdi32 name 'GetEnhMetaFileBits';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFileDescriptionA: Pointer;
function GetEnhMetaFileDescriptionA;
begin
GetProcedureAddress(_GetEnhMetaFileDescriptionA, gdi32, 'GetEnhMetaFileDescriptionA');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFileDescriptionA]
end;
end;
{$ELSE}
function GetEnhMetaFileDescriptionA; external gdi32 name 'GetEnhMetaFileDescriptionA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFileDescriptionW: Pointer;
function GetEnhMetaFileDescriptionW;
begin
GetProcedureAddress(_GetEnhMetaFileDescriptionW, gdi32, 'GetEnhMetaFileDescriptionW');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFileDescriptionW]
end;
end;
{$ELSE}
function GetEnhMetaFileDescriptionW; external gdi32 name 'GetEnhMetaFileDescriptionW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFileDescription: Pointer;
function GetEnhMetaFileDescription;
begin
GetProcedureAddress(_GetEnhMetaFileDescription, gdi32, 'GetEnhMetaFileDescriptionW');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFileDescription]
end;
end;
{$ELSE}
function GetEnhMetaFileDescription; external gdi32 name 'GetEnhMetaFileDescriptionW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFileDescription: Pointer;
function GetEnhMetaFileDescription;
begin
GetProcedureAddress(_GetEnhMetaFileDescription, gdi32, 'GetEnhMetaFileDescriptionA');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFileDescription]
end;
end;
{$ELSE}
function GetEnhMetaFileDescription; external gdi32 name 'GetEnhMetaFileDescriptionA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFileHeader: Pointer;
function GetEnhMetaFileHeader;
begin
GetProcedureAddress(_GetEnhMetaFileHeader, gdi32, 'GetEnhMetaFileHeader');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFileHeader]
end;
end;
{$ELSE}
function GetEnhMetaFileHeader; external gdi32 name 'GetEnhMetaFileHeader';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFilePaletteEntries: Pointer;
function GetEnhMetaFilePaletteEntries;
begin
GetProcedureAddress(_GetEnhMetaFilePaletteEntries, gdi32, 'GetEnhMetaFilePaletteEntries');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFilePaletteEntries]
end;
end;
{$ELSE}
function GetEnhMetaFilePaletteEntries; external gdi32 name 'GetEnhMetaFilePaletteEntries';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetEnhMetaFilePixelFormat: Pointer;
function GetEnhMetaFilePixelFormat;
begin
GetProcedureAddress(_GetEnhMetaFilePixelFormat, gdi32, 'GetEnhMetaFilePixelFormat');
asm
mov esp, ebp
pop ebp
jmp [_GetEnhMetaFilePixelFormat]
end;
end;
{$ELSE}
function GetEnhMetaFilePixelFormat; external gdi32 name 'GetEnhMetaFilePixelFormat';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWinMetaFileBits: Pointer;
function GetWinMetaFileBits;
begin
GetProcedureAddress(_GetWinMetaFileBits, gdi32, 'GetWinMetaFileBits');
asm
mov esp, ebp
pop ebp
jmp [_GetWinMetaFileBits]
end;
end;
{$ELSE}
function GetWinMetaFileBits; external gdi32 name 'GetWinMetaFileBits';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PlayEnhMetaFile: Pointer;
function PlayEnhMetaFile;
begin
GetProcedureAddress(_PlayEnhMetaFile, gdi32, 'PlayEnhMetaFile');
asm
mov esp, ebp
pop ebp
jmp [_PlayEnhMetaFile]
end;
end;
{$ELSE}
function PlayEnhMetaFile; external gdi32 name 'PlayEnhMetaFile';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PlayEnhMetaFileRecord: Pointer;
function PlayEnhMetaFileRecord;
begin
GetProcedureAddress(_PlayEnhMetaFileRecord, gdi32, 'PlayEnhMetaFileRecord');
asm
mov esp, ebp
pop ebp
jmp [_PlayEnhMetaFileRecord]
end;
end;
{$ELSE}
function PlayEnhMetaFileRecord; external gdi32 name 'PlayEnhMetaFileRecord';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetEnhMetaFileBits: Pointer;
function SetEnhMetaFileBits;
begin
GetProcedureAddress(_SetEnhMetaFileBits, gdi32, 'SetEnhMetaFileBits');
asm
mov esp, ebp
pop ebp
jmp [_SetEnhMetaFileBits]
end;
end;
{$ELSE}
function SetEnhMetaFileBits; external gdi32 name 'SetEnhMetaFileBits';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWinMetaFileBits: Pointer;
function SetWinMetaFileBits;
begin
GetProcedureAddress(_SetWinMetaFileBits, gdi32, 'SetWinMetaFileBits');
asm
mov esp, ebp
pop ebp
jmp [_SetWinMetaFileBits]
end;
end;
{$ELSE}
function SetWinMetaFileBits; external gdi32 name 'SetWinMetaFileBits';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GdiComment: Pointer;
function GdiComment;
begin
GetProcedureAddress(_GdiComment, gdi32, 'GdiComment');
asm
mov esp, ebp
pop ebp
jmp [_GdiComment]
end;
end;
{$ELSE}
function GdiComment; external gdi32 name 'GdiComment';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextMetricsA: Pointer;
function GetTextMetricsA;
begin
GetProcedureAddress(_GetTextMetricsA, gdi32, 'GetTextMetricsA');
asm
mov esp, ebp
pop ebp
jmp [_GetTextMetricsA]
end;
end;
{$ELSE}
function GetTextMetricsA; external gdi32 name 'GetTextMetricsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextMetricsW: Pointer;
function GetTextMetricsW;
begin
GetProcedureAddress(_GetTextMetricsW, gdi32, 'GetTextMetricsW');
asm
mov esp, ebp
pop ebp
jmp [_GetTextMetricsW]
end;
end;
{$ELSE}
function GetTextMetricsW; external gdi32 name 'GetTextMetricsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetTextMetrics: Pointer;
function GetTextMetrics;
begin
GetProcedureAddress(_GetTextMetrics, gdi32, 'GetTextMetricsW');
asm
mov esp, ebp
pop ebp
jmp [_GetTextMetrics]
end;
end;
{$ELSE}
function GetTextMetrics; external gdi32 name 'GetTextMetricsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetTextMetrics: Pointer;
function GetTextMetrics;
begin
GetProcedureAddress(_GetTextMetrics, gdi32, 'GetTextMetricsA');
asm
mov esp, ebp
pop ebp
jmp [_GetTextMetrics]
end;
end;
{$ELSE}
function GetTextMetrics; external gdi32 name 'GetTextMetricsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_AngleArc: Pointer;
function AngleArc;
begin
GetProcedureAddress(_AngleArc, gdi32, 'AngleArc');
asm
mov esp, ebp
pop ebp
jmp [_AngleArc]
end;
end;
{$ELSE}
function AngleArc; external gdi32 name 'AngleArc';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PolyPolyline: Pointer;
function PolyPolyline;
begin
GetProcedureAddress(_PolyPolyline, gdi32, 'PolyPolyline');
asm
mov esp, ebp
pop ebp
jmp [_PolyPolyline]
end;
end;
{$ELSE}
function PolyPolyline; external gdi32 name 'PolyPolyline';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWorldTransform: Pointer;
function GetWorldTransform;
begin
GetProcedureAddress(_GetWorldTransform, gdi32, 'GetWorldTransform');
asm
mov esp, ebp
pop ebp
jmp [_GetWorldTransform]
end;
end;
{$ELSE}
function GetWorldTransform; external gdi32 name 'GetWorldTransform';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWorldTransform: Pointer;
function SetWorldTransform;
begin
GetProcedureAddress(_SetWorldTransform, gdi32, 'SetWorldTransform');
asm
mov esp, ebp
pop ebp
jmp [_SetWorldTransform]
end;
end;
{$ELSE}
function SetWorldTransform; external gdi32 name 'SetWorldTransform';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ModifyWorldTransform: Pointer;
function ModifyWorldTransform;
begin
GetProcedureAddress(_ModifyWorldTransform, gdi32, 'ModifyWorldTransform');
asm
mov esp, ebp
pop ebp
jmp [_ModifyWorldTransform]
end;
end;
{$ELSE}
function ModifyWorldTransform; external gdi32 name 'ModifyWorldTransform';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CombineTransform: Pointer;
function CombineTransform;
begin
GetProcedureAddress(_CombineTransform, gdi32, 'CombineTransform');
asm
mov esp, ebp
pop ebp
jmp [_CombineTransform]
end;
end;
{$ELSE}
function CombineTransform; external gdi32 name 'CombineTransform';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateDIBSection: Pointer;
function CreateDIBSection;
begin
GetProcedureAddress(_CreateDIBSection, gdi32, 'CreateDIBSection');
asm
mov esp, ebp
pop ebp
jmp [_CreateDIBSection]
end;
end;
{$ELSE}
function CreateDIBSection; external gdi32 name 'CreateDIBSection';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDIBColorTable: Pointer;
function GetDIBColorTable;
begin
GetProcedureAddress(_GetDIBColorTable, gdi32, 'GetDIBColorTable');
asm
mov esp, ebp
pop ebp
jmp [_GetDIBColorTable]
end;
end;
{$ELSE}
function GetDIBColorTable; external gdi32 name 'GetDIBColorTable';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDIBColorTable: Pointer;
function SetDIBColorTable;
begin
GetProcedureAddress(_SetDIBColorTable, gdi32, 'SetDIBColorTable');
asm
mov esp, ebp
pop ebp
jmp [_SetDIBColorTable]
end;
end;
{$ELSE}
function SetDIBColorTable; external gdi32 name 'SetDIBColorTable';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetColorAdjustment: Pointer;
function SetColorAdjustment;
begin
GetProcedureAddress(_SetColorAdjustment, gdi32, 'SetColorAdjustment');
asm
mov esp, ebp
pop ebp
jmp [_SetColorAdjustment]
end;
end;
{$ELSE}
function SetColorAdjustment; external gdi32 name 'SetColorAdjustment';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetColorAdjustment: Pointer;
function GetColorAdjustment;
begin
GetProcedureAddress(_GetColorAdjustment, gdi32, 'GetColorAdjustment');
asm
mov esp, ebp
pop ebp
jmp [_GetColorAdjustment]
end;
end;
{$ELSE}
function GetColorAdjustment; external gdi32 name 'GetColorAdjustment';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateHalftonePalette: Pointer;
function CreateHalftonePalette;
begin
GetProcedureAddress(_CreateHalftonePalette, gdi32, 'CreateHalftonePalette');
asm
mov esp, ebp
pop ebp
jmp [_CreateHalftonePalette]
end;
end;
{$ELSE}
function CreateHalftonePalette; external gdi32 name 'CreateHalftonePalette';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_StartDocA: Pointer;
function StartDocA;
begin
GetProcedureAddress(_StartDocA, gdi32, 'StartDocA');
asm
mov esp, ebp
pop ebp
jmp [_StartDocA]
end;
end;
{$ELSE}
function StartDocA; external gdi32 name 'StartDocA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_StartDocW: Pointer;
function StartDocW;
begin
GetProcedureAddress(_StartDocW, gdi32, 'StartDocW');
asm
mov esp, ebp
pop ebp
jmp [_StartDocW]
end;
end;
{$ELSE}
function StartDocW; external gdi32 name 'StartDocW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_StartDoc: Pointer;
function StartDoc;
begin
GetProcedureAddress(_StartDoc, gdi32, 'StartDocW');
asm
mov esp, ebp
pop ebp
jmp [_StartDoc]
end;
end;
{$ELSE}
function StartDoc; external gdi32 name 'StartDocW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
__StartDoc: Pointer;
function StartDoc;
begin
GetProcedureAddress(__StartDoc, gdi32, 'StartDocA');
asm
mov esp, ebp
pop ebp
jmp [__StartDoc]
end;
end;
{$ELSE}
function StartDoc; external gdi32 name 'StartDocA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
__EndDoc: Pointer;
function EndDoc;
begin
GetProcedureAddress(__EndDoc, gdi32, 'EndDoc');
asm
mov esp, ebp
pop ebp
jmp [__EndDoc]
end;
end;
{$ELSE}
function EndDoc; external gdi32 name 'EndDoc';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_StartPage: Pointer;
function StartPage;
begin
GetProcedureAddress(_StartPage, gdi32, 'StartPage');
asm
mov esp, ebp
pop ebp
jmp [_StartPage]
end;
end;
{$ELSE}
function StartPage; external gdi32 name 'StartPage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EndPage: Pointer;
function EndPage;
begin
GetProcedureAddress(_EndPage, gdi32, 'EndPage');
asm
mov esp, ebp
pop ebp
jmp [_EndPage]
end;
end;
{$ELSE}
function EndPage; external gdi32 name 'EndPage';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
__AbortDoc: Pointer;
function AbortDoc;
begin
GetProcedureAddress(__AbortDoc, gdi32, 'AbortDoc');
asm
mov esp, ebp
pop ebp
jmp [__AbortDoc]
end;
end;
{$ELSE}
function AbortDoc; external gdi32 name 'AbortDoc';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetAbortProc: Pointer;
function SetAbortProc;
begin
GetProcedureAddress(_SetAbortProc, gdi32, 'SetAbortProc');
asm
mov esp, ebp
pop ebp
jmp [_SetAbortProc]
end;
end;
{$ELSE}
function SetAbortProc; external gdi32 name 'SetAbortProc';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AbortPath: Pointer;
function AbortPath;
begin
GetProcedureAddress(_AbortPath, gdi32, 'AbortPath');
asm
mov esp, ebp
pop ebp
jmp [_AbortPath]
end;
end;
{$ELSE}
function AbortPath; external gdi32 name 'AbortPath';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ArcTo: Pointer;
function ArcTo;
begin
GetProcedureAddress(_ArcTo, gdi32, 'ArcTo');
asm
mov esp, ebp
pop ebp
jmp [_ArcTo]
end;
end;
{$ELSE}
function ArcTo; external gdi32 name 'ArcTo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BeginPath: Pointer;
function BeginPath;
begin
GetProcedureAddress(_BeginPath, gdi32, 'BeginPath');
asm
mov esp, ebp
pop ebp
jmp [_BeginPath]
end;
end;
{$ELSE}
function BeginPath; external gdi32 name 'BeginPath';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CloseFigure: Pointer;
function CloseFigure;
begin
GetProcedureAddress(_CloseFigure, gdi32, 'CloseFigure');
asm
mov esp, ebp
pop ebp
jmp [_CloseFigure]
end;
end;
{$ELSE}
function CloseFigure; external gdi32 name 'CloseFigure';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EndPath: Pointer;
function EndPath;
begin
GetProcedureAddress(_EndPath, gdi32, 'EndPath');
asm
mov esp, ebp
pop ebp
jmp [_EndPath]
end;
end;
{$ELSE}
function EndPath; external gdi32 name 'EndPath';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FillPath: Pointer;
function FillPath;
begin
GetProcedureAddress(_FillPath, gdi32, 'FillPath');
asm
mov esp, ebp
pop ebp
jmp [_FillPath]
end;
end;
{$ELSE}
function FillPath; external gdi32 name 'FillPath';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FlattenPath: Pointer;
function FlattenPath;
begin
GetProcedureAddress(_FlattenPath, gdi32, 'FlattenPath');
asm
mov esp, ebp
pop ebp
jmp [_FlattenPath]
end;
end;
{$ELSE}
function FlattenPath; external gdi32 name 'FlattenPath';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPath: Pointer;
function GetPath;
begin
GetProcedureAddress(_GetPath, gdi32, 'GetPath');
asm
mov esp, ebp
pop ebp
jmp [_GetPath]
end;
end;
{$ELSE}
function GetPath; external gdi32 name 'GetPath';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PathToRegion: Pointer;
function PathToRegion;
begin
GetProcedureAddress(_PathToRegion, gdi32, 'PathToRegion');
asm
mov esp, ebp
pop ebp
jmp [_PathToRegion]
end;
end;
{$ELSE}
function PathToRegion; external gdi32 name 'PathToRegion';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PolyDraw: Pointer;
function PolyDraw;
begin
GetProcedureAddress(_PolyDraw, gdi32, 'PolyDraw');
asm
mov esp, ebp
pop ebp
jmp [_PolyDraw]
end;
end;
{$ELSE}
function PolyDraw; external gdi32 name 'PolyDraw';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SelectClipPath: Pointer;
function SelectClipPath;
begin
GetProcedureAddress(_SelectClipPath, gdi32, 'SelectClipPath');
asm
mov esp, ebp
pop ebp
jmp [_SelectClipPath]
end;
end;
{$ELSE}
function SelectClipPath; external gdi32 name 'SelectClipPath';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetArcDirection: Pointer;
function SetArcDirection;
begin
GetProcedureAddress(_SetArcDirection, gdi32, 'SetArcDirection');
asm
mov esp, ebp
pop ebp
jmp [_SetArcDirection]
end;
end;
{$ELSE}
function SetArcDirection; external gdi32 name 'SetArcDirection';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetMiterLimit: Pointer;
function SetMiterLimit;
begin
GetProcedureAddress(_SetMiterLimit, gdi32, 'SetMiterLimit');
asm
mov esp, ebp
pop ebp
jmp [_SetMiterLimit]
end;
end;
{$ELSE}
function SetMiterLimit; external gdi32 name 'SetMiterLimit';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_StrokeAndFillPath: Pointer;
function StrokeAndFillPath;
begin
GetProcedureAddress(_StrokeAndFillPath, gdi32, 'StrokeAndFillPath');
asm
mov esp, ebp
pop ebp
jmp [_StrokeAndFillPath]
end;
end;
{$ELSE}
function StrokeAndFillPath; external gdi32 name 'StrokeAndFillPath';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_StrokePath: Pointer;
function StrokePath;
begin
GetProcedureAddress(_StrokePath, gdi32, 'StrokePath');
asm
mov esp, ebp
pop ebp
jmp [_StrokePath]
end;
end;
{$ELSE}
function StrokePath; external gdi32 name 'StrokePath';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WidenPath: Pointer;
function WidenPath;
begin
GetProcedureAddress(_WidenPath, gdi32, 'WidenPath');
asm
mov esp, ebp
pop ebp
jmp [_WidenPath]
end;
end;
{$ELSE}
function WidenPath; external gdi32 name 'WidenPath';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ExtCreatePen: Pointer;
function ExtCreatePen;
begin
GetProcedureAddress(_ExtCreatePen, gdi32, 'ExtCreatePen');
asm
mov esp, ebp
pop ebp
jmp [_ExtCreatePen]
end;
end;
{$ELSE}
function ExtCreatePen; external gdi32 name 'ExtCreatePen';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMiterLimit: Pointer;
function GetMiterLimit;
begin
GetProcedureAddress(_GetMiterLimit, gdi32, 'GetMiterLimit');
asm
mov esp, ebp
pop ebp
jmp [_GetMiterLimit]
end;
end;
{$ELSE}
function GetMiterLimit; external gdi32 name 'GetMiterLimit';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetArcDirection: Pointer;
function GetArcDirection;
begin
GetProcedureAddress(_GetArcDirection, gdi32, 'GetArcDirection');
asm
mov esp, ebp
pop ebp
jmp [_GetArcDirection]
end;
end;
{$ELSE}
function GetArcDirection; external gdi32 name 'GetArcDirection';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetObjectA: Pointer;
function GetObjectA;
begin
GetProcedureAddress(_GetObjectA, gdi32, 'GetObjectA');
asm
mov esp, ebp
pop ebp
jmp [_GetObjectA]
end;
end;
{$ELSE}
function GetObjectA; external gdi32 name 'GetObjectA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetObjectW: Pointer;
function GetObjectW;
begin
GetProcedureAddress(_GetObjectW, gdi32, 'GetObjectW');
asm
mov esp, ebp
pop ebp
jmp [_GetObjectW]
end;
end;
{$ELSE}
function GetObjectW; external gdi32 name 'GetObjectW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetObject: Pointer;
function GetObject;
begin
GetProcedureAddress(_GetObject, gdi32, 'GetObjectW');
asm
mov esp, ebp
pop ebp
jmp [_GetObject]
end;
end;
{$ELSE}
function GetObject; external gdi32 name 'GetObjectW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetObject: Pointer;
function GetObject;
begin
GetProcedureAddress(_GetObject, gdi32, 'GetObjectA');
asm
mov esp, ebp
pop ebp
jmp [_GetObject]
end;
end;
{$ELSE}
function GetObject; external gdi32 name 'GetObjectA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_MoveToEx: Pointer;
function MoveToEx;
begin
GetProcedureAddress(_MoveToEx, gdi32, 'MoveToEx');
asm
mov esp, ebp
pop ebp
jmp [_MoveToEx]
end;
end;
{$ELSE}
function MoveToEx; external gdi32 name 'MoveToEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_TextOutA: Pointer;
function TextOutA;
begin
GetProcedureAddress(_TextOutA, gdi32, 'TextOutA');
asm
mov esp, ebp
pop ebp
jmp [_TextOutA]
end;
end;
{$ELSE}
function TextOutA; external gdi32 name 'TextOutA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_TextOutW: Pointer;
function TextOutW;
begin
GetProcedureAddress(_TextOutW, gdi32, 'TextOutW');
asm
mov esp, ebp
pop ebp
jmp [_TextOutW]
end;
end;
{$ELSE}
function TextOutW; external gdi32 name 'TextOutW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_TextOut: Pointer;
function TextOut;
begin
GetProcedureAddress(_TextOut, gdi32, 'TextOutW');
asm
mov esp, ebp
pop ebp
jmp [_TextOut]
end;
end;
{$ELSE}
function TextOut; external gdi32 name 'TextOutW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_TextOut: Pointer;
function TextOut;
begin
GetProcedureAddress(_TextOut, gdi32, 'TextOutA');
asm
mov esp, ebp
pop ebp
jmp [_TextOut]
end;
end;
{$ELSE}
function TextOut; external gdi32 name 'TextOutA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_ExtTextOutA: Pointer;
function ExtTextOutA;
begin
GetProcedureAddress(_ExtTextOutA, gdi32, 'ExtTextOutA');
asm
mov esp, ebp
pop ebp
jmp [_ExtTextOutA]
end;
end;
{$ELSE}
function ExtTextOutA; external gdi32 name 'ExtTextOutA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ExtTextOutW: Pointer;
function ExtTextOutW;
begin
GetProcedureAddress(_ExtTextOutW, gdi32, 'ExtTextOutW');
asm
mov esp, ebp
pop ebp
jmp [_ExtTextOutW]
end;
end;
{$ELSE}
function ExtTextOutW; external gdi32 name 'ExtTextOutW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_ExtTextOut: Pointer;
function ExtTextOut;
begin
GetProcedureAddress(_ExtTextOut, gdi32, 'ExtTextOutW');
asm
mov esp, ebp
pop ebp
jmp [_ExtTextOut]
end;
end;
{$ELSE}
function ExtTextOut; external gdi32 name 'ExtTextOutW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_ExtTextOut: Pointer;
function ExtTextOut;
begin
GetProcedureAddress(_ExtTextOut, gdi32, 'ExtTextOutA');
asm
mov esp, ebp
pop ebp
jmp [_ExtTextOut]
end;
end;
{$ELSE}
function ExtTextOut; external gdi32 name 'ExtTextOutA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_PolyTextOutA: Pointer;
function PolyTextOutA;
begin
GetProcedureAddress(_PolyTextOutA, gdi32, 'PolyTextOutA');
asm
mov esp, ebp
pop ebp
jmp [_PolyTextOutA]
end;
end;
{$ELSE}
function PolyTextOutA; external gdi32 name 'PolyTextOutA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PolyTextOutW: Pointer;
function PolyTextOutW;
begin
GetProcedureAddress(_PolyTextOutW, gdi32, 'PolyTextOutW');
asm
mov esp, ebp
pop ebp
jmp [_PolyTextOutW]
end;
end;
{$ELSE}
function PolyTextOutW; external gdi32 name 'PolyTextOutW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_PolyTextOut: Pointer;
function PolyTextOut;
begin
GetProcedureAddress(_PolyTextOut, gdi32, 'PolyTextOutW');
asm
mov esp, ebp
pop ebp
jmp [_PolyTextOut]
end;
end;
{$ELSE}
function PolyTextOut; external gdi32 name 'PolyTextOutW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_PolyTextOut: Pointer;
function PolyTextOut;
begin
GetProcedureAddress(_PolyTextOut, gdi32, 'PolyTextOutA');
asm
mov esp, ebp
pop ebp
jmp [_PolyTextOut]
end;
end;
{$ELSE}
function PolyTextOut; external gdi32 name 'PolyTextOutA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreatePolygonRgn: Pointer;
function CreatePolygonRgn;
begin
GetProcedureAddress(_CreatePolygonRgn, gdi32, 'CreatePolygonRgn');
asm
mov esp, ebp
pop ebp
jmp [_CreatePolygonRgn]
end;
end;
{$ELSE}
function CreatePolygonRgn; external gdi32 name 'CreatePolygonRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DPtoLP: Pointer;
function DPtoLP;
begin
GetProcedureAddress(_DPtoLP, gdi32, 'DPtoLP');
asm
mov esp, ebp
pop ebp
jmp [_DPtoLP]
end;
end;
{$ELSE}
function DPtoLP; external gdi32 name 'DPtoLP';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LPtoDP: Pointer;
function LPtoDP;
begin
GetProcedureAddress(_LPtoDP, gdi32, 'LPtoDP');
asm
mov esp, ebp
pop ebp
jmp [_LPtoDP]
end;
end;
{$ELSE}
function LPtoDP; external gdi32 name 'LPtoDP';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_Polygon: Pointer;
function Polygon;
begin
GetProcedureAddress(_Polygon, gdi32, 'Polygon');
asm
mov esp, ebp
pop ebp
jmp [_Polygon]
end;
end;
{$ELSE}
function Polygon; external gdi32 name 'Polygon';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_Polyline: Pointer;
function Polyline;
begin
GetProcedureAddress(_Polyline, gdi32, 'Polyline');
asm
mov esp, ebp
pop ebp
jmp [_Polyline]
end;
end;
{$ELSE}
function Polyline; external gdi32 name 'Polyline';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PolyBezier: Pointer;
function PolyBezier;
begin
GetProcedureAddress(_PolyBezier, gdi32, 'PolyBezier');
asm
mov esp, ebp
pop ebp
jmp [_PolyBezier]
end;
end;
{$ELSE}
function PolyBezier; external gdi32 name 'PolyBezier';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PolyBezierTo: Pointer;
function PolyBezierTo;
begin
GetProcedureAddress(_PolyBezierTo, gdi32, 'PolyBezierTo');
asm
mov esp, ebp
pop ebp
jmp [_PolyBezierTo]
end;
end;
{$ELSE}
function PolyBezierTo; external gdi32 name 'PolyBezierTo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PolylineTo: Pointer;
function PolylineTo;
begin
GetProcedureAddress(_PolylineTo, gdi32, 'PolylineTo');
asm
mov esp, ebp
pop ebp
jmp [_PolylineTo]
end;
end;
{$ELSE}
function PolylineTo; external gdi32 name 'PolylineTo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetViewportExtEx: Pointer;
function SetViewportExtEx;
begin
GetProcedureAddress(_SetViewportExtEx, gdi32, 'SetViewportExtEx');
asm
mov esp, ebp
pop ebp
jmp [_SetViewportExtEx]
end;
end;
{$ELSE}
function SetViewportExtEx; external gdi32 name 'SetViewportExtEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetViewportOrgEx: Pointer;
function SetViewportOrgEx;
begin
GetProcedureAddress(_SetViewportOrgEx, gdi32, 'SetViewportOrgEx');
asm
mov esp, ebp
pop ebp
jmp [_SetViewportOrgEx]
end;
end;
{$ELSE}
function SetViewportOrgEx; external gdi32 name 'SetViewportOrgEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowExtEx: Pointer;
function SetWindowExtEx;
begin
GetProcedureAddress(_SetWindowExtEx, gdi32, 'SetWindowExtEx');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowExtEx]
end;
end;
{$ELSE}
function SetWindowExtEx; external gdi32 name 'SetWindowExtEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetWindowOrgEx: Pointer;
function SetWindowOrgEx;
begin
GetProcedureAddress(_SetWindowOrgEx, gdi32, 'SetWindowOrgEx');
asm
mov esp, ebp
pop ebp
jmp [_SetWindowOrgEx]
end;
end;
{$ELSE}
function SetWindowOrgEx; external gdi32 name 'SetWindowOrgEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OffsetViewportOrgEx: Pointer;
function OffsetViewportOrgEx;
begin
GetProcedureAddress(_OffsetViewportOrgEx, gdi32, 'OffsetViewportOrgEx');
asm
mov esp, ebp
pop ebp
jmp [_OffsetViewportOrgEx]
end;
end;
{$ELSE}
function OffsetViewportOrgEx; external gdi32 name 'OffsetViewportOrgEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OffsetWindowOrgEx: Pointer;
function OffsetWindowOrgEx;
begin
GetProcedureAddress(_OffsetWindowOrgEx, gdi32, 'OffsetWindowOrgEx');
asm
mov esp, ebp
pop ebp
jmp [_OffsetWindowOrgEx]
end;
end;
{$ELSE}
function OffsetWindowOrgEx; external gdi32 name 'OffsetWindowOrgEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ScaleViewportExtEx: Pointer;
function ScaleViewportExtEx;
begin
GetProcedureAddress(_ScaleViewportExtEx, gdi32, 'ScaleViewportExtEx');
asm
mov esp, ebp
pop ebp
jmp [_ScaleViewportExtEx]
end;
end;
{$ELSE}
function ScaleViewportExtEx; external gdi32 name 'ScaleViewportExtEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ScaleWindowExtEx: Pointer;
function ScaleWindowExtEx;
begin
GetProcedureAddress(_ScaleWindowExtEx, gdi32, 'ScaleWindowExtEx');
asm
mov esp, ebp
pop ebp
jmp [_ScaleWindowExtEx]
end;
end;
{$ELSE}
function ScaleWindowExtEx; external gdi32 name 'ScaleWindowExtEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetBitmapDimensionEx: Pointer;
function SetBitmapDimensionEx;
begin
GetProcedureAddress(_SetBitmapDimensionEx, gdi32, 'SetBitmapDimensionEx');
asm
mov esp, ebp
pop ebp
jmp [_SetBitmapDimensionEx]
end;
end;
{$ELSE}
function SetBitmapDimensionEx; external gdi32 name 'SetBitmapDimensionEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetBrushOrgEx: Pointer;
function SetBrushOrgEx;
begin
GetProcedureAddress(_SetBrushOrgEx, gdi32, 'SetBrushOrgEx');
asm
mov esp, ebp
pop ebp
jmp [_SetBrushOrgEx]
end;
end;
{$ELSE}
function SetBrushOrgEx; external gdi32 name 'SetBrushOrgEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextFaceA: Pointer;
function GetTextFaceA;
begin
GetProcedureAddress(_GetTextFaceA, gdi32, 'GetTextFaceA');
asm
mov esp, ebp
pop ebp
jmp [_GetTextFaceA]
end;
end;
{$ELSE}
function GetTextFaceA; external gdi32 name 'GetTextFaceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextFaceW: Pointer;
function GetTextFaceW;
begin
GetProcedureAddress(_GetTextFaceW, gdi32, 'GetTextFaceW');
asm
mov esp, ebp
pop ebp
jmp [_GetTextFaceW]
end;
end;
{$ELSE}
function GetTextFaceW; external gdi32 name 'GetTextFaceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetTextFace: Pointer;
function GetTextFace;
begin
GetProcedureAddress(_GetTextFace, gdi32, 'GetTextFaceW');
asm
mov esp, ebp
pop ebp
jmp [_GetTextFace]
end;
end;
{$ELSE}
function GetTextFace; external gdi32 name 'GetTextFaceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetTextFace: Pointer;
function GetTextFace;
begin
GetProcedureAddress(_GetTextFace, gdi32, 'GetTextFaceA');
asm
mov esp, ebp
pop ebp
jmp [_GetTextFace]
end;
end;
{$ELSE}
function GetTextFace; external gdi32 name 'GetTextFaceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetKerningPairsA: Pointer;
function GetKerningPairsA;
begin
GetProcedureAddress(_GetKerningPairsA, gdi32, 'GetKerningPairsA');
asm
mov esp, ebp
pop ebp
jmp [_GetKerningPairsA]
end;
end;
{$ELSE}
function GetKerningPairsA; external gdi32 name 'GetKerningPairsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetKerningPairsW: Pointer;
function GetKerningPairsW;
begin
GetProcedureAddress(_GetKerningPairsW, gdi32, 'GetKerningPairsW');
asm
mov esp, ebp
pop ebp
jmp [_GetKerningPairsW]
end;
end;
{$ELSE}
function GetKerningPairsW; external gdi32 name 'GetKerningPairsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetKerningPairs: Pointer;
function GetKerningPairs;
begin
GetProcedureAddress(_GetKerningPairs, gdi32, 'GetKerningPairsW');
asm
mov esp, ebp
pop ebp
jmp [_GetKerningPairs]
end;
end;
{$ELSE}
function GetKerningPairs; external gdi32 name 'GetKerningPairsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetKerningPairs: Pointer;
function GetKerningPairs;
begin
GetProcedureAddress(_GetKerningPairs, gdi32, 'GetKerningPairsA');
asm
mov esp, ebp
pop ebp
jmp [_GetKerningPairs]
end;
end;
{$ELSE}
function GetKerningPairs; external gdi32 name 'GetKerningPairsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetDCOrgEx: Pointer;
function GetDCOrgEx;
begin
GetProcedureAddress(_GetDCOrgEx, gdi32, 'GetDCOrgEx');
asm
mov esp, ebp
pop ebp
jmp [_GetDCOrgEx]
end;
end;
{$ELSE}
function GetDCOrgEx; external gdi32 name 'GetDCOrgEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FixBrushOrgEx: Pointer;
function FixBrushOrgEx;
begin
GetProcedureAddress(_FixBrushOrgEx, gdi32, 'FixBrushOrgEx');
asm
mov esp, ebp
pop ebp
jmp [_FixBrushOrgEx]
end;
end;
{$ELSE}
function FixBrushOrgEx; external gdi32 name 'FixBrushOrgEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UnrealizeObject: Pointer;
function UnrealizeObject;
begin
GetProcedureAddress(_UnrealizeObject, gdi32, 'UnrealizeObject');
asm
mov esp, ebp
pop ebp
jmp [_UnrealizeObject]
end;
end;
{$ELSE}
function UnrealizeObject; external gdi32 name 'UnrealizeObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GdiFlush: Pointer;
function GdiFlush;
begin
GetProcedureAddress(_GdiFlush, gdi32, 'GdiFlush');
asm
mov esp, ebp
pop ebp
jmp [_GdiFlush]
end;
end;
{$ELSE}
function GdiFlush; external gdi32 name 'GdiFlush';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GdiSetBatchLimit: Pointer;
function GdiSetBatchLimit;
begin
GetProcedureAddress(_GdiSetBatchLimit, gdi32, 'GdiSetBatchLimit');
asm
mov esp, ebp
pop ebp
jmp [_GdiSetBatchLimit]
end;
end;
{$ELSE}
function GdiSetBatchLimit; external gdi32 name 'GdiSetBatchLimit';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GdiGetBatchLimit: Pointer;
function GdiGetBatchLimit;
begin
GetProcedureAddress(_GdiGetBatchLimit, gdi32, 'GdiGetBatchLimit');
asm
mov esp, ebp
pop ebp
jmp [_GdiGetBatchLimit]
end;
end;
{$ELSE}
function GdiGetBatchLimit; external gdi32 name 'GdiGetBatchLimit';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetICMMode: Pointer;
function SetICMMode;
begin
GetProcedureAddress(_SetICMMode, gdi32, 'SetICMMode');
asm
mov esp, ebp
pop ebp
jmp [_SetICMMode]
end;
end;
{$ELSE}
function SetICMMode; external gdi32 name 'SetICMMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CheckColorsInGamut: Pointer;
function CheckColorsInGamut;
begin
GetProcedureAddress(_CheckColorsInGamut, gdi32, 'CheckColorsInGamut');
asm
mov esp, ebp
pop ebp
jmp [_CheckColorsInGamut]
end;
end;
{$ELSE}
function CheckColorsInGamut; external gdi32 name 'CheckColorsInGamut';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetColorSpace: Pointer;
function GetColorSpace;
begin
GetProcedureAddress(_GetColorSpace, gdi32, 'GetColorSpace');
asm
mov esp, ebp
pop ebp
jmp [_GetColorSpace]
end;
end;
{$ELSE}
function GetColorSpace; external gdi32 name 'GetColorSpace';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetLogColorSpaceA: Pointer;
function GetLogColorSpaceA;
begin
GetProcedureAddress(_GetLogColorSpaceA, gdi32, 'GetLogColorSpaceA');
asm
mov esp, ebp
pop ebp
jmp [_GetLogColorSpaceA]
end;
end;
{$ELSE}
function GetLogColorSpaceA; external gdi32 name 'GetLogColorSpaceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetLogColorSpaceW: Pointer;
function GetLogColorSpaceW;
begin
GetProcedureAddress(_GetLogColorSpaceW, gdi32, 'GetLogColorSpaceW');
asm
mov esp, ebp
pop ebp
jmp [_GetLogColorSpaceW]
end;
end;
{$ELSE}
function GetLogColorSpaceW; external gdi32 name 'GetLogColorSpaceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetLogColorSpace: Pointer;
function GetLogColorSpace;
begin
GetProcedureAddress(_GetLogColorSpace, gdi32, 'GetLogColorSpaceW');
asm
mov esp, ebp
pop ebp
jmp [_GetLogColorSpace]
end;
end;
{$ELSE}
function GetLogColorSpace; external gdi32 name 'GetLogColorSpaceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetLogColorSpace: Pointer;
function GetLogColorSpace;
begin
GetProcedureAddress(_GetLogColorSpace, gdi32, 'GetLogColorSpaceA');
asm
mov esp, ebp
pop ebp
jmp [_GetLogColorSpace]
end;
end;
{$ELSE}
function GetLogColorSpace; external gdi32 name 'GetLogColorSpaceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateColorSpaceA: Pointer;
function CreateColorSpaceA;
begin
GetProcedureAddress(_CreateColorSpaceA, gdi32, 'CreateColorSpaceA');
asm
mov esp, ebp
pop ebp
jmp [_CreateColorSpaceA]
end;
end;
{$ELSE}
function CreateColorSpaceA; external gdi32 name 'CreateColorSpaceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateColorSpaceW: Pointer;
function CreateColorSpaceW;
begin
GetProcedureAddress(_CreateColorSpaceW, gdi32, 'CreateColorSpaceW');
asm
mov esp, ebp
pop ebp
jmp [_CreateColorSpaceW]
end;
end;
{$ELSE}
function CreateColorSpaceW; external gdi32 name 'CreateColorSpaceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateColorSpace: Pointer;
function CreateColorSpace;
begin
GetProcedureAddress(_CreateColorSpace, gdi32, 'CreateColorSpaceW');
asm
mov esp, ebp
pop ebp
jmp [_CreateColorSpace]
end;
end;
{$ELSE}
function CreateColorSpace; external gdi32 name 'CreateColorSpaceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateColorSpace: Pointer;
function CreateColorSpace;
begin
GetProcedureAddress(_CreateColorSpace, gdi32, 'CreateColorSpaceA');
asm
mov esp, ebp
pop ebp
jmp [_CreateColorSpace]
end;
end;
{$ELSE}
function CreateColorSpace; external gdi32 name 'CreateColorSpaceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetColorSpace: Pointer;
function SetColorSpace;
begin
GetProcedureAddress(_SetColorSpace, gdi32, 'SetColorSpace');
asm
mov esp, ebp
pop ebp
jmp [_SetColorSpace]
end;
end;
{$ELSE}
function SetColorSpace; external gdi32 name 'SetColorSpace';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeleteColorSpace: Pointer;
function DeleteColorSpace;
begin
GetProcedureAddress(_DeleteColorSpace, gdi32, 'DeleteColorSpace');
asm
mov esp, ebp
pop ebp
jmp [_DeleteColorSpace]
end;
end;
{$ELSE}
function DeleteColorSpace; external gdi32 name 'DeleteColorSpace';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetICMProfileA: Pointer;
function GetICMProfileA;
begin
GetProcedureAddress(_GetICMProfileA, gdi32, 'GetICMProfileA');
asm
mov esp, ebp
pop ebp
jmp [_GetICMProfileA]
end;
end;
{$ELSE}
function GetICMProfileA; external gdi32 name 'GetICMProfileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetICMProfileW: Pointer;
function GetICMProfileW;
begin
GetProcedureAddress(_GetICMProfileW, gdi32, 'GetICMProfileW');
asm
mov esp, ebp
pop ebp
jmp [_GetICMProfileW]
end;
end;
{$ELSE}
function GetICMProfileW; external gdi32 name 'GetICMProfileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetICMProfile: Pointer;
function GetICMProfile;
begin
GetProcedureAddress(_GetICMProfile, gdi32, 'GetICMProfileW');
asm
mov esp, ebp
pop ebp
jmp [_GetICMProfile]
end;
end;
{$ELSE}
function GetICMProfile; external gdi32 name 'GetICMProfileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetICMProfile: Pointer;
function GetICMProfile;
begin
GetProcedureAddress(_GetICMProfile, gdi32, 'GetICMProfileA');
asm
mov esp, ebp
pop ebp
jmp [_GetICMProfile]
end;
end;
{$ELSE}
function GetICMProfile; external gdi32 name 'GetICMProfileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetICMProfileA: Pointer;
function SetICMProfileA;
begin
GetProcedureAddress(_SetICMProfileA, gdi32, 'SetICMProfileA');
asm
mov esp, ebp
pop ebp
jmp [_SetICMProfileA]
end;
end;
{$ELSE}
function SetICMProfileA; external gdi32 name 'SetICMProfileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetICMProfileW: Pointer;
function SetICMProfileW;
begin
GetProcedureAddress(_SetICMProfileW, gdi32, 'SetICMProfileW');
asm
mov esp, ebp
pop ebp
jmp [_SetICMProfileW]
end;
end;
{$ELSE}
function SetICMProfileW; external gdi32 name 'SetICMProfileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetICMProfile: Pointer;
function SetICMProfile;
begin
GetProcedureAddress(_SetICMProfile, gdi32, 'SetICMProfileW');
asm
mov esp, ebp
pop ebp
jmp [_SetICMProfile]
end;
end;
{$ELSE}
function SetICMProfile; external gdi32 name 'SetICMProfileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetICMProfile: Pointer;
function SetICMProfile;
begin
GetProcedureAddress(_SetICMProfile, gdi32, 'SetICMProfileA');
asm
mov esp, ebp
pop ebp
jmp [_SetICMProfile]
end;
end;
{$ELSE}
function SetICMProfile; external gdi32 name 'SetICMProfileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetDeviceGammaRamp: Pointer;
function GetDeviceGammaRamp;
begin
GetProcedureAddress(_GetDeviceGammaRamp, gdi32, 'GetDeviceGammaRamp');
asm
mov esp, ebp
pop ebp
jmp [_GetDeviceGammaRamp]
end;
end;
{$ELSE}
function GetDeviceGammaRamp; external gdi32 name 'GetDeviceGammaRamp';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDeviceGammaRamp: Pointer;
function SetDeviceGammaRamp;
begin
GetProcedureAddress(_SetDeviceGammaRamp, gdi32, 'SetDeviceGammaRamp');
asm
mov esp, ebp
pop ebp
jmp [_SetDeviceGammaRamp]
end;
end;
{$ELSE}
function SetDeviceGammaRamp; external gdi32 name 'SetDeviceGammaRamp';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ColorMatchToTarget: Pointer;
function ColorMatchToTarget;
begin
GetProcedureAddress(_ColorMatchToTarget, gdi32, 'ColorMatchToTarget');
asm
mov esp, ebp
pop ebp
jmp [_ColorMatchToTarget]
end;
end;
{$ELSE}
function ColorMatchToTarget; external gdi32 name 'ColorMatchToTarget';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumICMProfilesA: Pointer;
function EnumICMProfilesA;
begin
GetProcedureAddress(_EnumICMProfilesA, gdi32, 'EnumICMProfilesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumICMProfilesA]
end;
end;
{$ELSE}
function EnumICMProfilesA; external gdi32 name 'EnumICMProfilesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumICMProfilesW: Pointer;
function EnumICMProfilesW;
begin
GetProcedureAddress(_EnumICMProfilesW, gdi32, 'EnumICMProfilesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumICMProfilesW]
end;
end;
{$ELSE}
function EnumICMProfilesW; external gdi32 name 'EnumICMProfilesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumICMProfiles: Pointer;
function EnumICMProfiles;
begin
GetProcedureAddress(_EnumICMProfiles, gdi32, 'EnumICMProfilesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumICMProfiles]
end;
end;
{$ELSE}
function EnumICMProfiles; external gdi32 name 'EnumICMProfilesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumICMProfiles: Pointer;
function EnumICMProfiles;
begin
GetProcedureAddress(_EnumICMProfiles, gdi32, 'EnumICMProfilesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumICMProfiles]
end;
end;
{$ELSE}
function EnumICMProfiles; external gdi32 name 'EnumICMProfilesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_UpdateICMRegKeyA: Pointer;
function UpdateICMRegKeyA;
begin
GetProcedureAddress(_UpdateICMRegKeyA, gdi32, 'UpdateICMRegKeyA');
asm
mov esp, ebp
pop ebp
jmp [_UpdateICMRegKeyA]
end;
end;
{$ELSE}
function UpdateICMRegKeyA; external gdi32 name 'UpdateICMRegKeyA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UpdateICMRegKeyW: Pointer;
function UpdateICMRegKeyW;
begin
GetProcedureAddress(_UpdateICMRegKeyW, gdi32, 'UpdateICMRegKeyW');
asm
mov esp, ebp
pop ebp
jmp [_UpdateICMRegKeyW]
end;
end;
{$ELSE}
function UpdateICMRegKeyW; external gdi32 name 'UpdateICMRegKeyW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_UpdateICMRegKey: Pointer;
function UpdateICMRegKey;
begin
GetProcedureAddress(_UpdateICMRegKey, gdi32, 'UpdateICMRegKeyW');
asm
mov esp, ebp
pop ebp
jmp [_UpdateICMRegKey]
end;
end;
{$ELSE}
function UpdateICMRegKey; external gdi32 name 'UpdateICMRegKeyW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_UpdateICMRegKey: Pointer;
function UpdateICMRegKey;
begin
GetProcedureAddress(_UpdateICMRegKey, gdi32, 'UpdateICMRegKeyA');
asm
mov esp, ebp
pop ebp
jmp [_UpdateICMRegKey]
end;
end;
{$ELSE}
function UpdateICMRegKey; external gdi32 name 'UpdateICMRegKeyA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_ColorCorrectPalette: Pointer;
function ColorCorrectPalette;
begin
GetProcedureAddress(_ColorCorrectPalette, gdi32, 'ColorCorrectPalette');
asm
mov esp, ebp
pop ebp
jmp [_ColorCorrectPalette]
end;
end;
{$ELSE}
function ColorCorrectPalette; external gdi32 name 'ColorCorrectPalette';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglCopyContext: Pointer;
function wglCopyContext;
begin
GetProcedureAddress(_wglCopyContext, opengl32, 'wglCopyContext');
asm
mov esp, ebp
pop ebp
jmp [_wglCopyContext]
end;
end;
{$ELSE}
function wglCopyContext; external opengl32 name 'wglCopyContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglCreateContext: Pointer;
function wglCreateContext;
begin
GetProcedureAddress(_wglCreateContext, opengl32, 'wglCreateContext');
asm
mov esp, ebp
pop ebp
jmp [_wglCreateContext]
end;
end;
{$ELSE}
function wglCreateContext; external opengl32 name 'wglCreateContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglCreateLayerContext: Pointer;
function wglCreateLayerContext;
begin
GetProcedureAddress(_wglCreateLayerContext, opengl32, 'wglCreateLayerContext');
asm
mov esp, ebp
pop ebp
jmp [_wglCreateLayerContext]
end;
end;
{$ELSE}
function wglCreateLayerContext; external opengl32 name 'wglCreateLayerContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglDeleteContext: Pointer;
function wglDeleteContext;
begin
GetProcedureAddress(_wglDeleteContext, opengl32, 'wglDeleteContext');
asm
mov esp, ebp
pop ebp
jmp [_wglDeleteContext]
end;
end;
{$ELSE}
function wglDeleteContext; external opengl32 name 'wglDeleteContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglGetCurrentContext: Pointer;
function wglGetCurrentContext;
begin
GetProcedureAddress(_wglGetCurrentContext, opengl32, 'wglGetCurrentContext');
asm
mov esp, ebp
pop ebp
jmp [_wglGetCurrentContext]
end;
end;
{$ELSE}
function wglGetCurrentContext; external opengl32 name 'wglGetCurrentContext';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglGetCurrentDC: Pointer;
function wglGetCurrentDC;
begin
GetProcedureAddress(_wglGetCurrentDC, opengl32, 'wglGetCurrentDC');
asm
mov esp, ebp
pop ebp
jmp [_wglGetCurrentDC]
end;
end;
{$ELSE}
function wglGetCurrentDC; external opengl32 name 'wglGetCurrentDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglGetProcAddress: Pointer;
function wglGetProcAddress;
begin
GetProcedureAddress(_wglGetProcAddress, opengl32, 'wglGetProcAddress');
asm
mov esp, ebp
pop ebp
jmp [_wglGetProcAddress]
end;
end;
{$ELSE}
function wglGetProcAddress; external opengl32 name 'wglGetProcAddress';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglMakeCurrent: Pointer;
function wglMakeCurrent;
begin
GetProcedureAddress(_wglMakeCurrent, opengl32, 'wglMakeCurrent');
asm
mov esp, ebp
pop ebp
jmp [_wglMakeCurrent]
end;
end;
{$ELSE}
function wglMakeCurrent; external opengl32 name 'wglMakeCurrent';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglShareLists: Pointer;
function wglShareLists;
begin
GetProcedureAddress(_wglShareLists, opengl32, 'wglShareLists');
asm
mov esp, ebp
pop ebp
jmp [_wglShareLists]
end;
end;
{$ELSE}
function wglShareLists; external opengl32 name 'wglShareLists';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglUseFontBitmapsA: Pointer;
function wglUseFontBitmapsA;
begin
GetProcedureAddress(_wglUseFontBitmapsA, opengl32, 'wglUseFontBitmapsA');
asm
mov esp, ebp
pop ebp
jmp [_wglUseFontBitmapsA]
end;
end;
{$ELSE}
function wglUseFontBitmapsA; external opengl32 name 'wglUseFontBitmapsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglUseFontBitmapsW: Pointer;
function wglUseFontBitmapsW;
begin
GetProcedureAddress(_wglUseFontBitmapsW, opengl32, 'wglUseFontBitmapsW');
asm
mov esp, ebp
pop ebp
jmp [_wglUseFontBitmapsW]
end;
end;
{$ELSE}
function wglUseFontBitmapsW; external opengl32 name 'wglUseFontBitmapsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_wglUseFontBitmaps: Pointer;
function wglUseFontBitmaps;
begin
GetProcedureAddress(_wglUseFontBitmaps, opengl32, 'wglUseFontBitmapsW');
asm
mov esp, ebp
pop ebp
jmp [_wglUseFontBitmaps]
end;
end;
{$ELSE}
function wglUseFontBitmaps; external opengl32 name 'wglUseFontBitmapsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_wglUseFontBitmaps: Pointer;
function wglUseFontBitmaps;
begin
GetProcedureAddress(_wglUseFontBitmaps, opengl32, 'wglUseFontBitmapsA');
asm
mov esp, ebp
pop ebp
jmp [_wglUseFontBitmaps]
end;
end;
{$ELSE}
function wglUseFontBitmaps; external opengl32 name 'wglUseFontBitmapsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SwapBuffers: Pointer;
function SwapBuffers;
begin
GetProcedureAddress(_SwapBuffers, opengl32, 'SwapBuffers');
asm
mov esp, ebp
pop ebp
jmp [_SwapBuffers]
end;
end;
{$ELSE}
function SwapBuffers; external opengl32 name 'SwapBuffers';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglUseFontOutlinesA: Pointer;
function wglUseFontOutlinesA;
begin
GetProcedureAddress(_wglUseFontOutlinesA, opengl32, 'wglUseFontOutlinesA');
asm
mov esp, ebp
pop ebp
jmp [_wglUseFontOutlinesA]
end;
end;
{$ELSE}
function wglUseFontOutlinesA; external opengl32 name 'wglUseFontOutlinesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglUseFontOutlinesW: Pointer;
function wglUseFontOutlinesW;
begin
GetProcedureAddress(_wglUseFontOutlinesW, opengl32, 'wglUseFontOutlinesW');
asm
mov esp, ebp
pop ebp
jmp [_wglUseFontOutlinesW]
end;
end;
{$ELSE}
function wglUseFontOutlinesW; external opengl32 name 'wglUseFontOutlinesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_wglUseFontOutlines: Pointer;
function wglUseFontOutlines;
begin
GetProcedureAddress(_wglUseFontOutlines, opengl32, 'wglUseFontOutlinesW');
asm
mov esp, ebp
pop ebp
jmp [_wglUseFontOutlines]
end;
end;
{$ELSE}
function wglUseFontOutlines; external opengl32 name 'wglUseFontOutlinesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_wglUseFontOutlines: Pointer;
function wglUseFontOutlines;
begin
GetProcedureAddress(_wglUseFontOutlines, opengl32, 'wglUseFontOutlinesA');
asm
mov esp, ebp
pop ebp
jmp [_wglUseFontOutlines]
end;
end;
{$ELSE}
function wglUseFontOutlines; external opengl32 name 'wglUseFontOutlinesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_wglDescribeLayerPlane: Pointer;
function wglDescribeLayerPlane;
begin
GetProcedureAddress(_wglDescribeLayerPlane, opengl32, 'wglDescribeLayerPlane');
asm
mov esp, ebp
pop ebp
jmp [_wglDescribeLayerPlane]
end;
end;
{$ELSE}
function wglDescribeLayerPlane; external opengl32 name 'wglDescribeLayerPlane';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglSetLayerPaletteEntries: Pointer;
function wglSetLayerPaletteEntries;
begin
GetProcedureAddress(_wglSetLayerPaletteEntries, opengl32, 'wglSetLayerPaletteEntries');
asm
mov esp, ebp
pop ebp
jmp [_wglSetLayerPaletteEntries]
end;
end;
{$ELSE}
function wglSetLayerPaletteEntries; external opengl32 name 'wglSetLayerPaletteEntries';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglGetLayerPaletteEntries: Pointer;
function wglGetLayerPaletteEntries;
begin
GetProcedureAddress(_wglGetLayerPaletteEntries, opengl32, 'wglGetLayerPaletteEntries');
asm
mov esp, ebp
pop ebp
jmp [_wglGetLayerPaletteEntries]
end;
end;
{$ELSE}
function wglGetLayerPaletteEntries; external opengl32 name 'wglGetLayerPaletteEntries';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglRealizeLayerPalette: Pointer;
function wglRealizeLayerPalette;
begin
GetProcedureAddress(_wglRealizeLayerPalette, opengl32, 'wglRealizeLayerPalette');
asm
mov esp, ebp
pop ebp
jmp [_wglRealizeLayerPalette]
end;
end;
{$ELSE}
function wglRealizeLayerPalette; external opengl32 name 'wglRealizeLayerPalette';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglSwapLayerBuffers: Pointer;
function wglSwapLayerBuffers;
begin
GetProcedureAddress(_wglSwapLayerBuffers, opengl32, 'wglSwapLayerBuffers');
asm
mov esp, ebp
pop ebp
jmp [_wglSwapLayerBuffers]
end;
end;
{$ELSE}
function wglSwapLayerBuffers; external opengl32 name 'wglSwapLayerBuffers';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_wglSwapMultipleBuffers: Pointer;
function wglSwapMultipleBuffers;
begin
GetProcedureAddress(_wglSwapMultipleBuffers, opengl32, 'wglSwapMultipleBuffers');
asm
mov esp, ebp
pop ebp
jmp [_wglSwapMultipleBuffers]
end;
end;
{$ELSE}
function wglSwapMultipleBuffers; external opengl32 name 'wglSwapMultipleBuffers';
{$ENDIF DYNAMIC_LINK}
end.