G940LEDControl/Shared/SimConnect.pas

{ 14/02/2007 08:55:17 (GMT+0:00) > [Akadamia] checked in   }
{ 14/02/2007 08:54:07 (GMT+0:00) > [Akadamia] checked out /}
{ 14/02/2007 08:25:43 (GMT+0:00) > [Akadamia] checked in   }
unit SimConnect;
{
 This translation (SimConnectRT.Pas) deviates from the convention of SimConnect.h,
 where the API definitions are mapped directly to the SimConnect.Dll library.
 This version uses run-time dynamic loading, which requires an explicit
 initialisation call in the application, but can fail gracefully, or
 disable FS X connectivity if SimConnect.Dll is not installed.
 Any application built using the alternative "standard" version (SimConnect.Pas)
 will fail to load on any PC that does not have SimConnect.Dll installed, with
 the OS reporting that the application has not been properly installed.

 First translated from SimConnect.h (plus .res, .rc and manifest files)
 by Dick "rhumbaflappy" on the AVSim forum

 Partly checked (in process) by Jacky Brouze / JAB
 Comments welcome to jacky.brouze@vtx.ch

 Further updates by Ken Adam (KA) fsx@akadamia.co.uk
    - Formatted using DelForExp
    - Some types corrected
    - Delphi style equivalent types added
    - Further testing with SDK examples
    - Support passing method to CallDispatch (removed - did not work)
    - Pack records to ensure correct size and location of fields
    - Modified to load SimConnect.Dll at run-time using LoadLibrary for better
      handling on systems which do not have SimConnect installed.
      (See NOTES below)
    - Revised Resource file to use a manifest that marks the
      loaded library as optional, so that run-time loading can work

 Additional modifications by C. Scott Hendry http://home.exetel.com.au/flightsim
   - Changed function parameter types (various)
   - Fixed MAX_FLOAT constant
	
Contents of SimConnect.Rc:
1 24  "SimConnect.Pas.embed.manifest"
Contents of SimConnect.Pas.embed.manifest:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <dependency optional= "yes">
    <dependentAssembly>
      <assemblyIdentity type="win32" name="Microsoft.VC80.DebugCRT"
       version="8.0.50608.0" processorArchitecture="x86"
       publicKeyToken="1fc8b3b9a1e18e3b">
      </assemblyIdentity>
    </dependentAssembly>
  </dependency>
  <dependency optional= "yes">
    <dependentAssembly>
      <assemblyIdentity type="win32" name="Microsoft.FlightSimulator.SimConnect"
       version="10.0.60905.0" processorArchitecture="x86"
       publicKeyToken="67c7c14424d61b5b">
      </assemblyIdentity>
    </dependentAssembly>
  </dependency>
</assembly>
}

// NOTES:
// function InitSimConnect: Boolean;
//   Needed to load the SimConnect DLL and all addresses of the standard functions.
//   In case SimConnect is already initialized this function does nothing. No error
//   is raised, if something goes wrong, but you need to inspect the result in order
//   to know if all went okay.
//   RESULT: True if successful or already loaded, False otherwise
//
// function InitSimConnectFromLibrary(Name: String): Boolean;
//   Same as InitSimConnect, but you can specify a specific DLL. Useful if you want to
//   add a debug layer between app and SimConnect, for example. This function closes
//   loaded DLL before it tries to open the newly given one.
//   RESULT: True if successful, False otherwise
//
// procedure CloseSimConnect;
//   Unloads the SimConnect DLL and sets all function addresses to nil.
//   You can load and unload the DLL as often as you like.

{.$R 'SimConnect.res'}

interface

uses Windows, Messages, SysUtils, Classes;

//----------------------------------------------------------------------------
//        Constants
//----------------------------------------------------------------------------

type
  SIMCONNECT_OBJECT_ID = DWORD;

const
  DWORD_MAX = $FFFFFFFF;
  FLT_MAX = 3.402823466E+38;
  SIMCONNECT_UNUSED = DWORD_MAX; // special value to indicate unused event, ID
  SIMCONNECT_OBJECT_ID_USER = 0; // proxy value for User vehicle ObjectID
  SIMCONNECT_CAMERA_IGNORE_FIELD = FLT_MAX;
    //Used to tell the Camera API to NOT modify the value in this part Of the argument.

  // Notification Group priority values
  SIMCONNECT_GROUP_PRIORITY_HIGHEST = 1; // highest priority
  SIMCONNECT_GROUP_PRIORITY_HIGHEST_MASKABLE = 10000000;
    // highest priority that allows events to be masked
  SIMCONNECT_GROUP_PRIORITY_STANDARD = 1900000000; // standard priority
  SIMCONNECT_GROUP_PRIORITY_DEFAULT = 2000000000; // default priority
  SIMCONNECT_GROUP_PRIORITY_LOWEST = 4000000000;
    // priorities lower than this will be ignored

  //Weather observations Metar strings
  MAX_METAR_LENGTH = 2000;

  // Maximum thermal size is 100 km.
  MAX_THERMAL_SIZE = 100000.0;
  MAX_THERMAL_RATE = 1000.0;

  // SIMCONNECT_DATA_INITPOSITION.Airspeed
  INITPOSITION_AIRSPEED_CRUISE = -1; // aircraft's cruise airspeed
  INITPOSITION_AIRSPEED_KEEP = -2; // keep current airspeed

  //----------------------------------------------------------------------------
  //        Type enumerations
  //----------------------------------------------------------------------------

