jwawincon.pas

比较全面的win32api开发包

{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _AttachConsole: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleTitleA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleTitleW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleTitle: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleTitle: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleTitleA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleTitleW: Pointer;

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

{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleTitle: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleTitle: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _ReadConsoleW: Pointer;

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

{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _ReadConsole: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _ReadConsole: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsoleW: Pointer;

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

{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsole: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WriteConsole: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _CreateConsoleScreenBuffer: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleCP: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleCP: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleOutputCP: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _SetConsoleOutputCP: Pointer;

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


{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleDisplayMode: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleWindow: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetConsoleProcessList: Pointer;

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

end.