KOL merged with Libs

git-svn-id: http://svn.miranda-ng.org/main/trunk@1849 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 0 insertions, 2316 deletions

diff --git a/plugins/ImportTXT/kol/KOL_ansi.inc b/plugins/ImportTXT/kol/KOL_ansi.inc
deleted file mode 100644
index b40ef014c7..0000000000
--- a/plugins/ImportTXT/kol/KOL_ansi.inc
+++ /dev/null
@@ -1,2316 +0,0 @@
-{*******************************************************************************

-  KOL_unicode.inc

- Some redeclarations from Windows.pas for case, when UNICODE_CTRLS symbol is off.

-*******************************************************************************}

-{$IFDEF interface_part} ////////////////////////////////////////////////////////

-  //// for D3 gumno

-type

-  PRecoveryAgentInformationA = ^TRecoveryAgentInformationA;

-  PRecoveryAgentInformationW = ^TRecoveryAgentInformationW;

-  PRecoveryAgentInformation = PRecoveryAgentInformationA;

-  _RECOVERY_AGENT_INFORMATIONA = record

-    NextEntryOffset: DWORD;

-    AgentNameLength: DWORD;

-    AgentInformation: array[0..0] of AnsiChar;

-  end;

-  //// _RECOVERY_AGENT_INFORMATIONA}

-  _RECOVERY_AGENT_INFORMATIONW = record

-    NextEntryOffset: DWORD;

-    AgentNameLength: DWORD;

-    AgentInformation: array[0..0] of WideChar;

-  end;

-  //// _RECOVERY_AGENT_INFORMATIONW}

-  _RECOVERY_AGENT_INFORMATION = _RECOVERY_AGENT_INFORMATIONA;

-  TRecoveryAgentInformationA = _RECOVERY_AGENT_INFORMATIONA;

-  TRecoveryAgentInformationW = _RECOVERY_AGENT_INFORMATIONW;

-  TRecoveryAgentInformation = TRecoveryAgentInformationA;

-  RECOVERY_AGENT_INFORMATIONA = _RECOVERY_AGENT_INFORMATIONA;

-  //// RECOVERY_AGENT_INFORMATIONA}

-  RECOVERY_AGENT_INFORMATIONW = _RECOVERY_AGENT_INFORMATIONW;

-  //// RECOVERY_AGENT_INFORMATIONW}

-  RECOVERY_AGENT_INFORMATION = RECOVERY_AGENT_INFORMATIONA;

-  //

-  PTextMetricA = ^TTextMetricA;

-  PTextMetricW = ^TTextMetricW;

-  PTextMetric = PTextMetricA;

-  tagTEXTMETRICA = record

-    tmHeight: Longint;

-    tmAscent: Longint;

-    tmDescent: Longint;

-    tmInternalLeading: Longint;

-    tmExternalLeading: Longint;

-    tmAveCharWidth: Longint;

-    tmMaxCharWidth: Longint;

-    tmWeight: Longint;

-    tmOverhang: Longint;

-    tmDigitizedAspectX: Longint;

-    tmDigitizedAspectY: Longint;

-    tmFirstChar: AnsiChar;

-    tmLastChar: AnsiChar;

-    tmDefaultChar: AnsiChar;

-    tmBreakChar: AnsiChar;

-    tmItalic: Byte;

-    tmUnderlined: Byte;

-    tmStruckOut: Byte;

-    tmPitchAndFamily: Byte;

-    tmCharSet: Byte;

-  end;

-  tagTEXTMETRICW = record

-    tmHeight: Longint;

-    tmAscent: Longint;

-    tmDescent: Longint;

-    tmInternalLeading: Longint;

-    tmExternalLeading: Longint;

-    tmAveCharWidth: Longint;

-    tmMaxCharWidth: Longint;

-    tmWeight: Longint;

-    tmOverhang: Longint;

-    tmDigitizedAspectX: Longint;

-    tmDigitizedAspectY: Longint;

-    tmFirstChar: WideChar;

-    tmLastChar: WideChar;

-    tmDefaultChar: WideChar;

-    tmBreakChar: WideChar;

-    tmItalic: Byte;

-    tmUnderlined: Byte;

-    tmStruckOut: Byte;

-    tmPitchAndFamily: Byte;

-    tmCharSet: Byte;

-  end;

-  tagTEXTMETRIC = tagTEXTMETRICA;

-  TTextMetricA = tagTEXTMETRICA;

-  TTextMetricW = tagTEXTMETRICW;

-  TTextMetric = TTextMetricA;

-  TEXTMETRICA = tagTEXTMETRICA;

-  TEXTMETRICW = tagTEXTMETRICW;

-  TEXTMETRIC = TEXTMETRICA;

-  ///

-  PNewTextMetricA = ^TNewTextMetricA;

-  PNewTextMetricW = ^TNewTextMetricW;

-  PNewTextMetric = PNewTextMetricA;

-  //// tagNEWTEXTMETRICA}

-  tagNEWTEXTMETRICA = record

-    tmHeight: Longint;

-    tmAscent: Longint;

-    tmDescent: Longint;

-    tmInternalLeading: Longint;

-    tmExternalLeading: Longint;

-    tmAveCharWidth: Longint;

-    tmMaxCharWidth: Longint;

-    tmWeight: Longint;

-    tmOverhang: Longint;

-    tmDigitizedAspectX: Longint;

-    tmDigitizedAspectY: Longint;

-    tmFirstChar: AnsiChar;

-    tmLastChar: AnsiChar;

-    tmDefaultChar: AnsiChar;

-    tmBreakChar: AnsiChar;

-    tmItalic: Byte;

-    tmUnderlined: Byte;

-    tmStruckOut: Byte;

-    tmPitchAndFamily: Byte;

-    tmCharSet: Byte;

-    ntmFlags: DWORD;

-    ntmSizeEM: UINT;

-    ntmCellHeight: UINT;

-    ntmAvgWidth: UINT;

-  end;

-  //// tagNEWTEXTMETRICW}

-  tagNEWTEXTMETRICW = record

-    tmHeight: Longint;

-    tmAscent: Longint;

-    tmDescent: Longint;

-    tmInternalLeading: Longint;

-    tmExternalLeading: Longint;

-    tmAveCharWidth: Longint;

-    tmMaxCharWidth: Longint;

-    tmWeight: Longint;

-    tmOverhang: Longint;

-    tmDigitizedAspectX: Longint;

-    tmDigitizedAspectY: Longint;

-    tmFirstChar: WideChar;

-    tmLastChar: WideChar;

-    tmDefaultChar: WideChar;

-    tmBreakChar: WideChar;

-    tmItalic: Byte;

-    tmUnderlined: Byte;

-    tmStruckOut: Byte;

-    tmPitchAndFamily: Byte;

-    tmCharSet: Byte;

-    ntmFlags: DWORD;

-    ntmSizeEM: UINT;

-    ntmCellHeight: UINT;

-    ntmAvgWidth: UINT;

-  end;

-  // tagNEWTEXTMETRIC}

-  tagNEWTEXTMETRIC = tagNEWTEXTMETRICA;

-  TNewTextMetricA = tagNEWTEXTMETRICA;

-  TNewTextMetricW = tagNEWTEXTMETRICW;

-  TNewTextMetric = TNewTextMetricA;

-  // NEWTEXTMETRICA}

-  NEWTEXTMETRICA = tagNEWTEXTMETRICA;

-  // NEWTEXTMETRICW}

-  NEWTEXTMETRICW = tagNEWTEXTMETRICW;

-  // NEWTEXTMETRIC}

-  NEWTEXTMETRIC = NEWTEXTMETRICA;

-  PNewTextMetricExA = ^TNewTextMetricExA;

-  // tagNEWTEXTMETRICEXA}

-  tagNEWTEXTMETRICEXA = packed record

-    ntmTm: TNewTextMetricA;

-    ntmFontSig: TFontSignature;

-  end;

-  TNewTextMetricExA = tagNEWTEXTMETRICEXA;

-  // NEWTEXTMETRICEXA}

-  NEWTEXTMETRICEXA = tagNEWTEXTMETRICEXA;

-  PNewTextMetricExW = ^TNewTextMetricExW;

-  // tagNEWTEXTMETRICEXW}

-  tagNEWTEXTMETRICEXW = packed record

-    ntmTm: TNewTextMetricW;

-    ntmFontSig: TFontSignature;

-  end;

-  TNewTextMetricExW = tagNEWTEXTMETRICEXW;

-  // NEWTEXTMETRICEXW}

-  NEWTEXTMETRICEXW = tagNEWTEXTMETRICEXW;

-  PNewTextMetricEx = PNewTextMetricExA;

-  { Structure passed to FONTENUMPROC }

-  PEnumLogFontA = ^TEnumLogFontA;

-  PEnumLogFontW = ^TEnumLogFontW;

-  PEnumLogFont = PEnumLogFontA;

-  // tagENUMLOGFONTA}

-  tagENUMLOGFONTA = packed record

-    elfLogFont: TLogFontA;

-    elfFullName: array[0..LF_FULLFACESIZE - 1] of AnsiChar;

-    elfStyle: array[0..LF_FACESIZE - 1] of AnsiChar;

-  end;

-  // tagENUMLOGFONTW}

-  tagENUMLOGFONTW = packed record

-    elfLogFont: TLogFontW;

-    elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;

-    elfStyle: array[0..LF_FACESIZE - 1] of WideChar;

-  end;

-  // tagENUMLOGFONT}

-  tagENUMLOGFONT = tagENUMLOGFONTA;

-  TEnumLogFontA = tagENUMLOGFONTA;

-  TEnumLogFontW = tagENUMLOGFONTW;

-  TEnumLogFont = TEnumLogFontA;

-  // ENUMLOGFONTA}

-  ENUMLOGFONTA = tagENUMLOGFONTA;

-  // ENUMLOGFONTW}

-  ENUMLOGFONTW = tagENUMLOGFONTW;

-  // ENUMLOGFONT}

-  ENUMLOGFONT = ENUMLOGFONTA;

-  PEnumLogFontExA = ^TEnumLogFontExA;

-  PEnumLogFontExW = ^TEnumLogFontExW;

-  PEnumLogFontEx = PEnumLogFontExA;

-  // tagENUMLOGFONTEXA}

-  tagENUMLOGFONTEXA = packed record

-    elfLogFont: TLogFontA;

-    elfFullName: array[0..LF_FULLFACESIZE - 1] of AnsiChar;

-    elfStyle: array[0..LF_FACESIZE - 1] of AnsiChar;

-    elfScript: array[0..LF_FACESIZE - 1] of AnsiChar;

-  end;

-  // tagENUMLOGFONTEXW}

-  tagENUMLOGFONTEXW = packed record

-    elfLogFont: TLogFontW;

-    elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;

-    elfStyle: array[0..LF_FACESIZE - 1] of WideChar;

-    elfScript: array[0..LF_FACESIZE - 1] of WideChar;

-  end;

-  // tagENUMLOGFONTEX}

-  tagENUMLOGFONTEX = tagENUMLOGFONTEXA;

-  TEnumLogFontExA = tagENUMLOGFONTEXA;

-  TEnumLogFontExW = tagENUMLOGFONTEXW;

-  TEnumLogFontEx = TEnumLogFontExA;

-  // ENUMLOGFONTEXA}

-  ENUMLOGFONTEXA = tagENUMLOGFONTEXA;

-  // ENUMLOGFONTEXW}

-  ENUMLOGFONTEXW = tagENUMLOGFONTEXW;

-  // ENUMLOGFONTEX}

-  ENUMLOGFONTEX = ENUMLOGFONTEXA;

-  PExtLogFontA = ^TExtLogFontA;

-  PExtLogFontW = ^TExtLogFontW;

-  PExtLogFont = PExtLogFontA;

-  // tagEXTLOGFONTA}

-  tagEXTLOGFONTA = record

-    elfLogFont: TLogFontA;

-    elfFullName: array[0..LF_FULLFACESIZE - 1] of AnsiChar;

-    elfStyle: array[0..LF_FACESIZE - 1] of AnsiChar;

-    elfVersion: DWORD;     { 0 for the first release of NT }

-    elfStyleSize: DWORD;

-    elfMatch: DWORD;

-    elfReserved: DWORD;

-    elfVendorId: array[0..ELF_VENDOR_SIZE - 1] of Byte;

-    elfCulture: DWORD;     { 0 for Latin }

-    elfPanose: TPanose;

-  end;

-  // tagEXTLOGFONTW}

-  tagEXTLOGFONTW = record

-    elfLogFont: TLogFontW;

-    elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;

-    elfStyle: array[0..LF_FACESIZE - 1] of WideChar;

-    elfVersion: DWORD;     { 0 for the first release of NT }

-    elfStyleSize: DWORD;

-    elfMatch: DWORD;

-    elfReserved: DWORD;

-    elfVendorId: array[0..ELF_VENDOR_SIZE - 1] of Byte;

-    elfCulture: DWORD;     { 0 for Latin }

-    elfPanose: TPanose;

-  end;

-  // tagEXTLOGFONT}

-  tagEXTLOGFONT = tagEXTLOGFONTA;

-  TExtLogFontA = tagEXTLOGFONTA;

-  TExtLogFontW = tagEXTLOGFONTW;

-  TExtLogFont = TExtLogFontA;

-  // EXTLOGFONTA}

-  EXTLOGFONTA = tagEXTLOGFONTA;

-  // EXTLOGFONTW}

-  EXTLOGFONTW = tagEXTLOGFONTW;

-  // EXTLOGFONT}

-  EXTLOGFONT = EXTLOGFONTA;

-  PDisplayDeviceA = ^TDisplayDeviceA;

-  PDisplayDeviceW = ^TDisplayDeviceW;

-  PDisplayDevice = PDisplayDeviceA;

-  // _DISPLAY_DEVICEA}

-  _DISPLAY_DEVICEA = packed record

-    cb: DWORD;

-    DeviceName: array[0..31] of AnsiChar;

-    DeviceString: array[0..127] of AnsiChar;

-    StateFlags: DWORD;

-  end;

-  // _DISPLAY_DEVICEW}

-  _DISPLAY_DEVICEW = packed record

-    cb: DWORD;

-    DeviceName: array[0..31] of WideChar;

-    DeviceString: array[0..127] of WideChar;

-    StateFlags: DWORD;

-  end;

-  // _DISPLAY_DEVICE}

-  _DISPLAY_DEVICE = _DISPLAY_DEVICEA;

-  TDisplayDeviceA = _DISPLAY_DEVICEA;

-  TDisplayDeviceW = _DISPLAY_DEVICEW;

-  TDisplayDevice = TDisplayDeviceA;

-  POutlineTextmetricA = ^TOutlineTextmetricA;

-  POutlineTextmetricW = ^TOutlineTextmetricW;

-  POutlineTextmetric = POutlineTextmetricA;

-  // _OUTLINETEXTMETRICA}

-  _OUTLINETEXTMETRICA = record

-    otmSize: UINT;

-    otmTextMetrics: TTextMetricA;

-    otmFiller: Byte;

-    otmPanoseNumber: TPanose;

-    otmfsSelection: UINT;

-    otmfsType: UINT;

-    otmsCharSlopeRise: Integer;

-    otmsCharSlopeRun: Integer;

-    otmItalicAngle: Integer;

-    otmEMSquare: UINT;

-    otmAscent: Integer;

-    otmDescent: Integer;

-    otmLineGap: UINT;

-    otmsCapEmHeight: UINT;

-    otmsXHeight: UINT;

-    otmrcFontBox: TRect;

-    otmMacAscent: Integer;

-    otmMacDescent: Integer;

-    otmMacLineGap: UINT;

-    otmusMinimumPPEM: UINT;

-    otmptSubscriptSize: TPoint;

-    otmptSubscriptOffset: TPoint;

-    otmptSuperscriptSize: TPoint;

-    otmptSuperscriptOffset: TPoint;

-    otmsStrikeoutSize: UINT;

-    otmsStrikeoutPosition: Integer;

-    otmsUnderscoreSize: Integer;

-    otmsUnderscorePosition: Integer;

-    otmpFamilyName: PAnsiChar;

-    otmpFaceName: PAnsiChar;

-    otmpStyleName: PAnsiChar;

-    otmpFullName: PAnsiChar;

-  end;

-  // _OUTLINETEXTMETRICW}

-  _OUTLINETEXTMETRICW = record

-    otmSize: UINT;

-    otmTextMetrics: TTextMetricW;

-    otmFiller: Byte;

-    otmPanoseNumber: TPanose;

-    otmfsSelection: UINT;

-    otmfsType: UINT;

-    otmsCharSlopeRise: Integer;

-    otmsCharSlopeRun: Integer;

-    otmItalicAngle: Integer;

-    otmEMSquare: UINT;

-    otmAscent: Integer;

-    otmDescent: Integer;

-    otmLineGap: UINT;

-    otmsCapEmHeight: UINT;

-    otmsXHeight: UINT;

-    otmrcFontBox: TRect;

-    otmMacAscent: Integer;

-    otmMacDescent: Integer;

-    otmMacLineGap: UINT;

-    otmusMinimumPPEM: UINT;

-    otmptSubscriptSize: TPoint;

-    otmptSubscriptOffset: TPoint;

-    otmptSuperscriptSize: TPoint;

-    otmptSuperscriptOffset: TPoint;

-    otmsStrikeoutSize: UINT;

-    otmsStrikeoutPosition: Integer;

-    otmsUnderscoreSize: Integer;

-    otmsUnderscorePosition: Integer;

-    otmpFamilyName: PWideChar;

-    otmpFaceName: PWideChar;

-    otmpStyleName: PWideChar;

-    otmpFullName: PWideChar;

-  end;

-  // _OUTLINETEXTMETRIC}

-  _OUTLINETEXTMETRIC = _OUTLINETEXTMETRICA;

-  TOutlineTextmetricA = _OUTLINETEXTMETRICA;

-  TOutlineTextmetricW = _OUTLINETEXTMETRICW;

-  TOutlineTextmetric = TOutlineTextmetricA;

-  // OUTLINETEXTMETRICA}

-  OUTLINETEXTMETRICA = _OUTLINETEXTMETRICA;