type

  // Receive data Types
  SIMCONNECT_RECV_ID = (
    SIMCONNECT_RECV_ID_NULL,
    SIMCONNECT_RECV_ID_EXCEPTION,
    SIMCONNECT_RECV_ID_OPEN,
    SIMCONNECT_RECV_ID_QUIT,
    SIMCONNECT_RECV_ID_EVENT,
    SIMCONNECT_RECV_ID_EVENT_OBJECT_ADDREMOVE,
    SIMCONNECT_RECV_ID_EVENT_FILENAME,
    SIMCONNECT_RECV_ID_EVENT_FRAME,
    SIMCONNECT_RECV_ID_SIMOBJECT_DATA,
    SIMCONNECT_RECV_ID_SIMOBJECT_DATA_BYTYPE,
    SIMCONNECT_RECV_ID_WEATHER_OBSERVATION,
    SIMCONNECT_RECV_ID_CLOUD_STATE,
    SIMCONNECT_RECV_ID_ASSIGNED_OBJECT_ID,
    SIMCONNECT_RECV_ID_RESERVED_KEY,
    SIMCONNECT_RECV_ID_CUSTOM_ACTION,
    SIMCONNECT_RECV_ID_SYSTEM_STATE,
    SIMCONNECT_RECV_ID_CLIENT_DATA
    );
  TSimConnectRecvId = SIMCONNECT_RECV_ID;

  // Data data Types
  SIMCONNECT_DATAType = (
    SIMCONNECT_DATAType_INVALID, // invalid data Type
    SIMCONNECT_DATAType_INT32, // 32-bit integer number
    SIMCONNECT_DATAType_INT64, // 64-bit integer number
    SIMCONNECT_DATAType_FLOAT32, // 32-bit floating-point number (Single)
    SIMCONNECT_DATAType_FLOAT64, // 64-bit floating-point number (Double)
    SIMCONNECT_DATAType_STRING8, // 8-byte String
    SIMCONNECT_DATAType_STRING32, // 32-byte String
    SIMCONNECT_DATAType_STRING64, // 64-byte String
    SIMCONNECT_DATAType_STRING128, // 128-byte String
    SIMCONNECT_DATAType_STRING256, // 256-byte String
    SIMCONNECT_DATAType_STRING260, // 260-byte String
    SIMCONNECT_DATAType_STRINGV, // variable-length String
    SIMCONNECT_DATAType_INITPOSITION, // see SIMCONNECT_DATA_INITPOSITION
    SIMCONNECT_DATAType_MARKERSTATE, // see SIMCONNECT_DATA_MARKERSTATE
    SIMCONNECT_DATAType_WAYPOINT, // see SIMCONNECT_DATA_WAYPOINT
    SIMCONNECT_DATAType_LATLONALT, // see SIMCONNECT_DATA_LATLONALT
    SIMCONNECT_DATAType_XYZ, // see SIMCONNECT_DATA_XYZ
    SIMCONNECT_DATAType_MAX // enum limit
    );
  TSimConnectDataType = SIMCONNECT_DATAType;

  // Exception error Types
  SIMCONNECT_EXCEPTION = (
    SIMCONNECT_EXCEPTION_NONE,
    SIMCONNECT_EXCEPTION_ERROR,
    SIMCONNECT_EXCEPTION_SIZE_MISMATCH,
    SIMCONNECT_EXCEPTION_UNRECOGNIZED_ID,
    SIMCONNECT_EXCEPTION_UNOPENED,
    SIMCONNECT_EXCEPTION_VERSION_MISMATCH,
    SIMCONNECT_EXCEPTION_TOO_MANY_GROUPS,
    SIMCONNECT_EXCEPTION_NAME_UNRECOGNIZED,
    SIMCONNECT_EXCEPTION_TOO_MANY_EVENT_NAMES,
    SIMCONNECT_EXCEPTION_EVENT_ID_DUPLICATE,
    SIMCONNECT_EXCEPTION_TOO_MANY_MAPS,
    SIMCONNECT_EXCEPTION_TOO_MANY_OBJECTS,
    SIMCONNECT_EXCEPTION_TOO_MANY_REQUESTS,
    SIMCONNECT_EXCEPTION_WEATHER_INVALID_PORT,
    SIMCONNECT_EXCEPTION_WEATHER_INVALID_METAR,
    SIMCONNECT_EXCEPTION_WEATHER_UNABLE_TO_GET_OBSERVATION,
    SIMCONNECT_EXCEPTION_WEATHER_UNABLE_TO_CREATE_STATION,
    SIMCONNECT_EXCEPTION_WEATHER_UNABLE_TO_REMOVE_STATION,
    SIMCONNECT_EXCEPTION_INVALID_DATA_Type,
    SIMCONNECT_EXCEPTION_INVALID_DATA_SIZE,
    SIMCONNECT_EXCEPTION_DATA_ERROR,
    SIMCONNECT_EXCEPTION_INVALID_ARRAY,
    SIMCONNECT_EXCEPTION_CREATE_OBJECT_FAILED,
    SIMCONNECT_EXCEPTION_LOAD_FLIGHTPLAN_FAILED,
    SIMCONNECT_EXCEPTION_OPERATION_INVALID_FOR_OBJECT_Type,
    SIMCONNECT_EXCEPTION_ILLEGAL_OPERATION,
    SIMCONNECT_EXCEPTION_ALREADY_SUBSCRIBED,
    SIMCONNECT_EXCEPTION_INVALID_ENUM,
    SIMCONNECT_EXCEPTION_DEFINITION_ERROR,
    SIMCONNECT_EXCEPTION_DUPLICATE_ID,
    SIMCONNECT_EXCEPTION_DATUM_ID,
    SIMCONNECT_EXCEPTION_OUT_OF_BOUNDS
    );
  TSimConnectException = SIMCONNECT_EXCEPTION;
  // Object Types
  SIMCONNECT_SIMOBJECT_Type = (
    SIMCONNECT_SIMOBJECT_Type_USER,
    SIMCONNECT_SIMOBJECT_Type_ALL,
    SIMCONNECT_SIMOBJECT_Type_AIRCRAFT,
    SIMCONNECT_SIMOBJECT_Type_HELICOPTER,
    SIMCONNECT_SIMOBJECT_Type_BOAT,
    SIMCONNECT_SIMOBJECT_Type_GROUND
    );
  TSimConnectSimObjectType = SIMCONNECT_SIMOBJECT_Type;

  // EventState values
  SIMCONNECT_STATE = (
    SIMCONNECT_STATE_OFF,
    SIMCONNECT_STATE_ON
    );
  TSimConnectState = SIMCONNECT_STATE;

  // Object Data Request Period values
  SIMCONNECT_PERIOD = (
    SIMCONNECT_PERIOD_NEVER,
    SIMCONNECT_PERIOD_ONCE,
    SIMCONNECT_PERIOD_VISUAL_FRAME,
    SIMCONNECT_PERIOD_SIM_FRAME,
    SIMCONNECT_PERIOD_SECOND
    );
  TSimConnectPeriod = SIMCONNECT_PERIOD;

  // Mission End values
  SIMCONNECT_MISSION_END = (
    SIMCONNECT_MISSION_FAILED,
    SIMCONNECT_MISSION_CRASHED,
    SIMCONNECT_MISSION_SUCCEEDED
    );
  TSimConnectMissionEnd = SIMCONNECT_MISSION_END;

  // bits for the Waypoint Flags field: may be combined
type
  SIMCONNECT_WAYPOINT_FLAGS = DWORD;
  TSimConnectWaypointFlags = SIMCONNECT_WAYPOINT_FLAGS;
const
  SIMCONNECT_WAYPOINT_NONE = $00;
  SIMCONNECT_WAYPOINT_SPEED_REQUESTED = $04;
    // requested speed at waypoint is valid
  SIMCONNECT_WAYPOINT_THROTTLE_REQUESTED = $08;
    // request a specific throttle percentage
  SIMCONNECT_WAYPOINT_COMPUTE_VERTICAL_SPEED = $10;
    // compute vertical to speed to reach waypoint altitude when crossing the waypoint
  SIMCONNECT_WAYPOINT_ALTITUDE_IS_AGL = $20; // AltitudeIsAGL
  SIMCONNECT_WAYPOINT_ON_GROUND = $00100000; // place this waypoint on the ground
  SIMCONNECT_WAYPOINT_REVERSE = $00200000;
    // Back up to this waypoint. Only valid on first waypoint
  SIMCONNECT_WAYPOINT_WRAP_TO_FIRST = $00400000;
    // Wrap around back to first waypoint. Only valid on last waypoint.

type
  SIMCONNECT_EVENT_FLAG = DWORD;
  TSimConnectEventFlag = SIMCONNECT_EVENT_FLAG;
const
  SIMCONNECT_EVENT_FLAG_DEFAULT = $00000000;
  SIMCONNECT_EVENT_FLAG_FAST_REPEAT_TIMER = $00000001;
    // set event repeat timer to simulate fast repeat
  SIMCONNECT_EVENT_FLAG_SLOW_REPEAT_TIMER = $00000002;
    // set event repeat timer to simulate slow repeat
  SIMCONNECT_EVENT_FLAG_GROUPID_IS_PRIORITY = $00000010;
    // interpret GroupID parameter as priority value

type
  SIMCONNECT_DATA_REQUEST_FLAG = DWORD;
  TSimConnectDataRequestFlag = SIMCONNECT_DATA_REQUEST_FLAG;
const
  SIMCONNECT_DATA_REQUEST_FLAG_DEFAULT = $00000000;
  SIMCONNECT_DATA_REQUEST_FLAG_CHANGED = $00000001;
    // send requested data when value(s) change
  SIMCONNECT_DATA_REQUEST_FLAG_TAGGED = $00000002;
    // send requested data in tagged format

type
  SIMCONNECT_DATA_SET_FLAG = DWORD;
  TSimConnectDataSetFlag = SIMCONNECT_DATA_SET_FLAG;
const
  SIMCONNECT_DATA_SET_FLAG_DEFAULT = $00000000; // data is in tagged format
  SIMCONNECT_DATA_SET_FLAG_TAGGED = $00000001; // data is in tagged format

type
  SIMCONNECT_CREATE_CLIENT_DATA_FLAG = DWORD;
  TSimConnectCreateClientDataFlag = SIMCONNECT_CREATE_CLIENT_DATA_FLAG;
const
  SIMCONNECT_CREATE_CLIENT_DATA_FLAG_DEFAULT = $00000000;
  SIMCONNECT_CREATE_CLIENT_DATA_FLAG_READ_ONLY = $00000001;
    // permit only ClientData creator to write into ClientData

type
  SIMCONNECT_VIEW_SYSTEM_EVENT_DATA = DWORD;
  TSimConnectViewSystemEventData = SIMCONNECT_VIEW_SYSTEM_EVENT_DATA;
