jwawincon.pas

比较全面的win32api开发包

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleInputW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleInput: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleInput: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleOutputA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleOutputW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleOutput: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleOutput: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleOutputA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleOutputW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleOutput: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleOutput: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleOutputCharacterA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleOutputCharacterW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleOutputCharacter: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleOutputCharacter: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleOutputAttribute: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleOutputCharacterA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleOutputCharacterW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleOutputCharacter: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleOutputCharacter: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleOutputAttribute: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _FillConsoleOutputCharacterA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _FillConsoleOutputCharacterW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _FillConsoleOutputCharacter: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _FillConsoleOutputCharacter: Pointer;

function FillConsoleOutputCharacter;
begin
  GetProcedureAddress(_FillConsoleOutputCharacter, kernel32, 'FillConsoleOutputCharacterA');
  asm
    mov esp, ebp
    pop ebp