-  // OUTLINETEXTMETRICW}

-  OUTLINETEXTMETRICW = _OUTLINETEXTMETRICW;

-  // OUTLINETEXTMETRIC}

-  OUTLINETEXTMETRIC = OUTLINETEXTMETRICA;

-  PPolyTextA = ^TPolyTextA;

-  PPolyTextW = ^TPolyTextW;

-  PPolyText = PPolyTextA;

-  // tagPOLYTEXTA}

-  tagPOLYTEXTA = packed record

-    x: Integer;

-    y: Integer;

-    n: UINT;

-    PAnsiChar: PAnsiChar;

-    uiFlags: UINT;

-    rcl: TRect;

-    pdx: PINT;

-  end;

-  // tagPOLYTEXTW}

-  tagPOLYTEXTW = packed record

-    x: Integer;

-    y: Integer;

-    n: UINT;

-    PAnsiChar: PWideChar;

-    uiFlags: UINT;

-    rcl: TRect;

-    pdx: PINT;

-  end;

-  // tagPOLYTEXT}

-  tagPOLYTEXT = tagPOLYTEXTA;

-  TPolyTextA = tagPOLYTEXTA;

-  TPolyTextW = tagPOLYTEXTW;

-  TPolyText = TPolyTextA;

-  // POLYTEXTA}

-  POLYTEXTA = tagPOLYTEXTA;

-  // POLYTEXTW}

-  POLYTEXTW = tagPOLYTEXTW;

-  // POLYTEXT}

-  POLYTEXT = POLYTEXTA;

-    PGCPResultsA = ^TGCPResultsA;

-  PGCPResultsW = ^TGCPResultsW;

-  PGCPResults = PGCPResultsA;

-  // tagGCP_RESULTSA}

-  tagGCP_RESULTSA = packed record

-    lStructSize: DWORD;

-    lpOutString: PAnsiChar;

-    lpOrder: PUINT;

-    lpDx: PINT;

-    lpCaretPos: PINT;

-    lpClass: PAnsiChar;

-    lpGlyphs: PUINT;

-    nGlyphs: UINT;

-    nMaxFit: Integer;

-  end;

-  // tagGCP_RESULTSW}

-  tagGCP_RESULTSW = packed record

-    lStructSize: DWORD;

-    lpOutString: PWideChar;

-    lpOrder: PUINT;

-    lpDx: PINT;

-    lpCaretPos: PINT;

-    lpClass: PWideChar;

-    lpGlyphs: PUINT;

-    nGlyphs: UINT;

-    nMaxFit: Integer;

-  end;

-  // tagGCP_RESULTS}

-  tagGCP_RESULTS = tagGCP_RESULTSA;

-  TGCPResultsA = tagGCP_RESULTSA;

-  TGCPResultsW = tagGCP_RESULTSW;

-  TGCPResults = TGCPResultsA;

-  // GCP_RESULTSA}

-  GCP_RESULTSA = tagGCP_RESULTSA;

-  // GCP_RESULTSW}

-  GCP_RESULTSW = tagGCP_RESULTSW;

-  // GCP_RESULTS}

-  GCP_RESULTS = GCP_RESULTSA;

-const

-  MM_MAX_AXES_NAMELEN = 16;

-  MM_MAX_NUMAXES = 16;

-type

-  PAxisInfoA = ^TAxisInfoA;

-  tagAXISINFOA = packed record

-    axMinValue: Longint;

-    axMaxValue: Longint;

-    axAxisName: array[0..MM_MAX_AXES_NAMELEN-1] of AnsiChar;

-  end;

-  TAxisInfoA = tagAXISINFOA;

-  PAxisInfoW = ^TAxisInfoW;

-  // tagAXISINFOW}

-  tagAXISINFOW = packed record

-    axMinValue: Longint;

-    axMaxValue: Longint;

-    axAxisName: array[0..MM_MAX_AXES_NAMELEN-1] of WideChar;

-  end;

-  TAxisInfoW = tagAXISINFOW;

-  PAxisInfo = PAxisInfoA;

-  PAxesListA = ^TAxesListA;

-  // tagAXESLISTA}

-  tagAXESLISTA = packed record

-    axlReserved: DWORD;

-    axlNumAxes: DWORD;

-    axlAxisInfo: array[0..MM_MAX_NUMAXES-1] of TAxisInfoA;

-  end;

-  TAxesListA = tagAXESLISTA;

-  PAxesListW = ^TAxesListW;

-  // tagAXESLISTW}

-  tagAXESLISTW = packed record

-    axlReserved: DWORD;

-    axlNumAxes: DWORD;

-    axlAxisInfo: array[0..MM_MAX_NUMAXES-1] of TAxisInfoW;

-  end;

-  TAxesListW = tagAXESLISTW;

-  PAxesList = PAxesListA;

-  PEnumLogFontExDVA = ^TEnumLogFontExDVA;

-  PDesignVector = ^TDesignVector;

-  tagDESIGNVECTOR = packed record

-    dvReserved: DWORD;

-    dvNumAxes: DWORD;

-    dvValues: array[0..MM_MAX_NUMAXES-1] of Longint;

-  end;

-  TDesignVector = tagDESIGNVECTOR;

-  tagENUMLOGFONTEXDVA = packed record

-    elfEnumLogfontEx: TEnumLogFontExA;

-    elfDesignVector: TDesignVector;

-  end;

-  TEnumLogFontExDVA = tagENUMLOGFONTEXDVA;

-  PEnumLogFontExDVW = ^TEnumLogFontExDVW;

-  // tagENUMLOGFONTEXDVW}

-  tagENUMLOGFONTEXDVW = packed record

-    elfEnumLogfontEx: TEnumLogFontExW;

-    elfDesignVector: TDesignVector;

-  end;

-  TEnumLogFontExDVW = tagENUMLOGFONTEXDVW;

-  PEnumLogFontExDV = PEnumLogFontExDVA;

-  PEnumTextMetricA = ^TEnumTextMetricA;

-  // tagENUMTEXTMETRICA}

-  tagENUMTEXTMETRICA = packed record

-    etmNewTextMetricEx: TNewTextMetricExA;

-    etmAxesList: TAxesListA;

-  end;

-  TEnumTextMetricA = tagENUMTEXTMETRICA;

-  PEnumTextMetricW = ^TEnumTextMetricW;

-  // tagENUMTEXTMETRICW}

-  tagENUMTEXTMETRICW = packed record

-    etmNewTextMetricEx: TNewTextMetricExW;

-    etmAxesList: TAxesListW;

-  end;

-  TEnumTextMetricW = tagENUMTEXTMETRICW;

-  PEnumTextMetric = PEnumTextMetricA;

-  PDocInfoA = ^TDocInfoA;

-  PDocInfoW = ^TDocInfoW;

-  PDocInfo = PDocInfoA;

-  // _DOCINFOA}

-  _DOCINFOA = packed record

-    cbSize: Integer;

-    lpszDocName: PAnsiChar;

-    lpszOutput: PAnsiChar;

-    lpszDatatype: PAnsiChar;

-    fwType: DWORD;

-  end;

-  // _DOCINFOW}

-  _DOCINFOW = packed record

-    cbSize: Integer;

-    lpszDocName: PWideChar;

-    lpszOutput: PWideChar;

-    lpszDatatype: PWideChar;

-    fwType: DWORD;

-  end;

-  // _DOCINFO}

-  _DOCINFO = _DOCINFOA;

-  TDocInfoA = _DOCINFOA;

-  TDocInfoW = _DOCINFOW;

-  TDocInfo = TDocInfoA;

-  // DOCINFOA}

-  DOCINFOA = _DOCINFOA;

-  // DOCINFOW}

-  DOCINFOW = _DOCINFOW;

-  // DOCINFO}

-  DOCINFO = DOCINFOA;

-  PCreateStructA = ^TCreateStructA;

-  PCreateStructW = ^TCreateStructW;

-  PCreateStruct = PCreateStructA;

-  // tagCREATESTRUCTA}

-  tagCREATESTRUCTA = packed record

-    lpCreateParams: Pointer;

-    hInstance: HINST;

-    hMenu: HMENU;

-    hwndParent: HWND;

-    cy: Integer;

-    cx: Integer;

-    y: Integer;

-    x: Integer;

-    style: Longint;

-    lpszName: PAnsiChar;

-    lpszClass: PAnsiChar;

-    dwExStyle: DWORD;

-  end;

-  // tagCREATESTRUCTW}

-  tagCREATESTRUCTW = packed record

-    lpCreateParams: Pointer;

-    hInstance: HINST;

-    hMenu: HMENU;

-    hwndParent: HWND;

-    cy: Integer;

-    cx: Integer;

-    y: Integer;

-    x: Integer;

-    style: Longint;

-    lpszName: PWideChar;

-    lpszClass: PWideChar;

-    dwExStyle: DWORD;

-  end;

-  // tagCREATESTRUCT}

-  tagCREATESTRUCT = tagCREATESTRUCTA;

-  TCreateStructA = tagCREATESTRUCTA;

-  TCreateStructW = tagCREATESTRUCTW;

-  TCreateStruct = TCreateStructA;

-  // CREATESTRUCTA}

-  CREATESTRUCTA = tagCREATESTRUCTA;

-  // CREATESTRUCTW}

-  CREATESTRUCTW = tagCREATESTRUCTW;

-  // CREATESTRUCT}

-  CREATESTRUCT = CREATESTRUCTA;

-  PWndClassExA = ^TWndClassExA;

-  PWndClassExW = ^TWndClassExW;

-  PWndClassEx = PWndClassExA;

-  // tagWNDCLASSEXA}

-  tagWNDCLASSEXA = packed record

-    cbSize: UINT;

-    style: UINT;

-    lpfnWndProc: TFNWndProc;

-    cbClsExtra: Integer;

-    cbWndExtra: Integer;

-    hInstance: HINST;

-    hIcon: HICON;

-    hCursor: HCURSOR;

-    hbrBackground: HBRUSH;

-    lpszMenuName: PAnsiChar;

-    lpszClassName: PAnsiChar;

-    hIconSm: HICON;

-  end;

-  // tagWNDCLASSEXW}

-  tagWNDCLASSEXW = packed record

-    cbSize: UINT;

-    style: UINT;

-    lpfnWndProc: TFNWndProc;

-    cbClsExtra: Integer;

-    cbWndExtra: Integer;

-    hInstance: HINST;

-    hIcon: HICON;

-    hCursor: HCURSOR;

-    hbrBackground: HBRUSH;

-    lpszMenuName: PWideChar;

-    lpszClassName: PWideChar;

-    hIconSm: HICON;

-  end;

-  // tagWNDCLASSEX}

-  tagWNDCLASSEX = tagWNDCLASSEXA;

-  TWndClassExA = tagWNDCLASSEXA;

-  TWndClassExW = tagWNDCLASSEXW;

-  TWndClassEx = TWndClassExA;

-  // WNDCLASSEXA}

-  WNDCLASSEXA = tagWNDCLASSEXA;

-  // WNDCLASSEXW}

-  WNDCLASSEXW = tagWNDCLASSEXW;

-  // WNDCLASSEX}

-  WNDCLASSEX = WNDCLASSEXA;

-

-  PWndClassA = ^TWndClassA;

-  PWndClassW = ^TWndClassW;

-  PWndClass = PWndClassA;

-  // tagWNDCLASSA}

-  tagWNDCLASSA = packed record

-    style: UINT;

-    lpfnWndProc: TFNWndProc;

-    cbClsExtra: Integer;

-    cbWndExtra: Integer;

-    hInstance: HINST;

-    hIcon: HICON;

-    hCursor: HCURSOR;

-    hbrBackground: HBRUSH;

-    lpszMenuName: PAnsiChar;

-    lpszClassName: PAnsiChar;

-  end;

-  // tagWNDCLASSW}

-  tagWNDCLASSW = packed record

-    style: UINT;

-    lpfnWndProc: TFNWndProc;

-    cbClsExtra: Integer;

-    cbWndExtra: Integer;

-    hInstance: HINST;

-    hIcon: HICON;

-    hCursor: HCURSOR;

-    hbrBackground: HBRUSH;

-    lpszMenuName: PWideChar;

-    lpszClassName: PWideChar;

-  end;

-  // tagWNDCLASS}

-  tagWNDCLASS = tagWNDCLASSA;

-  TWndClassA = tagWNDCLASSA;

-  TWndClassW = tagWNDCLASSW;

-  TWndClass = TWndClassA;

-  // WNDCLASSA}

-  WNDCLASSA = tagWNDCLASSA;

-  // WNDCLASSW}

-  WNDCLASSW = tagWNDCLASSW;

-  // WNDCLASS}

-  WNDCLASS = WNDCLASSA;

-  HDEVNOTIFY = Pointer;

-  PHDEVNOTIFY = ^HDEVNOTIFY;

-  ////

-  MakeIntAtom = MakeIntAtomA;

-  PWin32FindData = PWin32FindDataA;

-  TWin32FindData = TWin32FindDataA;

-  {$IFDEF _D3orHigher}

-  PHWProfileInfo = PHWProfileInfoA;

-  THWProfileInfo = THWProfileInfoA;

-  {$ENDIF}

-  POSVersionInfo = POSVersionInfoA;

-  TOSVersionInfo = TOSVersionInfoA;

-  PLogColorSpace = PLogColorSpaceA;

-  TLogColorSpace = TLogColorSpaceA;

-  PLogFont = PLogFontA;

-  TLogFont = TLogFontA;

-  PDeviceMode = PDeviceModeA;

-  TDeviceMode = TDeviceModeA;

-  TFNOldFontEnumProc = TFNOldFontEnumProcA;

-  TFNFontEnumProc = TFNFontEnumProcA;

-  MakeIntResource = PAnsiChar; // MakeIntResourceA;

-  //PMenuItemInfo = PMenuItemInfoA;

-  //TMenuItemInfo = TMenuItemInfoA;

-  //MENUITEMINFO = MENUITEMINFOA;

-  PMsgBoxParams = PMsgBoxParamsA;

-  TMsgBoxParams = TMsgBoxParamsA;

-  PMsgBoxParamsA = ^TMsgBoxParamsA;

-  PMsgBoxParamsW = ^TMsgBoxParamsW;

-  // tagMSGBOXPARAMSA}

-  tagMSGBOXPARAMSA = packed record

-    cbSize: UINT;

-    hwndOwner: HWND;

-    hInstance: HINST;

-    lpszText: PAnsiChar;

-    lpszCaption: PAnsiChar;

-    dwStyle: DWORD;

-    lpszIcon: PAnsiChar;

-    dwContextHelpId: DWORD;

-    lpfnMsgBoxCallback: TPRMsgBoxCallback;

-    dwLanguageId: DWORD;

-  end;

-  // tagMSGBOXPARAMSW}

-  tagMSGBOXPARAMSW = packed record

-    cbSize: UINT;

-    hwndOwner: HWND;

-    hInstance: HINST;

-    lpszText: PWideChar;

-    lpszCaption: PWideChar;

-    dwStyle: DWORD;

-    lpszIcon: PWideChar;

-    dwContextHelpId: DWORD;

-    lpfnMsgBoxCallback: TPRMsgBoxCallback;

-    dwLanguageId: DWORD;

-  end;

-  // tagMSGBOXPARAMS}

-  tagMSGBOXPARAMS = tagMSGBOXPARAMSA;

-  TMsgBoxParamsA = tagMSGBOXPARAMSA;

-  TMsgBoxParamsW = tagMSGBOXPARAMSW;

-  // MSGBOXPARAMSA}

-  MSGBOXPARAMSA = tagMSGBOXPARAMSA;

-  // MSGBOXPARAMSW}

-  MSGBOXPARAMSW = tagMSGBOXPARAMSW;

-  // MSGBOXPARAMS}

-  MSGBOXPARAMS = MSGBOXPARAMSA;

-  PMDICreateStruct = PMDICreateStructA;

-  TMDICreateStruct = TMDICreateStructA;

-  PMultiKeyHelp = PMultiKeyHelpA;

-  TMultiKeyHelp = TMultiKeyHelpA;

-  // HELPPOLY}

-  HELPPOLY = DWORD;

-  PMultiKeyHelpA = ^TMultiKeyHelpA;

-  PMultiKeyHelpW = ^TMultiKeyHelpW;

-  // tagMULTIKEYHELPA}

-  tagMULTIKEYHELPA = record

-    mkSize: DWORD;

-    mkKeylist: AnsiChar;

-    szKeyphrase: array[0..0] of AnsiChar;

-  end;

-  // tagMULTIKEYHELPW}

-  tagMULTIKEYHELPW = record

-    mkSize: DWORD;

-    mkKeylist: WideChar;

-    szKeyphrase: array[0..0] of WideChar;

-  end;

-  // tagMULTIKEYHELP}

-  tagMULTIKEYHELP = tagMULTIKEYHELPA;

-  TMultiKeyHelpA = tagMULTIKEYHELPA;

-  TMultiKeyHelpW = tagMULTIKEYHELPW;

-  // MULTIKEYHELPA}

-  MULTIKEYHELPA = tagMULTIKEYHELPA;

-  // MULTIKEYHELPW}

-  MULTIKEYHELPW = tagMULTIKEYHELPW;

-  // MULTIKEYHELP}

-  MULTIKEYHELP = MULTIKEYHELPA;

-  PHelpWinInfoA = ^THelpWinInfoA;

-  PHelpWinInfoW = ^THelpWinInfoW;

-  PHelpWinInfo = PHelpWinInfoA;

-  // tagHELPWININFOA}

-  tagHELPWININFOA = record

-    wStructSize: Integer;

-    x: Integer;

-    y: Integer;

-    dx: Integer;

-    dy: Integer;

-    wMax: Integer;

-    rgchMember: array[0..1] of AnsiChar;

-  end;

-  // tagHELPWININFOW}

-  tagHELPWININFOW = record

-    wStructSize: Integer;

-    x: Integer;

-    y: Integer;

-    dx: Integer;

-    dy: Integer;

-    wMax: Integer;

-    rgchMember: array[0..1] of WideChar;

-  end;

-  // tagHELPWININFO}

-  tagHELPWININFO = tagHELPWININFOA;