const
  SIMCONNECT_VIEW_SYSTEM_EVENT_DATA_COCKPIT_2D = $00000001;
    // 2D Panels in cockpit view
  SIMCONNECT_VIEW_SYSTEM_EVENT_DATA_COCKPIT_VIRTUAL = $00000002;
    // Virtual (3D) panels in cockpit view
  SIMCONNECT_VIEW_SYSTEM_EVENT_DATA_ORTHOGONAL = $00000004;
    // Orthogonal (Map) view

type
  SIMCONNECT_SOUND_SYSTEM_EVENT_DATA = DWORD;
  TSimConnectSoundSystemEventData = SIMCONNECT_SOUND_SYSTEM_EVENT_DATA;
const
  SIMCONNECT_SOUND_SYSTEM_EVENT_DATA_MASTER = $00000001; // Sound Master

  //----------------------------------------------------------------------------
  //        User-defined enums
  //----------------------------------------------------------------------------

type
  SIMCONNECT_NOTIFICATION_GROUP_ID = DWORD;
  SIMCONNECT_INPUT_GROUP_ID = DWORD;
  SIMCONNECT_DATA_DEFINITION_ID = DWORD;
  SIMCONNECT_DATA_REQUEST_ID = DWORD;
  SIMCONNECT_CLIENT_EVENT_ID = DWORD;
  SIMCONNECT_CLIENT_DATA_ID = DWORD;
  SIMCONNECT_CLIENT_DATA_DEFINITION_ID = DWORD;

  //----------------------------------------------------------------------------
  //        Structure Types
  //----------------------------------------------------------------------------

