alwin.inc

著名的游戏开发库Allegro4.2.0 for DELPHI

{*         ______   ___    ___
 *        /\  _  \ /\_ \  /\_ \
 *        \ \ \L\ \\//\ \ \//\ \      __     __   _ __   ___
 *         \ \  __ \ \ \ \  \ \ \   /'__`\ /'_ `\/\`'__\/ __`\
 *          \ \ \/\ \ \_\ \_ \_\ \_/\  __//\ \L\ \ \ \//\ \L\ \
 *           \ \_\ \_\/\____\/\____\ \____\ \____ \ \_\\ \____/
 *            \/_/\/_/\/____/\/____/\/____/\/___L\ \/_/ \/___/
 *                                           /\____/
 *                                           \_/__/
 *
 *      Windows-specific header defines.
 *
 *      By Shawn Hargreaves.
 *
 *      See readme.txt for copyright information.
 *}


{$IFDEF ALLEGRO_INTERFACE}
{*******************************************/
/************* system drivers **************/
/*******************************************}
const
  SYSTEM_DIRECTX           = (ord ('D') shl 24) + (ord ('X') shl 16) + (ord (' ') shl 8) + ord (' ');

var
  the_system_directx       : P_SYSTEM_DRIVER;

{*******************************************/
/************** timer drivers **************/
/*******************************************}
const
  TIMER_WIN32_HIGH_PERF    = (ord ('W') shl 24) + (ord ('3') shl 16) + (ord ('2') shl 8) + ord ('H');
  TIMER_WIN32_LOW_PERF     = (ord ('W') shl 24) + (ord ('3') shl 16) + (ord ('2') shl 8) + ord ('L');

{*******************************************/
/************ keyboard drivers *************/
/*******************************************}
  KEYBOARD_DIRECTX         = (ord ('D') shl 24) + (ord ('X') shl 16) + (ord (' ') shl 8) + ord (' ');

{*******************************************/
/************* mouse drivers ***************/
/*******************************************}
  MOUSE_DIRECTX            = (ord ('D') shl 24) + (ord ('X') shl 16) + (ord (' ') shl 8) + ord (' ');

{*******************************************/
/*************** gfx drivers ***************/
/*******************************************}
  GFX_DIRECTX              = (ord ('D') shl 24) + (ord ('X') shl 16) + (ord ('A') shl 8) + ord ('C');
  GFX_DIRECTX_ACCEL        = (ord ('D') shl 24) + (ord ('X') shl 16) + (ord ('A') shl 8) + ord ('C');
  GFX_DIRECTX_SAFE         = (ord ('D') shl 24) + (ord ('X') shl 16) + (ord ('S') shl 8) + ord ('A');
  GFX_DIRECTX_SOFT         = (ord ('D') shl 24) + (ord ('X') shl 16) + (ord ('S') shl 8) + ord ('O');
  GFX_DIRECTX_WIN          = (ord ('D') shl 24) + (ord ('X') shl 16) + (ord ('W') shl 8) + ord ('N');
  GFX_DIRECTX_OVL          = (ord ('D') shl 24) + (ord ('X') shl 16) + (ord ('O') shl 8) + ord ('V');
  GFX_GDI                  = (ord ('G') shl 24) + (ord ('D') shl 16) + (ord ('I') shl 8) + ord ('B');

var
  the_gfx_directx_accel    : P_GFX_DRIVER;
  the_gfx_directx_safe     : P_GFX_DRIVER;
  the_gfx_directx_soft     : P_GFX_DRIVER;
  the_gfx_directx_win      : P_GFX_DRIVER;
  the_gfx_directx_ovl      : P_GFX_DRIVER;
  the_gfx_gdi              : P_GFX_DRIVER;

const
{********************************************/
/*************** sound drivers **************/
/********************************************}
  MIDI_WIN32MAPPER         = (ord ('W') shl 24) + (ord ('3') shl 16) + (ord ('2') shl 8) + ord ('M');
function DIGI_DIRECTX(n: sint32): sint32;
function DIGI_DIRECTAMX(n: sint32): sint32;
function DIGI_WAVOUTID(n: sint32): sint32;
function MIDI_WIN32(n: sint32): sint32;
function MIDI_WIN32_IN(n: sint32): sint32;

const
{*******************************************/
/************ joystick drivers *************/
/*******************************************}
  JOY_TYPE_DIRECTX         = (ord ('D') shl 24) + (ord ('X') shl 16) + (ord (' ') shl 8) + ord (' ');
  JOY_TYPE_WIN32           = (ord ('W') shl 24) + (ord ('3') shl 16) + (ord ('2') shl 8) + ord (' ');

var
  the_joystick_directx     : P_JOYSTICK_DRIVER;
  the_joystick_win32       : P_JOYSTICK_DRIVER;
{$ENDIF ALLEGRO_INTERFACE}

{$IFDEF ALLEGRO_IMPLEMENTATION}
function DIGI_DIRECTX(n: sint32): sint32;
begin
  Result := (ord ('D') shl 24) + (ord ('X') shl 16) + (ord ('A') shl 8 + n) + ord ('M');
end;
function DIGI_DIRECTAMX(n: sint32): sint32;
begin
  Result := (ord ('A') shl 24) + (ord ('X') shl 16) + (ord ('A') shl 8 + n) + ord ('M');
end;
function DIGI_WAVOUTID(n: sint32): sint32;
begin
  Result := (ord ('W') shl 24) + (ord ('O') shl 16) + (ord ('A') shl 8 + n) + ord (' ');
end;
function MIDI_WIN32(n: sint32): sint32;
begin
  Result := (ord ('W') shl 24) + (ord ('3') shl 16) + (ord ('2') shl 8) + ord ('A') + n;
end;
function MIDI_WIN32_IN(n: sint32): sint32;
begin
  Result := (ord ('W') shl 24) + (ord ('3') shl 16) + (ord ('2') shl 8) + ord ('A') + n;
end;
{$ENDIF ALLEGRO_IMPLEMENTATION}
{$IFDEF ALLEGRO_LOADVARIABLE}
  the_system_directx       := LoadDLL('system_directx');
  the_gfx_directx_accel    := LoadDLL('gfx_directx_accel');
  the_gfx_directx_safe     := LoadDLL('gfx_directx_safe');
  the_gfx_directx_soft     := LoadDLL('gfx_directx_soft');
  the_gfx_directx_win      := LoadDLL('gfx_directx_win');
  the_gfx_directx_ovl      := LoadDLL('gfx_directx_ovl');
  the_gfx_gdi              := LoadDLL('gfx_gdi');
  the_joystick_directx     := LoadDLL('joystick_directx');
  the_joystick_win32       := LoadDLL('joystick_win32');
{$ENDIF ALLEGRO_LOADVARIABLE}