-  THelpWinInfoA = tagHELPWININFOA;

-  THelpWinInfoW = tagHELPWININFOW;

-  THelpWinInfo = THelpWinInfoA;

-  // HELPWININFOA}

-  HELPWININFOA = tagHELPWININFOA;

-  // HELPWININFOW}

-  HELPWININFOW = tagHELPWININFOW;

-  // HELPWININFO}

-  HELPWININFO = HELPWININFOA;

-  // tagNONCLIENTMETRICSA}

-  tagNONCLIENTMETRICSA = packed record

-    cbSize: UINT;

-    iBorderWidth: Integer;

-    iScrollWidth: Integer;

-    iScrollHeight: Integer;

-    iCaptionWidth: Integer;

-    iCaptionHeight: Integer;

-    lfCaptionFont: TLogFontA;

-    iSmCaptionWidth: Integer;

-    iSmCaptionHeight: Integer;

-    lfSmCaptionFont: TLogFontA;

-    iMenuWidth: Integer;

-    iMenuHeight: Integer;

-    lfMenuFont: TLogFontA;

-    lfStatusFont: TLogFontA;

-    lfMessageFont: TLogFontA;

-  end;

-  // tagNONCLIENTMETRICSW}

-  tagNONCLIENTMETRICSW = packed record

-    cbSize: UINT;

-    iBorderWidth: Integer;

-    iScrollWidth: Integer;

-    iScrollHeight: Integer;

-    iCaptionWidth: Integer;

-    iCaptionHeight: Integer;

-    lfCaptionFont: TLogFontW;

-    iSmCaptionWidth: Integer;

-    iSmCaptionHeight: Integer;

-    lfSmCaptionFont: TLogFontW;

-    iMenuWidth: Integer;

-    iMenuHeight: Integer;

-    lfMenuFont: TLogFontW;

-    lfStatusFont: TLogFontW;

-    lfMessageFont: TLogFontW;

-  end;

-  // tagNONCLIENTMETRICS}

-  tagNONCLIENTMETRICS = tagNONCLIENTMETRICSA;

-  TNonClientMetricsA = tagNONCLIENTMETRICSA;

-  TNonClientMetricsW = tagNONCLIENTMETRICSW;

-  PNonClientMetricsA = ^TNonClientMetricsA;

-  PNonClientMetrics = PNonClientMetricsA;

-  TNonClientMetrics = TNonClientMetricsA;

-  PNonClientMetricsW = ^TNonClientMetricsW;

-  // NONCLIENTMETRICSA}

-  NONCLIENTMETRICSA = tagNONCLIENTMETRICSA;

-  // NONCLIENTMETRICSW}

-  NONCLIENTMETRICSW = tagNONCLIENTMETRICSW;

-  // NONCLIENTMETRICS}

-  NONCLIENTMETRICS = NONCLIENTMETRICSA;

-  // tagICONMETRICSA}

-  tagICONMETRICSA = packed record

-    cbSize: UINT;

-    iHorzSpacing: Integer;

-    iVertSpacing: Integer;

-    iTitleWrap: Integer;

-    lfFont: TLogFontA;

-  end;

-  // tagICONMETRICSW}

-  tagICONMETRICSW = packed record

-    cbSize: UINT;

-    iHorzSpacing: Integer;

-    iVertSpacing: Integer;

-    iTitleWrap: Integer;

-    lfFont: TLogFontW;

-  end;

-  // tagICONMETRICS}

-  tagICONMETRICS = tagICONMETRICSA;

-  TIconMetricsA = tagICONMETRICSA;

-  TIconMetricsW = tagICONMETRICSW;

-  PIconMetricsA = ^TIconMetricsA;

-  PIconMetricsW = ^TIconMetricsW;

-  PIconMetrics = PIconMetricsA;

-  TIconMetrics = TIconMetricsA;

-  // ICONMETRICSA}

-  ICONMETRICSA = tagICONMETRICSA;

-  // ICONMETRICSW}

-  ICONMETRICSW = tagICONMETRICSW;

-  // ICONMETRICS}

-  ICONMETRICS = ICONMETRICSA;

-  PSerialKeys = PSerialKeysA;

-  TSerialKeys = TSerialKeysA;

-  PSerialKeysA = ^TSerialKeysA;

-  PSerialKeysW = ^TSerialKeysW;

-  // tagSERIALKEYSA}

-  tagSERIALKEYSA = packed record

-    cbSize: UINT;

-    dwFlags: DWORD;

-    lpszActivePort: PAnsiChar;

-    lpszPort: PAnsiChar;

-    iBaudRate: UINT;

-    iPortState: UINT;

-    iActive: UINT;

-  end;

-  // tagSERIALKEYSW}

-  tagSERIALKEYSW = packed record

-    cbSize: UINT;

-    dwFlags: DWORD;

-    lpszActivePort: PWideChar;

-    lpszPort: PWideChar;

-    iBaudRate: UINT;

-    iPortState: UINT;

-    iActive: UINT;

-  end;

-  // tagSERIALKEYS}

-  tagSERIALKEYS = tagSERIALKEYSA;

-  TSerialKeysA = tagSERIALKEYSA;

-  TSerialKeysW = tagSERIALKEYSW;

-  // SERIALKEYSA}

-  SERIALKEYSA = tagSERIALKEYSA;

-  // SERIALKEYSW}

-  SERIALKEYSW = tagSERIALKEYSW;

-  // SERIALKEYS}

-  SERIALKEYS = SERIALKEYSA;

-  PHighContrast = PHighContrastA;

-  THighContrast = THighContrastA;

-  PHighContrastA = ^THighContrastA;

-  PHighContrastW = ^THighContrastW;

-  // tagHIGHCONTRASTA}

-  tagHIGHCONTRASTA = packed record

-    cbSize: UINT;

-    dwFlags: DWORD;

-    lpszDefaultScheme: PAnsiChar;

-  end;

-  // tagHIGHCONTRASTW}

-  tagHIGHCONTRASTW = packed record

-    cbSize: UINT;

-    dwFlags: DWORD;

-    lpszDefaultScheme: PWideChar;

-  end;

-  // tagHIGHCONTRAST}

-  tagHIGHCONTRAST = tagHIGHCONTRASTA;

-  THighContrastA = tagHIGHCONTRASTA;

-  THighContrastW = tagHIGHCONTRASTW;

-  // HIGHCONTRASTA}

-  HIGHCONTRASTA = tagHIGHCONTRASTA;

-  // HIGHCONTRASTW}

-  HIGHCONTRASTW = tagHIGHCONTRASTW;

-  // HIGHCONTRAST}

-  HIGHCONTRAST = HIGHCONTRASTA;

-  PSoundsEntry = PSoundsEntryA;

-  TSoundsEntry = TSoundsEntryA;

-  PSoundsEntryA = ^TSoundsEntryA;

-  PSoundsEntryW = ^TSoundsEntryW;

-  // tagSOUNDSENTRYA}

-  tagSOUNDSENTRYA = packed record

-    cbSize: UINT;

-    dwFlags: DWORD;

-    iFSTextEffect: DWORD;

-    iFSTextEffectMSec: DWORD;

-    iFSTextEffectColorBits: DWORD;

-    iFSGrafEffect: DWORD;

-    iFSGrafEffectMSec: DWORD;

-    iFSGrafEffectColor: DWORD;

-    iWindowsEffect: DWORD;

-    iWindowsEffectMSec: DWORD;

-    lpszWindowsEffectDLL: PAnsiChar;

-    iWindowsEffectOrdinal: DWORD;

-  end;

-  // tagSOUNDSENTRYW}

-  tagSOUNDSENTRYW = packed record

-    cbSize: UINT;

-    dwFlags: DWORD;

-    iFSTextEffect: DWORD;

-    iFSTextEffectMSec: DWORD;

-    iFSTextEffectColorBits: DWORD;

-    iFSGrafEffect: DWORD;

-    iFSGrafEffectMSec: DWORD;

-    iFSGrafEffectColor: DWORD;

-    iWindowsEffect: DWORD;

-    iWindowsEffectMSec: DWORD;

-    lpszWindowsEffectDLL: PWideChar;

-    iWindowsEffectOrdinal: DWORD;

-  end;

-  // tagSOUNDSENTRY}

-  tagSOUNDSENTRY = tagSOUNDSENTRYA;

-  TSoundsEntryA = tagSOUNDSENTRYA;

-  TSoundsEntryW = tagSOUNDSENTRYW;

-  // SOUNDSENTRYA}

-  SOUNDSENTRYA = tagSOUNDSENTRYA;

-  // SOUNDSENTRYW}

-  SOUNDSENTRYW = tagSOUNDSENTRYW;

-  // SOUNDSENTRY}

-  SOUNDSENTRY = SOUNDSENTRYA;

-  PNumberFmt = PNumberFmtA;

-  TNumberFmt = TNumberFmtA;

-  PNumberFmtA = ^TNumberFmtA;

-  PNumberFmtW = ^TNumberFmtW;

-  // _numberfmtA}

-  _numberfmtA = packed record

-    NumDigits: UINT;        { number of decimal digits }

-    LeadingZero: UINT;      { if leading zero in decimal fields }

-    Grouping: UINT;         { group size left of decimal }

-    lpDecimalSep: PAnsiChar;   { ptr to decimal separator AnsiString }

-    lpThousandSep: PAnsiChar;  { ptr to thousand separator AnsiString }

-    NegativeOrder: UINT;    { negative number ordering }

-  end;

-  // _numberfmtW}

-  _numberfmtW = packed record

-    NumDigits: UINT;        { number of decimal digits }

-    LeadingZero: UINT;      { if leading zero in decimal fields }

-    Grouping: UINT;         { group size left of decimal }

-    lpDecimalSep: PWideChar;   { ptr to decimal separator WideString }

-    lpThousandSep: PWideChar;  { ptr to thousand separator WideString }

-    NegativeOrder: UINT;    { negative number ordering }

-  end;

-  // _numberfmt}

-  _numberfmt = _numberfmtA;

-  TNumberFmtA = _numberfmtA;

-  TNumberFmtW = _numberfmtW;

-  // NUMBERFMTA}

-  NUMBERFMTA = _numberfmtA;

-  // NUMBERFMTW}

-  NUMBERFMTW = _numberfmtW;

-  // NUMBERFMT}

-  NUMBERFMT = NUMBERFMTA;

-  PCurrencyFmt = PCurrencyFmtA;

-  PCurrencyFmtA = ^TCurrencyFmtA;

-  PCurrencyFmtW = ^TCurrencyFmtW;

-  // _currencyfmtA}

-  _currencyfmtA = packed record

-    NumDigits: UINT;           { number of decimal digits }

-    LeadingZero: UINT;         { if leading zero in decimal fields }

-    Grouping: UINT;            { group size left of decimal }

-    lpDecimalSep: PAnsiChar;      { ptr to decimal separator AnsiString }

-    lpThousandSep: PAnsiChar;     { ptr to thousand separator AnsiString }

-    NegativeOrder: UINT;       { negative currency ordering }

-    PositiveOrder: UINT;       { positive currency ordering }

-    lpCurrencySymbol: PAnsiChar;  { ptr to currency symbol AnsiString }

-  end;

-  // _currencyfmtW}

-  _currencyfmtW = packed record

-    NumDigits: UINT;           { number of decimal digits }

-    LeadingZero: UINT;         { if leading zero in decimal fields }

-    Grouping: UINT;            { group size left of decimal }

-    lpDecimalSep: PWideChar;      { ptr to decimal separator WideString }

-    lpThousandSep: PWideChar;     { ptr to thousand separator WideString }

-    NegativeOrder: UINT;       { negative currency ordering }

-    PositiveOrder: UINT;       { positive currency ordering }

-    lpCurrencySymbol: PWideChar;  { ptr to currency symbol WideString }

-  end;

-  // _currencyfmt}

-  _currencyfmt = _currencyfmtA;

-  TCurrencyFmtA = _currencyfmtA;

-  TCurrencyFmtW = _currencyfmtW;

-  TCurrencyFmt = TCurrencyFmtA;

-  // CURRENCYFMTA}

-  CURRENCYFMTA = _currencyfmtA;

-  // CURRENCYFMTW}

-  CURRENCYFMTW = _currencyfmtW;

-  // CURRENCYFMT}

-  CURRENCYFMT = CURRENCYFMTA;

-  PPValue = PPValueA;

-{ Provider supplied value/context.}

-  PPValueA = ^TPValueA;

-  PPValueW = ^TPValueW;

-  // pvalueA}

-  pvalueA = packed record

-    pv_valuename: PAnsiChar;           { The value name pointer }

-    pv_valuelen: BOOL;

-    pv_value_context: Pointer;

-    pv_type: DWORD;

-  end;

-  // pvalueW}

-  pvalueW = packed record

-    pv_valuename: PWideChar;           { The value name pointer }

-    pv_valuelen: BOOL;

-    pv_value_context: Pointer;

-    pv_type: DWORD;

-  end;

-  // pvalue}

-  pvalue = pvalueA;

-  TPValueA = pvalueA;

-  TPValueW = pvalueW;

-  TPValue = TPValueA;

-  PValueEnt = PValueEntA;

-  TValueEnt = TValueEntA;

-  PValueEntA = ^TValueEntA;

-  PValueEntW = ^TValueEntW;

-  // value_entA}

-  value_entA = packed record

-    ve_valuename: PAnsiChar;

-    ve_valuelen: DWORD;

-    ve_valueptr: DWORD;

-    ve_type: DWORD;

-  end;

-  // value_entW}

-  value_entW = packed record

-    ve_valuename: PWideChar;

-    ve_valuelen: DWORD;

-    ve_valueptr: DWORD;

-    ve_type: DWORD;

-  end;

-  // value_ent}

-  value_ent = value_entA;

-  TValueEntA = value_entA;

-  TValueEntW = value_entW;

-  // VALENTA}

-  VALENTA = value_entA;

-  // VALENTW}

-  VALENTW = value_entW;

-  // VALENT}

-  VALENT = VALENTA;

-  TValEnt = TValueEnt;

-  PValEnt = PValueEnt;

-  PNetResource = PNetResourceA;

-  TNetResource = TNetResourceA;

-  PNetResourceA = ^TNetResourceA;

-  PNetResourceW = ^TNetResourceW;

-  // _NETRESOURCEA}

-  _NETRESOURCEA = packed record

-    dwScope: DWORD;

-    dwType: DWORD;

-    dwDisplayType: DWORD;

-    dwUsage: DWORD;

-    lpLocalName: PAnsiChar;

-    lpRemoteName: PAnsiChar;

-    lpComment: PAnsiChar;

-    lpProvider: PAnsiChar;

-  end;

-  // _NETRESOURCEW}

-  _NETRESOURCEW = packed record

-    dwScope: DWORD;

-    dwType: DWORD;

-    dwDisplayType: DWORD;

-    dwUsage: DWORD;

-    lpLocalName: PWideChar;

-    lpRemoteName: PWideChar;

-    lpComment: PWideChar;

-    lpProvider: PWideChar;

-  end;

-  // _NETRESOURCE}

-  _NETRESOURCE = _NETRESOURCEA;

-  TNetResourceA = _NETRESOURCEA;

-  TNetResourceW = _NETRESOURCEW;

-  // NETRESOURCEA}

-  NETRESOURCEA = _NETRESOURCEA;

-  // NETRESOURCEW}

-  NETRESOURCEW = _NETRESOURCEW;

-  // NETRESOURCE}

-  NETRESOURCE = NETRESOURCEA;

-  PDiscDlgStruct = PDiscDlgStructA;

-  PDiscDlgStructA = ^TDiscDlgStructA;

-  PDiscDlgStructW = ^TDiscDlgStructW;

-  // _DISCDLGSTRUCTA}

-  _DISCDLGSTRUCTA = packed record

-    cbStructure: DWORD;       { size of this structure in bytes }

-    hwndOwner: HWND;          { owner window for the dialog }

-    lpLocalName: PAnsiChar;       { local device name }

-    lpRemoteName: PAnsiChar;      { network resource name }

-    dwFlags: DWORD;

-  end;

-  // _DISCDLGSTRUCTW}

-  _DISCDLGSTRUCTW = packed record

-    cbStructure: DWORD;       { size of this structure in bytes }

-    hwndOwner: HWND;          { owner window for the dialog }

-    lpLocalName: PWideChar;       { local device name }

-    lpRemoteName: PWideChar;      { network resource name }

-    dwFlags: DWORD;

-  end;

-  // _DISCDLGSTRUCT}

-  _DISCDLGSTRUCT = _DISCDLGSTRUCTA;

-  TDiscDlgStructA = _DISCDLGSTRUCTA;

-  TDiscDlgStructW = _DISCDLGSTRUCTW;

-  TDiscDlgStruct = TDiscDlgStructA;

-  // DISCDLGSTRUCTA}

-  DISCDLGSTRUCTA = _DISCDLGSTRUCTA;

-  // DISCDLGSTRUCTW}

-  DISCDLGSTRUCTW = _DISCDLGSTRUCTW;

-  // DISCDLGSTRUCT}

-  DISCDLGSTRUCT = DISCDLGSTRUCTA;

-  PUniversalNameInfo = PUniversalNameInfoA;

-  TUniversalNameInfo = TUniversalNameInfoA;

-  PUniversalNameInfoA = ^TUniversalNameInfoA;

-  PUniversalNameInfoW = ^TUniversalNameInfoW;

-  // _UNIVERSAL_NAME_INFOA}

-  _UNIVERSAL_NAME_INFOA = packed record

-    lpUniversalName: PAnsiChar;

-  end;

-  // _UNIVERSAL_NAME_INFOW}

-  _UNIVERSAL_NAME_INFOW = packed record

-    lpUniversalName: PWideChar;

-  end;

-  // _UNIVERSAL_NAME_INFO}

-  _UNIVERSAL_NAME_INFO = _UNIVERSAL_NAME_INFOA;

-  TUniversalNameInfoA = _UNIVERSAL_NAME_INFOA;

-  TUniversalNameInfoW = _UNIVERSAL_NAME_INFOW;

-  // UNIVERSAL_NAME_INFOA}

-  UNIVERSAL_NAME_INFOA = _UNIVERSAL_NAME_INFOA;