type
  PSIMCONNECT_RECV = ^SIMCONNECT_RECV;
  SIMCONNECT_RECV = packed record
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
  end;
  TSimConnectRecv = SIMCONNECT_RECV;
  PSimConnectRecv = PSIMCONNECT_RECV;

  PSIMCONNECT_RECV_EXCEPTION = ^SIMCONNECT_RECV_EXCEPTION;
  SIMCONNECT_RECV_EXCEPTION = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    dwException: DWORD;
    dwSendID: DWORD;
    dwIndex: DWORD;
  end;
  TSimConnectRecvException = SIMCONNECT_RECV_EXCEPTION;
  PSimConnectRecvException = PSIMCONNECT_RECV_EXCEPTION;

  PSIMCONNECT_RECV_OPEN = ^SIMCONNECT_RECV_OPEN;
  SIMCONNECT_RECV_OPEN = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    szApplicationName: array[0..255] of Char;
    dwApplicationVersionMajor: DWORD;
    dwApplicationVersionMinor: DWORD;
    dwApplicationBuildMajor: DWORD;
    dwApplicationBuildMinor: DWORD;
    dwSimConnectVersionMajor: DWORD;
    dwSimConnectVersionMinor: DWORD;
    dwSimConnectBuildMajor: DWORD;
    dwSimConnectBuildMinor: DWORD;
    dwReserved1: DWORD;
    dwReserved2: DWORD;
  end;
  TSimConnectRecvOpen = SIMCONNECT_RECV_OPEN;
  PSimConnectRecvOpen = PSIMCONNECT_RECV_OPEN;

  PSIMCONNECT_RECV_QUIT = ^SIMCONNECT_RECV_QUIT;
  SIMCONNECT_RECV_QUIT = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
  end;
  TSimConnectRecvQuit = SIMCONNECT_RECV_QUIT;
  PSimConnectRecvQuit = PSIMCONNECT_RECV_QUIT;

  PSIMCONNECT_RECV_EVENT = ^SIMCONNECT_RECV_EVENT;
  SIMCONNECT_RECV_EVENT = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    uGroupID: DWORD;
    uEventID: DWORD;
    dwData: DWORD; // uEventID-dependent context
  end;
  TSimConnectRecvEvent = SIMCONNECT_RECV_EVENT;
  PSimConnectRecvEvent = PSIMCONNECT_RECV_EVENT;

  // when dwID == SIMCONNECT_RECV_ID_EVENT_FILENAME
  PSIMCONNECT_RECV_EVENT_FILENAME = ^SIMCONNECT_RECV_EVENT_FILENAME;
  SIMCONNECT_RECV_EVENT_FILENAME = packed record {SIMCONNECT_RECV_EVENT}
    // "Inherits" SIMCONNECT_RECV_EVENT
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    uGroupID: DWORD;
    uEventID: DWORD;
    dwData: DWORD; // uEventID-dependent context
    // End of Inherit
    szFileName: array[0..256 - 1] of Char; // uEventID-dependent context
    dwFlags: DWORD;
  end;
  TSimConnectRecvEventFileName = SIMCONNECT_RECV_EVENT_FILENAME;
  PSimConnectRecvEventFileName = PSIMCONNECT_RECV_EVENT_FILENAME;

  PSIMCONNECT_RECV_EVENT_OBJECT_ADDREMOVE =
    ^SIMCONNECT_RECV_EVENT_OBJECT_ADDREMOVE;
  SIMCONNECT_RECV_EVENT_OBJECT_ADDREMOVE = packed record {SIMCONNECT_RECV_EVENT}
    // "Inherits" SIMCONNECT_RECV_EVENT
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    uGroupID: DWORD;
    uEventID: DWORD;
    dwData: DWORD; // uEventID-dependent context
    // End of Inherit
    eObjType: TSimConnectSimObjectType;
  end;
  TSimConnectRecvEventObjectAddRemove = SIMCONNECT_RECV_EVENT_OBJECT_ADDREMOVE;
  PSimConnectRecvEventObjectAddRemove = PSIMCONNECT_RECV_EVENT_OBJECT_ADDREMOVE;

  // when dwID == SIMCONNECT_RECV_ID_EVENT_FRAME
  PSIMCONNECT_RECV_EVENT_FRAME = ^SIMCONNECT_RECV_EVENT_FRAME;
  SIMCONNECT_RECV_EVENT_FRAME = packed record {SIMCONNECT_RECV_EVENT}
    // "Inherits" SIMCONNECT_RECV_EVENT
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    uGroupID: DWORD;
    uEventID: DWORD;
    dwData: DWORD; // uEventID-dependent context
    // End of Inherit
    FrameRate: single;
    fSimSpeed: single;
  end;
  TSimConnectRecvEventFrame = SIMCONNECT_RECV_EVENT_FRAME;
  PSimConnectRecvEventFrame = PSIMCONNECT_RECV_EVENT_FRAME;

  PSIMCONNECT_RECV_SIMOBJECT_DATA = ^SIMCONNECT_RECV_SIMOBJECT_DATA;
  SIMCONNECT_RECV_SIMOBJECT_DATA = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    dwRequestID: DWORD;
    dwObjectID: DWORD;
    dwDefineID: DWORD;
    dwFlags: DWORD; // SIMCONNECT_DATA_REQUEST_FLAG
    dwentrynumber: DWORD;
      // if multiple objects returned, this is number <entrynumber> out of <outof>.
    dwoutof: DWORD; // note: starts with 1, not 0.
    dwDefineCount: DWORD; // data count (number of datums, *not* byte count)
    dwData: DWORD; // data begins here, dwDefineCount data items
  end;
  TSimConnectRecvSimObjectData = SIMCONNECT_RECV_SIMOBJECT_DATA;
  PSimConnectRecvSimObjectData = PSIMCONNECT_RECV_SIMOBJECT_DATA;

  // when dwID == SIMCONNECT_RECV_ID_SIMOBJECT_DATA_BYType
  PSIMCONNECT_RECV_SIMOBJECT_DATA_BYTYPE =
    ^SIMCONNECT_RECV_SIMOBJECT_DATA_BYTYPE;
  SIMCONNECT_RECV_SIMOBJECT_DATA_BYTYPE = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    dwRequestID: DWORD;
    dwObjectID: DWORD;
    dwDefineID: DWORD;
    dwFlags: DWORD; // SIMCONNECT_DATA_REQUEST_FLAG
    dwentrynumber: DWORD;
      // if multiple objects returned, this is number <entrynumber> out of <outof>.
    dwoutof: DWORD; // note: starts with 1, not 0.
    dwDefineCount: DWORD; // data count (number of datums, *not* byte count)
    dwData: DWORD; // data begins here, dwDefineCount data items
  end;
  TSimConnectRecvSimObjectDataByType = SIMCONNECT_RECV_SIMOBJECT_DATA_BYTYPE;
  PSimConnectRecvSimObjectDataByType = PSIMCONNECT_RECV_SIMOBJECT_DATA_BYTYPE;

  // when dwID == SIMCONNECT_RECV_ID_CLIENT_DATA
  PSIMCONNECT_RECV_CLIENT_DATA = ^SIMCONNECT_RECV_CLIENT_DATA;
  SIMCONNECT_RECV_CLIENT_DATA = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    dwRequestID: DWORD;
    dwObjectID: DWORD;
    dwDefineID: DWORD;
    dwFlags: DWORD; // SIMCONNECT_DATA_REQUEST_FLAG
    dwentrynumber: DWORD;
      // if multiple objects returned, this is number <entrynumber> out of <outof>.
    dwoutof: DWORD; // note: starts with 1, not 0.
    dwDefineCount: DWORD; // data count (number of datums, *not* byte count)
    dwData: DWORD; // data begins here, dwDefineCount data items
  end;
  TSimConnectRecvClientData = SIMCONNECT_RECV_CLIENT_DATA;
  PSimConnectRecvClientData = PSIMCONNECT_RECV_CLIENT_DATA;

  // when dwID == SIMCONNECT_RECV_ID_WEATHER_OBSERVATION
  PSIMCONNECT_RECV_WEATHER_OBSERVATION = ^SIMCONNECT_RECV_WEATHER_OBSERVATION;
  SIMCONNECT_RECV_WEATHER_OBSERVATION = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    dwRequestID: DWORD;
    szMetar: array[0..0] of Char;
      // Variable length String whose maximum size is MAX_METAR_LENGTH
  end;
  TSimConnectRecvWeatherObservation = SIMCONNECT_RECV_WEATHER_OBSERVATION;
  PSimConnectRecvWeatherObservation = PSIMCONNECT_RECV_WEATHER_OBSERVATION;

  // when dwID == SIMCONNECT_RECV_ID_CLOUD_STATE
  PSIMCONNECT_RECV_CLOUD_STATE = ^SIMCONNECT_RECV_CLOUD_STATE;
  SIMCONNECT_RECV_CLOUD_STATE = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    dwRequestID: DWORD;
    dwArraySize: DWORD;
    rgbData: array[0..0] of byte;
  end;
  TSimConnectRecvCloudState = SIMCONNECT_RECV_CLOUD_STATE;
  PSimConnectRecvCloudState = PSIMCONNECT_RECV_CLOUD_STATE;

  // when dwID == SIMCONNECT_RECV_ID_ASSIGNED_OBJECT_ID
  PSIMCONNECT_RECV_ASSIGNED_OBJECT_ID = ^SIMCONNECT_RECV_ASSIGNED_OBJECT_ID;
  SIMCONNECT_RECV_ASSIGNED_OBJECT_ID = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    dwRequestID: DWORD;
    dwObjectID: DWORD;
  end;
  TSimConnectRecvAssignedObjectId = SIMCONNECT_RECV_ASSIGNED_OBJECT_ID;
  PSimConnectRecvAssignedObjectId = PSIMCONNECT_RECV_ASSIGNED_OBJECT_ID;

  // when dwID == SIMCONNECT_RECV_ID_RESERVED_KEY
  PSIMCONNECT_RECV_RESERVED_KEY = ^SIMCONNECT_RECV_RESERVED_KEY;
  SIMCONNECT_RECV_RESERVED_KEY = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    szChoiceReserved: array[0..29] of Char;
    szReservedKey: array[0..49] of Char;
  end;
  TSimConnectRecvReservedKey = SIMCONNECT_RECV_RESERVED_KEY;
  PSimConnectRecvReservedKey = PSIMCONNECT_RECV_RESERVED_KEY;

  // when dwID == SIMCONNECT_RECV_ID_SYSTEM_STATE
  PSIMCONNECT_RECV_SYSTEM_STATE = ^SIMCONNECT_RECV_SYSTEM_STATE;
  SIMCONNECT_RECV_SYSTEM_STATE = packed record {SIMCONNECT_RECV}
    // "Inherits" SIMCONNECT_RECV
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    // End of Inherit
    dwRequestID: DWORD;
    dwInteger: DWORD;
    fFloat: single;
    szString: array[0..255] of Char;
  end;
  TSimConnectRecvSystemState = SIMCONNECT_RECV_SYSTEM_STATE;
  PSimConnectRecvSystemState = PSIMCONNECT_RECV_SYSTEM_STATE;

  PSIMCONNECT_RECV_CUSTOM_ACTION = ^SIMCONNECT_RECV_CUSTOM_ACTION;
  SIMCONNECT_RECV_CUSTOM_ACTION = packed record {SIMCONNECT_RECV_EVENT}
    // "Inherits" SIMCONNECT_RECV_EVENT
    dwSize: DWORD;
    dwVersion: DWORD;
    dwID: DWORD;
    uGroupID: DWORD;
    uEventID: DWORD;
    dwData: DWORD; // uEventID-dependent context
    // End of Inherit
    guidInstanceId: TGUID; // Instance id of the action that executed
    dwWaitForCompletion: DWORD; // Wait for completion flag on the action
    szPayLoad: array[0..0] of Char;
      // Variable length String payload associated with the mission action.
  end;
  TSimConnectRecvCustomAction = SIMCONNECT_RECV_CUSTOM_ACTION;
  PSimConnectRecvCustomAction = PSIMCONNECT_RECV_CUSTOM_ACTION;

  // SIMCONNECT_DATAType_INITPOSITION
  PSIMCONNECT_DATA_INITPOSITION = ^SIMCONNECT_DATA_INITPOSITION;
  SIMCONNECT_DATA_INITPOSITION = packed record
    Latitude: double; // degrees
    Longitude: double; // degrees
    Altitude: double; // feet
    Pitch: double; // degrees
    Bank: double; // degrees
    Heading: double; // degrees
    OnGround: DWORD; // 1=force to be on the ground
    Airspeed: DWORD; // knots
  end;
  TSimConnectDataInitPosition = SIMCONNECT_DATA_INITPOSITION;
  PSimConnectDataInitPosition = PSIMCONNECT_DATA_INITPOSITION;

  // SIMCONNECT_DATAType_MARKERSTATE
  SIMCONNECT_DATA_MARKERSTATE = packed record
    szMarkerName: array[0..63] of Char;
    dwMarkerState: DWORD;
  end;
  TSimConnectDataMarkerState = SIMCONNECT_DATA_MARKERSTATE;

  // SIMCONNECT_DATAType_WAYPOINT
  SIMCONNECT_DATA_WAYPOINT = packed record
    Latitude: double;
    Longitude: double;
    Altitude: double;
    Flags: LongInt;
    ktsSpeed: double;
    percentThrottle: double;
  end;
  TSimConnectDataWaypoint = SIMCONNECT_DATA_WAYPOINT;

  // SIMCONNECT_DATA_LATLONALT
  SIMCONNECT_DATA_LATLONALT = packed record
    Latitude: double;
    Longitude: double;
    Altitude: double;
  end;
  TSimConnectDataLatLonAlt = SIMCONNECT_DATA_LATLONALT;

  // SIMCONNECT_DATA_XYZ
  SIMCONNECT_DATA_XYZ = packed record
    x: double;
    y: double;
    z: double;
  end;
  TSimConnectDataXYZ = SIMCONNECT_DATA_XYZ;

  // A procedure to pass to CallDispatch (SDK standard method)
  TDispatchProc = procedure(pData: PSimConnectRecv; cbData: DWORD; pContext:
    Pointer); stdcall;

  // Additional procedures to support dynamic loading
function InitSimConnect: boolean;
procedure CloseSimConnect;
function IsSimConnectInitialized: Boolean;

