jwawincon.pas

比较全面的win32api开发包

    jmp [_FillConsoleOutputCharacter]
  end;
end;
{$ELSE}
function FillConsoleOutputCharacter; external kernel32 name 'FillConsoleOutputCharacterA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}


{$IFDEF DYNAMIC_LINK}
var
  _FillConsoleOutputAttribute: Pointer;

function FillConsoleOutputAttribute;
begin
  GetProcedureAddress(_FillConsoleOutputAttribute, kernel32, 'FillConsoleOutputAttribute');
  asm
    mov esp, ebp
    pop ebp
    jmp [_FillConsoleOutputAttribute]
  end;
end;
{$ELSE}
function FillConsoleOutputAttribute; external kernel32 name 'FillConsoleOutputAttribute';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleMode: Pointer;

function GetConsoleMode;
begin
  GetProcedureAddress(_GetConsoleMode, kernel32, 'GetConsoleMode');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetConsoleMode]
  end;
end;
{$ELSE}
function GetConsoleMode; external kernel32 name 'GetConsoleMode';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetNumberOfConsoleInputEvents: Pointer;

function GetNumberOfConsoleInputEvents;
begin
  GetProcedureAddress(_GetNumberOfConsoleInputEvents, kernel32, 'GetNumberOfConsoleInputEvents');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetNumberOfConsoleInputEvents]
  end;
end;
{$ELSE}
function GetNumberOfConsoleInputEvents; external kernel32 name 'GetNumberOfConsoleInputEvents';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleScreenBufferInfo: Pointer;

function GetConsoleScreenBufferInfo;
begin
  GetProcedureAddress(_GetConsoleScreenBufferInfo, kernel32, 'GetConsoleScreenBufferInfo');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetConsoleScreenBufferInfo]
  end;
end;
{$ELSE}
function GetConsoleScreenBufferInfo; external kernel32 name 'GetConsoleScreenBufferInfo';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetLargestConsoleWindowSize: Pointer;

function GetLargestConsoleWindowSize;
begin
  GetProcedureAddress(_GetLargestConsoleWindowSize, kernel32, 'GetLargestConsoleWindowSize');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetLargestConsoleWindowSize]
  end;
end;
{$ELSE}
function GetLargestConsoleWindowSize; external kernel32 name 'GetLargestConsoleWindowSize';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleCursorInfo: Pointer;

function GetConsoleCursorInfo;
begin
  GetProcedureAddress(_GetConsoleCursorInfo, kernel32, 'GetConsoleCursorInfo');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetConsoleCursorInfo]
  end;
end;
{$ELSE}
function GetConsoleCursorInfo; external kernel32 name 'GetConsoleCursorInfo';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetCurrentConsoleFont: Pointer;

function GetCurrentConsoleFont;
begin
  GetProcedureAddress(_GetCurrentConsoleFont, kernel32, 'GetCurrentConsoleFont');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetCurrentConsoleFont]
  end;
end;
{$ELSE}
function GetCurrentConsoleFont; external kernel32 name 'GetCurrentConsoleFont';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleFontSize: Pointer;

function GetConsoleFontSize;
begin
  GetProcedureAddress(_GetConsoleFontSize, kernel32, 'GetConsoleFontSize');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetConsoleFontSize]
  end;
end;
{$ELSE}
function GetConsoleFontSize; external kernel32 name 'GetConsoleFontSize';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleSelectionInfo: Pointer;

function GetConsoleSelectionInfo;
begin
  GetProcedureAddress(_GetConsoleSelectionInfo, kernel32, 'GetConsoleSelectionInfo');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetConsoleSelectionInfo]
  end;
end;
{$ELSE}
function GetConsoleSelectionInfo; external kernel32 name 'GetConsoleSelectionInfo';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetNumberOfConsoleMouseButtons: Pointer;

function GetNumberOfConsoleMouseButtons;
begin
  GetProcedureAddress(_GetNumberOfConsoleMouseButtons, kernel32, 'GetNumberOfConsoleMouseButtons');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetNumberOfConsoleMouseButtons]
  end;
end;
{$ELSE}
function GetNumberOfConsoleMouseButtons; external kernel32 name 'GetNumberOfConsoleMouseButtons';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleMode: Pointer;

function SetConsoleMode;
begin
  GetProcedureAddress(_SetConsoleMode, kernel32, 'SetConsoleMode');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetConsoleMode]
  end;
end;
{$ELSE}
function SetConsoleMode; external kernel32 name 'SetConsoleMode';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleActiveScreenBuffer: Pointer;

function SetConsoleActiveScreenBuffer;
begin
  GetProcedureAddress(_SetConsoleActiveScreenBuffer, kernel32, 'SetConsoleActiveScreenBuffer');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetConsoleActiveScreenBuffer]
  end;
end;
{$ELSE}
function SetConsoleActiveScreenBuffer; external kernel32 name 'SetConsoleActiveScreenBuffer';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _FlushConsoleInputBuffer: Pointer;

function FlushConsoleInputBuffer;
begin
  GetProcedureAddress(_FlushConsoleInputBuffer, kernel32, 'FlushConsoleInputBuffer');
  asm
    mov esp, ebp
    pop ebp
    jmp [_FlushConsoleInputBuffer]
  end;
