Windows编程

开发平台：

Delphi

JwaWinBase.pas：源码内容

{$IFDEF DYNAMIC_LINK}
var
_CreateEvent: Pointer;
function CreateEvent;
begin
GetProcedureAddress(_CreateEvent, kernel32, 'CreateEventW');
asm
mov esp, ebp
pop ebp
jmp [_CreateEvent]
end;
end;
{$ELSE}
function CreateEvent; external kernel32 name 'CreateEventW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateEvent: Pointer;
function CreateEvent;
begin
GetProcedureAddress(_CreateEvent, kernel32, 'CreateEventA');
asm
mov esp, ebp
pop ebp
jmp [_CreateEvent]
end;
end;
{$ELSE}
function CreateEvent; external kernel32 name 'CreateEventA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_OpenEventA: Pointer;
function OpenEventA;
begin
GetProcedureAddress(_OpenEventA, kernel32, 'OpenEventA');
asm
mov esp, ebp
pop ebp
jmp [_OpenEventA]
end;
end;
{$ELSE}
function OpenEventA; external kernel32 name 'OpenEventA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OpenEventW: Pointer;
function OpenEventW;
begin
GetProcedureAddress(_OpenEventW, kernel32, 'OpenEventW');
asm
mov esp, ebp
pop ebp
jmp [_OpenEventW]
end;
end;
{$ELSE}
function OpenEventW; external kernel32 name 'OpenEventW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_OpenEvent: Pointer;
function OpenEvent;
begin
GetProcedureAddress(_OpenEvent, kernel32, 'OpenEventW');
asm
mov esp, ebp
pop ebp
jmp [_OpenEvent]
end;
end;
{$ELSE}
function OpenEvent; external kernel32 name 'OpenEventW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_OpenEvent: Pointer;
function OpenEvent;
begin
GetProcedureAddress(_OpenEvent, kernel32, 'OpenEventA');
asm
mov esp, ebp
pop ebp
jmp [_OpenEvent]
end;
end;
{$ELSE}
function OpenEvent; external kernel32 name 'OpenEventA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateSemaphoreA: Pointer;
function CreateSemaphoreA;
begin
GetProcedureAddress(_CreateSemaphoreA, kernel32, 'CreateSemaphoreA');
asm
mov esp, ebp
pop ebp
jmp [_CreateSemaphoreA]
end;
end;
{$ELSE}
function CreateSemaphoreA; external kernel32 name 'CreateSemaphoreA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateSemaphoreW: Pointer;
function CreateSemaphoreW;
begin
GetProcedureAddress(_CreateSemaphoreW, kernel32, 'CreateSemaphoreW');
asm
mov esp, ebp
pop ebp
jmp [_CreateSemaphoreW]
end;
end;
{$ELSE}
function CreateSemaphoreW; external kernel32 name 'CreateSemaphoreW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateSemaphore: Pointer;
function CreateSemaphore;
begin
GetProcedureAddress(_CreateSemaphore, kernel32, 'CreateSemaphoreW');
asm
mov esp, ebp
pop ebp
jmp [_CreateSemaphore]
end;
end;
{$ELSE}
function CreateSemaphore; external kernel32 name 'CreateSemaphoreW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateSemaphore: Pointer;
function CreateSemaphore;
begin
GetProcedureAddress(_CreateSemaphore, kernel32, 'CreateSemaphoreA');
asm
mov esp, ebp
pop ebp
jmp [_CreateSemaphore]
end;
end;
{$ELSE}
function CreateSemaphore; external kernel32 name 'CreateSemaphoreA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_OpenSemaphoreA: Pointer;
function OpenSemaphoreA;
begin
GetProcedureAddress(_OpenSemaphoreA, kernel32, 'OpenSemaphoreA');
asm
mov esp, ebp
pop ebp
jmp [_OpenSemaphoreA]
end;
end;
{$ELSE}
function OpenSemaphoreA; external kernel32 name 'OpenSemaphoreA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OpenSemaphoreW: Pointer;
function OpenSemaphoreW;
begin
GetProcedureAddress(_OpenSemaphoreW, kernel32, 'OpenSemaphoreW');
asm
mov esp, ebp
pop ebp
jmp [_OpenSemaphoreW]
end;
end;
{$ELSE}
function OpenSemaphoreW; external kernel32 name 'OpenSemaphoreW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_OpenSemaphore: Pointer;
function OpenSemaphore;
begin
GetProcedureAddress(_OpenSemaphore, kernel32, 'OpenSemaphoreW');
asm
mov esp, ebp
pop ebp
jmp [_OpenSemaphore]
end;
end;
{$ELSE}
function OpenSemaphore; external kernel32 name 'OpenSemaphoreW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_OpenSemaphore: Pointer;
function OpenSemaphore;
begin
GetProcedureAddress(_OpenSemaphore, kernel32, 'OpenSemaphoreA');
asm
mov esp, ebp
pop ebp
jmp [_OpenSemaphore]
end;
end;
{$ELSE}
function OpenSemaphore; external kernel32 name 'OpenSemaphoreA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateWaitableTimerA: Pointer;
function CreateWaitableTimerA;
begin
GetProcedureAddress(_CreateWaitableTimerA, kernel32, 'CreateWaitableTimerA');
asm
mov esp, ebp
pop ebp
jmp [_CreateWaitableTimerA]
end;
end;
{$ELSE}
function CreateWaitableTimerA; external kernel32 name 'CreateWaitableTimerA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateWaitableTimerW: Pointer;
function CreateWaitableTimerW;
begin
GetProcedureAddress(_CreateWaitableTimerW, kernel32, 'CreateWaitableTimerW');
asm
mov esp, ebp
pop ebp
jmp [_CreateWaitableTimerW]
end;
end;
{$ELSE}
function CreateWaitableTimerW; external kernel32 name 'CreateWaitableTimerW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateWaitableTimer: Pointer;
function CreateWaitableTimer;
begin
GetProcedureAddress(_CreateWaitableTimer, kernel32, 'CreateWaitableTimerW');
asm
mov esp, ebp
pop ebp
jmp [_CreateWaitableTimer]
end;
end;
{$ELSE}
function CreateWaitableTimer; external kernel32 name 'CreateWaitableTimerW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateWaitableTimer: Pointer;
function CreateWaitableTimer;
begin
GetProcedureAddress(_CreateWaitableTimer, kernel32, 'CreateWaitableTimerA');
asm
mov esp, ebp
pop ebp
jmp [_CreateWaitableTimer]
end;
end;
{$ELSE}
function CreateWaitableTimer; external kernel32 name 'CreateWaitableTimerA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_OpenWaitableTimerA: Pointer;
function OpenWaitableTimerA;
begin
GetProcedureAddress(_OpenWaitableTimerA, kernel32, 'OpenWaitableTimerA');
asm
mov esp, ebp
pop ebp
jmp [_OpenWaitableTimerA]
end;
end;
{$ELSE}
function OpenWaitableTimerA; external kernel32 name 'OpenWaitableTimerA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OpenWaitableTimerW: Pointer;
function OpenWaitableTimerW;
begin
GetProcedureAddress(_OpenWaitableTimerW, kernel32, 'OpenWaitableTimerW');
asm
mov esp, ebp
pop ebp
jmp [_OpenWaitableTimerW]
end;
end;
{$ELSE}
function OpenWaitableTimerW; external kernel32 name 'OpenWaitableTimerW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_OpenWaitableTimer: Pointer;
function OpenWaitableTimer;
begin
GetProcedureAddress(_OpenWaitableTimer, kernel32, 'OpenWaitableTimerW');
asm
mov esp, ebp
pop ebp
jmp [_OpenWaitableTimer]
end;
end;
{$ELSE}
function OpenWaitableTimer; external kernel32 name 'OpenWaitableTimerW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_OpenWaitableTimer: Pointer;
function OpenWaitableTimer;
begin
GetProcedureAddress(_OpenWaitableTimer, kernel32, 'OpenWaitableTimerA');
asm
mov esp, ebp
pop ebp
jmp [_OpenWaitableTimer]
end;
end;
{$ELSE}
function OpenWaitableTimer; external kernel32 name 'OpenWaitableTimerA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetWaitableTimer: Pointer;
function SetWaitableTimer;
begin
GetProcedureAddress(_SetWaitableTimer, kernel32, 'SetWaitableTimer');
asm
mov esp, ebp
pop ebp
jmp [_SetWaitableTimer]
end;
end;
{$ELSE}
function SetWaitableTimer; external kernel32 name 'SetWaitableTimer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CancelWaitableTimer: Pointer;
function CancelWaitableTimer;
begin
GetProcedureAddress(_CancelWaitableTimer, kernel32, 'CancelWaitableTimer');
asm
mov esp, ebp
pop ebp
jmp [_CancelWaitableTimer]
end;
end;
{$ELSE}
function CancelWaitableTimer; external kernel32 name 'CancelWaitableTimer';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateFileMappingA: Pointer;
function CreateFileMappingA;
begin
GetProcedureAddress(_CreateFileMappingA, kernel32, 'CreateFileMappingA');
asm
mov esp, ebp
pop ebp
jmp [_CreateFileMappingA]
end;
end;
{$ELSE}
function CreateFileMappingA; external kernel32 name 'CreateFileMappingA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateFileMappingW: Pointer;
function CreateFileMappingW;
begin
GetProcedureAddress(_CreateFileMappingW, kernel32, 'CreateFileMappingW');
asm
mov esp, ebp
pop ebp
jmp [_CreateFileMappingW]
end;
end;
{$ELSE}
function CreateFileMappingW; external kernel32 name 'CreateFileMappingW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateFileMapping: Pointer;
function CreateFileMapping;
begin
GetProcedureAddress(_CreateFileMapping, kernel32, 'CreateFileMappingW');
asm
mov esp, ebp
pop ebp
jmp [_CreateFileMapping]
end;
end;
{$ELSE}
function CreateFileMapping; external kernel32 name 'CreateFileMappingW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateFileMapping: Pointer;
function CreateFileMapping;
begin
GetProcedureAddress(_CreateFileMapping, kernel32, 'CreateFileMappingA');
asm
mov esp, ebp
pop ebp
jmp [_CreateFileMapping]
end;
end;
{$ELSE}
function CreateFileMapping; external kernel32 name 'CreateFileMappingA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_OpenFileMappingA: Pointer;
function OpenFileMappingA;
begin
GetProcedureAddress(_OpenFileMappingA, kernel32, 'OpenFileMappingA');
asm
mov esp, ebp
pop ebp
jmp [_OpenFileMappingA]
end;
end;
{$ELSE}
function OpenFileMappingA; external kernel32 name 'OpenFileMappingA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OpenFileMappingW: Pointer;
function OpenFileMappingW;
begin
GetProcedureAddress(_OpenFileMappingW, kernel32, 'OpenFileMappingW');
asm
mov esp, ebp
pop ebp
jmp [_OpenFileMappingW]
end;
end;
{$ELSE}
function OpenFileMappingW; external kernel32 name 'OpenFileMappingW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_OpenFileMapping: Pointer;
function OpenFileMapping;
begin
GetProcedureAddress(_OpenFileMapping, kernel32, 'OpenFileMappingW');
asm
mov esp, ebp
pop ebp
jmp [_OpenFileMapping]
end;
end;
{$ELSE}
function OpenFileMapping; external kernel32 name 'OpenFileMappingW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_OpenFileMapping: Pointer;
function OpenFileMapping;
begin
GetProcedureAddress(_OpenFileMapping, kernel32, 'OpenFileMappingA');
asm
mov esp, ebp
pop ebp
jmp [_OpenFileMapping]
end;
end;
{$ELSE}
function OpenFileMapping; external kernel32 name 'OpenFileMappingA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetLogicalDriveStringsA: Pointer;
function GetLogicalDriveStringsA;
begin
GetProcedureAddress(_GetLogicalDriveStringsA, kernel32, 'GetLogicalDriveStringsA');
asm
mov esp, ebp
pop ebp
jmp [_GetLogicalDriveStringsA]
end;
end;
{$ELSE}
function GetLogicalDriveStringsA; external kernel32 name 'GetLogicalDriveStringsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetLogicalDriveStringsW: Pointer;
function GetLogicalDriveStringsW;
begin
GetProcedureAddress(_GetLogicalDriveStringsW, kernel32, 'GetLogicalDriveStringsW');
asm
mov esp, ebp
pop ebp
jmp [_GetLogicalDriveStringsW]
end;
end;
{$ELSE}
function GetLogicalDriveStringsW; external kernel32 name 'GetLogicalDriveStringsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetLogicalDriveStrings: Pointer;
function GetLogicalDriveStrings;
begin
GetProcedureAddress(_GetLogicalDriveStrings, kernel32, 'GetLogicalDriveStringsW');
asm
mov esp, ebp
pop ebp
jmp [_GetLogicalDriveStrings]
end;
end;
{$ELSE}
function GetLogicalDriveStrings; external kernel32 name 'GetLogicalDriveStringsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetLogicalDriveStrings: Pointer;
function GetLogicalDriveStrings;
begin
GetProcedureAddress(_GetLogicalDriveStrings, kernel32, 'GetLogicalDriveStringsA');
asm
mov esp, ebp
pop ebp
jmp [_GetLogicalDriveStrings]
end;
end;
{$ELSE}
function GetLogicalDriveStrings; external kernel32 name 'GetLogicalDriveStringsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateMemResNotification: Pointer;
function CreateMemoryResourceNotification;
begin
GetProcedureAddress(_CreateMemResNotification, kernel32, 'CreateMemoryResourceNotification');
asm
mov esp, ebp
pop ebp
jmp [_CreateMemResNotification]
end;
end;
{$ELSE}
function CreateMemoryResourceNotification; external kernel32 name 'CreateMemoryResourceNotification';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_QueryMemoryResourceNotification: Pointer;
function QueryMemoryResourceNotification;
begin
GetProcedureAddress(_QueryMemoryResourceNotification, kernel32, 'QueryMemoryResourceNotification');
asm
mov esp, ebp
pop ebp
jmp [_QueryMemoryResourceNotification]
end;
end;
{$ELSE}
function QueryMemoryResourceNotification; external kernel32 name 'QueryMemoryResourceNotification';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadLibraryA: Pointer;
function LoadLibraryA;
begin
GetProcedureAddress(_LoadLibraryA, kernel32, 'LoadLibraryA');
asm
mov esp, ebp
pop ebp
jmp [_LoadLibraryA]
end;
end;
{$ELSE}
function LoadLibraryA; external kernel32 name 'LoadLibraryA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadLibraryW: Pointer;
function LoadLibraryW;
begin
GetProcedureAddress(_LoadLibraryW, kernel32, 'LoadLibraryW');
asm
mov esp, ebp
pop ebp
jmp [_LoadLibraryW]
end;
end;
{$ELSE}
function LoadLibraryW; external kernel32 name 'LoadLibraryW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadLibrary: Pointer;
function LoadLibrary;
begin
GetProcedureAddress(_LoadLibrary, kernel32, 'LoadLibraryW');
asm
mov esp, ebp
pop ebp
jmp [_LoadLibrary]
end;
end;
{$ELSE}
function LoadLibrary; external kernel32 name 'LoadLibraryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadLibrary: Pointer;
function LoadLibrary;
begin
GetProcedureAddress(_LoadLibrary, kernel32, 'LoadLibraryA');
asm
mov esp, ebp
pop ebp
jmp [_LoadLibrary]
end;
end;
{$ELSE}
function LoadLibrary; external kernel32 name 'LoadLibraryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_LoadLibraryExA: Pointer;
function LoadLibraryExA;
begin
GetProcedureAddress(_LoadLibraryExA, kernel32, 'LoadLibraryExA');
asm
mov esp, ebp
pop ebp
jmp [_LoadLibraryExA]
end;
end;
{$ELSE}
function LoadLibraryExA; external kernel32 name 'LoadLibraryExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_LoadLibraryExW: Pointer;
function LoadLibraryExW;
begin
GetProcedureAddress(_LoadLibraryExW, kernel32, 'LoadLibraryExW');
asm
mov esp, ebp
pop ebp
jmp [_LoadLibraryExW]
end;
end;
{$ELSE}
function LoadLibraryExW; external kernel32 name 'LoadLibraryExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_LoadLibraryEx: Pointer;
function LoadLibraryEx;
begin
GetProcedureAddress(_LoadLibraryEx, kernel32, 'LoadLibraryExW');
asm
mov esp, ebp
pop ebp
jmp [_LoadLibraryEx]
end;
end;
{$ELSE}
function LoadLibraryEx; external kernel32 name 'LoadLibraryExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_LoadLibraryEx: Pointer;
function LoadLibraryEx;
begin
GetProcedureAddress(_LoadLibraryEx, kernel32, 'LoadLibraryExA');
asm
mov esp, ebp
pop ebp
jmp [_LoadLibraryEx]
end;
end;
{$ELSE}
function LoadLibraryEx; external kernel32 name 'LoadLibraryExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleFileNameA: Pointer;
function GetModuleFileNameA;
begin
GetProcedureAddress(_GetModuleFileNameA, kernel32, 'GetModuleFileNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleFileNameA]
end;
end;
{$ELSE}
function GetModuleFileNameA; external kernel32 name 'GetModuleFileNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleFileNameW: Pointer;
function GetModuleFileNameW;
begin
GetProcedureAddress(_GetModuleFileNameW, kernel32, 'GetModuleFileNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleFileNameW]
end;
end;
{$ELSE}
function GetModuleFileNameW; external kernel32 name 'GetModuleFileNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleFileName: Pointer;
function GetModuleFileName;
begin
GetProcedureAddress(_GetModuleFileName, kernel32, 'GetModuleFileNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleFileName]
end;
end;
{$ELSE}
function GetModuleFileName; external kernel32 name 'GetModuleFileNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleFileName: Pointer;
function GetModuleFileName;
begin
GetProcedureAddress(_GetModuleFileName, kernel32, 'GetModuleFileNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleFileName]
end;
end;
{$ELSE}
function GetModuleFileName; external kernel32 name 'GetModuleFileNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleHandleA: Pointer;
function GetModuleHandleA;
begin
GetProcedureAddress(_GetModuleHandleA, kernel32, 'GetModuleHandleA');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleHandleA]
end;
end;
{$ELSE}
function GetModuleHandleA; external kernel32 name 'GetModuleHandleA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleHandleW: Pointer;
function GetModuleHandleW;
begin
GetProcedureAddress(_GetModuleHandleW, kernel32, 'GetModuleHandleW');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleHandleW]
end;
end;
{$ELSE}
function GetModuleHandleW; external kernel32 name 'GetModuleHandleW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleHandle: Pointer;
function GetModuleHandle;
begin
GetProcedureAddress(_GetModuleHandle, kernel32, 'GetModuleHandleW');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleHandle]
end;
end;
{$ELSE}
function GetModuleHandle; external kernel32 name 'GetModuleHandleW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleHandle: Pointer;
function GetModuleHandle;
begin
GetProcedureAddress(_GetModuleHandle, kernel32, 'GetModuleHandleA');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleHandle]
end;
end;
{$ELSE}
function GetModuleHandle; external kernel32 name 'GetModuleHandleA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_CreateProcessA: Pointer;
function CreateProcessA;
begin
GetProcedureAddress(_CreateProcessA, kernel32, 'CreateProcessA');
asm
mov esp, ebp
pop ebp
jmp [_CreateProcessA]
end;
end;
{$ELSE}
function CreateProcessA; external kernel32 name 'CreateProcessA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_CreateProcessW: Pointer;
function CreateProcessW;
begin
GetProcedureAddress(_CreateProcessW, kernel32, 'CreateProcessW');
asm
mov esp, ebp
pop ebp
jmp [_CreateProcessW]
end;
end;
{$ELSE}
function CreateProcessW; external kernel32 name 'CreateProcessW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_CreateProcess: Pointer;
function CreateProcess;
begin
GetProcedureAddress(_CreateProcess, kernel32, 'CreateProcessW');
asm
mov esp, ebp
pop ebp
jmp [_CreateProcess]
end;
end;
{$ELSE}
function CreateProcess; external kernel32 name 'CreateProcessW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_CreateProcess: Pointer;
function CreateProcess;
begin
GetProcedureAddress(_CreateProcess, kernel32, 'CreateProcessA');
asm
mov esp, ebp
pop ebp
jmp [_CreateProcess]
end;
end;
{$ELSE}
function CreateProcess; external kernel32 name 'CreateProcessA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleHandleExA: Pointer;
function GetModuleHandleExA;
begin
GetProcedureAddress(_GetModuleHandleExA, kernel32, 'GetModuleHandleExA');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleHandleExA]
end;
end;
{$ELSE}
function GetModuleHandleExA; external kernel32 name 'GetModuleHandleExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleHandleExW: Pointer;
function GetModuleHandleExW;
begin
GetProcedureAddress(_GetModuleHandleExW, kernel32, 'GetModuleHandleExW');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleHandleExW]
end;
end;
{$ELSE}
function GetModuleHandleExW; external kernel32 name 'GetModuleHandleExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleHandleEx: Pointer;
function GetModuleHandleEx;
begin
GetProcedureAddress(_GetModuleHandleEx, kernel32, 'GetModuleHandleExW');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleHandleEx]
end;
end;
{$ELSE}
function GetModuleHandleEx; external kernel32 name 'GetModuleHandleExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetModuleHandleEx: Pointer;
function GetModuleHandleEx;
begin
GetProcedureAddress(_GetModuleHandleEx, kernel32, 'GetModuleHandleExA');
asm
mov esp, ebp
pop ebp
jmp [_GetModuleHandleEx]
end;
end;
{$ELSE}
function GetModuleHandleEx; external kernel32 name 'GetModuleHandleExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetProcessShutdownParameters: Pointer;
function SetProcessShutdownParameters;
begin
GetProcedureAddress(_SetProcessShutdownParameters, kernel32, 'SetProcessShutdownParameters');
asm
mov esp, ebp
pop ebp
jmp [_SetProcessShutdownParameters]
end;
end;
{$ELSE}
function SetProcessShutdownParameters; external kernel32 name 'SetProcessShutdownParameters';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetProcessShutdownParameters: Pointer;
function GetProcessShutdownParameters;
begin
GetProcedureAddress(_GetProcessShutdownParameters, kernel32, 'GetProcessShutdownParameters');
asm
mov esp, ebp
pop ebp
jmp [_GetProcessShutdownParameters]
end;
end;
{$ELSE}
function GetProcessShutdownParameters; external kernel32 name 'GetProcessShutdownParameters';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetProcessVersion: Pointer;
function GetProcessVersion;
begin
GetProcedureAddress(_GetProcessVersion, kernel32, 'GetProcessVersion');
asm
mov esp, ebp
pop ebp
jmp [_GetProcessVersion]
end;
end;
{$ELSE}
function GetProcessVersion; external kernel32 name 'GetProcessVersion';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FatalAppExitA: Pointer;
procedure FatalAppExitA;
begin
GetProcedureAddress(_FatalAppExitA, kernel32, 'FatalAppExitA');
asm
mov esp, ebp
pop ebp
jmp [_FatalAppExitA]
end;
end;
{$ELSE}
procedure FatalAppExitA; external kernel32 name 'FatalAppExitA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FatalAppExitW: Pointer;
procedure FatalAppExitW;
begin
GetProcedureAddress(_FatalAppExitW, kernel32, 'FatalAppExitW');
asm
mov esp, ebp
pop ebp
jmp [_FatalAppExitW]
end;
end;
{$ELSE}
procedure FatalAppExitW; external kernel32 name 'FatalAppExitW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FatalAppExit: Pointer;
procedure FatalAppExit;
begin
GetProcedureAddress(_FatalAppExit, kernel32, 'FatalAppExitW');
asm
mov esp, ebp
pop ebp
jmp [_FatalAppExit]
end;
end;
{$ELSE}
procedure FatalAppExit; external kernel32 name 'FatalAppExitW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FatalAppExit: Pointer;
procedure FatalAppExit;
begin
GetProcedureAddress(_FatalAppExit, kernel32, 'FatalAppExitA');
asm
mov esp, ebp
pop ebp
jmp [_FatalAppExit]
end;
end;
{$ELSE}
procedure FatalAppExit; external kernel32 name 'FatalAppExitA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetStartupInfoA: Pointer;
procedure GetStartupInfoA;
begin
GetProcedureAddress(_GetStartupInfoA, kernel32, 'GetStartupInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetStartupInfoA]
end;
end;
{$ELSE}
procedure GetStartupInfoA; external kernel32 name 'GetStartupInfoA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetStartupInfoW: Pointer;
procedure GetStartupInfoW;
begin
GetProcedureAddress(_GetStartupInfoW, kernel32, 'GetStartupInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetStartupInfoW]
end;
end;
{$ELSE}
procedure GetStartupInfoW; external kernel32 name 'GetStartupInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetStartupInfo: Pointer;
procedure GetStartupInfo;
begin
GetProcedureAddress(_GetStartupInfo, kernel32, 'GetStartupInfoW');
asm
mov esp, ebp
pop ebp
jmp [_GetStartupInfo]
end;
end;
{$ELSE}
procedure GetStartupInfo; external kernel32 name 'GetStartupInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetStartupInfo: Pointer;
procedure GetStartupInfo;
begin
GetProcedureAddress(_GetStartupInfo, kernel32, 'GetStartupInfoA');
asm
mov esp, ebp
pop ebp
jmp [_GetStartupInfo]
end;
end;
{$ELSE}
procedure GetStartupInfo; external kernel32 name 'GetStartupInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetCommandLineA: Pointer;
function GetCommandLineA;
begin
GetProcedureAddress(_GetCommandLineA, kernel32, 'GetCommandLineA');
asm
mov esp, ebp
pop ebp
jmp [_GetCommandLineA]
end;
end;
{$ELSE}
function GetCommandLineA; external kernel32 name 'GetCommandLineA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCommandLineW: Pointer;
function GetCommandLineW;
begin
GetProcedureAddress(_GetCommandLineW, kernel32, 'GetCommandLineW');
asm
mov esp, ebp
pop ebp
jmp [_GetCommandLineW]
end;
end;
{$ELSE}
function GetCommandLineW; external kernel32 name 'GetCommandLineW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetCommandLine: Pointer;
function GetCommandLine;
begin
GetProcedureAddress(_GetCommandLine, kernel32, 'GetCommandLineW');
asm
mov esp, ebp
pop ebp
jmp [_GetCommandLine]
end;
end;
{$ELSE}
function GetCommandLine; external kernel32 name 'GetCommandLineW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetCommandLine: Pointer;
function GetCommandLine;
begin
GetProcedureAddress(_GetCommandLine, kernel32, 'GetCommandLineA');
asm
mov esp, ebp
pop ebp
jmp [_GetCommandLine]
end;
end;
{$ELSE}
function GetCommandLine; external kernel32 name 'GetCommandLineA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetEnvironmentVariableA: Pointer;
function GetEnvironmentVariableA;
begin
GetProcedureAddress(_GetEnvironmentVariableA, kernel32, 'GetEnvironmentVariableA');
asm
mov esp, ebp
pop ebp
jmp [_GetEnvironmentVariableA]
end;
end;
{$ELSE}
function GetEnvironmentVariableA; external kernel32 name 'GetEnvironmentVariableA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetEnvironmentVariableW: Pointer;
function GetEnvironmentVariableW;
begin
GetProcedureAddress(_GetEnvironmentVariableW, kernel32, 'GetEnvironmentVariableW');
asm
mov esp, ebp
pop ebp
jmp [_GetEnvironmentVariableW]
end;
end;
{$ELSE}
function GetEnvironmentVariableW; external kernel32 name 'GetEnvironmentVariableW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetEnvironmentVariable: Pointer;
function GetEnvironmentVariable;
begin
GetProcedureAddress(_GetEnvironmentVariable, kernel32, 'GetEnvironmentVariableW');
asm
mov esp, ebp
pop ebp
jmp [_GetEnvironmentVariable]
end;
end;
{$ELSE}
function GetEnvironmentVariable; external kernel32 name 'GetEnvironmentVariableW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetEnvironmentVariable: Pointer;
function GetEnvironmentVariable;
begin
GetProcedureAddress(_GetEnvironmentVariable, kernel32, 'GetEnvironmentVariableA');
asm
mov esp, ebp
pop ebp
jmp [_GetEnvironmentVariable]
end;
end;
{$ELSE}
function GetEnvironmentVariable; external kernel32 name 'GetEnvironmentVariableA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetEnvironmentVariableA: Pointer;
function SetEnvironmentVariableA;
begin
GetProcedureAddress(_SetEnvironmentVariableA, kernel32, 'SetEnvironmentVariableA');
asm
mov esp, ebp
pop ebp
jmp [_SetEnvironmentVariableA]
end;
end;
{$ELSE}
function SetEnvironmentVariableA; external kernel32 name 'SetEnvironmentVariableA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetEnvironmentVariableW: Pointer;
function SetEnvironmentVariableW;
begin
GetProcedureAddress(_SetEnvironmentVariableW, kernel32, 'SetEnvironmentVariableW');
asm
mov esp, ebp
pop ebp
jmp [_SetEnvironmentVariableW]
end;
end;
{$ELSE}
function SetEnvironmentVariableW; external kernel32 name 'SetEnvironmentVariableW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetEnvironmentVariable: Pointer;
function SetEnvironmentVariable;
begin
GetProcedureAddress(_SetEnvironmentVariable, kernel32, 'SetEnvironmentVariableW');
asm
mov esp, ebp
pop ebp
jmp [_SetEnvironmentVariable]
end;
end;
{$ELSE}
function SetEnvironmentVariable; external kernel32 name 'SetEnvironmentVariableW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetEnvironmentVariable: Pointer;
function SetEnvironmentVariable;
begin
GetProcedureAddress(_SetEnvironmentVariable, kernel32, 'SetEnvironmentVariableA');
asm
mov esp, ebp
pop ebp
jmp [_SetEnvironmentVariable]
end;
end;
{$ELSE}
function SetEnvironmentVariable; external kernel32 name 'SetEnvironmentVariableA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_ExpandEnvironmentStringsA: Pointer;
function ExpandEnvironmentStringsA;
begin
GetProcedureAddress(_ExpandEnvironmentStringsA, kernel32, 'ExpandEnvironmentStringsA');
asm
mov esp, ebp
pop ebp
jmp [_ExpandEnvironmentStringsA]
end;
end;
{$ELSE}
function ExpandEnvironmentStringsA; external kernel32 name 'ExpandEnvironmentStringsA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_ExpandEnvironmentStringsW: Pointer;
function ExpandEnvironmentStringsW;
begin
GetProcedureAddress(_ExpandEnvironmentStringsW, kernel32, 'ExpandEnvironmentStringsW');
asm
mov esp, ebp
pop ebp
jmp [_ExpandEnvironmentStringsW]
end;
end;
{$ELSE}
function ExpandEnvironmentStringsW; external kernel32 name 'ExpandEnvironmentStringsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_ExpandEnvironmentStrings: Pointer;
function ExpandEnvironmentStrings;
begin
GetProcedureAddress(_ExpandEnvironmentStrings, kernel32, 'ExpandEnvironmentStringsW');
asm
mov esp, ebp
pop ebp
jmp [_ExpandEnvironmentStrings]
end;
end;
{$ELSE}
function ExpandEnvironmentStrings; external kernel32 name 'ExpandEnvironmentStringsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_ExpandEnvironmentStrings: Pointer;
function ExpandEnvironmentStrings;
begin
GetProcedureAddress(_ExpandEnvironmentStrings, kernel32, 'ExpandEnvironmentStringsA');
asm
mov esp, ebp
pop ebp
jmp [_ExpandEnvironmentStrings]
end;
end;
{$ELSE}
function ExpandEnvironmentStrings; external kernel32 name 'ExpandEnvironmentStringsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetFirmwareEnvironmentVariableA: Pointer;
function GetFirmwareEnvironmentVariableA;
begin
GetProcedureAddress(_GetFirmwareEnvironmentVariableA, kernel32, 'GetFirmwareEnvironmentVariableA');
asm
mov esp, ebp
pop ebp
jmp [_GetFirmwareEnvironmentVariableA]
end;
end;
{$ELSE}
function GetFirmwareEnvironmentVariableA; external kernel32 name 'GetFirmwareEnvironmentVariableA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetFirmwareEnvironmentVariableW: Pointer;
function GetFirmwareEnvironmentVariableW;
begin
GetProcedureAddress(_GetFirmwareEnvironmentVariableW, kernel32, 'GetFirmwareEnvironmentVariableW');
asm
mov esp, ebp
pop ebp
jmp [_GetFirmwareEnvironmentVariableW]
end;
end;
{$ELSE}
function GetFirmwareEnvironmentVariableW; external kernel32 name 'GetFirmwareEnvironmentVariableW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetFirmwareEnvironmentVariable: Pointer;
function GetFirmwareEnvironmentVariable;
begin
GetProcedureAddress(_GetFirmwareEnvironmentVariable, kernel32, 'GetFirmwareEnvironmentVariableW');
asm
mov esp, ebp
pop ebp
jmp [_GetFirmwareEnvironmentVariable]
end;
end;
{$ELSE}
function GetFirmwareEnvironmentVariable; external kernel32 name 'GetFirmwareEnvironmentVariableW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetFirmwareEnvironmentVariable: Pointer;
function GetFirmwareEnvironmentVariable;
begin
GetProcedureAddress(_GetFirmwareEnvironmentVariable, kernel32, 'GetFirmwareEnvironmentVariableA');
asm
mov esp, ebp
pop ebp
jmp [_GetFirmwareEnvironmentVariable]
end;
end;
{$ELSE}
function GetFirmwareEnvironmentVariable; external kernel32 name 'GetFirmwareEnvironmentVariableA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetFirmwareEnvironmentVariableA: Pointer;
function SetFirmwareEnvironmentVariableA;
begin
GetProcedureAddress(_SetFirmwareEnvironmentVariableA, kernel32, 'SetFirmwareEnvironmentVariableA');
asm
mov esp, ebp
pop ebp
jmp [_SetFirmwareEnvironmentVariableA]
end;
end;
{$ELSE}
function SetFirmwareEnvironmentVariableA; external kernel32 name 'SetFirmwareEnvironmentVariableA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetFirmwareEnvironmentVariableW: Pointer;
function SetFirmwareEnvironmentVariableW;
begin
GetProcedureAddress(_SetFirmwareEnvironmentVariableW, kernel32, 'SetFirmwareEnvironmentVariableW');
asm
mov esp, ebp
pop ebp
jmp [_SetFirmwareEnvironmentVariableW]
end;
end;
{$ELSE}
function SetFirmwareEnvironmentVariableW; external kernel32 name 'SetFirmwareEnvironmentVariableW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetFirmwareEnvironmentVariable: Pointer;
function SetFirmwareEnvironmentVariable;
begin
GetProcedureAddress(_SetFirmwareEnvironmentVariable, kernel32, 'SetFirmwareEnvironmentVariableW');
asm
mov esp, ebp
pop ebp
jmp [_SetFirmwareEnvironmentVariable]
end;
end;
{$ELSE}
function SetFirmwareEnvironmentVariable; external kernel32 name 'SetFirmwareEnvironmentVariableW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetFirmwareEnvironmentVariable: Pointer;
function SetFirmwareEnvironmentVariable;
begin
GetProcedureAddress(_SetFirmwareEnvironmentVariable, kernel32, 'SetFirmwareEnvironmentVariableA');
asm
mov esp, ebp
pop ebp
jmp [_SetFirmwareEnvironmentVariable]
end;
end;
{$ELSE}
function SetFirmwareEnvironmentVariable; external kernel32 name 'SetFirmwareEnvironmentVariableA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_OutputDebugStringA: Pointer;
procedure OutputDebugStringA;
begin
GetProcedureAddress(_OutputDebugStringA, kernel32, 'OutputDebugStringA');
asm
mov esp, ebp
pop ebp
jmp [_OutputDebugStringA]
end;
end;
{$ELSE}
procedure OutputDebugStringA; external kernel32 name 'OutputDebugStringA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_OutputDebugStringW: Pointer;
procedure OutputDebugStringW;
begin
GetProcedureAddress(_OutputDebugStringW, kernel32, 'OutputDebugStringW');
asm
mov esp, ebp
pop ebp
jmp [_OutputDebugStringW]
end;
end;
{$ELSE}
procedure OutputDebugStringW; external kernel32 name 'OutputDebugStringW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_OutputDebugString: Pointer;
procedure OutputDebugString;
begin
GetProcedureAddress(_OutputDebugString, kernel32, 'OutputDebugStringW');
asm
mov esp, ebp
pop ebp
jmp [_OutputDebugString]
end;
end;
{$ELSE}
procedure OutputDebugString; external kernel32 name 'OutputDebugStringW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_OutputDebugString: Pointer;
procedure OutputDebugString;
begin
GetProcedureAddress(_OutputDebugString, kernel32, 'OutputDebugStringA');
asm
mov esp, ebp
pop ebp
jmp [_OutputDebugString]
end;
end;
{$ELSE}
procedure OutputDebugString; external kernel32 name 'OutputDebugStringA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindResourceA: Pointer;
function FindResourceA;
begin
GetProcedureAddress(_FindResourceA, kernel32, 'FindResourceA');
asm
mov esp, ebp
pop ebp
jmp [_FindResourceA]
end;
end;
{$ELSE}
function FindResourceA; external kernel32 name 'FindResourceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindResourceW: Pointer;
function FindResourceW;
begin
GetProcedureAddress(_FindResourceW, kernel32, 'FindResourceW');
asm
mov esp, ebp
pop ebp
jmp [_FindResourceW]
end;
end;
{$ELSE}
function FindResourceW; external kernel32 name 'FindResourceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindResource: Pointer;
function FindResource;
begin
GetProcedureAddress(_FindResource, kernel32, 'FindResourceW');
asm
mov esp, ebp
pop ebp
jmp [_FindResource]
end;
end;
{$ELSE}
function FindResource; external kernel32 name 'FindResourceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindResource: Pointer;
function FindResource;
begin
GetProcedureAddress(_FindResource, kernel32, 'FindResourceA');
asm
mov esp, ebp
pop ebp
jmp [_FindResource]
end;
end;
{$ELSE}
function FindResource; external kernel32 name 'FindResourceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindResourceExA: Pointer;
function FindResourceExA;
begin
GetProcedureAddress(_FindResourceExA, kernel32, 'FindResourceExA');
asm
mov esp, ebp
pop ebp
jmp [_FindResourceExA]
end;
end;
{$ELSE}
function FindResourceExA; external kernel32 name 'FindResourceExA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindResourceExW: Pointer;
function FindResourceExW;
begin
GetProcedureAddress(_FindResourceExW, kernel32, 'FindResourceExW');
asm
mov esp, ebp
pop ebp
jmp [_FindResourceExW]
end;
end;
{$ELSE}
function FindResourceExW; external kernel32 name 'FindResourceExW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindResourceEx: Pointer;
function FindResourceEx;
begin
GetProcedureAddress(_FindResourceEx, kernel32, 'FindResourceExW');
asm
mov esp, ebp
pop ebp
jmp [_FindResourceEx]
end;
end;
{$ELSE}
function FindResourceEx; external kernel32 name 'FindResourceExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindResourceEx: Pointer;
function FindResourceEx;
begin
GetProcedureAddress(_FindResourceEx, kernel32, 'FindResourceExA');
asm
mov esp, ebp
pop ebp
jmp [_FindResourceEx]
end;
end;
{$ELSE}
function FindResourceEx; external kernel32 name 'FindResourceExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceTypesA: Pointer;
function EnumResourceTypesA;
begin
GetProcedureAddress(_EnumResourceTypesA, kernel32, 'EnumResourceTypesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceTypesA]
end;
end;
{$ELSE}
function EnumResourceTypesA; external kernel32 name 'EnumResourceTypesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceTypesW: Pointer;
function EnumResourceTypesW;
begin
GetProcedureAddress(_EnumResourceTypesW, kernel32, 'EnumResourceTypesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceTypesW]
end;
end;
{$ELSE}
function EnumResourceTypesW; external kernel32 name 'EnumResourceTypesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceTypes: Pointer;
function EnumResourceTypes;
begin
GetProcedureAddress(_EnumResourceTypes, kernel32, 'EnumResourceTypesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceTypes]
end;
end;
{$ELSE}
function EnumResourceTypes; external kernel32 name 'EnumResourceTypesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceTypes: Pointer;
function EnumResourceTypes;
begin
GetProcedureAddress(_EnumResourceTypes, kernel32, 'EnumResourceTypesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceTypes]
end;
end;
{$ELSE}
function EnumResourceTypes; external kernel32 name 'EnumResourceTypesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceNamesA: Pointer;
function EnumResourceNamesA;
begin
GetProcedureAddress(_EnumResourceNamesA, kernel32, 'EnumResourceNamesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceNamesA]
end;
end;
{$ELSE}
function EnumResourceNamesA; external kernel32 name 'EnumResourceNamesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceNamesW: Pointer;
function EnumResourceNamesW;
begin
GetProcedureAddress(_EnumResourceNamesW, kernel32, 'EnumResourceNamesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceNamesW]
end;
end;
{$ELSE}
function EnumResourceNamesW; external kernel32 name 'EnumResourceNamesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceNames: Pointer;
function EnumResourceNames;
begin
GetProcedureAddress(_EnumResourceNames, kernel32, 'EnumResourceNamesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceNames]
end;
end;
{$ELSE}
function EnumResourceNames; external kernel32 name 'EnumResourceNamesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceNames: Pointer;
function EnumResourceNames;
begin
GetProcedureAddress(_EnumResourceNames, kernel32, 'EnumResourceNamesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceNames]
end;
end;
{$ELSE}
function EnumResourceNames; external kernel32 name 'EnumResourceNamesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceLanguagesA: Pointer;
function EnumResourceLanguagesA;
begin
GetProcedureAddress(_EnumResourceLanguagesA, kernel32, 'EnumResourceLanguagesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceLanguagesA]
end;
end;
{$ELSE}
function EnumResourceLanguagesA; external kernel32 name 'EnumResourceLanguagesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceLanguagesW: Pointer;
function EnumResourceLanguagesW;
begin
GetProcedureAddress(_EnumResourceLanguagesW, kernel32, 'EnumResourceLanguagesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceLanguagesW]
end;
end;
{$ELSE}
function EnumResourceLanguagesW; external kernel32 name 'EnumResourceLanguagesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceLanguages: Pointer;
function EnumResourceLanguages;
begin
GetProcedureAddress(_EnumResourceLanguages, kernel32, 'EnumResourceLanguagesW');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceLanguages]
end;
end;
{$ELSE}
function EnumResourceLanguages; external kernel32 name 'EnumResourceLanguagesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EnumResourceLanguages: Pointer;
function EnumResourceLanguages;
begin
GetProcedureAddress(_EnumResourceLanguages, kernel32, 'EnumResourceLanguagesA');
asm
mov esp, ebp
pop ebp
jmp [_EnumResourceLanguages]
end;
end;
{$ELSE}
function EnumResourceLanguages; external kernel32 name 'EnumResourceLanguagesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_BeginUpdateResourceA: Pointer;
function BeginUpdateResourceA;
begin
GetProcedureAddress(_BeginUpdateResourceA, kernel32, 'BeginUpdateResourceA');
asm
mov esp, ebp
pop ebp
jmp [_BeginUpdateResourceA]
end;
end;
{$ELSE}
function BeginUpdateResourceA; external kernel32 name 'BeginUpdateResourceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_BeginUpdateResourceW: Pointer;
function BeginUpdateResourceW;
begin
GetProcedureAddress(_BeginUpdateResourceW, kernel32, 'BeginUpdateResourceW');
asm
mov esp, ebp
pop ebp
jmp [_BeginUpdateResourceW]
end;
end;
{$ELSE}
function BeginUpdateResourceW; external kernel32 name 'BeginUpdateResourceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_BeginUpdateResource: Pointer;
function BeginUpdateResource;
begin
GetProcedureAddress(_BeginUpdateResource, kernel32, 'BeginUpdateResourceW');
asm
mov esp, ebp
pop ebp
jmp [_BeginUpdateResource]
end;
end;
{$ELSE}
function BeginUpdateResource; external kernel32 name 'BeginUpdateResourceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_BeginUpdateResource: Pointer;
function BeginUpdateResource;
begin
GetProcedureAddress(_BeginUpdateResource, kernel32, 'BeginUpdateResourceA');
asm
mov esp, ebp
pop ebp
jmp [_BeginUpdateResource]
end;
end;
{$ELSE}
function BeginUpdateResource; external kernel32 name 'BeginUpdateResourceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_UpdateResourceA: Pointer;
function UpdateResourceA;
begin
GetProcedureAddress(_UpdateResourceA, kernel32, 'UpdateResourceA');
asm
mov esp, ebp
pop ebp
jmp [_UpdateResourceA]
end;
end;
{$ELSE}
function UpdateResourceA; external kernel32 name 'UpdateResourceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_UpdateResourceW: Pointer;
function UpdateResourceW;
begin
GetProcedureAddress(_UpdateResourceW, kernel32, 'UpdateResourceW');
asm
mov esp, ebp
pop ebp
jmp [_UpdateResourceW]
end;
end;
{$ELSE}
function UpdateResourceW; external kernel32 name 'UpdateResourceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_UpdateResource: Pointer;
function UpdateResource;
begin
GetProcedureAddress(_UpdateResource, kernel32, 'UpdateResourceW');
asm
mov esp, ebp
pop ebp
jmp [_UpdateResource]
end;
end;
{$ELSE}
function UpdateResource; external kernel32 name 'UpdateResourceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_UpdateResource: Pointer;
function UpdateResource;
begin
GetProcedureAddress(_UpdateResource, kernel32, 'UpdateResourceA');
asm
mov esp, ebp
pop ebp
jmp [_UpdateResource]
end;
end;
{$ELSE}
function UpdateResource; external kernel32 name 'UpdateResourceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_EndUpdateResourceA: Pointer;
function EndUpdateResourceA;
begin
GetProcedureAddress(_EndUpdateResourceA, kernel32, 'EndUpdateResourceA');
asm
mov esp, ebp
pop ebp
jmp [_EndUpdateResourceA]
end;
end;
{$ELSE}
function EndUpdateResourceA; external kernel32 name 'EndUpdateResourceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_EndUpdateResourceW: Pointer;
function EndUpdateResourceW;
begin
GetProcedureAddress(_EndUpdateResourceW, kernel32, 'EndUpdateResourceW');
asm
mov esp, ebp
pop ebp
jmp [_EndUpdateResourceW]
end;
end;
{$ELSE}
function EndUpdateResourceW; external kernel32 name 'EndUpdateResourceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_EndUpdateResource: Pointer;
function EndUpdateResource;
begin
GetProcedureAddress(_EndUpdateResource, kernel32, 'EndUpdateResourceW');
asm
mov esp, ebp
pop ebp
jmp [_EndUpdateResource]
end;
end;
{$ELSE}
function EndUpdateResource; external kernel32 name 'EndUpdateResourceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_EndUpdateResource: Pointer;
function EndUpdateResource;
begin
GetProcedureAddress(_EndUpdateResource, kernel32, 'EndUpdateResourceA');
asm
mov esp, ebp
pop ebp
jmp [_EndUpdateResource]
end;
end;
{$ELSE}
function EndUpdateResource; external kernel32 name 'EndUpdateResourceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GlobalAddAtomA: Pointer;
function GlobalAddAtomA;
begin
GetProcedureAddress(_GlobalAddAtomA, kernel32, 'GlobalAddAtomA');
asm
mov esp, ebp
pop ebp
jmp [_GlobalAddAtomA]
end;
end;
{$ELSE}
function GlobalAddAtomA; external kernel32 name 'GlobalAddAtomA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GlobalAddAtomW: Pointer;
function GlobalAddAtomW;
begin
GetProcedureAddress(_GlobalAddAtomW, kernel32, 'GlobalAddAtomW');
asm
mov esp, ebp
pop ebp
jmp [_GlobalAddAtomW]
end;
end;
{$ELSE}
function GlobalAddAtomW; external kernel32 name 'GlobalAddAtomW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GlobalAddAtom: Pointer;
function GlobalAddAtom;
begin
GetProcedureAddress(_GlobalAddAtom, kernel32, 'GlobalAddAtomW');
asm
mov esp, ebp
pop ebp
jmp [_GlobalAddAtom]
end;
end;
{$ELSE}
function GlobalAddAtom; external kernel32 name 'GlobalAddAtomW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GlobalAddAtom: Pointer;
function GlobalAddAtom;
begin
GetProcedureAddress(_GlobalAddAtom, kernel32, 'GlobalAddAtomA');
asm
mov esp, ebp
pop ebp
jmp [_GlobalAddAtom]
end;
end;
{$ELSE}
function GlobalAddAtom; external kernel32 name 'GlobalAddAtomA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GlobalFindAtomA: Pointer;
function GlobalFindAtomA;
begin
GetProcedureAddress(_GlobalFindAtomA, kernel32, 'GlobalFindAtomA');
asm
mov esp, ebp
pop ebp
jmp [_GlobalFindAtomA]
end;
end;
{$ELSE}
function GlobalFindAtomA; external kernel32 name 'GlobalFindAtomA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GlobalFindAtomW: Pointer;
function GlobalFindAtomW;
begin
GetProcedureAddress(_GlobalFindAtomW, kernel32, 'GlobalFindAtomW');
asm
mov esp, ebp
pop ebp
jmp [_GlobalFindAtomW]
end;
end;
{$ELSE}
function GlobalFindAtomW; external kernel32 name 'GlobalFindAtomW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GlobalFindAtom: Pointer;
function GlobalFindAtom;
begin
GetProcedureAddress(_GlobalFindAtom, kernel32, 'GlobalFindAtomW');
asm
mov esp, ebp
pop ebp
jmp [_GlobalFindAtom]
end;
end;
{$ELSE}
function GlobalFindAtom; external kernel32 name 'GlobalFindAtomW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GlobalFindAtom: Pointer;
function GlobalFindAtom;
begin
GetProcedureAddress(_GlobalFindAtom, kernel32, 'GlobalFindAtomA');
asm
mov esp, ebp
pop ebp
jmp [_GlobalFindAtom]
end;
end;
{$ELSE}
function GlobalFindAtom; external kernel32 name 'GlobalFindAtomA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GlobalGetAtomNameA: Pointer;
function GlobalGetAtomNameA;
begin
GetProcedureAddress(_GlobalGetAtomNameA, kernel32, 'GlobalGetAtomNameA');
asm
mov esp, ebp
pop ebp
jmp [_GlobalGetAtomNameA]
end;
end;
{$ELSE}
function GlobalGetAtomNameA; external kernel32 name 'GlobalGetAtomNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GlobalGetAtomNameW: Pointer;
function GlobalGetAtomNameW;
begin
GetProcedureAddress(_GlobalGetAtomNameW, kernel32, 'GlobalGetAtomNameW');
asm
mov esp, ebp
pop ebp
jmp [_GlobalGetAtomNameW]
end;
end;
{$ELSE}
function GlobalGetAtomNameW; external kernel32 name 'GlobalGetAtomNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GlobalGetAtomName: Pointer;
function GlobalGetAtomName;
begin
GetProcedureAddress(_GlobalGetAtomName, kernel32, 'GlobalGetAtomNameW');
asm
mov esp, ebp
pop ebp
jmp [_GlobalGetAtomName]
end;
end;
{$ELSE}
function GlobalGetAtomName; external kernel32 name 'GlobalGetAtomNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GlobalGetAtomName: Pointer;
function GlobalGetAtomName;
begin
GetProcedureAddress(_GlobalGetAtomName, kernel32, 'GlobalGetAtomNameA');
asm
mov esp, ebp
pop ebp
jmp [_GlobalGetAtomName]
end;
end;
{$ELSE}
function GlobalGetAtomName; external kernel32 name 'GlobalGetAtomNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_AddAtomA: Pointer;
function AddAtomA;
begin
GetProcedureAddress(_AddAtomA, kernel32, 'AddAtomA');
asm
mov esp, ebp
pop ebp
jmp [_AddAtomA]
end;
end;
{$ELSE}
function AddAtomA; external kernel32 name 'AddAtomA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_AddAtomW: Pointer;
function AddAtomW;
begin
GetProcedureAddress(_AddAtomW, kernel32, 'AddAtomW');
asm
mov esp, ebp
pop ebp
jmp [_AddAtomW]
end;
end;
{$ELSE}
function AddAtomW; external kernel32 name 'AddAtomW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_AddAtom: Pointer;
function AddAtom;
begin
GetProcedureAddress(_AddAtom, kernel32, 'AddAtomW');
asm
mov esp, ebp
pop ebp
jmp [_AddAtom]
end;
end;
{$ELSE}
function AddAtom; external kernel32 name 'AddAtomW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_AddAtom: Pointer;
function AddAtom;
begin
GetProcedureAddress(_AddAtom, kernel32, 'AddAtomA');
asm
mov esp, ebp
pop ebp
jmp [_AddAtom]
end;
end;
{$ELSE}
function AddAtom; external kernel32 name 'AddAtomA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_FindAtomA: Pointer;
function FindAtomA;
begin
GetProcedureAddress(_FindAtomA, kernel32, 'FindAtomA');
asm
mov esp, ebp
pop ebp
jmp [_FindAtomA]
end;
end;
{$ELSE}
function FindAtomA; external kernel32 name 'FindAtomA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_FindAtomW: Pointer;
function FindAtomW;
begin
GetProcedureAddress(_FindAtomW, kernel32, 'FindAtomW');
asm
mov esp, ebp
pop ebp
jmp [_FindAtomW]
end;
end;
{$ELSE}
function FindAtomW; external kernel32 name 'FindAtomW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_FindAtom: Pointer;
function FindAtom;
begin
GetProcedureAddress(_FindAtom, kernel32, 'FindAtomW');
asm
mov esp, ebp
pop ebp
jmp [_FindAtom]
end;
end;
{$ELSE}
function FindAtom; external kernel32 name 'FindAtomW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_FindAtom: Pointer;
function FindAtom;
begin
GetProcedureAddress(_FindAtom, kernel32, 'FindAtomA');
asm
mov esp, ebp
pop ebp
jmp [_FindAtom]
end;
end;
{$ELSE}
function FindAtom; external kernel32 name 'FindAtomA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetAtomNameA: Pointer;
function GetAtomNameA;
begin
GetProcedureAddress(_GetAtomNameA, kernel32, 'GetAtomNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetAtomNameA]
end;
end;
{$ELSE}
function GetAtomNameA; external kernel32 name 'GetAtomNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetAtomNameW: Pointer;
function GetAtomNameW;
begin
GetProcedureAddress(_GetAtomNameW, kernel32, 'GetAtomNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetAtomNameW]
end;
end;
{$ELSE}
function GetAtomNameW; external kernel32 name 'GetAtomNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetAtomName: Pointer;
function GetAtomName;
begin
GetProcedureAddress(_GetAtomName, kernel32, 'GetAtomNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetAtomName]
end;
end;
{$ELSE}
function GetAtomName; external kernel32 name 'GetAtomNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetAtomName: Pointer;
function GetAtomName;
begin
GetProcedureAddress(_GetAtomName, kernel32, 'GetAtomNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetAtomName]
end;
end;
{$ELSE}
function GetAtomName; external kernel32 name 'GetAtomNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileIntA: Pointer;
function GetProfileIntA;
begin
GetProcedureAddress(_GetProfileIntA, kernel32, 'GetProfileIntA');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileIntA]
end;
end;
{$ELSE}
function GetProfileIntA; external kernel32 name 'GetProfileIntA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileIntW: Pointer;
function GetProfileIntW;
begin
GetProcedureAddress(_GetProfileIntW, kernel32, 'GetProfileIntW');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileIntW]
end;
end;
{$ELSE}
function GetProfileIntW; external kernel32 name 'GetProfileIntW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileInt: Pointer;
function GetProfileInt;
begin
GetProcedureAddress(_GetProfileInt, kernel32, 'GetProfileIntW');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileInt]
end;
end;
{$ELSE}
function GetProfileInt; external kernel32 name 'GetProfileIntW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileInt: Pointer;
function GetProfileInt;
begin
GetProcedureAddress(_GetProfileInt, kernel32, 'GetProfileIntA');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileInt]
end;
end;
{$ELSE}
function GetProfileInt; external kernel32 name 'GetProfileIntA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileStringA: Pointer;
function GetProfileStringA;
begin
GetProcedureAddress(_GetProfileStringA, kernel32, 'GetProfileStringA');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileStringA]
end;
end;
{$ELSE}
function GetProfileStringA; external kernel32 name 'GetProfileStringA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileStringW: Pointer;
function GetProfileStringW;
begin
GetProcedureAddress(_GetProfileStringW, kernel32, 'GetProfileStringW');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileStringW]
end;
end;
{$ELSE}
function GetProfileStringW; external kernel32 name 'GetProfileStringW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileString: Pointer;
function GetProfileString;
begin
GetProcedureAddress(_GetProfileString, kernel32, 'GetProfileStringW');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileString]
end;
end;
{$ELSE}
function GetProfileString; external kernel32 name 'GetProfileStringW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileString: Pointer;
function GetProfileString;
begin
GetProcedureAddress(_GetProfileString, kernel32, 'GetProfileStringA');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileString]
end;
end;
{$ELSE}
function GetProfileString; external kernel32 name 'GetProfileStringA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_WriteProfileStringA: Pointer;
function WriteProfileStringA;
begin
GetProcedureAddress(_WriteProfileStringA, kernel32, 'WriteProfileStringA');
asm
mov esp, ebp
pop ebp
jmp [_WriteProfileStringA]
end;
end;
{$ELSE}
function WriteProfileStringA; external kernel32 name 'WriteProfileStringA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WriteProfileStringW: Pointer;
function WriteProfileStringW;
begin
GetProcedureAddress(_WriteProfileStringW, kernel32, 'WriteProfileStringW');
asm
mov esp, ebp
pop ebp
jmp [_WriteProfileStringW]
end;
end;
{$ELSE}
function WriteProfileStringW; external kernel32 name 'WriteProfileStringW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_WriteProfileString: Pointer;
function WriteProfileString;
begin
GetProcedureAddress(_WriteProfileString, kernel32, 'WriteProfileStringW');
asm
mov esp, ebp
pop ebp
jmp [_WriteProfileString]
end;
end;
{$ELSE}
function WriteProfileString; external kernel32 name 'WriteProfileStringW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_WriteProfileString: Pointer;
function WriteProfileString;
begin
GetProcedureAddress(_WriteProfileString, kernel32, 'WriteProfileStringA');
asm
mov esp, ebp
pop ebp
jmp [_WriteProfileString]
end;
end;
{$ELSE}
function WriteProfileString; external kernel32 name 'WriteProfileStringA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileSectionA: Pointer;
function GetProfileSectionA;
begin
GetProcedureAddress(_GetProfileSectionA, kernel32, 'GetProfileSectionA');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileSectionA]
end;
end;
{$ELSE}
function GetProfileSectionA; external kernel32 name 'GetProfileSectionA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileSectionW: Pointer;
function GetProfileSectionW;
begin
GetProcedureAddress(_GetProfileSectionW, kernel32, 'GetProfileSectionW');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileSectionW]
end;
end;
{$ELSE}
function GetProfileSectionW; external kernel32 name 'GetProfileSectionW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileSection: Pointer;
function GetProfileSection;
begin
GetProcedureAddress(_GetProfileSection, kernel32, 'GetProfileSectionW');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileSection]
end;
end;
{$ELSE}
function GetProfileSection; external kernel32 name 'GetProfileSectionW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetProfileSection: Pointer;
function GetProfileSection;
begin
GetProcedureAddress(_GetProfileSection, kernel32, 'GetProfileSectionA');
asm
mov esp, ebp
pop ebp
jmp [_GetProfileSection]
end;
end;
{$ELSE}
function GetProfileSection; external kernel32 name 'GetProfileSectionA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_WriteProfileSectionA: Pointer;
function WriteProfileSectionA;
begin
GetProcedureAddress(_WriteProfileSectionA, kernel32, 'WriteProfileSectionA');
asm
mov esp, ebp
pop ebp
jmp [_WriteProfileSectionA]
end;
end;
{$ELSE}
function WriteProfileSectionA; external kernel32 name 'WriteProfileSectionA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WriteProfileSectionW: Pointer;
function WriteProfileSectionW;
begin
GetProcedureAddress(_WriteProfileSectionW, kernel32, 'WriteProfileSectionW');
asm
mov esp, ebp
pop ebp
jmp [_WriteProfileSectionW]
end;
end;
{$ELSE}
function WriteProfileSectionW; external kernel32 name 'WriteProfileSectionW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_WriteProfileSection: Pointer;
function WriteProfileSection;
begin
GetProcedureAddress(_WriteProfileSection, kernel32, 'WriteProfileSectionW');
asm
mov esp, ebp
pop ebp
jmp [_WriteProfileSection]
end;
end;
{$ELSE}
function WriteProfileSection; external kernel32 name 'WriteProfileSectionW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_WriteProfileSection: Pointer;
function WriteProfileSection;
begin
GetProcedureAddress(_WriteProfileSection, kernel32, 'WriteProfileSectionA');
asm
mov esp, ebp
pop ebp
jmp [_WriteProfileSection]
end;
end;
{$ELSE}
function WriteProfileSection; external kernel32 name 'WriteProfileSectionA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileIntA: Pointer;
function GetPrivateProfileIntA;
begin
GetProcedureAddress(_GetPrivateProfileIntA, kernel32, 'GetPrivateProfileIntA');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileIntA]
end;
end;
{$ELSE}
function GetPrivateProfileIntA; external kernel32 name 'GetPrivateProfileIntA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileIntW: Pointer;
function GetPrivateProfileIntW;
begin
GetProcedureAddress(_GetPrivateProfileIntW, kernel32, 'GetPrivateProfileIntW');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileIntW]
end;
end;
{$ELSE}
function GetPrivateProfileIntW; external kernel32 name 'GetPrivateProfileIntW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileInt: Pointer;
function GetPrivateProfileInt;
begin
GetProcedureAddress(_GetPrivateProfileInt, kernel32, 'GetPrivateProfileIntW');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileInt]
end;
end;
{$ELSE}
function GetPrivateProfileInt; external kernel32 name 'GetPrivateProfileIntW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileInt: Pointer;
function GetPrivateProfileInt;
begin
GetProcedureAddress(_GetPrivateProfileInt, kernel32, 'GetPrivateProfileIntA');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileInt]
end;
end;
{$ELSE}
function GetPrivateProfileInt; external kernel32 name 'GetPrivateProfileIntA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileStringA: Pointer;
function GetPrivateProfileStringA;
begin
GetProcedureAddress(_GetPrivateProfileStringA, kernel32, 'GetPrivateProfileStringA');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileStringA]
end;
end;
{$ELSE}
function GetPrivateProfileStringA; external kernel32 name 'GetPrivateProfileStringA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileStringW: Pointer;
function GetPrivateProfileStringW;
begin
GetProcedureAddress(_GetPrivateProfileStringW, kernel32, 'GetPrivateProfileStringW');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileStringW]
end;
end;
{$ELSE}
function GetPrivateProfileStringW; external kernel32 name 'GetPrivateProfileStringW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileString: Pointer;
function GetPrivateProfileString;
begin
GetProcedureAddress(_GetPrivateProfileString, kernel32, 'GetPrivateProfileStringW');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileString]
end;
end;
{$ELSE}
function GetPrivateProfileString; external kernel32 name 'GetPrivateProfileStringW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileString: Pointer;
function GetPrivateProfileString;
begin
GetProcedureAddress(_GetPrivateProfileString, kernel32, 'GetPrivateProfileStringA');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileString]
end;
end;
{$ELSE}
function GetPrivateProfileString; external kernel32 name 'GetPrivateProfileStringA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileStringA: Pointer;
function WritePrivateProfileStringA;
begin
GetProcedureAddress(_WritePrivateProfileStringA, kernel32, 'WritePrivateProfileStringA');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileStringA]
end;
end;
{$ELSE}
function WritePrivateProfileStringA; external kernel32 name 'WritePrivateProfileStringA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileStringW: Pointer;
function WritePrivateProfileStringW;
begin
GetProcedureAddress(_WritePrivateProfileStringW, kernel32, 'WritePrivateProfileStringW');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileStringW]
end;
end;
{$ELSE}
function WritePrivateProfileStringW; external kernel32 name 'WritePrivateProfileStringW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileString: Pointer;
function WritePrivateProfileString;
begin
GetProcedureAddress(_WritePrivateProfileString, kernel32, 'WritePrivateProfileStringW');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileString]
end;
end;
{$ELSE}
function WritePrivateProfileString; external kernel32 name 'WritePrivateProfileStringW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileString: Pointer;
function WritePrivateProfileString;
begin
GetProcedureAddress(_WritePrivateProfileString, kernel32, 'WritePrivateProfileStringA');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileString]
end;
end;
{$ELSE}
function WritePrivateProfileString; external kernel32 name 'WritePrivateProfileStringA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileSectionA: Pointer;
function GetPrivateProfileSectionA;
begin
GetProcedureAddress(_GetPrivateProfileSectionA, kernel32, 'GetPrivateProfileSectionA');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileSectionA]
end;
end;
{$ELSE}
function GetPrivateProfileSectionA; external kernel32 name 'GetPrivateProfileSectionA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileSectionW: Pointer;
function GetPrivateProfileSectionW;
begin
GetProcedureAddress(_GetPrivateProfileSectionW, kernel32, 'GetPrivateProfileSectionW');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileSectionW]
end;
end;
{$ELSE}
function GetPrivateProfileSectionW; external kernel32 name 'GetPrivateProfileSectionW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileSection: Pointer;
function GetPrivateProfileSection;
begin
GetProcedureAddress(_GetPrivateProfileSection, kernel32, 'GetPrivateProfileSectionW');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileSection]
end;
end;
{$ELSE}
function GetPrivateProfileSection; external kernel32 name 'GetPrivateProfileSectionW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileSection: Pointer;
function GetPrivateProfileSection;
begin
GetProcedureAddress(_GetPrivateProfileSection, kernel32, 'GetPrivateProfileSectionA');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileSection]
end;
end;
{$ELSE}
function GetPrivateProfileSection; external kernel32 name 'GetPrivateProfileSectionA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileSectionA: Pointer;
function WritePrivateProfileSectionA;
begin
GetProcedureAddress(_WritePrivateProfileSectionA, kernel32, 'WritePrivateProfileSectionA');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileSectionA]
end;
end;
{$ELSE}
function WritePrivateProfileSectionA; external kernel32 name 'WritePrivateProfileSectionA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileSectionW: Pointer;
function WritePrivateProfileSectionW;
begin
GetProcedureAddress(_WritePrivateProfileSectionW, kernel32, 'WritePrivateProfileSectionW');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileSectionW]
end;
end;
{$ELSE}
function WritePrivateProfileSectionW; external kernel32 name 'WritePrivateProfileSectionW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileSection: Pointer;
function WritePrivateProfileSection;
begin
GetProcedureAddress(_WritePrivateProfileSection, kernel32, 'WritePrivateProfileSectionW');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileSection]
end;
end;
{$ELSE}
function WritePrivateProfileSection; external kernel32 name 'WritePrivateProfileSectionW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileSection: Pointer;
function WritePrivateProfileSection;
begin
GetProcedureAddress(_WritePrivateProfileSection, kernel32, 'WritePrivateProfileSectionA');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileSection]
end;
end;
{$ELSE}
function WritePrivateProfileSection; external kernel32 name 'WritePrivateProfileSectionA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileSectionNamesA: Pointer;
function GetPrivateProfileSectionNamesA;
begin
GetProcedureAddress(_GetPrivateProfileSectionNamesA, kernel32, 'GetPrivateProfileSectionNamesA');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileSectionNamesA]
end;
end;
{$ELSE}
function GetPrivateProfileSectionNamesA; external kernel32 name 'GetPrivateProfileSectionNamesA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileSectionNamesW: Pointer;
function GetPrivateProfileSectionNamesW;
begin
GetProcedureAddress(_GetPrivateProfileSectionNamesW, kernel32, 'GetPrivateProfileSectionNamesW');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileSectionNamesW]
end;
end;
{$ELSE}
function GetPrivateProfileSectionNamesW; external kernel32 name 'GetPrivateProfileSectionNamesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileSectionNames: Pointer;
function GetPrivateProfileSectionNames;
begin
GetProcedureAddress(_GetPrivateProfileSectionNames, kernel32, 'GetPrivateProfileSectionNamesW');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileSectionNames]
end;
end;
{$ELSE}
function GetPrivateProfileSectionNames; external kernel32 name 'GetPrivateProfileSectionNamesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileSectionNames: Pointer;
function GetPrivateProfileSectionNames;
begin
GetProcedureAddress(_GetPrivateProfileSectionNames, kernel32, 'GetPrivateProfileSectionNamesA');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileSectionNames]
end;
end;
{$ELSE}
function GetPrivateProfileSectionNames; external kernel32 name 'GetPrivateProfileSectionNamesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileStructA: Pointer;
function GetPrivateProfileStructA;
begin
GetProcedureAddress(_GetPrivateProfileStructA, kernel32, 'GetPrivateProfileStructA');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileStructA]
end;
end;
{$ELSE}
function GetPrivateProfileStructA; external kernel32 name 'GetPrivateProfileStructA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileStructW: Pointer;
function GetPrivateProfileStructW;
begin
GetProcedureAddress(_GetPrivateProfileStructW, kernel32, 'GetPrivateProfileStructW');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileStructW]
end;
end;
{$ELSE}
function GetPrivateProfileStructW; external kernel32 name 'GetPrivateProfileStructW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileStruct: Pointer;
function GetPrivateProfileStruct;
begin
GetProcedureAddress(_GetPrivateProfileStruct, kernel32, 'GetPrivateProfileStructW');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileStruct]
end;
end;
{$ELSE}
function GetPrivateProfileStruct; external kernel32 name 'GetPrivateProfileStructW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetPrivateProfileStruct: Pointer;
function GetPrivateProfileStruct;
begin
GetProcedureAddress(_GetPrivateProfileStruct, kernel32, 'GetPrivateProfileStructA');
asm
mov esp, ebp
pop ebp
jmp [_GetPrivateProfileStruct]
end;
end;
{$ELSE}
function GetPrivateProfileStruct; external kernel32 name 'GetPrivateProfileStructA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileStructA: Pointer;
function WritePrivateProfileStructA;
begin
GetProcedureAddress(_WritePrivateProfileStructA, kernel32, 'WritePrivateProfileStructA');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileStructA]
end;
end;
{$ELSE}
function WritePrivateProfileStructA; external kernel32 name 'WritePrivateProfileStructA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileStructW: Pointer;
function WritePrivateProfileStructW;
begin
GetProcedureAddress(_WritePrivateProfileStructW, kernel32, 'WritePrivateProfileStructW');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileStructW]
end;
end;
{$ELSE}
function WritePrivateProfileStructW; external kernel32 name 'WritePrivateProfileStructW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileStruct: Pointer;
function WritePrivateProfileStruct;
begin
GetProcedureAddress(_WritePrivateProfileStruct, kernel32, 'WritePrivateProfileStructW');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileStruct]
end;
end;
{$ELSE}
function WritePrivateProfileStruct; external kernel32 name 'WritePrivateProfileStructW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_WritePrivateProfileStruct: Pointer;
function WritePrivateProfileStruct;
begin
GetProcedureAddress(_WritePrivateProfileStruct, kernel32, 'WritePrivateProfileStructA');
asm
mov esp, ebp
pop ebp
jmp [_WritePrivateProfileStruct]
end;
end;
{$ELSE}
function WritePrivateProfileStruct; external kernel32 name 'WritePrivateProfileStructA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetDriveTypeA: Pointer;
function GetDriveTypeA;
begin
GetProcedureAddress(_GetDriveTypeA, kernel32, 'GetDriveTypeA');
asm
mov esp, ebp
pop ebp
jmp [_GetDriveTypeA]
end;
end;
{$ELSE}
function GetDriveTypeA; external kernel32 name 'GetDriveTypeA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDriveTypeW: Pointer;
function GetDriveTypeW;
begin
GetProcedureAddress(_GetDriveTypeW, kernel32, 'GetDriveTypeW');
asm
mov esp, ebp
pop ebp
jmp [_GetDriveTypeW]
end;
end;
{$ELSE}
function GetDriveTypeW; external kernel32 name 'GetDriveTypeW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetDriveType: Pointer;
function GetDriveType;
begin
GetProcedureAddress(_GetDriveType, kernel32, 'GetDriveTypeW');
asm
mov esp, ebp
pop ebp
jmp [_GetDriveType]
end;
end;
{$ELSE}
function GetDriveType; external kernel32 name 'GetDriveTypeW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetDriveType: Pointer;
function GetDriveType;
begin
GetProcedureAddress(_GetDriveType, kernel32, 'GetDriveTypeA');
asm
mov esp, ebp
pop ebp
jmp [_GetDriveType]
end;
end;
{$ELSE}
function GetDriveType; external kernel32 name 'GetDriveTypeA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemDirectoryA: Pointer;
function GetSystemDirectoryA;
begin
GetProcedureAddress(_GetSystemDirectoryA, kernel32, 'GetSystemDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemDirectoryA]
end;
end;
{$ELSE}
function GetSystemDirectoryA; external kernel32 name 'GetSystemDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemDirectoryW: Pointer;
function GetSystemDirectoryW;
begin
GetProcedureAddress(_GetSystemDirectoryW, kernel32, 'GetSystemDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemDirectoryW]
end;
end;
{$ELSE}
function GetSystemDirectoryW; external kernel32 name 'GetSystemDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemDirectory: Pointer;
function GetSystemDirectory;
begin
GetProcedureAddress(_GetSystemDirectory, kernel32, 'GetSystemDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemDirectory]
end;
end;
{$ELSE}
function GetSystemDirectory; external kernel32 name 'GetSystemDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemDirectory: Pointer;
function GetSystemDirectory;
begin
GetProcedureAddress(_GetSystemDirectory, kernel32, 'GetSystemDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemDirectory]
end;
end;
{$ELSE}
function GetSystemDirectory; external kernel32 name 'GetSystemDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetTempPathA: Pointer;
function GetTempPathA;
begin
GetProcedureAddress(_GetTempPathA, kernel32, 'GetTempPathA');
asm
mov esp, ebp
pop ebp
jmp [_GetTempPathA]
end;
end;
{$ELSE}
function GetTempPathA; external kernel32 name 'GetTempPathA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTempPathW: Pointer;
function GetTempPathW;
begin
GetProcedureAddress(_GetTempPathW, kernel32, 'GetTempPathW');
asm
mov esp, ebp
pop ebp
jmp [_GetTempPathW]
end;
end;
{$ELSE}
function GetTempPathW; external kernel32 name 'GetTempPathW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetTempPath: Pointer;
function GetTempPath;
begin
GetProcedureAddress(_GetTempPath, kernel32, 'GetTempPathW');
asm
mov esp, ebp
pop ebp
jmp [_GetTempPath]
end;
end;
{$ELSE}
function GetTempPath; external kernel32 name 'GetTempPathW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetTempPath: Pointer;
function GetTempPath;
begin
GetProcedureAddress(_GetTempPath, kernel32, 'GetTempPathA');
asm
mov esp, ebp
pop ebp
jmp [_GetTempPath]
end;
end;
{$ELSE}
function GetTempPath; external kernel32 name 'GetTempPathA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetTempFileNameA: Pointer;
function GetTempFileNameA;
begin
GetProcedureAddress(_GetTempFileNameA, kernel32, 'GetTempFileNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetTempFileNameA]
end;
end;
{$ELSE}
function GetTempFileNameA; external kernel32 name 'GetTempFileNameA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetTempFileNameW: Pointer;
function GetTempFileNameW;
begin
GetProcedureAddress(_GetTempFileNameW, kernel32, 'GetTempFileNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetTempFileNameW]
end;
end;
{$ELSE}
function GetTempFileNameW; external kernel32 name 'GetTempFileNameW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetTempFileName: Pointer;
function GetTempFileName;
begin
GetProcedureAddress(_GetTempFileName, kernel32, 'GetTempFileNameW');
asm
mov esp, ebp
pop ebp
jmp [_GetTempFileName]
end;
end;
{$ELSE}
function GetTempFileName; external kernel32 name 'GetTempFileNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetTempFileName: Pointer;
function GetTempFileName;
begin
GetProcedureAddress(_GetTempFileName, kernel32, 'GetTempFileNameA');
asm
mov esp, ebp
pop ebp
jmp [_GetTempFileName]
end;
end;
{$ELSE}
function GetTempFileName; external kernel32 name 'GetTempFileNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowsDirectoryA: Pointer;
function GetWindowsDirectoryA;
begin
GetProcedureAddress(_GetWindowsDirectoryA, kernel32, 'GetWindowsDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowsDirectoryA]
end;
end;
{$ELSE}
function GetWindowsDirectoryA; external kernel32 name 'GetWindowsDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowsDirectoryW: Pointer;
function GetWindowsDirectoryW;
begin
GetProcedureAddress(_GetWindowsDirectoryW, kernel32, 'GetWindowsDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowsDirectoryW]
end;
end;
{$ELSE}
function GetWindowsDirectoryW; external kernel32 name 'GetWindowsDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowsDirectory: Pointer;
function GetWindowsDirectory;
begin
GetProcedureAddress(_GetWindowsDirectory, kernel32, 'GetWindowsDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowsDirectory]
end;
end;
{$ELSE}
function GetWindowsDirectory; external kernel32 name 'GetWindowsDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetWindowsDirectory: Pointer;
function GetWindowsDirectory;
begin
GetProcedureAddress(_GetWindowsDirectory, kernel32, 'GetWindowsDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetWindowsDirectory]
end;
end;
{$ELSE}
function GetWindowsDirectory; external kernel32 name 'GetWindowsDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemWindowsDirectoryA: Pointer;
function GetSystemWindowsDirectoryA;
begin
GetProcedureAddress(_GetSystemWindowsDirectoryA, kernel32, 'GetSystemWindowsDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemWindowsDirectoryA]
end;
end;
{$ELSE}
function GetSystemWindowsDirectoryA; external kernel32 name 'GetSystemWindowsDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemWindowsDirectoryW: Pointer;
function GetSystemWindowsDirectoryW;
begin
GetProcedureAddress(_GetSystemWindowsDirectoryW, kernel32, 'GetSystemWindowsDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemWindowsDirectoryW]
end;
end;
{$ELSE}
function GetSystemWindowsDirectoryW; external kernel32 name 'GetSystemWindowsDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemWindowsDirectory: Pointer;
function GetSystemWindowsDirectory;
begin
GetProcedureAddress(_GetSystemWindowsDirectory, kernel32, 'GetSystemWindowsDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemWindowsDirectory]
end;
end;
{$ELSE}
function GetSystemWindowsDirectory; external kernel32 name 'GetSystemWindowsDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemWindowsDirectory: Pointer;
function GetSystemWindowsDirectory;
begin
GetProcedureAddress(_GetSystemWindowsDirectory, kernel32, 'GetSystemWindowsDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemWindowsDirectory]
end;
end;
{$ELSE}
function GetSystemWindowsDirectory; external kernel32 name 'GetSystemWindowsDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemWow64DirectoryA: Pointer;
function GetSystemWow64DirectoryA;
begin
GetProcedureAddress(_GetSystemWow64DirectoryA, kernel32, 'GetSystemWow64DirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemWow64DirectoryA]
end;
end;
{$ELSE}
function GetSystemWow64DirectoryA; external kernel32 name 'GetSystemWow64DirectoryA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemWow64DirectoryW: Pointer;
function GetSystemWow64DirectoryW;
begin
GetProcedureAddress(_GetSystemWow64DirectoryW, kernel32, 'GetSystemWow64DirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemWow64DirectoryW]
end;
end;
{$ELSE}
function GetSystemWow64DirectoryW; external kernel32 name 'GetSystemWow64DirectoryW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemWow64Directory: Pointer;
function GetSystemWow64Directory;
begin
GetProcedureAddress(_GetSystemWow64Directory, kernel32, 'GetSystemWow64DirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemWow64Directory]
end;
end;
{$ELSE}
function GetSystemWow64Directory; external kernel32 name 'GetSystemWow64DirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetSystemWow64Directory: Pointer;
function GetSystemWow64Directory;
begin
GetProcedureAddress(_GetSystemWow64Directory, kernel32, 'GetSystemWow64DirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetSystemWow64Directory]
end;
end;
{$ELSE}
function GetSystemWow64Directory; external kernel32 name 'GetSystemWow64DirectoryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetCurrentDirectoryA: Pointer;
function SetCurrentDirectoryA;
begin
GetProcedureAddress(_SetCurrentDirectoryA, kernel32, 'SetCurrentDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_SetCurrentDirectoryA]
end;
end;
{$ELSE}
function SetCurrentDirectoryA; external kernel32 name 'SetCurrentDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetCurrentDirectoryW: Pointer;
function SetCurrentDirectoryW;
begin
GetProcedureAddress(_SetCurrentDirectoryW, kernel32, 'SetCurrentDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_SetCurrentDirectoryW]
end;
end;
{$ELSE}
function SetCurrentDirectoryW; external kernel32 name 'SetCurrentDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetCurrentDirectory: Pointer;
function SetCurrentDirectory;
begin
GetProcedureAddress(_SetCurrentDirectory, kernel32, 'SetCurrentDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_SetCurrentDirectory]
end;
end;
{$ELSE}
function SetCurrentDirectory; external kernel32 name 'SetCurrentDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetCurrentDirectory: Pointer;
function SetCurrentDirectory;
begin
GetProcedureAddress(_SetCurrentDirectory, kernel32, 'SetCurrentDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_SetCurrentDirectory]
end;
end;
{$ELSE}
function SetCurrentDirectory; external kernel32 name 'SetCurrentDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentDirectoryA: Pointer;
function GetCurrentDirectoryA;
begin
GetProcedureAddress(_GetCurrentDirectoryA, kernel32, 'GetCurrentDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentDirectoryA]
end;
end;
{$ELSE}
function GetCurrentDirectoryA; external kernel32 name 'GetCurrentDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentDirectoryW: Pointer;
function GetCurrentDirectoryW;
begin
GetProcedureAddress(_GetCurrentDirectoryW, kernel32, 'GetCurrentDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentDirectoryW]
end;
end;
{$ELSE}
function GetCurrentDirectoryW; external kernel32 name 'GetCurrentDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentDirectory: Pointer;
function GetCurrentDirectory;
begin
GetProcedureAddress(_GetCurrentDirectory, kernel32, 'GetCurrentDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentDirectory]
end;
end;
{$ELSE}
function GetCurrentDirectory; external kernel32 name 'GetCurrentDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetCurrentDirectory: Pointer;
function GetCurrentDirectory;
begin
GetProcedureAddress(_GetCurrentDirectory, kernel32, 'GetCurrentDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetCurrentDirectory]
end;
end;
{$ELSE}
function GetCurrentDirectory; external kernel32 name 'GetCurrentDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_SetDllDirectoryA: Pointer;
function SetDllDirectoryA;
begin
GetProcedureAddress(_SetDllDirectoryA, kernel32, 'SetDllDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_SetDllDirectoryA]
end;
end;
{$ELSE}
function SetDllDirectoryA; external kernel32 name 'SetDllDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_SetDllDirectoryW: Pointer;
function SetDllDirectoryW;
begin
GetProcedureAddress(_SetDllDirectoryW, kernel32, 'SetDllDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_SetDllDirectoryW]
end;
end;
{$ELSE}
function SetDllDirectoryW; external kernel32 name 'SetDllDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_SetDllDirectory: Pointer;
function SetDllDirectory;
begin
GetProcedureAddress(_SetDllDirectory, kernel32, 'SetDllDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_SetDllDirectory]
end;
end;
{$ELSE}
function SetDllDirectory; external kernel32 name 'SetDllDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_SetDllDirectory: Pointer;
function SetDllDirectory;
begin
GetProcedureAddress(_SetDllDirectory, kernel32, 'SetDllDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_SetDllDirectory]
end;
end;
{$ELSE}
function SetDllDirectory; external kernel32 name 'SetDllDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}
{$IFDEF DYNAMIC_LINK}
var
_GetDllDirectoryA: Pointer;
function GetDllDirectoryA;
begin
GetProcedureAddress(_GetDllDirectoryA, kernel32, 'GetDllDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetDllDirectoryA]
end;
end;
{$ELSE}
function GetDllDirectoryA; external kernel32 name 'GetDllDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDllDirectoryW: Pointer;
function GetDllDirectoryW;
begin
GetProcedureAddress(_GetDllDirectoryW, kernel32, 'GetDllDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetDllDirectoryW]
end;
end;
{$ELSE}
function GetDllDirectoryW; external kernel32 name 'GetDllDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetDllDirectory: Pointer;
function GetDllDirectory;
begin
GetProcedureAddress(_GetDllDirectory, kernel32, 'GetDllDirectoryW');
asm
mov esp, ebp
pop ebp
jmp [_GetDllDirectory]
end;
end;
{$ELSE}
function GetDllDirectory; external kernel32 name 'GetDllDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}
{$IFDEF DYNAMIC_LINK}
var
_GetDllDirectory: Pointer;
function GetDllDirectory;
begin
GetProcedureAddress(_GetDllDirectory, kernel32, 'GetDllDirectoryA');
asm
mov esp, ebp
pop ebp
jmp [_GetDllDirectory]
end;
end;
{$ELSE}
function GetDllDirectory; external kernel32 name 'GetDllDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetDiskFreeSpaceA: Pointer;
function GetDiskFreeSpaceA;
begin
GetProcedureAddress(_GetDiskFreeSpaceA, kernel32, 'GetDiskFreeSpaceA');
asm
mov esp, ebp
pop ebp
jmp [_GetDiskFreeSpaceA]
end;
end;
{$ELSE}
function GetDiskFreeSpaceA; external kernel32 name 'GetDiskFreeSpaceA';
{$ENDIF DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
var
_GetDiskFreeSpaceW: Pointer;
function GetDiskFreeSpaceW;
begin
GetProcedureAddress(_GetDiskFreeSpaceW, kernel32, 'GetDiskFreeSpaceW');
asm
mov esp, ebp
pop ebp
jmp [_GetDiskFreeSpaceW]
end;
end;
{$ELSE}
function GetDiskFreeSpaceW; external kernel32 name 'GetDiskFreeSpaceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}
{$IFDEF DYNAMIC_LINK}
var
_GetDiskFreeSpace: Pointer;
function GetDiskFreeSpace;
begin
GetProcedureAddress(_GetDiskFreeSpace, kernel32, 'GetDiskFreeSpaceW');
asm
mov esp, ebp
pop ebp
jmp [_GetDiskFreeSpace]
end;
end;