//----------------------------------------------------------------------------
//        Function Declarations
//----------------------------------------------------------------------------
var
  SimConnect_AddToDataDefinition: function(
    hSimConnect: THandle;
    DefineID: SIMCONNECT_DATA_DEFINITION_ID;
    DatumName: AnsiString;
    UnitsName: AnsiString;
    DatumType: SIMCONNECT_DATAType = SIMCONNECT_DATAType_FLOAT64;
    fEpsilon: Single = 0;
    DatumID: DWORD = SIMCONNECT_UNUSED
    ): HRESULT; StdCall;

  SimConnect_Close: function(
    hSimConnect: THandle
    ): HRESULT; StdCall;

  SimConnect_FlightLoad: function(
    hSimConnect: THandle;
    const szFileName: PAnsiChar
    ): HRESULT; StdCall;

  SimConnect_FlightSave: function(
    hSimConnect: THandle;
    const szFileName: PAnsiChar;
    const szDescription: PAnsiChar;
    Flags: DWORD
    ): HRESULT; StdCall;

  SimConnect_GetNextDispatch: function(
    hSimConnect: THandle;
    var ppData: PSimConnectRecv;
    var pcbData: DWORD
    ): HRESULT; StdCall;

  SimConnect_Open: function(
    var phSimConnect: THandle;
    szName: PAnsiChar;
    hWnd: HWnd;
    UserEventWin32: DWORD;
    hEventHandle: THandle;
    ConfigIndex: DWORD
    ): HRESULT; StdCall;

  SimConnect_RequestDataOnSimObject: function(
    hSimConnect: THandle;
    RequestID: SIMCONNECT_DATA_REQUEST_ID;
    DefineID: SIMCONNECT_DATA_DEFINITION_ID;
    ObjectID: SIMCONNECT_OBJECT_ID;
    Period: SIMCONNECT_PERIOD;
    Flags: SIMCONNECT_DATA_REQUEST_FLAG = 0;
    origin: DWORD = 0;
    interval: DWORD = 0;
    limit: DWORD = 0
    ): HRESULT; StdCall;

  SimConnect_CallDispatch: function(
    hSimConnect: THandle;
    pfcnDispatch: TDispatchProc;
    pContext: Pointer
    ): HRESULT; StdCall;

  SimConnect_RequestDataOnSimObjectType: function(
    hSimConnect: THandle;
    RequestID: SIMCONNECT_DATA_REQUEST_ID;
    DefineID: SIMCONNECT_DATA_DEFINITION_ID;
    dwRadiusMeters: DWORD;
    ObjectType: SIMCONNECT_SIMOBJECT_Type
    ): HRESULT; StdCall;

  SimConnect_SetInputGroupState: function(
    hSimConnect: THandle; GroupID:
    SIMCONNECT_INPUT_GROUP_ID;
    dwState: DWORD
    ): HRESULT; StdCall;

  SimConnect_SetDataOnSimObject: function(
    hSimConnect: THandle; DefineID:
    SIMCONNECT_DATA_DEFINITION_ID;
    ObjectID: SIMCONNECT_OBJECT_ID;
    Flags: SIMCONNECT_DATA_SET_FLAG;
    ArrayCount: DWORD;
    cbUnitSize: DWORD;
    pDataSet: Pointer
    ): HRESULT; StdCall;

  SimConnect_MapClientEventToSimEvent: function(
    hSimConnect: THandle;
    EventID: SIMCONNECT_CLIENT_EVENT_ID;
    EventName: AnsiString = ''
    ): HRESULT; StdCall;

  SimConnect_MapInputEventToClientEvent: function(
    hSimConnect: THandle;
    GroupID:
    SIMCONNECT_INPUT_GROUP_ID;
    const szInputDefinition: PAnsiChar;
    DownEventID: SIMCONNECT_CLIENT_EVENT_ID;
    DownValue: DWORD = 0;
    UpEventID: SIMCONNECT_CLIENT_EVENT_ID = Ord(SIMCONNECT_UNUSED);
    UpValue: DWORD = 0;
    bMaskable: BOOL = False
    ): HRESULT; StdCall;

  SimConnect_AddClientEventToNotificationGroup: function(
    hSimConnect: THandle;
    GroupID: SIMCONNECT_NOTIFICATION_GROUP_ID;
    EventID: SIMCONNECT_CLIENT_EVENT_ID;
    bMaskable: BOOL = False
    ): HRESULT; StdCall;

  SimConnect_RetrieveString: function(
    pData: PSimConnectRecv;
    cbData: Cardinal;
    pStringV: PAnsiChar;
    var pszString: PAnsiChar;
    var pcbString: Cardinal
    ): HRESULT; StdCall;

  SimConnect_SetNotificationGroupPriority: function(
    hSimConnect: THandle;
    GroupID: SIMCONNECT_NOTIFICATION_GROUP_ID;
    uPriority: Cardinal
    ): HRESULT; StdCall;

  SimConnect_CameraSetRelative6DOF: function(
    hSimConnect: THandle;
    fDeltaX: Single;
    fDeltaY: Single;
    fDeltaZ: Single;
    fPitchDeg: Single;
    fBankDeg: Single;
    fHeadingDeg: Single
    ): HRESULT; StdCall;

  SimConnect_SetInputGroupPriority: function(
    hSimConnect: THandle;
    GroupID: SIMCONNECT_INPUT_GROUP_ID;
    uPriority: Cardinal
    ): HRESULT; StdCall;

  SimConnect_MenuDeleteItem: function(
    hSimConnect: THandle;
    MenuEventID: SIMCONNECT_CLIENT_EVENT_ID
    ): HRESULT; StdCall;

  SimConnect_RemoveClientEvent: function(
    hSimConnect: THandle; GroupID:
    SIMCONNECT_NOTIFICATION_GROUP_ID;
    EventID: SIMCONNECT_CLIENT_EVENT_ID
    ): HRESULT; StdCall;

  SimConnect_MenuAddItem: function(
    hSimConnect: THandle;
    const szMenuItem: PAnsiChar;
    MenuEventID: SIMCONNECT_CLIENT_EVENT_ID;
    dwData: Cardinal
    ): HRESULT; StdCall;

  SimConnect_RequestReservedKey: function(
    hSimConnect: THandle;
    EventID: SIMCONNECT_CLIENT_EVENT_ID;
    szKeyChoice1: AnsiString;
    szKeyChoice2: AnsiString;
    szKeyChoice3: AnsiString
    ): HRESULT; StdCall;

  SimConnect_TransmitClientEvent: function(
    hSimConnect: THandle; ObjectID:
    SIMCONNECT_OBJECT_ID;
    EventID: SIMCONNECT_CLIENT_EVENT_ID;
    dwData: Cardinal;
    GroupID: SIMCONNECT_NOTIFICATION_GROUP_ID;
    Flags: SIMCONNECT_EVENT_FLAG
    ): HRESULT; StdCall;

  SimConnect_WeatherRequestObservationAtNearestStation: function(
    hSimConnect: THandle;
    RequestID: SIMCONNECT_DATA_REQUEST_ID;
    Lat: Single;
    Lon: Single
    ): HRESULT; StdCall;

  SimConnect_WeatherRequestObservationAtStation: function(
    hSimConnect: THandle;
    RequestID: SIMCONNECT_DATA_REQUEST_ID;
    const szICAO: PAnsiChar
    ): HRESULT; StdCall;

  SimConnect_AICreateSimulatedObject: function(
    hSimConnect: THandle;
    const szContainerTitle: PAnsiChar;
    InitPos: SIMCONNECT_DATA_INITPOSITION;
    RequestID: SIMCONNECT_DATA_REQUEST_ID
    ): HRESULT; StdCall;

  SimConnect_AICreateNonATCAircraft: function(
    hSimConnect: THandle;
    const szContainerTitle: PAnsiChar;
    const szTailNumber: PAnsiChar;
    InitPos: SIMCONNECT_DATA_INITPOSITION;
    RequestID: SIMCONNECT_DATA_REQUEST_ID
    ): HRESULT; StdCall;

  SimConnect_AISetAircraftFlightPlan: function(
    hSimConnect: THandle;
    ObjectID: SIMCONNECT_OBJECT_ID;
    const szFlightPlanPath: PAnsiChar;
    RequestID: SIMCONNECT_DATA_REQUEST_ID
    ): HRESULT; StdCall;

  SimConnect_AICreateParkedATCAircraft: function(
    hSimConnect: THandle;
    const szContainerTitle: PAnsiChar;
    const szTailNumber: PAnsiChar;
    const szAirportID: PAnsiChar;
    RequestID: SIMCONNECT_DATA_REQUEST_ID
    ): HRESULT; StdCall;

  SimConnect_SubscribeToSystemEvent: function(
    hSimConnect: THandle;
    EventID: SIMCONNECT_CLIENT_EVENT_ID;
    const SystemEventName: PAnsiChar
    ): HRESULT; StdCall;

  SimConnect_AICreateEnrouteATCAircraft: function(
    hSimConnect: THandle;
    const szContainerTitle: PAnsiChar;
    const szTailNumber: PAnsiChar;
    iFlightNumber: Integer;
    const szFlightPlanPath: PAnsiChar;
    dFlightPlanPosition: Double;
    bTouchAndGo: Bool;
    RequestID: SIMCONNECT_DATA_REQUEST_ID
    ): HRESULT; StdCall;

  SimConnect_RequestSystemState: function(
    hSimConnect: THandle;
    RequestID: SIMCONNECT_DATA_REQUEST_ID;
    const szState: PAnsiChar
    ): HRESULT; StdCall;

  SimConnect_SetSystemState: function(
    hSimConnect: THandle;
    const szState: PAnsiChar;
    dwInteger: Cardinal;
    fFloat: Single;
    const szString: PAnsiChar
    ): HRESULT; StdCall;

  SimConnect_GetLastSentPacketID: function(
    hSimConnect: THandle;
    var pdwSendID: Cardinal
    ): HRESULT; StdCall;

  SimConnect_MenuAddSubItem: function(
    hSimConnect: THandle;
    MenuEventID: SIMCONNECT_CLIENT_EVENT_ID;
    const szMenuItem: PAnsiChar;
    SubMenuEventID: SIMCONNECT_CLIENT_EVENT_ID;
    dwData: Cardinal
    ): HRESULT; StdCall;

  SimConnect_MenuDeleteSubItem: function(
    hSimConnect: THandle;
    MenuEventID: SIMCONNECT_CLIENT_EVENT_ID;
    const SubMenuEventID: SIMCONNECT_CLIENT_EVENT_ID
    ): HRESULT; StdCall;

  SimConnect_RequestResponseTimes: function(
    hSimConnect: THandle;
    nCount: Cardinal;
    var fElapsedSeconds: Single
    ): HRESULT; StdCall;

  SimConnect_FlightPlanLoad: function(hSimConnect: THandle; const szFileName:
    PAnsiChar): HRESULT; StdCall;

  // BEWARE!!!!!
  // Unlike the C version these must not pass the GUID as a "const"
  // In Delphi that results in passing a pointer, not a value, and it will fail
  SimConnect_ExecuteMissionAction: function(
    hSimConnect: THandle;
    guidInstanceId: TGUID
    ): HRESULT; StdCall;

  SimConnect_CompleteCustomMissionAction: function(
    hSimConnect: THandle;
    guidInstanceId: TGUID
    ): HRESULT; StdCall;
  // BEWARE!!!

  