-  // UNIVERSAL_NAME_INFOW}

-  UNIVERSAL_NAME_INFOW = _UNIVERSAL_NAME_INFOW;

-  // UNIVERSAL_NAME_INFO}

-  UNIVERSAL_NAME_INFO = UNIVERSAL_NAME_INFOA;

-  PRemoteNameInfo = PRemoteNameInfoA;

-  TRemoteNameInfo = TRemoteNameInfoA;

-  PRemoteNameInfoA = ^TRemoteNameInfoA;

-  PRemoteNameInfoW = ^TRemoteNameInfoW;

-  // _REMOTE_NAME_INFOA}

-  _REMOTE_NAME_INFOA = packed record

-    lpUniversalName: PAnsiChar;

-    lpConnectionName: PAnsiChar;

-    lpRemainingPath: PAnsiChar;

-  end;

-  // _REMOTE_NAME_INFOW}

-  _REMOTE_NAME_INFOW = packed record

-    lpUniversalName: PWideChar;

-    lpConnectionName: PWideChar;

-    lpRemainingPath: PWideChar;

-  end;

-  // _REMOTE_NAME_INFO}

-  _REMOTE_NAME_INFO = _REMOTE_NAME_INFOA;

-  TRemoteNameInfoA = _REMOTE_NAME_INFOA;

-  TRemoteNameInfoW = _REMOTE_NAME_INFOW;

-  // REMOTE_NAME_INFOA}

-  REMOTE_NAME_INFOA = _REMOTE_NAME_INFOA;

-  // REMOTE_NAME_INFOW}

-  REMOTE_NAME_INFOW = _REMOTE_NAME_INFOW;

-  // REMOTE_NAME_INFO}

-  REMOTE_NAME_INFO = REMOTE_NAME_INFOA;

-  AUDIT_EVENT_TYPE = DWORD;

-  {$IFDEF _D3orHigher}

-  PObjectTypeList = ^TObjectTypeList;

-  _OBJECT_TYPE_LIST = record

-    Level: WORD;

-    Sbz: WORD;

-    ObjectType: PGUID;

-  end;

-  TObjectTypeList = _OBJECT_TYPE_LIST;

-  OBJECT_TYPE_LIST = _OBJECT_TYPE_LIST;

-  {$ENDIF _D3orHigher}

-  { Alt-Tab Switch window information. }

-  PAltTabInfo = ^TAltTabInfo;

-  tagALTTABINFO = packed record

-    cbSize: DWORD;

-    cItems: Integer;

-    cColumns: Integer;

-    cRows: Integer;

-    iColFocus: Integer;

-    iRowFocus: Integer;

-    cxItem: Integer;

-    cyItem: Integer;

-    ptStart: TPoint;

-  end;

-  TAltTabInfo = tagALTTABINFO;

-

-function AbortSystemShutdown(lpMachineName: PKOLChar): BOOL; stdcall;