end;
{$ELSE}
function FlushConsoleInputBuffer; external kernel32 name 'FlushConsoleInputBuffer';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleScreenBufferSize: Pointer;

function SetConsoleScreenBufferSize;
begin
  GetProcedureAddress(_SetConsoleScreenBufferSize, kernel32, 'SetConsoleScreenBufferSize');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetConsoleScreenBufferSize]
  end;
end;
{$ELSE}
function SetConsoleScreenBufferSize; external kernel32 name 'SetConsoleScreenBufferSize';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleCursorPosition: Pointer;

function SetConsoleCursorPosition;
begin
  GetProcedureAddress(_SetConsoleCursorPosition, kernel32, 'SetConsoleCursorPosition');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetConsoleCursorPosition]
  end;
end;
{$ELSE}
function SetConsoleCursorPosition; external kernel32 name 'SetConsoleCursorPosition';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleCursorInfo: Pointer;

function SetConsoleCursorInfo;
begin
  GetProcedureAddress(_SetConsoleCursorInfo, kernel32, 'SetConsoleCursorInfo');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetConsoleCursorInfo]
  end;
end;
{$ELSE}
function SetConsoleCursorInfo; external kernel32 name 'SetConsoleCursorInfo';
{$ENDIF DYNAMIC_LINK}


{$IFDEF DYNAMIC_LINK}
var
  _ScrollConsoleScreenBufferA: Pointer;

function ScrollConsoleScreenBufferA;
begin
  GetProcedureAddress(_ScrollConsoleScreenBufferA, kernel32, 'ScrollConsoleScreenBufferA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_ScrollConsoleScreenBufferA]
  end;
end;
{$ELSE}
function ScrollConsoleScreenBufferA; external kernel32 name 'ScrollConsoleScreenBufferA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _ScrollConsoleScreenBufferW: Pointer;

function ScrollConsoleScreenBufferW;
begin
  GetProcedureAddress(_ScrollConsoleScreenBufferW, kernel32, 'ScrollConsoleScreenBufferW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_ScrollConsoleScreenBufferW]
  end;
end;
{$ELSE}
function ScrollConsoleScreenBufferW; external kernel32 name 'ScrollConsoleScreenBufferW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _ScrollConsoleScreenBuffer: Pointer;

function ScrollConsoleScreenBuffer;
begin
  GetProcedureAddress(_ScrollConsoleScreenBuffer, kernel32, 'ScrollConsoleScreenBufferW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_ScrollConsoleScreenBuffer]
  end;
end;
{$ELSE}
function ScrollConsoleScreenBuffer; external kernel32 name 'ScrollConsoleScreenBufferW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _ScrollConsoleScreenBuffer: Pointer;

function ScrollConsoleScreenBuffer;
begin
  GetProcedureAddress(_ScrollConsoleScreenBuffer, kernel32, 'ScrollConsoleScreenBufferA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_ScrollConsoleScreenBuffer]
  end;
end;
{$ELSE}
function ScrollConsoleScreenBuffer; external kernel32 name 'ScrollConsoleScreenBufferA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}


{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleWindowInfo: Pointer;

function SetConsoleWindowInfo;
begin
  GetProcedureAddress(_SetConsoleWindowInfo, kernel32, 'SetConsoleWindowInfo');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetConsoleWindowInfo]
  end;
end;
{$ELSE}
function SetConsoleWindowInfo; external kernel32 name 'SetConsoleWindowInfo';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleTextAttribute: Pointer;

function SetConsoleTextAttribute;
begin
  GetProcedureAddress(_SetConsoleTextAttribute, kernel32, 'SetConsoleTextAttribute');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetConsoleTextAttribute]
  end;
end;
{$ELSE}
function SetConsoleTextAttribute; external kernel32 name 'SetConsoleTextAttribute';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleCtrlHandler: Pointer;

function SetConsoleCtrlHandler;
begin
  GetProcedureAddress(_SetConsoleCtrlHandler, kernel32, 'SetConsoleCtrlHandler');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetConsoleCtrlHandler]
  end;
end;
{$ELSE}
function SetConsoleCtrlHandler; external kernel32 name 'SetConsoleCtrlHandler';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GenerateConsoleCtrlEvent: Pointer;

function GenerateConsoleCtrlEvent;
begin
  GetProcedureAddress(_GenerateConsoleCtrlEvent, kernel32, 'GenerateConsoleCtrlEvent');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GenerateConsoleCtrlEvent]
  end;
end;
{$ELSE}
function GenerateConsoleCtrlEvent; external kernel32 name 'GenerateConsoleCtrlEvent';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _AllocConsole: Pointer;

function AllocConsole;
begin
  GetProcedureAddress(_AllocConsole, kernel32, 'AllocConsole');
  asm
    mov esp, ebp
    pop ebp
    jmp [_AllocConsole]
  end;
end;
{$ELSE}
function AllocConsole; external kernel32 name 'AllocConsole';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _FreeConsole: Pointer;

function FreeConsole;
begin
  GetProcedureAddress(_FreeConsole, kernel32, 'FreeConsole');
  asm
    mov esp, ebp
    pop ebp
    jmp [_FreeConsole]
  end;
end;
{$ELSE}
function FreeConsole; external kernel32 name 'FreeConsole';