//-------------------------
// 							Not	checked
//-------------------------

  SimConnect_SetSystemEventState: function(
    hSimConnect: THandle;
    EventID: SIMCONNECT_CLIENT_EVENT_ID;
    dwState: SIMCONNECT_STATE
    ): HRESULT; StdCall;

  SimConnect_ClearNotificationGroup: function(
    hSimConnect: THandle;
    GroupID: SIMCONNECT_NOTIFICATION_GROUP_ID
    ): HRESULT; StdCall;

  SimConnect_RequestNotificationGroup: function(
    hSimConnect: THandle;
    GroupID: SIMCONNECT_NOTIFICATION_GROUP_ID;
    dwReserved: Cardinal;
    Flags: Cardinal
    ): HRESULT; StdCall;

  SimConnect_ClearDataDefinition: function(
    hSimConnect: THandle;
    DefineID: SIMCONNECT_DATA_DEFINITION_ID
    ): HRESULT; StdCall;

  SimConnect_RemoveInputEvent: function(
    hSimConnect: THandle;
    GroupID: SIMCONNECT_INPUT_GROUP_ID;
    const szInputDefinition: PAnsiChar
    ): HRESULT; StdCall;

  SimConnect_ClearInputGroup: function(
    hSimConnect: THandle;
    GroupID: SIMCONNECT_INPUT_GROUP_ID
    ): HRESULT; StdCall;

  SimConnect_UnsubscribeFromSystemEvent: function(
    hSimConnect: THandle;
    EventID: SIMCONNECT_CLIENT_EVENT_ID
    ): HRESULT; StdCall;

  SimConnect_WeatherRequestInterpolatedObservation: function(
    hSimConnect: THandle;
    RequestID: SIMCONNECT_DATA_REQUEST_ID;
    lat: Single;
    lon: Single;
    alt: Single
    ): HRESULT; StdCall;

  SimConnect_WeatherCreateStation: function(
    hSimConnect: THandle;
    RequestID: SIMCONNECT_DATA_REQUEST_ID;
    const szICAO: PAnsiChar;
    const szName: PAnsiChar;
    lat: Single;
    lon: Single;
    alt: Single
    ): HRESULT; StdCall;

  SimConnect_WeatherRemoveStation: function(
    hSimConnect: THandle;
    RequestID: SIMCONNECT_DATA_REQUEST_ID;
    const szICAO: PAnsiChar
    ): HRESULT; StdCall;

  SimConnect_WeatherSetObservation: function(
    hSimConnect: THandle;
    Seconds: Cardinal;
    const szMETAR: PAnsiChar
    ): HRESULT; StdCall;

  SimConnect_WeatherSetModeServer: function(
    hSimConnect: THandle;
    dwPort: Cardinal;
    dwSeconds: Cardinal
    ): HRESULT; StdCall;

  SimConnect_WeatherSetModeTheme: function(
    hSimConnect: THandle;
    const szThemeName: PAnsiChar
    ): HRESULT; StdCall;

  SimConnect_WeatherSetModeGlobal: function(
    hSimConnect: THandle
    ): HRESULT; StdCall;

  SimConnect_WeatherSetModeCustom: function(
    hSimConnect: THandle
    ): HRESULT; StdCall;

  SimConnect_WeatherSetDynamicUpdateRate: function(
    hSimConnect: THandle;
    dwRate: Cardinal
    ): HRESULT; StdCall;

  SimConnect_WeatherRequestCloudState: function(
    hSimConnect: THandle;
    RequestID: SIMCONNECT_DATA_REQUEST_ID;
    minLat: Single;
    minLon: Single;
    minAlt: Single;
    maxLat: Single;
    maxLon: Single;
    maxAlt: Single;
    dwFlags: LongInt
    ): HRESULT; StdCall;

  SimConnect_WeatherCreateThermal: function(
    hSimConnect: THandle;
    RequestID: SIMCONNECT_DATA_REQUEST_ID;
    lat: Single;
    lon: Single;
    alt: Single;
    radius: Single;
    height: Single;
    coreRate: Single;
    coreTurbulence: Single;
    sinkRate: Single;
    sinkTurbulence: Single;
    coreSize: Single;
    coreTransitionSize: Single;
    sinkLayerSize: Single;
    sinkTransitionSize: Single
    ): HRESULT; StdCall;

  SimConnect_WeatherRemoveThermal: function(
    hSimConnect: THandle;
    ObjectID: SIMCONNECT_OBJECT_ID
    ): HRESULT; StdCall;

  SimConnect_AIReleaseControl: function(
    hSimConnect: THandle;
    ObjectID: SIMCONNECT_OBJECT_ID;
    RequestID: SIMCONNECT_DATA_REQUEST_ID
    ): HRESULT; StdCall;

  SimConnect_AIRemoveObject: function(
    hSimConnect: THandle;
    ObjectID: SIMCONNECT_OBJECT_ID;
    RequestID: SIMCONNECT_DATA_REQUEST_ID
    ): HRESULT; StdCall;

  SimConnect_InsertString: function(
    pDest: PAnsiChar;
    cbDest: Cardinal;
    var ppEnd: Pointer;
    var pcbStringV: Cardinal;
    const pSource: PAnsiChar
    ): HRESULT; StdCall;

  SimConnect_MapClientDataNameToID: function(
    hSimConnect: THandle;
    const szClientDataName: PAnsiChar;
    ClientDataID: SIMCONNECT_CLIENT_DATA_ID
    ): HRESULT; StdCall;

  SimConnect_CreateClientData: function(
    hSimConnect: THandle;
    ClientDataID: SIMCONNECT_CLIENT_DATA_ID;
    dwSize: Cardinal;
    Flags: SIMCONNECT_CREATE_CLIENT_DATA_FLAG
    ): HRESULT; StdCall;

  SimConnect_AddToClientDataDefinition: function(
    hSimConnect: THandle;
    DefineID: SIMCONNECT_CLIENT_DATA_DEFINITION_ID;
    dwOffset: Cardinal;
    dwSize: Cardinal;
    dwReserved: Cardinal
    ): HRESULT; StdCall;

  SimConnect_ClearClientDataDefinition: function(hSimConnect: THandle; DefineID:
    SIMCONNECT_CLIENT_DATA_DEFINITION_ID): HRESULT; StdCall;

  SimConnect_RequestClientData: function(hSimConnect: THandle; ClientDataID:
    SIMCONNECT_CLIENT_DATA_ID; RequestID: SIMCONNECT_DATA_REQUEST_ID; DefineID:
    SIMCONNECT_CLIENT_DATA_DEFINITION_ID; dwReserved1: Cardinal; dwReserved2:
    Cardinal): HRESULT; StdCall;

  SimConnect_SetClientData: function(hSimConnect: THandle; ClientDataID:
    SIMCONNECT_CLIENT_DATA_ID; DefineID: SIMCONNECT_CLIENT_DATA_DEFINITION_ID;
    dwReserved: Cardinal; ArrayCount: Cardinal; cbUnitSize: Cardinal; pDataSet:
    Pointer): HRESULT; StdCall;