-function AccessCheckAndAuditAlarm(SubsystemName: PKOLChar;

-  HandleId: Pointer; ObjectTypeName, ObjectName: PKOLChar;

-  SecurityDescriptor: PSecurityDescriptor; DesiredAccess: DWORD;

-  const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;

-  var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;

-{$IFDEF _D4orHigher}

-function AccessCheckByTypeAndAuditAlarm(SubsystemName: PKOLChar;

-  HandleId: Pointer; ObjectTypeName, ObjectName: PKOLChar;

-  SecurityDescriptor: PSecurityDescriptor; PrincipalSelfSid: PSID; DesiredAccess: DWORD;

-  AuditType: AUDIT_EVENT_TYPE; Flags: DWORD; ObjectTypeList: PObjectTypeList;

-  ObjectTypeListLength: DWORD; const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;

-  var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;

-function AccessCheckByTypeResultListAndAuditAlarm(SubsystemName: PKOLChar;

-  HandleId: Pointer; ObjectTypeName, ObjectName: PKOLChar;

-  SecurityDescriptor: PSecurityDescriptor; PrincipalSelfSid: PSID; DesiredAccess: DWORD;

-  AuditType: AUDIT_EVENT_TYPE; Flags: DWORD; ObjectTypeList: PObjectTypeList;

-  ObjectTypeListLength: DWORD; const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;

-  var GrantedAccess: DWORD; var AccessStatusList: DWORD; var pfGenerateOnClose: BOOL): BOOL; stdcall;

-{$ENDIF _D4orHigher}  

-function BackupEventLog(hEventLog: THandle; lpBackupFileName: PKOLChar): BOOL; stdcall;

-function ClearEventLog(hEventLog: THandle; lpBackupFileName: PKOLChar): BOOL; stdcall;

-function CreateProcessAsUser(hToken: THandle; lpApplicationName: PKOLChar;

-  lpCommandLine: PKOLChar; lpProcessAttributes: PSecurityAttributes;

-  lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL;

-  dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: PKOLChar;

-  const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL; stdcall;

-{$IFDEF _D3orHigher}

-function GetCurrentHwProfile(var lpHwProfileInfo: THWProfileInfo): BOOL; stdcall;

-{$ENDIF _D3orHigher}

-function GetFileSecurity(lpFileName: PKOLChar; RequestedInformation: SECURITY_INFORMATION;

-  pSecurityDescriptor: PSecurityDescriptor; nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;

-function GetUserName(lpBuffer: PKOLChar; var nSize: DWORD): BOOL; stdcall;

-function InitiateSystemShutdown(lpMachineName, lpMessage: PKOLChar;

-  dwTimeout: DWORD; bForceAppsClosed, bRebootAfterShutdown: BOOL): BOOL; stdcall;

-function LogonUser(lpszUsername, lpszDomain, lpszPassword: PKOLChar;

-  dwLogonType, dwLogonProvider: DWORD; var phToken: THandle): BOOL; stdcall;

-function LookupAccountName(lpSystemName, lpAccountName: PKOLChar;

-  Sid: PSID; var cbSid: DWORD; ReferencedDomainName: PKOLChar;

-  var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;

-function LookupAccountSid(lpSystemName: PKOLChar; Sid: PSID;

-  Name: PKOLChar; var cbName: DWORD; ReferencedDomainName: PKOLChar;

-  var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;

-function LookupPrivilegeDisplayName(lpSystemName, lpName: PKOLChar;

-  lpDisplayName: PKOLChar; var cbDisplayName, lpLanguageId: DWORD): BOOL; stdcall;

-function LookupPrivilegeName(lpSystemName: PKOLChar;

-  var lpLuid: TLargeInteger; lpName: PKOLChar; var cbName: DWORD): BOOL; stdcall;

-function LookupPrivilegeValue(lpSystemName, lpName: PKOLChar;

-  var lpLuid: TLargeInteger): BOOL; stdcall;

-function ObjectCloseAuditAlarm(SubsystemName: PKOLChar;

-  HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;

-function ObjectDeleteAuditAlarm(SubsystemName: PKOLChar;

-  HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;

-function ObjectOpenAuditAlarm(SubsystemName: PKOLChar; HandleId: Pointer;

-  ObjectTypeName: PKOLChar; ObjectName: PKOLChar; pSecurityDescriptor: PSecurityDescriptor;

-  ClientToken: THandle; DesiredAccess, GrantedAccess: DWORD;

-  var Privileges: TPrivilegeSet; ObjectCreation, AccessGranted: BOOL;

-  var GenerateOnClose: BOOL): BOOL; stdcall;

-function ObjectPrivilegeAuditAlarm(SubsystemName: PKOLChar;

-  HandleId: Pointer; ClientToken: THandle; DesiredAccess: DWORD;

-  var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;

-function OpenBackupEventLog(lpUNCServerName, lpFileName: PKOLChar): THandle; stdcall;

-function OpenEventLog(lpUNCServerName, lpSourceName: PKOLChar): THandle; stdcall;

-function PrivilegedServiceAuditAlarm(SubsystemName, ServiceName: PKOLChar;

-  ClientToken: THandle; var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;

-function ReadEventLog(hEventLog: THandle; dwReadFlags, dwRecordOffset: DWORD;

-  lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;

-  var pnBytesRead, pnMinNumberOfBytesNeeded: DWORD): BOOL; stdcall;

-function RegConnectRegistry(lpMachineName: PKOLChar; hKey: HKEY;

-  var phkResult: HKEY): Longint; stdcall;

-function RegCreateKey(hKey: HKEY; lpSubKey: PKOLChar;

-  var phkResult: HKEY): Longint; stdcall;

-function RegCreateKeyEx(hKey: HKEY; lpSubKey: PKOLChar;

-  Reserved: DWORD; lpClass: PKOLChar; dwOptions: DWORD; samDesired: REGSAM;

-  lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY;

-  lpdwDisposition: PDWORD): Longint; stdcall;

-function RegDeleteKey(hKey: HKEY; lpSubKey: PKOLChar): Longint; stdcall;

-function RegDeleteValue(hKey: HKEY; lpValueName: PKOLChar): Longint; stdcall;

-function RegEnumKeyEx(hKey: HKEY; dwIndex: DWORD; lpName: PKOLChar;

-  var lpcbName: DWORD; lpReserved: Pointer; lpClass: PKOLChar;

-  lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; stdcall;

-function RegEnumKey(hKey: HKEY; dwIndex: DWORD; lpName: PKOLChar; cbName: DWORD): Longint; stdcall;

-function RegEnumValue(hKey: HKEY; dwIndex: DWORD; lpValueName: PKOLChar;

-  var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD;

-  lpData: PByte; lpcbData: PDWORD): Longint; stdcall;

-function RegLoadKey(hKey: HKEY; lpSubKey, lpFile: PKOLChar): Longint; stdcall;

-function RegOpenKey(hKey: HKEY; lpSubKey: PKOLChar; var phkResult: HKEY): Longint; stdcall;

-function RegOpenKeyEx(hKey: HKEY; lpSubKey: PKOLChar;

-  ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; stdcall;

-function RegQueryInfoKey(hKey: HKEY; lpClass: PKOLChar;

-  lpcbClass: PDWORD; lpReserved: Pointer;

-  lpcSubKeys, lpcbMaxSubKeyLen, lpcbMaxClassLen, lpcValues,

-  lpcbMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor: PDWORD;

-  lpftLastWriteTime: PFileTime): Longint; stdcall;

-function RegQueryMultipleValues(hKey: HKEY; var ValList;

-  NumVals: DWORD; lpValueBuf: PKOLChar; var ldwTotsize: DWORD): Longint; stdcall;

-function RegQueryValue(hKey: HKEY; lpSubKey: PKOLChar;

-  lpValue: PKOLChar; var lpcbValue: Longint): Longint; stdcall;

-function RegQueryValueEx(hKey: HKEY; lpValueName: PKOLChar;

-  lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; stdcall;

-function RegReplaceKey(hKey: HKEY; lpSubKey: PKOLChar;

-   lpNewFile: PKOLChar; lpOldFile: PKOLChar): Longint; stdcall;

-function RegRestoreKey(hKey: HKEY; lpFile: PKOLChar; dwFlags: DWORD): Longint; stdcall;

-function RegSaveKey(hKey: HKEY; lpFile: PKOLChar;

-  lpSecurityAttributes: PSecurityAttributes): Longint; stdcall;

-function RegSetValue(hKey: HKEY; lpSubKey: PKOLChar;

-  dwType: DWORD; lpData: PKOLChar; cbData: DWORD): Longint; stdcall;

-function RegSetValueEx(hKey: HKEY; lpValueName: PKOLChar;

-  Reserved: DWORD; dwType: DWORD; lpData: Pointer; cbData: DWORD): Longint; stdcall;

-function RegUnLoadKey(hKey: HKEY; lpSubKey: PKOLChar): Longint; stdcall;

-function RegisterEventSource(lpUNCServerName, lpSourceName: PKOLChar): THandle; stdcall;

-function ReportEvent(hEventLog: THandle; wType, wCategory: Word;

-  dwEventID: DWORD; lpUserSid: Pointer; wNumStrings: Word;

-  dwDataSize: DWORD; lpStrings, lpRawData: Pointer): BOOL; stdcall;

-function SetFileSecurity(lpFileName: PKOLChar; SecurityInformation: SECURITY_INFORMATION;

-  pSecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;

-function AddAtom(lpString: PKOLChar): ATOM; stdcall;

-function BeginUpdateResource(pFileName: PKOLChar; bDeleteExistingResources: BOOL): THandle; stdcall;

-function BuildCommDCB(lpDef: PKOLChar; var lpDCB: TDCB): BOOL; stdcall;

-function BuildCommDCBAndTimeouts(lpDef: PKOLChar; var lpDCB: TDCB;

-  var lpCommTimeouts: TCommTimeouts): BOOL; stdcall;

-function CallNamedPipe(lpNamedPipeName: PKOLChar; lpInBuffer: Pointer;

-  nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD;

-  var lpBytesRead: DWORD; nTimeOut: DWORD): BOOL; stdcall;

-function CommConfigDialog(lpszName: PKOLChar; hWnd: HWND; var lpCC: TCommConfig): BOOL; stdcall;

-function CompareString(Locale: LCID; dwCmpFlags: DWORD; lpString1: PKOLChar;

-  cchCount1: Integer; lpString2: PKOLChar; cchCount2: Integer): Integer; stdcall;

-function CopyFile(lpExistingFileName, lpNewFileName: PKOLChar; bFailIfExists: BOOL): BOOL; stdcall;

-{$IFDEF _D3orHigher}

-function CopyFileEx(lpExistingFileName, lpNewFileName: PKOLChar;

-  lpProgressRoutine: TFNProgressRoutine; lpData: Pointer; pbCancel: PBool;

-  dwCopyFlags: DWORD): BOOL; stdcall;

-{$ENDIF _D3orHigher}

-function CreateDirectory(lpPathName: PKOLChar;

-  lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;

-function CreateDirectoryEx(lpTemplateDirectory, lpNewDirectory: PKOLChar;

-  lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;

-function CreateEvent(lpEventAttributes: PSecurityAttributes;

-  bManualReset, bInitialState: BOOL; lpName: PKOLChar): THandle; stdcall;

-function CreateFile(lpFileName: PKOLChar; dwDesiredAccess, dwShareMode: DWORD;

-  lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD;

-  hTemplateFile: THandle): THandle; stdcall;

-function CreateFileMapping(hFile: THandle; lpFileMappingAttributes: PSecurityAttributes;

-  flProtect, dwMaximumSizeHigh, dwMaximumSizeLow: DWORD; lpName: PKOLChar): THandle; stdcall;

-function CreateHardLink(lpFileName, lpExistingFileName: PKOLChar;

-  lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;

-function CreateMailslot(lpName: PKOLChar; nMaxMessageSize: DWORD;

-  lReadTimeout: DWORD; lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;

-function CreateNamedPipe(lpName: PKOLChar;

-  dwOpenMode, dwPipeMode, nMaxInstances, nOutBufferSize, nInBufferSize, nDefaultTimeOut: DWORD;

-  lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;

-function CreateProcess(lpApplicationName: PKOLChar; lpCommandLine: PKOLChar;

-  lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;

-  bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;

-  lpCurrentDirectory: PKOLChar; const lpStartupInfo: TStartupInfo;

-  var lpProcessInformation: TProcessInformation): BOOL; stdcall;

-function CreateSemaphore(lpSemaphoreAttributes: PSecurityAttributes;

-  lInitialCount, lMaximumCount: Longint; lpName: PKOLChar): THandle; stdcall;

-function CreateWaitableTimer(lpTimerAttributes: PSecurityAttributes; bManualReset: BOOL; lpTimerName: PKOLChar): THandle; stdcall;

-function DefineDosDevice(dwFlags: DWORD; lpDeviceName, lpTargetPath: PKOLChar): BOOL; stdcall;

-function DeleteFile(lpFileName: PKOLChar): BOOL; stdcall;

-function EndUpdateResource(hUpdate: THandle; fDiscard: BOOL): BOOL; stdcall;

-function EnumCalendarInfo(lpCalInfoEnumProc: TFNCalInfoEnumProc; Locale: LCID;

-  Calendar: CALID; CalType: CALTYPE): BOOL; stdcall;

-function EnumDateFormats(lpDateFmtEnumProc: TFNDateFmtEnumProc;

-  Locale: LCID; dwFlags: DWORD): BOOL; stdcall;

-function EnumResourceLanguages(hModule: HMODULE; lpType, lpName: PKOLChar;

-  lpEnumFunc: ENUMRESLANGPROC; lParam: Longint): BOOL; stdcall;

-function EnumResourceNames(hModule: HMODULE; lpType: PKOLChar;

-  lpEnumFunc: ENUMRESNAMEPROC; lParam: Longint): BOOL; stdcall;

-function EnumResourceTypes(hModule: HMODULE; lpEnumFunc: ENUMRESTYPEPROC;

-  lParam: Longint): BOOL; stdcall;

-function EnumSystemCodePages(lpCodePageEnumProc: TFNCodepageEnumProc; dwFlags: DWORD): BOOL; stdcall;

-function EnumSystemLocales(lpLocaleEnumProc: TFNLocaleEnumProc; dwFlags: DWORD): BOOL; stdcall;

-function EnumTimeFormats(lpTimeFmtEnumProc: TFNTimeFmtEnumProc;

-  Locale: LCID; dwFlags: DWORD): BOOL; stdcall;

-function ExpandEnvironmentStrings(lpSrc: PKOLChar; lpDst: PKOLChar; nSize: DWORD): DWORD; stdcall;

-procedure FatalAppExit(uAction: UINT; lpMessageText: PKOLChar); stdcall;

-function FillConsoleOutputCharacter(hConsoleOutput: THandle; cCharacter: KOLChar;

-  nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;

-function FindAtom(lpString: PKOLChar): ATOM; stdcall;

-function FindFirstChangeNotification(lpPathName: PKOLChar;

-  bWatchSubtree: BOOL; dwNotifyFilter: DWORD): THandle; stdcall;

-function FindFirstFile(lpFileName: PKOLChar; var lpFindFileData: TWIN32FindData): THandle; stdcall;

-{$IFDEF _D3orHigher}

-function FindFirstFileEx(lpFileName: PKOLChar; fInfoLevelId: TFindexInfoLevels;

-  lpFindFileData: Pointer; fSearchOp: TFindexSearchOps; lpSearchFilter: Pointer;

-  dwAdditionalFlags: DWORD): BOOL; stdcall;

-{$ENDIF _D3orHigher}

-function FindNextFile(hFindFile: THandle; var lpFindFileData: TWIN32FindData): BOOL; stdcall;

-function FindResource(hModule: HMODULE; lpName, lpType: PKOLChar): HRSRC; stdcall;

-function FindResourceEx(hModule: HMODULE; lpType, lpName: PKOLChar; wLanguage: Word): HRSRC; stdcall;

-function FoldString(dwMapFlags: DWORD; lpSrcStr: PKOLChar; cchSrc: Integer;

-  lpDestStr: PKOLChar; cchDest: Integer): Integer; stdcall;

-function FormatMessage(dwFlags: DWORD; lpSource: Pointer; dwMessageId: DWORD; dwLanguageId: DWORD;

-  lpBuffer: PKOLChar; nSize: DWORD; Arguments: Pointer): DWORD; stdcall;

-function FreeEnvironmentStrings(EnvBlock: PKOLChar): BOOL; stdcall;

-function GetAtomName(nAtom: ATOM; lpBuffer: PKOLChar; nSize: Integer): UINT; stdcall;

-function GetBinaryType(lpApplicationName: PKOLChar; var lpBinaryType: DWORD): BOOL; stdcall;

-function GetCommandLine: PKOLChar; stdcall;

-function GetCompressedFileSize(lpFileName: PKOLChar; lpFileSizeHigh: PDWORD): DWORD; stdcall;

-function GetComputerName(lpBuffer: PKOLChar; var nSize: DWORD): BOOL; stdcall;

-function GetConsoleTitle(lpConsoleTitle: PKOLChar; nSize: DWORD): DWORD; stdcall;

-function GetCurrencyFormat(Locale: LCID; dwFlags: DWORD; lpValue: PKOLChar;

-  lpFormat: PCurrencyFmt; lpCurrencyStr: PKOLChar; cchCurrency: Integer): Integer; stdcall;

-function GetCurrentDirectory(nBufferLength: DWORD; lpBuffer: PKOLChar): DWORD; stdcall;

-function GetDateFormat(Locale: LCID; dwFlags: DWORD; lpDate: PSystemTime;

-  lpFormat: PKOLChar; lpDateStr: PKOLChar; cchDate: Integer): Integer; stdcall;

-function GetDefaultCommConfig(lpszName: PKOLChar;

-  var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL; stdcall;

-function GetDiskFreeSpace(lpRootPathName: PKOLChar;

-  var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL; stdcall;

-function GetDiskFreeSpaceEx(lpDirectoryName: PKOLChar;

-  var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes; lpTotalNumberOfFreeBytes: PLargeInteger): BOOL; stdcall;

-function GetDriveType(lpRootPathName: PKOLChar): UINT; stdcall;

-function GetEnvironmentStrings: PKOLChar; stdcall;

-function GetEnvironmentVariable(lpName: PKOLChar; lpBuffer: PKOLChar; nSize: DWORD): DWORD; stdcall; //overload;

-function GetFileAttributes(lpFileName: PKOLChar): DWORD; stdcall;

-{$IFDEF _D3orHigher}

-function GetFileAttributesEx(lpFileName: PKOLChar;

-  fInfoLevelId: TGetFileExInfoLevels; lpFileInformation: Pointer): BOOL; stdcall;

-{$ENDIF _D3orHigher}

-function GetFullPathName(lpFileName: PKOLChar; nBufferLength: DWORD;

-  lpBuffer: PKOLChar; var lpFilePart: PKOLChar): DWORD; stdcall;

-function GetLocaleInfo(Locale: LCID; LCType: LCTYPE; lpLCData: PKOLChar; cchData: Integer): Integer; stdcall;

-function GetLogicalDriveStrings(nBufferLength: DWORD; lpBuffer: PKOLChar): DWORD; stdcall;

-function GetModuleFileName(hModule: HINST; lpFilename: PKOLChar; nSize: DWORD): DWORD; stdcall;

-function GetModuleHandle(lpModuleName: PKOLChar): HMODULE; stdcall;

-function GetNamedPipeHandleState(hNamedPipe: THandle;

-  lpState, lpCurInstances, lpMaxCollectionCount, lpCollectDataTimeout: PDWORD;

-  lpUserName: PKOLChar; nMaxUserNameSize: DWORD): BOOL; stdcall;

-function GetNumberFormat(Locale: LCID; dwFlags: DWORD; lpValue: PKOLChar;

-  lpFormat: PNumberFmt; lpNumberStr: PKOLChar; cchNumber: Integer): Integer; stdcall;

-function GetPrivateProfileInt(lpAppName, lpKeyName: PKOLChar; nDefault: Integer; lpFileName: PKOLChar): UINT; stdcall;

-function GetPrivateProfileSection(lpAppName: PKOLChar; lpReturnedString: PKOLChar; nSize: DWORD; lpFileName: PKOLChar): DWORD; stdcall;

-function GetPrivateProfileSectionNames(lpszReturnBuffer: PKOLChar; nSize: DWORD; lpFileName: PKOLChar): DWORD; stdcall;

-function GetPrivateProfileString(lpAppName, lpKeyName, lpDefault: PKOLChar;

-  lpReturnedString: PKOLChar; nSize: DWORD; lpFileName: PKOLChar): DWORD; stdcall;

-function GetProfileInt(lpAppName, lpKeyName: PKOLChar; nDefault: Integer): UINT; stdcall;

-function GetProfileSection(lpAppName: PKOLChar; lpReturnedString: PKOLChar; nSize: DWORD): DWORD; stdcall;

-function GetProfileString(lpAppName, lpKeyName, lpDefault: PKOLChar;

-  lpReturnedString: PKOLChar; nSize: DWORD): DWORD; stdcall;

-function GetShortPathName(lpszLongPath: PKOLChar; lpszShortPath: PKOLChar;

-  cchBuffer: DWORD): DWORD; stdcall;

-procedure GetStartupInfo(var lpStartupInfo: TStartupInfo); stdcall;

-function GetStringTypeEx(Locale: LCID; dwInfoType: DWORD;

-  lpSrcStr: PKOLChar; cchSrc: Integer; var lpCharType): BOOL; stdcall;

-function GetSystemDirectory(lpBuffer: PKOLChar; uSize: UINT): UINT; stdcall;

-function GetTempFileName(lpPathName, lpPrefixString: PKOLChar;

-  uUnique: UINT; lpTempFileName: PKOLChar): UINT; stdcall;

-function GetTempPath(nBufferLength: DWORD; lpBuffer: PKOLChar): DWORD; stdcall;

-function GetTimeFormat(Locale: LCID; dwFlags: DWORD; lpTime: PSystemTime;

-  lpFormat: PKOLChar; lpTimeStr: PKOLChar; cchTime: Integer): Integer; stdcall;

-function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;

-function GetVolumeInformation(lpRootPathName: PKOLChar;

-  lpVolumeNameBuffer: PKOLChar; nVolumeNameSize: DWORD; lpVolumeSerialNumber: PDWORD;

-  var lpMaximumComponentLength, lpFileSystemFlags: DWORD;

-  lpFileSystemNameBuffer: PKOLChar; nFileSystemNameSize: DWORD): BOOL; stdcall;

-function GetWindowsDirectory(lpBuffer: PKOLChar; uSize: UINT): UINT; stdcall;

-function GlobalAddAtom(lpString: PKOLChar): ATOM; stdcall;

-function GlobalFindAtom(lpString: PKOLChar): ATOM; stdcall;

-function GlobalGetAtomName(nAtom: ATOM; lpBuffer: PKOLChar; nSize: Integer): UINT; stdcall;

-function IsBadStringPtr(lpsz: PKOLChar; ucchMax: UINT): BOOL; stdcall;

-function LCMapString(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PKOLChar;

-  cchSrc: Integer; lpDestStr: PKOLChar; cchDest: Integer): Integer; stdcall;

-function LoadLibrary(lpLibFileName: PKOLChar): HMODULE; stdcall;

-function LoadLibraryEx(lpLibFileName: PKOLChar; hFile: THandle; dwFlags: DWORD): HMODULE; stdcall;

-function MoveFile(lpExistingFileName, lpNewFileName: PKOLChar): BOOL; stdcall;

-function MoveFileEx(lpExistingFileName, lpNewFileName: PKOLChar; dwFlags: DWORD): BOOL; stdcall;

-{$IFDEF _D3orHigher}

-function MoveFileWithProgress(lpExistingFileName, lpNewFileName: PKOLChar; lpProgressRoutine: TFNProgressRoutine;

-  lpData: Pointer; dwFlags: DWORD): BOOL; stdcall;

-{$ENDIF _D3orHigher}

-function OpenEvent(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PKOLChar): THandle; stdcall;

-function OpenFileMapping(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PKOLChar): THandle; stdcall;

-function OpenMutex(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PKOLChar): THandle; stdcall;

-function OpenSemaphore(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PKOLChar): THandle; stdcall;

-function OpenWaitableTimer(dwDesiredAccess: DWORD; bInheritHandle: BOOL;

-  lpTimerName: PKOLChar): THandle; stdcall;

-procedure OutputDebugString(lpOutputString: PKOLChar); stdcall;

-function PeekConsoleInput(hConsoleInput: THandle; var lpBuffer: TInputRecord;

-  nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;

-function QueryDosDevice(lpDeviceName: PKOLChar; lpTargetPath: PKOLChar; ucchMax: DWORD): DWORD; stdcall;

-function QueryRecoveryAgents(p1: PKOLChar; var p2: Pointer; var p3: TRecoveryAgentInformation): DWORD; stdcall;

-function ReadConsole(hConsoleInput: THandle; lpBuffer: Pointer;

-  nNumberOfCharsToRead: DWORD; var lpNumberOfCharsRead: DWORD; lpReserved: Pointer): BOOL; stdcall;

-function ReadConsoleInput(hConsoleInput: THandle; var lpBuffer: TInputRecord;

-  nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;

-function ReadConsoleOutput(hConsoleOutput: THandle; lpBuffer: Pointer;

-  dwBufferSize, dwBufferCoord: TCoord; var lpReadRegion: TSmallRect): BOOL; stdcall;

-function ReadConsoleOutputCharacter(hConsoleOutput: THandle; lpCharacter: PKOLChar;

-  nLength: DWORD; dwReadCoord: TCoord; var lpNumberOfCharsRead: DWORD): BOOL; stdcall;

-function RemoveDirectory(lpPathName: PKOLChar): BOOL; stdcall;

-function ScrollConsoleScreenBuffer(hConsoleOutput: THandle;

-  const lpScrollRectangle: TSmallRect; lpClipRectangle: PSmallRect;

-  dwDestinationOrigin: TCoord; var lpFill: TCharInfo): BOOL; stdcall;

-function SearchPath(lpPath, lpFileName, lpExtension: PKOLChar;

-  nBufferLength: DWORD; lpBuffer: PKOLChar; var lpFilePart: PKOLChar): DWORD; stdcall;

-function SetComputerName(lpComputerName: PKOLChar): BOOL; stdcall;

-function SetConsoleTitle(lpConsoleTitle: PKOLChar): BOOL; stdcall;

-function SetCurrentDirectory(lpPathName: PKOLChar): BOOL; stdcall;

-function SetDefaultCommConfig(lpszName: PKOLChar; lpCC: PCommConfig; dwSize: DWORD): BOOL; stdcall;

-function SetEnvironmentVariable(lpName, lpValue: PKOLChar): BOOL; stdcall;

-function SetFileAttributes(lpFileName: PKOLChar; dwFileAttributes: DWORD): BOOL; stdcall;

-function SetLocaleInfo(Locale: LCID; LCType: LCTYPE; lpLCData: PKOLChar): BOOL; stdcall;

-function SetVolumeLabel(lpRootPathName: PKOLChar; lpVolumeName: PKOLChar): BOOL; stdcall;

-function UpdateResource(hUpdate: THandle; lpType, lpName: PKOLChar;

-  wLanguage: Word; lpData: Pointer; cbData: DWORD): BOOL; stdcall;

-function VerLanguageName(wLang: DWORD; szLang: PKOLChar; nSize: DWORD): DWORD; stdcall;

-function WaitNamedPipe(lpNamedPipeName: PKOLChar; nTimeOut: DWORD): BOOL; stdcall;

-function WriteConsole(hConsoleOutput: THandle; const lpBuffer: Pointer;

-  nNumberOfCharsToWrite: DWORD; var lpNumberOfCharsWritten: DWORD; lpReserved: Pointer): BOOL; stdcall;

-function WriteConsoleInput(hConsoleInput: THandle; const lpBuffer: TInputRecord;

-  nLength: DWORD; var lpNumberOfEventsWritten: DWORD): BOOL; stdcall;

-function WriteConsoleOutput(hConsoleOutput: THandle; lpBuffer: Pointer;

-  dwBufferSize, dwBufferCoord: TCoord; var lpWriteRegion: TSmallRect): BOOL; stdcall;

-function WriteConsoleOutputCharacter(hConsoleOutput: THandle;lpCharacter: PKOLChar;

-  nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;

-function WritePrivateProfileSection(lpAppName, lpString, lpFileName: PKOLChar): BOOL; stdcall;

-function WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName: PKOLChar): BOOL; stdcall;

-function WriteProfileSection(lpAppName, lpString: PKOLChar): BOOL; stdcall;

-function WriteProfileString(lpAppName, lpKeyName, lpString: PKOLChar): BOOL; stdcall;

-function lstrcat(lpString1, lpString2: PKOLChar): PKOLChar; stdcall;

-function lstrcmp(lpString1, lpString2: PKOLChar): Integer; stdcall;

-function lstrcmpi(lpString1, lpString2: PKOLChar): Integer; stdcall;

-function lstrcpy(lpString1, lpString2: PKOLChar): PKOLChar; stdcall;

-function lstrcpyn(lpString1, lpString2: PKOLChar; iMaxLength: Integer): PKOLChar; stdcall;

-function lstrlen(lpString: PKOLChar): Integer; stdcall;

-function MultinetGetConnectionPerformance(lpNetResource: PNetResource;

-  lpNetConnectInfoStruc: PNetConnectInfoStruct): DWORD; stdcall;

-function WNetAddConnection2(var lpNetResource: TNetResource;

-  lpPassword, lpUserName: PKOLChar; dwFlags: DWORD): DWORD; stdcall;

-function WNetAddConnection3(hwndOwner: HWND; var lpNetResource: TNetResource;

-  lpPassword, lpUserName: PKOLChar; dwFlags: DWORD): DWORD; stdcall;

-function WNetAddConnection(lpRemoteName, lpPassword, lpLocalName: PKOLChar): DWORD; stdcall;

-function WNetCancelConnection2(lpName: PKOLChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;

-function WNetCancelConnection(lpName: PKOLChar; fForce: BOOL): DWORD; stdcall;

-function WNetConnectionDialog1(var lpConnDlgStruct: TConnectDlgStruct): DWORD; stdcall;

-function WNetDisconnectDialog1(var lpConnDlgStruct: TDiscDlgStruct): DWORD; stdcall;

-function WNetEnumResource(hEnum: THandle; var lpcCount: DWORD;

-  lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;

-function WNetGetConnection(lpLocalName: PKOLChar;

-  lpRemoteName: PKOLChar; var lpnLength: DWORD): DWORD; stdcall;

-function WNetGetLastError(var lpError: DWORD; lpErrorBuf: PKOLChar;

-  nErrorBufSize: DWORD; lpNameBuf: PKOLChar; nNameBufSize: DWORD): DWORD; stdcall;

-function WNetGetNetworkInformation(lpProvider: PKOLChar;

-  var lpNetInfoStruct: TNetInfoStruct): DWORD; stdcall;

-function WNetGetProviderName(dwNetType: DWORD; lpProviderName: PKOLChar;

-  var lpBufferSize: DWORD): DWORD; stdcall;

-function WNetGetResourceParent(lpNetResource: PNetResource;

-  lpBuffer: Pointer; var cbBuffer: DWORD): DWORD; stdcall;

-function WNetGetUniversalName(lpLocalPath: PKOLChar; dwInfoLevel: DWORD;

-  lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;

-function WNetGetUser(lpName: PKOLChar; lpUserName: PKOLChar; var lpnLength: DWORD): DWORD; stdcall;

-function WNetOpenEnum(dwScope, dwType, dwUsage: DWORD;

-  lpNetResource: PNetResource; var lphEnum: THandle): DWORD; stdcall;

-function WNetSetConnection(lpName: PKOLChar; dwProperties: DWORD; pvValues: Pointer): DWORD; stdcall;

-function WNetUseConnection(hwndOwner: HWND;

-  var lpNetResource: TNetResource; lpUserID: PKOLChar;

-  lpPassword: PKOLChar; dwFlags: DWORD; lpAccessName: PKOLChar;

-  var lpBufferSize: DWORD; var lpResult: DWORD): DWORD; stdcall;

-function GetFileVersionInfo(lptstrFilename: PKOLChar; dwHandle, dwLen: DWORD;

-  lpData: Pointer): BOOL; stdcall;

-function GetFileVersionInfoSize(lptstrFilename: PKOLChar; var lpdwHandle: DWORD): DWORD; stdcall;

-function VerFindFile(uFlags: DWORD; szFileName, szWinDir, szAppDir, szCurDir: PKOLChar;

-  var lpuCurDirLen: UINT; szDestDir: PKOLChar; var lpuDestDirLen: UINT): DWORD; stdcall;

-function VerInstallFile(uFlags: DWORD;

-  szSrcFileName, szDestFileName, szSrcDir, szDestDir, szCurDir, szTmpFile: PKOLChar;

-  var lpuTmpFileLen: UINT): DWORD; stdcall;

-function VerQueryValue(pBlock: Pointer; lpSubBlock: PKOLChar;

-  var lplpBuffer: Pointer; var puLen: UINT): BOOL; stdcall;

-function GetPrivateProfileStruct(lpszSection, lpszKey: PKOLChar;

-  lpStruct: Pointer; uSizeStruct: UINT; szFile: PKOLChar): BOOL; stdcall;

-function WritePrivateProfileStruct(lpszSection, lpszKey: PKOLChar;

-  lpStruct: Pointer; uSizeStruct: UINT; szFile: PKOLChar): BOOL; stdcall;

-function AddFontResource(FileName: PKOLChar): Integer; stdcall;

-function AddFontResourceEx(p1: PKOLChar; p2: DWORD; p3: PDesignVector): Integer; stdcall;

-function CopyEnhMetaFile(p1: HENHMETAFILE; p2: PKOLChar): HENHMETAFILE; stdcall;

-function CopyMetaFile(p1: HMETAFILE; p2: PKOLChar): HMETAFILE; stdcall;

-function CreateColorSpace(var ColorSpace: TLogColorSpace): HCOLORSPACE; stdcall;

-function CreateDC(lpszDriver, lpszDevice, lpszOutput: PKOLChar;

-  lpdvmInit: PDeviceMode): HDC; stdcall;

-function CreateEnhMetaFile(DC: HDC; FileName: PKOLChar; Rect: PRect; Desc: PKOLChar): HDC; stdcall;

-function CreateFont(nHeight, nWidth, nEscapement, nOrientaion, fnWeight: Integer;

-  fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision,

-  fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: PKOLChar): HFONT; stdcall;

-function CreateFontIndirect(const p1: TLogFont): HFONT; stdcall;

-function CreateFontIndirectEx(const p1: PEnumLogFontExDV): HFONT; stdcall;

-function CreateIC(lpszDriver, lpszDevice, lpszOutput: PKOLChar; lpdvmInit: PDeviceMode): HDC; stdcall;

-function CreateMetaFile(p1: PKOLChar): HDC; stdcall;

-function CreateScalableFontResource(p1: DWORD; p2, p3, p4: PKOLChar): BOOL; stdcall;

-function DeviceCapabilities(pDriverName, pDeviceName, pPort: PKOLChar;

-  iIndex: Integer; pOutput: PKOLChar; DevMode: PDeviceMode): Integer; stdcall;

-function EnumFontFamilies(DC: HDC; p2: PKOLChar; p3: TFNFontEnumProc; p4: LPARAM): BOOL; stdcall;

-function EnumFontFamiliesEx(DC: HDC; var p2: TLogFont;

-  p3: TFNFontEnumProc; p4: LPARAM; p5: DWORD): BOOL; stdcall;

-function EnumFonts(DC: HDC; lpszFace: PKOLChar; fntenmprc: TFNFontEnumProc;

-  lpszData: PKOLChar): Integer; stdcall;

-function EnumICMProfiles(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;

-function ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint;

-  Rect: PRect; Str: PKOLChar; Count: Longint; Dx: PInteger): BOOL; stdcall;

-function GetCharABCWidths(DC: HDC; FirstChar, LastChar: UINT; const ABCStructs): BOOL; stdcall;

-function GetCharABCWidthsFloat(DC: HDC; FirstChar, LastChar: UINT; const ABCFloatSturcts): BOOL; stdcall;

-function GetCharWidth32(DC: HDC; FirstChar, LastChar: UINT; const Widths): BOOL; stdcall;

-function GetCharWidth(DC: HDC; FirstChar, LastChar: UINT; const Widths): BOOL; stdcall;

-function GetCharWidthFloat(DC: HDC; FirstChar, LastChar: UINT; const Widths): BOOL; stdcall;

-function GetCharacterPlacement(DC: HDC; p2: PKOLChar; p3, p4: BOOL;

-  var p5: TGCPResults; p6: DWORD): DWORD; stdcall;

-function GetEnhMetaFile(p1: PKOLChar): HENHMETAFILE; stdcall;

-function GetEnhMetaFileDescription(p1: HENHMETAFILE; p2: UINT; p3: PKOLChar): UINT; stdcall;

-function GetGlyphIndices(DC: HDC; p2: PKOLChar; p3: Integer; p4: PWORD; p5: DWORD): DWORD; stdcall;

-function GetGlyphOutline(DC: HDC; uChar, uFormat: UINT;

-  const lpgm: TGlyphMetrics; cbBuffer: DWORD; lpvBuffer: Pointer; const lpmat2: TMat2): DWORD; stdcall;

-function GetICMProfile(DC: HDC; var Size: DWORD; Name: PKOLChar): BOOL; stdcall;

-function GetLogColorSpace(p1: HCOLORSPACE; var ColorSpace: TLogColorSpace; Size: DWORD): BOOL; stdcall;

-function GetMetaFile(p1: PKOLChar): HMETAFILE; stdcall;

-function GetObject(p1: HGDIOBJ; p2: Integer; p3: Pointer): Integer; stdcall;

-function GetOutlineTextMetrics(DC: HDC; p2: UINT; OTMetricStructs: Pointer): UINT; stdcall;

-function GetTextExtentExPoint(DC: HDC; p2: PKOLChar;

-  p3, p4: Integer; p5, p6: PInteger; var p7: TSize): BOOL; stdcall;

-function GetTextExtentPoint32(DC: HDC; Str: PKOLChar; Count: Integer;

-  var Size: TSize): BOOL; stdcall;

-function GetTextExtentPoint(DC: HDC; Str: PKOLChar; Count: Integer;

-  var Size: TSize): BOOL; stdcall;

-function GetTextFace(DC: HDC; Count: Integer; Buffer: PKOLChar): Integer; stdcall;

-function GetTextMetrics(DC: HDC; var TM: TTextMetric): BOOL; stdcall;

-function PolyTextOut(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;

-function RemoveFontResource(FileName: PKOLChar): BOOL; stdcall;

-function RemoveFontResourceEx(p1: PKOLChar; p2: DWORD; p3: PDesignVector): BOOL; stdcall;

-function ResetDC(DC: HDC; const InitData: TDeviceMode): HDC; stdcall;

-function SetICMProfile(DC: HDC; Name: PKOLChar): BOOL; stdcall;

-function StartDoc(DC: HDC; const p2: TDocInfo): Integer; stdcall;

-function TextOut(DC: HDC; X, Y: Integer; Str: PKOLChar; Count: Integer): BOOL; stdcall;

-function UpdateICMRegKey(p1: DWORD; p2, p3: PKOLChar; p4: UINT): BOOL; stdcall;

-function wglUseFontBitmaps(DC: HDC; p2, p3, p4: DWORD): BOOL; stdcall;

-function wglUseFontOutlines(p1: HDC; p2, p3, p4: DWORD;

-  p5, p6: Single; p7: Integer; p8: PGlyphMetricsFloat): BOOL; stdcall;

-function AnsiToOem(const lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL; stdcall;

-function AnsiToOemBuff(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;

-function AnsiUpper(lpsz: LPSTR): LPSTR; stdcall;

-function AnsiUpperBuff(lpsz: LPSTR; cchLength: DWORD): DWORD; stdcall;

-function AnsiLower(lpsz: LPSTR): LPSTR; stdcall;

-function AnsiLowerBuff(lpsz: LPSTR; cchLength: DWORD): DWORD; stdcall;

-function AnsiNext(const lpsz: LPCSTR): LPSTR; stdcall;

-function AnsiPrev(const lpszStart: LPCSTR; const lpszCurrent: LPCSTR): LPSTR; stdcall;

-function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT;

-  lpNewItem: PKOLChar): BOOL; stdcall;

-//function BroadcastSystemMessage(Flags: DWORD; Recipients: PDWORD;

-//  uiMessage: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;

-//function BroadcastSystemMessageW(Flags: DWORD; Recipients: PDWORD;

-//  uiMessage: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;

-function CallMsgFilter(var lpMsg: TMsg; nCode: Integer): BOOL; stdcall;

-function CallWindowProc(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

-function ChangeDisplaySettings(var lpDevMode: TDeviceMode; dwFlags: DWORD): Longint; stdcall;

-function ChangeDisplaySettingsEx(lpszDeviceName: PKOLChar; var lpDevMode: TDeviceMode;

-        wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint; stdcall;

-function ChangeMenu(hMenu: HMENU; cmd: UINT; lpszNewItem: PKOLChar;

-  cmdInsert: UINT; flags: UINT): BOOL; stdcall;

-function CharLower(lpsz: PKOLChar): PKOLChar; stdcall;

-function CharLowerBuff(lpsz: PKOLChar; cchLength: DWORD): DWORD; stdcall;

-function CharNext(lpsz: PKOLChar): PKOLChar; stdcall;

-function CharNextEx(CodePage: Word; lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;

-function CharPrev(lpszStart: PKOLChar; lpszCurrent: PKOLChar): PKOLChar; stdcall;

-function CharPrevEx(CodePage: Word; lpStart, lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;

-function CharToOem(lpszSrc: PKOLChar; lpszDst: PKOLChar): BOOL; stdcall;

-function CharToOemBuff(lpszSrc: PKOLChar; lpszDst: PKOLChar; cchDstLength: DWORD): BOOL; stdcall;

-function CharUpper(lpsz: PKOLChar): PKOLChar; stdcall;

-function CharUpperBuff(lpsz: PKOLChar; cchLength: DWORD): DWORD; stdcall;

-function CopyAcceleratorTable(hAccelSrc: HACCEL; var lpAccelDst; cAccelEntries: Integer): Integer; stdcall;

-function CreateAcceleratorTable(var Accel; Count: Integer): HACCEL; stdcall;

-function CreateDesktop(lpszDesktop, lpszDevice: PKOLChar;

-  pDevmode: PDeviceMode; dwFlags: DWORD; dwDesiredAccess:

-  DWORD; lpsa: PSecurityAttributes): HDESK; stdcall;

-function CreateDialogIndirectParam(hInstance: HINST; const lpTemplate: TDlgTemplate;

-  hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;

-function CreateDialogParam(hInstance: HINST; lpTemplateName: PKOLChar;

-  hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;

-function CreateMDIWindow(lpClassName, lpWindowName: PKOLChar;

-  dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;

-  hWndParent: HWND; hInstance: HINST; lParam: LPARAM): HWND; stdcall;

-function CreateWindowEx(dwExStyle: DWORD; lpClassName: PKOLChar;

-  lpWindowName: PKOLChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;

-  hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall;

-function CreateWindowStation(lpwinsta: PKOLChar; dwReserved, dwDesiredAccess: DWORD;

-  lpsa: PSecurityAttributes): HWINSTA; stdcall;

-function DefDlgProc(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

-function DefFrameProc(hWnd, hWndMDIClient: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

-function DefMDIChildProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

-function DefWindowProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

-function DialogBoxIndirectParam(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;

-  hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;

-function DialogBoxParam(hInstance: HINST; lpTemplateName: PKOLChar;

-  hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;

-function DispatchMessage(const lpMsg: TMsg): Longint; stdcall;

-function DlgDirList(hDlg: HWND; lpPathSpec: PKOLChar;

-  nIDListBox, nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;

-function DlgDirListComboBox(hDlg: HWND; lpPathSpec: PKOLChar;

-  nIDComboBox, nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;

-function DlgDirSelectComboBoxEx(hDlg: HWND; lpString: PKOLChar;

-  nCount, nIDComboBox: Integer): BOOL; stdcall;

-function DlgDirSelectEx(hDlg: HWND; lpString: PKOLChar; nCount, nIDListBox: Integer): BOOL; stdcall;

-function DrawState(DC: HDC; Brush: HBRUSH; CBFunc: TFNDrawStateProc;

-  lData: LPARAM; wData: WPARAM; x, y, cx, cy: Integer; Flags: UINT): BOOL; stdcall;

-function DrawText(hDC: HDC; lpString: PKOLChar; nCount: Integer;

-  var lpRect: TRect; uFormat: UINT): Integer; stdcall;

-function DrawTextEx(DC: HDC; lpchText: PKOLChar; cchText: Integer; var p4: TRect;

-  dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;

-function EnumDesktops(hwinsta: HWINSTA; lpEnumFunc: TFNDeskTopEnumProc; lParam: LPARAM): BOOL; stdcall;

-function EnumDisplaySettings(lpszDeviceName: PKOLChar; iModeNum: DWORD;

-  var lpDevMode: TDeviceMode): BOOL; stdcall;

-function EnumDisplayDevices(Unused: Pointer; iDevNum: DWORD;

-  var lpDisplayDevice: TDisplayDevice; dwFlags: DWORD): BOOL; stdcall;

-function EnumProps(hWnd: HWND; lpEnumFunc: TFNPropEnumProc): Integer; stdcall;

-function EnumPropsEx(hWnd: HWND; lpEnumFunc: TFNPropEnumProcEx; lParam: LPARAM): Integer; stdcall;

-function EnumWindowStations(lpEnumFunc: TFNWinStaEnumProc; lParam: LPARAM): BOOL; stdcall;

-function FindWindow(lpClassName, lpWindowName: PKOLChar): HWND; stdcall;

-function FindWindowEx(Parent, Child: HWND; ClassName, WindowName: PKOLChar): HWND; stdcall;

-function GetAltTabInfo(hwnd: HWND; iItem: Integer; var pati: TAltTabInfo;

-  pszItemText: PKOLChar; cchItemText: UINT): BOOL; stdcall;

-function GetClassInfo(hInstance: HINST; lpClassName: PKOLChar;

-  var lpWndClass: TWndClass): BOOL; stdcall;

-function GetClassInfoEx(Instance: HINST; Classname: PKOLChar; var WndClass: TWndClassEx): BOOL; stdcall;

-function GetClassLong(hWnd: HWND; nIndex: Integer): DWORD; stdcall;

-function GetClassName(hWnd: HWND; lpClassName: PKOLChar; nMaxCount: Integer): Integer; stdcall;

-function GetClipboardFormatName(format: UINT; lpszFormatName: PKOLChar;

-  cchMaxCount: Integer): Integer; stdcall;

-function GetDlgItemText(hDlg: HWND; nIDDlgItem: Integer;

-  lpString: PKOLChar; nMaxCount: Integer): UINT; stdcall;

-function GetKeyNameText(lParam: Longint; lpString: PKOLChar; nSize: Integer): Integer; stdcall;

-function GetKeyboardLayoutName(pwszKLID: PKOLChar): BOOL; stdcall;

-function GetMenuItemInfo(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfo): BOOL; stdcall;

-function GetMenuString(hMenu: HMENU; uIDItem: UINT; lpString: PKOLChar;

-  nMaxCount: Integer; uFlag: UINT): Integer; stdcall;

-function GetMessage(var lpMsg: TMsg; hWnd: HWND;

-  wMsgFilterMin, wMsgFilterMax: UINT): BOOL; stdcall;

-function GetProp(hWnd: HWND; lpString: PKOLChar): THandle; stdcall;

-function GetTabbedTextExtent(hDC: HDC; lpString: PKOLChar;

-  nCount, nTabPositions: Integer; var lpnTabStopPositions): DWORD; stdcall;

-function GetUserObjectInformation(hObj: THandle; nIndex: Integer; pvInfo: Pointer;

-  nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;

-function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; stdcall;

-function GetWindowModuleFileName(hwnd: HWND; pszFileName: PKOLChar; cchFileNameMax: UINT): UINT; stdcall;

-function GetWindowText(hWnd: HWND; lpString: PKOLChar; nMaxCount: Integer): Integer; stdcall;

-function GetWindowTextLength(hWnd: HWND): Integer; stdcall;

-function GrayString(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: TFNGrayStringProc;

-  lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;

-function InsertMenu(hMenu: HMENU; uPosition, uFlags, uIDNewItem: UINT;

-  lpNewItem: PKOLChar): BOOL; stdcall;

-function InsertMenuItem(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfo): BOOL; stdcall;

-function IsCharAlpha(ch: KOLChar): BOOL; stdcall;

-function IsCharAlphaNumeric(ch: KOLChar): BOOL; stdcall;

-function IsCharLower(ch: KOLChar): BOOL; stdcall;

-function IsCharUpper(ch: KOLChar): BOOL; stdcall;

-function IsDialogMessage(hDlg: HWND; var lpMsg: TMsg): BOOL; stdcall;

-function LoadAccelerators(hInstance: HINST; lpTableName: PKOLChar): HACCEL; stdcall;

-function LoadBitmap(hInstance: HINST; lpBitmapName: PKOLChar): HBITMAP; stdcall;

-function LoadCursor(hInstance: HINST; lpCursorName: PKOLChar): HCURSOR; stdcall;

-function LoadCursorFromFile(lpFileName: PKOLChar): HCURSOR; stdcall;

-function LoadIcon(hInstance: HINST; lpIconName: PKOLChar): HICON; stdcall;

-function LoadImage(hInst: HINST; ImageName: PKOLChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;

-function LoadKeyboardLayout(pwszKLID: PKOLChar; Flags: UINT): HKL; stdcall;

-function LoadMenu(hInstance: HINST; lpMenuName: PKOLChar): HMENU; stdcall;

-function LoadMenuIndirect(lpMenuTemplate: Pointer): HMENU; stdcall;

-function LoadString(hInstance: HINST; uID: UINT; lpBuffer: PKOLChar; nBufferMax: Integer): Integer; stdcall;

-function MapVirtualKey(uCode, uMapType: UINT): UINT; stdcall;

-function MapVirtualKeyEx(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;

-function MessageBox(hWnd: HWND; lpText, lpCaption: PKOLChar; uType: UINT): Integer; stdcall;

-function MessageBoxEx(hWnd: HWND; lpText, lpCaption: PKOLChar;

-  uType: UINT; wLanguageId: Word): Integer; stdcall;

-function MessageBoxIndirect(const MsgBoxParams: TMsgBoxParams): BOOL; stdcall;

-function ModifyMenu(hMnu: HMENU; uPosition, uFlags, uIDNewItem: UINT;

-  lpNewItem: PKOLChar): BOOL; stdcall;

-function OemToAnsi(const lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL; stdcall;

-function OemToAnsiBuff(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;

-function OemToChar(lpszSrc: PKOLChar; lpszDst: PKOLChar): BOOL; stdcall;

-function OemToCharBuff(lpszSrc: PKOLChar; lpszDst: PKOLChar; cchDstLength: DWORD): BOOL; stdcall;

-function OpenDesktop(lpszDesktop: PKOLChar; dwFlags: DWORD; fInherit: BOOL;

-  dwDesiredAccess: DWORD): HDESK; stdcall;

-function OpenWindowStation(lpszWinSta: PKOLChar; fInherit: BOOL;

-  dwDesiredAccess: DWORD): HWINSTA; stdcall;

-function PeekMessage(var lpMsg: TMsg; hWnd: HWND;

-  wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;

-function PostMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;

-function PostThreadMessage(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;

-function RealGetWindowClass(hwnd: HWND; pszType: PKOLChar; cchType: UINT): UINT; stdcall;

-function RegisterClass(const lpWndClass: TWndClass): ATOM; stdcall;

-function RegisterClassEx(const WndClass: TWndClassEx): ATOM; stdcall;

-function RegisterClipboardFormat(lpszFormat: PKOLChar): UINT; stdcall;

-function RegisterDeviceNotification(hRecipient: THandle; NotificationFilter: Pointer; Flags: DWORD): HDEVNOTIFY; stdcall;

-function RegisterWindowMessage(lpString: PKOLChar): UINT; stdcall;

-function RemoveProp(hWnd: HWND; lpString: PKOLChar): THandle; stdcall;

-function SendDlgItemMessage(hDlg: HWND; nIDDlgItem: Integer;

-  Msg: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;

-function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

-function SendMessageCallback(hWnd: HWND; Msg: UINT; wParam: WPARAM;

-  lParam: LPARAM; lpResultCallBack: TFNSendAsyncProc; dwData: DWORD): BOOL; stdcall;

-function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM;

-  lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT; stdcall;

-function SendNotifyMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM;

-  lParam: LPARAM): BOOL; stdcall;

-function SetClassLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): DWORD; stdcall;

-function SetDlgItemText(hDlg: HWND; nIDDlgItem: Integer; lpString: PKOLChar): BOOL; stdcall;

-function SetMenuItemInfo(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfo): BOOL; stdcall;

-function SetProp(hWnd: HWND; lpString: PKOLChar; hData: THandle): BOOL; stdcall;

-function SetUserObjectInformation(hObj: THandle; nIndex: Integer;

-  pvInfo: Pointer; nLength: DWORD): BOOL; stdcall;

-function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall;

-function SetWindowText(hWnd: HWND; lpString: PKOLChar): BOOL; stdcall;

-function SetWindowsHook(nFilterType: Integer; pfnFilterProc: TFNHookProc): HHOOK; stdcall;

-function SetWindowsHookEx(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD): HHOOK; stdcall;

-function SystemParametersInfo(uiAction, uiParam: UINT;

-  pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;

-function TabbedTextOut(hDC: HDC; X, Y: Integer; lpString: PKOLChar; nCount, nTabPositions: Integer;

-  var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;

-function TranslateAccelerator(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; stdcall;

-function UnregisterClass(lpClassName: PKOLChar; hInstance: HINST): BOOL; stdcall;

-function VkKeyScan(ch: KOLChar): SHORT; stdcall;

-function VkKeyScanEx(ch: KOLChar; dwhkl: HKL): SHORT; stdcall;

-function WinHelp(hWndMain: HWND; lpszHelp: PKOLChar; uCommand: UINT; dwData: DWORD): BOOL; stdcall;

-function wsprintf(Output: PKOLChar; Format: PKOLChar): Integer; stdcall;

-function wvsprintf(Output: PKOLChar; Format: PKOLChar; arglist: {$IFDEF UNICODE} PAnsiChar {$ELSE} va_list {$ENDIF}): Integer; stdcall;

-function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PAnsiChar): THandle;

-

-const

-  IDC_ARROW = MakeIntResource(32512);

-  IDC_IBEAM = MakeIntResource(32513);

-  IDC_WAIT = MakeIntResource(32514);

-  IDC_CROSS = MakeIntResource(32515);

-  IDC_UPARROW = MakeIntResource(32516);

-  IDC_SIZE = MakeIntResource(32640);

-  IDC_ICON = MakeIntResource(32641);

-  IDC_SIZENWSE = MakeIntResource(32642);

-  IDC_SIZENESW = MakeIntResource(32643);

-  IDC_SIZEWE = MakeIntResource(32644);

-  IDC_SIZENS = MakeIntResource(32645);

-  IDC_SIZEALL = MakeIntResource(32646);

-  IDC_NO = MakeIntResource(32648);

-  IDC_HANDs = MakeIntResource(32649);

-  IDC_APPSTARTING = MakeIntResource(32650);

-  IDC_HELP = MakeIntResource(32651);

-{$ENDIF interface_part} ////////////////////////////////////////////////////////

-

-{$IFDEF implementation_part} ///////////////////////////////////////////////////

-function AbortSystemShutdown; external advapi32 name 'AbortSystemShutdownA';

-function AccessCheckAndAuditAlarm; external advapi32 name 'AccessCheckAndAuditAlarmA';

-{$IFDEF _D4orHigher}

-function AccessCheckByTypeAndAuditAlarm; external advapi32 name 'AccessCheckByTypeAndAuditAlarmA';

-function AccessCheckByTypeResultListAndAuditAlarm; external advapi32 name 'AccessCheckByTypeResultListAndAuditAlarmA';

-{$ENDIF _D4orHigher}

-function BackupEventLog; external advapi32 name 'BackupEventLogA';

-function ClearEventLog; external advapi32 name 'ClearEventLogA';

-function CreateProcessAsUser; external advapi32 name 'CreateProcessAsUserA';

-{$IFDEF _D3orHigher}

-function GetCurrentHwProfile; external advapi32 name 'GetCurrentHwProfileA';

-{$ENDIF _D3orHigher}

-function GetFileSecurity; external advapi32 name 'GetFileSecurityA';

-function GetUserName; external advapi32 name 'GetUserNameA';

-function InitiateSystemShutdown; external advapi32 name 'InitiateSystemShutdownA';

-function LogonUser; external advapi32 name 'LogonUserA';

-function LookupAccountName; external advapi32 name 'LookupAccountNameA';

-function LookupAccountSid; external advapi32 name 'LookupAccountSidA';

-function LookupPrivilegeDisplayName; external advapi32 name 'LookupPrivilegeDisplayNameA';

-function LookupPrivilegeName; external advapi32 name 'LookupPrivilegeNameA';

-function LookupPrivilegeValue; external advapi32 name 'LookupPrivilegeValueA';

-function ObjectCloseAuditAlarm; external advapi32 name 'ObjectCloseAuditAlarmA';

-function ObjectDeleteAuditAlarm; external advapi32 name 'ObjectDeleteAuditAlarmA';

-function ObjectOpenAuditAlarm; external advapi32 name 'ObjectOpenAuditAlarmA';

-function ObjectPrivilegeAuditAlarm; external advapi32 name 'ObjectPrivilegeAuditAlarmA';

-function OpenBackupEventLog; external advapi32 name 'OpenBackupEventLogA';

-function OpenEventLog; external advapi32 name 'OpenEventLogA';

-function PrivilegedServiceAuditAlarm; external advapi32 name 'PrivilegedServiceAuditAlarmA';

-function ReadEventLog; external advapi32 name 'ReadEventLogA';

-function RegConnectRegistry; external advapi32 name 'RegConnectRegistryA';

-function RegCreateKey; external advapi32 name 'RegCreateKeyA';

-function RegCreateKeyEx; external advapi32 name 'RegCreateKeyExA';

-function RegDeleteKey; external advapi32 name 'RegDeleteKeyA';

-function RegDeleteValue; external advapi32 name 'RegDeleteValueA';

-function RegEnumKeyEx; external advapi32 name 'RegEnumKeyExA';

-function RegEnumKey; external advapi32 name 'RegEnumKeyA';

-function RegEnumValue; external advapi32 name 'RegEnumValueA';

-function RegLoadKey; external advapi32 name 'RegLoadKeyA';

-function RegOpenKey; external advapi32 name 'RegOpenKeyA';

-function RegOpenKeyEx; external advapi32 name 'RegOpenKeyExA';

-function RegQueryInfoKey; external advapi32 name 'RegQueryInfoKeyA';

-function RegQueryMultipleValues; external advapi32 name 'RegQueryMultipleValuesA';

-function RegQueryValue; external advapi32 name 'RegQueryValueA';

-function RegQueryValueEx; external advapi32 name 'RegQueryValueExA';

-function RegReplaceKey; external advapi32 name 'RegReplaceKeyA';

-function RegRestoreKey; external advapi32 name 'RegRestoreKeyA';

-function RegSaveKey; external advapi32 name 'RegSaveKeyA';

-function RegSetValue; external advapi32 name 'RegSetValueA';

-function RegSetValueEx; external advapi32 name 'RegSetValueExA';

-function RegUnLoadKey; external advapi32 name 'RegUnLoadKeyA';

-function RegisterEventSource; external advapi32 name 'RegisterEventSourceA';

-function ReportEvent; external advapi32 name 'ReportEventA';

-function SetFileSecurity; external advapi32 name 'SetFileSecurityA';

-function AddAtom; external kernel32 name 'AddAtomA';

-function BeginUpdateResource; external kernel32 name 'BeginUpdateResourceA';

-function BuildCommDCB; external kernel32 name 'BuildCommDCBA';

-function BuildCommDCBAndTimeouts; external kernel32 name 'BuildCommDCBAndTimeoutsA';

-function CallNamedPipe; external kernel32 name 'CallNamedPipeA';

-function CommConfigDialog; external kernel32 name 'CommConfigDialogA';

-function CompareString; external kernel32 name 'CompareStringA';

-function CopyFile; external kernel32 name 'CopyFileA';

-{$IFDEF _D3orHigher}

-function CopyFileEx; external kernel32 name 'CopyFileExA';

-{$ENDIF _D3orHigher}

-function CreateDirectory; external kernel32 name 'CreateDirectoryA';

-function CreateDirectoryEx; external kernel32 name 'CreateDirectoryExA';

-function CreateEvent; external kernel32 name 'CreateEventA';

-function CreateFile; external kernel32 name 'CreateFileA';

-function CreateFileMapping; external kernel32 name 'CreateFileMappingA';

-function CreateHardLink; external kernel32 name 'CreateHardLinkA';

-function CreateMailslot; external kernel32 name 'CreateMailslotA';

-function CreateNamedPipe; external kernel32 name 'CreateNamedPipeA';

-function CreateProcess; external kernel32 name 'CreateProcessA';

-function CreateSemaphore; external kernel32 name 'CreateSemaphoreA';

-function CreateWaitableTimer; external kernel32 name 'CreateWaitableTimerA';

-function DefineDosDevice; external kernel32 name 'DefineDosDeviceA';

-function DeleteFile; external kernel32 name 'DeleteFileA';

-function EndUpdateResource; external kernel32 name 'EndUpdateResourceA';

-function EnumCalendarInfo; external kernel32 name 'EnumCalendarInfoA';

-function EnumDateFormats; external kernel32 name 'EnumDateFormatsA';

-function EnumResourceLanguages; external kernel32 name 'EnumResourceLanguagesA';

-function EnumResourceNames; external kernel32 name 'EnumResourceNamesA';

-function EnumResourceTypes; external kernel32 name 'EnumResourceTypesA';

-function EnumSystemCodePages; external kernel32 name 'EnumSystemCodePagesA';

-function EnumSystemLocales; external kernel32 name 'EnumSystemLocalesA';

-function EnumTimeFormats; external kernel32 name 'EnumTimeFormatsA';

-function ExpandEnvironmentStrings; external kernel32 name 'ExpandEnvironmentStringsA';

-procedure FatalAppExit; external kernel32 name 'FatalAppExitA';

-function FillConsoleOutputCharacter; external kernel32 name 'FillConsoleOutputCharacterA';

-function FindAtom; external kernel32 name 'FindAtomA';

-function FindFirstChangeNotification; external kernel32 name 'FindFirstChangeNotificationA';

-function FindFirstFile; external kernel32 name 'FindFirstFileA';

-{$IFDEF _D3orHigher}

-function FindFirstFileEx; external kernel32 name 'FindFirstFileExA';

-{$ENDIF _D3orHigher}

-function FindNextFile; external kernel32 name 'FindNextFileA';

-function FindResource; external kernel32 name 'FindResourceA';

-function FindResourceEx; external kernel32 name 'FindResourceExA';

-function FoldString; external kernel32 name 'FoldStringA';

-function FormatMessage; external kernel32 name 'FormatMessageA';

-function FreeEnvironmentStrings; external kernel32 name 'FreeEnvironmentStringsA';

-function GetAtomName; external kernel32 name 'GetAtomNameA';

-function GetBinaryType; external kernel32 name 'GetBinaryTypeA';

-function GetCommandLine; external kernel32 name 'GetCommandLineA';

-function GetCompressedFileSize; external kernel32 name 'GetCompressedFileSizeA';

-function GetComputerName; external kernel32 name 'GetComputerNameA';

-function GetConsoleTitle; external kernel32 name 'GetConsoleTitleA';

-function GetCurrencyFormat; external kernel32 name 'GetCurrencyFormatA';

-function GetCurrentDirectory; external kernel32 name 'GetCurrentDirectoryA';

-function GetDateFormat; external kernel32 name 'GetDateFormatA';

-function GetDefaultCommConfig; external kernel32 name 'GetDefaultCommConfigA';

-function GetDiskFreeSpace; external kernel32 name 'GetDiskFreeSpaceA';

-function GetDiskFreeSpaceEx; external kernel32 name 'GetDiskFreeSpaceExA';

-function GetDriveType; external kernel32 name 'GetDriveTypeA';

-function GetEnvironmentStrings; external kernel32 name 'GetEnvironmentStringsA';

-function GetEnvironmentVariable(lpName: PKOLChar; lpBuffer: PKOLChar;

-  nSize: DWORD): DWORD; external kernel32 name 'GetEnvironmentVariableA';

-function GetFileAttributes; external kernel32 name 'GetFileAttributesA';

-{$IFDEF _D3orHigher}

-function GetFileAttributesEx; external kernel32 name 'GetFileAttributesExA';

-{$ENDIF _D3orHigher}

-function GetFullPathName; external kernel32 name 'GetFullPathNameA';

-function GetLocaleInfo; external kernel32 name 'GetLocaleInfoA';

-function GetLogicalDriveStrings; external kernel32 name 'GetLogicalDriveStringsA';

-function GetModuleFileName; external kernel32 name 'GetModuleFileNameA';

-function GetModuleHandle; external kernel32 name 'GetModuleHandleA';

-function GetNamedPipeHandleState; external kernel32 name 'GetNamedPipeHandleStateA';

-function GetNumberFormat; external kernel32 name 'GetNumberFormatA';

-function GetPrivateProfileInt; external kernel32 name 'GetPrivateProfileIntA';

-function GetPrivateProfileSection; external kernel32 name 'GetPrivateProfileSectionA';

-function GetPrivateProfileSectionNames; external kernel32 name 'GetPrivateProfileSectionNamesA';

-function GetPrivateProfileString; external kernel32 name 'GetPrivateProfileStringA';

-function GetProfileInt; external kernel32 name 'GetProfileIntA';

-function GetProfileSection; external kernel32 name 'GetProfileSectionA';

-function GetProfileString; external kernel32 name 'GetProfileStringA';

-function GetShortPathName; external kernel32 name 'GetShortPathNameA';

-procedure GetStartupInfo; external kernel32 name 'GetStartupInfoA';

-function GetStringTypeEx; external kernel32 name 'GetStringTypeExA';

-function GetSystemDirectory; external kernel32 name 'GetSystemDirectoryA';

-function GetTempFileName; external kernel32 name 'GetTempFileNameA';

-function GetTempPath; external kernel32 name 'GetTempPathA';

-function GetTimeFormat; external kernel32 name 'GetTimeFormatA';

-function GetVersionEx; external kernel32 name 'GetVersionExA';

-function GetVolumeInformation; external kernel32 name 'GetVolumeInformationA';

-function GetWindowsDirectory; external kernel32 name 'GetWindowsDirectoryA';

-function GlobalAddAtom; external kernel32 name 'GlobalAddAtomA';

-function GlobalFindAtom; external kernel32 name 'GlobalFindAtomA';

-function GlobalGetAtomName; external kernel32 name 'GlobalGetAtomNameA';

-function IsBadStringPtr; external kernel32 name 'IsBadStringPtrA';

-function LCMapString; external kernel32 name 'LCMapStringA';

-function LoadLibrary; external kernel32 name 'LoadLibraryA';

-function LoadLibraryEx; external kernel32 name 'LoadLibraryExA';

-function MoveFile; external kernel32 name 'MoveFileA';

-function MoveFileEx; external kernel32 name 'MoveFileExA';

-{$IFDEF _D3orHigher}

-function MoveFileWithProgress; external kernel32 name 'MoveFileWithProgressA';

-{$ENDIF _D3orHigher}

-function OpenEvent; external kernel32 name 'OpenEventA';

-function OpenFileMapping; external kernel32 name 'OpenFileMappingA';

-function OpenMutex; external kernel32 name 'OpenMutexA';

-function OpenSemaphore; external kernel32 name 'OpenSemaphoreA';

-function OpenWaitableTimer; external kernel32 name 'OpenWaitableTimerA';

-procedure OutputDebugString; external kernel32 name 'OutputDebugStringA';

-function PeekConsoleInput; external kernel32 name 'PeekConsoleInputA';

-function QueryDosDevice; external kernel32 name 'QueryDosDeviceA';

-function QueryRecoveryAgents; external kernel32 name 'QueryRecoveryAgentsA';

-function ReadConsole; external kernel32 name 'ReadConsoleA';

-function ReadConsoleInput; external kernel32 name 'ReadConsoleInputA';

-function ReadConsoleOutput; external kernel32 name 'ReadConsoleOutputA';

-function ReadConsoleOutputCharacter; external kernel32 name 'ReadConsoleOutputCharacterA';

-function RemoveDirectory; external kernel32 name 'RemoveDirectoryA';

-function ScrollConsoleScreenBuffer; external kernel32 name 'ScrollConsoleScreenBufferA';

-function SearchPath; external kernel32 name 'SearchPathA';

-function SetComputerName; external kernel32 name 'SetComputerNameA';

-function SetConsoleTitle; external kernel32 name 'SetConsoleTitleA';

-function SetCurrentDirectory; external kernel32 name 'SetCurrentDirectoryA';

-function SetDefaultCommConfig; external kernel32 name 'SetDefaultCommConfigA';

-function SetEnvironmentVariable; external kernel32 name 'SetEnvironmentVariableA';

-function SetFileAttributes; external kernel32 name 'SetFileAttributesA';

-function SetLocaleInfo; external kernel32 name 'SetLocaleInfoA';

-function SetVolumeLabel; external kernel32 name 'SetVolumeLabelA';

-function UpdateResource; external kernel32 name 'UpdateResourceA';

-function VerLanguageName; external kernel32 name 'VerLanguageNameA';

-function WaitNamedPipe; external kernel32 name 'WaitNamedPipeA';

-function WriteConsole; external kernel32 name 'WriteConsoleA';

-function WriteConsoleInput; external kernel32 name 'WriteConsoleInputA';

-function WriteConsoleOutput; external kernel32 name 'WriteConsoleOutputA';

-function WriteConsoleOutputCharacter; external kernel32 name 'WriteConsoleOutputCharacterA';

-function WritePrivateProfileSection; external kernel32 name 'WritePrivateProfileSectionA';

-function WritePrivateProfileString; external kernel32 name 'WritePrivateProfileStringA';

-function WriteProfileSection; external kernel32 name 'WriteProfileSectionA';

-function WriteProfileString; external kernel32 name 'WriteProfileStringA';

-function lstrcat; external kernel32 name 'lstrcatA';

-function lstrcmp; external kernel32 name 'lstrcmpA';

-function lstrcmpi; external kernel32 name 'lstrcmpiA';

-function lstrcpy; external kernel32 name 'lstrcpyA';

-function lstrcpyn; external kernel32 name 'lstrcpynA';

-function lstrlen; external kernel32 name 'lstrlenA';

-function MultinetGetConnectionPerformance; external mpr name 'MultinetGetConnectionPerformanceA';

-function WNetAddConnection2; external mpr name 'WNetAddConnection2A';

-function WNetAddConnection3; external mpr name 'WNetAddConnection3A';

-function WNetAddConnection; external mpr name 'WNetAddConnectionA';

-function WNetCancelConnection2; external mpr name 'WNetCancelConnection2A';

-function WNetCancelConnection; external mpr name 'WNetCancelConnectionA';

-function WNetConnectionDialog1; external mpr name 'WNetConnectionDialog1A';

-function WNetDisconnectDialog1; external mpr name 'WNetDisconnectDialog1A';

-function WNetEnumResource; external mpr name 'WNetEnumResourceA';

-function WNetGetConnection; external mpr name 'WNetGetConnectionA';

-function WNetGetLastError; external mpr name 'WNetGetLastErrorA';

-function WNetGetNetworkInformation; external mpr name 'WNetGetNetworkInformationA';

-function WNetGetProviderName; external mpr name 'WNetGetProviderNameA';

-function WNetGetResourceParent; external mpr name 'WNetGetResourceParentA';

-function WNetGetUniversalName; external mpr name 'WNetGetUniversalNameA';

-function WNetGetUser; external mpr name 'WNetGetUserA';

-function WNetOpenEnum; external mpr name 'WNetOpenEnumA';

-function WNetSetConnection; external mpr name 'WNetSetConnectionA';

-function WNetUseConnection; external mpr name 'WNetUseConnectionA';

-function GetFileVersionInfo; external version name 'GetFileVersionInfoA';

-function GetFileVersionInfoSize; external version name 'GetFileVersionInfoSizeA';

-function VerFindFile; external version name 'VerFindFileA';

-function VerInstallFile; external version name 'VerInstallFileA';

-function VerQueryValue; external version name 'VerQueryValueA';

-function GetPrivateProfileStruct; external kernel32 name 'GetPrivateProfileStructA';

-function WritePrivateProfileStruct; external kernel32 name 'WritePrivateProfileStructA';

-function AddFontResource; external gdi32 name 'AddFontResourceA';

-function AddFontResourceEx; external gdi32 name 'AddFontResourceExA';

-function CopyEnhMetaFile; external gdi32 name 'CopyEnhMetaFileA';

-function CopyMetaFile; external gdi32 name 'CopyMetaFileA';

-function CreateColorSpace; external gdi32 name 'CreateColorSpaceA';

-function CreateDC; external gdi32 name 'CreateDCA';

-function CreateEnhMetaFile; external gdi32 name 'CreateEnhMetaFileA';

-function CreateFont; external gdi32 name 'CreateFontA';

-function CreateFontIndirect; external gdi32 name 'CreateFontIndirectA';

-function CreateFontIndirectEx; external gdi32 name 'CreateFontIndirectExA';

-function CreateIC; external gdi32 name 'CreateICA';

-function CreateMetaFile; external gdi32 name 'CreateMetaFileA';

-function CreateScalableFontResource; external gdi32 name 'CreateScalableFontResourceA';

-function DeviceCapabilities; external gdi32 name 'DeviceCapabilitiesA';

-function EnumFontFamilies; external gdi32 name 'EnumFontFamiliesA';

-function EnumFontFamiliesEx; external gdi32 name 'EnumFontFamiliesExA';

-function EnumFonts; external gdi32 name 'EnumFontsA';

-function EnumICMProfiles; external gdi32 name 'EnumICMProfilesA';

-function ExtTextOut; external gdi32 name 'ExtTextOutA';

-function GetCharABCWidths; external gdi32 name 'GetCharABCWidthsA';

-function GetCharABCWidthsFloat; external gdi32 name 'GetCharABCWidthsFloatA';

-function GetCharWidth32; external gdi32 name 'GetCharWidth32A';

-function GetCharWidth; external gdi32 name 'GetCharWidthA';

-function GetCharWidthFloat; external gdi32 name 'GetCharWidthFloatA';

-function GetCharacterPlacement; external gdi32 name 'GetCharacterPlacementA';

-function GetEnhMetaFile; external gdi32 name 'GetEnhMetaFileA';

-function GetEnhMetaFileDescription; external gdi32 name 'GetEnhMetaFileDescriptionA';

-function GetGlyphIndices; external gdi32 name 'GetGlyphIndicesA';

-function GetGlyphOutline; external gdi32 name 'GetGlyphOutlineA';

-function GetICMProfile; external gdi32 name 'GetICMProfileA';

-function GetLogColorSpace; external gdi32 name 'GetLogColorSpaceA';

-function GetMetaFile; external gdi32 name 'GetMetaFileA';

-function GetObject; external gdi32 name 'GetObjectA';

-function GetOutlineTextMetrics; external gdi32 name 'GetOutlineTextMetricsA';

-function GetTextExtentExPoint; external gdi32 name 'GetTextExtentExPointA';

-function GetTextExtentPoint32; external gdi32 name 'GetTextExtentPoint32A';

-function GetTextExtentPoint; external gdi32 name 'GetTextExtentPointA';

-function GetTextFace; external gdi32 name 'GetTextFaceA';

-function GetTextMetrics; external gdi32 name 'GetTextMetricsA';

-function PolyTextOut; external gdi32 name 'PolyTextOutA';

-function RemoveFontResource; external gdi32 name 'RemoveFontResourceA';

-function RemoveFontResourceEx; external gdi32 name 'RemoveFontResourceExA';

-function ResetDC; external gdi32 name 'ResetDCA';

-function SetICMProfile; external gdi32 name 'SetICMProfileA';

-function StartDoc; external gdi32 name 'StartDocA';

-function TextOut; external gdi32 name 'TextOutA';

-function UpdateICMRegKey; external gdi32 name 'UpdateICMRegKeyA';

-function wglUseFontBitmaps; external opengl32 name 'wglUseFontBitmapsA';

-function wglUseFontOutlines; external opengl32 name 'wglUseFontOutlinesA';

-function AnsiToOem; external user32 name 'CharToOemA';

-function AnsiToOemBuff; external user32 name 'CharToOemBuffA';

-function AnsiUpper; external user32 name 'CharUpperA';

-function AnsiUpperBuff; external user32 name 'CharUpperBuffA';

-function AnsiLower; external user32 name 'CharLowerA';

-function AnsiLowerBuff; external user32 name 'CharLowerBuffA';

-function AnsiNext; external user32 name 'CharNextA';

-function AnsiPrev; external user32 name 'CharPrevA';

-function AppendMenu; external user32 name 'AppendMenuA';

-//function BroadcastSystemMessage; external user32 name 'BroadcastSystemMessageA';

-//function BroadcastSystemMessageA; external user32 name 'BroadcastSystemMessageA';

-function CallMsgFilter; external user32 name 'CallMsgFilterA';

-function CallWindowProc; external user32 name 'CallWindowProcA';

-function ChangeDisplaySettings; external user32 name 'ChangeDisplaySettingsA';

-function ChangeDisplaySettingsEx; external user32 name 'ChangeDisplaySettingsExA';

-function ChangeMenu; external user32 name 'ChangeMenuA';

-function CharLower; external user32 name 'CharLowerA';

-function CharLowerBuff; external user32 name 'CharLowerBuffA';

-function CharNext; external user32 name 'CharNextA';

-function CharNextEx; external user32 name 'CharNextExA';

-function CharPrev; external user32 name 'CharPrevA';

-function CharPrevEx; external user32 name 'CharPrevExA';

-function CharToOem; external user32 name 'CharToOemA';

-function CharToOemBuff; external user32 name 'CharToOemBuffA';

-function CharUpper; external user32 name 'CharUpperA';

-function CharUpperBuff; external user32 name 'CharUpperBuffA';

-function CopyAcceleratorTable; external user32 name 'CopyAcceleratorTableA';

-function CreateAcceleratorTable; external user32 name 'CreateAcceleratorTableA';

-function CreateDesktop; external user32 name 'CreateDesktopA';

-function CreateDialogIndirectParam; external user32 name 'CreateDialogIndirectParamA';

-function CreateDialogParam; external user32 name 'CreateDialogParamA';

-function CreateMDIWindow; external user32 name 'CreateMDIWindowA';

-function CreateWindowEx; external user32 name 'CreateWindowExA';

-function CreateWindowStation; external user32 name 'CreateWindowStationA';

-function DefDlgProc; external user32 name 'DefDlgProcA';

-function DefFrameProc; external user32 name 'DefFrameProcA';

-function DefMDIChildProc; external user32 name 'DefMDIChildProcA';

-function DefWindowProc; external user32 name 'DefWindowProcA';

-function DialogBoxIndirectParam; external user32 name 'DialogBoxIndirectParamA';

-function DialogBoxParam; external user32 name 'DialogBoxParamA';

-function DispatchMessage; external user32 name 'DispatchMessageA';

-function DlgDirList; external user32 name 'DlgDirListA';

-function DlgDirListComboBox; external user32 name 'DlgDirListComboBoxA';

-function DlgDirSelectComboBoxEx; external user32 name 'DlgDirSelectComboBoxExA';

-function DlgDirSelectEx; external user32 name 'DlgDirSelectExA';

-function DrawState; external user32 name 'DrawStateA';

-function DrawText; external user32 name 'DrawTextA';

-function DrawTextEx; external user32 name 'DrawTextExA';

-function EnumDesktops; external user32 name 'EnumDesktopsA';

-function EnumDisplaySettings; external user32 name 'EnumDisplaySettingsA';

-function EnumDisplayDevices; external user32 name 'EnumDisplayDevicesA';

-function EnumProps; external user32 name 'EnumPropsA';

-function EnumPropsEx; external user32 name 'EnumPropsExA';

-function EnumWindowStations; external user32 name 'EnumWindowStationsA';

-function FindWindow; external user32 name 'FindWindowA';

-function FindWindowEx; external user32 name 'FindWindowExA';

-function GetAltTabInfo; external user32 name 'GetAltTabInfoA';

-function GetClassInfo; external user32 name 'GetClassInfoA';

-function GetClassInfoEx; external user32 name 'GetClassInfoExA';

-function GetClassLong; external user32 name 'GetClassLongA';

-function GetClassName; external user32 name 'GetClassNameA';

-function GetClipboardFormatName; external user32 name 'GetClipboardFormatNameA';

-function GetDlgItemText; external user32 name 'GetDlgItemTextA';

-function GetKeyNameText; external user32 name 'GetKeyNameTextA';

-function GetKeyboardLayoutName; external user32 name 'GetKeyboardLayoutNameA';

-function GetMenuItemInfo; external user32 name 'GetMenuItemInfoA';

-function GetMenuString; external user32 name 'GetMenuStringA';

-function GetMessage; external user32 name 'GetMessageA';

-function GetProp; external user32 name 'GetPropA';

-function GetTabbedTextExtent; external user32 name 'GetTabbedTextExtentA';

-function GetUserObjectInformation; external user32 name 'GetUserObjectInformationA';

-function GetWindowLong; external user32 name 'GetWindowLongA';

-function GetWindowModuleFileName; external user32 name 'GetWindowModuleFileNameA';

-function GetWindowText; external user32 name 'GetWindowTextA';

-function GetWindowTextLength; external user32 name 'GetWindowTextLengthA';

-function GrayString; external user32 name 'GrayStringA';

-function InsertMenu; external user32 name 'InsertMenuA';

-function InsertMenuItem; external user32 name 'InsertMenuItemA';

-function IsCharAlpha; external user32 name 'IsCharAlphaA';

-function IsCharAlphaNumeric; external user32 name 'IsCharAlphaNumericA';

-function IsCharLower; external user32 name 'IsCharLowerA';

-function IsCharUpper; external user32 name 'IsCharUpperA';

-function IsDialogMessage; external user32 name 'IsDialogMessageA';

-function LoadAccelerators; external user32 name 'LoadAcceleratorsA';

-function LoadBitmap; external user32 name 'LoadBitmapA';

-function LoadCursor; external user32 name 'LoadCursorA';

-function LoadCursorFromFile; external user32 name 'LoadCursorFromFileA';

-function LoadIcon; external user32 name 'LoadIconA';

-function LoadImage; external user32 name 'LoadImageA';

-function LoadKeyboardLayout; external user32 name 'LoadKeyboardLayoutA';

-function LoadMenu; external user32 name 'LoadMenuA';

-function LoadMenuIndirect; external user32 name 'LoadMenuIndirectA';

-function LoadString; external user32 name 'LoadStringA';

-function MapVirtualKey; external user32 name 'MapVirtualKeyA';

-function MapVirtualKeyEx; external user32 name 'MapVirtualKeyExA';

-function MessageBox; external user32 name 'MessageBoxA';

-function MessageBoxEx; external user32 name 'MessageBoxExA';

-function MessageBoxIndirect; external user32 name 'MessageBoxIndirectA';

-function ModifyMenu; external user32 name 'ModifyMenuA';

-function OemToAnsi; external user32 name 'OemToCharA';

-function OemToAnsiBuff; external user32 name 'OemToCharBuffA';

-function OemToChar; external user32 name 'OemToCharA';

-function OemToCharBuff; external user32 name 'OemToCharBuffA';

-function OpenDesktop; external user32 name 'OpenDesktopA';

-function OpenWindowStation; external user32 name 'OpenWindowStationA';

-function PeekMessage; external user32 name 'PeekMessageA';

-function PostMessage; external user32 name 'PostMessageA';

-function PostThreadMessage; external user32 name 'PostThreadMessageA';

-function RealGetWindowClass; external user32 name 'RealGetWindowClassA';

-function RegisterClass; external user32 name 'RegisterClassA';

-function RegisterClassEx; external user32 name 'RegisterClassExA';

-function RegisterClipboardFormat; external user32 name 'RegisterClipboardFormatA';

-function RegisterDeviceNotification; external user32 name 'RegisterDeviceNotificationA';

-function RegisterWindowMessage; external user32 name 'RegisterWindowMessageA';

-function RemoveProp; external user32 name 'RemovePropA';

-function SendDlgItemMessage; external user32 name 'SendDlgItemMessageA';

-function SendMessage; external user32 name 'SendMessageA';

-function SendMessageCallback; external user32 name 'SendMessageCallbackA';

-function SendMessageTimeout; external user32 name 'SendMessageTimeoutA';

-function SendNotifyMessage; external user32 name 'SendNotifyMessageA';

-function SetClassLong; external user32 name 'SetClassLongA';

-function SetDlgItemText; external user32 name 'SetDlgItemTextA';

-function SetMenuItemInfo; external user32 name 'SetMenuItemInfoA';

-function SetProp; external user32 name 'SetPropA';

-function SetUserObjectInformation; external user32 name 'SetUserObjectInformationA';

-function SetWindowLong; external user32 name 'SetWindowLongA';

-function SetWindowText; external user32 name 'SetWindowTextA';

-function SetWindowsHook; external user32 name 'SetWindowsHookA';

-function SetWindowsHookEx; external user32 name 'SetWindowsHookExA';

-function SystemParametersInfo; external user32 name 'SystemParametersInfoA';

-function TabbedTextOut; external user32 name 'TabbedTextOutA';

-function TranslateAccelerator; external user32 name 'TranslateAcceleratorA';

-function UnregisterClass; external user32 name 'UnregisterClassA';

-function VkKeyScan; external user32 name 'VkKeyScanA';

-function VkKeyScanEx; external user32 name 'VkKeyScanExA';

-function WinHelp; external user32 name 'WinHelpA';

-function wsprintf; external user32 name 'wsprintfA';

-function wvsprintf; external user32 name 'wvsprintfA';

-// NT 4.0 bug workaround - NT 4.0 doesn't test bInitialOwner for zero/nonzero, it tests for 1

-function _CreateMutex(lpMutexAttributes: PSecurityAttributes;

-  bInitialOwner: Integer; lpName: PAnsiChar): THandle; stdcall;

-  external kernel32 name 'CreateMutexA';

-function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PAnsiChar): THandle;

-begin

-  Result := _CreateMutex(lpMutexAttributes, Integer(Boolean(bInitialOwner)), lpName);

-end;

-

-{$ENDIF implementation_part} ///////////////////////////////////////////////////