Windows编程

开发平台：

Delphi

JwaWinGDI.pas：源码内容

function wglSwapMultipleBuffers(fuCount: UINT; lpBuffers: LPWGLSWAP): DWORD; stdcall;
{$EXTERNALSYM wglSwapMultipleBuffers}
implementation
function MAKEROP4(Fore, Back: DWORD): DWORD;
begin
Result := ((Back shl 8) and DWORD($FF000000)) or Fore;
end;
function GetKValue(cmyk: COLORREF): BYTE;
begin
Result := BYTE(cmyk);
end;
function GetYValue(cmyk: COLORREF): BYTE;
begin
Result := BYTE(cmyk shr 8);
end;
function GetMValue(cmyk: COLORREF): BYTE;
begin
Result := BYTE(cmyk shr 16);
end;
function GetCValue(cmyk: COLORREF): BYTE;
begin
Result := BYTE(cmyk shr 24);
end;
function CMYK(c, m, y, k: BYTE): COLORREF;
begin
Result := COLORREF(k or (y shl 8) or (m shl 16) or (c shl 24));
end;
function MAKEPOINTS(l: DWORD): POINTS;
begin
Result.x := LOWORD(l);
Result.y := HIWORD(l);
end;
function RGB(r, g, b: BYTE): COLORREF;
begin
Result := COLORREF(r or (g shl 8) or (b shl 16));
end;
function PALETTERGB(r, g, b: BYTE): COLORREF;
begin
Result := $02000000 or RGB(r, g, b);
end;
function PALETTEINDEX(i: WORD): COLORREF;
begin
Result := COLORREF($01000000 or DWORD(i));
end;
function GetRValue(rgb: COLORREF): BYTE;
begin
Result := BYTE(RGB);
end;
function GetGValue(rgb: COLORREF): BYTE;
begin
Result := BYTE(rgb shr 8);
end;
function GetBValue(rgb: COLORREF): BYTE;
begin
Result := BYTE(rgb shr 16);
end;
const
gdi32 = 'gdi32.dll';
msimg32 = 'msimg32.dll';
winspool32 = 'winspool32.drv';
opengl32 = 'opengl32.dll';
{$IFDEF DYNAMIC_LINK}
var
_AddFontResourceA: Pointer;
function AddFontResourceA;
begin
GetProcedureAddress(_AddFontResourceA, gdi32, 'AddFontResourceA');
asm
mov esp, ebp
pop ebp
jmp [_AddFontResourceA]
end;
end;
{$ELSE}
function AddFontResourceA; external gdi32 name 'AddFontResourceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AddFontResourceW: Pointer;
function AddFontResourceW;
begin
GetProcedureAddress(_AddFontResourceW, gdi32, 'AddFontResourceW');
asm
mov esp, ebp
pop ebp
jmp [_AddFontResourceW]
end;
end;
{$ELSE}
function AddFontResourceW; external gdi32 name 'AddFontResourceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_AddFontResource: Pointer;
function AddFontResource;
begin
GetProcedureAddress(_AddFontResource, gdi32, 'AddFontResourceW');
asm
mov esp, ebp
pop ebp
jmp [_AddFontResource]
end;
end;
{$ELSE}
function AddFontResource; external gdi32 name 'AddFontResourceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_AddFontResource: Pointer;
function AddFontResource;
begin
GetProcedureAddress(_AddFontResource, gdi32, 'AddFontResourceA');
asm
mov esp, ebp
pop ebp
jmp [_AddFontResource]
end;
end;
{$ELSE}
function AddFontResource; external gdi32 name 'AddFontResourceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_AnimatePalette: Pointer;
function AnimatePalette;
begin
GetProcedureAddress(_AnimatePalette, gdi32, 'AnimatePalette');
asm
mov esp, ebp
pop ebp
jmp [_AnimatePalette]
end;
end;
{$ELSE}
function AnimatePalette; external gdi32 name 'AnimatePalette';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_Arc: Pointer;
function Arc;
begin
GetProcedureAddress(_Arc, gdi32, 'Arc');
asm
mov esp, ebp
pop ebp
jmp [_Arc]
end;
end;
{$ELSE}
function Arc; external gdi32 name 'Arc';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BitBlt: Pointer;
function BitBlt;
begin
GetProcedureAddress(_BitBlt, gdi32, 'BitBlt');
asm
mov esp, ebp
pop ebp
jmp [_BitBlt]
end;
end;
{$ELSE}
function BitBlt; external gdi32 name 'BitBlt';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CancelDC: Pointer;
function CancelDC;
begin
GetProcedureAddress(_CancelDC, gdi32, 'CancelDC');
asm
mov esp, ebp
pop ebp
jmp [_CancelDC]
end;
end;
{$ELSE}
function CancelDC; external gdi32 name 'CancelDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_Chord: Pointer;
function Chord;
begin
GetProcedureAddress(_Chord, gdi32, 'Chord');
asm
mov esp, ebp
pop ebp
jmp [_Chord]
end;
end;
{$ELSE}
function Chord; external gdi32 name 'Chord';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ChoosePixelFormat: Pointer;
function ChoosePixelFormat;
begin
GetProcedureAddress(_ChoosePixelFormat, gdi32, 'ChoosePixelFormat');
asm
mov esp, ebp
pop ebp
jmp [_ChoosePixelFormat]
end;
end;
{$ELSE}
function ChoosePixelFormat; external gdi32 name 'ChoosePixelFormat';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CloseMetaFile: Pointer;
function CloseMetaFile;
begin
GetProcedureAddress(_CloseMetaFile, gdi32, 'CloseMetaFile');
asm
mov esp, ebp
pop ebp
jmp [_CloseMetaFile]
end;
end;
{$ELSE}
function CloseMetaFile; external gdi32 name 'CloseMetaFile';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CombineRgn: Pointer;
function CombineRgn;
begin
GetProcedureAddress(_CombineRgn, gdi32, 'CombineRgn');
asm
mov esp, ebp
pop ebp
jmp [_CombineRgn]
end;
end;
{$ELSE}
function CombineRgn; external gdi32 name 'CombineRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CopyMetaFileA: Pointer;
function CopyMetaFileA;
begin
GetProcedureAddress(_CopyMetaFileA, gdi32, 'CopyMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_CopyMetaFileA]
end;
end;
{$ELSE}
function CopyMetaFileA; external gdi32 name 'CopyMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CopyMetaFileW: Pointer;
function CopyMetaFileW;
begin
GetProcedureAddress(_CopyMetaFileW, gdi32, 'CopyMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_CopyMetaFileW]
end;
end;
{$ELSE}
function CopyMetaFileW; external gdi32 name 'CopyMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CopyMetaFile: Pointer;
function CopyMetaFile;
begin
GetProcedureAddress(_CopyMetaFile, gdi32, 'CopyMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_CopyMetaFile]
end;
end;
{$ELSE}
function CopyMetaFile; external gdi32 name 'CopyMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CopyMetaFile: Pointer;
function CopyMetaFile;
begin
GetProcedureAddress(_CopyMetaFile, gdi32, 'CopyMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_CopyMetaFile]
end;
end;
{$ELSE}
function CopyMetaFile; external gdi32 name 'CopyMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateBitmap: Pointer;
function CreateBitmap;
begin
GetProcedureAddress(_CreateBitmap, gdi32, 'CreateBitmap');
asm
mov esp, ebp
pop ebp
jmp [_CreateBitmap]
end;
end;
{$ELSE}
function CreateBitmap; external gdi32 name 'CreateBitmap';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateBitmapIndirect: Pointer;
function CreateBitmapIndirect;
begin
GetProcedureAddress(_CreateBitmapIndirect, gdi32, 'CreateBitmapIndirect');
asm
mov esp, ebp
pop ebp
jmp [_CreateBitmapIndirect]
end;
end;
{$ELSE}
function CreateBitmapIndirect; external gdi32 name 'CreateBitmapIndirect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateBrushIndirect: Pointer;
function CreateBrushIndirect;
begin
GetProcedureAddress(_CreateBrushIndirect, gdi32, 'CreateBrushIndirect');
asm
mov esp, ebp
pop ebp
jmp [_CreateBrushIndirect]
end;
end;
{$ELSE}
function CreateBrushIndirect; external gdi32 name 'CreateBrushIndirect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateCompatibleBitmap: Pointer;
function CreateCompatibleBitmap;
begin
GetProcedureAddress(_CreateCompatibleBitmap, gdi32, 'CreateCompatibleBitmap');
asm
mov esp, ebp
pop ebp
jmp [_CreateCompatibleBitmap]
end;
end;
{$ELSE}
function CreateCompatibleBitmap; external gdi32 name 'CreateCompatibleBitmap';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateDiscardableBitmap: Pointer;
function CreateDiscardableBitmap;
begin
GetProcedureAddress(_CreateDiscardableBitmap, gdi32, 'CreateDiscardableBitmap');
asm
mov esp, ebp
pop ebp
jmp [_CreateDiscardableBitmap]
end;
end;
{$ELSE}
function CreateDiscardableBitmap; external gdi32 name 'CreateDiscardableBitmap';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateCompatibleDC: Pointer;
function CreateCompatibleDC;
begin
GetProcedureAddress(_CreateCompatibleDC, gdi32, 'CreateCompatibleDC');
asm
mov esp, ebp
pop ebp
jmp [_CreateCompatibleDC]
end;
end;
{$ELSE}
function CreateCompatibleDC; external gdi32 name 'CreateCompatibleDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateDCA: Pointer;
function CreateDCA;
begin
GetProcedureAddress(_CreateDCA, gdi32, 'CreateDCA');
asm
mov esp, ebp
pop ebp
jmp [_CreateDCA]
end;
end;
{$ELSE}
function CreateDCA; external gdi32 name 'CreateDCA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateDCW: Pointer;
function CreateDCW;
begin
GetProcedureAddress(_CreateDCW, gdi32, 'CreateDCW');
asm
mov esp, ebp
pop ebp
jmp [_CreateDCW]
end;
end;
{$ELSE}
function CreateDCW; external gdi32 name 'CreateDCW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateDC: Pointer;
function CreateDC;
begin
GetProcedureAddress(_CreateDC, gdi32, 'CreateDCW');
asm
mov esp, ebp
pop ebp
jmp [_CreateDC]
end;
end;
{$ELSE}
function CreateDC; external gdi32 name 'CreateDCW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateDC: Pointer;
function CreateDC;
begin
GetProcedureAddress(_CreateDC, gdi32, 'CreateDCA');
asm
mov esp, ebp
pop ebp
jmp [_CreateDC]
end;
end;
{$ELSE}
function CreateDC; external gdi32 name 'CreateDCA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateDIBitmap: Pointer;
function CreateDIBitmap;
begin
GetProcedureAddress(_CreateDIBitmap, gdi32, 'CreateDIBitmap');
asm
mov esp, ebp
pop ebp
jmp [_CreateDIBitmap]
end;
end;
{$ELSE}
function CreateDIBitmap; external gdi32 name 'CreateDIBitmap';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateDIBPatternBrush: Pointer;
function CreateDIBPatternBrush;
begin
GetProcedureAddress(_CreateDIBPatternBrush, gdi32, 'CreateDIBPatternBrush');
asm
mov esp, ebp
pop ebp
jmp [_CreateDIBPatternBrush]
end;
end;
{$ELSE}
function CreateDIBPatternBrush; external gdi32 name 'CreateDIBPatternBrush';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateDIBPatternBrushPt: Pointer;
function CreateDIBPatternBrushPt;
begin
GetProcedureAddress(_CreateDIBPatternBrushPt, gdi32, 'CreateDIBPatternBrushPt');
asm
mov esp, ebp
pop ebp
jmp [_CreateDIBPatternBrushPt]
end;
end;
{$ELSE}
function CreateDIBPatternBrushPt; external gdi32 name 'CreateDIBPatternBrushPt';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateEllipticRgn: Pointer;
function CreateEllipticRgn;
begin
GetProcedureAddress(_CreateEllipticRgn, gdi32, 'CreateEllipticRgn');
asm
mov esp, ebp
pop ebp
jmp [_CreateEllipticRgn]
end;
end;
{$ELSE}
function CreateEllipticRgn; external gdi32 name 'CreateEllipticRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateEllipticRgnIndirect: Pointer;
function CreateEllipticRgnIndirect;
begin
GetProcedureAddress(_CreateEllipticRgnIndirect, gdi32, 'CreateEllipticRgnIndirect');
asm
mov esp, ebp
pop ebp
jmp [_CreateEllipticRgnIndirect]
end;
end;
{$ELSE}
function CreateEllipticRgnIndirect; external gdi32 name 'CreateEllipticRgnIndirect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateFontIndirectA: Pointer;
function CreateFontIndirectA;
begin
GetProcedureAddress(_CreateFontIndirectA, gdi32, 'CreateFontIndirectA');
asm
mov esp, ebp
pop ebp
jmp [_CreateFontIndirectA]
end;
end;
{$ELSE}
function CreateFontIndirectA; external gdi32 name 'CreateFontIndirectA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateFontIndirectW: Pointer;
function CreateFontIndirectW;
begin
GetProcedureAddress(_CreateFontIndirectW, gdi32, 'CreateFontIndirectW');
asm
mov esp, ebp
pop ebp
jmp [_CreateFontIndirectW]
end;
end;
{$ELSE}
function CreateFontIndirectW; external gdi32 name 'CreateFontIndirectW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateFontIndirect: Pointer;
function CreateFontIndirect;
begin
GetProcedureAddress(_CreateFontIndirect, gdi32, 'CreateFontIndirectW');
asm
mov esp, ebp
pop ebp
jmp [_CreateFontIndirect]
end;
end;
{$ELSE}
function CreateFontIndirect; external gdi32 name 'CreateFontIndirectW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateFontIndirect: Pointer;
function CreateFontIndirect;
begin
GetProcedureAddress(_CreateFontIndirect, gdi32, 'CreateFontIndirectA');
asm
mov esp, ebp
pop ebp
jmp [_CreateFontIndirect]
end;
end;
{$ELSE}
function CreateFontIndirect; external gdi32 name 'CreateFontIndirectA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateFontA: Pointer;
function CreateFontA;
begin
GetProcedureAddress(_CreateFontA, gdi32, 'CreateFontA');
asm
mov esp, ebp
pop ebp
jmp [_CreateFontA]
end;
end;
{$ELSE}
function CreateFontA; external gdi32 name 'CreateFontA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateFontW: Pointer;
function CreateFontW;
begin
GetProcedureAddress(_CreateFontW, gdi32, 'CreateFontW');
asm
mov esp, ebp
pop ebp
jmp [_CreateFontW]
end;
end;
{$ELSE}
function CreateFontW; external gdi32 name 'CreateFontW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateFont: Pointer;
function CreateFont;
begin
GetProcedureAddress(_CreateFont, gdi32, 'CreateFontW');
asm
mov esp, ebp
pop ebp
jmp [_CreateFont]
end;
end;
{$ELSE}
function CreateFont; external gdi32 name 'CreateFontW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateFont: Pointer;
function CreateFont;
begin
GetProcedureAddress(_CreateFont, gdi32, 'CreateFontA');
asm
mov esp, ebp
pop ebp
jmp [_CreateFont]
end;
end;
{$ELSE}
function CreateFont; external gdi32 name 'CreateFontA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateHatchBrush: Pointer;
function CreateHatchBrush;
begin
GetProcedureAddress(_CreateHatchBrush, gdi32, 'CreateHatchBrush');
asm
mov esp, ebp
pop ebp
jmp [_CreateHatchBrush]
end;
end;
{$ELSE}
function CreateHatchBrush; external gdi32 name 'CreateHatchBrush';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateICA: Pointer;
function CreateICA;
begin
GetProcedureAddress(_CreateICA, gdi32, 'CreateICA');
asm
mov esp, ebp
pop ebp
jmp [_CreateICA]
end;
end;
{$ELSE}
function CreateICA; external gdi32 name 'CreateICA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateICW: Pointer;
function CreateICW;
begin
GetProcedureAddress(_CreateICW, gdi32, 'CreateICW');
asm
mov esp, ebp
pop ebp
jmp [_CreateICW]
end;
end;
{$ELSE}
function CreateICW; external gdi32 name 'CreateICW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateIC: Pointer;
function CreateIC;
begin
GetProcedureAddress(_CreateIC, gdi32, 'CreateICW');
asm
mov esp, ebp
pop ebp
jmp [_CreateIC]
end;
end;
{$ELSE}
function CreateIC; external gdi32 name 'CreateICW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateIC: Pointer;
function CreateIC;
begin
GetProcedureAddress(_CreateIC, gdi32, 'CreateICA');
asm
mov esp, ebp
pop ebp
jmp [_CreateIC]
end;
end;
{$ELSE}
function CreateIC; external gdi32 name 'CreateICA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateMetaFileA: Pointer;
function CreateMetaFileA;
begin
GetProcedureAddress(_CreateMetaFileA, gdi32, 'CreateMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_CreateMetaFileA]
end;
end;
{$ELSE}
function CreateMetaFileA; external gdi32 name 'CreateMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateMetaFileW: Pointer;
function CreateMetaFileW;
begin
GetProcedureAddress(_CreateMetaFileW, gdi32, 'CreateMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_CreateMetaFileW]
end;
end;
{$ELSE}
function CreateMetaFileW; external gdi32 name 'CreateMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateMetaFile: Pointer;
function CreateMetaFile;
begin
GetProcedureAddress(_CreateMetaFile, gdi32, 'CreateMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_CreateMetaFile]
end;
end;
{$ELSE}
function CreateMetaFile; external gdi32 name 'CreateMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateMetaFile: Pointer;
function CreateMetaFile;
begin
GetProcedureAddress(_CreateMetaFile, gdi32, 'CreateMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_CreateMetaFile]
end;
end;
{$ELSE}
function CreateMetaFile; external gdi32 name 'CreateMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreatePalette: Pointer;
function CreatePalette;
begin
GetProcedureAddress(_CreatePalette, gdi32, 'CreatePalette');
asm
mov esp, ebp
pop ebp
jmp [_CreatePalette]
end;
end;
{$ELSE}
function CreatePalette; external gdi32 name 'CreatePalette';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreatePen: Pointer;
function CreatePen;
begin
GetProcedureAddress(_CreatePen, gdi32, 'CreatePen');
asm
mov esp, ebp
pop ebp
jmp [_CreatePen]
end;
end;
{$ELSE}
function CreatePen; external gdi32 name 'CreatePen';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreatePenIndirect: Pointer;
function CreatePenIndirect;
begin
GetProcedureAddress(_CreatePenIndirect, gdi32, 'CreatePenIndirect');
asm
mov esp, ebp
pop ebp
jmp [_CreatePenIndirect]
end;
end;
{$ELSE}
function CreatePenIndirect; external gdi32 name 'CreatePenIndirect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreatePolyPolygonRgn: Pointer;
function CreatePolyPolygonRgn;
begin
GetProcedureAddress(_CreatePolyPolygonRgn, gdi32, 'CreatePolyPolygonRgn');
asm
mov esp, ebp
pop ebp
jmp [_CreatePolyPolygonRgn]
end;
end;
{$ELSE}
function CreatePolyPolygonRgn; external gdi32 name 'CreatePolyPolygonRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreatePatternBrush: Pointer;
function CreatePatternBrush;
begin
GetProcedureAddress(_CreatePatternBrush, gdi32, 'CreatePatternBrush');
asm
mov esp, ebp
pop ebp
jmp [_CreatePatternBrush]
end;
end;
{$ELSE}
function CreatePatternBrush; external gdi32 name 'CreatePatternBrush';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateRectRgn: Pointer;
function CreateRectRgn;
begin
GetProcedureAddress(_CreateRectRgn, gdi32, 'CreateRectRgn');
asm
mov esp, ebp
pop ebp
jmp [_CreateRectRgn]
end;
end;
{$ELSE}
function CreateRectRgn; external gdi32 name 'CreateRectRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateRectRgnIndirect: Pointer;
function CreateRectRgnIndirect;
begin
GetProcedureAddress(_CreateRectRgnIndirect, gdi32, 'CreateRectRgnIndirect');
asm
mov esp, ebp
pop ebp
jmp [_CreateRectRgnIndirect]
end;
end;
{$ELSE}
function CreateRectRgnIndirect; external gdi32 name 'CreateRectRgnIndirect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateRoundRectRgn: Pointer;
function CreateRoundRectRgn;
begin
GetProcedureAddress(_CreateRoundRectRgn, gdi32, 'CreateRoundRectRgn');
asm
mov esp, ebp
pop ebp
jmp [_CreateRoundRectRgn]
end;
end;
{$ELSE}
function CreateRoundRectRgn; external gdi32 name 'CreateRoundRectRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateScalableFontResourceA: Pointer;
function CreateScalableFontResourceA;
begin
GetProcedureAddress(_CreateScalableFontResourceA, gdi32, 'CreateScalableFontResourceA');
asm
mov esp, ebp
pop ebp
jmp [_CreateScalableFontResourceA]
end;
end;
{$ELSE}
function CreateScalableFontResourceA; external gdi32 name 'CreateScalableFontResourceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateScalableFontResourceW: Pointer;
function CreateScalableFontResourceW;
begin
GetProcedureAddress(_CreateScalableFontResourceW, gdi32, 'CreateScalableFontResourceW');
asm
mov esp, ebp
pop ebp
jmp [_CreateScalableFontResourceW]
end;
end;
{$ELSE}
function CreateScalableFontResourceW; external gdi32 name 'CreateScalableFontResourceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateScalableFontResource: Pointer;
function CreateScalableFontResource;
begin
GetProcedureAddress(_CreateScalableFontResource, gdi32, 'CreateScalableFontResourceW');
asm
mov esp, ebp
pop ebp
jmp [_CreateScalableFontResource]
end;
end;
{$ELSE}
function CreateScalableFontResource; external gdi32 name 'CreateScalableFontResourceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateScalableFontResource: Pointer;
function CreateScalableFontResource;
begin
GetProcedureAddress(_CreateScalableFontResource, gdi32, 'CreateScalableFontResourceA');
asm
mov esp, ebp
pop ebp
jmp [_CreateScalableFontResource]
end;
end;
{$ELSE}
function CreateScalableFontResource; external gdi32 name 'CreateScalableFontResourceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateSolidBrush: Pointer;
function CreateSolidBrush;
begin
GetProcedureAddress(_CreateSolidBrush, gdi32, 'CreateSolidBrush');
asm
mov esp, ebp
pop ebp
jmp [_CreateSolidBrush]
end;
end;
{$ELSE}
function CreateSolidBrush; external gdi32 name 'CreateSolidBrush';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeleteDC: Pointer;
function DeleteDC;
begin
GetProcedureAddress(_DeleteDC, gdi32, 'DeleteDC');
asm
mov esp, ebp
pop ebp
jmp [_DeleteDC]
end;
end;
{$ELSE}
function DeleteDC; external gdi32 name 'DeleteDC';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeleteMetaFile: Pointer;
function DeleteMetaFile;
begin
GetProcedureAddress(_DeleteMetaFile, gdi32, 'DeleteMetaFile');
asm
mov esp, ebp
pop ebp
jmp [_DeleteMetaFile]
end;
end;
{$ELSE}
function DeleteMetaFile; external gdi32 name 'DeleteMetaFile';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeleteObject: Pointer;
function DeleteObject;
begin
GetProcedureAddress(_DeleteObject, gdi32, 'DeleteObject');
asm
mov esp, ebp
pop ebp
jmp [_DeleteObject]
end;
end;
{$ELSE}
function DeleteObject; external gdi32 name 'DeleteObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DescribePixelFormat: Pointer;
function DescribePixelFormat;
begin
GetProcedureAddress(_DescribePixelFormat, gdi32, 'DescribePixelFormat');
asm
mov esp, ebp
pop ebp
jmp [_DescribePixelFormat]
end;
end;
{$ELSE}
function DescribePixelFormat; external gdi32 name 'DescribePixelFormat';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeviceCapabilitiesA: Pointer;
function DeviceCapabilitiesA;
begin
GetProcedureAddress(_DeviceCapabilitiesA, winspool32, 'DeviceCapabilitiesA');
asm
mov esp, ebp
pop ebp
jmp [_DeviceCapabilitiesA]
end;
end;
{$ELSE}
function DeviceCapabilitiesA; external winspool32 name 'DeviceCapabilitiesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_DeviceCapabilitiesW: Pointer;
function DeviceCapabilitiesW;
begin
GetProcedureAddress(_DeviceCapabilitiesW, winspool32, 'DeviceCapabilitiesW');
asm
mov esp, ebp
pop ebp
jmp [_DeviceCapabilitiesW]
end;
end;
{$ELSE}
function DeviceCapabilitiesW; external winspool32 name 'DeviceCapabilitiesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_DeviceCapabilities: Pointer;
function DeviceCapabilities;
begin
GetProcedureAddress(_DeviceCapabilities, winspool32, 'DeviceCapabilitiesW');
asm
mov esp, ebp
pop ebp
jmp [_DeviceCapabilities]
end;
end;
{$ELSE}
function DeviceCapabilities; external winspool32 name 'DeviceCapabilitiesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_DeviceCapabilities: Pointer;
function DeviceCapabilities;
begin
GetProcedureAddress(_DeviceCapabilities, winspool32, 'DeviceCapabilitiesA');
asm
mov esp, ebp
pop ebp
jmp [_DeviceCapabilities]
end;
end;
{$ELSE}
function DeviceCapabilities; external winspool32 name 'DeviceCapabilitiesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_DrawEscape: Pointer;
function DrawEscape;
begin
GetProcedureAddress(_DrawEscape, gdi32, 'DrawEscape');
asm
mov esp, ebp
pop ebp
jmp [_DrawEscape]
end;
end;
{$ELSE}
function DrawEscape; external gdi32 name 'DrawEscape';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_Ellipse: Pointer;
function Ellipse;
begin
GetProcedureAddress(_Ellipse, gdi32, 'Ellipse');
asm
mov esp, ebp
pop ebp
jmp [_Ellipse]
end;
end;
{$ELSE}
function Ellipse; external gdi32 name 'Ellipse';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumFontFamiliesExA: Pointer;
function EnumFontFamiliesExA;
begin
GetProcedureAddress(_EnumFontFamiliesExA, gdi32, 'EnumFontFamiliesExA');
asm
mov esp, ebp
pop ebp
jmp [_EnumFontFamiliesExA]
end;
end;
{$ELSE}
function EnumFontFamiliesExA; external gdi32 name 'EnumFontFamiliesExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumFontFamiliesExW: Pointer;
function EnumFontFamiliesExW;
begin
GetProcedureAddress(_EnumFontFamiliesExW, gdi32, 'EnumFontFamiliesExW');
asm
mov esp, ebp
pop ebp
jmp [_EnumFontFamiliesExW]
end;
end;
{$ELSE}
function EnumFontFamiliesExW; external gdi32 name 'EnumFontFamiliesExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumFontFamiliesEx: Pointer;
function EnumFontFamiliesEx;
begin
GetProcedureAddress(_EnumFontFamiliesEx, gdi32, 'EnumFontFamiliesExW');
asm
mov esp, ebp
pop ebp
jmp [_EnumFontFamiliesEx]
end;
end;
{$ELSE}
function EnumFontFamiliesEx; external gdi32 name 'EnumFontFamiliesExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumFontFamiliesEx: Pointer;
function EnumFontFamiliesEx;
begin
GetProcedureAddress(_EnumFontFamiliesEx, gdi32, 'EnumFontFamiliesExA');
asm
mov esp, ebp
pop ebp
jmp [_EnumFontFamiliesEx]
end;
end;
{$ELSE}
function EnumFontFamiliesEx; external gdi32 name 'EnumFontFamiliesExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumFontFamiliesA: Pointer;
function EnumFontFamiliesA;
begin
GetProcedureAddress(_EnumFontFamiliesA, gdi32, 'EnumFontFamiliesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumFontFamiliesA]
end;
end;
{$ELSE}
function EnumFontFamiliesA; external gdi32 name 'EnumFontFamiliesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumFontFamiliesW: Pointer;
function EnumFontFamiliesW;
begin
GetProcedureAddress(_EnumFontFamiliesW, gdi32, 'EnumFontFamiliesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumFontFamiliesW]
end;
end;
{$ELSE}
function EnumFontFamiliesW; external gdi32 name 'EnumFontFamiliesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumFontFamilies: Pointer;
function EnumFontFamilies;
begin
GetProcedureAddress(_EnumFontFamilies, gdi32, 'EnumFontFamiliesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumFontFamilies]
end;
end;
{$ELSE}
function EnumFontFamilies; external gdi32 name 'EnumFontFamiliesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumFontFamilies: Pointer;
function EnumFontFamilies;
begin
GetProcedureAddress(_EnumFontFamilies, gdi32, 'EnumFontFamiliesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumFontFamilies]
end;
end;
{$ELSE}
function EnumFontFamilies; external gdi32 name 'EnumFontFamiliesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumFontsA: Pointer;
function EnumFontsA;
begin
GetProcedureAddress(_EnumFontsA, gdi32, 'EnumFontsA');
asm
mov esp, ebp
pop ebp
jmp [_EnumFontsA]
end;
end;
{$ELSE}
function EnumFontsA; external gdi32 name 'EnumFontsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumFontsW: Pointer;
function EnumFontsW;
begin
GetProcedureAddress(_EnumFontsW, gdi32, 'EnumFontsW');
asm
mov esp, ebp
pop ebp
jmp [_EnumFontsW]
end;
end;
{$ELSE}
function EnumFontsW; external gdi32 name 'EnumFontsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumFonts: Pointer;
function EnumFonts;
begin
GetProcedureAddress(_EnumFonts, gdi32, 'EnumFontsW');
asm
mov esp, ebp
pop ebp
jmp [_EnumFonts]
end;
end;
{$ELSE}
function EnumFonts; external gdi32 name 'EnumFontsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumFonts: Pointer;
function EnumFonts;
begin
GetProcedureAddress(_EnumFonts, gdi32, 'EnumFontsA');
asm
mov esp, ebp
pop ebp
jmp [_EnumFonts]
end;
end;
{$ELSE}
function EnumFonts; external gdi32 name 'EnumFontsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumObjects: Pointer;
function EnumObjects;
begin
GetProcedureAddress(_EnumObjects, gdi32, 'EnumObjects');
asm
mov esp, ebp
pop ebp
jmp [_EnumObjects]
end;
end;
{$ELSE}
function EnumObjects; external gdi32 name 'EnumObjects';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EqualRgn: Pointer;
function EqualRgn;
begin
GetProcedureAddress(_EqualRgn, gdi32, 'EqualRgn');
asm
mov esp, ebp
pop ebp
jmp [_EqualRgn]
end;
end;
{$ELSE}
function EqualRgn; external gdi32 name 'EqualRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_Escape: Pointer;
function Escape;
begin
GetProcedureAddress(_Escape, gdi32, 'Escape');
asm
mov esp, ebp
pop ebp
jmp [_Escape]
end;
end;
{$ELSE}
function Escape; external gdi32 name 'Escape';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ExtEscape: Pointer;
function ExtEscape;
begin
GetProcedureAddress(_ExtEscape, gdi32, 'ExtEscape');
asm
mov esp, ebp
pop ebp
jmp [_ExtEscape]
end;
end;
{$ELSE}
function ExtEscape; external gdi32 name 'ExtEscape';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ExcludeClipRect: Pointer;
function ExcludeClipRect;
begin
GetProcedureAddress(_ExcludeClipRect, gdi32, 'ExcludeClipRect');
asm
mov esp, ebp
pop ebp
jmp [_ExcludeClipRect]
end;
end;
{$ELSE}
function ExcludeClipRect; external gdi32 name 'ExcludeClipRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ExtCreateRegion: Pointer;
function ExtCreateRegion;
begin
GetProcedureAddress(_ExtCreateRegion, gdi32, 'ExtCreateRegion');
asm
mov esp, ebp
pop ebp
jmp [_ExtCreateRegion]
end;
end;
{$ELSE}
function ExtCreateRegion; external gdi32 name 'ExtCreateRegion';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ExtFloodFill: Pointer;
function ExtFloodFill;
begin
GetProcedureAddress(_ExtFloodFill, gdi32, 'ExtFloodFill');
asm
mov esp, ebp
pop ebp
jmp [_ExtFloodFill]
end;
end;
{$ELSE}
function ExtFloodFill; external gdi32 name 'ExtFloodFill';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FillRgn: Pointer;
function FillRgn;
begin
GetProcedureAddress(_FillRgn, gdi32, 'FillRgn');
asm
mov esp, ebp
pop ebp
jmp [_FillRgn]
end;
end;
{$ELSE}
function FillRgn; external gdi32 name 'FillRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FloodFill: Pointer;
function FloodFill;
begin
GetProcedureAddress(_FloodFill, gdi32, 'FloodFill');
asm
mov esp, ebp
pop ebp
jmp [_FloodFill]
end;
end;
{$ELSE}
function FloodFill; external gdi32 name 'FloodFill';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FrameRgn: Pointer;
function FrameRgn;
begin
GetProcedureAddress(_FrameRgn, gdi32, 'FrameRgn');
asm
mov esp, ebp
pop ebp
jmp [_FrameRgn]
end;
end;
{$ELSE}
function FrameRgn; external gdi32 name 'FrameRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetROP2: Pointer;
function GetROP2;
begin
GetProcedureAddress(_GetROP2, gdi32, 'GetROP2');
asm
mov esp, ebp
pop ebp
jmp [_GetROP2]
end;
end;
{$ELSE}
function GetROP2; external gdi32 name 'GetROP2';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetAspectRatioFilterEx: Pointer;
function GetAspectRatioFilterEx;
begin
GetProcedureAddress(_GetAspectRatioFilterEx, gdi32, 'GetAspectRatioFilterEx');
asm
mov esp, ebp
pop ebp
jmp [_GetAspectRatioFilterEx]
end;
end;
{$ELSE}
function GetAspectRatioFilterEx; external gdi32 name 'GetAspectRatioFilterEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetBkColor: Pointer;
function GetBkColor;
begin
GetProcedureAddress(_GetBkColor, gdi32, 'GetBkColor');
asm
mov esp, ebp
pop ebp
jmp [_GetBkColor]
end;
end;
{$ELSE}
function GetBkColor; external gdi32 name 'GetBkColor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDCBrushColor: Pointer;
function GetDCBrushColor;
begin
GetProcedureAddress(_GetDCBrushColor, gdi32, 'GetDCBrushColor');
asm
mov esp, ebp
pop ebp
jmp [_GetDCBrushColor]
end;
end;
{$ELSE}
function GetDCBrushColor; external gdi32 name 'GetDCBrushColor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDCPenColor: Pointer;
function GetDCPenColor;
begin
GetProcedureAddress(_GetDCPenColor, gdi32, 'GetDCPenColor');
asm
mov esp, ebp
pop ebp
jmp [_GetDCPenColor]
end;
end;
{$ELSE}
function GetDCPenColor; external gdi32 name 'GetDCPenColor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetBkMode: Pointer;
function GetBkMode;
begin
GetProcedureAddress(_GetBkMode, gdi32, 'GetBkMode');
asm
mov esp, ebp
pop ebp
jmp [_GetBkMode]
end;
end;
{$ELSE}
function GetBkMode; external gdi32 name 'GetBkMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetBitmapBits: Pointer;
function GetBitmapBits;
begin
GetProcedureAddress(_GetBitmapBits, gdi32, 'GetBitmapBits');
asm
mov esp, ebp
pop ebp
jmp [_GetBitmapBits]
end;
end;
{$ELSE}
function GetBitmapBits; external gdi32 name 'GetBitmapBits';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetBitmapDimensionEx: Pointer;
function GetBitmapDimensionEx;
begin
GetProcedureAddress(_GetBitmapDimensionEx, gdi32, 'GetBitmapDimensionEx');
asm
mov esp, ebp
pop ebp
jmp [_GetBitmapDimensionEx]
end;
end;
{$ELSE}
function GetBitmapDimensionEx; external gdi32 name 'GetBitmapDimensionEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetBoundsRect: Pointer;
function GetBoundsRect;
begin
GetProcedureAddress(_GetBoundsRect, gdi32, 'GetBoundsRect');
asm
mov esp, ebp
pop ebp
jmp [_GetBoundsRect]
end;
end;
{$ELSE}
function GetBoundsRect; external gdi32 name 'GetBoundsRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetBrushOrgEx: Pointer;
function GetBrushOrgEx;
begin
GetProcedureAddress(_GetBrushOrgEx, gdi32, 'GetBrushOrgEx');
asm
mov esp, ebp
pop ebp
jmp [_GetBrushOrgEx]
end;
end;
{$ELSE}
function GetBrushOrgEx; external gdi32 name 'GetBrushOrgEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidthA: Pointer;
function GetCharWidthA;
begin
GetProcedureAddress(_GetCharWidthA, gdi32, 'GetCharWidthA');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidthA]
end;
end;
{$ELSE}
function GetCharWidthA; external gdi32 name 'GetCharWidthA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidthW: Pointer;
function GetCharWidthW;
begin
GetProcedureAddress(_GetCharWidthW, gdi32, 'GetCharWidthW');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidthW]
end;
end;
{$ELSE}
function GetCharWidthW; external gdi32 name 'GetCharWidthW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidth: Pointer;
function GetCharWidth;
begin
GetProcedureAddress(_GetCharWidth, gdi32, 'GetCharWidthW');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidth]
end;
end;
{$ELSE}
function GetCharWidth; external gdi32 name 'GetCharWidthW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidth: Pointer;
function GetCharWidth;
begin
GetProcedureAddress(_GetCharWidth, gdi32, 'GetCharWidthA');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidth]
end;
end;
{$ELSE}
function GetCharWidth; external gdi32 name 'GetCharWidthA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidth32A: Pointer;
function GetCharWidth32A;
begin
GetProcedureAddress(_GetCharWidth32A, gdi32, 'GetCharWidth32A');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidth32A]
end;
end;
{$ELSE}
function GetCharWidth32A; external gdi32 name 'GetCharWidth32A';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidth32W: Pointer;
function GetCharWidth32W;
begin
GetProcedureAddress(_GetCharWidth32W, gdi32, 'GetCharWidth32W');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidth32W]
end;
end;
{$ELSE}
function GetCharWidth32W; external gdi32 name 'GetCharWidth32W';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidth32: Pointer;
function GetCharWidth32;
begin
GetProcedureAddress(_GetCharWidth32, gdi32, 'GetCharWidth32W');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidth32]
end;
end;
{$ELSE}
function GetCharWidth32; external gdi32 name 'GetCharWidth32W';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidth32: Pointer;
function GetCharWidth32;
begin
GetProcedureAddress(_GetCharWidth32, gdi32, 'GetCharWidth32A');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidth32]
end;
end;
{$ELSE}
function GetCharWidth32; external gdi32 name 'GetCharWidth32A';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidthFloatA: Pointer;
function GetCharWidthFloatA;
begin
GetProcedureAddress(_GetCharWidthFloatA, gdi32, 'GetCharWidthFloatA');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidthFloatA]
end;
end;
{$ELSE}
function GetCharWidthFloatA; external gdi32 name 'GetCharWidthFloatA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidthFloatW: Pointer;
function GetCharWidthFloatW;
begin
GetProcedureAddress(_GetCharWidthFloatW, gdi32, 'GetCharWidthFloatW');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidthFloatW]
end;
end;
{$ELSE}
function GetCharWidthFloatW; external gdi32 name 'GetCharWidthFloatW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidthFloat: Pointer;
function GetCharWidthFloat;
begin
GetProcedureAddress(_GetCharWidthFloat, gdi32, 'GetCharWidthFloatW');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidthFloat]
end;
end;
{$ELSE}
function GetCharWidthFloat; external gdi32 name 'GetCharWidthFloatW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidthFloat: Pointer;
function GetCharWidthFloat;
begin
GetProcedureAddress(_GetCharWidthFloat, gdi32, 'GetCharWidthFloatA');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidthFloat]
end;
end;
{$ELSE}
function GetCharWidthFloat; external gdi32 name 'GetCharWidthFloatA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetCharABCWidthsA: Pointer;
function GetCharABCWidthsA;
begin
GetProcedureAddress(_GetCharABCWidthsA, gdi32, 'GetCharABCWidthsA');
asm
mov esp, ebp
pop ebp
jmp [_GetCharABCWidthsA]
end;
end;
{$ELSE}
function GetCharABCWidthsA; external gdi32 name 'GetCharABCWidthsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCharABCWidthsW: Pointer;
function GetCharABCWidthsW;
begin
GetProcedureAddress(_GetCharABCWidthsW, gdi32, 'GetCharABCWidthsW');
asm
mov esp, ebp
pop ebp
jmp [_GetCharABCWidthsW]
end;
end;
{$ELSE}
function GetCharABCWidthsW; external gdi32 name 'GetCharABCWidthsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharABCWidths: Pointer;
function GetCharABCWidths;
begin
GetProcedureAddress(_GetCharABCWidths, gdi32, 'GetCharABCWidthsW');
asm
mov esp, ebp
pop ebp
jmp [_GetCharABCWidths]
end;
end;
{$ELSE}
function GetCharABCWidths; external gdi32 name 'GetCharABCWidthsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharABCWidths: Pointer;
function GetCharABCWidths;
begin
GetProcedureAddress(_GetCharABCWidths, gdi32, 'GetCharABCWidthsA');
asm
mov esp, ebp
pop ebp
jmp [_GetCharABCWidths]
end;
end;
{$ELSE}
function GetCharABCWidths; external gdi32 name 'GetCharABCWidthsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetCharABCWidthsFloatA: Pointer;
function GetCharABCWidthsFloatA;
begin
GetProcedureAddress(_GetCharABCWidthsFloatA, gdi32, 'GetCharABCWidthsFloatA');
asm
mov esp, ebp
pop ebp
jmp [_GetCharABCWidthsFloatA]
end;
end;
{$ELSE}
function GetCharABCWidthsFloatA; external gdi32 name 'GetCharABCWidthsFloatA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCharABCWidthsFloatW: Pointer;
function GetCharABCWidthsFloatW;
begin
GetProcedureAddress(_GetCharABCWidthsFloatW, gdi32, 'GetCharABCWidthsFloatW');
asm
mov esp, ebp
pop ebp
jmp [_GetCharABCWidthsFloatW]
end;
end;
{$ELSE}
function GetCharABCWidthsFloatW; external gdi32 name 'GetCharABCWidthsFloatW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharABCWidthsFloat: Pointer;
function GetCharABCWidthsFloat;
begin
GetProcedureAddress(_GetCharABCWidthsFloat, gdi32, 'GetCharABCWidthsFloatW');
asm
mov esp, ebp
pop ebp
jmp [_GetCharABCWidthsFloat]
end;
end;
{$ELSE}
function GetCharABCWidthsFloat; external gdi32 name 'GetCharABCWidthsFloatW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharABCWidthsFloat: Pointer;
function GetCharABCWidthsFloat;
begin
GetProcedureAddress(_GetCharABCWidthsFloat, gdi32, 'GetCharABCWidthsFloatA');
asm
mov esp, ebp
pop ebp
jmp [_GetCharABCWidthsFloat]
end;
end;
{$ELSE}
function GetCharABCWidthsFloat; external gdi32 name 'GetCharABCWidthsFloatA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetClipBox: Pointer;
function GetClipBox;
begin
GetProcedureAddress(_GetClipBox, gdi32, 'GetClipBox');
asm
mov esp, ebp
pop ebp
jmp [_GetClipBox]
end;
end;
{$ELSE}
function GetClipBox; external gdi32 name 'GetClipBox';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetClipRgn: Pointer;
function GetClipRgn;
begin
GetProcedureAddress(_GetClipRgn, gdi32, 'GetClipRgn');
asm
mov esp, ebp
pop ebp
jmp [_GetClipRgn]
end;
end;
{$ELSE}
function GetClipRgn; external gdi32 name 'GetClipRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMetaRgn: Pointer;
function GetMetaRgn;
begin
GetProcedureAddress(_GetMetaRgn, gdi32, 'GetMetaRgn');
asm
mov esp, ebp
pop ebp
jmp [_GetMetaRgn]
end;
end;
{$ELSE}
function GetMetaRgn; external gdi32 name 'GetMetaRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentObject: Pointer;
function GetCurrentObject;
begin
GetProcedureAddress(_GetCurrentObject, gdi32, 'GetCurrentObject');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentObject]
end;
end;
{$ELSE}
function GetCurrentObject; external gdi32 name 'GetCurrentObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentPositionEx: Pointer;
function GetCurrentPositionEx;
begin
GetProcedureAddress(_GetCurrentPositionEx, gdi32, 'GetCurrentPositionEx');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentPositionEx]
end;
end;
{$ELSE}
function GetCurrentPositionEx; external gdi32 name 'GetCurrentPositionEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDeviceCaps: Pointer;
function GetDeviceCaps;
begin
GetProcedureAddress(_GetDeviceCaps, gdi32, 'GetDeviceCaps');
asm
mov esp, ebp
pop ebp
jmp [_GetDeviceCaps]
end;
end;
{$ELSE}
function GetDeviceCaps; external gdi32 name 'GetDeviceCaps';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDIBits: Pointer;
function GetDIBits;
begin
GetProcedureAddress(_GetDIBits, gdi32, 'GetDIBits');
asm
mov esp, ebp
pop ebp
jmp [_GetDIBits]
end;
end;
{$ELSE}
function GetDIBits; external gdi32 name 'GetDIBits';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetFontData: Pointer;
function GetFontData;
begin
GetProcedureAddress(_GetFontData, gdi32, 'GetFontData');
asm
mov esp, ebp
pop ebp
jmp [_GetFontData]
end;
end;
{$ELSE}
function GetFontData; external gdi32 name 'GetFontData';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetGlyphOutlineA: Pointer;
function GetGlyphOutlineA;
begin
GetProcedureAddress(_GetGlyphOutlineA, gdi32, 'GetGlyphOutlineA');
asm
mov esp, ebp
pop ebp
jmp [_GetGlyphOutlineA]
end;
end;
{$ELSE}
function GetGlyphOutlineA; external gdi32 name 'GetGlyphOutlineA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetGlyphOutlineW: Pointer;
function GetGlyphOutlineW;
begin
GetProcedureAddress(_GetGlyphOutlineW, gdi32, 'GetGlyphOutlineW');
asm
mov esp, ebp
pop ebp
jmp [_GetGlyphOutlineW]
end;
end;
{$ELSE}
function GetGlyphOutlineW; external gdi32 name 'GetGlyphOutlineW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetGlyphOutline: Pointer;
function GetGlyphOutline;
begin
GetProcedureAddress(_GetGlyphOutline, gdi32, 'GetGlyphOutlineW');
asm
mov esp, ebp
pop ebp
jmp [_GetGlyphOutline]
end;
end;
{$ELSE}
function GetGlyphOutline; external gdi32 name 'GetGlyphOutlineW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetGlyphOutline: Pointer;
function GetGlyphOutline;
begin
GetProcedureAddress(_GetGlyphOutline, gdi32, 'GetGlyphOutlineA');
asm
mov esp, ebp
pop ebp
jmp [_GetGlyphOutline]
end;
end;
{$ELSE}
function GetGlyphOutline; external gdi32 name 'GetGlyphOutlineA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetGraphicsMode: Pointer;
function GetGraphicsMode;
begin
GetProcedureAddress(_GetGraphicsMode, gdi32, 'GetGraphicsMode');
asm
mov esp, ebp
pop ebp
jmp [_GetGraphicsMode]
end;
end;
{$ELSE}
function GetGraphicsMode; external gdi32 name 'GetGraphicsMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMapMode: Pointer;
function GetMapMode;
begin
GetProcedureAddress(_GetMapMode, gdi32, 'GetMapMode');
asm
mov esp, ebp
pop ebp
jmp [_GetMapMode]
end;
end;
{$ELSE}
function GetMapMode; external gdi32 name 'GetMapMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMetaFileBitsEx: Pointer;
function GetMetaFileBitsEx;
begin
GetProcedureAddress(_GetMetaFileBitsEx, gdi32, 'GetMetaFileBitsEx');
asm
mov esp, ebp
pop ebp
jmp [_GetMetaFileBitsEx]
end;
end;
{$ELSE}
function GetMetaFileBitsEx; external gdi32 name 'GetMetaFileBitsEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMetaFileA: Pointer;
function GetMetaFileA;
begin
GetProcedureAddress(_GetMetaFileA, gdi32, 'GetMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_GetMetaFileA]
end;
end;
{$ELSE}
function GetMetaFileA; external gdi32 name 'GetMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetMetaFileW: Pointer;
function GetMetaFileW;
begin
GetProcedureAddress(_GetMetaFileW, gdi32, 'GetMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_GetMetaFileW]
end;
end;
{$ELSE}
function GetMetaFileW; external gdi32 name 'GetMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetMetaFile: Pointer;
function GetMetaFile;
begin
GetProcedureAddress(_GetMetaFile, gdi32, 'GetMetaFileW');
asm
mov esp, ebp
pop ebp
jmp [_GetMetaFile]
end;
end;
{$ELSE}
function GetMetaFile; external gdi32 name 'GetMetaFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetMetaFile: Pointer;
function GetMetaFile;
begin
GetProcedureAddress(_GetMetaFile, gdi32, 'GetMetaFileA');
asm
mov esp, ebp
pop ebp
jmp [_GetMetaFile]
end;
end;
{$ELSE}
function GetMetaFile; external gdi32 name 'GetMetaFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetNearestColor: Pointer;
function GetNearestColor;
begin
GetProcedureAddress(_GetNearestColor, gdi32, 'GetNearestColor');
asm
mov esp, ebp
pop ebp
jmp [_GetNearestColor]
end;
end;
{$ELSE}
function GetNearestColor; external gdi32 name 'GetNearestColor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetNearestPaletteIndex: Pointer;
function GetNearestPaletteIndex;
begin
GetProcedureAddress(_GetNearestPaletteIndex, gdi32, 'GetNearestPaletteIndex');
asm
mov esp, ebp
pop ebp
jmp [_GetNearestPaletteIndex]
end;
end;
{$ELSE}
function GetNearestPaletteIndex; external gdi32 name 'GetNearestPaletteIndex';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetObjectType: Pointer;
function GetObjectType;
begin
GetProcedureAddress(_GetObjectType, gdi32, 'GetObjectType');
asm
mov esp, ebp
pop ebp
jmp [_GetObjectType]
end;
end;
{$ELSE}
function GetObjectType; external gdi32 name 'GetObjectType';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetOutlineTextMetricsA: Pointer;
function GetOutlineTextMetricsA;
begin
GetProcedureAddress(_GetOutlineTextMetricsA, gdi32, 'GetOutlineTextMetricsA');
asm
mov esp, ebp
pop ebp
jmp [_GetOutlineTextMetricsA]
end;
end;
{$ELSE}
function GetOutlineTextMetricsA; external gdi32 name 'GetOutlineTextMetricsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetOutlineTextMetricsW: Pointer;
function GetOutlineTextMetricsW;
begin
GetProcedureAddress(_GetOutlineTextMetricsW, gdi32, 'GetOutlineTextMetricsW');
asm
mov esp, ebp
pop ebp
jmp [_GetOutlineTextMetricsW]
end;
end;
{$ELSE}
function GetOutlineTextMetricsW; external gdi32 name 'GetOutlineTextMetricsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetOutlineTextMetrics: Pointer;
function GetOutlineTextMetrics;
begin
GetProcedureAddress(_GetOutlineTextMetrics, gdi32, 'GetOutlineTextMetricsW');
asm
mov esp, ebp
pop ebp
jmp [_GetOutlineTextMetrics]
end;
end;
{$ELSE}
function GetOutlineTextMetrics; external gdi32 name 'GetOutlineTextMetricsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetOutlineTextMetrics: Pointer;
function GetOutlineTextMetrics;
begin
GetProcedureAddress(_GetOutlineTextMetrics, gdi32, 'GetOutlineTextMetricsA');
asm
mov esp, ebp
pop ebp
jmp [_GetOutlineTextMetrics]
end;
end;
{$ELSE}
function GetOutlineTextMetrics; external gdi32 name 'GetOutlineTextMetricsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetPaletteEntries: Pointer;
function GetPaletteEntries;
begin
GetProcedureAddress(_GetPaletteEntries, gdi32, 'GetPaletteEntries');
asm
mov esp, ebp
pop ebp
jmp [_GetPaletteEntries]
end;
end;
{$ELSE}
function GetPaletteEntries; external gdi32 name 'GetPaletteEntries';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPixel: Pointer;
function GetPixel;
begin
GetProcedureAddress(_GetPixel, gdi32, 'GetPixel');
asm
mov esp, ebp
pop ebp
jmp [_GetPixel]
end;
end;
{$ELSE}
function GetPixel; external gdi32 name 'GetPixel';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPixelFormat: Pointer;
function GetPixelFormat;
begin
GetProcedureAddress(_GetPixelFormat, gdi32, 'GetPixelFormat');
asm
mov esp, ebp
pop ebp
jmp [_GetPixelFormat]
end;
end;
{$ELSE}
function GetPixelFormat; external gdi32 name 'GetPixelFormat';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPolyFillMode: Pointer;
function GetPolyFillMode;
begin
GetProcedureAddress(_GetPolyFillMode, gdi32, 'GetPolyFillMode');
asm
mov esp, ebp
pop ebp
jmp [_GetPolyFillMode]
end;
end;
{$ELSE}
function GetPolyFillMode; external gdi32 name 'GetPolyFillMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetRasterizerCaps: Pointer;
function GetRasterizerCaps;
begin
GetProcedureAddress(_GetRasterizerCaps, gdi32, 'GetRasterizerCaps');
asm
mov esp, ebp
pop ebp
jmp [_GetRasterizerCaps]
end;
end;
{$ELSE}
function GetRasterizerCaps; external gdi32 name 'GetRasterizerCaps';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetRandomRgn: Pointer;
function GetRandomRgn;
begin
GetProcedureAddress(_GetRandomRgn, gdi32, 'GetRandomRgn');
asm
mov esp, ebp
pop ebp
jmp [_GetRandomRgn]
end;
end;
{$ELSE}
function GetRandomRgn; external gdi32 name 'GetRandomRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetRegionData: Pointer;
function GetRegionData;
begin
GetProcedureAddress(_GetRegionData, gdi32, 'GetRegionData');
asm
mov esp, ebp
pop ebp
jmp [_GetRegionData]
end;
end;
{$ELSE}
function GetRegionData; external gdi32 name 'GetRegionData';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetRgnBox: Pointer;
function GetRgnBox;
begin
GetProcedureAddress(_GetRgnBox, gdi32, 'GetRgnBox');
asm
mov esp, ebp
pop ebp
jmp [_GetRgnBox]
end;
end;
{$ELSE}
function GetRgnBox; external gdi32 name 'GetRgnBox';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetStockObject: Pointer;
function GetStockObject;
begin
GetProcedureAddress(_GetStockObject, gdi32, 'GetStockObject');
asm
mov esp, ebp
pop ebp
jmp [_GetStockObject]
end;
end;
{$ELSE}
function GetStockObject; external gdi32 name 'GetStockObject';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetStretchBltMode: Pointer;
function GetStretchBltMode;
begin
GetProcedureAddress(_GetStretchBltMode, gdi32, 'GetStretchBltMode');
asm
mov esp, ebp
pop ebp
jmp [_GetStretchBltMode]
end;
end;
{$ELSE}
function GetStretchBltMode; external gdi32 name 'GetStretchBltMode';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemPaletteEntries: Pointer;
function GetSystemPaletteEntries;
begin
GetProcedureAddress(_GetSystemPaletteEntries, gdi32, 'GetSystemPaletteEntries');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemPaletteEntries]
end;
end;
{$ELSE}
function GetSystemPaletteEntries; external gdi32 name 'GetSystemPaletteEntries';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemPaletteUse: Pointer;
function GetSystemPaletteUse;
begin
GetProcedureAddress(_GetSystemPaletteUse, gdi32, 'GetSystemPaletteUse');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemPaletteUse]
end;
end;
{$ELSE}
function GetSystemPaletteUse; external gdi32 name 'GetSystemPaletteUse';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextCharacterExtra: Pointer;
function GetTextCharacterExtra;
begin
GetProcedureAddress(_GetTextCharacterExtra, gdi32, 'GetTextCharacterExtra');
asm
mov esp, ebp
pop ebp
jmp [_GetTextCharacterExtra]
end;
end;
{$ELSE}
function GetTextCharacterExtra; external gdi32 name 'GetTextCharacterExtra';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextAlign: Pointer;
function GetTextAlign;
begin
GetProcedureAddress(_GetTextAlign, gdi32, 'GetTextAlign');
asm
mov esp, ebp
pop ebp
jmp [_GetTextAlign]
end;
end;
{$ELSE}
function GetTextAlign; external gdi32 name 'GetTextAlign';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextColor: Pointer;
function GetTextColor;
begin
GetProcedureAddress(_GetTextColor, gdi32, 'GetTextColor');
asm
mov esp, ebp
pop ebp
jmp [_GetTextColor]
end;
end;
{$ELSE}
function GetTextColor; external gdi32 name 'GetTextColor';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentPointA: Pointer;
function GetTextExtentPointA;
begin
GetProcedureAddress(_GetTextExtentPointA, gdi32, 'GetTextExtentPointA');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentPointA]
end;
end;
{$ELSE}
function GetTextExtentPointA; external gdi32 name 'GetTextExtentPointA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentPointW: Pointer;
function GetTextExtentPointW;
begin
GetProcedureAddress(_GetTextExtentPointW, gdi32, 'GetTextExtentPointW');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentPointW]
end;
end;
{$ELSE}
function GetTextExtentPointW; external gdi32 name 'GetTextExtentPointW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentPoint: Pointer;
function GetTextExtentPoint;
begin
GetProcedureAddress(_GetTextExtentPoint, gdi32, 'GetTextExtentPointW');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentPoint]
end;
end;
{$ELSE}
function GetTextExtentPoint; external gdi32 name 'GetTextExtentPointW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentPoint: Pointer;
function GetTextExtentPoint;
begin
GetProcedureAddress(_GetTextExtentPoint, gdi32, 'GetTextExtentPointA');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentPoint]
end;
end;
{$ELSE}
function GetTextExtentPoint; external gdi32 name 'GetTextExtentPointA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentPoint32A: Pointer;
function GetTextExtentPoint32A;
begin
GetProcedureAddress(_GetTextExtentPoint32A, gdi32, 'GetTextExtentPoint32A');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentPoint32A]
end;
end;
{$ELSE}
function GetTextExtentPoint32A; external gdi32 name 'GetTextExtentPoint32A';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentPoint32W: Pointer;
function GetTextExtentPoint32W;
begin
GetProcedureAddress(_GetTextExtentPoint32W, gdi32, 'GetTextExtentPoint32W');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentPoint32W]
end;
end;
{$ELSE}
function GetTextExtentPoint32W; external gdi32 name 'GetTextExtentPoint32W';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentPoint32: Pointer;
function GetTextExtentPoint32;
begin
GetProcedureAddress(_GetTextExtentPoint32, gdi32, 'GetTextExtentPoint32W');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentPoint32]
end;
end;
{$ELSE}
function GetTextExtentPoint32; external gdi32 name 'GetTextExtentPoint32W';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentPoint32: Pointer;
function GetTextExtentPoint32;
begin
GetProcedureAddress(_GetTextExtentPoint32, gdi32, 'GetTextExtentPoint32A');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentPoint32]
end;
end;
{$ELSE}
function GetTextExtentPoint32; external gdi32 name 'GetTextExtentPoint32A';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentExPointA: Pointer;
function GetTextExtentExPointA;
begin
GetProcedureAddress(_GetTextExtentExPointA, gdi32, 'GetTextExtentExPointA');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentExPointA]
end;
end;
{$ELSE}
function GetTextExtentExPointA; external gdi32 name 'GetTextExtentExPointA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentExPointW: Pointer;
function GetTextExtentExPointW;
begin
GetProcedureAddress(_GetTextExtentExPointW, gdi32, 'GetTextExtentExPointW');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentExPointW]
end;
end;
{$ELSE}
function GetTextExtentExPointW; external gdi32 name 'GetTextExtentExPointW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentExPoint: Pointer;
function GetTextExtentExPoint;
begin
GetProcedureAddress(_GetTextExtentExPoint, gdi32, 'GetTextExtentExPointW');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentExPoint]
end;
end;
{$ELSE}
function GetTextExtentExPoint; external gdi32 name 'GetTextExtentExPointW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentExPoint: Pointer;
function GetTextExtentExPoint;
begin
GetProcedureAddress(_GetTextExtentExPoint, gdi32, 'GetTextExtentExPointA');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentExPoint]
end;
end;
{$ELSE}
function GetTextExtentExPoint; external gdi32 name 'GetTextExtentExPointA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetTextCharset: Pointer;
function GetTextCharset;
begin
GetProcedureAddress(_GetTextCharset, gdi32, 'GetTextCharset');
asm
mov esp, ebp
pop ebp
jmp [_GetTextCharset]
end;
end;
{$ELSE}
function GetTextCharset; external gdi32 name 'GetTextCharset';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextCharsetInfo: Pointer;
function GetTextCharsetInfo;
begin
GetProcedureAddress(_GetTextCharsetInfo, gdi32, 'GetTextCharsetInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetTextCharsetInfo]
end;
end;
{$ELSE}
function GetTextCharsetInfo; external gdi32 name 'GetTextCharsetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_TranslateCharsetInfo: Pointer;
function TranslateCharsetInfo;
begin
GetProcedureAddress(_TranslateCharsetInfo, gdi32, 'TranslateCharsetInfo');
asm
mov esp, ebp
pop ebp
jmp [_TranslateCharsetInfo]
end;
end;
{$ELSE}
function TranslateCharsetInfo; external gdi32 name 'TranslateCharsetInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetFontLanguageInfo: Pointer;
function GetFontLanguageInfo;
begin
GetProcedureAddress(_GetFontLanguageInfo, gdi32, 'GetFontLanguageInfo');
asm
mov esp, ebp
pop ebp
jmp [_GetFontLanguageInfo]
end;
end;
{$ELSE}
function GetFontLanguageInfo; external gdi32 name 'GetFontLanguageInfo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCharacterPlacementA: Pointer;
function GetCharacterPlacementA;
begin
GetProcedureAddress(_GetCharacterPlacementA, gdi32, 'GetCharacterPlacementA');
asm
mov esp, ebp
pop ebp
jmp [_GetCharacterPlacementA]
end;
end;
{$ELSE}
function GetCharacterPlacementA; external gdi32 name 'GetCharacterPlacementA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCharacterPlacementW: Pointer;
function GetCharacterPlacementW;
begin
GetProcedureAddress(_GetCharacterPlacementW, gdi32, 'GetCharacterPlacementW');
asm
mov esp, ebp
pop ebp
jmp [_GetCharacterPlacementW]
end;
end;
{$ELSE}
function GetCharacterPlacementW; external gdi32 name 'GetCharacterPlacementW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharacterPlacement: Pointer;
function GetCharacterPlacement;
begin
GetProcedureAddress(_GetCharacterPlacement, gdi32, 'GetCharacterPlacementW');
asm
mov esp, ebp
pop ebp
jmp [_GetCharacterPlacement]
end;
end;
{$ELSE}
function GetCharacterPlacement; external gdi32 name 'GetCharacterPlacementW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetCharacterPlacement: Pointer;
function GetCharacterPlacement;
begin
GetProcedureAddress(_GetCharacterPlacement, gdi32, 'GetCharacterPlacementA');
asm
mov esp, ebp
pop ebp
jmp [_GetCharacterPlacement]
end;
end;
{$ELSE}
function GetCharacterPlacement; external gdi32 name 'GetCharacterPlacementA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetFontUnicodeRanges: Pointer;
function GetFontUnicodeRanges;
begin
GetProcedureAddress(_GetFontUnicodeRanges, gdi32, 'GetFontUnicodeRanges');
asm
mov esp, ebp
pop ebp
jmp [_GetFontUnicodeRanges]
end;
end;
{$ELSE}
function GetFontUnicodeRanges; external gdi32 name 'GetFontUnicodeRanges';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetGlyphIndicesA: Pointer;
function GetGlyphIndicesA;
begin
GetProcedureAddress(_GetGlyphIndicesA, gdi32, 'GetGlyphIndicesA');
asm
mov esp, ebp
pop ebp
jmp [_GetGlyphIndicesA]
end;
end;
{$ELSE}
function GetGlyphIndicesA; external gdi32 name 'GetGlyphIndicesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetGlyphIndicesW: Pointer;
function GetGlyphIndicesW;
begin
GetProcedureAddress(_GetGlyphIndicesW, gdi32, 'GetGlyphIndicesW');
asm
mov esp, ebp
pop ebp
jmp [_GetGlyphIndicesW]
end;
end;
{$ELSE}
function GetGlyphIndicesW; external gdi32 name 'GetGlyphIndicesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetGlyphIndices: Pointer;
function GetGlyphIndices;
begin
GetProcedureAddress(_GetGlyphIndices, gdi32, 'GetGlyphIndicesW');
asm
mov esp, ebp
pop ebp
jmp [_GetGlyphIndices]
end;
end;
{$ELSE}
function GetGlyphIndices; external gdi32 name 'GetGlyphIndicesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetGlyphIndices: Pointer;
function GetGlyphIndices;
begin
GetProcedureAddress(_GetGlyphIndices, gdi32, 'GetGlyphIndicesA');
asm
mov esp, ebp
pop ebp
jmp [_GetGlyphIndices]
end;
end;
{$ELSE}
function GetGlyphIndices; external gdi32 name 'GetGlyphIndicesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentPointI: Pointer;
function GetTextExtentPointI;
begin
GetProcedureAddress(_GetTextExtentPointI, gdi32, 'GetTextExtentPointI');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentPointI]
end;
end;
{$ELSE}
function GetTextExtentPointI; external gdi32 name 'GetTextExtentPointI';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTextExtentExPointI: Pointer;
function GetTextExtentExPointI;
begin
GetProcedureAddress(_GetTextExtentExPointI, gdi32, 'GetTextExtentExPointI');
asm
mov esp, ebp
pop ebp
jmp [_GetTextExtentExPointI]
end;
end;
{$ELSE}
function GetTextExtentExPointI; external gdi32 name 'GetTextExtentExPointI';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCharWidthI: Pointer;
function GetCharWidthI;
begin
GetProcedureAddress(_GetCharWidthI, gdi32, 'GetCharWidthI');
asm
mov esp, ebp
pop ebp
jmp [_GetCharWidthI]
end;
end;
{$ELSE}
function GetCharWidthI; external gdi32 name 'GetCharWidthI';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCharABCWidthsI: Pointer;
function GetCharABCWidthsI;
begin
GetProcedureAddress(_GetCharABCWidthsI, gdi32, 'GetCharABCWidthsI');
asm
mov esp, ebp
pop ebp
jmp [_GetCharABCWidthsI]
end;
end;
{$ELSE}
function GetCharABCWidthsI; external gdi32 name 'GetCharABCWidthsI';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AddFontResourceExA: Pointer;
function AddFontResourceExA;
begin
GetProcedureAddress(_AddFontResourceExA, gdi32, 'AddFontResourceExA');
asm
mov esp, ebp
pop ebp
jmp [_AddFontResourceExA]
end;
end;
{$ELSE}
function AddFontResourceExA; external gdi32 name 'AddFontResourceExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AddFontResourceExW: Pointer;
function AddFontResourceExW;
begin
GetProcedureAddress(_AddFontResourceExW, gdi32, 'AddFontResourceExW');
asm
mov esp, ebp
pop ebp
jmp [_AddFontResourceExW]
end;
end;
{$ELSE}
function AddFontResourceExW; external gdi32 name 'AddFontResourceExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_AddFontResourceEx: Pointer;
function AddFontResourceEx;
begin
GetProcedureAddress(_AddFontResourceEx, gdi32, 'AddFontResourceExW');
asm
mov esp, ebp
pop ebp
jmp [_AddFontResourceEx]
end;
end;
{$ELSE}
function AddFontResourceEx; external gdi32 name 'AddFontResourceExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_AddFontResourceEx: Pointer;
function AddFontResourceEx;
begin
GetProcedureAddress(_AddFontResourceEx, gdi32, 'AddFontResourceExA');
asm
mov esp, ebp
pop ebp
jmp [_AddFontResourceEx]
end;
end;
{$ELSE}
function AddFontResourceEx; external gdi32 name 'AddFontResourceExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_RemoveFontResourceExA: Pointer;
function RemoveFontResourceExA;
begin
GetProcedureAddress(_RemoveFontResourceExA, gdi32, 'RemoveFontResourceExA');
asm
mov esp, ebp
pop ebp
jmp [_RemoveFontResourceExA]
end;
end;
{$ELSE}
function RemoveFontResourceExA; external gdi32 name 'RemoveFontResourceExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RemoveFontResourceExW: Pointer;
function RemoveFontResourceExW;
begin
GetProcedureAddress(_RemoveFontResourceExW, gdi32, 'RemoveFontResourceExW');
asm
mov esp, ebp
pop ebp
jmp [_RemoveFontResourceExW]
end;
end;
{$ELSE}
function RemoveFontResourceExW; external gdi32 name 'RemoveFontResourceExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_RemoveFontResourceEx: Pointer;
function RemoveFontResourceEx;
begin
GetProcedureAddress(_RemoveFontResourceEx, gdi32, 'RemoveFontResourceExW');
asm
mov esp, ebp
pop ebp
jmp [_RemoveFontResourceEx]
end;
end;
{$ELSE}
function RemoveFontResourceEx; external gdi32 name 'RemoveFontResourceExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_RemoveFontResourceEx: Pointer;
function RemoveFontResourceEx;
begin
GetProcedureAddress(_RemoveFontResourceEx, gdi32, 'RemoveFontResourceExA');
asm
mov esp, ebp
pop ebp
jmp [_RemoveFontResourceEx]
end;
end;
{$ELSE}
function RemoveFontResourceEx; external gdi32 name 'RemoveFontResourceExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_AddFontMemResourceEx: Pointer;
function AddFontMemResourceEx;
begin
GetProcedureAddress(_AddFontMemResourceEx, gdi32, 'AddFontMemResourceEx');
asm
mov esp, ebp
pop ebp
jmp [_AddFontMemResourceEx]
end;
end;
{$ELSE}
function AddFontMemResourceEx; external gdi32 name 'AddFontMemResourceEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RemoveFontMemResourceEx: Pointer;
function RemoveFontMemResourceEx;
begin
GetProcedureAddress(_RemoveFontMemResourceEx, gdi32, 'RemoveFontMemResourceEx');
asm
mov esp, ebp
pop ebp
jmp [_RemoveFontMemResourceEx]
end;
end;
{$ELSE}
function RemoveFontMemResourceEx; external gdi32 name 'RemoveFontMemResourceEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateFontIndirectExA: Pointer;
function CreateFontIndirectExA;
begin
GetProcedureAddress(_CreateFontIndirectExA, gdi32, 'CreateFontIndirectExA');
asm
mov esp, ebp
pop ebp
jmp [_CreateFontIndirectExA]
end;
end;
{$ELSE}
function CreateFontIndirectExA; external gdi32 name 'CreateFontIndirectExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateFontIndirectExW: Pointer;
function CreateFontIndirectExW;
begin
GetProcedureAddress(_CreateFontIndirectExW, gdi32, 'CreateFontIndirectExW');
asm
mov esp, ebp
pop ebp
jmp [_CreateFontIndirectExW]
end;
end;
{$ELSE}
function CreateFontIndirectExW; external gdi32 name 'CreateFontIndirectExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateFontIndirectEx: Pointer;
function CreateFontIndirectEx;
begin
GetProcedureAddress(_CreateFontIndirectEx, gdi32, 'CreateFontIndirectExW');
asm
mov esp, ebp
pop ebp
jmp [_CreateFontIndirectEx]
end;
end;
{$ELSE}
function CreateFontIndirectEx; external gdi32 name 'CreateFontIndirectExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateFontIndirectEx: Pointer;
function CreateFontIndirectEx;
begin
GetProcedureAddress(_CreateFontIndirectEx, gdi32, 'CreateFontIndirectExA');
asm
mov esp, ebp
pop ebp
jmp [_CreateFontIndirectEx]
end;
end;
{$ELSE}
function CreateFontIndirectEx; external gdi32 name 'CreateFontIndirectExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetViewportExtEx: Pointer;
function GetViewportExtEx;
begin
GetProcedureAddress(_GetViewportExtEx, gdi32, 'GetViewportExtEx');
asm
mov esp, ebp
pop ebp
jmp [_GetViewportExtEx]
end;
end;
{$ELSE}
function GetViewportExtEx; external gdi32 name 'GetViewportExtEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetViewportOrgEx: Pointer;
function GetViewportOrgEx;
begin
GetProcedureAddress(_GetViewportOrgEx, gdi32, 'GetViewportOrgEx');
asm
mov esp, ebp
pop ebp
jmp [_GetViewportOrgEx]
end;
end;
{$ELSE}
function GetViewportOrgEx; external gdi32 name 'GetViewportOrgEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowExtEx: Pointer;
function GetWindowExtEx;
begin
GetProcedureAddress(_GetWindowExtEx, gdi32, 'GetWindowExtEx');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowExtEx]
end;
end;
{$ELSE}
function GetWindowExtEx; external gdi32 name 'GetWindowExtEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowOrgEx: Pointer;
function GetWindowOrgEx;
begin
GetProcedureAddress(_GetWindowOrgEx, gdi32, 'GetWindowOrgEx');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowOrgEx]
end;
end;
{$ELSE}
function GetWindowOrgEx; external gdi32 name 'GetWindowOrgEx';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_IntersectClipRect: Pointer;
function IntersectClipRect;
begin
GetProcedureAddress(_IntersectClipRect, gdi32, 'IntersectClipRect');
asm
mov esp, ebp
pop ebp
jmp [_IntersectClipRect]
end;
end;
{$ELSE}
function IntersectClipRect; external gdi32 name 'IntersectClipRect';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_InvertRgn: Pointer;
function InvertRgn;
begin
GetProcedureAddress(_InvertRgn, gdi32, 'InvertRgn');
asm
mov esp, ebp
pop ebp
jmp [_InvertRgn]
end;
end;
{$ELSE}
function InvertRgn; external gdi32 name 'InvertRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LineDDA: Pointer;
function LineDDA;
begin
GetProcedureAddress(_LineDDA, gdi32, 'LineDDA');
asm
mov esp, ebp
pop ebp
jmp [_LineDDA]
end;
end;
{$ELSE}
function LineDDA; external gdi32 name 'LineDDA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LineTo: Pointer;
function LineTo;
begin
GetProcedureAddress(_LineTo, gdi32, 'LineTo');
asm
mov esp, ebp
pop ebp
jmp [_LineTo]
end;
end;
{$ELSE}
function LineTo; external gdi32 name 'LineTo';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_MaskBlt: Pointer;
function MaskBlt;
begin
GetProcedureAddress(_MaskBlt, gdi32, 'MaskBlt');
asm
mov esp, ebp
pop ebp
jmp [_MaskBlt]
end;
end;
{$ELSE}
function MaskBlt; external gdi32 name 'MaskBlt';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PlgBlt: Pointer;
function PlgBlt;
begin
GetProcedureAddress(_PlgBlt, gdi32, 'PlgBlt');
asm
mov esp, ebp
pop ebp
jmp [_PlgBlt]
end;
end;
{$ELSE}
function PlgBlt; external gdi32 name 'PlgBlt';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OffsetClipRgn: Pointer;
function OffsetClipRgn;
begin
GetProcedureAddress(_OffsetClipRgn, gdi32, 'OffsetClipRgn');
asm
mov esp, ebp
pop ebp
jmp [_OffsetClipRgn]
end;
end;
{$ELSE}
function OffsetClipRgn; external gdi32 name 'OffsetClipRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OffsetRgn: Pointer;
function OffsetRgn;
begin
GetProcedureAddress(_OffsetRgn, gdi32, 'OffsetRgn');
asm
mov esp, ebp
pop ebp
jmp [_OffsetRgn]
end;
end;
{$ELSE}
function OffsetRgn; external gdi32 name 'OffsetRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PatBlt: Pointer;
function PatBlt;
begin
GetProcedureAddress(_PatBlt, gdi32, 'PatBlt');
asm
mov esp, ebp
pop ebp
jmp [_PatBlt]
end;
end;
{$ELSE}
function PatBlt; external gdi32 name 'PatBlt';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_Pie: Pointer;
function Pie;
begin
GetProcedureAddress(_Pie, gdi32, 'Pie');
asm
mov esp, ebp
pop ebp
jmp [_Pie]
end;
end;
{$ELSE}
function Pie; external gdi32 name 'Pie';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PlayMetaFile: Pointer;
function PlayMetaFile;
begin
GetProcedureAddress(_PlayMetaFile, gdi32, 'PlayMetaFile');
asm
mov esp, ebp
pop ebp
jmp [_PlayMetaFile]
end;
end;
{$ELSE}
function PlayMetaFile; external gdi32 name 'PlayMetaFile';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PaintRgn: Pointer;
function PaintRgn;
begin
GetProcedureAddress(_PaintRgn, gdi32, 'PaintRgn');
asm
mov esp, ebp
pop ebp
jmp [_PaintRgn]
end;
end;
{$ELSE}
function PaintRgn; external gdi32 name 'PaintRgn';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PolyPolygon: Pointer;
function PolyPolygon;
begin
GetProcedureAddress(_PolyPolygon, gdi32, 'PolyPolygon');
asm
mov esp, ebp
pop ebp
jmp [_PolyPolygon]
end;
end;
{$ELSE}
function PolyPolygon; external gdi32 name 'PolyPolygon';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PtInRegion: Pointer;
function PtInRegion;
begin
GetProcedureAddress(_PtInRegion, gdi32, 'PtInRegion');
asm
mov esp, ebp
pop ebp
jmp [_PtInRegion]
end;
end;
{$ELSE}
function PtInRegion; external gdi32 name 'PtInRegion';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_PtVisible: Pointer;
function PtVisible;
begin
GetProcedureAddress(_PtVisible, gdi32, 'PtVisible');
asm
mov esp, ebp
pop ebp
jmp [_PtVisible]
end;
end;
{$ELSE}
function PtVisible; external gdi32 name 'PtVisible';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RectInRegion: Pointer;
function RectInRegion;
begin
GetProcedureAddress(_RectInRegion, gdi32, 'RectInRegion');
asm
mov esp, ebp
pop ebp
jmp [_RectInRegion]
end;
end;
{$ELSE}
function RectInRegion; external gdi32 name 'RectInRegion';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_RectVisible: Pointer;
function RectVisible;
begin
GetProcedureAddress(_RectVisible, gdi32, 'RectVisible');
asm
mov esp, ebp
pop ebp
jmp [_RectVisible]
end;
end;