implementation
var
  ScHandle: HINST;

{-----------------------------------------------------------------------------
  Procedure: LoadProcAddresses
  Author:    ken.adam
  Date:      27-Jan-2007
  Arguments: None
  Result:    None
-----------------------------------------------------------------------------}

procedure LoadProcAddresses;
begin
  SimConnect_AddClientEventToNotificationGroup :=
    GetProcAddress(ScHandle, 'SimConnect_AddClientEventToNotificationGroup');
  SimConnect_AddToClientDataDefinition :=
    GetProcAddress(ScHandle, 'SimConnect_AddToClientDataDefinition');
  SimConnect_AddToDataDefinition :=
    GetProcAddress(ScHandle, 'SimConnect_AddToDataDefinition');
  SimConnect_AICreateEnrouteATCAircraft :=
    GetProcAddress(ScHandle, 'SimConnect_AICreateEnrouteATCAircraft');
  SimConnect_AICreateNonATCAircraft :=
    GetProcAddress(ScHandle, 'SimConnect_AICreateNonATCAircraft');
  SimConnect_AICreateParkedATCAircraft :=
    GetProcAddress(ScHandle, 'SimConnect_AICreateParkedATCAircraft');
  SimConnect_AICreateSimulatedObject :=
    GetProcAddress(ScHandle, 'SimConnect_AICreateSimulatedObject');
  SimConnect_AIReleaseControl :=
    GetProcAddress(ScHandle, 'SimConnect_AIReleaseControl');
  SimConnect_AIRemoveObject :=
    GetProcAddress(ScHandle, 'SimConnect_AIRemoveObject');
  SimConnect_AISetAircraftFlightPlan :=
    GetProcAddress(ScHandle, 'SimConnect_AISetAircraftFlightPlan');
  SimConnect_CallDispatch :=
    GetProcAddress(ScHandle, 'SimConnect_CallDispatch');
  SimConnect_CameraSetRelative6DOF :=
    GetProcAddress(ScHandle, 'SimConnect_CameraSetRelative6DOF');
  SimConnect_ClearClientDataDefinition :=
    GetProcAddress(ScHandle, 'SimConnect_ClearClientDataDefinition');
  SimConnect_ClearDataDefinition :=
    GetProcAddress(ScHandle, 'SimConnect_ClearDataDefinition');
  SimConnect_ClearInputGroup :=
    GetProcAddress(ScHandle, 'SimConnect_ClearInputGroup');
  SimConnect_Close :=
    GetProcAddress(ScHandle, 'SimConnect_Close');
  SimConnect_CompleteCustomMissionAction :=
    GetProcAddress(ScHandle, 'SimConnect_ExecuteMissionAction');
  SimConnect_CreateClientData :=
    GetProcAddress(ScHandle, 'SimConnect_CreateClientData');
  SimConnect_ExecuteMissionAction :=
    GetProcAddress(ScHandle, 'SimConnect_ExecuteMissionAction');
  SimConnect_FlightLoad :=
    GetProcAddress(ScHandle, 'SimConnect_FlightLoad');
  SimConnect_FlightPlanLoad :=
    GetProcAddress(ScHandle, 'SimConnect_FlightPlanLoad');
  SimConnect_FlightSave :=
    GetProcAddress(ScHandle, 'SimConnect_FlightSave');
  SimConnect_GetLastSentPacketID :=
    GetProcAddress(ScHandle, 'SimConnect_GetLastSentPacketID');
  SimConnect_GetNextDispatch :=
    GetProcAddress(ScHandle, 'SimConnect_GetNextDispatch');
  SimConnect_InsertString :=
    GetProcAddress(ScHandle, 'SimConnect_InsertString');
  SimConnect_MapClientDataNameToID :=
    GetProcAddress(ScHandle, 'SimConnect_MapClientDataNameToID');
  SimConnect_MapClientEventToSimEvent :=
    GetProcAddress(ScHandle, 'SimConnect_MapClientEventToSimEvent');
  SimConnect_MapInputEventToClientEvent :=
    GetProcAddress(ScHandle, 'SimConnect_MapInputEventToClientEvent');
  SimConnect_MenuAddItem :=
    GetProcAddress(ScHandle, 'SimConnect_MenuAddItem');
  SimConnect_MenuAddSubItem :=
    GetProcAddress(ScHandle, 'SimConnect_MenuAddSubItem');
  SimConnect_MenuDeleteItem :=
    GetProcAddress(ScHandle, 'SimConnect_MenuDeleteItem');
  SimConnect_MenuDeleteSubItem :=
    GetProcAddress(ScHandle, 'SimConnect_MenuDeleteSubItem');
  SimConnect_Open :=
    GetProcAddress(ScHandle, 'SimConnect_Open');
  SimConnect_RemoveClientEvent :=
    GetProcAddress(ScHandle, 'SimConnect_RemoveClientEvent');
  SimConnect_RemoveInputEvent :=
    GetProcAddress(ScHandle, 'SimConnect_RemoveInputEvent');
  SimConnect_RequestClientData :=
    GetProcAddress(ScHandle, 'SimConnect_RequestClientData');
  SimConnect_RequestDataOnSimObject :=
    GetProcAddress(ScHandle, 'SimConnect_RequestDataOnSimObject');
  SimConnect_RequestDataOnSimObjectType :=
    GetProcAddress(ScHandle, 'SimConnect_RequestDataOnSimObjectType');
  SimConnect_RequestReservedKey :=
    GetProcAddress(ScHandle, 'SimConnect_RequestReservedKey');
  SimConnect_RequestResponseTimes :=
    GetProcAddress(ScHandle, 'SimConnect_RequestResponseTimes');
  SimConnect_RequestSystemState :=
    GetProcAddress(ScHandle, 'SimConnect_RequestSystemState');
  SimConnect_RetrieveString :=
    GetProcAddress(ScHandle, 'SimConnect_RetrieveString');
  SimConnect_SetClientData :=
    GetProcAddress(ScHandle, 'SimConnect_SetClientData');
  SimConnect_SetDataOnSimObject :=
    GetProcAddress(ScHandle, 'SimConnect_SetDataOnSimObject');
  SimConnect_SetInputGroupPriority :=
    GetProcAddress(ScHandle, 'SimConnect_SetInputGroupPriority');
  SimConnect_SetInputGroupState :=
    GetProcAddress(ScHandle, 'SimConnect_SetInputGroupState');
  SimConnect_SetNotificationGroupPriority :=
    GetProcAddress(ScHandle, 'SimConnect_SetNotificationGroupPriority');
  SimConnect_SetNotificationGroupPriority :=
    GetProcAddress(ScHandle, 'SimConnect_SetNotificationGroupPriority');
  SimConnect_SetNotificationGroupPriority :=
    GetProcAddress(ScHandle, 'SimConnect_SetNotificationGroupPriority');
  SimConnect_SetSystemEventState :=
    GetProcAddress(ScHandle, 'SimConnect_SetSystemEventState');
  SimConnect_SetSystemState :=
    GetProcAddress(ScHandle, 'SimConnect_SetSystemState');
  SimConnect_SubscribeToSystemEvent :=
    GetProcAddress(ScHandle, 'SimConnect_SubscribeToSystemEvent');
  SimConnect_TransmitClientEvent :=
    GetProcAddress(ScHandle, 'SimConnect_TransmitClientEvent');
  SimConnect_UnsubscribeFromSystemEvent :=
    GetProcAddress(ScHandle, 'SimConnect_UnsubscribeFromSystemEvent');
  SimConnect_WeatherCreateStation :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherCreateStation');
  SimConnect_WeatherCreateThermal :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherCreateThermal');
  SimConnect_WeatherRemoveStation :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherRemoveStation');
  SimConnect_WeatherRemoveThermal :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherRemoveThermal');
  SimConnect_WeatherRequestCloudState :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherRequestCloudState');
  SimConnect_WeatherRequestInterpolatedObservation :=
    GetProcAddress(ScHandle,
    'SimConnect_WeatherRequestInterpolatedObservation');
  SimConnect_WeatherRequestObservationAtNearestStation :=
    GetProcAddress(ScHandle,
    'SimConnect_WeatherRequestObservationAtNearestStation');
  SimConnect_WeatherRequestObservationAtStation :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherRequestObservationAtStation');
  SimConnect_WeatherSetDynamicUpdateRate :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherSetDynamicUpdateRate');
  SimConnect_WeatherSetModeCustom :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherSetModeCustom');
  SimConnect_WeatherSetModeGlobal :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherSetModeGlobal');
  SimConnect_WeatherSetModeServer :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherSetModeServer');
  SimConnect_WeatherSetModeTheme :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherSetModeTheme');
  SimConnect_WeatherSetObservation :=
    GetProcAddress(ScHandle, 'SimConnect_WeatherSetObservation');
end;

{-----------------------------------------------------------------------------
  Procedure: ClearProcAddresses
  Author:    ken.adam
  Date:      27-Jan-2007
  Arguments: None
  Result:    None
-----------------------------------------------------------------------------}

procedure ClearProcAddresses;
begin
  SimConnect_AddClientEventToNotificationGroup := nil;
  SimConnect_AddToClientDataDefinition := nil;
  SimConnect_AddToDataDefinition := nil;
  SimConnect_AICreateEnrouteATCAircraft := nil;
  SimConnect_AICreateNonATCAircraft := nil;
  SimConnect_AICreateParkedATCAircraft := nil;
  SimConnect_AICreateSimulatedObject := nil;
  SimConnect_AIReleaseControl := nil;
  SimConnect_AIRemoveObject := nil;
  SimConnect_AISetAircraftFlightPlan := nil;
  SimConnect_CallDispatch := nil;
  SimConnect_CameraSetRelative6DOF := nil;
  SimConnect_ClearClientDataDefinition := nil;
  SimConnect_ClearDataDefinition := nil;
  SimConnect_ClearInputGroup := nil;
  SimConnect_Close := nil;
  SimConnect_CompleteCustomMissionAction := nil;
  SimConnect_CreateClientData := nil;
  SimConnect_ExecuteMissionAction := nil;
  SimConnect_FlightLoad := nil;
  SimConnect_FlightPlanLoad := nil;
  SimConnect_FlightSave := nil;
  SimConnect_GetLastSentPacketID := nil;
  SimConnect_GetNextDispatch := nil;
  SimConnect_InsertString := nil;
  SimConnect_MapClientDataNameToID := nil;
  SimConnect_MapClientEventToSimEvent := nil;
  SimConnect_MapInputEventToClientEvent := nil;
  SimConnect_MenuAddItem := nil;
  SimConnect_MenuAddSubItem := nil;
  SimConnect_MenuDeleteItem := nil;
  SimConnect_MenuDeleteSubItem := nil;
  SimConnect_Open := nil;
  SimConnect_RemoveClientEvent := nil;
  SimConnect_RemoveInputEvent := nil;
  SimConnect_RequestClientData := nil;
  SimConnect_RequestDataOnSimObject := nil;
  SimConnect_RequestDataOnSimObjectType := nil;
  SimConnect_RequestReservedKey := nil;
  SimConnect_RequestResponseTimes := nil;
  SimConnect_RequestSystemState := nil;
  SimConnect_RetrieveString := nil;
  SimConnect_SetClientData := nil;
  SimConnect_SetDataOnSimObject := nil;
  SimConnect_SetInputGroupPriority := nil;
  SimConnect_SetInputGroupState := nil;
  SimConnect_SetNotificationGroupPriority := nil;
  SimConnect_SetSystemEventState := nil;
  SimConnect_SetSystemState := nil;
  SimConnect_SubscribeToSystemEvent := nil;
  SimConnect_TransmitClientEvent := nil;
  SimConnect_UnsubscribeFromSystemEvent := nil;
  SimConnect_WeatherCreateStation := nil;
  SimConnect_WeatherCreateThermal := nil;
  SimConnect_WeatherRemoveStation := nil;
  SimConnect_WeatherRemoveThermal := nil;
  SimConnect_WeatherRequestCloudState := nil;
  SimConnect_WeatherRequestInterpolatedObservation := nil;
  SimConnect_WeatherRequestObservationAtNearestStation := nil;
  SimConnect_WeatherRequestObservationAtStation := nil;
  SimConnect_WeatherSetDynamicUpdateRate := nil;
  SimConnect_WeatherSetModeCustom := nil;
  SimConnect_WeatherSetModeGlobal := nil;
  SimConnect_WeatherSetModeServer := nil;
  SimConnect_WeatherSetModeTheme := nil;
  SimConnect_WeatherSetObservation := nil;
end;

{-----------------------------------------------------------------------------
  Procedure: CloseSimConnect
  Author:    ken.adam
  Date:      27-Jan-2007
  Arguments: None
  Result:    None
-----------------------------------------------------------------------------}

procedure CloseSimConnect;
begin
  if ScHandle <> 0 then
  begin
    FreeLibrary(ScHandle);
    ScHandle := 0;
  end;
  ClearProcAddresses;
end;

{-----------------------------------------------------------------------------
  Procedure: InitSimConnectFromLibrary
  Author:    ken.adam
  Date:      27-Jan-2007
  Arguments: Name: string
  Result:    boolean
-----------------------------------------------------------------------------}

function InitSimConnectFromLibrary(Name: string): boolean;
begin
  Result := False;
  CloseSimConnect;
  ScHandle := LoadLibrary(PChar(Name));
  if ScHandle <> 0 then
  begin
    LoadProcAddresses;
    Result := True;
  end;
end;

{-----------------------------------------------------------------------------
  Procedure: InitSimConnect
  Author:    ken.adam
  Date:      27-Jan-2007
  Arguments: None
  Result:    boolean
-----------------------------------------------------------------------------}

function InitSimConnect: boolean;
begin
  if ScHandle = 0 then
    Result := InitSimConnectFromLibrary('SimConnect.dll')
  else
    Result := True;
end;

{-----------------------------------------------------------------------------
  Procedure: IsSimConnectInitialized
  Author:    ken.adam
  Date:      27-Jan-2007
  Arguments: None
  Result:    Boolean
-----------------------------------------------------------------------------}

function IsSimConnectInitialized: Boolean;
begin
  Result := ScHandle <> 0;
end;

initialization
  ScHandle := 0;
finalization
  CloseSimConnect;
end.