home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Source / Rtl / Win / WINDOWS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  1.1 MB  |  30,490 lines
Text Truncated. Only the first 1MB is shown below. Download the file for the complete contents.
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Run-time Library                 }
  5. {       Win32 API Interface Unit                        }
  6. {                                                       }
  7. {       Copyright (c) 1985-1999, Microsoft Corporation  }
  8. {                                                       }
  9. {       Translator: Inprise Corporation                 }
  10. {                                                       }
  11. {*******************************************************}
  12.  
  13. unit Windows;
  14.  
  15. {$ALIGN ON}
  16. {$MINENUMSIZE 4}
  17. {$WEAKPACKAGEUNIT}
  18.  
  19. interface
  20.  
  21. (*$HPPEMIT '// WIN2K SDK fixes BEGIN ' *)
  22. (*$HPPEMIT '#ifndef WINTRUST_H' *)
  23. (*$HPPEMIT '#include<wintrust.h>' *)
  24. (*$HPPEMIT '#endif' *)
  25. (*$HPPEMIT '// WIN2K SDK fixes END. ' *)
  26. (*$HPPEMIT '//' *)
  27. (*$HPPEMIT '// WINDOWS provides two definitions of BLOB: wtypes.h defines a' *)
  28. (*$HPPEMIT '// BLOB as a tagBLOB struct whereas nspapi.h defines a BLOB as a _BLOB' *)
  29. (*$HPPEMIT '// struct. Unfortunately, VCL does not use the portable BLOB type but' *)
  30. (*$HPPEMIT '// rather relies on tagBLOB. So here we use a kludge to try to determine' *)
  31. (*$HPPEMIT '// which flavour of BLOB we have (which is determined by the order of header' *)
  32. (*$HPPEMIT '// inclusion by the compilation unit). If it is the _BLOB, we expose the' *)
  33. (*$HPPEMIT '// tagBLOB type for VCL.' *)
  34. (*$HPPEMIT '//' *)
  35. (*$HPPEMIT '#if sizeof(_BLOB) == 8      // We know that BLOB is 8 bytes ' *)
  36. (*$HPPEMIT 'typedef _BLOB tagBLOB;      // If unknown, _BLOB would be 4 ' *)
  37. (*$HPPEMIT '#endif                      // tagBLOB Kludge' *)
  38. (*$HPPEMIT '#if sizeof(tagBLOB) == 4    // tagBLOB has probably not been defined yet' *)
  39. (*$HPPEMIT '#ifndef _tagBLOB_DEFINED' *)
  40. (*$HPPEMIT '#define _tagBLOB_DEFINED' *)
  41. (*$HPPEMIT '#define _BLOB_DEFINED' *)
  42. (*$HPPEMIT '#define _LPBLOB_DEFINED' *)
  43. (*$HPPEMIT 'typedef struct  tagBLOB' *)
  44. (*$HPPEMIT '    {' *)
  45. (*$HPPEMIT '    ULONG cbSize;' *)
  46. (*$HPPEMIT '    /* [size_is] */ BYTE __RPC_FAR *pBlobData;' *)
  47. (*$HPPEMIT '    }       BLOB;' *)
  48. (*$HPPEMIT '' *)
  49. (*$HPPEMIT 'typedef struct tagBLOB __RPC_FAR *LPBLOB;' *)
  50. (*$HPPEMIT '#endif      //      _tagBLOB_DEFINED' *)
  51. (*$HPPEMIT '#endif      //      sizeof(tagBLOB) == 4' *)
  52. (*$HPPEMIT '' *)
  53. (*$HPPEMIT '#if defined(WIN32_LEAN_AND_MEAN) && !defined(_DDEHEADER_INCLUDED_)' *)
  54. (*$HPPEMIT '#include <dde.h>' *)
  55. (*$HPPEMIT '#endif      // WIN32_LEAN_AND_MEAN & _DDEHEADER_INCLUDED_' *)
  56. (*$HPPEMIT '' *)
  57. (*$HPPEMIT 'namespace Windows {'*)
  58. (*$HPPEMIT 'typedef _LARGE_INTEGER TLargeInteger;'*)
  59. (*$HPPEMIT '} // namespace Windows'*)
  60.  
  61. type
  62. { Translated from WINDEF.H }
  63.  
  64.   WCHAR = WideChar;
  65.   {$EXTERNALSYM WCHAR}
  66.   PWChar = PWideChar;
  67.  
  68.   LPSTR = PAnsiChar;
  69.   {$EXTERNALSYM LPSTR}
  70.   PLPSTR = ^LPSTR;
  71.   {$EXTERNALSYM PLPSTR}
  72.   LPCSTR = PAnsiChar;
  73.   {$EXTERNALSYM LPCSTR}
  74.   LPCTSTR = PAnsiChar; { should be PWideChar if UNICODE }
  75.   {$EXTERNALSYM LPCTSTR}
  76.   LPTSTR = PAnsiChar; { should be PWideChar if UNICODE }
  77.   {$EXTERNALSYM LPTSTR}
  78.   LPWSTR = PWideChar;
  79.   {$EXTERNALSYM LPWSTR}
  80.   PLPWSTR = ^LPWSTR;
  81.   {$EXTERNALSYM PLPWSTR}
  82.   LPCWSTR = PWideChar;
  83.   {$EXTERNALSYM LPCWSTR}
  84.  
  85.   DWORD = LongWord;
  86.   {$EXTERNALSYM DWORD}
  87.   BOOL = LongBool;
  88.   {$EXTERNALSYM BOOL}
  89.   PBOOL = ^BOOL;
  90.   {$EXTERNALSYM PBOOL}
  91.   PByte = ^Byte;
  92.   PINT = ^Integer;
  93.   {$EXTERNALSYM PINT}
  94.   PSingle = ^Single;
  95.   PWORD = ^Word;
  96.   {$EXTERNALSYM PWORD}
  97.   PDWORD = ^DWORD;
  98.   {$EXTERNALSYM PDWORD}
  99.   LPDWORD = PDWORD;
  100.   {$EXTERNALSYM LPDWORD}
  101.  
  102.   UCHAR = Byte;
  103.   {$EXTERNALSYM UCHAR}
  104.   PUCHAR = ^Byte;
  105.   {$EXTERNALSYM PUCHAR}
  106.   SHORT = Smallint;
  107.   {$EXTERNALSYM SHORT}
  108.   UINT = LongWord;
  109.   {$EXTERNALSYM UINT}
  110.   PUINT = ^UINT;
  111.   {$EXTERNALSYM PUINT}
  112.   ULONG = Cardinal;
  113.   {$EXTERNALSYM ULONG}
  114.   PULONG = ^ULONG;
  115.   {$EXTERNALSYM PULONG}
  116.   PLongint = ^Longint;
  117.   PInteger = ^Integer;
  118.   PLongWord = ^LongWord;
  119.   PSmallInt = ^Smallint;
  120.   PDouble = ^Double;
  121.   PShortInt = ^ShortInt;
  122.  
  123.   LCID = DWORD;
  124.   {$EXTERNALSYM LCID}
  125.   LANGID = Word;
  126.   {$EXTERNALSYM LANGID}
  127.  
  128.   THandle = LongWord;
  129.   PHandle = ^THandle;
  130.  
  131. const
  132.   MAX_PATH = 260;
  133.   {$EXTERNALSYM MAX_PATH}
  134.  
  135.  
  136. { Translated from WINNT.H (only things needed for API calls) }
  137.  
  138. {line 190}
  139. type
  140.   LONGLONG = Int64;
  141.   {$EXTERNALSYM LONGLONG}
  142.   PSID = Pointer;
  143.   {$EXTERNALSYM PSID}
  144.   PLargeInteger = ^TLargeInteger;
  145.   _LARGE_INTEGER = record
  146.     case Integer of
  147.     0: (
  148.       LowPart: DWORD;
  149.       HighPart: Longint);
  150.     1: (
  151.       QuadPart: LONGLONG);
  152.   end;
  153.   {$EXTERNALSYM _LARGE_INTEGER}
  154.   {$NODEFINE TLargeInteger}
  155.   TLargeInteger = Int64;
  156.   LARGE_INTEGER = _LARGE_INTEGER;
  157.   {$EXTERNALSYM LARGE_INTEGER}
  158.  
  159.   ULARGE_INTEGER = record
  160.     case Integer of
  161.     0: (
  162.       LowPart: DWORD;
  163.       HighPart: DWORD);
  164.     1: (
  165.       QuadPart: LONGLONG);
  166.   end;
  167.   {$EXTERNALSYM ULARGE_INTEGER}
  168.   PULargeInteger = ^TULargeInteger;
  169.   TULargeInteger = ULARGE_INTEGER;
  170.  
  171. {line 450}
  172.   PListEntry = ^TListEntry;
  173.   _LIST_ENTRY = record
  174.     Flink: PListEntry;
  175.     Blink: PListEntry;
  176.   end;
  177.   {$EXTERNALSYM _LIST_ENTRY}
  178.   TListEntry = _LIST_ENTRY;
  179.   LIST_ENTRY = _LIST_ENTRY;
  180.   {$EXTERNALSYM LIST_ENTRY}
  181.  
  182. {line 490}
  183. const
  184.   MINCHAR = $80;
  185.   {$EXTERNALSYM MINCHAR}
  186.   MAXCHAR = 127;
  187.   {$EXTERNALSYM MAXCHAR}
  188.   MINSHORT = $8000;
  189.   {$EXTERNALSYM MINSHORT}
  190.   MAXSHORT = 32767;
  191.   {$EXTERNALSYM MAXSHORT}
  192.   MINLONG = DWORD($80000000);
  193.   {$EXTERNALSYM MINLONG}
  194.   MAXLONG = $7FFFFFFF;
  195.   {$EXTERNALSYM MAXLONG}
  196.   MAXBYTE = 255;
  197.   {$EXTERNALSYM MAXBYTE}
  198.   MAXWORD = 65535;
  199.   {$EXTERNALSYM MAXWORD}
  200.   MAXDWORD = DWORD($FFFFFFFF);
  201.   {$EXTERNALSYM MAXDWORD}
  202.  
  203. {line 510}
  204. (*
  205.  *  Language IDs.
  206.  *
  207.  *  The following two combinations of primary language ID and
  208.  *  sublanguage ID have special semantics:
  209.  *
  210.  *    Primary Language ID   Sublanguage ID      Result
  211.  *    -------------------   ---------------     ------------------------
  212.  *    LANG_NEUTRAL          SUBLANG_NEUTRAL     Language neutral
  213.  *    LANG_NEUTRAL          SUBLANG_DEFAULT     User default language
  214.  *    LANG_NEUTRAL          SUBLANG_SYS_DEFAULT System default language
  215.  *)
  216.  
  217. const
  218. { Primary language IDs. }
  219.  
  220.   LANG_NEUTRAL                         = $00;
  221.   {$EXTERNALSYM LANG_NEUTRAL}
  222.  
  223.   LANG_AFRIKAANS                       = $36;
  224.   {$EXTERNALSYM LANG_AFRIKAANS}
  225.   LANG_ALBANIAN                        = $1c;
  226.   {$EXTERNALSYM LANG_ALBANIAN}
  227.   LANG_ARABIC                          = $01;
  228.   {$EXTERNALSYM LANG_ARABIC}
  229.   LANG_BASQUE                          = $2d;
  230.   {$EXTERNALSYM LANG_BASQUE}
  231.   LANG_BELARUSIAN                      = $23;
  232.   {$EXTERNALSYM LANG_BELARUSIAN}
  233.   LANG_BULGARIAN                       = $02;
  234.   {$EXTERNALSYM LANG_BULGARIAN}
  235.   LANG_CATALAN                         = $03;
  236.   {$EXTERNALSYM LANG_CATALAN}
  237.   LANG_CHINESE                         = $04;
  238.   {$EXTERNALSYM LANG_CHINESE}
  239.   LANG_CROATIAN                        = $1a;
  240.   {$EXTERNALSYM LANG_CROATIAN}
  241.   LANG_CZECH                           = $05;
  242.   {$EXTERNALSYM LANG_CZECH}
  243.   LANG_DANISH                          = $06;
  244.   {$EXTERNALSYM LANG_DANISH}
  245.   LANG_DUTCH                           = $13;
  246.   {$EXTERNALSYM LANG_DUTCH}
  247.   LANG_ENGLISH                         = $09;
  248.   {$EXTERNALSYM LANG_ENGLISH}
  249.   LANG_ESTONIAN                        = $25;
  250.   {$EXTERNALSYM LANG_ESTONIAN}
  251.   LANG_FAEROESE                        = $38;
  252.   {$EXTERNALSYM LANG_FAEROESE}
  253.   LANG_FARSI                           = $29;
  254.   {$EXTERNALSYM LANG_FARSI}
  255.   LANG_FINNISH                         = $0b;
  256.   {$EXTERNALSYM LANG_FINNISH}
  257.   LANG_FRENCH                          = $0c;
  258.   {$EXTERNALSYM LANG_FRENCH}
  259.   LANG_GERMAN                          = $07;
  260.   {$EXTERNALSYM LANG_GERMAN}
  261.   LANG_GREEK                           = $08;
  262.   {$EXTERNALSYM LANG_GREEK}
  263.   LANG_HEBREW                          = $0d;
  264.   {$EXTERNALSYM LANG_HEBREW}
  265.   LANG_HUNGARIAN                       = $0e;
  266.   {$EXTERNALSYM LANG_HUNGARIAN}
  267.   LANG_ICELANDIC                       = $0f;
  268.   {$EXTERNALSYM LANG_ICELANDIC}
  269.   LANG_INDONESIAN                      = $21;
  270.   {$EXTERNALSYM LANG_INDONESIAN}
  271.   LANG_ITALIAN                         = $10;
  272.   {$EXTERNALSYM LANG_ITALIAN}
  273.   LANG_JAPANESE                        = $11;
  274.   {$EXTERNALSYM LANG_JAPANESE}
  275.   LANG_KOREAN                          = $12;
  276.   {$EXTERNALSYM LANG_KOREAN}
  277.   LANG_LATVIAN                         = $26;
  278.   {$EXTERNALSYM LANG_LATVIAN}
  279.   LANG_LITHUANIAN                      = $27;
  280.   {$EXTERNALSYM LANG_LITHUANIAN}
  281.   LANG_NORWEGIAN                       = $14;
  282.   {$EXTERNALSYM LANG_NORWEGIAN}
  283.   LANG_POLISH                          = $15;
  284.   {$EXTERNALSYM LANG_POLISH}
  285.   LANG_PORTUGUESE                      = $16;
  286.   {$EXTERNALSYM LANG_PORTUGUESE}
  287.   LANG_ROMANIAN                        = $18;
  288.   {$EXTERNALSYM LANG_ROMANIAN}
  289.   LANG_RUSSIAN                         = $19;
  290.   {$EXTERNALSYM LANG_RUSSIAN}
  291.   LANG_SERBIAN                         = $1a;
  292.   {$EXTERNALSYM LANG_SERBIAN}
  293.   LANG_SLOVAK                          = $1b;
  294.   {$EXTERNALSYM LANG_SLOVAK}
  295.   LANG_SLOVENIAN                       = $24;
  296.   {$EXTERNALSYM LANG_SLOVENIAN}
  297.   LANG_SPANISH                         = $0a;
  298.   {$EXTERNALSYM LANG_SPANISH}
  299.   LANG_SWEDISH                         = $1d;
  300.   {$EXTERNALSYM LANG_SWEDISH}
  301.   LANG_THAI                            = $1e;
  302.   {$EXTERNALSYM LANG_THAI}
  303.   LANG_TURKISH                         = $1f;
  304.   {$EXTERNALSYM LANG_TURKISH}
  305.   LANG_UKRAINIAN                       = $22;
  306.   {$EXTERNALSYM LANG_UKRAINIAN}
  307.   LANG_VIETNAMESE                      = $2a;
  308.   {$EXTERNALSYM LANG_VIETNAMESE}
  309.  
  310.  
  311. { Sublanguage IDs. }
  312.  
  313.   { The name immediately following SUBLANG_ dictates which primary
  314.     language ID that sublanguage ID can be combined with to form a
  315.     valid language ID. }
  316.  
  317.   SUBLANG_NEUTRAL                      = $00;    { language neutral }
  318.   {$EXTERNALSYM SUBLANG_NEUTRAL}
  319.   SUBLANG_DEFAULT                      = $01;    { user default }
  320.   {$EXTERNALSYM SUBLANG_DEFAULT}
  321.   SUBLANG_SYS_DEFAULT                  = $02;    { system default }
  322.   {$EXTERNALSYM SUBLANG_SYS_DEFAULT}
  323.  
  324.   SUBLANG_ARABIC_SAUDI_ARABIA          = $01;    { Arabic (Saudi Arabia) }
  325.   {$EXTERNALSYM SUBLANG_ARABIC_SAUDI_ARABIA}
  326.   SUBLANG_ARABIC_IRAQ                  = $02;    { Arabic (Iraq) }
  327.   {$EXTERNALSYM SUBLANG_ARABIC_IRAQ}
  328.   SUBLANG_ARABIC_EGYPT                 = $03;    { Arabic (Egypt) }
  329.   {$EXTERNALSYM SUBLANG_ARABIC_EGYPT}
  330.   SUBLANG_ARABIC_LIBYA                 = $04;    { Arabic (Libya) }
  331.   {$EXTERNALSYM SUBLANG_ARABIC_LIBYA}
  332.   SUBLANG_ARABIC_ALGERIA               = $05;    { Arabic (Algeria) }
  333.   {$EXTERNALSYM SUBLANG_ARABIC_ALGERIA}
  334.   SUBLANG_ARABIC_MOROCCO               = $06;    { Arabic (Morocco) }
  335.   {$EXTERNALSYM SUBLANG_ARABIC_MOROCCO}
  336.   SUBLANG_ARABIC_TUNISIA               = $07;    { Arabic (Tunisia) }
  337.   {$EXTERNALSYM SUBLANG_ARABIC_TUNISIA}
  338.   SUBLANG_ARABIC_OMAN                  = $08;    { Arabic (Oman) }
  339.   {$EXTERNALSYM SUBLANG_ARABIC_OMAN}
  340.   SUBLANG_ARABIC_YEMEN                 = $09;    { Arabic (Yemen) }
  341.   {$EXTERNALSYM SUBLANG_ARABIC_YEMEN}
  342.   SUBLANG_ARABIC_SYRIA                 = $0a;    { Arabic (Syria) }
  343.   {$EXTERNALSYM SUBLANG_ARABIC_SYRIA}
  344.   SUBLANG_ARABIC_JORDAN                = $0b;    { Arabic (Jordan) }
  345.   {$EXTERNALSYM SUBLANG_ARABIC_JORDAN}
  346.   SUBLANG_ARABIC_LEBANON               = $0c;    { Arabic (Lebanon) }
  347.   {$EXTERNALSYM SUBLANG_ARABIC_LEBANON}
  348.   SUBLANG_ARABIC_KUWAIT                = $0d;    { Arabic (Kuwait) }
  349.   {$EXTERNALSYM SUBLANG_ARABIC_KUWAIT}
  350.   SUBLANG_ARABIC_UAE                   = $0e;    { Arabic (U.A.E) }
  351.   {$EXTERNALSYM SUBLANG_ARABIC_UAE}
  352.   SUBLANG_ARABIC_BAHRAIN               = $0f;    { Arabic (Bahrain) }
  353.   {$EXTERNALSYM SUBLANG_ARABIC_BAHRAIN}
  354.   SUBLANG_ARABIC_QATAR                 = $10;    { Arabic (Qatar) }
  355.   {$EXTERNALSYM SUBLANG_ARABIC_QATAR}
  356.   SUBLANG_CHINESE_TRADITIONAL          = $01;    { Chinese (Taiwan) }
  357.   {$EXTERNALSYM SUBLANG_CHINESE_TRADITIONAL}
  358.   SUBLANG_CHINESE_SIMPLIFIED           = $02;    { Chinese (PR China) }
  359.   {$EXTERNALSYM SUBLANG_CHINESE_SIMPLIFIED}
  360.   SUBLANG_CHINESE_HONGKONG             = $03;    { Chinese (Hong Kong) }
  361.   {$EXTERNALSYM SUBLANG_CHINESE_HONGKONG}
  362.   SUBLANG_CHINESE_SINGAPORE            = $04;    { Chinese (Singapore) }
  363.   {$EXTERNALSYM SUBLANG_CHINESE_SINGAPORE}
  364.   SUBLANG_DUTCH                        = $01;    { Dutch }
  365.   {$EXTERNALSYM SUBLANG_DUTCH}
  366.   SUBLANG_DUTCH_BELGIAN                = $02;    { Dutch (Belgian) }
  367.   {$EXTERNALSYM SUBLANG_DUTCH_BELGIAN}
  368.   SUBLANG_ENGLISH_US                   = $01;    { English (USA) }
  369.   {$EXTERNALSYM SUBLANG_ENGLISH_US}
  370.   SUBLANG_ENGLISH_UK                   = $02;    { English (UK) }
  371.   {$EXTERNALSYM SUBLANG_ENGLISH_UK}
  372.   SUBLANG_ENGLISH_AUS                  = $03;    { English (Australian) }
  373.   {$EXTERNALSYM SUBLANG_ENGLISH_AUS}
  374.   SUBLANG_ENGLISH_CAN                  = $04;    { English (Canadian) }
  375.   {$EXTERNALSYM SUBLANG_ENGLISH_CAN}
  376.   SUBLANG_ENGLISH_NZ                   = $05;    { English (New Zealand) }
  377.   {$EXTERNALSYM SUBLANG_ENGLISH_NZ}
  378.   SUBLANG_ENGLISH_EIRE                 = $06;    { English (Irish) }
  379.   {$EXTERNALSYM SUBLANG_ENGLISH_EIRE}
  380.   SUBLANG_ENGLISH_SOUTH_AFRICA         = $07;    { English (South Africa) }
  381.   {$EXTERNALSYM SUBLANG_ENGLISH_SOUTH_AFRICA}
  382.   SUBLANG_ENGLISH_JAMAICA              = $08;    { English (Jamaica) }
  383.   {$EXTERNALSYM SUBLANG_ENGLISH_JAMAICA}
  384.   SUBLANG_ENGLISH_CARIBBEAN            = $09;    { English (Caribbean) }
  385.   {$EXTERNALSYM SUBLANG_ENGLISH_CARIBBEAN}
  386.   SUBLANG_ENGLISH_BELIZE               = $0a;    { English (Belize) }
  387.   {$EXTERNALSYM SUBLANG_ENGLISH_BELIZE}
  388.   SUBLANG_ENGLISH_TRINIDAD             = $0b;    { English (Trinidad) }
  389.   {$EXTERNALSYM SUBLANG_ENGLISH_TRINIDAD}
  390.   SUBLANG_FRENCH                       = $01;    { French }
  391.   {$EXTERNALSYM SUBLANG_FRENCH}
  392.   SUBLANG_FRENCH_BELGIAN               = $02;    { French (Belgian) }
  393.   {$EXTERNALSYM SUBLANG_FRENCH_BELGIAN}
  394.   SUBLANG_FRENCH_CANADIAN              = $03;    { French (Canadian) }
  395.   {$EXTERNALSYM SUBLANG_FRENCH_CANADIAN}
  396.   SUBLANG_FRENCH_SWISS                 = $04;    { French (Swiss) }
  397.   {$EXTERNALSYM SUBLANG_FRENCH_SWISS}
  398.   SUBLANG_FRENCH_LUXEMBOURG            = $05;    { French (Luxembourg) }
  399.   {$EXTERNALSYM SUBLANG_FRENCH_LUXEMBOURG}
  400.   SUBLANG_GERMAN                       = $01;    { German }
  401.   {$EXTERNALSYM SUBLANG_GERMAN}
  402.   SUBLANG_GERMAN_SWISS                 = $02;    { German (Swiss) }
  403.   {$EXTERNALSYM SUBLANG_GERMAN_SWISS}
  404.   SUBLANG_GERMAN_AUSTRIAN              = $03;    { German (Austrian) }
  405.   {$EXTERNALSYM SUBLANG_GERMAN_AUSTRIAN}
  406.   SUBLANG_GERMAN_LUXEMBOURG            = $04;    { German (Luxembourg) }
  407.   {$EXTERNALSYM SUBLANG_GERMAN_LUXEMBOURG}
  408.   SUBLANG_GERMAN_LIECHTENSTEIN         = $05;    { German (Liechtenstein) }
  409.   {$EXTERNALSYM SUBLANG_GERMAN_LIECHTENSTEIN}
  410.   SUBLANG_ITALIAN                      = $01;    { Italian }
  411.   {$EXTERNALSYM SUBLANG_ITALIAN}
  412.   SUBLANG_ITALIAN_SWISS                = $02;    { Italian (Swiss) }
  413.   {$EXTERNALSYM SUBLANG_ITALIAN_SWISS}
  414.   SUBLANG_KOREAN                       = $01;    { Korean (Extended Wansung) }
  415.   {$EXTERNALSYM SUBLANG_KOREAN}
  416.   SUBLANG_KOREAN_JOHAB                 = $02;    { Korean (Johab) }
  417.   {$EXTERNALSYM SUBLANG_KOREAN_JOHAB}
  418.   SUBLANG_NORWEGIAN_BOKMAL             = $01;    { Norwegian (Bokmal) }
  419.   {$EXTERNALSYM SUBLANG_NORWEGIAN_BOKMAL}
  420.   SUBLANG_NORWEGIAN_NYNORSK            = $02;    { Norwegian (Nynorsk) }
  421.   {$EXTERNALSYM SUBLANG_NORWEGIAN_NYNORSK}
  422.   SUBLANG_PORTUGUESE                   = $02;    { Portuguese }
  423.   {$EXTERNALSYM SUBLANG_PORTUGUESE}
  424.   SUBLANG_PORTUGUESE_BRAZILIAN         = $01;    { Portuguese (Brazilian) }
  425.   {$EXTERNALSYM SUBLANG_PORTUGUESE_BRAZILIAN}
  426.   SUBLANG_SERBIAN_LATIN                = $02;    { Serbian (Latin) }
  427.   {$EXTERNALSYM SUBLANG_SERBIAN_LATIN}
  428.   SUBLANG_SERBIAN_CYRILLIC             = $03;    { Serbian (Cyrillic) }
  429.   {$EXTERNALSYM SUBLANG_SERBIAN_CYRILLIC}
  430.   SUBLANG_SPANISH                      = $01;    { Spanish (Castilian) }
  431.   {$EXTERNALSYM SUBLANG_SPANISH}
  432.   SUBLANG_SPANISH_MEXICAN              = $02;    { Spanish (Mexican) }
  433.   {$EXTERNALSYM SUBLANG_SPANISH_MEXICAN}
  434.   SUBLANG_SPANISH_MODERN               = $03;    { Spanish (Modern) }
  435.   {$EXTERNALSYM SUBLANG_SPANISH_MODERN}
  436.   SUBLANG_SPANISH_GUATEMALA            = $04;    { Spanish (Guatemala) }
  437.   {$EXTERNALSYM SUBLANG_SPANISH_GUATEMALA}
  438.   SUBLANG_SPANISH_COSTA_RICA           = $05;    { Spanish (Costa Rica) }
  439.   {$EXTERNALSYM SUBLANG_SPANISH_COSTA_RICA}
  440.   SUBLANG_SPANISH_PANAMA               = $06;    { Spanish (Panama) }
  441.   {$EXTERNALSYM SUBLANG_SPANISH_PANAMA}
  442.   SUBLANG_SPANISH_DOMINICAN_REPUBLIC     = $07;  { Spanish (Dominican Republic) }
  443.   {$EXTERNALSYM SUBLANG_SPANISH_DOMINICAN_REPUBLIC}
  444.   SUBLANG_SPANISH_VENEZUELA            = $08;    { Spanish (Venezuela) }
  445.   {$EXTERNALSYM SUBLANG_SPANISH_VENEZUELA}
  446.   SUBLANG_SPANISH_COLOMBIA             = $09;    { Spanish (Colombia) }
  447.   {$EXTERNALSYM SUBLANG_SPANISH_COLOMBIA}
  448.   SUBLANG_SPANISH_PERU                 = $0a;    { Spanish (Peru) }
  449.   {$EXTERNALSYM SUBLANG_SPANISH_PERU}
  450.   SUBLANG_SPANISH_ARGENTINA            = $0b;    { Spanish (Argentina) }
  451.   {$EXTERNALSYM SUBLANG_SPANISH_ARGENTINA}
  452.   SUBLANG_SPANISH_ECUADOR              = $0c;    { Spanish (Ecuador) }
  453.   {$EXTERNALSYM SUBLANG_SPANISH_ECUADOR}
  454.   SUBLANG_SPANISH_CHILE                = $0d;    { Spanish (Chile) }
  455.   {$EXTERNALSYM SUBLANG_SPANISH_CHILE}
  456.   SUBLANG_SPANISH_URUGUAY              = $0e;    { Spanish (Uruguay) }
  457.   {$EXTERNALSYM SUBLANG_SPANISH_URUGUAY}
  458.   SUBLANG_SPANISH_PARAGUAY             = $0f;    { Spanish (Paraguay) }
  459.   {$EXTERNALSYM SUBLANG_SPANISH_PARAGUAY}
  460.   SUBLANG_SPANISH_BOLIVIA              = $10;    { Spanish (Bolivia) }
  461.   {$EXTERNALSYM SUBLANG_SPANISH_BOLIVIA}
  462.   SUBLANG_SPANISH_EL_SALVADOR          = $11;    { Spanish (El Salvador) }
  463.   {$EXTERNALSYM SUBLANG_SPANISH_EL_SALVADOR}
  464.   SUBLANG_SPANISH_HONDURAS             = $12;    { Spanish (Honduras) }
  465.   {$EXTERNALSYM SUBLANG_SPANISH_HONDURAS}
  466.   SUBLANG_SPANISH_NICARAGUA            = $13;    { Spanish (Nicaragua) }
  467.   {$EXTERNALSYM SUBLANG_SPANISH_NICARAGUA}
  468.   SUBLANG_SPANISH_PUERTO_RICO          = $14;    { Spanish (Puerto Rico) }
  469.   {$EXTERNALSYM SUBLANG_SPANISH_PUERTO_RICO}
  470.   SUBLANG_SWEDISH                      = $01;    { Swedish }
  471.   {$EXTERNALSYM SUBLANG_SWEDISH}
  472.   SUBLANG_SWEDISH_FINLAND              = $02;    { Swedish (Finland) }
  473.   {$EXTERNALSYM SUBLANG_SWEDISH_FINLAND}
  474.  
  475.  
  476. { Sorting IDs. }
  477.  
  478.   SORT_DEFAULT                         = $0;     { sorting default }
  479.   {$EXTERNALSYM SORT_DEFAULT}
  480.  
  481.   SORT_JAPANESE_XJIS                   = $0;     { Japanese XJIS order }
  482.   {$EXTERNALSYM SORT_JAPANESE_XJIS}
  483.   SORT_JAPANESE_UNICODE                = $1;     { Japanese Unicode order }
  484.   {$EXTERNALSYM SORT_JAPANESE_UNICODE}
  485.  
  486.   SORT_CHINESE_BIG5                    = $0;     { Chinese BIG5 order }
  487.   {$EXTERNALSYM SORT_CHINESE_BIG5}
  488.   SORT_CHINESE_PRCP                    = $0;     { PRC Chinese Phonetic order }
  489.   {$EXTERNALSYM SORT_CHINESE_PRCP}
  490.   SORT_CHINESE_UNICODE                 = $1;     { Chinese Unicode order }
  491.   {$EXTERNALSYM SORT_CHINESE_UNICODE}
  492.   SORT_CHINESE_PRC                     = $2;     { PRC Chinese Stroke Count order }
  493.   {$EXTERNALSYM SORT_CHINESE_PRC}
  494.  
  495.   SORT_KOREAN_KSC                      = $0;     { Korean KSC order }
  496.   {$EXTERNALSYM SORT_KOREAN_KSC}
  497.   SORT_KOREAN_UNICODE                  = $1;     { Korean Unicode order }
  498.   {$EXTERNALSYM SORT_KOREAN_UNICODE}
  499.  
  500.   SORT_GERMAN_PHONE_BOOK               = $1;     { German Phone Book order }
  501.   {$EXTERNALSYM SORT_GERMAN_PHONE_BOOK}
  502.  
  503.  
  504. (*
  505.  *  A language ID is a 16 bit value which is the combination of a
  506.  *  primary language ID and a secondary language ID.  The bits are
  507.  *  allocated as follows:
  508.  *
  509.  *       +-----------------------+-------------------------+
  510.  *       |     Sublanguage ID    |   Primary Language ID   |
  511.  *       +-----------------------+-------------------------+
  512.  *        15                   10 9                       0   bit
  513.  *
  514.  *
  515.  *
  516.  *  A locale ID is a 32 bit value which is the combination of a
  517.  *  language ID, a sort ID, and a reserved area.  The bits are
  518.  *  allocated as follows:
  519.  *
  520.  *       +-------------+---------+-------------------------+
  521.  *       |   Reserved  | Sort ID |      Language ID        |
  522.  *       +-------------+---------+-------------------------+
  523.  *        31         20 19     16 15                      0   bit
  524.  *
  525.  *)
  526.  
  527. { Default System and User IDs for language and locale. }
  528.  
  529.   LANG_SYSTEM_DEFAULT   = (SUBLANG_SYS_DEFAULT shl 10) or LANG_NEUTRAL;
  530.   {$EXTERNALSYM LANG_SYSTEM_DEFAULT}
  531.   LANG_USER_DEFAULT     = (SUBLANG_DEFAULT shl 10) or LANG_NEUTRAL;
  532.   {$EXTERNALSYM LANG_USER_DEFAULT}
  533.  
  534.   LOCALE_SYSTEM_DEFAULT = (SORT_DEFAULT shl 16) or LANG_SYSTEM_DEFAULT;
  535.   {$EXTERNALSYM LOCALE_SYSTEM_DEFAULT}
  536.   LOCALE_USER_DEFAULT   = (SORT_DEFAULT shl 16) or LANG_USER_DEFAULT;
  537.   {$EXTERNALSYM LOCALE_USER_DEFAULT}
  538.  
  539.  
  540. {line 724}
  541.   STATUS_WAIT_0                   = $00000000;
  542.   {$EXTERNALSYM STATUS_WAIT_0}
  543.   STATUS_ABANDONED_WAIT_0         = $00000080;
  544.   {$EXTERNALSYM STATUS_ABANDONED_WAIT_0}
  545.   STATUS_USER_APC                 = $000000C0;
  546.   {$EXTERNALSYM STATUS_USER_APC}
  547.   STATUS_TIMEOUT                  = $00000102;
  548.   {$EXTERNALSYM STATUS_TIMEOUT}
  549.   STATUS_PENDING                  = $00000103;
  550.   {$EXTERNALSYM STATUS_PENDING}
  551.   STATUS_SEGMENT_NOTIFICATION     = $40000005;
  552.   {$EXTERNALSYM STATUS_SEGMENT_NOTIFICATION}
  553.   STATUS_GUARD_PAGE_VIOLATION     = DWORD($80000001);
  554.   {$EXTERNALSYM STATUS_GUARD_PAGE_VIOLATION}
  555.   STATUS_DATATYPE_MISALIGNMENT    = DWORD($80000002);
  556.   {$EXTERNALSYM STATUS_DATATYPE_MISALIGNMENT}
  557.   STATUS_BREAKPOINT               = DWORD($80000003);
  558.   {$EXTERNALSYM STATUS_BREAKPOINT}
  559.   STATUS_SINGLE_STEP              = DWORD($80000004);
  560.   {$EXTERNALSYM STATUS_SINGLE_STEP}
  561.   STATUS_ACCESS_VIOLATION         = DWORD($C0000005);
  562.   {$EXTERNALSYM STATUS_ACCESS_VIOLATION}
  563.   STATUS_IN_PAGE_ERROR            = DWORD($C0000006);
  564.   {$EXTERNALSYM STATUS_IN_PAGE_ERROR}
  565.   STATUS_INVALID_HANDLE           = DWORD($C0000008);
  566.   {$EXTERNALSYM STATUS_INVALID_HANDLE}
  567.   STATUS_NO_MEMORY                = DWORD($C0000017);
  568.   {$EXTERNALSYM STATUS_NO_MEMORY}
  569.   STATUS_ILLEGAL_INSTRUCTION      = DWORD($C000001D);
  570.   {$EXTERNALSYM STATUS_ILLEGAL_INSTRUCTION}
  571.   STATUS_NONCONTINUABLE_EXCEPTION = DWORD($C0000025);
  572.   {$EXTERNALSYM STATUS_NONCONTINUABLE_EXCEPTION}
  573.   STATUS_INVALID_DISPOSITION      = DWORD($C0000026);
  574.   {$EXTERNALSYM STATUS_INVALID_DISPOSITION}
  575.   STATUS_ARRAY_BOUNDS_EXCEEDED    = DWORD($C000008C);
  576.   {$EXTERNALSYM STATUS_ARRAY_BOUNDS_EXCEEDED}
  577.   STATUS_FLOAT_DENORMAL_OPERAND   = DWORD($C000008D);
  578.   {$EXTERNALSYM STATUS_FLOAT_DENORMAL_OPERAND}
  579.   STATUS_FLOAT_DIVIDE_BY_ZERO     = DWORD($C000008E);
  580.   {$EXTERNALSYM STATUS_FLOAT_DIVIDE_BY_ZERO}
  581.   STATUS_FLOAT_INEXACT_RESULT     = DWORD($C000008F);
  582.   {$EXTERNALSYM STATUS_FLOAT_INEXACT_RESULT}
  583.   STATUS_FLOAT_INVALID_OPERATION  = DWORD($C0000090);
  584.   {$EXTERNALSYM STATUS_FLOAT_INVALID_OPERATION}
  585.   STATUS_FLOAT_OVERFLOW           = DWORD($C0000091);
  586.   {$EXTERNALSYM STATUS_FLOAT_OVERFLOW}
  587.   STATUS_FLOAT_STACK_CHECK        = DWORD($C0000092);
  588.   {$EXTERNALSYM STATUS_FLOAT_STACK_CHECK}
  589.   STATUS_FLOAT_UNDERFLOW          = DWORD($C0000093);
  590.   {$EXTERNALSYM STATUS_FLOAT_UNDERFLOW}
  591.   STATUS_INTEGER_DIVIDE_BY_ZERO   = DWORD($C0000094);
  592.   {$EXTERNALSYM STATUS_INTEGER_DIVIDE_BY_ZERO}
  593.   STATUS_INTEGER_OVERFLOW         = DWORD($C0000095);
  594.   {$EXTERNALSYM STATUS_INTEGER_OVERFLOW}
  595.   STATUS_PRIVILEGED_INSTRUCTION   = DWORD($C0000096);
  596.   {$EXTERNALSYM STATUS_PRIVILEGED_INSTRUCTION}
  597.   STATUS_STACK_OVERFLOW           = DWORD($C00000FD);
  598.   {$EXTERNALSYM STATUS_STACK_OVERFLOW}
  599.   STATUS_CONTROL_C_EXIT           = DWORD($C000013A);
  600.   {$EXTERNALSYM STATUS_CONTROL_C_EXIT}
  601.  
  602.   MAXIMUM_WAIT_OBJECTS = 64;
  603.   {$EXTERNALSYM MAXIMUM_WAIT_OBJECTS}
  604.  
  605. {line 1280}
  606.   SIZE_OF_80387_REGISTERS = 80;
  607.   {$EXTERNALSYM SIZE_OF_80387_REGISTERS}
  608.  
  609.   { The following flags control the contents of the CONTEXT structure. }
  610.  
  611.   CONTEXT_i386 = $10000;     { this assumes that i386 and }
  612.   {$EXTERNALSYM CONTEXT_i386}
  613.   CONTEXT_i486 = $10000;     { i486 have identical context records }
  614.   {$EXTERNALSYM CONTEXT_i486}
  615.  
  616.   CONTEXT_CONTROL         = (CONTEXT_i386 or $00000001); { SS:SP, CS:IP, FLAGS, BP }
  617.   {$EXTERNALSYM CONTEXT_CONTROL}
  618.   CONTEXT_INTEGER         = (CONTEXT_i386 or $00000002); { AX, BX, CX, DX, SI, DI }
  619.   {$EXTERNALSYM CONTEXT_INTEGER}
  620.   CONTEXT_SEGMENTS        = (CONTEXT_i386 or $00000004); { DS, ES, FS, GS }
  621.   {$EXTERNALSYM CONTEXT_SEGMENTS}
  622.   CONTEXT_FLOATING_POINT  = (CONTEXT_i386 or $00000008); { 387 state }
  623.   {$EXTERNALSYM CONTEXT_FLOATING_POINT}
  624.   CONTEXT_DEBUG_REGISTERS = (CONTEXT_i386 or $00000010); { DB 0-3,6,7 }
  625.   {$EXTERNALSYM CONTEXT_DEBUG_REGISTERS}
  626.   CONTEXT_FULL = (CONTEXT_CONTROL or CONTEXT_INTEGER or CONTEXT_SEGMENTS);
  627.   {$EXTERNALSYM CONTEXT_FULL}
  628.  
  629. type
  630.   PFloatingSaveArea = ^TFloatingSaveArea;
  631.   _FLOATING_SAVE_AREA = record
  632.     ControlWord: DWORD;
  633.     StatusWord: DWORD;
  634.     TagWord: DWORD;
  635.     ErrorOffset: DWORD;
  636.     ErrorSelector: DWORD;
  637.     DataOffset: DWORD;
  638.     DataSelector: DWORD;
  639.     RegisterArea: array[0..SIZE_OF_80387_REGISTERS - 1] of Byte;
  640.     Cr0NpxState: DWORD;
  641.   end;
  642.   {$EXTERNALSYM _FLOATING_SAVE_AREA}
  643.   TFloatingSaveArea = _FLOATING_SAVE_AREA;
  644.   FLOATING_SAVE_AREA = _FLOATING_SAVE_AREA;
  645.   {$EXTERNALSYM FLOATING_SAVE_AREA}
  646.  
  647. { This frame has a several purposes: 1) it is used as an argument to
  648.   NtContinue, 2) is is used to constuct a call frame for APC delivery,
  649.   and 3) it is used in the user level thread creation routines.
  650.   The layout of the record conforms to a standard call frame. }
  651.  
  652.   PContext = ^TContext;
  653.   _CONTEXT = record
  654.   {$EXTERNALSYM _CONTEXT}
  655.  
  656.   { The flags values within this flag control the contents of
  657.     a CONTEXT record.
  658.  
  659.     If the context record is used as an input parameter, then
  660.     for each portion of the context record controlled by a flag
  661.     whose value is set, it is assumed that that portion of the
  662.     context record contains valid context. If the context record
  663.     is being used to modify a threads context, then only that
  664.     portion of the threads context will be modified.
  665.  
  666.     If the context record is used as an IN OUT parameter to capture
  667.     the context of a thread, then only those portions of the thread's
  668.     context corresponding to set flags will be returned.
  669.  
  670.     The context record is never used as an OUT only parameter. }
  671.  
  672.     ContextFlags: DWORD;
  673.  
  674.   { This section is specified/returned if CONTEXT_DEBUG_REGISTERS is
  675.     set in ContextFlags.  Note that CONTEXT_DEBUG_REGISTERS is NOT
  676.     included in CONTEXT_FULL. }
  677.  
  678.     Dr0: DWORD;
  679.     Dr1: DWORD;
  680.     Dr2: DWORD;
  681.     Dr3: DWORD;
  682.     Dr6: DWORD;
  683.     Dr7: DWORD;
  684.  
  685.   { This section is specified/returned if the
  686.     ContextFlags word contians the flag CONTEXT_FLOATING_POINT. }
  687.  
  688.     FloatSave: TFloatingSaveArea;
  689.  
  690.   { This section is specified/returned if the
  691.     ContextFlags word contians the flag CONTEXT_SEGMENTS. }
  692.  
  693.     SegGs: DWORD;
  694.     SegFs: DWORD;
  695.     SegEs: DWORD;
  696.     SegDs: DWORD;
  697.  
  698.   { This section is specified/returned if the
  699.     ContextFlags word contians the flag CONTEXT_INTEGER. }
  700.  
  701.     Edi: DWORD;
  702.     Esi: DWORD;
  703.     Ebx: DWORD;
  704.     Edx: DWORD;
  705.     Ecx: DWORD;
  706.     Eax: DWORD;
  707.  
  708.   { This section is specified/returned if the
  709.     ContextFlags word contians the flag CONTEXT_CONTROL. }
  710.  
  711.     Ebp: DWORD;
  712.     Eip: DWORD;
  713.     SegCs: DWORD;
  714.     EFlags: DWORD;
  715.     Esp: DWORD;
  716.     SegSs: DWORD;
  717.   end;
  718.   TContext = _CONTEXT;
  719.   CONTEXT = _CONTEXT;
  720.   {$EXTERNALSYM CONTEXT}
  721.  
  722. const
  723.   { bitfield constants for Flags field of TLDTEntry }
  724.  
  725.   LDTF_BASEMID      = DWORD($FF000000);  {8}
  726.   LDTF_TYPE_8       = $00F80000;  {5}
  727.   LDTF_DPL          = $00060000;  {2}
  728.   LDTF_PRES         = $00010000;  {1}
  729.   LDTF_LIMITHI      = $0000F000;  {4}
  730.   LDTF_SYS          = $00000800;  {1}
  731.   LDTF_RESERVED_0   = $00000400;  {1}
  732.   LDTF_DEFAULT_BIG  = $00000200;  {1}
  733.   LDTF_GRANULARITY  = $00000100;  {1}
  734.   LDTF_BASEHI       = $000000FF;  {8}
  735.  
  736.  
  737. type
  738.   PLDTEntry = ^TLDTEntry;
  739.   _LDT_ENTRY = record
  740.     LimitLow: Word;
  741.     BaseLow: Word;
  742.     case Integer of
  743.       0: (
  744.         BaseMid: Byte;
  745.         Flags1: Byte;
  746.         Flags2: Byte;
  747.         BaseHi: Byte);
  748.       1: (
  749.         Flags: Longint);
  750.   end;
  751.   {$EXTERNALSYM _LDT_ENTRY}
  752.   TLDTEntry = _LDT_ENTRY;
  753.   LDT_ENTRY = _LDT_ENTRY;
  754.   {$EXTERNALSYM LDT_ENTRY}
  755.  
  756. {line 2030}
  757. const
  758.   EXCEPTION_NONCONTINUABLE     = 1;    { Noncontinuable exception }
  759.   {$EXTERNALSYM EXCEPTION_NONCONTINUABLE}
  760.   EXCEPTION_MAXIMUM_PARAMETERS = 15;   { maximum number of exception parameters }
  761.   {$EXTERNALSYM EXCEPTION_MAXIMUM_PARAMETERS}
  762.  
  763. type
  764.   PExceptionRecord = ^TExceptionRecord;
  765.   _EXCEPTION_RECORD = record
  766.     ExceptionCode: DWORD;
  767.     ExceptionFlags: DWORD;
  768.     ExceptionRecord: PExceptionRecord;
  769.     ExceptionAddress: Pointer;
  770.     NumberParameters: DWORD;
  771.     ExceptionInformation: array[0..EXCEPTION_MAXIMUM_PARAMETERS - 1] of DWORD;
  772.   end;
  773.   {$EXTERNALSYM _EXCEPTION_RECORD}
  774.   TExceptionRecord = _EXCEPTION_RECORD;
  775.   EXCEPTION_RECORD = _EXCEPTION_RECORD;
  776.   {$EXTERNALSYM EXCEPTION_RECORD}
  777.  
  778. { Typedef for pointer returned by exception_info() }
  779.  
  780.   _EXCEPTION_POINTERS = record
  781.     ExceptionRecord : PExceptionRecord;
  782.     ContextRecord : PContext;
  783.   end;
  784.   {$EXTERNALSYM _EXCEPTION_POINTERS}
  785.   TExceptionPointers = _EXCEPTION_POINTERS;
  786.   EXCEPTION_POINTERS = _EXCEPTION_POINTERS;
  787.   {$EXTERNALSYM EXCEPTION_POINTERS}
  788.  
  789. {line 2100}
  790. const
  791.   THREAD_BASE_PRIORITY_LOWRT = 15;  { value that gets a thread to LowRealtime-1 }
  792.   {$EXTERNALSYM THREAD_BASE_PRIORITY_LOWRT}
  793.   THREAD_BASE_PRIORITY_MAX = 2;     { maximum thread base priority boost }
  794.   {$EXTERNALSYM THREAD_BASE_PRIORITY_MAX}
  795.   THREAD_BASE_PRIORITY_MIN = -2;    { minimum thread base priority boost }
  796.   {$EXTERNALSYM THREAD_BASE_PRIORITY_MIN}
  797.   THREAD_BASE_PRIORITY_IDLE = -15;  { value that gets a thread to idle }
  798.   {$EXTERNALSYM THREAD_BASE_PRIORITY_IDLE}
  799.  
  800.   SYNCHRONIZE = $00100000;
  801.   {$EXTERNALSYM SYNCHRONIZE}
  802.   STANDARD_RIGHTS_REQUIRED = $000F0000;
  803.   {$EXTERNALSYM STANDARD_RIGHTS_REQUIRED}
  804.   EVENT_MODIFY_STATE = $0002;
  805.   {$EXTERNALSYM EVENT_MODIFY_STATE}
  806.   EVENT_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $3);
  807.   {$EXTERNALSYM EVENT_ALL_ACCESS}
  808.   MUTANT_QUERY_STATE = $0001;
  809.   {$EXTERNALSYM MUTANT_QUERY_STATE}
  810.   MUTANT_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or MUTANT_QUERY_STATE);
  811.   {$EXTERNALSYM MUTANT_ALL_ACCESS}
  812.  
  813.   PROCESS_TERMINATE         = $0001;
  814.   {$EXTERNALSYM PROCESS_TERMINATE}
  815.   PROCESS_CREATE_THREAD     = $0002;
  816.   {$EXTERNALSYM PROCESS_CREATE_THREAD}
  817.   PROCESS_VM_OPERATION      = $0008;
  818.   {$EXTERNALSYM PROCESS_VM_OPERATION}
  819.   PROCESS_VM_READ           = $0010;
  820.   {$EXTERNALSYM PROCESS_VM_READ}
  821.   PROCESS_VM_WRITE          = $0020;
  822.   {$EXTERNALSYM PROCESS_VM_WRITE}
  823.   PROCESS_DUP_HANDLE        = $0040;
  824.   {$EXTERNALSYM PROCESS_DUP_HANDLE}
  825.   PROCESS_CREATE_PROCESS    = $0080;
  826.   {$EXTERNALSYM PROCESS_CREATE_PROCESS}
  827.   PROCESS_SET_QUOTA         = $0100;
  828.   {$EXTERNALSYM PROCESS_SET_QUOTA}
  829.   PROCESS_SET_INFORMATION   = $0200;
  830.   {$EXTERNALSYM PROCESS_SET_INFORMATION}
  831.   PROCESS_QUERY_INFORMATION = $0400;
  832.   {$EXTERNALSYM PROCESS_QUERY_INFORMATION}
  833.   PROCESS_ALL_ACCESS        = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $FFF);
  834.   {$EXTERNALSYM PROCESS_ALL_ACCESS}
  835.  
  836. {line 2150}
  837. type
  838.   PMemoryBasicInformation = ^TMemoryBasicInformation;
  839.   _MEMORY_BASIC_INFORMATION = record
  840.     BaseAddress : Pointer;
  841.     AllocationBase : Pointer;
  842.     AllocationProtect : DWORD;
  843.     RegionSize : DWORD;
  844.     State : DWORD;
  845.     Protect : DWORD;
  846.     Type_9 : DWORD;
  847.   end;
  848.   {$EXTERNALSYM _MEMORY_BASIC_INFORMATION}
  849.   TMemoryBasicInformation = _MEMORY_BASIC_INFORMATION;
  850.   MEMORY_BASIC_INFORMATION = _MEMORY_BASIC_INFORMATION;
  851.   {$EXTERNALSYM MEMORY_BASIC_INFORMATION}
  852.  
  853. const
  854.   SECTION_QUERY = 1;
  855.   {$EXTERNALSYM SECTION_QUERY}
  856.   SECTION_MAP_WRITE = 2;
  857.   {$EXTERNALSYM SECTION_MAP_WRITE}
  858.   SECTION_MAP_READ = 4;
  859.   {$EXTERNALSYM SECTION_MAP_READ}
  860.   SECTION_MAP_EXECUTE = 8;
  861.   {$EXTERNALSYM SECTION_MAP_EXECUTE}
  862.   SECTION_EXTEND_SIZE = $10;
  863.   {$EXTERNALSYM SECTION_EXTEND_SIZE}
  864.   SECTION_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SECTION_QUERY or
  865.     SECTION_MAP_WRITE or SECTION_MAP_READ or SECTION_MAP_EXECUTE or SECTION_EXTEND_SIZE);
  866.   {$EXTERNALSYM SECTION_ALL_ACCESS}
  867.  
  868.   PAGE_NOACCESS = 1;
  869.   {$EXTERNALSYM PAGE_NOACCESS}
  870.   PAGE_READONLY = 2;
  871.   {$EXTERNALSYM PAGE_READONLY}
  872.   PAGE_READWRITE = 4;
  873.   {$EXTERNALSYM PAGE_READWRITE}
  874.   PAGE_WRITECOPY = 8;
  875.   {$EXTERNALSYM PAGE_WRITECOPY}
  876.   PAGE_EXECUTE = $10;
  877.   {$EXTERNALSYM PAGE_EXECUTE}
  878.   PAGE_EXECUTE_READ = $20;
  879.   {$EXTERNALSYM PAGE_EXECUTE_READ}
  880.   PAGE_EXECUTE_READWRITE = $40;
  881.   {$EXTERNALSYM PAGE_EXECUTE_READWRITE}
  882.   PAGE_EXECUTE_WRITECOPY = $80;
  883.   {$EXTERNALSYM PAGE_EXECUTE_WRITECOPY}
  884.   PAGE_GUARD = $100;
  885.   {$EXTERNALSYM PAGE_GUARD}
  886.   PAGE_NOCACHE = $200;
  887.   {$EXTERNALSYM PAGE_NOCACHE}
  888.   MEM_COMMIT = $1000;
  889.   {$EXTERNALSYM MEM_COMMIT}
  890.   MEM_RESERVE = $2000;
  891.   {$EXTERNALSYM MEM_RESERVE}
  892.   MEM_DECOMMIT = $4000;
  893.   {$EXTERNALSYM MEM_DECOMMIT}
  894.   MEM_RELEASE = $8000;
  895.   {$EXTERNALSYM MEM_RELEASE}
  896.   MEM_FREE = $10000;
  897.   {$EXTERNALSYM MEM_FREE}
  898.   MEM_PRIVATE = $20000;
  899.   {$EXTERNALSYM MEM_PRIVATE}
  900.   MEM_MAPPED = $40000;
  901.   {$EXTERNALSYM MEM_MAPPED}
  902.   MEM_RESET = $80000;
  903.   {$EXTERNALSYM MEM_RESET}
  904.   MEM_TOP_DOWN = $100000;
  905.   {$EXTERNALSYM MEM_TOP_DOWN}
  906.   SEC_FILE = $800000;
  907.   {$EXTERNALSYM SEC_FILE}
  908.   SEC_IMAGE = $1000000;
  909.   {$EXTERNALSYM SEC_IMAGE}
  910.   SEC_RESERVE = $4000000;
  911.   {$EXTERNALSYM SEC_RESERVE}
  912.   SEC_COMMIT = $8000000;
  913.   {$EXTERNALSYM SEC_COMMIT}
  914.   SEC_NOCACHE = $10000000;
  915.   {$EXTERNALSYM SEC_NOCACHE}
  916.   MEM_IMAGE = SEC_IMAGE;
  917.   {$EXTERNALSYM MEM_IMAGE}
  918.  
  919.  
  920. {line 2250}
  921.   FILE_SHARE_READ                     = $00000001;
  922.   {$EXTERNALSYM FILE_SHARE_READ}
  923.   FILE_SHARE_WRITE                    = $00000002;
  924.   {$EXTERNALSYM FILE_SHARE_WRITE}
  925.   FILE_SHARE_DELETE                   = $00000004;
  926.   {$EXTERNALSYM FILE_SHARE_DELETE}
  927.   FILE_ATTRIBUTE_READONLY             = $00000001;
  928.   {$EXTERNALSYM FILE_ATTRIBUTE_READONLY}
  929.   FILE_ATTRIBUTE_HIDDEN               = $00000002;
  930.   {$EXTERNALSYM FILE_ATTRIBUTE_HIDDEN}
  931.   FILE_ATTRIBUTE_SYSTEM               = $00000004;
  932.   {$EXTERNALSYM FILE_ATTRIBUTE_SYSTEM}
  933.   FILE_ATTRIBUTE_DIRECTORY            = $00000010;
  934.   {$EXTERNALSYM FILE_ATTRIBUTE_DIRECTORY}
  935.   FILE_ATTRIBUTE_ARCHIVE              = $00000020;
  936.   {$EXTERNALSYM FILE_ATTRIBUTE_ARCHIVE}
  937.   FILE_ATTRIBUTE_NORMAL               = $00000080;
  938.   {$EXTERNALSYM FILE_ATTRIBUTE_NORMAL}
  939.   FILE_ATTRIBUTE_TEMPORARY            = $00000100;
  940.   {$EXTERNALSYM FILE_ATTRIBUTE_TEMPORARY}
  941.   FILE_ATTRIBUTE_COMPRESSED           = $00000800;
  942.   {$EXTERNALSYM FILE_ATTRIBUTE_COMPRESSED}
  943.   FILE_ATTRIBUTE_OFFLINE              = $00001000;
  944.   {$EXTERNALSYM FILE_ATTRIBUTE_OFFLINE}
  945.   FILE_NOTIFY_CHANGE_FILE_NAME        = $00000001;
  946.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_FILE_NAME}
  947.   FILE_NOTIFY_CHANGE_DIR_NAME         = $00000002;
  948.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_DIR_NAME}
  949.   FILE_NOTIFY_CHANGE_ATTRIBUTES       = $00000004;
  950.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_ATTRIBUTES}
  951.   FILE_NOTIFY_CHANGE_SIZE             = $00000008;
  952.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_SIZE}
  953.   FILE_NOTIFY_CHANGE_LAST_WRITE       = $00000010;
  954.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_LAST_WRITE}
  955.   FILE_NOTIFY_CHANGE_LAST_ACCESS      = $00000020;
  956.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_LAST_ACCESS}
  957.   FILE_NOTIFY_CHANGE_CREATION         = $00000040;
  958.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_CREATION}
  959.   FILE_NOTIFY_CHANGE_SECURITY         = $00000100;
  960.   {$EXTERNALSYM FILE_NOTIFY_CHANGE_SECURITY}
  961.   FILE_ACTION_ADDED                   = $00000001;
  962.   {$EXTERNALSYM FILE_ACTION_ADDED}
  963.   FILE_ACTION_REMOVED                 = $00000002;
  964.   {$EXTERNALSYM FILE_ACTION_REMOVED}
  965.   FILE_ACTION_MODIFIED                = $00000003;
  966.   {$EXTERNALSYM FILE_ACTION_MODIFIED}
  967.   FILE_ACTION_RENAMED_OLD_NAME        = $00000004;
  968.   {$EXTERNALSYM FILE_ACTION_RENAMED_OLD_NAME}
  969.   FILE_ACTION_RENAMED_NEW_NAME        = $00000005;
  970.   {$EXTERNALSYM FILE_ACTION_RENAMED_NEW_NAME}
  971.   MAILSLOT_NO_MESSAGE                 = LongWord(-1);
  972.   {$EXTERNALSYM MAILSLOT_NO_MESSAGE}
  973.   MAILSLOT_WAIT_FOREVER               = LongWord(-1);
  974.   {$EXTERNALSYM MAILSLOT_WAIT_FOREVER}
  975.   FILE_CASE_SENSITIVE_SEARCH          = $00000001;
  976.   {$EXTERNALSYM FILE_CASE_SENSITIVE_SEARCH}
  977.   FILE_CASE_PRESERVED_NAMES           = $00000002;
  978.   {$EXTERNALSYM FILE_CASE_PRESERVED_NAMES}
  979.   FILE_UNICODE_ON_DISK                = $00000004;
  980.   {$EXTERNALSYM FILE_UNICODE_ON_DISK}
  981.   FILE_PERSISTENT_ACLS                = $00000008;
  982.   {$EXTERNALSYM FILE_PERSISTENT_ACLS}
  983.   FILE_FILE_COMPRESSION               = $00000010;
  984.   {$EXTERNALSYM FILE_FILE_COMPRESSION}
  985.   FILE_VOLUME_IS_COMPRESSED           = $00008000;
  986.   {$EXTERNALSYM FILE_VOLUME_IS_COMPRESSED}
  987.  
  988.  
  989. {line 2300}
  990. const
  991.   IO_COMPLETION_MODIFY_STATE = $0002;
  992.   {$EXTERNALSYM IO_COMPLETION_MODIFY_STATE}
  993.   IO_COMPLETION_ALL_ACCESS   = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or 3);
  994.   {$EXTERNALSYM IO_COMPLETION_ALL_ACCESS}
  995.   DUPLICATE_CLOSE_SOURCE     = $00000001;
  996.   {$EXTERNALSYM DUPLICATE_CLOSE_SOURCE}
  997.   DUPLICATE_SAME_ACCESS      = $00000002;
  998.   {$EXTERNALSYM DUPLICATE_SAME_ACCESS}
  999.  
  1000. type
  1001.   PSECURITY_DESCRIPTOR = Pointer;
  1002.   {$EXTERNALSYM PSECURITY_DESCRIPTOR}
  1003.  
  1004.   ACCESS_MASK = DWORD;
  1005.   {$EXTERNALSYM ACCESS_MASK}
  1006.   PACCESS_MASK = ^ACCESS_MASK;
  1007.  
  1008. const
  1009.   { The following are masks for the predefined standard access types }
  1010.  
  1011.   _DELETE                  = $00010000; { Renamed from DELETE }
  1012.   READ_CONTROL             = $00020000;
  1013.   {$EXTERNALSYM READ_CONTROL}
  1014.   WRITE_DAC                = $00040000;
  1015.   {$EXTERNALSYM WRITE_DAC}
  1016.   WRITE_OWNER              = $00080000;
  1017.   {$EXTERNALSYM WRITE_OWNER}
  1018. { SYNCHRONIZE              = $00100000; defined above }
  1019. { STANDARD_RIGHTS_REQUIRED = $000F0000; defined above }
  1020.   STANDARD_RIGHTS_READ     = READ_CONTROL;
  1021.   {$EXTERNALSYM STANDARD_RIGHTS_READ}
  1022.   STANDARD_RIGHTS_WRITE    = READ_CONTROL;
  1023.   {$EXTERNALSYM STANDARD_RIGHTS_WRITE}
  1024.   STANDARD_RIGHTS_EXECUTE  = READ_CONTROL;
  1025.   {$EXTERNALSYM STANDARD_RIGHTS_EXECUTE}
  1026.   STANDARD_RIGHTS_ALL      = $001F0000;
  1027.   {$EXTERNALSYM STANDARD_RIGHTS_ALL}
  1028.   SPECIFIC_RIGHTS_ALL      = $0000FFFF;
  1029.   {$EXTERNALSYM SPECIFIC_RIGHTS_ALL}
  1030.   ACCESS_SYSTEM_SECURITY   = $01000000;
  1031.   {$EXTERNALSYM ACCESS_SYSTEM_SECURITY}
  1032.   MAXIMUM_ALLOWED          = $02000000;
  1033.   {$EXTERNALSYM MAXIMUM_ALLOWED}
  1034.   GENERIC_READ             = DWORD($80000000);
  1035.   {$EXTERNALSYM GENERIC_READ}
  1036.   GENERIC_WRITE            = $40000000;
  1037.   {$EXTERNALSYM GENERIC_WRITE}
  1038.   GENERIC_EXECUTE          = $20000000;
  1039.   {$EXTERNALSYM GENERIC_EXECUTE}
  1040.   GENERIC_ALL              = $10000000;
  1041.   {$EXTERNALSYM GENERIC_ALL}
  1042.  
  1043. type
  1044.   { Define the generic mapping array.  This is used to denote the
  1045.     mapping of each generic access right to a specific access mask. }
  1046.  
  1047.   PGenericMapping = ^TGenericMapping;
  1048.   _GENERIC_MAPPING = record
  1049.     GenericRead: ACCESS_MASK;
  1050.     GenericWrite: ACCESS_MASK;
  1051.     GenericExecute: ACCESS_MASK;
  1052.     GenericAll: ACCESS_MASK;
  1053.   end;
  1054.   {$EXTERNALSYM _GENERIC_MAPPING}
  1055.   TGenericMapping = _GENERIC_MAPPING;
  1056.   GENERIC_MAPPING = _GENERIC_MAPPING;
  1057.   {$EXTERNALSYM GENERIC_MAPPING}
  1058.  
  1059.   PLUIDAndAttributes = ^TLUIDAndAttributes;
  1060.   _LUID_AND_ATTRIBUTES = packed record
  1061.     Luid: TLargeInteger;
  1062.     Attributes: DWORD;
  1063.   end;
  1064.   {$EXTERNALSYM _LUID_AND_ATTRIBUTES}
  1065.   TLUIDAndAttributes = _LUID_AND_ATTRIBUTES;
  1066.   LUID_AND_ATTRIBUTES = _LUID_AND_ATTRIBUTES;
  1067.   {$EXTERNALSYM LUID_AND_ATTRIBUTES}
  1068.  
  1069. { ////////////////////////////////////////////////////////////////////// }
  1070. {                                                                    // }
  1071. {              Security Id     (SID)                                 // }
  1072. {                                                                    // }
  1073. { ////////////////////////////////////////////////////////////////////// }
  1074.  
  1075.  
  1076. { Pictorially the structure of an SID is as follows: }
  1077.  
  1078. {         1   1   1   1   1   1 }
  1079. {         5   4   3   2   1   0   9   8   7   6   5   4   3   2   1   0 }
  1080. {      +---------------------------------------------------------------+ }
  1081. {      |      SubAuthorityCount        |Reserved1 (SBZ)|   Revision    | }
  1082. {      +---------------------------------------------------------------+ }
  1083. {      |                   IdentifierAuthority[0]                      | }
  1084. {      +---------------------------------------------------------------+ }
  1085. {      |                   IdentifierAuthority[1]                      | }
  1086. {      +---------------------------------------------------------------+ }
  1087. {      |                   IdentifierAuthority[2]                      | }
  1088. {      +---------------------------------------------------------------+ }
  1089. {      |                                                               | }
  1090. {      +- -  -  -  -  -  -  -  SubAuthority[]  -  -  -  -  -  -  -  - -+ }
  1091. {      |                                                               | }
  1092. {      +---------------------------------------------------------------+ }
  1093.  
  1094.   PSIDIdentifierAuthority = ^TSIDIdentifierAuthority;
  1095.   _SID_IDENTIFIER_AUTHORITY = record
  1096.     Value: array[0..5] of Byte;
  1097.   end;
  1098.   {$EXTERNALSYM _SID_IDENTIFIER_AUTHORITY}
  1099.   TSIDIdentifierAuthority = _SID_IDENTIFIER_AUTHORITY;
  1100.   SID_IDENTIFIER_AUTHORITY = _SID_IDENTIFIER_AUTHORITY;
  1101.   {$EXTERNALSYM SID_IDENTIFIER_AUTHORITY}
  1102.  
  1103. const
  1104.   SidTypeUser = 1;
  1105.   {$EXTERNALSYM SidTypeUser}
  1106.   SidTypeGroup = 2;
  1107.   {$EXTERNALSYM SidTypeGroup}
  1108.   SidTypeDomain = 3;
  1109.   {$EXTERNALSYM SidTypeDomain}
  1110.   SidTypeAlias = 4;
  1111.   {$EXTERNALSYM SidTypeAlias}
  1112.   SidTypeWellKnownGroup = 5;
  1113.   {$EXTERNALSYM SidTypeWellKnownGroup}
  1114.   SidTypeDeletedAccount = 6;
  1115.   {$EXTERNALSYM SidTypeDeletedAccount}
  1116.   SidTypeInvalid = 7;
  1117.   {$EXTERNALSYM SidTypeInvalid}
  1118.   SidTypeUnknown = 8;
  1119.   {$EXTERNALSYM SidTypeUnknown}
  1120. type
  1121.   SID_NAME_USE = DWORD;
  1122.   {$EXTERNALSYM SID_NAME_USE}
  1123.  
  1124.   PSIDAndAttributes = ^TSIDAndAttributes;
  1125.   _SID_AND_ATTRIBUTES = record
  1126.     Sid: PSID;
  1127.     Attributes: DWORD;
  1128.   end;
  1129.   {$EXTERNALSYM _SID_AND_ATTRIBUTES}
  1130.   TSIDAndAttributes = _SID_AND_ATTRIBUTES;
  1131.   SID_AND_ATTRIBUTES = _SID_AND_ATTRIBUTES;
  1132.   {$EXTERNALSYM SID_AND_ATTRIBUTES}
  1133.  
  1134. {line 2700}
  1135.   PACL = ^TACL;
  1136.   {$EXTERNALSYM PACL}
  1137.   _ACL = record
  1138.     AclRevision: Byte;
  1139.     Sbz1: Byte;
  1140.     AclSize: Word;
  1141.     AceCount: Word;
  1142.     Sbz2: Word;
  1143.   end;
  1144.   {$EXTERNALSYM _ACL}
  1145.   TACL = _ACL;
  1146.   ACL = _ACL;
  1147.   {$EXTERNALSYM ACL}
  1148.  
  1149. {line 2850}
  1150.   { The following declarations are used for setting and querying information
  1151.     about and ACL.  First are the various information classes available to
  1152.     the user. }
  1153.  
  1154.   TAclInformationClass = (AclInfoPad, AclRevisionInformation, AclSizeInformation);
  1155.   {$EXTERNALSYM TAclInformationClass}
  1156.  
  1157. {line 2900}
  1158. { Security Descriptor and related data types. }
  1159.  
  1160. const
  1161.   SECURITY_DESCRIPTOR_REVISION = 1;
  1162.   {$EXTERNALSYM SECURITY_DESCRIPTOR_REVISION}
  1163.   SECURITY_DESCRIPTOR_REVISION1 = 1;
  1164.   {$EXTERNALSYM SECURITY_DESCRIPTOR_REVISION1}
  1165.   SECURITY_DESCRIPTOR_MIN_LENGTH = 20;
  1166.   {$EXTERNALSYM SECURITY_DESCRIPTOR_MIN_LENGTH}
  1167.   SE_OWNER_DEFAULTED = $0001;
  1168.   {$EXTERNALSYM SE_OWNER_DEFAULTED}
  1169.   SE_GROUP_DEFAULTED = $0002;
  1170.   {$EXTERNALSYM SE_GROUP_DEFAULTED}
  1171.   SE_DACL_PRESENT    = $0004;
  1172.   {$EXTERNALSYM SE_DACL_PRESENT}
  1173.   SE_DACL_DEFAULTED  = $0008;
  1174.   {$EXTERNALSYM SE_DACL_DEFAULTED}
  1175.   SE_SACL_PRESENT    = $0010;
  1176.   {$EXTERNALSYM SE_SACL_PRESENT}
  1177.   SE_SACL_DEFAULTED  = $0020;
  1178.   {$EXTERNALSYM SE_SACL_DEFAULTED}
  1179.   SE_DACL_AUTO_INHERIT_REQ = $0100;
  1180.   {$EXTERNALSYM SE_DACL_AUTO_INHERIT_REQ}
  1181.   SE_SACL_AUTO_INHERIT_REQ = $0200;
  1182.   {$EXTERNALSYM SE_SACL_AUTO_INHERIT_REQ}
  1183.   SE_DACL_AUTO_INHERITED = $0400;
  1184.   {$EXTERNALSYM SE_DACL_AUTO_INHERITED}
  1185.   SE_SACL_AUTO_INHERITED = $0800;
  1186.   {$EXTERNALSYM SE_SACL_AUTO_INHERITED}
  1187.   SE_DACL_PROTECTED = $1000;
  1188.   {$EXTERNALSYM SE_DACL_PROTECTED}
  1189.   SE_SACL_PROTECTED = $2000;
  1190.   {$EXTERNALSYM SE_SACL_PROTECTED}
  1191.  
  1192.   SE_SELF_RELATIVE   = $8000;
  1193.   {$EXTERNALSYM SE_SELF_RELATIVE}
  1194.  
  1195. {  Where: }
  1196.  
  1197. {      SE_OWNER_DEFAULTED - This boolean flag, when set, indicates that the }
  1198. {          SID pointed to by the Owner field was provided by a }
  1199. {          defaulting mechanism rather than explicitly provided by the }
  1200. {          original provider of the security descriptor.  This may }
  1201. {          affect the treatment of the SID with respect to inheritence }
  1202. {          of an owner. }
  1203.  
  1204. {      SE_GROUP_DEFAULTED - This boolean flag, when set, indicates that the }
  1205. {          SID in the Group field was provided by a defaulting mechanism }
  1206. {          rather than explicitly provided by the original provider of }
  1207. {          the security descriptor.  This may affect the treatment of }
  1208. {          the SID with respect to inheritence of a primary group. }
  1209.  
  1210. {      SE_DACL_PRESENT - This boolean flag, when set, indicates that the }
  1211. {          security descriptor contains a discretionary ACL.  If this }
  1212. {          flag is set and the Dacl field of the SECURITY_DESCRIPTOR is }
  1213. {          null, then a null ACL is explicitly being specified. }
  1214.  
  1215. {      SE_DACL_DEFAULTED - This boolean flag, when set, indicates that the }
  1216. {          ACL pointed to by the Dacl field was provided by a defaulting }
  1217. {          mechanism rather than explicitly provided by the original }
  1218. {          provider of the security descriptor.  This may affect the }
  1219. {          treatment of the ACL with respect to inheritence of an ACL. }
  1220. {          This flag is ignored if the DaclPresent flag is not set. }
  1221.  
  1222. {      SE_SACL_PRESENT - This boolean flag, when set,  indicates that the }
  1223. {          security descriptor contains a system ACL pointed to by the }
  1224. {          Sacl field.  If this flag is set and the Sacl field of the }
  1225. {          SECURITY_DESCRIPTOR is null, then an empty (but present) }
  1226. {          ACL is being specified. }
  1227.  
  1228. {      SE_SACL_DEFAULTED - This boolean flag, when set, indicates that the }
  1229. {          ACL pointed to by the Sacl field was provided by a defaulting }
  1230. {          mechanism rather than explicitly provided by the original }
  1231. {          provider of the security descriptor.  This may affect the }
  1232. {          treatment of the ACL with respect to inheritence of an ACL. }
  1233. {          This flag is ignored if the SaclPresent flag is not set. }
  1234.  
  1235. {      SE_SELF_RELATIVE - This boolean flag, when set, indicates that the }
  1236. {          security descriptor is in self-relative form.  In this form, }
  1237. {          all fields of the security descriptor are contiguous in memory }
  1238. {          and all pointer fields are expressed as offsets from the }
  1239. {          beginning of the security descriptor.  This form is useful }
  1240. {          for treating security descriptors as opaque data structures }
  1241. {          for transmission in communication protocol or for storage on }
  1242. {          secondary media. }
  1243.  
  1244.  
  1245.  
  1246. { Pictorially the structure of a security descriptor is as follows: }
  1247.  
  1248. {       3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 }
  1249. {       1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 }
  1250. {      +---------------------------------------------------------------+ }
  1251. {      |            Control            |Reserved1 (SBZ)|   Revision    | }
  1252. {      +---------------------------------------------------------------+ }
  1253. {      |                            Owner                              | }
  1254. {      +---------------------------------------------------------------+ }
  1255. {      |                            Group                              | }
  1256. {      +---------------------------------------------------------------+ }
  1257. {      |                            Sacl                               | }
  1258. {      +---------------------------------------------------------------+ }
  1259. {      |                            Dacl                               | }
  1260. {      +---------------------------------------------------------------+ }
  1261.  
  1262. { In general, this data structure should be treated opaquely to ensure future }
  1263. { compatibility. }
  1264.  
  1265.  
  1266. type
  1267.   SECURITY_DESCRIPTOR_CONTROL = Word;
  1268.   {$EXTERNALSYM SECURITY_DESCRIPTOR_CONTROL}
  1269.   PSECURITY_DESCRIPTOR_CONTROL = ^WORD;
  1270.   {$EXTERNALSYM PSECURITY_DESCRIPTOR_CONTROL}
  1271.  
  1272.   { In general, this data structure should be treated opaquely
  1273.     to ensure future compatibility. }
  1274.  
  1275.   PSecurityDescriptor = ^TSecurityDescriptor;
  1276.   _SECURITY_DESCRIPTOR = record
  1277.     Revision: Byte;
  1278.     Sbz1: Byte;
  1279.     Control: SECURITY_DESCRIPTOR_CONTROL;
  1280.     Owner: PSID;
  1281.     Group: PSID;
  1282.     Sacl: PACL;
  1283.     Dacl: PACL;
  1284.   end;
  1285.   {$EXTERNALSYM _SECURITY_DESCRIPTOR}
  1286.   TSecurityDescriptor = _SECURITY_DESCRIPTOR;
  1287.   SECURITY_DESCRIPTOR = _SECURITY_DESCRIPTOR;
  1288.   {$EXTERNALSYM SECURITY_DESCRIPTOR}
  1289.  
  1290.   PObjectTypeList = ^TObjectTypeList;
  1291.   _OBJECT_TYPE_LIST = record
  1292.     Level: WORD;
  1293.     Sbz: WORD;
  1294.     ObjectType: PGUID;
  1295.   end;
  1296.   {$EXTERNALSYM _OBJECT_TYPE_LIST}
  1297.   TObjectTypeList = _OBJECT_TYPE_LIST;
  1298.   OBJECT_TYPE_LIST = _OBJECT_TYPE_LIST;
  1299.   {$EXTERNALSYM OBJECT_TYPE_LIST}
  1300.  
  1301. const
  1302.   { DS values for Level }
  1303.   ACCESS_OBJECT_GUID = 0;
  1304.   {$EXTERNALSYM ACCESS_OBJECT_GUID}
  1305.   ACCESS_PROPERTY_SET_GUID = 1;
  1306.   {$EXTERNALSYM ACCESS_PROPERTY_SET_GUID}
  1307.   ACCESS_PROPERTY_GUID = 2;
  1308.   {$EXTERNALSYM ACCESS_PROPERTY_GUID}
  1309.  
  1310.   ACCESS_MAX_LEVEL = 4;
  1311.   {$EXTERNALSYM ACCESS_MAX_LEVEL}
  1312.  
  1313. type
  1314.   AUDIT_EVENT_TYPE = DWORD;
  1315.   {$EXTERNALSYM AUDIT_EVENT_TYPE}
  1316.  
  1317. const
  1318.   AUDIT_ALLOW_NO_PRIVILEGE = $1;
  1319.   {$EXTERNALSYM AUDIT_ALLOW_NO_PRIVILEGE}
  1320.  
  1321.  
  1322. { Privilege Related Data Structures }
  1323.  
  1324. const
  1325.   { Privilege attributes }
  1326.  
  1327.   SE_PRIVILEGE_ENABLED_BY_DEFAULT = $00000001;
  1328.   {$EXTERNALSYM SE_PRIVILEGE_ENABLED_BY_DEFAULT}
  1329.   SE_PRIVILEGE_ENABLED            = $00000002;
  1330.   {$EXTERNALSYM SE_PRIVILEGE_ENABLED}
  1331.   SE_PRIVILEGE_USED_FOR_ACCESS    = DWORD($80000000);
  1332.   {$EXTERNALSYM SE_PRIVILEGE_USED_FOR_ACCESS}
  1333.  
  1334.   { Privilege Set Control flags }
  1335.  
  1336.   PRIVILEGE_SET_ALL_NECESSARY = 1;
  1337.   {$EXTERNALSYM PRIVILEGE_SET_ALL_NECESSARY}
  1338.  
  1339.   {  Privilege Set - This is defined for a privilege set of one.
  1340.                    If more than one privilege is needed, then this structure
  1341.                    will need to be allocated with more space.}
  1342.   {  Note: don't change this structure without fixing the INITIAL_PRIVILEGE_SET}
  1343.  
  1344. type
  1345.   PPrivilegeSet = ^TPrivilegeSet;
  1346.   _PRIVILEGE_SET = record
  1347.     PrivilegeCount: DWORD;
  1348.     Control: DWORD;
  1349.     Privilege: array[0..0] of TLUIDAndAttributes;
  1350.   end;
  1351.   {$EXTERNALSYM _PRIVILEGE_SET}
  1352.   TPrivilegeSet = _PRIVILEGE_SET;
  1353.   PRIVILEGE_SET = _PRIVILEGE_SET;
  1354.   {$EXTERNALSYM PRIVILEGE_SET}
  1355.  
  1356. { line 3130 }
  1357.   TSecurityImpersonationLevel = (SecurityAnonymous,
  1358.     SecurityIdentification, SecurityImpersonation, SecurityDelegation);
  1359.   {$EXTERNALSYM TSecurityImpersonationLevel}
  1360.  
  1361. const
  1362.   SECURITY_MAX_IMPERSONATION_LEVEL     = SecurityDelegation;
  1363.   {$EXTERNALSYM SECURITY_MAX_IMPERSONATION_LEVEL}
  1364.   DEFAULT_IMPERSONATION_LEVEL     = SecurityImpersonation;
  1365.   {$EXTERNALSYM DEFAULT_IMPERSONATION_LEVEL}
  1366.  
  1367. const
  1368.   TOKEN_ASSIGN_PRIMARY = $0001;
  1369.   {$EXTERNALSYM TOKEN_ASSIGN_PRIMARY}
  1370.   TOKEN_DUPLICATE = $0002;
  1371.   {$EXTERNALSYM TOKEN_DUPLICATE}
  1372.   TOKEN_IMPERSONATE = $0004;
  1373.   {$EXTERNALSYM TOKEN_IMPERSONATE}
  1374.   TOKEN_QUERY = $0008;
  1375.   {$EXTERNALSYM TOKEN_QUERY}
  1376.   TOKEN_QUERY_SOURCE = $0010;
  1377.   {$EXTERNALSYM TOKEN_QUERY_SOURCE}
  1378.   TOKEN_ADJUST_PRIVILEGES = $0020;
  1379.   {$EXTERNALSYM TOKEN_ADJUST_PRIVILEGES}
  1380.   TOKEN_ADJUST_GROUPS = $0040;
  1381.   {$EXTERNALSYM TOKEN_ADJUST_GROUPS}
  1382.   TOKEN_ADJUST_DEFAULT = $0080;
  1383.   {$EXTERNALSYM TOKEN_ADJUST_DEFAULT}
  1384.   TOKEN_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or TOKEN_ASSIGN_PRIMARY or
  1385.     TOKEN_DUPLICATE or TOKEN_IMPERSONATE or TOKEN_QUERY or
  1386.     TOKEN_QUERY_SOURCE or TOKEN_ADJUST_PRIVILEGES or TOKEN_ADJUST_GROUPS or
  1387.     TOKEN_ADJUST_DEFAULT);
  1388.   {$EXTERNALSYM TOKEN_ALL_ACCESS}
  1389.   TOKEN_READ = (STANDARD_RIGHTS_READ or TOKEN_QUERY);
  1390.   {$EXTERNALSYM TOKEN_READ}
  1391.   TOKEN_WRITE = (STANDARD_RIGHTS_WRITE or TOKEN_ADJUST_PRIVILEGES or
  1392.     TOKEN_ADJUST_GROUPS or TOKEN_ADJUST_DEFAULT);
  1393.   {$EXTERNALSYM TOKEN_WRITE}
  1394.   TOKEN_EXECUTE = STANDARD_RIGHTS_EXECUTE;
  1395.   {$EXTERNALSYM TOKEN_EXECUTE}
  1396.  
  1397. type
  1398.   TTokenType = (TokenTPad, TokenPrimary, TokenImpersonation);
  1399.   {$EXTERNALSYM TTokenType}
  1400.  
  1401.   TTokenInformationClass = (TokenICPad, TokenUser, TokenGroups, TokenPrivileges,
  1402.     TokenOwner, TokenPrimaryGroup, TokenDefaultDacl, TokenSource, TokenType,
  1403.     TokenImpersonationLevel, TokenStatistics);
  1404.   {$EXTERNALSYM TTokenInformationClass}
  1405.  
  1406.   PTokenGroups = ^TTokenGroups;
  1407.   _TOKEN_GROUPS = record
  1408.     GroupCount: DWORD;
  1409.     Groups: array[0..0] of TSIDAndAttributes;
  1410.   end;
  1411.   {$EXTERNALSYM _TOKEN_GROUPS}
  1412.   TTokenGroups = _TOKEN_GROUPS;
  1413.   TOKEN_GROUPS = _TOKEN_GROUPS;
  1414.   {$EXTERNALSYM TOKEN_GROUPS}
  1415.  
  1416.   PTokenPrivileges = ^TTokenPrivileges;
  1417.   _TOKEN_PRIVILEGES = record
  1418.     PrivilegeCount: DWORD;
  1419.     Privileges: array[0..0] of TLUIDAndAttributes;
  1420.   end;
  1421.   {$EXTERNALSYM _TOKEN_PRIVILEGES}
  1422.   TTokenPrivileges = _TOKEN_PRIVILEGES;
  1423.   TOKEN_PRIVILEGES = _TOKEN_PRIVILEGES;
  1424.   {$EXTERNALSYM TOKEN_PRIVILEGES}
  1425.  
  1426. const
  1427.   SECURITY_DYNAMIC_TRACKING = True;
  1428.   {$EXTERNALSYM SECURITY_DYNAMIC_TRACKING}
  1429.   SECURITY_STATIC_TRACKING  = False;
  1430.   {$EXTERNALSYM SECURITY_STATIC_TRACKING}
  1431.  
  1432. type
  1433.   SECURITY_CONTEXT_TRACKING_MODE = Boolean;
  1434.   {$EXTERNALSYM SECURITY_CONTEXT_TRACKING_MODE}
  1435.  
  1436.   PSecurityQualityOfService = ^TSecurityQualityOfService;
  1437.   _SECURITY_QUALITY_OF_SERVICE = record
  1438.     Length: DWORD;
  1439.     ImpersonationLevel: TSecurityImpersonationLevel;
  1440.     ContextTrackingMode: SECURITY_CONTEXT_TRACKING_MODE;
  1441.     EffectiveOnly: Boolean;
  1442.   end;
  1443.   {$EXTERNALSYM _SECURITY_QUALITY_OF_SERVICE}
  1444.   TSecurityQualityOfService = _SECURITY_QUALITY_OF_SERVICE;
  1445.   SECURITY_QUALITY_OF_SERVICE = _SECURITY_QUALITY_OF_SERVICE;
  1446.   {$EXTERNALSYM SECURITY_QUALITY_OF_SERVICE}
  1447.  
  1448. {line 3320}
  1449.   SECURITY_INFORMATION = DWORD;
  1450.   {$EXTERNALSYM SECURITY_INFORMATION}
  1451.   PSECURITY_INFORMATION = ^DWORD;
  1452.  
  1453. const
  1454.   OWNER_SECURITY_INFORMATION =  $00000001;
  1455.   {$EXTERNALSYM OWNER_SECURITY_INFORMATION}
  1456.   GROUP_SECURITY_INFORMATION =  $00000002;
  1457.   {$EXTERNALSYM GROUP_SECURITY_INFORMATION}
  1458.   DACL_SECURITY_INFORMATION  =  $00000004;
  1459.   {$EXTERNALSYM DACL_SECURITY_INFORMATION}
  1460.   SACL_SECURITY_INFORMATION  =  $00000008;
  1461.   {$EXTERNALSYM SACL_SECURITY_INFORMATION}
  1462.  
  1463. type
  1464.   TThreadStartRoutine = function(lpThreadParameter: Pointer): Integer stdcall;
  1465.  
  1466. {line 3337}
  1467. const
  1468.   IMAGE_DOS_SIGNATURE                     = $5A4D;      { MZ }
  1469.   {$EXTERNALSYM IMAGE_DOS_SIGNATURE}
  1470.   IMAGE_OS2_SIGNATURE                     = $454E;      { NE }
  1471.   {$EXTERNALSYM IMAGE_OS2_SIGNATURE}
  1472.   IMAGE_OS2_SIGNATURE_LE                  = $454C;      { LE }
  1473.   {$EXTERNALSYM IMAGE_OS2_SIGNATURE_LE}
  1474.   IMAGE_VXD_SIGNATURE                     = $454C;      { LE }
  1475.   {$EXTERNALSYM IMAGE_VXD_SIGNATURE}
  1476.   IMAGE_NT_SIGNATURE                      = $00004550;  { PE00 }
  1477.   {$EXTERNALSYM IMAGE_NT_SIGNATURE}
  1478.  
  1479. {line 3457}
  1480. { File header format. }
  1481.  
  1482. type
  1483.   PImageDosHeader = ^TImageDosHeader;
  1484.     {EXTERNALSYM _IMAGE_DOS_HEADER}
  1485.   _IMAGE_DOS_HEADER = packed record      { DOS .EXE header                  }
  1486.       e_magic: Word;                     { Magic number                     }
  1487.       e_cblp: Word;                      { Bytes on last page of file       }
  1488.       e_cp: Word;                        { Pages in file                    }
  1489.       e_crlc: Word;                      { Relocations                      }
  1490.       e_cparhdr: Word;                   { Size of header in paragraphs     }
  1491.       e_minalloc: Word;                  { Minimum extra paragraphs needed  }
  1492.       e_maxalloc: Word;                  { Maximum extra paragraphs needed  }
  1493.       e_ss: Word;                        { Initial (relative) SS value      }
  1494.       e_sp: Word;                        { Initial SP value                 }
  1495.       e_csum: Word;                      { Checksum                         }
  1496.       e_ip: Word;                        { Initial IP value                 }
  1497.       e_cs: Word;                        { Initial (relative) CS value      }
  1498.       e_lfarlc: Word;                    { File address of relocation table }
  1499.       e_ovno: Word;                      { Overlay number                   }
  1500.       e_res: array [0..3] of Word;       { Reserved words                   }
  1501.       e_oemid: Word;                     { OEM identifier (for e_oeminfo)   }
  1502.       e_oeminfo: Word;                   { OEM information; e_oemid specific}
  1503.       e_res2: array [0..9] of Word;      { Reserved words                   }
  1504.       _lfanew: LongInt;                  { File address of new exe header   }
  1505.   end;
  1506.   TImageDosHeader = _IMAGE_DOS_HEADER;
  1507.   {$EXTERNALSYM IMAGE_DOS_HEADER}
  1508.   IMAGE_DOS_HEADER = _IMAGE_DOS_HEADER;
  1509.  
  1510.  
  1511.   PImageFileHeader = ^TImageFileHeader;
  1512.   _IMAGE_FILE_HEADER = packed record
  1513.     Machine: Word;
  1514.     NumberOfSections: Word;
  1515.     TimeDateStamp: DWORD;
  1516.     PointerToSymbolTable: DWORD;
  1517.     NumberOfSymbols: DWORD;
  1518.     SizeOfOptionalHeader: Word;
  1519.     Characteristics: Word;
  1520.   end;
  1521.   {$EXTERNALSYM _IMAGE_FILE_HEADER}
  1522.   TImageFileHeader = _IMAGE_FILE_HEADER;
  1523.   IMAGE_FILE_HEADER = _IMAGE_FILE_HEADER;
  1524.   {$EXTERNALSYM IMAGE_FILE_HEADER}
  1525.  
  1526.   PImageExportDirectory = ^TImageExportDirectory;
  1527.   _IMAGE_EXPORT_DIRECTORY = packed record
  1528.       Characteristics: DWord;
  1529.       TimeDateStamp: DWord;
  1530.       MajorVersion: Word;
  1531.       MinorVersion: Word;
  1532.       Name: DWord;
  1533.       Base: DWord;
  1534.       NumberOfFunctions: DWord;
  1535.       NumberOfNames: DWord;
  1536.       AddressOfFunctions: ^PDWORD;
  1537.       AddressOfNames: ^PDWORD;
  1538.       AddressOfNameOrdinals: ^PWord;
  1539.   end;
  1540.   {$EXTERNALSYM _IMAGE_EXPORT_DIRECTORY}
  1541.   TImageExportDirectory = _IMAGE_EXPORT_DIRECTORY;
  1542.   IMAGE_EXPORT_DIRECTORY = _IMAGE_EXPORT_DIRECTORY;
  1543.   {$EXTERNALSYM IMAGE_EXPORT_DIRECTORY}
  1544.  
  1545. const
  1546.   IMAGE_SIZEOF_FILE_HEADER                 = 20;
  1547.   {$EXTERNALSYM IMAGE_SIZEOF_FILE_HEADER}
  1548.  
  1549.   IMAGE_FILE_RELOCS_STRIPPED               = $0001;  { Relocation info stripped from file. }
  1550.   {$EXTERNALSYM IMAGE_FILE_RELOCS_STRIPPED}
  1551.   IMAGE_FILE_EXECUTABLE_IMAGE              = $0002;  { File is executable  (i.e. no unresolved externel references). }
  1552.   {$EXTERNALSYM IMAGE_FILE_EXECUTABLE_IMAGE}
  1553.   IMAGE_FILE_LINE_NUMS_STRIPPED            = $0004;  { Line nunbers stripped from file. }
  1554.   {$EXTERNALSYM IMAGE_FILE_LINE_NUMS_STRIPPED}
  1555.   IMAGE_FILE_LOCAL_SYMS_STRIPPED           = $0008;  { Local symbols stripped from file. }
  1556.   {$EXTERNALSYM IMAGE_FILE_LOCAL_SYMS_STRIPPED}
  1557.   IMAGE_FILE_AGGRESIVE_WS_TRIM             = $0010;  { Agressively trim working set }
  1558.   {$EXTERNALSYM IMAGE_FILE_AGGRESIVE_WS_TRIM}
  1559.   IMAGE_FILE_BYTES_REVERSED_LO             = $0080;  { Bytes of machine word are reversed. }
  1560.   {$EXTERNALSYM IMAGE_FILE_BYTES_REVERSED_LO}
  1561.   IMAGE_FILE_32BIT_MACHINE                 = $0100;  { 32 bit word machine. }
  1562.   {$EXTERNALSYM IMAGE_FILE_32BIT_MACHINE}
  1563.   IMAGE_FILE_DEBUG_STRIPPED                = $0200;  { Debugging info stripped from file in .DBG file }
  1564.   {$EXTERNALSYM IMAGE_FILE_DEBUG_STRIPPED}
  1565.   IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP       = $0400;  { If Image is on removable media, copy and run from the swap file. }
  1566.   {$EXTERNALSYM IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP}
  1567.   IMAGE_FILE_NET_RUN_FROM_SWAP             = $0800;  { If Image is on Net, copy and run from the swap file. }
  1568.   {$EXTERNALSYM IMAGE_FILE_NET_RUN_FROM_SWAP}
  1569.   IMAGE_FILE_SYSTEM                        = $1000;  { System File. }
  1570.   {$EXTERNALSYM IMAGE_FILE_SYSTEM}
  1571.   IMAGE_FILE_DLL                           = $2000;  { File is a DLL. }
  1572.   {$EXTERNALSYM IMAGE_FILE_DLL}
  1573.   IMAGE_FILE_UP_SYSTEM_ONLY                = $4000;  { File should only be run on a UP machine }
  1574.   {$EXTERNALSYM IMAGE_FILE_UP_SYSTEM_ONLY}
  1575.   IMAGE_FILE_BYTES_REVERSED_HI             = $8000;  { Bytes of machine word are reversed. }
  1576.   {$EXTERNALSYM IMAGE_FILE_BYTES_REVERSED_HI}
  1577.  
  1578.   IMAGE_FILE_MACHINE_UNKNOWN               = 0;
  1579.   {$EXTERNALSYM IMAGE_FILE_MACHINE_UNKNOWN}
  1580.   IMAGE_FILE_MACHINE_I386                  = $14c;   { Intel 386. }
  1581.   {$EXTERNALSYM IMAGE_FILE_MACHINE_I386}
  1582.   IMAGE_FILE_MACHINE_R3000                 = $162;   { MIPS little-endian, 0x160 big-endian }
  1583.   {$EXTERNALSYM IMAGE_FILE_MACHINE_R3000}
  1584.   IMAGE_FILE_MACHINE_R4000                 = $166;   { MIPS little-endian }
  1585.   {$EXTERNALSYM IMAGE_FILE_MACHINE_R4000}
  1586.   IMAGE_FILE_MACHINE_R10000                = $168;   { MIPS little-endian }
  1587.   {$EXTERNALSYM IMAGE_FILE_MACHINE_R10000}
  1588.   IMAGE_FILE_MACHINE_ALPHA                 = $184;   { Alpha_AXP }
  1589.   {$EXTERNALSYM IMAGE_FILE_MACHINE_ALPHA}
  1590.   IMAGE_FILE_MACHINE_POWERPC               = $1F0;   { IBM PowerPC Little-Endian }
  1591.   {$EXTERNALSYM IMAGE_FILE_MACHINE_POWERPC}
  1592.  
  1593. { Directory format. }
  1594.  
  1595. type
  1596.   PImageDataDirectory = ^TImageDataDirectory;
  1597.   _IMAGE_DATA_DIRECTORY = record
  1598.     VirtualAddress: DWORD;
  1599.     Size: DWORD;
  1600.   end;
  1601.   {$EXTERNALSYM _IMAGE_DATA_DIRECTORY}
  1602.   TImageDataDirectory = _IMAGE_DATA_DIRECTORY;
  1603.   IMAGE_DATA_DIRECTORY = _IMAGE_DATA_DIRECTORY;
  1604.   {$EXTERNALSYM IMAGE_DATA_DIRECTORY}
  1605.  
  1606. const
  1607.   IMAGE_NUMBEROF_DIRECTORY_ENTRIES        = 16;
  1608.   {$EXTERNALSYM IMAGE_NUMBEROF_DIRECTORY_ENTRIES}
  1609.  
  1610. { Optional header format. }
  1611.  
  1612. type
  1613.   PImageOptionalHeader = ^TImageOptionalHeader;
  1614.   _IMAGE_OPTIONAL_HEADER = packed record
  1615.     { Standard fields. }
  1616.     Magic: Word;
  1617.     MajorLinkerVersion: Byte;
  1618.     MinorLinkerVersion: Byte;
  1619.     SizeOfCode: DWORD;
  1620.     SizeOfInitializedData: DWORD;
  1621.     SizeOfUninitializedData: DWORD;
  1622.     AddressOfEntryPoint: DWORD;
  1623.     BaseOfCode: DWORD;
  1624.     BaseOfData: DWORD;
  1625.     { NT additional fields. }
  1626.     ImageBase: DWORD;
  1627.     SectionAlignment: DWORD;
  1628.     FileAlignment: DWORD;
  1629.     MajorOperatingSystemVersion: Word;
  1630.     MinorOperatingSystemVersion: Word;
  1631.     MajorImageVersion: Word;
  1632.     MinorImageVersion: Word;
  1633.     MajorSubsystemVersion: Word;
  1634.     MinorSubsystemVersion: Word;
  1635.     Win32VersionValue: DWORD;
  1636.     SizeOfImage: DWORD;
  1637.     SizeOfHeaders: DWORD;
  1638.     CheckSum: DWORD;
  1639.     Subsystem: Word;
  1640.     DllCharacteristics: Word;
  1641.     SizeOfStackReserve: DWORD;
  1642.     SizeOfStackCommit: DWORD;
  1643.     SizeOfHeapReserve: DWORD;
  1644.     SizeOfHeapCommit: DWORD;
  1645.     LoaderFlags: DWORD;
  1646.     NumberOfRvaAndSizes: DWORD;
  1647.     DataDirectory: packed array[0..IMAGE_NUMBEROF_DIRECTORY_ENTRIES-1] of TImageDataDirectory;
  1648.   end;
  1649.   {$EXTERNALSYM _IMAGE_OPTIONAL_HEADER}
  1650.   TImageOptionalHeader = _IMAGE_OPTIONAL_HEADER;
  1651.   IMAGE_OPTIONAL_HEADER = _IMAGE_OPTIONAL_HEADER;
  1652.   {$EXTERNALSYM IMAGE_OPTIONAL_HEADER}
  1653.  
  1654.   PImageRomOptionalHeader = ^TImageRomOptionalHeader;
  1655.   _IMAGE_ROM_OPTIONAL_HEADER = packed record
  1656.     Magic: Word;
  1657.     MajorLinkerVersion: Byte;
  1658.     MinorLinkerVersion: Byte;
  1659.     SizeOfCode: DWORD;
  1660.     SizeOfInitializedData: DWORD;
  1661.     SizeOfUninitializedData: DWORD;
  1662.     AddressOfEntryPoint: DWORD;
  1663.     BaseOfCode: DWORD;
  1664.     BaseOfData: DWORD;
  1665.     BaseOfBss: DWORD;
  1666.     GprMask: DWORD;
  1667.     CprMask: packed array[0..3] of DWORD;
  1668.     GpValue: DWORD;
  1669.   end;
  1670.   {$EXTERNALSYM _IMAGE_ROM_OPTIONAL_HEADER}
  1671.   TImageRomOptionalHeader = _IMAGE_ROM_OPTIONAL_HEADER;
  1672.   IMAGE_ROM_OPTIONAL_HEADER = _IMAGE_ROM_OPTIONAL_HEADER;
  1673.   {$EXTERNALSYM IMAGE_ROM_OPTIONAL_HEADER}
  1674.  
  1675.  
  1676. const
  1677.   IMAGE_SIZEOF_ROM_OPTIONAL_HEADER       = 56;
  1678.   {$EXTERNALSYM IMAGE_SIZEOF_ROM_OPTIONAL_HEADER}
  1679.   IMAGE_SIZEOF_STD_OPTIONAL_HEADER       = 28;
  1680.   {$EXTERNALSYM IMAGE_SIZEOF_STD_OPTIONAL_HEADER}
  1681.   IMAGE_SIZEOF_NT_OPTIONAL_HEADER        = 224;
  1682.   {$EXTERNALSYM IMAGE_SIZEOF_NT_OPTIONAL_HEADER}
  1683.  
  1684.   IMAGE_NT_OPTIONAL_HDR_MAGIC            = $010B;
  1685.   {$EXTERNALSYM IMAGE_NT_OPTIONAL_HDR_MAGIC}
  1686.   IMAGE_ROM_OPTIONAL_HDR_MAGIC           = $0107;
  1687.   {$EXTERNALSYM IMAGE_ROM_OPTIONAL_HDR_MAGIC}
  1688.  
  1689. type
  1690.   PImageNtHeaders = ^TImageNtHeaders;
  1691.   _IMAGE_NT_HEADERS = packed record
  1692.     Signature: DWORD;
  1693.     FileHeader: TImageFileHeader;
  1694.     OptionalHeader: TImageOptionalHeader;
  1695.   end;
  1696.   {$EXTERNALSYM _IMAGE_NT_HEADERS}
  1697.   TImageNtHeaders = _IMAGE_NT_HEADERS;
  1698.   IMAGE_NT_HEADERS = _IMAGE_NT_HEADERS;
  1699.   {$EXTERNALSYM IMAGE_NT_HEADERS}
  1700.  
  1701.  
  1702.   PImageRomHeaders = ^TImageRomHeaders;
  1703.   _IMAGE_ROM_HEADERS = packed record
  1704.     FileHeader: TImageFileHeader;
  1705.     OptionalHeader: TImageRomOptionalHeader;
  1706.   end;
  1707.   {$EXTERNALSYM _IMAGE_ROM_HEADERS}
  1708.   TImageRomHeaders = _IMAGE_ROM_HEADERS;
  1709.   IMAGE_ROM_HEADERS = _IMAGE_ROM_HEADERS;
  1710.   {$EXTERNALSYM IMAGE_ROM_HEADERS}
  1711.  
  1712.  
  1713. { Subsystem Values }
  1714.  
  1715. const
  1716.   IMAGE_SUBSYSTEM_UNKNOWN                  = 0;  { Unknown subsystem. }
  1717.   {$EXTERNALSYM IMAGE_SUBSYSTEM_UNKNOWN}
  1718.   IMAGE_SUBSYSTEM_NATIVE                   = 1;  { Image doesn't require a subsystem. }
  1719.   {$EXTERNALSYM IMAGE_SUBSYSTEM_NATIVE}
  1720.   IMAGE_SUBSYSTEM_WINDOWS_GUI              = 2;  { Image runs in the Windows GUI subsystem. }
  1721.   {$EXTERNALSYM IMAGE_SUBSYSTEM_WINDOWS_GUI}
  1722.   IMAGE_SUBSYSTEM_WINDOWS_CUI              = 3;  { Image runs in the Windows character subsystem. }
  1723.   {$EXTERNALSYM IMAGE_SUBSYSTEM_WINDOWS_CUI}
  1724.   IMAGE_SUBSYSTEM_OS2_CUI                  = 5;  { image runs in the OS/2 character subsystem. }
  1725.   {$EXTERNALSYM IMAGE_SUBSYSTEM_OS2_CUI}
  1726.   IMAGE_SUBSYSTEM_POSIX_CUI                = 7;  { image run  in the Posix character subsystem. }
  1727.   {$EXTERNALSYM IMAGE_SUBSYSTEM_POSIX_CUI}
  1728.   IMAGE_SUBSYSTEM_RESERVED8                = 8;  { image run  in the 8 subsystem. }
  1729.   {$EXTERNALSYM IMAGE_SUBSYSTEM_RESERVED8}
  1730.  
  1731.  
  1732. { Directory Entries }
  1733.  
  1734.   IMAGE_DIRECTORY_ENTRY_EXPORT             = 0;  { Export Directory }
  1735.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_EXPORT}
  1736.   IMAGE_DIRECTORY_ENTRY_IMPORT             = 1;  { Import Directory }
  1737.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_IMPORT}
  1738.   IMAGE_DIRECTORY_ENTRY_RESOURCE           = 2;  { Resource Directory }
  1739.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_RESOURCE}
  1740.   IMAGE_DIRECTORY_ENTRY_EXCEPTION          = 3;  { Exception Directory }
  1741.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_EXCEPTION}
  1742.   IMAGE_DIRECTORY_ENTRY_SECURITY           = 4;  { Security Directory }
  1743.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_SECURITY}
  1744.   IMAGE_DIRECTORY_ENTRY_BASERELOC          = 5;  { Base Relocation Table }
  1745.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_BASERELOC}
  1746.   IMAGE_DIRECTORY_ENTRY_DEBUG              = 6;  { Debug Directory }
  1747.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_DEBUG}
  1748.   IMAGE_DIRECTORY_ENTRY_COPYRIGHT          = 7;  { Description String }
  1749.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_COPYRIGHT}
  1750.   IMAGE_DIRECTORY_ENTRY_GLOBALPTR          = 8;  { Machine Value (MIPS GP) }
  1751.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_GLOBALPTR}
  1752.   IMAGE_DIRECTORY_ENTRY_TLS                = 9;  { TLS Directory }
  1753.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_TLS}
  1754.   IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG       = 10;  { Load Configuration Directory }
  1755.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG}
  1756.   IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT      = 11;  { Bound Import Directory in headers }
  1757.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT}
  1758.   IMAGE_DIRECTORY_ENTRY_IAT               = 12;  { Import Address Table }
  1759.   {$EXTERNALSYM IMAGE_DIRECTORY_ENTRY_IAT}
  1760.  
  1761. { Section header format. }
  1762.  
  1763.   IMAGE_SIZEOF_SHORT_NAME                  = 8;
  1764.   {$EXTERNALSYM IMAGE_SIZEOF_SHORT_NAME}
  1765.  
  1766. type
  1767.   TISHMisc = packed record
  1768.     case Integer of
  1769.       0: (PhysicalAddress: DWORD);
  1770.       1: (VirtualSize: DWORD);
  1771.   end;
  1772.  
  1773.   PImageSectionHeader = ^TImageSectionHeader;
  1774.   _IMAGE_SECTION_HEADER = packed record
  1775.     Name: packed array[0..IMAGE_SIZEOF_SHORT_NAME-1] of Byte;
  1776.     Misc: TISHMisc;
  1777.     VirtualAddress: DWORD;
  1778.     SizeOfRawData: DWORD;
  1779.     PointerToRawData: DWORD;
  1780.     PointerToRelocations: DWORD;
  1781.     PointerToLinenumbers: DWORD;
  1782.     NumberOfRelocations: Word;
  1783.     NumberOfLinenumbers: Word;
  1784.     Characteristics: DWORD;
  1785.   end;
  1786.   {$EXTERNALSYM _IMAGE_SECTION_HEADER}
  1787.   TImageSectionHeader = _IMAGE_SECTION_HEADER;
  1788.   IMAGE_SECTION_HEADER = _IMAGE_SECTION_HEADER;
  1789.   {$EXTERNALSYM IMAGE_SECTION_HEADER}
  1790.  
  1791.  
  1792. const
  1793.   IMAGE_SIZEOF_SECTION_HEADER              = 40;
  1794.   {$EXTERNALSYM IMAGE_SIZEOF_SECTION_HEADER}
  1795.  
  1796.  
  1797. { Section characteristics. }
  1798.  
  1799. {      IMAGE_SCN_TYPE_REG                   0x00000000  // Reserved. }
  1800. {      IMAGE_SCN_TYPE_DSECT                 0x00000001  // Reserved. }
  1801. {      IMAGE_SCN_TYPE_NOLOAD                0x00000002  // Reserved. }
  1802. {      IMAGE_SCN_TYPE_GROUP                 0x00000004  // Reserved. }
  1803.   IMAGE_SCN_TYPE_NO_PAD                    = $00000008;  { Reserved. }
  1804.   {$EXTERNALSYM IMAGE_SCN_TYPE_NO_PAD}
  1805. {      IMAGE_SCN_TYPE_COPY                  0x00000010  // Reserved. }
  1806.  
  1807.   IMAGE_SCN_CNT_CODE                       = $00000020;  { Section contains code. }
  1808.   {$EXTERNALSYM IMAGE_SCN_CNT_CODE}
  1809.   IMAGE_SCN_CNT_INITIALIZED_DATA           = $00000040;  { Section contains initialized data. }
  1810.   {$EXTERNALSYM IMAGE_SCN_CNT_INITIALIZED_DATA}
  1811.   IMAGE_SCN_CNT_UNINITIALIZED_DATA         = $00000080;  { Section contains uninitialized data. }
  1812.   {$EXTERNALSYM IMAGE_SCN_CNT_UNINITIALIZED_DATA}
  1813.  
  1814.   IMAGE_SCN_LNK_OTHER                      = $00000100;  { Reserved. }
  1815.   {$EXTERNALSYM IMAGE_SCN_LNK_OTHER}
  1816.   IMAGE_SCN_LNK_INFO                       = $00000200;  { Section contains comments or some other type of information. }
  1817.   {$EXTERNALSYM IMAGE_SCN_LNK_INFO}
  1818. {      IMAGE_SCN_TYPE_OVER                  0x00000400  // Reserved. }
  1819.   IMAGE_SCN_LNK_REMOVE                     = $00000800;  { Section contents will not become part of image. }
  1820.   {$EXTERNALSYM IMAGE_SCN_LNK_REMOVE}
  1821.   IMAGE_SCN_LNK_COMDAT                     = $00001000;  { Section contents comdat. }
  1822.   {$EXTERNALSYM IMAGE_SCN_LNK_COMDAT}
  1823. {                                           0x00002000  // Reserved. }
  1824.  
  1825. {      IMAGE_SCN_MEM_PROTECTED - Obsolete   0x00004000 }
  1826.   IMAGE_SCN_MEM_FARDATA                    = $00008000;
  1827.   {$EXTERNALSYM IMAGE_SCN_MEM_FARDATA}
  1828. {      IMAGE_SCN_MEM_SYSHEAP  - Obsolete    0x00010000 }
  1829.   IMAGE_SCN_MEM_PURGEABLE                  = $00020000;
  1830.   {$EXTERNALSYM IMAGE_SCN_MEM_PURGEABLE}
  1831.   IMAGE_SCN_MEM_16BIT                      = $00020000;
  1832.   {$EXTERNALSYM IMAGE_SCN_MEM_16BIT}
  1833.   IMAGE_SCN_MEM_LOCKED                     = $00040000;
  1834.   {$EXTERNALSYM IMAGE_SCN_MEM_LOCKED}
  1835.   IMAGE_SCN_MEM_PRELOAD                    = $00080000;
  1836.   {$EXTERNALSYM IMAGE_SCN_MEM_PRELOAD}
  1837.  
  1838.   IMAGE_SCN_ALIGN_1BYTES                   = $00100000;
  1839.   {$EXTERNALSYM IMAGE_SCN_ALIGN_1BYTES}
  1840.   IMAGE_SCN_ALIGN_2BYTES                   = $00200000;
  1841.   {$EXTERNALSYM IMAGE_SCN_ALIGN_2BYTES}
  1842.   IMAGE_SCN_ALIGN_4BYTES                   = $00300000;
  1843.   {$EXTERNALSYM IMAGE_SCN_ALIGN_4BYTES}
  1844.   IMAGE_SCN_ALIGN_8BYTES                   = $00400000;
  1845.   {$EXTERNALSYM IMAGE_SCN_ALIGN_8BYTES}
  1846.   IMAGE_SCN_ALIGN_16BYTES                  = $00500000;  { Default alignment if no others are specified. }
  1847.   {$EXTERNALSYM IMAGE_SCN_ALIGN_16BYTES}
  1848.   IMAGE_SCN_ALIGN_32BYTES                  = $00600000;
  1849.   {$EXTERNALSYM IMAGE_SCN_ALIGN_32BYTES}
  1850.   IMAGE_SCN_ALIGN_64BYTES                  = $00700000;
  1851.   {$EXTERNALSYM IMAGE_SCN_ALIGN_64BYTES}
  1852. { Unused                                    0x00800000 }
  1853.  
  1854.   IMAGE_SCN_LNK_NRELOC_OVFL                = $01000000;  { Section contains extended relocations. }
  1855.   {$EXTERNALSYM IMAGE_SCN_LNK_NRELOC_OVFL}
  1856.   IMAGE_SCN_MEM_DISCARDABLE                = $02000000;  { Section can be discarded. }
  1857.   {$EXTERNALSYM IMAGE_SCN_MEM_DISCARDABLE}
  1858.   IMAGE_SCN_MEM_NOT_CACHED                 = $04000000;  { Section is not cachable. }
  1859.   {$EXTERNALSYM IMAGE_SCN_MEM_NOT_CACHED}
  1860.   IMAGE_SCN_MEM_NOT_PAGED                  = $08000000;  { Section is not pageable. }
  1861.   {$EXTERNALSYM IMAGE_SCN_MEM_NOT_PAGED}
  1862.   IMAGE_SCN_MEM_SHARED                     = $10000000;  { Section is shareable. }
  1863.   {$EXTERNALSYM IMAGE_SCN_MEM_SHARED}
  1864.   IMAGE_SCN_MEM_EXECUTE                    = $20000000;  { Section is executable. }
  1865.   {$EXTERNALSYM IMAGE_SCN_MEM_EXECUTE}
  1866.   IMAGE_SCN_MEM_READ                       = $40000000;  { Section is readable. }
  1867.   {$EXTERNALSYM IMAGE_SCN_MEM_READ}
  1868.   IMAGE_SCN_MEM_WRITE                      = DWORD($80000000);  { Section is writeable. }
  1869.   {$EXTERNALSYM IMAGE_SCN_MEM_WRITE}
  1870.  
  1871.  
  1872. {line 4281}
  1873. type
  1874.   PImageLoadConfigDirectory = ^TImageLoadConfigDirectory;
  1875.   IMAGE_LOAD_CONFIG_DIRECTORY = packed record
  1876.     Characteristics: DWORD;
  1877.     TimeDateStamp: DWORD;
  1878.     MajorVersion: Word;
  1879.     MinorVersion: Word;
  1880.     GlobalFlagsClear: DWORD;
  1881.     GlobalFlagsSet: DWORD;
  1882.     CriticalSectionDefaultTimeout: DWORD;
  1883.     DeCommitFreeBlockThreshold: DWORD;
  1884.     DeCommitTotalFreeThreshold: DWORD;
  1885.     LockPrefixTable: Pointer;
  1886.     MaximumAllocationSize: DWORD;
  1887.     VirtualMemoryThreshold: DWORD;
  1888.     ProcessHeapFlags: DWORD;
  1889.     ProcessAffinityMask: DWORD;
  1890.     Reserved: array[0..2] of DWORD;
  1891.   end;
  1892.   {$EXTERNALSYM IMAGE_LOAD_CONFIG_DIRECTORY}
  1893.   TImageLoadConfigDirectory = IMAGE_LOAD_CONFIG_DIRECTORY;
  1894. //  IMAGE_LOAD_CONFIG_DIRECTORY = _IMAGE_LOAD_CONFIG_DIRECTORY;
  1895. //  {$EXTERNALSYM IMAGE_LOAD_CONFIG_DIRECTORY}
  1896.  
  1897.  
  1898. // Function table entry format for MIPS/ALPHA images.  Function table is
  1899. // pointed to by the IMAGE_DIRECTORY_ENTRY_EXCEPTION directory entry.
  1900. // This definition duplicates ones in ntmips.h and ntalpha.h for use
  1901. // by portable image file mungers.
  1902.  
  1903.   PImageRuntimeFunctionEntry = ^TImageRuntimeFunctionEntry;
  1904.   IMAGE_RUNTIME_FUNCTION_ENTRY = record
  1905.     BeginAddress: DWORD;
  1906.     EndAddress: DWORD;
  1907.     ExceptionHandler: Pointer;
  1908.     HandlerData: Pointer;
  1909.     PrologEndAddress: DWORD;
  1910.   end;
  1911.   {$EXTERNALSYM IMAGE_RUNTIME_FUNCTION_ENTRY}
  1912.   TImageRuntimeFunctionEntry = IMAGE_RUNTIME_FUNCTION_ENTRY;
  1913. // IMAGE_RUNTIME_FUNCTION_ENTRY = _IMAGE_RUNTIME_FUNCTION_ENTRY;
  1914. // {$EXTERNALSYM IMAGE_RUNTIME_FUNCTION_ENTRY}
  1915.  
  1916.  
  1917. //
  1918. // Debug Format
  1919. //
  1920.  
  1921.   PImageDebugDirectory = ^TImageDebugDirectory;
  1922.   _IMAGE_DEBUG_DIRECTORY = packed record
  1923.     Characteristics: DWORD;
  1924.     TimeDateStamp: DWORD;
  1925.     MajorVersion: Word;
  1926.     MinorVersion: Word;
  1927.     _Type: DWORD;
  1928.     SizeOfData: DWORD;
  1929.     AddressOfRawData: DWORD;
  1930.     PointerToRawData: DWORD;
  1931.   end;
  1932.   {$EXTERNALSYM _IMAGE_DEBUG_DIRECTORY}
  1933.   TImageDebugDirectory = _IMAGE_DEBUG_DIRECTORY;
  1934.   IMAGE_DEBUG_DIRECTORY = _IMAGE_DEBUG_DIRECTORY;
  1935.   {$EXTERNALSYM IMAGE_DEBUG_DIRECTORY}
  1936.  
  1937.  
  1938. const
  1939.   IMAGE_DEBUG_TYPE_UNKNOWN          = 0;
  1940.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_UNKNOWN}
  1941.   IMAGE_DEBUG_TYPE_COFF             = 1;
  1942.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_COFF}
  1943.   IMAGE_DEBUG_TYPE_CODEVIEW         = 2;
  1944.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_CODEVIEW}
  1945.   IMAGE_DEBUG_TYPE_FPO              = 3;
  1946.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_FPO}
  1947.   IMAGE_DEBUG_TYPE_MISC             = 4;
  1948.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_MISC}
  1949.   IMAGE_DEBUG_TYPE_EXCEPTION        = 5;
  1950.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_EXCEPTION}
  1951.   IMAGE_DEBUG_TYPE_FIXUP            = 6;
  1952.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_FIXUP}
  1953.   IMAGE_DEBUG_TYPE_OMAP_TO_SRC      = 7;
  1954.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_OMAP_TO_SRC}
  1955.   IMAGE_DEBUG_TYPE_OMAP_FROM_SRC    = 8;
  1956.   {$EXTERNALSYM IMAGE_DEBUG_TYPE_OMAP_FROM_SRC}
  1957.  
  1958. type
  1959.   PImageCOFFSymbolsHeader = ^TImageCOFFSymbolsHeader;
  1960.   _IMAGE_COFF_SYMBOLS_HEADER = record
  1961.     NumberOfSymbols: DWORD;
  1962.     LvaToFirstSymbol: DWORD;
  1963.     NumberOfLinenumbers: DWORD;
  1964.     LvaToFirstLinenumber: DWORD;
  1965.     RvaToFirstByteOfCode: DWORD;
  1966.     RvaToLastByteOfCode: DWORD;
  1967.     RvaToFirstByteOfData: DWORD;
  1968.     RvaToLastByteOfData: DWORD;
  1969.   end;
  1970.   {$EXTERNALSYM _IMAGE_COFF_SYMBOLS_HEADER}
  1971.   TImageCOFFSymbolsHeader = _IMAGE_COFF_SYMBOLS_HEADER;
  1972.   IMAGE_COFF_SYMBOLS_HEADER = _IMAGE_COFF_SYMBOLS_HEADER;
  1973.   {$EXTERNALSYM IMAGE_COFF_SYMBOLS_HEADER}
  1974.  
  1975.  
  1976. const
  1977.   FRAME_FPO       = 0;
  1978.   {$EXTERNALSYM FRAME_FPO}
  1979.   FRAME_TRAP      = 1;
  1980.   {$EXTERNALSYM FRAME_TRAP}
  1981.   FRAME_TSS       = 2;
  1982.   {$EXTERNALSYM FRAME_TSS}
  1983.   FRAME_NONFPO    = 3;
  1984.   {$EXTERNALSYM FRAME_NONFPO}
  1985.  
  1986. type
  1987.   PFpoData = ^TFpoData;
  1988.   _FPO_DATA = packed record
  1989.     ulOffStart: DWORD;             // offset 1st byte of function code
  1990.     cbProcSize: DWORD;             // # bytes in function
  1991.     cdwLocals: DWORD;              // # bytes in locals/4
  1992.     cdwParams: Word;              // # bytes in params/4
  1993. {    WORD        cbProlog : 8;           // # bytes in prolog
  1994.      WORD        cbRegs   : 3;           // # regs saved
  1995.      WORD        fHasSEH  : 1;           // TRUE if SEH in func
  1996.      WORD        fUseBP   : 1;           // TRUE if EBP has been allocated
  1997.      WORD        reserved : 1;           // reserved for future use
  1998.      WORD        cbFrame  : 2;}           // frame type
  1999.      cbProlog: Byte;
  2000.      OtherStuff: Byte;
  2001.   end;
  2002.   {$EXTERNALSYM _FPO_DATA}
  2003.   TFpoData = _FPO_DATA;
  2004.   FPO_DATA = _FPO_DATA;
  2005.   {$EXTERNALSYM FPO_DATA}
  2006.  
  2007.  
  2008. const
  2009.   SIZEOF_RFPO_DATA         = 16;
  2010.   {$EXTERNALSYM SIZEOF_RFPO_DATA}
  2011.   IMAGE_DEBUG_MISC_EXENAME = 1;
  2012.   {$EXTERNALSYM IMAGE_DEBUG_MISC_EXENAME}
  2013.  
  2014. type
  2015.   PImageDebugMisc = ^TImageDebugMisc;
  2016.   _IMAGE_DEBUG_MISC = packed record
  2017.     DataType: DWORD;               // type of misc data, see defines
  2018.     Length: DWORD;                 // total length of record, rounded to four
  2019.                                    // byte multiple.
  2020.     Unicode: ByteBool;             // TRUE if data is unicode string
  2021.     Reserved: array[0..2] of Byte;
  2022.     Data: array[0..0] of Byte;     // Actual data
  2023.   end;
  2024.   {$EXTERNALSYM _IMAGE_DEBUG_MISC}
  2025.   TImageDebugMisc = _IMAGE_DEBUG_MISC;
  2026.   IMAGE_DEBUG_MISC = _IMAGE_DEBUG_MISC;
  2027.   {$EXTERNALSYM IMAGE_DEBUG_MISC}
  2028.  
  2029.  
  2030. //
  2031. // Function table extracted from MIPS/ALPHA images.  Does not contain
  2032. // information needed only for runtime support.  Just those fields for
  2033. // each entry needed by a debugger.
  2034. //
  2035.   PImageFunctionEntry = ^TImageFunctionEntry;
  2036.   _IMAGE_FUNCTION_ENTRY = record
  2037.     StartingAddress: DWORD;
  2038.     EndingAddress: DWORD;
  2039.     EndOfPrologue: DWORD;
  2040.   end;
  2041.   {$EXTERNALSYM _IMAGE_FUNCTION_ENTRY}
  2042.   TImageFunctionEntry = _IMAGE_FUNCTION_ENTRY;
  2043.   IMAGE_FUNCTION_ENTRY = _IMAGE_FUNCTION_ENTRY;
  2044.   {$EXTERNALSYM IMAGE_FUNCTION_ENTRY}
  2045.  
  2046.  
  2047. {line 4587}
  2048. type
  2049.   PRTLCriticalSection = ^TRTLCriticalSection;
  2050.   PRTLCriticalSectionDebug = ^TRTLCriticalSectionDebug;
  2051.   _RTL_CRITICAL_SECTION_DEBUG = record
  2052.     Type_18: Word;
  2053.     CreatorBackTraceIndex: Word;
  2054.     CriticalSection: PRTLCriticalSection;
  2055.     ProcessLocksList: TListEntry;
  2056.     EntryCount: DWORD;
  2057.     ContentionCount: DWORD;
  2058.     Spare: array[0..1] of DWORD;
  2059.   end;
  2060.   {$EXTERNALSYM _RTL_CRITICAL_SECTION_DEBUG}
  2061.   TRTLCriticalSectionDebug = _RTL_CRITICAL_SECTION_DEBUG;
  2062.   RTL_CRITICAL_SECTION_DEBUG = _RTL_CRITICAL_SECTION_DEBUG;
  2063.   {$EXTERNALSYM RTL_CRITICAL_SECTION_DEBUG}
  2064.  
  2065.   _RTL_CRITICAL_SECTION = record
  2066.     DebugInfo: PRTLCriticalSectionDebug;
  2067.     LockCount: Longint;
  2068.     RecursionCount: Longint;
  2069.     OwningThread: THandle;
  2070.     LockSemaphore: THandle;
  2071.     Reserved: DWORD;
  2072.   end;
  2073.   {$EXTERNALSYM _RTL_CRITICAL_SECTION}
  2074.   TRTLCriticalSection = _RTL_CRITICAL_SECTION;
  2075.   RTL_CRITICAL_SECTION = _RTL_CRITICAL_SECTION;
  2076.   {$EXTERNALSYM RTL_CRITICAL_SECTION}
  2077.  
  2078. const
  2079.   RTL_CRITSECT_TYPE = 0;
  2080.   {$EXTERNALSYM RTL_CRITSECT_TYPE}
  2081.   RTL_RESOURCE_TYPE = 1;
  2082.   {$EXTERNALSYM RTL_RESOURCE_TYPE}
  2083.  
  2084.  
  2085.   DLL_PROCESS_ATTACH = 1;
  2086.   {$EXTERNALSYM DLL_PROCESS_ATTACH}
  2087.   DLL_THREAD_ATTACH = 2;
  2088.   {$EXTERNALSYM DLL_THREAD_ATTACH}
  2089.   DLL_THREAD_DETACH = 3;
  2090.   {$EXTERNALSYM DLL_THREAD_DETACH}
  2091.   DLL_PROCESS_DETACH = 0;
  2092.   {$EXTERNALSYM DLL_PROCESS_DETACH}
  2093.  
  2094. {line 4630}
  2095.  
  2096. { The types of events that can be logged. }
  2097.  
  2098.   EVENTLOG_SUCCESS          = $0000;
  2099.   {$EXTERNALSYM EVENTLOG_SUCCESS}
  2100.   EVENTLOG_ERROR_TYPE       = $0001;
  2101.   {$EXTERNALSYM EVENTLOG_ERROR_TYPE}
  2102.   EVENTLOG_WARNING_TYPE     = $0002;
  2103.   {$EXTERNALSYM EVENTLOG_WARNING_TYPE}
  2104.   EVENTLOG_INFORMATION_TYPE = $0004;
  2105.   {$EXTERNALSYM EVENTLOG_INFORMATION_TYPE}
  2106.   EVENTLOG_AUDIT_SUCCESS    = $0008;
  2107.   {$EXTERNALSYM EVENTLOG_AUDIT_SUCCESS}
  2108.   EVENTLOG_AUDIT_FAILURE    = $0010;
  2109.   {$EXTERNALSYM EVENTLOG_AUDIT_FAILURE}
  2110.  
  2111. {line 4700}
  2112.  
  2113. { Registry Specific Access Rights. }
  2114.  
  2115.   KEY_QUERY_VALUE    = $0001;
  2116.   {$EXTERNALSYM KEY_QUERY_VALUE}
  2117.   KEY_SET_VALUE      = $0002;
  2118.   {$EXTERNALSYM KEY_SET_VALUE}
  2119.   KEY_CREATE_SUB_KEY = $0004;
  2120.   {$EXTERNALSYM KEY_CREATE_SUB_KEY}
  2121.   KEY_ENUMERATE_SUB_KEYS = $0008;
  2122.   {$EXTERNALSYM KEY_ENUMERATE_SUB_KEYS}
  2123.   KEY_NOTIFY         = $0010;
  2124.   {$EXTERNALSYM KEY_NOTIFY}
  2125.   KEY_CREATE_LINK    = $0020;
  2126.   {$EXTERNALSYM KEY_CREATE_LINK}
  2127.  
  2128.  
  2129.   KEY_READ           = (STANDARD_RIGHTS_READ or
  2130.                         KEY_QUERY_VALUE or
  2131.                         KEY_ENUMERATE_SUB_KEYS or
  2132.                         KEY_NOTIFY) and not
  2133.                         SYNCHRONIZE;
  2134.   {$EXTERNALSYM KEY_READ}
  2135.  
  2136.  
  2137.  
  2138.   KEY_WRITE          = (STANDARD_RIGHTS_WRITE or
  2139.                         KEY_SET_VALUE or
  2140.                         KEY_CREATE_SUB_KEY) and not
  2141.                         SYNCHRONIZE;
  2142.   {$EXTERNALSYM KEY_WRITE}
  2143.  
  2144.   KEY_EXECUTE        =  KEY_READ and not SYNCHRONIZE;
  2145.   {$EXTERNALSYM KEY_EXECUTE}
  2146.  
  2147.  
  2148.   KEY_ALL_ACCESS     = (STANDARD_RIGHTS_ALL or
  2149.                         KEY_QUERY_VALUE or
  2150.                         KEY_SET_VALUE or
  2151.                         KEY_CREATE_SUB_KEY or
  2152.                         KEY_ENUMERATE_SUB_KEYS or
  2153.                         KEY_NOTIFY or
  2154.                         KEY_CREATE_LINK) and not
  2155.                         SYNCHRONIZE;
  2156.   {$EXTERNALSYM KEY_ALL_ACCESS}
  2157.  
  2158.   { Registry Open/Create Options }
  2159.  
  2160.   REG_OPTION_RESERVED     = ($00000000);    { Parameter is reserved }
  2161.   {$EXTERNALSYM REG_OPTION_RESERVED}
  2162.  
  2163.   REG_OPTION_NON_VOLATILE = ($00000000);    { Key is preserved }
  2164.   {$EXTERNALSYM REG_OPTION_NON_VOLATILE}
  2165.                                             { when system is rebooted }
  2166.  
  2167.   REG_OPTION_VOLATILE     = ($00000001);    { Key is not preserved }
  2168.   {$EXTERNALSYM REG_OPTION_VOLATILE}
  2169.                                             { when system is rebooted }
  2170.  
  2171.   REG_OPTION_CREATE_LINK  = ($00000002);    { Created key is a }
  2172.   {$EXTERNALSYM REG_OPTION_CREATE_LINK}
  2173.                                             { symbolic link }
  2174.  
  2175.   REG_OPTION_BACKUP_RESTORE = ($00000004);  { open for backup or restore }
  2176.   {$EXTERNALSYM REG_OPTION_BACKUP_RESTORE}
  2177.                                             { special access rules }
  2178.                                             { privilege required   }
  2179.  
  2180.   REG_LEGAL_OPTION  = (REG_OPTION_RESERVED or
  2181.   {$EXTERNALSYM REG_LEGAL_OPTION}
  2182.                        REG_OPTION_NON_VOLATILE or
  2183.                        REG_OPTION_VOLATILE or
  2184.                        REG_OPTION_CREATE_LINK or
  2185.                        REG_OPTION_BACKUP_RESTORE);
  2186.  
  2187.   { Registry Key creation/open disposition }
  2188.  
  2189.   REG_CREATED_NEW_KEY     = ($00000001);    { New Registry Key created }
  2190.   {$EXTERNALSYM REG_CREATED_NEW_KEY}
  2191.   REG_OPENED_EXISTING_KEY = ($00000002);    { Existing Key opened }
  2192.   {$EXTERNALSYM REG_OPENED_EXISTING_KEY}
  2193.  
  2194.   { Registry Key restore flags }
  2195.  
  2196.   REG_WHOLE_HIVE_VOLATILE = ($00000001);    { Restore whole hive volatile }
  2197.   {$EXTERNALSYM REG_WHOLE_HIVE_VOLATILE}
  2198.   REG_REFRESH_HIVE        = ($00000002);    { Unwind changes to last flush }
  2199.   {$EXTERNALSYM REG_REFRESH_HIVE}
  2200.  
  2201.   { Registry Notify filter values }
  2202.  
  2203.   REG_NOTIFY_CHANGE_NAME       = ($00000001); { Create or delete (child) }
  2204.   {$EXTERNALSYM REG_NOTIFY_CHANGE_NAME}
  2205.   REG_NOTIFY_CHANGE_ATTRIBUTES = ($00000002);
  2206.   {$EXTERNALSYM REG_NOTIFY_CHANGE_ATTRIBUTES}
  2207.   REG_NOTIFY_CHANGE_LAST_SET   = ($00000004); { time stamp }
  2208.   {$EXTERNALSYM REG_NOTIFY_CHANGE_LAST_SET}
  2209.   REG_NOTIFY_CHANGE_SECURITY   = ($00000008);
  2210.   {$EXTERNALSYM REG_NOTIFY_CHANGE_SECURITY}
  2211.  
  2212.   REG_LEGAL_CHANGE_FILTER = (REG_OPTION_RESERVED or
  2213.                              REG_NOTIFY_CHANGE_NAME or
  2214.                              REG_NOTIFY_CHANGE_ATTRIBUTES or
  2215.                              REG_NOTIFY_CHANGE_LAST_SET or
  2216.                              REG_NOTIFY_CHANGE_SECURITY);
  2217.   {$EXTERNALSYM REG_LEGAL_CHANGE_FILTER}
  2218.  
  2219.   { Registry Predefined Value Types }
  2220.  
  2221.   REG_NONE                    = 0;
  2222.   {$EXTERNALSYM REG_NONE}
  2223.   REG_SZ                      = 1;
  2224.   {$EXTERNALSYM REG_SZ}
  2225.   REG_EXPAND_SZ               = 2;
  2226.   {$EXTERNALSYM REG_EXPAND_SZ}
  2227.   REG_BINARY                  = 3;
  2228.   {$EXTERNALSYM REG_BINARY}
  2229.   REG_DWORD                   = 4;
  2230.   {$EXTERNALSYM REG_DWORD}
  2231.   REG_DWORD_LITTLE_ENDIAN     = 4;
  2232.   {$EXTERNALSYM REG_DWORD_LITTLE_ENDIAN}
  2233.   REG_DWORD_BIG_ENDIAN        = 5;
  2234.   {$EXTERNALSYM REG_DWORD_BIG_ENDIAN}
  2235.   REG_LINK                    = 6;
  2236.   {$EXTERNALSYM REG_LINK}
  2237.   REG_MULTI_SZ                = 7;
  2238.   {$EXTERNALSYM REG_MULTI_SZ}
  2239.   REG_RESOURCE_LIST           = 8;
  2240.   {$EXTERNALSYM REG_RESOURCE_LIST}
  2241.   REG_FULL_RESOURCE_DESCRIPTOR = 9;
  2242.   {$EXTERNALSYM REG_FULL_RESOURCE_DESCRIPTOR}
  2243.   REG_RESOURCE_REQUIREMENTS_LIST = 10;
  2244.   {$EXTERNALSYM REG_RESOURCE_REQUIREMENTS_LIST}
  2245.  
  2246. { END Translated from WINNT.H }
  2247.  
  2248. type
  2249.   WPARAM = Longint;
  2250.   {$EXTERNALSYM WPARAM}
  2251.   LPARAM = Longint;
  2252.   {$EXTERNALSYM LPARAM}
  2253.   LRESULT = Longint;
  2254.   {$EXTERNALSYM LRESULT}
  2255.  
  2256. function MakeWord(a, b: Byte): Word;
  2257. {$EXTERNALSYM MakeWord}
  2258. function MakeLong(a, b: Word): Longint;
  2259. {$EXTERNALSYM MakeLong}
  2260.  
  2261. type
  2262.   LOWORD = Word;
  2263.   {$EXTERNALSYM LOWORD}
  2264.  
  2265. function HiWord(l: DWORD): Word;
  2266. {$EXTERNALSYM HiWord}
  2267.  
  2268. type
  2269.   LOBYTE = Byte;
  2270.   {$EXTERNALSYM LOBYTE}
  2271.  
  2272. function HiByte(W: Word): Byte;
  2273. {$EXTERNALSYM HiByte}
  2274.  
  2275. type
  2276.  
  2277.  
  2278.  
  2279.  
  2280.  
  2281.  
  2282.  
  2283.  
  2284.  
  2285.  
  2286.  
  2287.  
  2288.  
  2289.  
  2290.  
  2291.   HWND = type LongWord;
  2292.   {$EXTERNALSYM HWND}
  2293.   HHOOK = type LongWord;
  2294.   {$EXTERNALSYM HHOOK}
  2295.  
  2296.   ATOM = Word;
  2297.   {$EXTERNALSYM ATOM}
  2298.   TAtom = Word;
  2299.  
  2300.   HGLOBAL = THandle;
  2301.   {$EXTERNALSYM HGLOBAL}
  2302.   HLOCAL = THandle;
  2303.   {$EXTERNALSYM HLOCAL}
  2304.   FARPROC = Pointer;
  2305.   {$EXTERNALSYM FARPROC}
  2306.   TFarProc = Pointer;
  2307.   PROC_22 = Pointer;
  2308.  
  2309.  
  2310.  
  2311.  
  2312.  
  2313.  
  2314.  
  2315.  
  2316.  
  2317.  
  2318.  
  2319.  
  2320.  
  2321.  
  2322.  
  2323.  
  2324.  
  2325.  
  2326.  
  2327.  
  2328.  
  2329.  
  2330.  
  2331.  
  2332.  
  2333.  
  2334.  
  2335.  
  2336.  
  2337.  
  2338.  
  2339.  
  2340.  
  2341.  
  2342.  
  2343.  
  2344.  
  2345.  
  2346.  
  2347.  
  2348.  
  2349.  
  2350.  
  2351.  
  2352.  
  2353.  
  2354.  
  2355.  
  2356.  
  2357.  
  2358.  
  2359.  
  2360.  
  2361.  
  2362.  
  2363.  
  2364.  
  2365.  
  2366.  
  2367.  
  2368.  
  2369.  
  2370.  
  2371.  
  2372.  
  2373.  
  2374.  
  2375.  
  2376.  
  2377.  
  2378.  
  2379.  
  2380.  
  2381.  
  2382.  
  2383.  
  2384.  
  2385.  
  2386.  
  2387.  
  2388.  
  2389.  
  2390.  
  2391.  
  2392.  
  2393.  
  2394.  
  2395.  
  2396.  
  2397.  
  2398.  
  2399.  
  2400.  
  2401.  
  2402.  
  2403.  
  2404.  
  2405.  
  2406.  
  2407.  
  2408.  
  2409.  
  2410.  
  2411.  
  2412.  
  2413.  
  2414.  
  2415.  
  2416.  
  2417.  
  2418.  
  2419.  
  2420.  
  2421.   HGDIOBJ = type LongWord;
  2422.   {$EXTERNALSYM HGDIOBJ}
  2423.   HACCEL = type LongWord;
  2424.   {$EXTERNALSYM HACCEL}
  2425.   HBITMAP = type LongWord;
  2426.   {$EXTERNALSYM HBITMAP}
  2427.   HBRUSH = type LongWord;
  2428.   {$EXTERNALSYM HBRUSH}
  2429.   HCOLORSPACE = type LongWord;
  2430.   {$EXTERNALSYM HCOLORSPACE}
  2431.   HDC = type LongWord;
  2432.   {$EXTERNALSYM HDC}
  2433.   HGLRC = type LongWord;
  2434.   {$EXTERNALSYM HGLRC}
  2435.   HDESK = type LongWord;
  2436.   {$EXTERNALSYM HDESK}
  2437.   HENHMETAFILE = type LongWord;
  2438.   {$EXTERNALSYM HENHMETAFILE}
  2439.   HFONT = type LongWord;
  2440.   {$EXTERNALSYM HFONT}
  2441.   HICON = type LongWord;
  2442.   {$EXTERNALSYM HICON}
  2443.   HMENU = type LongWord;
  2444.   {$EXTERNALSYM HMENU}
  2445.   HMETAFILE = type LongWord;
  2446.   {$EXTERNALSYM HMETAFILE}
  2447.   HINST = type LongWord;
  2448.   HMODULE = HINST;              { HMODULEs can be used in place of HINSTs }
  2449.   {$EXTERNALSYM HMODULE}
  2450.   HPALETTE = type LongWord;
  2451.   {$EXTERNALSYM HPALETTE}
  2452.   HPEN = type LongWord;
  2453.   {$EXTERNALSYM HPEN}
  2454.   HRGN = type LongWord;
  2455.   {$EXTERNALSYM HRGN}
  2456.   HRSRC = type LongWord;
  2457.   {$EXTERNALSYM HRSRC}
  2458.   HSTR = type LongWord;
  2459.   {$EXTERNALSYM HSTR}
  2460.   HTASK = type LongWord;
  2461.   {$EXTERNALSYM HTASK}
  2462.   HWINSTA = type LongWord;
  2463.   {$EXTERNALSYM HWINSTA}
  2464.   HKL = type LongWord;
  2465.   {$EXTERNALSYM HKL}
  2466.  
  2467.  
  2468.   HFILE = LongWord;
  2469.   {$EXTERNALSYM HFILE}
  2470.   HCURSOR = HICON;              { HICONs & HCURSORs are polymorphic }
  2471.   {$EXTERNALSYM HCURSOR}
  2472.  
  2473.   COLORREF = DWORD;
  2474.   {$EXTERNALSYM COLORREF}
  2475.   TColorRef = DWORD;
  2476.  
  2477. const
  2478.   HFILE_ERROR = HFILE(-1);
  2479.   {$EXTERNALSYM HFILE_ERROR}
  2480.  
  2481. type
  2482.   PPoint = ^TPoint;
  2483.   TPoint = record
  2484.     x: Longint;
  2485.     y: Longint;
  2486.   end;
  2487.   {$NODEFINE TPoint}
  2488.   tagPOINT = TPoint;
  2489.   {$NODEFINE tagPOINT}
  2490.  
  2491.   PRect = ^TRect;
  2492.  
  2493.   TRect = record
  2494.     case Integer of
  2495.       0: (Left, Top, Right, Bottom: Integer);
  2496.       1: (TopLeft, BottomRight: TPoint);
  2497.   end;
  2498.   {$NODEFINE TRect}
  2499.  
  2500.   (*$HPPEMIT 'namespace Windows'*)
  2501.   (*$HPPEMIT '{'*)
  2502.   (*$HPPEMIT '  struct TPoint : public POINT'*)
  2503.   (*$HPPEMIT '  {'*)
  2504.   (*$HPPEMIT '    TPoint() {}'*)
  2505.   (*$HPPEMIT '    TPoint(int _x, int _y) { x=_x; y=_y; }'*)
  2506.   (*$HPPEMIT '    TPoint(POINT& pt)'*)
  2507.   (*$HPPEMIT '    {'*)
  2508.   (*$HPPEMIT '      x = pt.x;'*)
  2509.   (*$HPPEMIT '      y = pt.y;'*)
  2510.   (*$HPPEMIT '    }'*)
  2511.   (*$HPPEMIT '  };'*)
  2512.   (*$HPPEMIT ' '*)
  2513.   (*$HPPEMIT '  struct TRect : public RECT'*)
  2514.   (*$HPPEMIT '  {'*)
  2515.   (*$HPPEMIT '    TRect() {}'*)
  2516.   (*$HPPEMIT '    TRect(const TPoint& TL, const TPoint& BR) { left=TL.x; top=TL.y; right=BR.x; bottom=BR.y; }'*)
  2517.   (*$HPPEMIT '    TRect(int l, int t, int r, int b)         { left=l;    top=t;    right=r;    bottom=b;    }'*)
  2518.   (*$HPPEMIT '    TRect(RECT& r)'*)
  2519.   (*$HPPEMIT '    {'*)
  2520.   (*$HPPEMIT '      left    = r.left;'*)
  2521.   (*$HPPEMIT '      top     = r.top;'*)
  2522.   (*$HPPEMIT '      right   = r.right;'*)
  2523.   (*$HPPEMIT '      bottom  = r.bottom;'*)
  2524.   (*$HPPEMIT '    }'*)
  2525.   (*$HPPEMIT '    int Width () const { return right  - left; }'*)
  2526.   (*$HPPEMIT '    int Height() const { return bottom - top ; }'*)
  2527.   (*$HPPEMIT '    bool operator ==(const TRect& rc) const '*)
  2528.   (*$HPPEMIT '    {'*)
  2529.   (*$HPPEMIT '       return left ==  rc.left  && top==rc.top &&     '*)
  2530.   (*$HPPEMIT '              right == rc.right && bottom==rc.bottom; '*)
  2531.   (*$HPPEMIT '    }'*)
  2532.   (*$HPPEMIT '    bool operator !=(const TRect& rc) const '*)
  2533.   (*$HPPEMIT '    {  return !(rc==*this); }'*)
  2534.   (*$HPPEMIT ' '*)
  2535.   (*$HPPEMIT '       __property LONG Left    = { read=left,   write=left   }; '*)
  2536.   (*$HPPEMIT '       __property LONG Top     = { read=top,       write=top }; '*)
  2537.   (*$HPPEMIT '       __property LONG Right   = { read=right,  write=right  }; '*)
  2538.   (*$HPPEMIT '       __property LONG Bottom  = { read=bottom, write=bottom }; '*)
  2539.   (*$HPPEMIT '  };'*)
  2540.   (*$HPPEMIT '} /* namespace Windows */'*)
  2541.  
  2542.   _POINTL = packed record      { ptl }
  2543.     x: Longint;
  2544.     y: Longint;
  2545.   end;
  2546.   {$EXTERNALSYM _POINTL}
  2547.   PPointL = ^TPointL;
  2548.   TPointL = _POINTL;
  2549.  
  2550.   PSize = ^TSize;
  2551.   tagSIZE = record
  2552.     cx: Longint;
  2553.     cy: Longint;
  2554.   end;
  2555.   {$EXTERNALSYM tagSIZE}
  2556.   TSize = tagSIZE;
  2557.   SIZE = tagSIZE;
  2558.   {$EXTERNALSYM SIZE}
  2559.  
  2560.   PSmallPoint = ^TSmallPoint;
  2561.   TSmallPoint = packed record
  2562.     x: SHORT;
  2563.     y: SHORT;
  2564.   end;
  2565.  
  2566. { Translated from WINBASE.H }
  2567.  
  2568. { Compatiblity functions and procedures }
  2569.  
  2570. function DefineHandleTable(Offset: Word): Bool;
  2571. {$EXTERNALSYM DefineHandleTable}
  2572. procedure LimitEmsPages(Kbytes: Longint);
  2573. {$EXTERNALSYM LimitEmsPages}
  2574. function SetSwapAreaSize(Size: Word): Longint;
  2575. {$EXTERNALSYM SetSwapAreaSize}
  2576. procedure LockSegment(Segment: THandle);
  2577. {$EXTERNALSYM LockSegment}
  2578. procedure UnlockSegment(Segment: THandle);
  2579. {$EXTERNALSYM UnlockSegment}
  2580. function GetCurrentTime: Longint;
  2581. {$EXTERNALSYM GetCurrentTime}
  2582. function Yield: Bool;
  2583. {$EXTERNALSYM Yield}
  2584.  
  2585. const
  2586.   INVALID_HANDLE_VALUE = DWORD(-1);
  2587.   {$EXTERNALSYM INVALID_HANDLE_VALUE}
  2588.   INVALID_FILE_SIZE = DWORD($FFFFFFFF);
  2589.   {$EXTERNALSYM INVALID_FILE_SIZE}
  2590.  
  2591.   FILE_BEGIN = 0;
  2592.   {$EXTERNALSYM FILE_BEGIN}
  2593.   FILE_CURRENT = 1;
  2594.   {$EXTERNALSYM FILE_CURRENT}
  2595.   FILE_END = 2;
  2596.   {$EXTERNALSYM FILE_END}
  2597.  
  2598.   TIME_ZONE_ID_INVALID = DWORD($FFFFFFFF);
  2599.   {$EXTERNALSYM TIME_ZONE_ID_INVALID}
  2600.   TIME_ZONE_ID_UNKNOWN  = 0;
  2601.   {$EXTERNALSYM TIME_ZONE_ID_UNKNOWN}
  2602.   TIME_ZONE_ID_STANDARD = 1;
  2603.   {$EXTERNALSYM TIME_ZONE_ID_STANDARD}
  2604.   TIME_ZONE_ID_DAYLIGHT = 2;
  2605.   {$EXTERNALSYM TIME_ZONE_ID_DAYLIGHT}
  2606.  
  2607.  
  2608.   WAIT_FAILED  = DWORD($FFFFFFFF);
  2609.   {$EXTERNALSYM WAIT_FAILED}
  2610.   WAIT_OBJECT_0 = ((STATUS_WAIT_0 ) + 0 );
  2611.   {$EXTERNALSYM WAIT_OBJECT_0}
  2612.  
  2613.   WAIT_ABANDONED = ((STATUS_ABANDONED_WAIT_0 ) + 0 );
  2614.   {$EXTERNALSYM WAIT_ABANDONED}
  2615.   WAIT_ABANDONED_0 = ((STATUS_ABANDONED_WAIT_0 ) + 0 );
  2616.   {$EXTERNALSYM WAIT_ABANDONED_0}
  2617.  
  2618.   WAIT_TIMEOUT = STATUS_TIMEOUT;
  2619.   {$EXTERNALSYM WAIT_TIMEOUT}
  2620.   WAIT_IO_COMPLETION = STATUS_USER_APC;
  2621.   {$EXTERNALSYM WAIT_IO_COMPLETION}
  2622.   STILL_ACTIVE = STATUS_PENDING;
  2623.   {$EXTERNALSYM STILL_ACTIVE}
  2624.   EXCEPTION_ACCESS_VIOLATION = STATUS_ACCESS_VIOLATION;
  2625.   {$EXTERNALSYM EXCEPTION_ACCESS_VIOLATION}
  2626.   EXCEPTION_DATATYPE_MISALIGNMENT = STATUS_DATATYPE_MISALIGNMENT;
  2627.   {$EXTERNALSYM EXCEPTION_DATATYPE_MISALIGNMENT}
  2628.   EXCEPTION_BREAKPOINT = STATUS_BREAKPOINT;
  2629.   {$EXTERNALSYM EXCEPTION_BREAKPOINT}
  2630.   EXCEPTION_SINGLE_STEP = STATUS_SINGLE_STEP;
  2631.   {$EXTERNALSYM EXCEPTION_SINGLE_STEP}
  2632.   EXCEPTION_ARRAY_BOUNDS_EXCEEDED = STATUS_ARRAY_BOUNDS_EXCEEDED;
  2633.   {$EXTERNALSYM EXCEPTION_ARRAY_BOUNDS_EXCEEDED}
  2634.   EXCEPTION_FLT_DENORMAL_OPERAND = STATUS_FLOAT_DENORMAL_OPERAND;
  2635.   {$EXTERNALSYM EXCEPTION_FLT_DENORMAL_OPERAND}
  2636.   EXCEPTION_FLT_DIVIDE_BY_ZERO = STATUS_FLOAT_DIVIDE_BY_ZERO;
  2637.   {$EXTERNALSYM EXCEPTION_FLT_DIVIDE_BY_ZERO}
  2638.   EXCEPTION_FLT_INEXACT_RESULT = STATUS_FLOAT_INEXACT_RESULT;
  2639.   {$EXTERNALSYM EXCEPTION_FLT_INEXACT_RESULT}
  2640.   EXCEPTION_FLT_INVALID_OPERATION = STATUS_FLOAT_INVALID_OPERATION;
  2641.   {$EXTERNALSYM EXCEPTION_FLT_INVALID_OPERATION}
  2642.   EXCEPTION_FLT_OVERFLOW = STATUS_FLOAT_OVERFLOW;
  2643.   {$EXTERNALSYM EXCEPTION_FLT_OVERFLOW}
  2644.   EXCEPTION_FLT_STACK_CHECK = STATUS_FLOAT_STACK_CHECK;
  2645.   {$EXTERNALSYM EXCEPTION_FLT_STACK_CHECK}
  2646.   EXCEPTION_FLT_UNDERFLOW = STATUS_FLOAT_UNDERFLOW;
  2647.   {$EXTERNALSYM EXCEPTION_FLT_UNDERFLOW}
  2648.   EXCEPTION_INT_DIVIDE_BY_ZERO = STATUS_INTEGER_DIVIDE_BY_ZERO;
  2649.   {$EXTERNALSYM EXCEPTION_INT_DIVIDE_BY_ZERO}
  2650.   EXCEPTION_INT_OVERFLOW = STATUS_INTEGER_OVERFLOW;
  2651.   {$EXTERNALSYM EXCEPTION_INT_OVERFLOW}
  2652.   EXCEPTION_PRIV_INSTRUCTION = STATUS_PRIVILEGED_INSTRUCTION;
  2653.   {$EXTERNALSYM EXCEPTION_PRIV_INSTRUCTION}
  2654.   EXCEPTION_IN_PAGE_ERROR = STATUS_IN_PAGE_ERROR;
  2655.   {$EXTERNALSYM EXCEPTION_IN_PAGE_ERROR}
  2656.   EXCEPTION_ILLEGAL_INSTRUCTION = STATUS_ILLEGAL_INSTRUCTION;
  2657.   {$EXTERNALSYM EXCEPTION_ILLEGAL_INSTRUCTION}
  2658.   EXCEPTION_NONCONTINUABLE_EXCEPTION = STATUS_NONCONTINUABLE_EXCEPTION;
  2659.   {$EXTERNALSYM EXCEPTION_NONCONTINUABLE_EXCEPTION}
  2660.   EXCEPTION_STACK_OVERFLOW = STATUS_STACK_OVERFLOW;
  2661.   {$EXTERNALSYM EXCEPTION_STACK_OVERFLOW}
  2662.   EXCEPTION_INVALID_DISPOSITION = STATUS_INVALID_DISPOSITION;
  2663.   {$EXTERNALSYM EXCEPTION_INVALID_DISPOSITION}
  2664.   EXCEPTION_GUARD_PAGE = STATUS_GUARD_PAGE_VIOLATION;
  2665.   {$EXTERNALSYM EXCEPTION_GUARD_PAGE}
  2666.   EXCEPTION_INVALID_HANDLE = STATUS_INVALID_HANDLE;
  2667.   {$EXTERNALSYM EXCEPTION_INVALID_HANDLE}
  2668.   CONTROL_C_EXIT = STATUS_CONTROL_C_EXIT;
  2669.   {$EXTERNALSYM CONTROL_C_EXIT}
  2670.  
  2671. procedure MoveMemory(Destination: Pointer; Source: Pointer; Length: DWORD);
  2672. {$EXTERNALSYM MoveMemory}
  2673. procedure CopyMemory(Destination: Pointer; Source: Pointer; Length: DWORD);
  2674. {$EXTERNALSYM CopyMemory}
  2675. procedure FillMemory(Destination: Pointer; Length: DWORD; Fill: Byte);
  2676. {$EXTERNALSYM FillMemory}
  2677. procedure ZeroMemory(Destination: Pointer; Length: DWORD);
  2678. {$EXTERNALSYM ZeroMemory}
  2679.  
  2680. const
  2681.   { File creation flags must start at the high end since they }
  2682.   { are combined with the attributes}
  2683.  
  2684.   FILE_FLAG_WRITE_THROUGH = DWORD($80000000);
  2685.   {$EXTERNALSYM FILE_FLAG_WRITE_THROUGH}
  2686.   FILE_FLAG_OVERLAPPED = $40000000;
  2687.   {$EXTERNALSYM FILE_FLAG_OVERLAPPED}
  2688.   FILE_FLAG_NO_BUFFERING = $20000000;
  2689.   {$EXTERNALSYM FILE_FLAG_NO_BUFFERING}
  2690.   FILE_FLAG_RANDOM_ACCESS = $10000000;
  2691.   {$EXTERNALSYM FILE_FLAG_RANDOM_ACCESS}
  2692.   FILE_FLAG_SEQUENTIAL_SCAN = $8000000;
  2693.   {$EXTERNALSYM FILE_FLAG_SEQUENTIAL_SCAN}
  2694.   FILE_FLAG_DELETE_ON_CLOSE = $4000000;
  2695.   {$EXTERNALSYM FILE_FLAG_DELETE_ON_CLOSE}
  2696.   FILE_FLAG_BACKUP_SEMANTICS = $2000000;
  2697.   {$EXTERNALSYM FILE_FLAG_BACKUP_SEMANTICS}
  2698.   FILE_FLAG_POSIX_SEMANTICS = $1000000;
  2699.   {$EXTERNALSYM FILE_FLAG_POSIX_SEMANTICS}
  2700.  
  2701.   CREATE_NEW = 1;
  2702.   {$EXTERNALSYM CREATE_NEW}
  2703.   CREATE_ALWAYS = 2;
  2704.   {$EXTERNALSYM CREATE_ALWAYS}
  2705.   OPEN_EXISTING = 3;
  2706.   {$EXTERNALSYM OPEN_EXISTING}
  2707.   OPEN_ALWAYS = 4;
  2708.   {$EXTERNALSYM OPEN_ALWAYS}
  2709.   TRUNCATE_EXISTING = 5;
  2710.   {$EXTERNALSYM TRUNCATE_EXISTING}
  2711.  
  2712.  
  2713. { Define possible return codes from the CopyFileEx callback routine }
  2714.  
  2715.   PROGRESS_CONTINUE = 0;
  2716.   {$EXTERNALSYM PROGRESS_CONTINUE}
  2717.   PROGRESS_CANCEL = 1;
  2718.   {$EXTERNALSYM PROGRESS_CANCEL}
  2719.   PROGRESS_STOP = 2;
  2720.   {$EXTERNALSYM PROGRESS_STOP}
  2721.   PROGRESS_QUIET = 3;
  2722.   {$EXTERNALSYM PROGRESS_QUIET}
  2723.  
  2724.  
  2725. { Define CopyFileEx callback routine state change values }
  2726.  
  2727.   CALLBACK_CHUNK_FINISHED = $00000000;
  2728.   {$EXTERNALSYM CALLBACK_CHUNK_FINISHED}
  2729.   CALLBACK_STREAM_SWITCH = $00000001;
  2730.   {$EXTERNALSYM CALLBACK_STREAM_SWITCH}
  2731.  
  2732.  
  2733. { Define CopyFileEx option flags }
  2734.  
  2735.   COPY_FILE_FAIL_IF_EXISTS = $00000001;
  2736.   {$EXTERNALSYM COPY_FILE_FAIL_IF_EXISTS}
  2737.   COPY_FILE_RESTARTABLE = $00000002;
  2738.   {$EXTERNALSYM COPY_FILE_RESTARTABLE}
  2739.  
  2740.  
  2741. { Define the NamedPipe definitions}
  2742.  
  2743.   { Define the dwOpenMode values for CreateNamedPipe }
  2744.  
  2745.   PIPE_ACCESS_INBOUND = 1;
  2746.   {$EXTERNALSYM PIPE_ACCESS_INBOUND}
  2747.   PIPE_ACCESS_OUTBOUND = 2;
  2748.   {$EXTERNALSYM PIPE_ACCESS_OUTBOUND}
  2749.   PIPE_ACCESS_DUPLEX = 3;
  2750.   {$EXTERNALSYM PIPE_ACCESS_DUPLEX}
  2751.  
  2752.   { Define the Named Pipe End flags for GetNamedPipeInfo }
  2753.  
  2754.   PIPE_CLIENT_END = 0;
  2755.   {$EXTERNALSYM PIPE_CLIENT_END}
  2756.   PIPE_SERVER_END = 1;
  2757.   {$EXTERNALSYM PIPE_SERVER_END}
  2758.  
  2759.   { Define the dwPipeMode values for CreateNamedPipe }
  2760.  
  2761.   PIPE_WAIT = 0;
  2762.   {$EXTERNALSYM PIPE_WAIT}
  2763.   PIPE_NOWAIT = 1;
  2764.   {$EXTERNALSYM PIPE_NOWAIT}
  2765.   PIPE_READMODE_BYTE = 0;
  2766.   {$EXTERNALSYM PIPE_READMODE_BYTE}
  2767.   PIPE_READMODE_MESSAGE = 2;
  2768.   {$EXTERNALSYM PIPE_READMODE_MESSAGE}
  2769.   PIPE_TYPE_BYTE = 0;
  2770.   {$EXTERNALSYM PIPE_TYPE_BYTE}
  2771.   PIPE_TYPE_MESSAGE = 4;
  2772.   {$EXTERNALSYM PIPE_TYPE_MESSAGE}
  2773.  
  2774.   { Define the well known values for CreateNamedPipe nMaxInstances }
  2775.  
  2776.   {$EXTERNALSYM PIPE_UNLIMITED_INSTANCES}
  2777.   PIPE_UNLIMITED_INSTANCES = 255;
  2778.  
  2779.   { Define the Security Quality of Service bits to be passed into CreateFile }
  2780.  
  2781.   SECURITY_ANONYMOUS = (Ord(SecurityAnonymous) shl 16);
  2782.   {$EXTERNALSYM SECURITY_ANONYMOUS}
  2783.   SECURITY_IDENTIFICATION = (Ord(SecurityIdentification) shl 16);
  2784.   {$EXTERNALSYM SECURITY_IDENTIFICATION}
  2785.   SECURITY_IMPERSONATION = (Ord(SecurityImpersonation) shl 16);
  2786.   {$EXTERNALSYM SECURITY_IMPERSONATION}
  2787.   SECURITY_DELEGATION = (Ord(SecurityDelegation) shl 16);
  2788.   {$EXTERNALSYM SECURITY_DELEGATION}
  2789.  
  2790.   SECURITY_CONTEXT_TRACKING = $40000;
  2791.   {$EXTERNALSYM SECURITY_CONTEXT_TRACKING}
  2792.   SECURITY_EFFECTIVE_ONLY = $80000;
  2793.   {$EXTERNALSYM SECURITY_EFFECTIVE_ONLY}
  2794.  
  2795.   SECURITY_SQOS_PRESENT = $100000;
  2796.   {$EXTERNALSYM SECURITY_SQOS_PRESENT}
  2797.   SECURITY_VALID_SQOS_FLAGS = $1F0000;
  2798.   {$EXTERNALSYM SECURITY_VALID_SQOS_FLAGS}
  2799.  
  2800. { File structures }
  2801.  
  2802. type
  2803.   POverlapped = ^TOverlapped;
  2804.   _OVERLAPPED = record
  2805.     Internal: DWORD;
  2806.     InternalHigh: DWORD;
  2807.     Offset: DWORD;
  2808.     OffsetHigh: DWORD;
  2809.     hEvent: THandle;
  2810.   end;
  2811.   {$EXTERNALSYM _OVERLAPPED}
  2812.   TOverlapped = _OVERLAPPED;
  2813.   OVERLAPPED = _OVERLAPPED;
  2814.   {$EXTERNALSYM OVERLAPPED}
  2815.  
  2816.   PSecurityAttributes = ^TSecurityAttributes;
  2817.   _SECURITY_ATTRIBUTES = record
  2818.     nLength: DWORD;
  2819.     lpSecurityDescriptor: Pointer;
  2820.     bInheritHandle: BOOL;
  2821.   end;
  2822.   {$EXTERNALSYM _SECURITY_ATTRIBUTES}
  2823.   TSecurityAttributes = _SECURITY_ATTRIBUTES;
  2824.   SECURITY_ATTRIBUTES = _SECURITY_ATTRIBUTES;
  2825.   {$EXTERNALSYM SECURITY_ATTRIBUTES}
  2826.  
  2827.   PProcessInformation = ^TProcessInformation;
  2828.   _PROCESS_INFORMATION = record
  2829.     hProcess: THandle;
  2830.     hThread: THandle;
  2831.     dwProcessId: DWORD;
  2832.     dwThreadId: DWORD;
  2833.   end;
  2834.   {$EXTERNALSYM _PROCESS_INFORMATION}
  2835.   TProcessInformation = _PROCESS_INFORMATION;
  2836.   PROCESS_INFORMATION = _PROCESS_INFORMATION;
  2837.   {$EXTERNALSYM PROCESS_INFORMATION}
  2838.  
  2839.   { File System time stamps are represented with the following structure: }
  2840.   PFileTime = ^TFileTime;
  2841.   _FILETIME = record
  2842.     dwLowDateTime: DWORD;
  2843.     dwHighDateTime: DWORD;
  2844.   end;
  2845.   {$EXTERNALSYM _FILETIME}
  2846.   TFileTime = _FILETIME;
  2847.   FILETIME = _FILETIME;
  2848.   {$EXTERNALSYM FILETIME}
  2849.  
  2850.   { System time is represented with the following structure: }
  2851.   PSystemTime = ^TSystemTime;
  2852.   _SYSTEMTIME = record
  2853.     wYear: Word;
  2854.     wMonth: Word;
  2855.     wDayOfWeek: Word;
  2856.     wDay: Word;
  2857.     wHour: Word;
  2858.     wMinute: Word;
  2859.     wSecond: Word;
  2860.     wMilliseconds: Word;
  2861.   end;
  2862.   {$EXTERNALSYM _SYSTEMTIME}
  2863.   TSystemTime = _SYSTEMTIME;
  2864.   SYSTEMTIME = _SYSTEMTIME;
  2865.   {$EXTERNALSYM SYSTEMTIME}
  2866.  
  2867.  
  2868.  
  2869.  
  2870.   TFNThreadStartRoutine = TFarProc;
  2871.   TFNFiberStartRoutine = TFarProc;
  2872.  
  2873. const
  2874.   MUTEX_MODIFY_STATE = MUTANT_QUERY_STATE;
  2875.   {$EXTERNALSYM MUTEX_MODIFY_STATE}
  2876.   MUTEX_ALL_ACCESS = MUTANT_ALL_ACCESS;
  2877.   {$EXTERNALSYM MUTEX_ALL_ACCESS}
  2878.  
  2879.   { Serial provider type. }
  2880.  
  2881.   SP_SERIALCOMM = $00000001;
  2882.   {$EXTERNALSYM SP_SERIALCOMM}
  2883.  
  2884.   { Provider SubTypes }
  2885.  
  2886.   PST_UNSPECIFIED = $00000000;
  2887.   {$EXTERNALSYM PST_UNSPECIFIED}
  2888.   PST_RS232 = $00000001;
  2889.   {$EXTERNALSYM PST_RS232}
  2890.   PST_PARALLELPORT = $00000002;
  2891.   {$EXTERNALSYM PST_PARALLELPORT}
  2892.   PST_RS422 = $00000003;
  2893.   {$EXTERNALSYM PST_RS422}
  2894.   PST_RS423 = $00000004;
  2895.   {$EXTERNALSYM PST_RS423}
  2896.   PST_RS449 = $00000005;
  2897.   {$EXTERNALSYM PST_RS449}
  2898.   PST_MODEM = $00000006;
  2899.   {$EXTERNALSYM PST_MODEM}
  2900.   PST_FAX = $00000021;
  2901.   {$EXTERNALSYM PST_FAX}
  2902.   PST_SCANNER = $00000022;
  2903.   {$EXTERNALSYM PST_SCANNER}
  2904.   PST_NETWORK_BRIDGE = $00000100;
  2905.   {$EXTERNALSYM PST_NETWORK_BRIDGE}
  2906.   PST_LAT = $00000101;
  2907.   {$EXTERNALSYM PST_LAT}
  2908.   PST_TCPIP_TELNET = $00000102;
  2909.   {$EXTERNALSYM PST_TCPIP_TELNET}
  2910.   PST_X25 = $00000103;
  2911.   {$EXTERNALSYM PST_X25}
  2912.  
  2913.   { Provider capabilities flags. }
  2914.  
  2915.   PCF_DTRDSR = $0001;
  2916.   {$EXTERNALSYM PCF_DTRDSR}
  2917.   PCF_RTSCTS = $0002;
  2918.   {$EXTERNALSYM PCF_RTSCTS}
  2919.   PCF_RLSD = $0004;
  2920.   {$EXTERNALSYM PCF_RLSD}
  2921.   PCF_PARITY_CHECK = $0008;
  2922.   {$EXTERNALSYM PCF_PARITY_CHECK}
  2923.   PCF_XONXOFF = $0010;
  2924.   {$EXTERNALSYM PCF_XONXOFF}
  2925.   PCF_SETXCHAR = $0020;
  2926.   {$EXTERNALSYM PCF_SETXCHAR}
  2927.   PCF_TOTALTIMEOUTS = $0040;
  2928.   {$EXTERNALSYM PCF_TOTALTIMEOUTS}
  2929.   PCF_INTTIMEOUTS = $0080;
  2930.   {$EXTERNALSYM PCF_INTTIMEOUTS}
  2931.   PCF_SPECIALCHARS = $0100;
  2932.   {$EXTERNALSYM PCF_SPECIALCHARS}
  2933.   PCF_16BITMODE = $0200;
  2934.   {$EXTERNALSYM PCF_16BITMODE}
  2935.  
  2936.   { Comm provider settable parameters. }
  2937.  
  2938.   SP_PARITY = $0001;
  2939.   {$EXTERNALSYM SP_PARITY}
  2940.   SP_BAUD = $0002;
  2941.   {$EXTERNALSYM SP_BAUD}
  2942.   SP_DATABITS = $0004;
  2943.   {$EXTERNALSYM SP_DATABITS}
  2944.   SP_STOPBITS = $0008;
  2945.   {$EXTERNALSYM SP_STOPBITS}
  2946.   SP_HANDSHAKING = $0010;
  2947.   {$EXTERNALSYM SP_HANDSHAKING}
  2948.   SP_PARITY_CHECK = $0020;
  2949.   {$EXTERNALSYM SP_PARITY_CHECK}
  2950.   SP_RLSD = $0040;
  2951.   {$EXTERNALSYM SP_RLSD}
  2952.  
  2953.   { Settable baud rates in the provider. }
  2954.  
  2955.   BAUD_075 = $00000001;
  2956.   {$EXTERNALSYM BAUD_075}
  2957.   BAUD_110 = $00000002;
  2958.   {$EXTERNALSYM BAUD_110}
  2959.   BAUD_134_5 = $00000004;
  2960.   {$EXTERNALSYM BAUD_134_5}
  2961.   BAUD_150 = $00000008;
  2962.   {$EXTERNALSYM BAUD_150}
  2963.   BAUD_300 = $00000010;
  2964.   {$EXTERNALSYM BAUD_300}
  2965.   BAUD_600 = $00000020;
  2966.   {$EXTERNALSYM BAUD_600}
  2967.   BAUD_1200 = $00000040;
  2968.   {$EXTERNALSYM BAUD_1200}
  2969.   BAUD_1800 = $00000080;
  2970.   {$EXTERNALSYM BAUD_1800}
  2971.   BAUD_2400 = $00000100;
  2972.   {$EXTERNALSYM BAUD_2400}
  2973.   BAUD_4800 = $00000200;
  2974.   {$EXTERNALSYM BAUD_4800}
  2975.   BAUD_7200 = $00000400;
  2976.   {$EXTERNALSYM BAUD_7200}
  2977.   BAUD_9600 = $00000800;
  2978.   {$EXTERNALSYM BAUD_9600}
  2979.   BAUD_14400 = $00001000;
  2980.   {$EXTERNALSYM BAUD_14400}
  2981.   BAUD_19200 = $00002000;
  2982.   {$EXTERNALSYM BAUD_19200}
  2983.   BAUD_38400 = $00004000;
  2984.   {$EXTERNALSYM BAUD_38400}
  2985.   BAUD_56K = $00008000;
  2986.   {$EXTERNALSYM BAUD_56K}
  2987.   BAUD_128K = $00010000;
  2988.   {$EXTERNALSYM BAUD_128K}
  2989.   BAUD_115200 = $00020000;
  2990.   {$EXTERNALSYM BAUD_115200}
  2991.   BAUD_57600 = $00040000;
  2992.   {$EXTERNALSYM BAUD_57600}
  2993.   BAUD_USER = $10000000;
  2994.   {$EXTERNALSYM BAUD_USER}
  2995.  
  2996.   { Settable Data Bits }
  2997.  
  2998.   DATABITS_5 = $0001;
  2999.   {$EXTERNALSYM DATABITS_5}
  3000.   DATABITS_6 = $0002;
  3001.   {$EXTERNALSYM DATABITS_6}
  3002.   DATABITS_7 = $0004;
  3003.   {$EXTERNALSYM DATABITS_7}
  3004.   DATABITS_8 = $0008;
  3005.   {$EXTERNALSYM DATABITS_8}
  3006.   DATABITS_16 = $0010;
  3007.   {$EXTERNALSYM DATABITS_16}
  3008.   DATABITS_16X = $0020;
  3009.   {$EXTERNALSYM DATABITS_16X}
  3010.  
  3011.   { Settable Stop and Parity bits. }
  3012.  
  3013.   STOPBITS_10 = $0001;
  3014.   {$EXTERNALSYM STOPBITS_10}
  3015.   STOPBITS_15 = $0002;
  3016.   {$EXTERNALSYM STOPBITS_15}
  3017.   STOPBITS_20 = $0004;
  3018.   {$EXTERNALSYM STOPBITS_20}
  3019.   PARITY_NONE = $0100;
  3020.   {$EXTERNALSYM PARITY_NONE}
  3021.   PARITY_ODD = $0200;
  3022.   {$EXTERNALSYM PARITY_ODD}
  3023.   PARITY_EVEN = $0400;
  3024.   {$EXTERNALSYM PARITY_EVEN}
  3025.   PARITY_MARK = $0800;
  3026.   {$EXTERNALSYM PARITY_MARK}
  3027.   PARITY_SPACE = $1000;
  3028.   {$EXTERNALSYM PARITY_SPACE}
  3029.  
  3030. type
  3031.   PCommProp = ^TCommProp;
  3032.   _COMMPROP = record
  3033.     wPacketLength: Word;
  3034.     wPacketVersion: Word;
  3035.     dwServiceMask: DWORD;
  3036.     dwReserved1: DWORD;
  3037.     dwMaxTxQueue: DWORD;
  3038.     dwMaxRxQueue: DWORD;
  3039.     dwMaxBaud: DWORD;
  3040.     dwProvSubType: DWORD;
  3041.     dwProvCapabilities: DWORD;
  3042.     dwSettableParams: DWORD;
  3043.     dwSettableBaud: DWORD;
  3044.     wSettableData: Word;
  3045.     wSettableStopParity: Word;
  3046.     dwCurrentTxQueue: DWORD;
  3047.     dwCurrentRxQueue: DWORD;
  3048.     dwProvSpec1: DWORD;
  3049.     dwProvSpec2: DWORD;
  3050.     wcProvChar: array[0..0] of WCHAR;
  3051.   end;
  3052.   TCommProp = _COMMPROP;
  3053.   {$EXTERNALSYM _COMMPROP}
  3054.   COMMPROP = _COMMPROP;
  3055.   {$EXTERNALSYM COMMPROP}
  3056.  
  3057.   { Set dwProvSpec1 to COMMPROP_INITIALIZED to indicate that wPacketLength
  3058.     is valid before a call to GetCommProperties(). }
  3059. const
  3060.   COMMPROP_INITIALIZED = DWORD($E73CF52E);
  3061.   {$EXTERNALSYM COMMPROP_INITIALIZED}
  3062.  
  3063. type
  3064.   TComStateFlag = (fCtlHold, fDsrHold, fRlsHold, fXoffHold, fXOffSent, fEof,
  3065.     fTxim);  // not in Windows Headers
  3066.   TComStateFlags = set of TComStateFlag;
  3067.   _COMSTAT = record
  3068.     Flags: TComStateFlags;
  3069.     Reserved: array[0..2] of Byte;
  3070.     cbInQue: DWORD;
  3071.     cbOutQue: DWORD;
  3072.   end;
  3073.   {$EXTERNALSYM _COMSTAT}
  3074.   TComStat = _COMSTAT;
  3075.   COMSTAT = _COMSTAT;
  3076.   {$EXTERNALSYM COMSTAT}
  3077.   PComStat = ^TComStat;
  3078.  
  3079. const
  3080.   { DTR Control Flow Values. }
  3081.   DTR_CONTROL_DISABLE = 0;
  3082.   {$EXTERNALSYM DTR_CONTROL_DISABLE}
  3083.   DTR_CONTROL_ENABLE = 1;
  3084.   {$EXTERNALSYM DTR_CONTROL_ENABLE}
  3085.   DTR_CONTROL_HANDSHAKE = 2;
  3086.   {$EXTERNALSYM DTR_CONTROL_HANDSHAKE}
  3087.  
  3088.   { RTS Control Flow Values}
  3089.   RTS_CONTROL_DISABLE = 0;
  3090.   {$EXTERNALSYM RTS_CONTROL_DISABLE}
  3091.   RTS_CONTROL_ENABLE = 1;
  3092.   {$EXTERNALSYM RTS_CONTROL_ENABLE}
  3093.   RTS_CONTROL_HANDSHAKE = 2;
  3094.   {$EXTERNALSYM RTS_CONTROL_HANDSHAKE}
  3095.   RTS_CONTROL_TOGGLE = 3;
  3096.   {$EXTERNALSYM RTS_CONTROL_TOGGLE}
  3097.  
  3098. type
  3099.   _DCB = packed record
  3100.     DCBlength: DWORD;
  3101.     BaudRate: DWORD;
  3102.     Flags: Longint;
  3103.     wReserved: Word;
  3104.     XonLim: Word;
  3105.     XoffLim: Word;
  3106.     ByteSize: Byte;
  3107.     Parity: Byte;
  3108.     StopBits: Byte;
  3109.     XonChar: CHAR;
  3110.     XoffChar: CHAR;
  3111.     ErrorChar: CHAR;
  3112.     EofChar: CHAR;
  3113.     EvtChar: CHAR;
  3114.     wReserved1: Word;
  3115.   end;
  3116.   {$EXTERNALSYM _DCB}
  3117.   TDCB = _DCB;
  3118.   DCB = _DCB;
  3119.   {$EXTERNALSYM DCB}
  3120.   PDCB = ^TDCB;
  3121.  
  3122.   PCommTimeouts = ^TCommTimeouts;
  3123.   _COMMTIMEOUTS = record
  3124.     ReadIntervalTimeout: DWORD;
  3125.     ReadTotalTimeoutMultiplier: DWORD;
  3126.     ReadTotalTimeoutConstant: DWORD;
  3127.     WriteTotalTimeoutMultiplier: DWORD;
  3128.     WriteTotalTimeoutConstant: DWORD;
  3129.   end;
  3130.   {$EXTERNALSYM _COMMTIMEOUTS}
  3131.   TCommTimeouts = _COMMTIMEOUTS;
  3132.   COMMTIMEOUTS = _COMMTIMEOUTS;
  3133.   {$EXTERNALSYM COMMTIMEOUTS}
  3134.  
  3135.   PCommConfig = ^TCommConfig;
  3136.   _COMMCONFIG = record
  3137.     dwSize: DWORD;
  3138.     wVersion: Word;
  3139.     wReserved: Word;
  3140.     dcb: TDCB;
  3141.     dwProviderSubType: DWORD;
  3142.     dwProviderOffset: DWORD;
  3143.     dwProviderSize: DWORD;
  3144.     wcProviderData: array[0..0] of WCHAR;
  3145.   end;
  3146.   {$EXTERNALSYM _COMMCONFIG}
  3147.   TCommConfig = _COMMCONFIG;
  3148.   COMMCONFIG = _COMMCONFIG;
  3149.   {$EXTERNALSYM COMMCONFIG}
  3150.  
  3151.   PSystemInfo = ^TSystemInfo;
  3152.   _SYSTEM_INFO = record
  3153.     case Integer of
  3154.       0: (
  3155.         dwOemId: DWORD);
  3156.       1: (
  3157.         wProcessorArchitecture: Word;
  3158.         wReserved: Word;
  3159.         dwPageSize: DWORD;
  3160.         lpMinimumApplicationAddress: Pointer;
  3161.         lpMaximumApplicationAddress: Pointer;
  3162.         dwActiveProcessorMask: DWORD;
  3163.         dwNumberOfProcessors: DWORD;
  3164.         dwProcessorType: DWORD;
  3165.         dwAllocationGranularity: DWORD;
  3166.         wProcessorLevel: Word;
  3167.         wProcessorRevision: Word);
  3168.   end;
  3169.   {$EXTERNALSYM _SYSTEM_INFO}
  3170.   TSystemInfo = _SYSTEM_INFO;
  3171.   SYSTEM_INFO = _SYSTEM_INFO;
  3172.   {$EXTERNALSYM SYSTEM_INFO}
  3173.  
  3174. function FreeModule(var hLibModule: HINST): BOOL;
  3175. {$EXTERNALSYM FreeModule}
  3176. function MakeProcInstance(Proc: FARPROC; Instance: THandle): FARPROC;
  3177. {$EXTERNALSYM MakeProcInstance}
  3178. procedure FreeProcInstance(Proc: FARPROC);
  3179. {$EXTERNALSYM FreeProcInstance}
  3180.  
  3181.  
  3182. const
  3183.   { Global Memory Flags }
  3184.  
  3185.   GMEM_FIXED = 0;
  3186.   {$EXTERNALSYM GMEM_FIXED}
  3187.   GMEM_MOVEABLE = 2;
  3188.   {$EXTERNALSYM GMEM_MOVEABLE}
  3189.   GMEM_NOCOMPACT = $10;
  3190.   {$EXTERNALSYM GMEM_NOCOMPACT}
  3191.   GMEM_NODISCARD = $20;
  3192.   {$EXTERNALSYM GMEM_NODISCARD}
  3193.   GMEM_ZEROINIT = $40;
  3194.   {$EXTERNALSYM GMEM_ZEROINIT}
  3195.   GMEM_MODIFY = $80;
  3196.   {$EXTERNALSYM GMEM_MODIFY}
  3197.   GMEM_DISCARDABLE = $100;
  3198.   {$EXTERNALSYM GMEM_DISCARDABLE}
  3199.   GMEM_NOT_BANKED = $1000;
  3200.   {$EXTERNALSYM GMEM_NOT_BANKED}
  3201.   GMEM_SHARE = $2000;
  3202.   {$EXTERNALSYM GMEM_SHARE}
  3203.   GMEM_DDESHARE = $2000;
  3204.   {$EXTERNALSYM GMEM_DDESHARE}
  3205.   GMEM_NOTIFY = $4000;
  3206.   {$EXTERNALSYM GMEM_NOTIFY}
  3207.   GMEM_LOWER = GMEM_NOT_BANKED;
  3208.   {$EXTERNALSYM GMEM_LOWER}
  3209.   GMEM_VALID_FLAGS = 32626;
  3210.   {$EXTERNALSYM GMEM_VALID_FLAGS}
  3211.   GMEM_INVALID_HANDLE = $8000;
  3212.   {$EXTERNALSYM GMEM_INVALID_HANDLE}
  3213.  
  3214.   GHND = GMEM_MOVEABLE or GMEM_ZEROINIT;
  3215.   {$EXTERNALSYM GHND}
  3216.   GPTR = GMEM_FIXED or GMEM_ZEROINIT;
  3217.   {$EXTERNALSYM GPTR}
  3218.  
  3219. function GlobalLRUNewest(h: THandle): THandle;
  3220. {$EXTERNALSYM GlobalLRUNewest}
  3221. function GlobalLRUOldest(h: THandle): THandle;
  3222. {$EXTERNALSYM GlobalLRUOldest}
  3223. function GlobalDiscard(h: THandle): THandle;
  3224. {$EXTERNALSYM GlobalDiscard}
  3225.  
  3226. function GlobalAllocPtr(Flags: Integer; Bytes: Longint): Pointer;
  3227. {$EXTERNALSYM GlobalAllocPtr}
  3228. function GlobalReAllocPtr(P: Pointer; Bytes: Longint; Flags: Integer): Pointer;
  3229. {$EXTERNALSYM GlobalReAllocPtr}
  3230. function GlobalFreePtr(P: Pointer): THandle;
  3231. {$EXTERNALSYM GlobalFreePtr}
  3232.  
  3233. const
  3234.   { Flags returned by GlobalFlags (in addition to GMEM_DISCARDABLE) }
  3235.   GMEM_DISCARDED = $4000;
  3236.   {$EXTERNALSYM GMEM_DISCARDED}
  3237.   GMEM_LOCKCOUNT = 255;
  3238.   {$EXTERNALSYM GMEM_LOCKCOUNT}
  3239.  
  3240. type
  3241.   PMemoryStatus = ^TMemoryStatus;
  3242.   _MEMORYSTATUS = record
  3243.     dwLength: DWORD;
  3244.     dwMemoryLoad: DWORD;
  3245.     dwTotalPhys: DWORD;
  3246.     dwAvailPhys: DWORD;
  3247.     dwTotalPageFile: DWORD;
  3248.     dwAvailPageFile: DWORD;
  3249.     dwTotalVirtual: DWORD;
  3250.     dwAvailVirtual: DWORD;
  3251.   end;
  3252.   {$EXTERNALSYM _MEMORYSTATUS}
  3253.   TMemoryStatus = _MEMORYSTATUS;
  3254.   MEMORYSTATUS = _MEMORYSTATUS;
  3255.   {$EXTERNALSYM MEMORYSTATUS}
  3256.  
  3257. const
  3258.   { Local Memory Flags }
  3259.  
  3260.   LMEM_FIXED = 0;
  3261.   {$EXTERNALSYM LMEM_FIXED}
  3262.   LMEM_MOVEABLE = 2;
  3263.   {$EXTERNALSYM LMEM_MOVEABLE}
  3264.   LMEM_NOCOMPACT = $10;
  3265.   {$EXTERNALSYM LMEM_NOCOMPACT}
  3266.   LMEM_NODISCARD = $20;
  3267.   {$EXTERNALSYM LMEM_NODISCARD}
  3268.   LMEM_ZEROINIT = $40;
  3269.   {$EXTERNALSYM LMEM_ZEROINIT}
  3270.   LMEM_MODIFY = $80;
  3271.   {$EXTERNALSYM LMEM_MODIFY}
  3272.   LMEM_DISCARDABLE = $F00;
  3273.   {$EXTERNALSYM LMEM_DISCARDABLE}
  3274.   LMEM_VALID_FLAGS = $F72;
  3275.   {$EXTERNALSYM LMEM_VALID_FLAGS}
  3276.   LMEM_INVALID_HANDLE = $8000;
  3277.   {$EXTERNALSYM LMEM_INVALID_HANDLE}
  3278.  
  3279.   LHND = LMEM_MOVEABLE or LMEM_ZEROINIT;
  3280.   {$EXTERNALSYM LHND}
  3281.   LPTR = LMEM_FIXED or LMEM_ZEROINIT;
  3282.   {$EXTERNALSYM LPTR}
  3283.  
  3284.   NONZEROLPTR = LMEM_FIXED;
  3285.   {$EXTERNALSYM NONZEROLPTR}
  3286.  
  3287.  
  3288. function LocalDiscard(h: THandle): THandle;
  3289. {$EXTERNALSYM LocalDiscard}
  3290.  
  3291. const
  3292.   { Flags returned by LocalFlags (in addition to LMEM_DISCARDABLE) }
  3293.  
  3294.   LMEM_DISCARDED = $4000;
  3295.   {$EXTERNALSYM LMEM_DISCARDED}
  3296.   LMEM_LOCKCOUNT = 255;
  3297.   {$EXTERNALSYM LMEM_LOCKCOUNT}
  3298.  
  3299.   { dwCreationFlag values }
  3300.  
  3301. { dwCreationFlag values }
  3302.  
  3303.  
  3304.   DEBUG_PROCESS                   = $00000001;
  3305.   {$EXTERNALSYM DEBUG_PROCESS}
  3306.   DEBUG_ONLY_THIS_PROCESS         = $00000002;
  3307.   {$EXTERNALSYM DEBUG_ONLY_THIS_PROCESS}
  3308.  
  3309.   CREATE_SUSPENDED                = $00000004;
  3310.   {$EXTERNALSYM CREATE_SUSPENDED}
  3311.  
  3312.   DETACHED_PROCESS                = $00000008;
  3313.   {$EXTERNALSYM DETACHED_PROCESS}
  3314.  
  3315.   CREATE_NEW_CONSOLE              = $00000010;
  3316.   {$EXTERNALSYM CREATE_NEW_CONSOLE}
  3317.  
  3318.   NORMAL_PRIORITY_CLASS           = $00000020;
  3319.   {$EXTERNALSYM NORMAL_PRIORITY_CLASS}
  3320.   IDLE_PRIORITY_CLASS             = $00000040;
  3321.   {$EXTERNALSYM IDLE_PRIORITY_CLASS}
  3322.   HIGH_PRIORITY_CLASS             = $00000080;
  3323.   {$EXTERNALSYM HIGH_PRIORITY_CLASS}
  3324.   REALTIME_PRIORITY_CLASS         = $00000100;
  3325.   {$EXTERNALSYM REALTIME_PRIORITY_CLASS}
  3326.  
  3327.   CREATE_NEW_PROCESS_GROUP        = $00000200;
  3328.   {$EXTERNALSYM CREATE_NEW_PROCESS_GROUP}
  3329.   CREATE_UNICODE_ENVIRONMENT      = $00000400;
  3330.   {$EXTERNALSYM CREATE_UNICODE_ENVIRONMENT}
  3331.  
  3332.   CREATE_SEPARATE_WOW_VDM         = $00000800;
  3333.   {$EXTERNALSYM CREATE_SEPARATE_WOW_VDM}
  3334.   CREATE_SHARED_WOW_VDM           = $00001000;
  3335.   {$EXTERNALSYM CREATE_SHARED_WOW_VDM}
  3336.   CREATE_FORCEDOS                 = $00002000;
  3337.   {$EXTERNALSYM CREATE_FORCEDOS}
  3338.  
  3339.   CREATE_DEFAULT_ERROR_MODE       = $04000000;
  3340.   {$EXTERNALSYM CREATE_DEFAULT_ERROR_MODE}
  3341.   CREATE_NO_WINDOW                = $08000000;
  3342.   {$EXTERNALSYM CREATE_NO_WINDOW}
  3343.  
  3344.   PROFILE_USER                    = $10000000;
  3345.   {$EXTERNALSYM PROFILE_USER}
  3346.   PROFILE_KERNEL                  = $20000000;
  3347.   {$EXTERNALSYM PROFILE_KERNEL}
  3348.   PROFILE_SERVER                  = $40000000;
  3349.   {$EXTERNALSYM PROFILE_SERVER}
  3350.  
  3351.   THREAD_PRIORITY_LOWEST              = THREAD_BASE_PRIORITY_MIN;
  3352.   {$EXTERNALSYM THREAD_PRIORITY_LOWEST}
  3353.   THREAD_PRIORITY_BELOW_NORMAL        = THREAD_PRIORITY_LOWEST + 1;
  3354.   {$EXTERNALSYM THREAD_PRIORITY_BELOW_NORMAL}
  3355.   THREAD_PRIORITY_NORMAL              = 0;
  3356.   {$EXTERNALSYM THREAD_PRIORITY_NORMAL}
  3357.   THREAD_PRIORITY_HIGHEST             = THREAD_BASE_PRIORITY_MAX;
  3358.   {$EXTERNALSYM THREAD_PRIORITY_HIGHEST}
  3359.   THREAD_PRIORITY_ABOVE_NORMAL        = THREAD_PRIORITY_HIGHEST - 1;
  3360.   {$EXTERNALSYM THREAD_PRIORITY_ABOVE_NORMAL}
  3361.   THREAD_PRIORITY_ERROR_RETURN        = MAXLONG;
  3362.   {$EXTERNALSYM THREAD_PRIORITY_ERROR_RETURN}
  3363.  
  3364.   THREAD_PRIORITY_TIME_CRITICAL       = THREAD_BASE_PRIORITY_LOWRT;
  3365.   {$EXTERNALSYM THREAD_PRIORITY_TIME_CRITICAL}
  3366.   THREAD_PRIORITY_IDLE                = THREAD_BASE_PRIORITY_IDLE;
  3367.   {$EXTERNALSYM THREAD_PRIORITY_IDLE}
  3368.  
  3369. { Debug APIs }
  3370.  
  3371.   DBG_CONTINUE               = $00010002;
  3372.   {$EXTERNALSYM DBG_CONTINUE}
  3373.   DBG_TERMINATE_THREAD       = $40010003;
  3374.   {$EXTERNALSYM DBG_TERMINATE_THREAD}
  3375.   DBG_TERMINATE_PROCESS      = $40010004;
  3376.   {$EXTERNALSYM DBG_TERMINATE_PROCESS}
  3377.   DBG_CONTROL_C              = $40010005;
  3378.   {$EXTERNALSYM DBG_CONTROL_C}
  3379.   DBG_CONTROL_BREAK          = $40010008;
  3380.   {$EXTERNALSYM DBG_CONTROL_BREAK}
  3381.   DBG_EXCEPTION_NOT_HANDLED  = $80010001;
  3382.   {$EXTERNALSYM DBG_EXCEPTION_NOT_HANDLED}
  3383.  
  3384.   EXCEPTION_DEBUG_EVENT = 1;
  3385.   {$EXTERNALSYM EXCEPTION_DEBUG_EVENT}
  3386.   CREATE_THREAD_DEBUG_EVENT = 2;
  3387.   {$EXTERNALSYM CREATE_THREAD_DEBUG_EVENT}
  3388.   CREATE_PROCESS_DEBUG_EVENT = 3;
  3389.   {$EXTERNALSYM CREATE_PROCESS_DEBUG_EVENT}
  3390.   EXIT_THREAD_DEBUG_EVENT = 4;
  3391.   {$EXTERNALSYM EXIT_THREAD_DEBUG_EVENT}
  3392.   EXIT_PROCESS_DEBUG_EVENT = 5;
  3393.   {$EXTERNALSYM EXIT_PROCESS_DEBUG_EVENT}
  3394.   LOAD_DLL_DEBUG_EVENT = 6;
  3395.   {$EXTERNALSYM LOAD_DLL_DEBUG_EVENT}
  3396.   UNLOAD_DLL_DEBUG_EVENT = 7;
  3397.   {$EXTERNALSYM UNLOAD_DLL_DEBUG_EVENT}
  3398.   OUTPUT_DEBUG_STRING_EVENT = 8;
  3399.   {$EXTERNALSYM OUTPUT_DEBUG_STRING_EVENT}
  3400.   RIP_EVENT = 9;
  3401.   {$EXTERNALSYM RIP_EVENT}
  3402.  
  3403. type
  3404.   PExceptionDebugInfo = ^TExceptionDebugInfo;
  3405.   _EXCEPTION_DEBUG_INFO = record
  3406.     ExceptionRecord: TExceptionRecord;
  3407.     dwFirstChance: DWORD;
  3408.   end;
  3409.   {$EXTERNALSYM _EXCEPTION_DEBUG_INFO}
  3410.   TExceptionDebugInfo = _EXCEPTION_DEBUG_INFO;
  3411.   EXCEPTION_DEBUG_INFO = _EXCEPTION_DEBUG_INFO;
  3412.   {$EXTERNALSYM EXCEPTION_DEBUG_INFO}
  3413.  
  3414.   PCreateThreadDebugInfo = ^TCreateThreadDebugInfo;
  3415.   _CREATE_THREAD_DEBUG_INFO = record
  3416.     hThread: THandle;
  3417.     lpThreadLocalBase: Pointer;
  3418.     lpStartAddress: TFNThreadStartRoutine;
  3419.   end;
  3420.   {$EXTERNALSYM _CREATE_THREAD_DEBUG_INFO}
  3421.   TCreateThreadDebugInfo = _CREATE_THREAD_DEBUG_INFO;
  3422.   CREATE_THREAD_DEBUG_INFO = _CREATE_THREAD_DEBUG_INFO;
  3423.   {$EXTERNALSYM CREATE_THREAD_DEBUG_INFO}
  3424.  
  3425.   PCreateProcessDebugInfo = ^TCreateProcessDebugInfo;
  3426.   _CREATE_PROCESS_DEBUG_INFO = record
  3427.     hFile: THandle;
  3428.     hProcess: THandle;
  3429.     hThread: THandle;
  3430.     lpBaseOfImage: Pointer;
  3431.     dwDebugInfoFileOffset: DWORD;
  3432.     nDebugInfoSize: DWORD;
  3433.     lpThreadLocalBase: Pointer;
  3434.     lpStartAddress: TFNThreadStartRoutine;
  3435.     lpImageName: Pointer;
  3436.     fUnicode: Word;
  3437.   end;
  3438.   {$EXTERNALSYM _CREATE_PROCESS_DEBUG_INFO}
  3439.   TCreateProcessDebugInfo = _CREATE_PROCESS_DEBUG_INFO;
  3440.   CREATE_PROCESS_DEBUG_INFO = _CREATE_PROCESS_DEBUG_INFO;
  3441.   {$EXTERNALSYM CREATE_PROCESS_DEBUG_INFO}
  3442.  
  3443.   PExitThreadDebugInfo = ^TExitThreadDebugInfo;
  3444.   _EXIT_THREAD_DEBUG_INFO = record
  3445.     dwExitCode: DWORD;
  3446.   end;
  3447.   {$EXTERNALSYM _EXIT_THREAD_DEBUG_INFO}
  3448.   TExitThreadDebugInfo = _EXIT_THREAD_DEBUG_INFO;
  3449.   EXIT_THREAD_DEBUG_INFO = _EXIT_THREAD_DEBUG_INFO;
  3450.   {$EXTERNALSYM EXIT_THREAD_DEBUG_INFO}
  3451.  
  3452.   PExitProcessDebugInfo = ^TExitProcessDebugInfo;
  3453.   _EXIT_PROCESS_DEBUG_INFO = record
  3454.     dwExitCode: DWORD;
  3455.   end;
  3456.   {$EXTERNALSYM _EXIT_PROCESS_DEBUG_INFO}
  3457.   TExitProcessDebugInfo = _EXIT_PROCESS_DEBUG_INFO;
  3458.   EXIT_PROCESS_DEBUG_INFO = _EXIT_PROCESS_DEBUG_INFO;
  3459.   {$EXTERNALSYM EXIT_PROCESS_DEBUG_INFO}
  3460.  
  3461.   PLoadDLLDebugInfo = ^TLoadDLLDebugInfo;
  3462.   _LOAD_DLL_DEBUG_INFO = record
  3463.     hFile: THandle;
  3464.     lpBaseOfDll: Pointer;
  3465.     dwDebugInfoFileOffset: DWORD;
  3466.     nDebugInfoSize: DWORD;
  3467.     lpImageName: Pointer;
  3468.     fUnicode: Word;
  3469.   end;
  3470.   {$EXTERNALSYM _LOAD_DLL_DEBUG_INFO}
  3471.   TLoadDLLDebugInfo = _LOAD_DLL_DEBUG_INFO;
  3472.   LOAD_DLL_DEBUG_INFO = _LOAD_DLL_DEBUG_INFO;
  3473.   {$EXTERNALSYM LOAD_DLL_DEBUG_INFO}
  3474.  
  3475.   PUnloadDLLDebugInfo = ^TUnloadDLLDebugInfo;
  3476.   _UNLOAD_DLL_DEBUG_INFO = record
  3477.     lpBaseOfDll: Pointer;
  3478.   end;
  3479.   {$EXTERNALSYM _UNLOAD_DLL_DEBUG_INFO}
  3480.   TUnloadDLLDebugInfo = _UNLOAD_DLL_DEBUG_INFO;
  3481.   UNLOAD_DLL_DEBUG_INFO = _UNLOAD_DLL_DEBUG_INFO;
  3482.   {$EXTERNALSYM UNLOAD_DLL_DEBUG_INFO}
  3483.  
  3484.   POutputDebugStringInfo = ^TOutputDebugStringInfo;
  3485.   _OUTPUT_DEBUG_STRING_INFO = record
  3486.     lpDebugStringData: LPSTR;
  3487.     fUnicode: Word;
  3488.     nDebugStringLength: Word;
  3489.   end;
  3490.   {$EXTERNALSYM _OUTPUT_DEBUG_STRING_INFO}
  3491.   TOutputDebugStringInfo = _OUTPUT_DEBUG_STRING_INFO;
  3492.   OUTPUT_DEBUG_STRING_INFO = _OUTPUT_DEBUG_STRING_INFO;
  3493.   {$EXTERNALSYM OUTPUT_DEBUG_STRING_INFO}
  3494.  
  3495.   PRIPInfo = ^TRIPInfo;
  3496.   _RIP_INFO = record
  3497.     dwError: DWORD;
  3498.     dwType: DWORD;
  3499.   end;
  3500.   {$EXTERNALSYM _RIP_INFO}
  3501.   TRIPInfo = _RIP_INFO;
  3502.   RIP_INFO = _RIP_INFO;
  3503.   {$EXTERNALSYM RIP_INFO}
  3504.  
  3505.   PDebugEvent = ^TDebugEvent;
  3506.   _DEBUG_EVENT = record
  3507.     dwDebugEventCode: DWORD;
  3508.     dwProcessId: DWORD;
  3509.     dwThreadId: DWORD;
  3510.     case Integer of
  3511.       0: (Exception: TExceptionDebugInfo);
  3512.       1: (CreateThread: TCreateThreadDebugInfo);
  3513.       2: (CreateProcessInfo: TCreateProcessDebugInfo);
  3514.       3: (ExitThread: TExitThreadDebugInfo);
  3515.       4: (ExitProcess: TExitThreadDebugInfo);
  3516.       5: (LoadDll: TLoadDLLDebugInfo);
  3517.       6: (UnloadDll: TUnloadDLLDebugInfo);
  3518.       7: (DebugString: TOutputDebugStringInfo);
  3519.       8: (RipInfo: TRIPInfo);
  3520.   end;
  3521.   {$EXTERNALSYM _DEBUG_EVENT}
  3522.   TDebugEvent = _DEBUG_EVENT;
  3523.   DEBUG_EVENT = _DEBUG_EVENT;
  3524.   {$EXTERNALSYM DEBUG_EVENT}
  3525.  
  3526. const
  3527.   DRIVE_UNKNOWN = 0;
  3528.   {$EXTERNALSYM DRIVE_UNKNOWN}
  3529.   DRIVE_NO_ROOT_DIR = 1;
  3530.   {$EXTERNALSYM DRIVE_NO_ROOT_DIR}
  3531.   DRIVE_REMOVABLE = 2;
  3532.   {$EXTERNALSYM DRIVE_REMOVABLE}
  3533.   DRIVE_FIXED = 3;
  3534.   {$EXTERNALSYM DRIVE_FIXED}
  3535.   DRIVE_REMOTE = 4;
  3536.   {$EXTERNALSYM DRIVE_REMOTE}
  3537.   DRIVE_CDROM = 5;
  3538.   {$EXTERNALSYM DRIVE_CDROM}
  3539.   DRIVE_RAMDISK = 6;
  3540.   {$EXTERNALSYM DRIVE_RAMDISK}
  3541.  
  3542. {$EXTERNALSYM GetFreeSpace}
  3543. function GetFreeSpace(w: Word): DWORD;
  3544.  
  3545. const
  3546.   FILE_TYPE_UNKNOWN = 0;
  3547.   {$EXTERNALSYM FILE_TYPE_UNKNOWN}
  3548.   FILE_TYPE_DISK = 1;
  3549.   {$EXTERNALSYM FILE_TYPE_DISK}
  3550.   FILE_TYPE_CHAR = 2;
  3551.   {$EXTERNALSYM FILE_TYPE_CHAR}
  3552.   FILE_TYPE_PIPE = 3;
  3553.   {$EXTERNALSYM FILE_TYPE_PIPE}
  3554.   FILE_TYPE_REMOTE = $8000;
  3555.   {$EXTERNALSYM FILE_TYPE_REMOTE}
  3556.  
  3557.   STD_INPUT_HANDLE = DWORD(-10);
  3558.   {$EXTERNALSYM STD_INPUT_HANDLE}
  3559.   STD_OUTPUT_HANDLE = DWORD(-11);
  3560.   {$EXTERNALSYM STD_OUTPUT_HANDLE}
  3561.   STD_ERROR_HANDLE = DWORD(-12);
  3562.   {$EXTERNALSYM STD_ERROR_HANDLE}
  3563.  
  3564.   NOPARITY = 0;
  3565.   {$EXTERNALSYM NOPARITY}
  3566.   ODDPARITY = 1;
  3567.   {$EXTERNALSYM ODDPARITY}
  3568.   EVENPARITY = 2;
  3569.   {$EXTERNALSYM EVENPARITY}
  3570.   MARKPARITY = 3;
  3571.   {$EXTERNALSYM MARKPARITY}
  3572.   SPACEPARITY = 4;
  3573.   {$EXTERNALSYM SPACEPARITY}
  3574.  
  3575.   ONESTOPBIT = 0;
  3576.   {$EXTERNALSYM ONESTOPBIT}
  3577.   ONE5STOPBITS = 1;
  3578.   {$EXTERNALSYM ONE5STOPBITS}
  3579.   TWOSTOPBITS = 2;
  3580.   {$EXTERNALSYM TWOSTOPBITS}
  3581.  
  3582.   IGNORE = 0;               { Ignore signal }
  3583.   {$EXTERNALSYM IGNORE}
  3584.   INFINITE = DWORD($FFFFFFFF);     { Infinite timeout }
  3585.   {$EXTERNALSYM INFINITE}
  3586.  
  3587.   { Baud rates at which the communication device operates }
  3588.  
  3589.   CBR_110 = 110;
  3590.   {$EXTERNALSYM CBR_110}
  3591.   CBR_300 = 300;
  3592.   {$EXTERNALSYM CBR_300}
  3593.   CBR_600 = 600;
  3594.   {$EXTERNALSYM CBR_600}
  3595.   CBR_1200 = 1200;
  3596.   {$EXTERNALSYM CBR_1200}
  3597.   CBR_2400 = 2400;
  3598.   {$EXTERNALSYM CBR_2400}
  3599.   CBR_4800 = 4800;
  3600.   {$EXTERNALSYM CBR_4800}
  3601.   CBR_9600 = 9600;
  3602.   {$EXTERNALSYM CBR_9600}
  3603.   CBR_14400 = 14400;
  3604.   {$EXTERNALSYM CBR_14400}
  3605.   CBR_19200 = 19200;
  3606.   {$EXTERNALSYM CBR_19200}
  3607.   CBR_38400 = 38400;
  3608.   {$EXTERNALSYM CBR_38400}
  3609.   CBR_56000 = 56000;
  3610.   {$EXTERNALSYM CBR_56000}
  3611.   CBR_57600 = 57600;
  3612.   {$EXTERNALSYM CBR_57600}
  3613.   CBR_115200 = $1C200;
  3614.   {$EXTERNALSYM CBR_115200}
  3615.   CBR_128000 = $1F400;
  3616.   {$EXTERNALSYM CBR_128000}
  3617.   CBR_256000 = $3E800;
  3618.   {$EXTERNALSYM CBR_256000}
  3619.  
  3620.   { Error Flags }
  3621.  
  3622.   CE_RXOVER = 1;        { Receive Queue overflow }
  3623.   {$EXTERNALSYM CE_RXOVER}
  3624.   CE_OVERRUN = 2;       { Receive Overrun Error }
  3625.   {$EXTERNALSYM CE_OVERRUN}
  3626.   CE_RXPARITY = 4;      { Receive Parity Error }
  3627.   {$EXTERNALSYM CE_RXPARITY}
  3628.   CE_FRAME = 8;         { Receive Framing error }
  3629.   {$EXTERNALSYM CE_FRAME}
  3630.   CE_BREAK = $10;       { Break Detected }
  3631.   {$EXTERNALSYM CE_BREAK}
  3632.   CE_TXFULL = $100;     { TX Queue is full }
  3633.   {$EXTERNALSYM CE_TXFULL}
  3634.   CE_PTO = $200;        { LPTx Timeout }
  3635.   {$EXTERNALSYM CE_PTO}
  3636.   CE_IOE = $400;        { LPTx I/O Error }
  3637.   {$EXTERNALSYM CE_IOE}
  3638.   CE_DNS = $800;        { LPTx Device not selected }
  3639.   {$EXTERNALSYM CE_DNS}
  3640.   CE_OOP = $1000;       { LPTx Out-Of-Paper }
  3641.   {$EXTERNALSYM CE_OOP}
  3642.   CE_MODE = $8000;      { Requested mode unsupported }
  3643.   {$EXTERNALSYM CE_MODE}
  3644.  
  3645.   IE_BADID = LongWord(-1);        { Invalid or unsupported id }
  3646.   {$EXTERNALSYM IE_BADID}
  3647.   IE_OPEN = LongWord(-2);         { Device Already Open }
  3648.   {$EXTERNALSYM IE_OPEN}
  3649.   IE_NOPEN = LongWord(-3);        { Device Not Open }
  3650.   {$EXTERNALSYM IE_NOPEN}
  3651.   IE_MEMORY = LongWord(-4);       { Unable to allocate queues }
  3652.   {$EXTERNALSYM IE_MEMORY}
  3653.   IE_DEFAULT = LongWord(-5);      { Error in default parameters }
  3654.   {$EXTERNALSYM IE_DEFAULT}
  3655.   IE_HARDWARE = LongWord(-10);    { Hardware Not Present }
  3656.   {$EXTERNALSYM IE_HARDWARE}
  3657.   IE_BYTESIZE = LongWord(-11);    { Illegal Byte Size }
  3658.   {$EXTERNALSYM IE_BYTESIZE}
  3659.   IE_BAUDRATE = LongWord(-12);    { Unsupported BaudRate }
  3660.   {$EXTERNALSYM IE_BAUDRATE}
  3661.  
  3662.   { Events }
  3663.  
  3664.   EV_RXCHAR = 1;        { Any Character received }
  3665.   {$EXTERNALSYM EV_RXCHAR}
  3666.   EV_RXFLAG = 2;        { Received certain character }
  3667.   {$EXTERNALSYM EV_RXFLAG}
  3668.   EV_TXEMPTY = 4;       { Transmitt Queue Empty }
  3669.   {$EXTERNALSYM EV_TXEMPTY}
  3670.   EV_CTS = 8;           { CTS changed state }
  3671.   {$EXTERNALSYM EV_CTS}
  3672.   EV_DSR = $10;         { DSR changed state }
  3673.   {$EXTERNALSYM EV_DSR}
  3674.   EV_RLSD = $20;        { RLSD changed state }
  3675.   {$EXTERNALSYM EV_RLSD}
  3676.   EV_BREAK = $40;       { BREAK received }
  3677.   {$EXTERNALSYM EV_BREAK}
  3678.   EV_ERR = $80;         { Line status error occurred }
  3679.   {$EXTERNALSYM EV_ERR}
  3680.   EV_RING = $100;       { Ring signal detected }
  3681.   {$EXTERNALSYM EV_RING}
  3682.   EV_PERR = $200;       { Printer error occured }
  3683.   {$EXTERNALSYM EV_PERR}
  3684.   EV_RX80FULL = $400;   { Receive buffer is 80 percent full }
  3685.   {$EXTERNALSYM EV_RX80FULL}
  3686.   EV_EVENT1 = $800;     { Provider specific event 1 }
  3687.   {$EXTERNALSYM EV_EVENT1}
  3688.   EV_EVENT2 = $1000;    { Provider specific event 2 }
  3689.   {$EXTERNALSYM EV_EVENT2}
  3690.  
  3691.   { Escape functions }
  3692.  
  3693.   SETXOFF = 1;    { Simulate XOFF received }
  3694.   {$EXTERNALSYM SETXOFF}
  3695.   SETXON = 2;     { Simulate XON received }
  3696.   {$EXTERNALSYM SETXON}
  3697.   SETRTS = 3;     { Set RTS high }
  3698.   {$EXTERNALSYM SETRTS}
  3699.   CLRRTS = 4;     { Set RTS low }
  3700.   {$EXTERNALSYM CLRRTS}
  3701.   SETDTR = 5;     { Set DTR high }
  3702.   {$EXTERNALSYM SETDTR}
  3703.   CLRDTR = 6;     { Set DTR low }
  3704.   {$EXTERNALSYM CLRDTR}
  3705.   RESETDEV = 7;   { Reset device if possible }
  3706.   {$EXTERNALSYM RESETDEV}
  3707.   SETBREAK = 8;   { Set the device break line. }
  3708.   {$EXTERNALSYM SETBREAK}
  3709.   CLRBREAK = 9;   { Clear the device break line. }
  3710.   {$EXTERNALSYM CLRBREAK}
  3711.  
  3712.   { PURGE function flags. }
  3713.  
  3714.   PURGE_TXABORT = 1;     { Kill the pending/current writes to the comm port. }
  3715.   {$EXTERNALSYM PURGE_TXABORT}
  3716.   PURGE_RXABORT = 2;     { Kill the pending/current reads to the comm port. }
  3717.   {$EXTERNALSYM PURGE_RXABORT}
  3718.   PURGE_TXCLEAR = 4;     { Kill the transmit queue if there. }
  3719.   {$EXTERNALSYM PURGE_TXCLEAR}
  3720.   PURGE_RXCLEAR = 8;     { Kill the typeahead buffer if there. }
  3721.   {$EXTERNALSYM PURGE_RXCLEAR}
  3722.  
  3723.   LPTx = $80;     { Set if ID is for LPT device }
  3724.   {$EXTERNALSYM LPTx}
  3725.  
  3726.   { Modem Status Flags }
  3727.  
  3728.   MS_CTS_ON = DWORD($0010);
  3729.   {$EXTERNALSYM MS_CTS_ON}
  3730.   MS_DSR_ON = DWORD($0020);
  3731.   {$EXTERNALSYM MS_DSR_ON}
  3732.   MS_RING_ON = DWORD($0040);
  3733.   {$EXTERNALSYM MS_RING_ON}
  3734.   MS_RLSD_ON = DWORD($0080);
  3735.   {$EXTERNALSYM MS_RLSD_ON}
  3736.  
  3737.   { WaitSoundState() Constants }
  3738.  
  3739.   S_QUEUEEMPTY = 0;
  3740.   {$EXTERNALSYM S_QUEUEEMPTY}
  3741.   S_THRESHOLD = 1;
  3742.   {$EXTERNALSYM S_THRESHOLD}
  3743.   S_ALLTHRESHOLD = 2;
  3744.   {$EXTERNALSYM S_ALLTHRESHOLD}
  3745.  
  3746.   { Accent Modes }
  3747.  
  3748.   S_NORMAL = 0;
  3749.   {$EXTERNALSYM S_NORMAL}
  3750.   S_LEGATO = 1;
  3751.   {$EXTERNALSYM S_LEGATO}
  3752.   S_STACCATO = 2;
  3753.   {$EXTERNALSYM S_STACCATO}
  3754.  
  3755.   { SetSoundNoise() Sources }
  3756.  
  3757.   S_PERIOD512 = 0;     { Freq = N/512 high pitch, less coarse hiss }
  3758.   {$EXTERNALSYM S_PERIOD512}
  3759.   S_PERIOD1024 = 1;    { Freq = N/1024 }
  3760.   {$EXTERNALSYM S_PERIOD1024}
  3761.   S_PERIOD2048 = 2;    { Freq = N/2048 low pitch, more coarse hiss }
  3762.   {$EXTERNALSYM S_PERIOD2048}
  3763.   S_PERIODVOICE = 3;   { Source is frequency from voice channel (3) }
  3764.   {$EXTERNALSYM S_PERIODVOICE}
  3765.   S_WHITE512 = 4;      { Freq = N/512 high pitch, less coarse hiss }
  3766.   {$EXTERNALSYM S_WHITE512}
  3767.   S_WHITE1024 = 5;     { Freq = N/1024 }
  3768.   {$EXTERNALSYM S_WHITE1024}
  3769.   S_WHITE2048 = 6;     { Freq = N/2048 low pitch, more coarse hiss }
  3770.   {$EXTERNALSYM S_WHITE2048}
  3771.   S_WHITEVOICE = 7;    { Source is frequency from voice channel (3) }
  3772.   {$EXTERNALSYM S_WHITEVOICE}
  3773.  
  3774.   S_SERDVNA = LongWord(-1);     { Device not available  }
  3775.   {$EXTERNALSYM S_SERDVNA}
  3776.   S_SEROFM = LongWord(-2);      { Out of memory }
  3777.   {$EXTERNALSYM S_SEROFM}
  3778.   S_SERMACT = LongWord(-3);     { Music active }
  3779.   {$EXTERNALSYM S_SERMACT}
  3780.   S_SERQFUL = LongWord(-4);     { Queue full }
  3781.   {$EXTERNALSYM S_SERQFUL}
  3782.   S_SERBDNT = LongWord(-5);     { Invalid note }
  3783.   {$EXTERNALSYM S_SERBDNT}
  3784.   S_SERDLN = LongWord(-6);      { Invalid note length }
  3785.   {$EXTERNALSYM S_SERDLN}
  3786.   S_SERDCC = LongWord(-7);      { Invalid note count }
  3787.   {$EXTERNALSYM S_SERDCC}
  3788.   S_SERDTP = LongWord(-8);      { Invalid tempo }
  3789.   {$EXTERNALSYM S_SERDTP}
  3790.   S_SERDVL = LongWord(-9);      { Invalid volume }
  3791.   {$EXTERNALSYM S_SERDVL}
  3792.   S_SERDMD = LongWord(-10);     { Invalid mode }
  3793.   {$EXTERNALSYM S_SERDMD}
  3794.   S_SERDSH = LongWord(-11);     { Invalid shape }
  3795.   {$EXTERNALSYM S_SERDSH}
  3796.   S_SERDPT = LongWord(-12);     { Invalid pitch }
  3797.   {$EXTERNALSYM S_SERDPT}
  3798.   S_SERDFQ = LongWord(-13);     { Invalid frequency }
  3799.   {$EXTERNALSYM S_SERDFQ}
  3800.   S_SERDDR = LongWord(-14);     { Invalid duration }
  3801.   {$EXTERNALSYM S_SERDDR}
  3802.   S_SERDSR = LongWord(-15);     { Invalid source }
  3803.   {$EXTERNALSYM S_SERDSR}
  3804.   S_SERDST = LongWord(-16);     { Invalid state }
  3805.   {$EXTERNALSYM S_SERDST}
  3806.  
  3807.   NMPWAIT_WAIT_FOREVER = DWORD($FFFFFFFF);
  3808.   {$EXTERNALSYM NMPWAIT_WAIT_FOREVER}
  3809.   NMPWAIT_NOWAIT = 1;
  3810.   {$EXTERNALSYM NMPWAIT_NOWAIT}
  3811.   NMPWAIT_USE_DEFAULT_WAIT = 0;
  3812.   {$EXTERNALSYM NMPWAIT_USE_DEFAULT_WAIT}
  3813.  
  3814.   FS_CASE_IS_PRESERVED = FILE_CASE_PRESERVED_NAMES;
  3815.   {$EXTERNALSYM FS_CASE_IS_PRESERVED}
  3816.   FS_CASE_SENSITIVE = FILE_CASE_SENSITIVE_SEARCH;
  3817.   {$EXTERNALSYM FS_CASE_SENSITIVE}
  3818.   FS_UNICODE_STORED_ON_DISK = FILE_UNICODE_ON_DISK;
  3819.   {$EXTERNALSYM FS_UNICODE_STORED_ON_DISK}
  3820.   FS_PERSISTENT_ACLS = FILE_PERSISTENT_ACLS;
  3821.   {$EXTERNALSYM FS_PERSISTENT_ACLS}
  3822.   FS_VOL_IS_COMPRESSED = FILE_VOLUME_IS_COMPRESSED;
  3823.   {$EXTERNALSYM FS_VOL_IS_COMPRESSED}
  3824.   FS_FILE_COMPRESSION = FILE_FILE_COMPRESSION;
  3825.   {$EXTERNALSYM FS_FILE_COMPRESSION}
  3826.  
  3827.   FILE_MAP_COPY = SECTION_QUERY;
  3828.   {$EXTERNALSYM FILE_MAP_COPY}
  3829.   FILE_MAP_WRITE = SECTION_MAP_WRITE;
  3830.   {$EXTERNALSYM FILE_MAP_WRITE}
  3831.   FILE_MAP_READ = SECTION_MAP_READ;
  3832.   {$EXTERNALSYM FILE_MAP_READ}
  3833.   FILE_MAP_ALL_ACCESS = SECTION_ALL_ACCESS;
  3834.   {$EXTERNALSYM FILE_MAP_ALL_ACCESS}
  3835.  
  3836.   OF_READ = 0;
  3837.   {$EXTERNALSYM OF_READ}
  3838.   OF_WRITE = 1;
  3839.   {$EXTERNALSYM OF_WRITE}
  3840.   OF_READWRITE = 2;
  3841.   {$EXTERNALSYM OF_READWRITE}
  3842.   OF_SHARE_COMPAT = 0;
  3843.   {$EXTERNALSYM OF_SHARE_COMPAT}
  3844.   OF_SHARE_EXCLUSIVE = $10;
  3845.   {$EXTERNALSYM OF_SHARE_EXCLUSIVE}
  3846.   OF_SHARE_DENY_WRITE = $20;
  3847.   {$EXTERNALSYM OF_SHARE_DENY_WRITE}
  3848.   OF_SHARE_DENY_READ = 48;
  3849.   {$EXTERNALSYM OF_SHARE_DENY_READ}
  3850.   OF_SHARE_DENY_NONE = $40;
  3851.   {$EXTERNALSYM OF_SHARE_DENY_NONE}
  3852.   OF_PARSE = $100;
  3853.   {$EXTERNALSYM OF_PARSE}
  3854.   OF_DELETE = $200;
  3855.   {$EXTERNALSYM OF_DELETE}
  3856.   OF_VERIFY = $400;
  3857.   {$EXTERNALSYM OF_VERIFY}
  3858.   OF_CANCEL = $800;
  3859.   {$EXTERNALSYM OF_CANCEL}
  3860.   OF_CREATE = $1000;
  3861.   {$EXTERNALSYM OF_CREATE}
  3862.   OF_PROMPT = $2000;
  3863.   {$EXTERNALSYM OF_PROMPT}
  3864.   OF_EXIST = $4000;
  3865.   {$EXTERNALSYM OF_EXIST}
  3866.   OF_REOPEN = $8000;
  3867.   {$EXTERNALSYM OF_REOPEN}
  3868.  
  3869.   OFS_MAXPATHNAME = 128;
  3870.   {$EXTERNALSYM OFS_MAXPATHNAME}
  3871. type
  3872.   POFStruct = ^TOFStruct;
  3873.   _OFSTRUCT = record
  3874.     cBytes: Byte;
  3875.     fFixedDisk: Byte;
  3876.     nErrCode: Word;
  3877.     Reserved1: Word;
  3878.     Reserved2: Word;
  3879.     szPathName: array[0..OFS_MAXPATHNAME-1] of CHAR;
  3880.   end;
  3881.   {$EXTERNALSYM _OFSTRUCT}
  3882.   TOFStruct = _OFSTRUCT;
  3883.   OFSTRUCT = _OFSTRUCT;
  3884.   {$EXTERNALSYM OFSTRUCT}
  3885.  
  3886. function InterlockedIncrement(var Addend: Integer): Integer; stdcall;
  3887. {$EXTERNALSYM InterlockedIncrement}
  3888. function InterlockedDecrement(var Addend: Integer): Integer; stdcall;
  3889. {$EXTERNALSYM InterlockedDecrement}
  3890. function InterlockedExchange(var Target: Integer; Value: Integer): Integer; stdcall;
  3891. {$EXTERNALSYM InterlockedExchange}
  3892. function InterlockedCompareExchange(var Destination: Pointer; Exchange: Pointer; Comperand: Pointer): Pointer stdcall;
  3893. {$EXTERNALSYM InterlockedCompareExchange}
  3894. function InterlockedExchangeAdd(Addend: PLongint; Value: Longint): Longint stdcall;
  3895. {$EXTERNALSYM InterlockedExchangeAdd}
  3896.  
  3897. function FreeResource(hResData: HGLOBAL): BOOL; stdcall;
  3898. {$EXTERNALSYM FreeResource}
  3899. function LockResource(hResData: HGLOBAL): Pointer; stdcall;
  3900. {$EXTERNALSYM LockResource}
  3901. function UnlockResource(hResData: THandle): BOOL;
  3902. {$EXTERNALSYM UnlockResource}
  3903.  
  3904. const
  3905.   MAXINTATOM = $C000;
  3906.   {$EXTERNALSYM MAXINTATOM}
  3907.   INVALID_ATOM = 0;
  3908.   {$EXTERNALSYM INVALID_ATOM}
  3909.  
  3910. type
  3911.   MakeIntAtomA = PAnsiChar;
  3912.   MakeIntAtomW = PWideChar;
  3913.   MakeIntAtom = MakeIntAtomA;
  3914.  
  3915. function FreeLibrary(hLibModule: HMODULE): BOOL; stdcall;
  3916. {$EXTERNALSYM FreeLibrary}
  3917. procedure FreeLibraryAndExitThread(hLibModule: HMODULE; dwExitCode: DWORD); stdcall;
  3918. {$EXTERNALSYM FreeLibraryAndExitThread}
  3919. function DisableThreadLibraryCalls(hLibModule: HMODULE): BOOL; stdcall;
  3920. {$EXTERNALSYM DisableThreadLibraryCalls}
  3921. function GetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC; stdcall;
  3922. {$EXTERNALSYM GetProcAddress}
  3923. function GetVersion: DWORD; stdcall;
  3924. {$EXTERNALSYM GetVersion}
  3925. function GlobalAlloc(uFlags: UINT; dwBytes: DWORD): HGLOBAL; stdcall;
  3926. {$EXTERNALSYM GlobalAlloc}
  3927. function GlobalReAlloc(hMem: HGLOBAL; dwBytes: DWORD; uFlags: UINT): HGLOBAL; stdcall;
  3928. {$EXTERNALSYM GlobalReAlloc}
  3929. function GlobalSize(hMem: HGLOBAL): DWORD; stdcall;
  3930. {$EXTERNALSYM GlobalSize}
  3931. function GlobalFlags(hMem: HGLOBAL): UINT; stdcall;
  3932. {$EXTERNALSYM GlobalFlags}
  3933. function GlobalLock(hMem: HGLOBAL): Pointer; stdcall;
  3934. {$EXTERNALSYM GlobalLock}
  3935. function GlobalHandle(Mem: Pointer): HGLOBAL; stdcall;
  3936. {$EXTERNALSYM GlobalHandle}
  3937. function GlobalUnlock(hMem: HGLOBAL): BOOL; stdcall;
  3938. {$EXTERNALSYM GlobalUnlock}
  3939. function GlobalFree(hMem: HGLOBAL): HGLOBAL; stdcall;
  3940. {$EXTERNALSYM GlobalFree}
  3941. function GlobalCompact(dwMinFree: DWORD): UINT; stdcall;
  3942. {$EXTERNALSYM GlobalCompact}
  3943. procedure GlobalFix(hMem: HGLOBAL); stdcall;
  3944. {$EXTERNALSYM GlobalFix}
  3945. procedure GlobalUnfix(hMem: HGLOBAL); stdcall;
  3946. {$EXTERNALSYM GlobalUnfix}
  3947. function GlobalWire(hMem: HGLOBAL): Pointer; stdcall;
  3948. {$EXTERNALSYM GlobalWire}
  3949. function GlobalUnWire(hMem: HGLOBAL): BOOL; stdcall;
  3950. {$EXTERNALSYM GlobalUnWire}
  3951. procedure GlobalMemoryStatus(var lpBuffer: TMemoryStatus); stdcall;
  3952. {$EXTERNALSYM GlobalMemoryStatus}
  3953. function LocalAlloc(uFlags, uBytes: UINT): HLOCAL; stdcall;
  3954. {$EXTERNALSYM LocalAlloc}
  3955. function LocalReAlloc(hMem: HLOCAL; uBytes, uFlags: UINT): HLOCAL; stdcall;
  3956. {$EXTERNALSYM LocalReAlloc}
  3957. function LocalLock(hMem: HLOCAL): Pointer; stdcall;
  3958. {$EXTERNALSYM LocalLock}
  3959. function LocalUnlock(hMem: HLOCAL): BOOL; stdcall;
  3960. {$EXTERNALSYM LocalUnlock}
  3961. function LocalSize(hMem: HLOCAL): UINT; stdcall;
  3962. {$EXTERNALSYM LocalSize}
  3963. function LocalFlags(hMem: HLOCAL): UINT; stdcall;
  3964. {$EXTERNALSYM LocalFlags}
  3965. function LocalFree(hMem: HLOCAL): HLOCAL; stdcall;
  3966. {$EXTERNALSYM LocalFree}
  3967. function LocalShrink(hMem: HLOCAL; cbNewSize: UINT): UINT; stdcall;
  3968. {$EXTERNALSYM LocalShrink}
  3969. function LocalCompact(uMinFree: UINT): UINT; stdcall;
  3970. {$EXTERNALSYM LocalCompact}
  3971. function FlushInstructionCache(hProcess: THandle; const lpBaseAddress: Pointer; dwSize: DWORD): BOOL; stdcall;
  3972. {$EXTERNALSYM FlushInstructionCache}
  3973. function VirtualAlloc(lpvAddress: Pointer; dwSize, flAllocationType, flProtect: DWORD): Pointer; stdcall;
  3974. {$EXTERNALSYM VirtualAlloc}
  3975. function VirtualFree(lpAddress: Pointer; dwSize, dwFreeType: DWORD): BOOL; stdcall;
  3976. {$EXTERNALSYM VirtualFree}
  3977. function VirtualProtect(lpAddress: Pointer; dwSize, flNewProtect: DWORD;
  3978.   lpflOldProtect: Pointer): BOOL; stdcall; overload;
  3979. {$EXTERNALSYM VirtualProtect}
  3980. function VirtualProtect(lpAddress: Pointer; dwSize, flNewProtect: DWORD;
  3981.   var OldProtect: DWORD): BOOL; stdcall; overload;
  3982. {$EXTERNALSYM VirtualProtect}
  3983. function VirtualQuery(lpAddress: Pointer;
  3984.   var lpBuffer: TMemoryBasicInformation; dwLength: DWORD): DWORD; stdcall;
  3985. {$EXTERNALSYM VirtualQuery}
  3986. function VirtualAllocEx(hProcess: THandle; lpAddress: Pointer;
  3987.   dwSize, flAllocationType: DWORD; flProtect: DWORD): Pointer; stdcall;
  3988. {$EXTERNALSYM VirtualAllocEx}
  3989. function VirtualFreeEx(hProcess: THandle; lpAddress: Pointer;
  3990.         dwSize, dwFreeType: DWORD): Pointer; stdcall;
  3991. {$EXTERNALSYM VirtualFreeEx}
  3992. function VirtualProtectEx(hProcess: THandle; lpAddress: Pointer;
  3993.   dwSize, flNewProtect: DWORD; lpflOldProtect: Pointer): BOOL; stdcall; overload;
  3994. {$EXTERNALSYM VirtualProtectEx}  
  3995. function VirtualProtectEx(hProcess: THandle; lpAddress: Pointer;
  3996.   dwSize, flNewProtect: DWORD; var OldProtect: DWORD): BOOL; stdcall; overload;
  3997. {$EXTERNALSYM VirtualProtectEx}
  3998. function VirtualQueryEx(hProcess: THandle; lpAddress: Pointer;
  3999.   var lpBuffer: TMemoryBasicInformation; dwLength: DWORD): DWORD; stdcall;
  4000. {$EXTERNALSYM VirtualQueryEx}
  4001. function HeapCreate(flOptions, dwInitialSize, dwMaximumSize: DWORD): THandle; stdcall;
  4002. {$EXTERNALSYM HeapCreate}
  4003. function HeapDestroy(hHeap: THandle): BOOL; stdcall;
  4004. {$EXTERNALSYM HeapDestroy}
  4005. function HeapAlloc(hHeap: THandle; dwFlags, dwBytes: DWORD): Pointer; stdcall;
  4006. {$EXTERNALSYM HeapAlloc}
  4007. function HeapReAlloc(hHeap: THandle; dwFlags: DWORD; lpMem: Pointer; dwBytes: DWORD): Pointer; stdcall;
  4008. {$EXTERNALSYM HeapReAlloc}
  4009. function HeapFree(hHeap: THandle; dwFlags: DWORD; lpMem: Pointer): BOOL; stdcall;
  4010. {$EXTERNALSYM HeapFree}
  4011. function HeapSize(hHeap: THandle; dwFlags: DWORD; lpMem: Pointer): DWORD; stdcall;
  4012. {$EXTERNALSYM HeapSize}
  4013. function HeapValidate(hHeap: THandle; dwFlags: DWORD; lpMem: Pointer): BOOL; stdcall;
  4014. {$EXTERNALSYM HeapValidate}
  4015. function HeapCompact(hHeap: THandle; dwFlags: DWORD): UINT; stdcall;
  4016. {$EXTERNALSYM HeapCompact}
  4017. function GetProcessHeap: THandle; stdcall;
  4018. {$EXTERNALSYM GetProcessHeap}
  4019. function GetProcessHeaps(NumberOfHeaps: DWORD; var ProcessHeaps: THandle): DWORD; stdcall;
  4020. {$EXTERNALSYM GetProcessHeaps}
  4021.  
  4022. type
  4023.   PProcessHeapEntry = ^TProcessHeapEntry;
  4024.   _PROCESS_HEAP_ENTRY = record
  4025.     lpData: Pointer;
  4026.     cbData: DWORD;
  4027.     cbOverhead: Byte;
  4028.     iRegionIndex: Byte;
  4029.     wFlags: Word;
  4030.     case Integer of
  4031.       0: (
  4032.         hMem: THandle);
  4033.       1: (
  4034.         dwCommittedSize: DWORD;
  4035.         dwUnCommittedSize: DWORD;
  4036.         lpFirstBlock: Pointer;
  4037.         lpLastBlock: Pointer);
  4038.   end;
  4039.   {$EXTERNALSYM _PROCESS_HEAP_ENTRY}
  4040.   TProcessHeapEntry = _PROCESS_HEAP_ENTRY;
  4041.   PROCESS_HEAP_ENTRY = _PROCESS_HEAP_ENTRY;
  4042.   {$EXTERNALSYM PROCESS_HEAP_ENTRY}
  4043.  
  4044. const
  4045.   PROCESS_HEAP_REGION = 1;
  4046.   {$EXTERNALSYM PROCESS_HEAP_REGION}
  4047.   PROCESS_HEAP_UNCOMMITTED_RANGE = 2;
  4048.   {$EXTERNALSYM PROCESS_HEAP_UNCOMMITTED_RANGE}
  4049.   PROCESS_HEAP_ENTRY_BUSY = 4;
  4050.   {$EXTERNALSYM PROCESS_HEAP_ENTRY_BUSY}
  4051.   PROCESS_HEAP_ENTRY_MOVEABLE = $10;
  4052.   {$EXTERNALSYM PROCESS_HEAP_ENTRY_MOVEABLE}
  4053.   PROCESS_HEAP_ENTRY_DDESHARE = $20;
  4054.   {$EXTERNALSYM PROCESS_HEAP_ENTRY_DDESHARE}
  4055.  
  4056. function HeapLock(hHeap: THandle): BOOL; stdcall;
  4057. {$EXTERNALSYM HeapLock}
  4058. function HeapUnlock(hHeap: THandle): BOOL; stdcall;
  4059. {$EXTERNALSYM HeapUnlock}
  4060. function HeapWalk(hHeap: THandle; var lpEntry: TProcessHeapEntry): BOOL; stdcall;
  4061. {$EXTERNALSYM HeapWalk}
  4062.  
  4063.  
  4064. { GetBinaryType return values.}
  4065.  
  4066. const
  4067.   SCS_32BIT_BINARY = 0;
  4068.   {$EXTERNALSYM SCS_32BIT_BINARY}
  4069.   SCS_DOS_BINARY = 1;
  4070.   {$EXTERNALSYM SCS_DOS_BINARY}
  4071.   SCS_WOW_BINARY = 2;
  4072.   {$EXTERNALSYM SCS_WOW_BINARY}
  4073.   SCS_PIF_BINARY = 3;
  4074.   {$EXTERNALSYM SCS_PIF_BINARY}
  4075.   SCS_POSIX_BINARY = 4;
  4076.   {$EXTERNALSYM SCS_POSIX_BINARY}
  4077.   SCS_OS216_BINARY = 5;
  4078.   {$EXTERNALSYM SCS_OS216_BINARY}
  4079.  
  4080. function GetBinaryTypeA(lpApplicationName: PAnsiChar; var lpBinaryType: DWORD): BOOL; stdcall;
  4081. {$EXTERNALSYM GetBinaryTypeA}
  4082. function GetBinaryTypeW(lpApplicationName: PWideChar; var lpBinaryType: DWORD): BOOL; stdcall;
  4083. {$EXTERNALSYM GetBinaryTypeW}
  4084. function GetBinaryType(lpApplicationName: PChar; var lpBinaryType: DWORD): BOOL; stdcall;
  4085. {$EXTERNALSYM GetBinaryType}
  4086. function GetShortPathNameA(lpszLongPath: PAnsiChar; lpszShortPath: PAnsiChar;
  4087.   cchBuffer: DWORD): DWORD; stdcall;
  4088. {$EXTERNALSYM GetShortPathNameA}
  4089. function GetShortPathNameW(lpszLongPath: PWideChar; lpszShortPath: PWideChar;
  4090.   cchBuffer: DWORD): DWORD; stdcall;
  4091. {$EXTERNALSYM GetShortPathNameW}
  4092. function GetShortPathName(lpszLongPath: PChar; lpszShortPath: PChar;
  4093.   cchBuffer: DWORD): DWORD; stdcall;
  4094. {$EXTERNALSYM GetShortPathName}
  4095. function GetProcessAffinityMask(hProcess: THandle;
  4096.   var lpProcessAffinityMask, lpSystemAffinityMask: DWORD): BOOL; stdcall;
  4097. {$EXTERNALSYM GetProcessAffinityMask}
  4098. function SetProcessAffinityMask(hProcess: THandle;
  4099.   dwProcessAffinityMask: DWORD): BOOL; stdcall;
  4100. {$EXTERNALSYM SetProcessAffinityMask}
  4101. function GetProcessTimes(hProcess: THandle;
  4102.   var lpCreationTime, lpExitTime, lpKernelTime, lpUserTime: TFileTime): BOOL; stdcall;
  4103. {$EXTERNALSYM GetProcessTimes}
  4104. function GetProcessWorkingSetSize(hProcess: THandle;
  4105.   var lpMinimumWorkingSetSize, lpMaximumWorkingSetSize: DWORD): BOOL; stdcall;
  4106. {$EXTERNALSYM GetProcessWorkingSetSize}
  4107. function SetProcessWorkingSetSize(hProcess: THandle;
  4108.   dwMinimumWorkingSetSize, dwMaximumWorkingSetSize: DWORD): BOOL; stdcall;
  4109. {$EXTERNALSYM SetProcessWorkingSetSize}
  4110. function OpenProcess(dwDesiredAccess: DWORD; bInheritHandle: BOOL; dwProcessId: DWORD): THandle; stdcall;
  4111. {$EXTERNALSYM OpenProcess}
  4112. function GetCurrentProcess: THandle; stdcall;
  4113. {$EXTERNALSYM GetCurrentProcess}
  4114. function GetCurrentProcessId: DWORD; stdcall;
  4115. {$EXTERNALSYM GetCurrentProcessId}
  4116. procedure ExitProcess(uExitCode: UINT); stdcall;
  4117. {$EXTERNALSYM ExitProcess}
  4118. function TerminateProcess(hProcess: THandle; uExitCode: UINT): BOOL; stdcall;
  4119. {$EXTERNALSYM TerminateProcess}
  4120. function GetExitCodeProcess(hProcess: THandle; var lpExitCode: DWORD): BOOL; stdcall;
  4121. {$EXTERNALSYM GetExitCodeProcess}
  4122. procedure FatalExit(ExitCode: Integer); stdcall;
  4123. {$EXTERNALSYM FatalExit}
  4124. function GetEnvironmentStringsA: PAnsiChar; stdcall;
  4125. {$EXTERNALSYM GetEnvironmentStringsA}
  4126. function GetEnvironmentStringsW: PWideChar; stdcall;
  4127. {$EXTERNALSYM GetEnvironmentStringsW}
  4128. function GetEnvironmentStrings: PChar; stdcall;
  4129. {$EXTERNALSYM GetEnvironmentStrings}
  4130. function FreeEnvironmentStringsA(p1: PAnsiChar): BOOL; stdcall;
  4131. {$EXTERNALSYM FreeEnvironmentStringsA}
  4132. function FreeEnvironmentStringsW(p1: PWideChar): BOOL; stdcall;
  4133. {$EXTERNALSYM FreeEnvironmentStringsW}
  4134. function FreeEnvironmentStrings(p1: PChar): BOOL; stdcall;
  4135. {$EXTERNALSYM FreeEnvironmentStrings}
  4136. procedure RaiseException(dwExceptionCode, dwExceptionFlags, nNumberOfArguments: DWORD;
  4137.   lpArguments: PDWORD); stdcall;
  4138. {$EXTERNALSYM RaiseException}
  4139. function UnhandledExceptionFilter(const ExceptionInfo: TExceptionPointers): Longint; stdcall;
  4140. {$EXTERNALSYM UnhandledExceptionFilter}
  4141. function CreateFiber(dwStackSize: DWORD; lpStartAddress: TFNFiberStartRoutine;
  4142.   lpParameter: Pointer): BOOL; stdcall;
  4143. {$EXTERNALSYM CreateFiber}
  4144. function DeleteFiber(lpFiber: Pointer): BOOL; stdcall;
  4145. {$EXTERNALSYM DeleteFiber}
  4146. function ConvertThreadToFiber(lpParameter: Pointer): BOOL; stdcall;
  4147. {$EXTERNALSYM ConvertThreadToFiber}
  4148. function SwitchToFiber(lpFiber: Pointer): BOOL; stdcall;
  4149. {$EXTERNALSYM SwitchToFiber}
  4150. function SwitchToThread: BOOL; stdcall;
  4151. {$EXTERNALSYM SwitchToThread}
  4152.  
  4153. type
  4154.  
  4155.  
  4156.   TFNTopLevelExceptionFilter = TFarProc;
  4157.  
  4158. function SetUnhandledExceptionFilter(lpTopLevelExceptionFilter: TFNTopLevelExceptionFilter):
  4159.   TFNTopLevelExceptionFilter; stdcall;
  4160. {$EXTERNALSYM SetUnhandledExceptionFilter}
  4161. function CreateThread(lpThreadAttributes: Pointer;
  4162.   dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine;
  4163.   lpParameter: Pointer; dwCreationFlags: DWORD; var lpThreadId: DWORD): THandle; stdcall;
  4164. {$EXTERNALSYM CreateThread}
  4165. function CreateRemoteThread(hProcess: THandle; lpThreadAttributes: Pointer;
  4166.   dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; lpParameter: Pointer;
  4167.   dwCreationFlags: DWORD; var lpThreadId: DWORD): THandle; stdcall;
  4168. {$EXTERNALSYM CreateRemoteThread}
  4169. function GetCurrentThread: THandle; stdcall;
  4170. {$EXTERNALSYM GetCurrentThread}
  4171. function GetCurrentThreadId: DWORD; stdcall;
  4172. {$EXTERNALSYM GetCurrentThreadId}
  4173. function SetThreadAffinityMask(hThread: THandle; dwThreadAffinityMask: DWORD): DWORD; stdcall;
  4174. {$EXTERNALSYM SetThreadAffinityMask}
  4175. function SetThreadIdealProcessor(hThread: THandle; dwIdealProcessor: DWORD): BOOL; stdcall;
  4176. {$EXTERNALSYM SetThreadIdealProcessor}
  4177. function SetProcessPriorityBoost(hThread: THandle; DisablePriorityBoost: Bool): BOOL; stdcall;
  4178. {$EXTERNALSYM SetProcessPriorityBoost}
  4179. function GetProcessPriorityBoost(hThread: THandle; var DisablePriorityBoost: Bool): BOOL; stdcall;
  4180. {$EXTERNALSYM GetProcessPriorityBoost}
  4181. function SetThreadPriority(hThread: THandle; nPriority: Integer): BOOL; stdcall;
  4182. {$EXTERNALSYM SetThreadPriority}
  4183. function GetThreadPriority(hThread: THandle): Integer; stdcall;
  4184. {$EXTERNALSYM GetThreadPriority}
  4185. function SetThreadPriorityBoost(hThread: THandle; DisablePriorityBoost: Bool): BOOL; stdcall;
  4186. {$EXTERNALSYM SetThreadPriorityBoost}
  4187. function GetThreadPriorityBoost(hThread: THandle; var DisablePriorityBoost: Bool): BOOL; stdcall;
  4188. {$EXTERNALSYM GetThreadPriorityBoost}
  4189. function GetThreadTimes(hThread: THandle;
  4190.   var lpCreationTime, lpExitTime, lpKernelTime, lpUserTime: TFileTime): BOOL; stdcall;
  4191. {$EXTERNALSYM GetThreadTimes}
  4192. procedure ExitThread(dwExitCode: DWORD); stdcall;
  4193. {$EXTERNALSYM ExitThread}
  4194. function TerminateThread(hThread: THandle; dwExitCode: DWORD): BOOL; stdcall;
  4195. {$EXTERNALSYM TerminateThread}
  4196. function GetExitCodeThread(hThread: THandle; var lpExitCode: DWORD): BOOL; stdcall;
  4197. {$EXTERNALSYM GetExitCodeThread}
  4198. function GetThreadSelectorEntry(hThread: THandle; dwSelector: DWORD;
  4199.   var lpSelectorEntry: TLDTEntry): BOOL; stdcall;
  4200. {$EXTERNALSYM GetThreadSelectorEntry}
  4201. function GetLastError: DWORD; stdcall;
  4202. {$EXTERNALSYM GetLastError}
  4203. procedure SetLastError(dwErrCode: DWORD); stdcall;
  4204. {$EXTERNALSYM SetLastError}
  4205. function GetOverlappedResult(hFile: THandle; const lpOverlapped: TOverlapped;
  4206.   var lpNumberOfBytesTransferred: DWORD; bWait: BOOL): BOOL; stdcall;
  4207. {$EXTERNALSYM GetOverlappedResult}
  4208. function CreateIoCompletionPort(FileHandle, ExistingCompletionPort: THandle;
  4209.   CompletionKey, NumberOfConcurrentThreads: DWORD): THandle; stdcall;
  4210. {$EXTERNALSYM CreateIoCompletionPort}
  4211. function GetQueuedCompletionStatus(CompletionPort: THandle;
  4212.   var lpNumberOfBytesTransferred, lpCompletionKey: DWORD;
  4213.   var lpOverlapped: POverlapped; dwMilliseconds: DWORD): BOOL; stdcall;
  4214. {$EXTERNALSYM GetQueuedCompletionStatus}
  4215. function PostQueuedCompletionStatus(CompletionPort: THandle; dwNumberOfBytesTransferred: DWORD;
  4216.   dwCompletionKey: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
  4217. {$EXTERNALSYM PostQueuedCompletionStatus}
  4218.  
  4219. const
  4220.   SEM_FAILCRITICALERRORS = 1;
  4221.   {$EXTERNALSYM SEM_FAILCRITICALERRORS}
  4222.   SEM_NOGPFAULTERRORBOX = 2;
  4223.   {$EXTERNALSYM SEM_NOGPFAULTERRORBOX}
  4224.   SEM_NOALIGNMENTFAULTEXCEPT = 4;
  4225.   {$EXTERNALSYM SEM_NOALIGNMENTFAULTEXCEPT}
  4226.   SEM_NOOPENFILEERRORBOX = $8000;
  4227.   {$EXTERNALSYM SEM_NOOPENFILEERRORBOX}
  4228.  
  4229. function SetErrorMode(uMode: UINT): UINT; stdcall;
  4230. {$EXTERNALSYM SetErrorMode}
  4231. function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
  4232.   nSize: DWORD; var lpNumberOfBytesRead: DWORD): BOOL; stdcall;
  4233. {$EXTERNALSYM ReadProcessMemory}
  4234. function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
  4235.   nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL; stdcall;
  4236. {$EXTERNALSYM WriteProcessMemory}
  4237. function GetThreadContext(hThread: THandle; var lpContext: TContext): BOOL; stdcall;
  4238. {$EXTERNALSYM GetThreadContext}
  4239. function SetThreadContext(hThread: THandle; const lpContext: TContext): BOOL; stdcall;
  4240. {$EXTERNALSYM SetThreadContext}
  4241. function SuspendThread(hThread: THandle): DWORD; stdcall;
  4242. {$EXTERNALSYM SuspendThread}
  4243. function ResumeThread(hThread: THandle): DWORD; stdcall;
  4244. {$EXTERNALSYM ResumeThread}
  4245.  
  4246. type
  4247.  
  4248.  
  4249.   TFNAPCProc = TFarProc;
  4250.  
  4251. function QueueUserAPC(pfnAPC: TFNAPCProc; hThread: THandle; dwData: DWORD): BOOL; stdcall;
  4252. {$EXTERNALSYM QueueUserAPC}
  4253. procedure DebugBreak; stdcall;
  4254. {$EXTERNALSYM DebugBreak}
  4255. function WaitForDebugEvent(var lpDebugEvent: TDebugEvent; dwMilliseconds: DWORD): BOOL; stdcall;
  4256. {$EXTERNALSYM WaitForDebugEvent}
  4257. function ContinueDebugEvent(dwProcessId, dwThreadId, dwContinueStatus: DWORD): BOOL; stdcall;
  4258. {$EXTERNALSYM ContinueDebugEvent}
  4259. function DebugActiveProcess(dwProcessId: DWORD): BOOL; stdcall;
  4260. {$EXTERNALSYM DebugActiveProcess}
  4261. procedure InitializeCriticalSection(var lpCriticalSection: TRTLCriticalSection); stdcall;
  4262. {$EXTERNALSYM InitializeCriticalSection}
  4263. procedure EnterCriticalSection(var lpCriticalSection: TRTLCriticalSection); stdcall;
  4264. {$EXTERNALSYM EnterCriticalSection}
  4265. procedure LeaveCriticalSection(var lpCriticalSection: TRTLCriticalSection); stdcall;
  4266. {$EXTERNALSYM LeaveCriticalSection}
  4267. function InitializeCriticalSectionAndSpinCount(var lpCriticalSection: TRTLCriticalSection; dwSpinCount: DWORD): BOOL; stdcall;
  4268. {$EXTERNALSYM InitializeCriticalSectionAndSpinCount}
  4269. function SetCriticalSectionSpinCount(var lpCriticalSection: TRTLCriticalSection; dwSpinCount: DWORD): DWORD; stdcall;
  4270. {$EXTERNALSYM SetCriticalSectionSpinCount}
  4271. function TryEnterCriticalSection(var lpCriticalSection: TRTLCriticalSection): BOOL; stdcall;
  4272. {$EXTERNALSYM TryEnterCriticalSection}
  4273. procedure DeleteCriticalSection(var lpCriticalSection: TRTLCriticalSection); stdcall;
  4274. {$EXTERNALSYM DeleteCriticalSection}
  4275. function SetEvent(hEvent: THandle): BOOL; stdcall;
  4276. {$EXTERNALSYM SetEvent}
  4277. function ResetEvent(hEvent: THandle): BOOL; stdcall;
  4278. {$EXTERNALSYM ResetEvent}
  4279. function PulseEvent(hEvent: THandle): BOOL; stdcall;
  4280. {$EXTERNALSYM PulseEvent}
  4281. function ReleaseSemaphore(hSemaphore: THandle; lReleaseCount: Longint;
  4282.   lpPreviousCount: Pointer): BOOL; stdcall;
  4283. {$EXTERNALSYM ReleaseSemaphore}
  4284. function ReleaseMutex(hMutex: THandle): BOOL; stdcall;
  4285. {$EXTERNALSYM ReleaseMutex}
  4286. function WaitForSingleObject(hHandle: THandle; dwMilliseconds: DWORD): DWORD; stdcall;
  4287. {$EXTERNALSYM WaitForSingleObject}
  4288.  
  4289. type
  4290.   TWOHandleArray = array[0..MAXIMUM_WAIT_OBJECTS - 1] of THandle;
  4291.   PWOHandleArray = ^TWOHandleArray;
  4292.  
  4293. function WaitForMultipleObjects(nCount: DWORD; lpHandles: PWOHandleArray;
  4294.   bWaitAll: BOOL; dwMilliseconds: DWORD): DWORD; stdcall;
  4295. {$EXTERNALSYM WaitForMultipleObjects}
  4296. procedure Sleep(dwMilliseconds: DWORD); stdcall;
  4297. {$EXTERNALSYM Sleep}
  4298. function LoadResource(hModule: HINST; hResInfo: HRSRC): HGLOBAL; stdcall;
  4299. {$EXTERNALSYM LoadResource}
  4300. function SizeofResource(hModule: HINST; hResInfo: HRSRC): DWORD; stdcall;
  4301. {$EXTERNALSYM SizeofResource}
  4302. function GlobalDeleteAtom(nAtom: ATOM): ATOM; stdcall;
  4303. {$EXTERNALSYM GlobalDeleteAtom}
  4304. function InitAtomTable(nSize: DWORD): BOOL; stdcall;
  4305. {$EXTERNALSYM InitAtomTable}
  4306. function DeleteAtom(nAtom: ATOM): ATOM; stdcall;
  4307. {$EXTERNALSYM DeleteAtom}
  4308. function SetHandleCount(uNumber: UINT): UINT; stdcall;
  4309. {$EXTERNALSYM SetHandleCount}
  4310. function GetLogicalDrives: DWORD; stdcall;
  4311. {$EXTERNALSYM GetLogicalDrives}
  4312. function LockFile(hFile: THandle; dwFileOffsetLow, dwFileOffsetHigh: DWORD;
  4313.   nNumberOfBytesToLockLow, nNumberOfBytesToLockHigh: DWORD): BOOL; stdcall;
  4314. {$EXTERNALSYM LockFile}
  4315. function UnlockFile(hFile: THandle; dwFileOffsetLow, dwFileOffsetHigh: DWORD;
  4316.   nNumberOfBytesToUnlockLow, nNumberOfBytesToUnlockHigh: DWORD): BOOL; stdcall;
  4317. {$EXTERNALSYM UnlockFile}
  4318. function LockFileEx(hFile: THandle; dwFlags, dwReserved: DWORD;
  4319.   nNumberOfBytesToLockLow, nNumberOfBytesToLockHigh: DWORD;
  4320.   const lpOverlapped: TOverlapped): BOOL; stdcall;
  4321. {$EXTERNALSYM LockFileEx}
  4322.  
  4323. const
  4324.   LOCKFILE_FAIL_IMMEDIATELY = 1;
  4325.   {$EXTERNALSYM LOCKFILE_FAIL_IMMEDIATELY}
  4326.   LOCKFILE_EXCLUSIVE_LOCK = 2;
  4327.   {$EXTERNALSYM LOCKFILE_EXCLUSIVE_LOCK}
  4328.  
  4329. function UnlockFileEx(hFile: THandle; dwReserved, nNumberOfBytesToUnlockLow: DWORD;
  4330.   nNumberOfBytesToUnlockHigh: DWORD; const lpOverlapped: TOverlapped): BOOL; stdcall;
  4331. {$EXTERNALSYM UnlockFileEx}
  4332.  
  4333. type
  4334.   PByHandleFileInformation = ^TByHandleFileInformation;
  4335.   _BY_HANDLE_FILE_INFORMATION = record
  4336.     dwFileAttributes: DWORD;
  4337.     ftCreationTime: TFileTime;
  4338.     ftLastAccessTime: TFileTime;
  4339.     ftLastWriteTime: TFileTime;
  4340.     dwVolumeSerialNumber: DWORD;
  4341.     nFileSizeHigh: DWORD;
  4342.     nFileSizeLow: DWORD;
  4343.     nNumberOfLinks: DWORD;
  4344.     nFileIndexHigh: DWORD;
  4345.     nFileIndexLow: DWORD;
  4346.   end;
  4347.   {$EXTERNALSYM _BY_HANDLE_FILE_INFORMATION}
  4348.   TByHandleFileInformation = _BY_HANDLE_FILE_INFORMATION;
  4349.   BY_HANDLE_FILE_INFORMATION = _BY_HANDLE_FILE_INFORMATION;
  4350.   {$EXTERNALSYM BY_HANDLE_FILE_INFORMATION}
  4351.  
  4352. function GetFileInformationByHandle(hFile: THandle; var lpFileInformation: TByHandleFileInformation): BOOL; stdcall;
  4353. {$EXTERNALSYM GetFileInformationByHandle}
  4354. function GetFileType(hFile: THandle): DWORD; stdcall;
  4355. {$EXTERNALSYM GetFileType}
  4356. function GetFileSize(hFile: THandle; lpFileSizeHigh: Pointer): DWORD; stdcall;
  4357. {$EXTERNALSYM GetFileSize}
  4358. function GetStdHandle(nStdHandle: DWORD): THandle; stdcall;
  4359. {$EXTERNALSYM GetStdHandle}
  4360. function SetStdHandle(nStdHandle: DWORD; hHandle: THandle): BOOL; stdcall;
  4361. {$EXTERNALSYM SetStdHandle}
  4362. function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD;
  4363.   var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
  4364. {$EXTERNALSYM WriteFile}
  4365. function ReadFile(hFile: THandle; var Buffer; nNumberOfBytesToRead: DWORD;
  4366.   var lpNumberOfBytesRead: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
  4367. {$EXTERNALSYM ReadFile}
  4368. function FlushFileBuffers(hFile: THandle): BOOL; stdcall;
  4369. {$EXTERNALSYM FlushFileBuffers}
  4370. function DeviceIoControl(hDevice: THandle; dwIoControlCode: DWORD; lpInBuffer: Pointer;
  4371.   nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD;
  4372.   var lpBytesReturned: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
  4373. {$EXTERNALSYM DeviceIoControl}
  4374. function SetEndOfFile(hFile: THandle): BOOL; stdcall;
  4375. {$EXTERNALSYM SetEndOfFile}
  4376. function SetFilePointer(hFile: THandle; lDistanceToMove: Longint;
  4377.   lpDistanceToMoveHigh: Pointer; dwMoveMethod: DWORD): DWORD; stdcall;
  4378. {$EXTERNALSYM SetFilePointer}
  4379. function FindClose(hFindFile: THandle): BOOL; stdcall;
  4380. {$EXTERNALSYM FindClose}
  4381. function GetFileTime(hFile: THandle;
  4382.   lpCreationTime, lpLastAccessTime, lpLastWriteTime: PFileTime): BOOL; stdcall;
  4383. {$EXTERNALSYM GetFileTime}
  4384. function SetFileTime(hFile: THandle;
  4385.   lpCreationTime, lpLastAccessTime, lpLastWriteTime: PFileTime): BOOL; stdcall;
  4386. {$EXTERNALSYM SetFileTime}
  4387. function CloseHandle(hObject: THandle): BOOL; stdcall;
  4388. {$EXTERNALSYM CloseHandle}
  4389. function DuplicateHandle(hSourceProcessHandle, hSourceHandle, hTargetProcessHandle: THandle;
  4390.   lpTargetHandle: PHandle; dwDesiredAccess: DWORD;
  4391.   bInheritHandle: BOOL; dwOptions: DWORD): BOOL; stdcall;
  4392. {$EXTERNALSYM DuplicateHandle}
  4393. function GetHandleInformation(hObject: THandle; var lpdwFlags: DWORD): BOOL; stdcall;
  4394. {$EXTERNALSYM GetHandleInformation}
  4395. function SetHandleInformation(hObject: THandle; dwMask: DWORD; dwFlags: DWORD): BOOL; stdcall;
  4396. {$EXTERNALSYM SetHandleInformation}
  4397.  
  4398. const
  4399.   HANDLE_FLAG_INHERIT = 1;
  4400.   {$EXTERNALSYM HANDLE_FLAG_INHERIT}
  4401.   HANDLE_FLAG_PROTECT_FROM_CLOSE = 2;
  4402.   {$EXTERNALSYM HANDLE_FLAG_PROTECT_FROM_CLOSE}
  4403.   HINSTANCE_ERROR = $20;
  4404.   {$EXTERNALSYM HINSTANCE_ERROR}
  4405.  
  4406. function LoadModule(lpModuleName: LPCSTR; lpParameterBlock: Pointer): DWORD; stdcall;
  4407. {$EXTERNALSYM LoadModule}
  4408. function WinExec(lpCmdLine: LPCSTR; uCmdShow: UINT): UINT; stdcall;
  4409. {$EXTERNALSYM WinExec}
  4410. function ClearCommBreak(hFile: THandle): BOOL; stdcall;
  4411. {$EXTERNALSYM ClearCommBreak}
  4412. function ClearCommError(hFile: THandle; var lpErrors: DWORD; lpStat: PComStat): BOOL; stdcall;
  4413. {$EXTERNALSYM ClearCommError}
  4414. function SetupComm(hFile: THandle; dwInQueue, dwOutQueue: DWORD): BOOL; stdcall;
  4415. {$EXTERNALSYM SetupComm}
  4416. function EscapeCommFunction(hFile: THandle; dwFunc: DWORD): BOOL; stdcall;
  4417. {$EXTERNALSYM EscapeCommFunction}
  4418. function GetCommConfig(hCommDev: THandle; var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL; stdcall;
  4419. {$EXTERNALSYM GetCommConfig}
  4420. function GetCommMask(hFile: THandle; var lpEvtMask: DWORD): BOOL; stdcall;
  4421. {$EXTERNALSYM GetCommMask}
  4422. function GetCommProperties(hFile: THandle; var lpCommProp: TCommProp): BOOL; stdcall;
  4423. {$EXTERNALSYM GetCommProperties}
  4424. function GetCommModemStatus(hFile: THandle; var lpModemStat: DWORD): BOOL; stdcall;
  4425. {$EXTERNALSYM GetCommModemStatus}
  4426. function GetCommState(hFile: THandle; var lpDCB: TDCB): BOOL; stdcall;
  4427. {$EXTERNALSYM GetCommState}
  4428. function GetCommTimeouts(hFile: THandle; var lpCommTimeouts: TCommTimeouts): BOOL; stdcall;
  4429. {$EXTERNALSYM GetCommTimeouts}
  4430. function PurgeComm(hFile: THandle; dwFlags: DWORD): BOOL; stdcall;
  4431. {$EXTERNALSYM PurgeComm}
  4432. function SetCommBreak(hFile: THandle): BOOL; stdcall;
  4433. {$EXTERNALSYM SetCommBreak}
  4434. function SetCommConfig(hCommDev: THandle; const lpCC: TCommConfig; dwSize: DWORD): BOOL; stdcall;
  4435. {$EXTERNALSYM SetCommConfig}
  4436. function SetCommMask(hFile: THandle; dwEvtMask: DWORD): BOOL; stdcall;
  4437. {$EXTERNALSYM SetCommMask}
  4438. function SetCommState(hFile: THandle; const lpDCB: TDCB): BOOL; stdcall;
  4439. {$EXTERNALSYM SetCommState}
  4440. function SetCommTimeouts(hFile: THandle; const lpCommTimeouts: TCommTimeouts): BOOL; stdcall;
  4441. {$EXTERNALSYM SetCommTimeouts}
  4442. function TransmitCommChar(hFile: THandle; cChar: CHAR): BOOL; stdcall;
  4443. {$EXTERNALSYM TransmitCommChar}
  4444. function WaitCommEvent(hFile: THandle; var lpEvtMask: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
  4445. {$EXTERNALSYM WaitCommEvent}
  4446. function SetTapePosition(hDevice: THandle; dwPositionMethod, dwPartition: DWORD;
  4447.   dwOffsetLow, dwOffsetHigh: DWORD; bImmediate: BOOL): DWORD; stdcall;
  4448. {$EXTERNALSYM SetTapePosition}
  4449. function GetTapePosition(hDevice: THandle; dwPositionType: DWORD;
  4450.   var lpdwPartition, lpdwOffsetLow: DWORD; lpdwOffsetHigh: Pointer): DWORD; stdcall;
  4451. {$EXTERNALSYM GetTapePosition}
  4452. function PrepareTape(hDevice: THandle; dwOperation: DWORD; bImmediate: BOOL): DWORD; stdcall;
  4453. {$EXTERNALSYM PrepareTape}
  4454. function EraseTape(hDevice: THandle; dwEraseType: DWORD; bImmediate: BOOL): DWORD; stdcall;
  4455. {$EXTERNALSYM EraseTape}
  4456. function CreateTapePartition(hDevice: THandle; dwPartitionMethod, dwCount, dwSize: DWORD): DWORD; stdcall;
  4457. {$EXTERNALSYM CreateTapePartition}
  4458. function WriteTapemark(hDevice: THandle;
  4459.   dwTapemarkType, dwTapemarkCount: DWORD; bImmediate: BOOL): DWORD; stdcall;
  4460. {$EXTERNALSYM WriteTapemark}
  4461. function GetTapeStatus(hDevice: THandle): DWORD; stdcall;
  4462. {$EXTERNALSYM GetTapeStatus}
  4463. function GetTapeParameters(hDevice: THandle; dwOperation: DWORD;
  4464.   var lpdwSize: DWORD; lpTapeInformation: Pointer): DWORD; stdcall;
  4465. {$EXTERNALSYM GetTapeParameters}
  4466.  
  4467. const
  4468.   GET_TAPE_MEDIA_INFORMATION = 0;
  4469.   {$EXTERNALSYM GET_TAPE_MEDIA_INFORMATION}
  4470.   GET_TAPE_DRIVE_INFORMATION = 1;
  4471.   {$EXTERNALSYM GET_TAPE_DRIVE_INFORMATION}
  4472.  
  4473. function SetTapeParameters(hDevice: THandle; dwOperation: DWORD; lpTapeInformation: Pointer): DWORD; stdcall;
  4474. {$EXTERNALSYM SetTapeParameters}
  4475.  
  4476. const
  4477.   SET_TAPE_MEDIA_INFORMATION = 0;
  4478.   {$EXTERNALSYM SET_TAPE_MEDIA_INFORMATION}
  4479.   SET_TAPE_DRIVE_INFORMATION = 1;
  4480.   {$EXTERNALSYM SET_TAPE_DRIVE_INFORMATION}
  4481.  
  4482. function Beep(dwFreq, dwDuration: DWORD): BOOL; stdcall;
  4483. {$EXTERNALSYM Beep}
  4484. function MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer; stdcall;
  4485. {$EXTERNALSYM MulDiv}
  4486. procedure GetSystemTime(var lpSystemTime: TSystemTime); stdcall;
  4487. {$EXTERNALSYM GetSystemTime}
  4488. procedure GetSystemTimeAsFileTime(var lpSystemTimeAsFileTime: TFileTime); stdcall;
  4489. {$EXTERNALSYM GetSystemTimeAsFileTime}
  4490. function SetSystemTime(const lpSystemTime: TSystemTime): BOOL; stdcall;
  4491. {$EXTERNALSYM SetSystemTime}
  4492. procedure GetLocalTime(var lpSystemTime: TSystemTime); stdcall;
  4493. {$EXTERNALSYM GetLocalTime}
  4494. function SetLocalTime(const lpSystemTime: TSystemTime): BOOL; stdcall;
  4495. {$EXTERNALSYM SetLocalTime}
  4496. procedure GetSystemInfo(var lpSystemInfo: TSystemInfo); stdcall;
  4497. {$EXTERNALSYM GetSystemInfo}
  4498. function IsProcessorFeaturePresent(ProcessorFeature: DWORD): BOOL; stdcall;
  4499. {$EXTERNALSYM IsProcessorFeaturePresent}
  4500.  
  4501.  
  4502. type
  4503.   PTimeZoneInformation = ^TTimeZoneInformation;
  4504.   _TIME_ZONE_INFORMATION = record
  4505.     Bias: Longint;
  4506.     StandardName: array[0..31] of WCHAR;
  4507.     StandardDate: TSystemTime;
  4508.     StandardBias: Longint;
  4509.     DaylightName: array[0..31] of WCHAR;
  4510.     DaylightDate: TSystemTime;
  4511.     DaylightBias: Longint;
  4512.   end;
  4513.   {$EXTERNALSYM _TIME_ZONE_INFORMATION}
  4514.   TTimeZoneInformation = _TIME_ZONE_INFORMATION;
  4515.   TIME_ZONE_INFORMATION = _TIME_ZONE_INFORMATION;
  4516.   {$EXTERNALSYM TIME_ZONE_INFORMATION}
  4517.  
  4518. function SystemTimeToTzSpecificLocalTime(lpTimeZoneInformation: PTimeZoneInformation;
  4519.   var lpUniversalTime, lpLocalTime: TSystemTime): BOOL; stdcall;
  4520. {$EXTERNALSYM SystemTimeToTzSpecificLocalTime}
  4521. function GetTimeZoneInformation(var lpTimeZoneInformation: TTimeZoneInformation): DWORD; stdcall;
  4522. {$EXTERNALSYM GetTimeZoneInformation}
  4523. function SetTimeZoneInformation(const lpTimeZoneInformation: TTimeZoneInformation): BOOL; stdcall;
  4524. {$EXTERNALSYM SetTimeZoneInformation}
  4525.  
  4526. { Routines to convert back and forth between system time and file time }
  4527.  
  4528. function SystemTimeToFileTime(const lpSystemTime: TSystemTime; var lpFileTime: TFileTime): BOOL; stdcall;
  4529. {$EXTERNALSYM SystemTimeToFileTime}
  4530. function FileTimeToLocalFileTime(const lpFileTime: TFileTime; var lpLocalFileTime: TFileTime): BOOL; stdcall;
  4531. {$EXTERNALSYM FileTimeToLocalFileTime}
  4532. function LocalFileTimeToFileTime(const lpLocalFileTime: TFileTime; var lpFileTime: TFileTime): BOOL; stdcall;
  4533. {$EXTERNALSYM LocalFileTimeToFileTime}
  4534. function FileTimeToSystemTime(const lpFileTime: TFileTime; var lpSystemTime: TSystemTime): BOOL; stdcall;
  4535. {$EXTERNALSYM FileTimeToSystemTime}
  4536. function CompareFileTime(const lpFileTime1, lpFileTime2: TFileTime): Longint; stdcall;
  4537. {$EXTERNALSYM CompareFileTime}
  4538. function FileTimeToDosDateTime(const lpFileTime: TFileTime;
  4539.   var lpFatDate, lpFatTime: Word): BOOL; stdcall;
  4540. {$EXTERNALSYM FileTimeToDosDateTime}
  4541. function DosDateTimeToFileTime(wFatDate, wFatTime: Word; var lpFileTime: TFileTime): BOOL; stdcall;
  4542. {$EXTERNALSYM DosDateTimeToFileTime}
  4543. function GetTickCount: DWORD; stdcall;
  4544. {$EXTERNALSYM GetTickCount}
  4545. function SetSystemTimeAdjustment(dwTimeAdjustment: DWORD; bTimeAdjustmentDisabled: BOOL): BOOL; stdcall;
  4546. {$EXTERNALSYM SetSystemTimeAdjustment}
  4547. function GetSystemTimeAdjustment(var lpTimeAdjustment, lpTimeIncrement: DWORD;
  4548.   var lpTimeAdjustmentDisabled: BOOL): BOOL; stdcall;
  4549. {$EXTERNALSYM GetSystemTimeAdjustment}
  4550. function FormatMessageA(dwFlags: DWORD; lpSource: Pointer; dwMessageId: DWORD; dwLanguageId: DWORD;
  4551.   lpBuffer: PAnsiChar; nSize: DWORD; Arguments: Pointer): DWORD; stdcall;
  4552. {$EXTERNALSYM FormatMessageA}
  4553. function FormatMessageW(dwFlags: DWORD; lpSource: Pointer; dwMessageId: DWORD; dwLanguageId: DWORD;
  4554.   lpBuffer: PWideChar; nSize: DWORD; Arguments: Pointer): DWORD; stdcall;
  4555. {$EXTERNALSYM FormatMessageW}
  4556. function FormatMessage(dwFlags: DWORD; lpSource: Pointer; dwMessageId: DWORD; dwLanguageId: DWORD;
  4557.   lpBuffer: PChar; nSize: DWORD; Arguments: Pointer): DWORD; stdcall;
  4558. {$EXTERNALSYM FormatMessage}
  4559.  
  4560. const
  4561.   FORMAT_MESSAGE_ALLOCATE_BUFFER = $100;
  4562.   {$EXTERNALSYM FORMAT_MESSAGE_ALLOCATE_BUFFER}
  4563.   FORMAT_MESSAGE_IGNORE_INSERTS = $200;
  4564.   {$EXTERNALSYM FORMAT_MESSAGE_IGNORE_INSERTS}
  4565.   FORMAT_MESSAGE_FROM_STRING = $400;
  4566.   {$EXTERNALSYM FORMAT_MESSAGE_FROM_STRING}
  4567.   FORMAT_MESSAGE_FROM_HMODULE = $800;
  4568.   {$EXTERNALSYM FORMAT_MESSAGE_FROM_HMODULE}
  4569.   FORMAT_MESSAGE_FROM_SYSTEM = $1000;
  4570.   {$EXTERNALSYM FORMAT_MESSAGE_FROM_SYSTEM}
  4571.   FORMAT_MESSAGE_ARGUMENT_ARRAY = $2000;
  4572.   {$EXTERNALSYM FORMAT_MESSAGE_ARGUMENT_ARRAY}
  4573.   FORMAT_MESSAGE_MAX_WIDTH_MASK = 255;
  4574.   {$EXTERNALSYM FORMAT_MESSAGE_MAX_WIDTH_MASK}
  4575.  
  4576. function CreatePipe(var hReadPipe, hWritePipe: THandle;
  4577.   lpPipeAttributes: PSecurityAttributes; nSize: DWORD): BOOL; stdcall;
  4578. {$EXTERNALSYM CreatePipe}
  4579. function ConnectNamedPipe(hNamedPipe: THandle; lpOverlapped: POverlapped): BOOL; stdcall;
  4580. {$EXTERNALSYM ConnectNamedPipe}
  4581. function DisconnectNamedPipe(hNamedPipe: THandle): BOOL; stdcall;
  4582. {$EXTERNALSYM DisconnectNamedPipe}
  4583. function SetNamedPipeHandleState(hNamedPipe: THandle; var lpMode: DWORD;
  4584.   lpMaxCollectionCount, lpCollectDataTimeout: Pointer): BOOL; stdcall;
  4585. {$EXTERNALSYM SetNamedPipeHandleState}
  4586. function GetNamedPipeInfo(hNamedPipe: THandle; var lpFlags: DWORD;
  4587.   lpOutBufferSize, lpInBufferSize, lpMaxInstances: Pointer): BOOL; stdcall;
  4588. {$EXTERNALSYM GetNamedPipeInfo}
  4589. function PeekNamedPipe(hNamedPipe: THandle; lpBuffer: Pointer; nBufferSize: DWORD;
  4590.   lpBytesRead, lpTotalBytesAvail, lpBytesLeftThisMessage: Pointer): BOOL; stdcall;
  4591. {$EXTERNALSYM PeekNamedPipe}
  4592. function TransactNamedPipe(hNamedPipe: THandle; lpInBuffer: Pointer; nInBufferSize: DWORD;
  4593.   lpOutBuffer: Pointer; nOutBufferSize: DWORD; var lpBytesRead: DWORD;
  4594.   lpOverlapped: POverlapped): BOOL; stdcall;
  4595. {$EXTERNALSYM TransactNamedPipe}
  4596.  
  4597. function CreateMailslotA(lpName: PAnsiChar; nMaxMessageSize: DWORD;
  4598.   lReadTimeout: DWORD; lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  4599. {$EXTERNALSYM CreateMailslotA}
  4600. function CreateMailslotW(lpName: PWideChar; nMaxMessageSize: DWORD;
  4601.   lReadTimeout: DWORD; lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  4602. {$EXTERNALSYM CreateMailslotW}
  4603. function CreateMailslot(lpName: PChar; nMaxMessageSize: DWORD;
  4604.   lReadTimeout: DWORD; lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  4605. {$EXTERNALSYM CreateMailslot}
  4606. function GetMailslotInfo(hMailslot: THandle; lpMaxMessageSize: Pointer;
  4607.   var lpNextSize: DWORD; lpMessageCount, lpReadTimeout: Pointer): BOOL; stdcall;
  4608. {$EXTERNALSYM GetMailslotInfo}
  4609. function SetMailslotInfo(hMailslot: THandle; lReadTimeout: DWORD): BOOL; stdcall;
  4610. {$EXTERNALSYM SetMailslotInfo}
  4611. function MapViewOfFile(hFileMappingObject: THandle; dwDesiredAccess: DWORD;
  4612.   dwFileOffsetHigh, dwFileOffsetLow, dwNumberOfBytesToMap: DWORD): Pointer; stdcall;
  4613. {$EXTERNALSYM MapViewOfFile}
  4614. function FlushViewOfFile(const lpBaseAddress: Pointer; dwNumberOfBytesToFlush: DWORD): BOOL; stdcall;
  4615. {$EXTERNALSYM FlushViewOfFile}
  4616. function UnmapViewOfFile(lpBaseAddress: Pointer): BOOL; stdcall;
  4617. {$EXTERNALSYM UnmapViewOfFile}
  4618. function EncryptFileA(lpFilename: PAnsiChar): BOOL; stdcall;
  4619. {$EXTERNALSYM EncryptFileA}
  4620. function EncryptFileW(lpFilename: PWideChar): BOOL; stdcall;
  4621. {$EXTERNALSYM EncryptFileW}
  4622. function EncryptFile(lpFilename: PChar): BOOL; stdcall;
  4623. {$EXTERNALSYM EncryptFile}
  4624. function DecryptFileA(lpFilename: PAnsiChar; dwReserved: DWORD): BOOL; stdcall;
  4625. {$EXTERNALSYM DecryptFileA}
  4626. function DecryptFileW(lpFilename: PWideChar; dwReserved: DWORD): BOOL; stdcall;
  4627. {$EXTERNALSYM DecryptFileW}
  4628. function DecryptFile(lpFilename: PChar; dwReserved: DWORD): BOOL; stdcall;
  4629. {$EXTERNALSYM DecryptFile}
  4630.  
  4631. const
  4632.   { Currently defined recovery flags }
  4633.   EFS_USE_RECOVERY_KEYS = $1;
  4634.   {$EXTERNALSYM EFS_USE_RECOVERY_KEYS}
  4635.  
  4636. type
  4637.   TFNExportFunc = function (pbData, pvCallbackContext: Pointer; ulLength: ULONG): DWORD; stdcall;
  4638.   TFNImportFunc = function (pbData, pvCallbackContext: Pointer; ulLength: ULONG): DWORD; stdcall;
  4639.  
  4640. const
  4641.   { OpenRaw flag values }
  4642.   CREATE_FOR_IMPORT = 1;
  4643.   {$EXTERNALSYM CREATE_FOR_IMPORT}
  4644.   CREATE_FOR_DIR = 2;
  4645.   {$EXTERNALSYM CREATE_FOR_DIR}
  4646.  
  4647. function OpenRawA(lpFilename: PAnsiChar; ulFlags: ULONG; pvContext: Pointer): DWORD; stdcall;
  4648. {$EXTERNALSYM OpenRawA}
  4649. function OpenRawW(lpFilename: PWideChar; ulFlags: ULONG; pvContext: Pointer): DWORD; stdcall;
  4650. {$EXTERNALSYM OpenRawW}
  4651. function OpenRaw(lpFilename: PChar; ulFlags: ULONG; pvContext: Pointer): DWORD; stdcall;
  4652. {$EXTERNALSYM OpenRaw}
  4653. function ReadRaw(pfExportCallback: TFNExportFunc; pvCallbackContext, pvContext: Pointer): DWORD; stdcall;
  4654. {$EXTERNALSYM ReadRaw}
  4655. function WriteRaw(pfExportCallback: TFNImportFunc; pvCallbackContext, pvContext: Pointer): DWORD; stdcall;
  4656. {$EXTERNALSYM WriteRaw}
  4657. procedure CloseRaw(pvContext: Pointer); stdcall;
  4658. {$EXTERNALSYM CloseRaw}
  4659.  
  4660. type
  4661.   PRecoveryAgentInformationA = ^TRecoveryAgentInformationA;
  4662.   PRecoveryAgentInformationW = ^TRecoveryAgentInformationW;
  4663.   PRecoveryAgentInformation = PRecoveryAgentInformationA;
  4664.   _RECOVERY_AGENT_INFORMATIONA = record
  4665.     NextEntryOffset: DWORD;
  4666.     AgentNameLength: DWORD;
  4667.     AgentInformation: array[0..0] of CHAR;
  4668.   end;
  4669.   //{$EXTERNALSYM _RECOVERY_AGENT_INFORMATIONA}
  4670.   _RECOVERY_AGENT_INFORMATIONW = record
  4671.     NextEntryOffset: DWORD;
  4672.     AgentNameLength: DWORD;
  4673.     AgentInformation: array[0..0] of CHAR;
  4674.   end;
  4675.   //{$EXTERNALSYM _RECOVERY_AGENT_INFORMATIONW}
  4676.   _RECOVERY_AGENT_INFORMATION = _RECOVERY_AGENT_INFORMATIONA;
  4677.   TRecoveryAgentInformationA = _RECOVERY_AGENT_INFORMATIONA;
  4678.   TRecoveryAgentInformationW = _RECOVERY_AGENT_INFORMATIONW;
  4679.   TRecoveryAgentInformation = TRecoveryAgentInformationA;
  4680.   RECOVERY_AGENT_INFORMATIONA = _RECOVERY_AGENT_INFORMATIONA;
  4681.   //{$EXTERNALSYM RECOVERY_AGENT_INFORMATIONA}
  4682.   RECOVERY_AGENT_INFORMATIONW = _RECOVERY_AGENT_INFORMATIONW;
  4683.   //{$EXTERNALSYM RECOVERY_AGENT_INFORMATIONW}
  4684.   RECOVERY_AGENT_INFORMATION = RECOVERY_AGENT_INFORMATIONA;
  4685.  
  4686. function QueryRecoveryAgentsA(p1: PAnsiChar; var p2: Pointer; var p3: TRecoveryAgentInformationA): DWORD; stdcall;
  4687. {$EXTERNALSYM QueryRecoveryAgentsA}
  4688. function QueryRecoveryAgentsW(p1: PWideChar; var p2: Pointer; var p3: TRecoveryAgentInformationW): DWORD; stdcall;
  4689. {$EXTERNALSYM QueryRecoveryAgentsW}
  4690. function QueryRecoveryAgents(p1: PChar; var p2: Pointer; var p3: TRecoveryAgentInformation): DWORD; stdcall;
  4691. {$EXTERNALSYM QueryRecoveryAgents}
  4692.  
  4693. { _l Compat Functions }
  4694.  
  4695. function lstrcmpA(lpString1, lpString2: PAnsiChar): Integer; stdcall;
  4696. {$EXTERNALSYM lstrcmpA}
  4697. function lstrcmpW(lpString1, lpString2: PWideChar): Integer; stdcall;
  4698. {$EXTERNALSYM lstrcmpW}
  4699. function lstrcmp(lpString1, lpString2: PChar): Integer; stdcall;
  4700. {$EXTERNALSYM lstrcmp}
  4701. function lstrcmpiA(lpString1, lpString2: PAnsiChar): Integer; stdcall;
  4702. {$EXTERNALSYM lstrcmpiA}
  4703. function lstrcmpiW(lpString1, lpString2: PWideChar): Integer; stdcall;
  4704. {$EXTERNALSYM lstrcmpiW}
  4705. function lstrcmpi(lpString1, lpString2: PChar): Integer; stdcall;
  4706. {$EXTERNALSYM lstrcmpi}
  4707. function lstrcpynA(lpString1, lpString2: PAnsiChar; iMaxLength: Integer): PAnsiChar; stdcall;
  4708. {$EXTERNALSYM lstrcpynA}
  4709. function lstrcpynW(lpString1, lpString2: PWideChar; iMaxLength: Integer): PWideChar; stdcall;
  4710. {$EXTERNALSYM lstrcpynW}
  4711. function lstrcpyn(lpString1, lpString2: PChar; iMaxLength: Integer): PChar; stdcall;
  4712. {$EXTERNALSYM lstrcpyn}
  4713. function lstrcpyA(lpString1, lpString2: PAnsiChar): PAnsiChar; stdcall;
  4714. {$EXTERNALSYM lstrcpyA}
  4715. function lstrcpyW(lpString1, lpString2: PWideChar): PWideChar; stdcall;
  4716. {$EXTERNALSYM lstrcpyW}
  4717. function lstrcpy(lpString1, lpString2: PChar): PChar; stdcall;
  4718. {$EXTERNALSYM lstrcpy}
  4719. function lstrcatA(lpString1, lpString2: PAnsiChar): PAnsiChar; stdcall;
  4720. {$EXTERNALSYM lstrcatA}
  4721. function lstrcatW(lpString1, lpString2: PWideChar): PWideChar; stdcall;
  4722. {$EXTERNALSYM lstrcatW}
  4723. function lstrcat(lpString1, lpString2: PChar): PChar; stdcall;
  4724. {$EXTERNALSYM lstrcat}
  4725. function lstrlenA(lpString: PAnsiChar): Integer; stdcall;
  4726. {$EXTERNALSYM lstrlenA}
  4727. function lstrlenW(lpString: PWideChar): Integer; stdcall;
  4728. {$EXTERNALSYM lstrlenW}
  4729. function lstrlen(lpString: PChar): Integer; stdcall;
  4730. {$EXTERNALSYM lstrlen}
  4731.  
  4732. function OpenFile(const lpFileName: LPCSTR; var lpReOpenBuff: TOFStruct; uStyle: UINT): HFILE; stdcall;
  4733. {$EXTERNALSYM OpenFile}
  4734. function _lopen(const lpPathName: LPCSTR; iReadWrite: Integer): HFILE; stdcall;
  4735. {$EXTERNALSYM _lopen}
  4736. function _lcreat(const lpPathName: LPCSTR; iAttribute: Integer): HFILE; stdcall;
  4737. {$EXTERNALSYM _lcreat}
  4738. function _lread(hFile: HFILE; lpBuffer: Pointer; uBytes: UINT): UINT; stdcall;
  4739. {$EXTERNALSYM _lread}
  4740. function _lwrite(hFile: HFILE; const lpBuffer: LPCSTR; uBytes: UINT): UINT; stdcall;
  4741. {$EXTERNALSYM _lwrite}
  4742. function _hread(hFile: HFILE; lpBuffer: Pointer; lBytes: Longint): Longint; stdcall;
  4743. {$EXTERNALSYM _hread}
  4744. function _hwrite(hFile: HFILE; lpBuffer: LPCSTR; lBytes: Longint): Longint; stdcall;
  4745. {$EXTERNALSYM _hwrite}
  4746. function _lclose(hFile: HFILE): HFILE; stdcall;
  4747. {$EXTERNALSYM _lclose}
  4748. function _llseek(hFile: HFILE; lOffset: Longint; iOrigin: Integer): Longint; stdcall;
  4749. {$EXTERNALSYM _llseek}
  4750. function IsTextUnicode(lpBuffer: Pointer; cb: Integer; lpi: PINT): BOOL; stdcall;
  4751. {$EXTERNALSYM IsTextUnicode}
  4752. function TlsAlloc: DWORD; stdcall;
  4753. {$EXTERNALSYM TlsAlloc}
  4754.  
  4755. const
  4756.   TLS_OUT_OF_INDEXES = DWORD($FFFFFFFF);
  4757.   {$EXTERNALSYM TLS_OUT_OF_INDEXES}
  4758.  
  4759. function TlsGetValue(dwTlsIndex: DWORD): Pointer; stdcall;
  4760. {$EXTERNALSYM TlsGetValue}
  4761. function TlsSetValue(dwTlsIndex: DWORD; lpTlsValue: Pointer): BOOL; stdcall;
  4762. {$EXTERNALSYM TlsSetValue}
  4763. function TlsFree(dwTlsIndex: DWORD): BOOL; stdcall;
  4764. {$EXTERNALSYM TlsFree}
  4765.  
  4766. type
  4767.  
  4768.  
  4769.  
  4770.  
  4771.   TPROverlappedCompletionRoutine = TFarProc;
  4772.  
  4773. function SleepEx(dwMilliseconds: DWORD; bAlertable: BOOL): DWORD; stdcall;
  4774. {$EXTERNALSYM SleepEx}
  4775. function WaitForSingleObjectEx(hHandle: THandle; dwMilliseconds: DWORD; bAlertable: BOOL): DWORD; stdcall;
  4776. {$EXTERNALSYM WaitForSingleObjectEx}
  4777. function WaitForMultipleObjectsEx(nCount: DWORD; lpHandles: PWOHandleArray;
  4778.   bWaitAll: BOOL; dwMilliseconds: DWORD; bAlertable: BOOL): DWORD; stdcall;
  4779. {$EXTERNALSYM WaitForMultipleObjectsEx}
  4780. function SignalObjectAndWait(hObjectToSignal: THandle; hObjectToWaitOn: THandle;
  4781.   dwMilliseconds: DWORD; bAlertable: BOOL): BOOL; stdcall;
  4782. {$EXTERNALSYM SignalObjectAndWait}
  4783. function ReadFileEx(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
  4784.   lpOverlapped: POverlapped; lpCompletionRoutine: TPROverlappedCompletionRoutine): BOOL; stdcall;
  4785. {$EXTERNALSYM ReadFileEx}
  4786. function WriteFileEx(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToWrite: DWORD;
  4787.   const lpOverlapped: TOverlapped; lpCompletionRoutine: FARPROC): BOOL; stdcall;
  4788. {$EXTERNALSYM WriteFileEx}
  4789. function BackupRead(hFile: THandle; lpBuffer: PByte; nNumberOfBytesToRead: DWORD;
  4790.   var lpNumberOfBytesRead: DWORD; bAbort: BOOL;
  4791.   bProcessSecurity: BOOL; var lpContext: Pointer): BOOL; stdcall;
  4792. {$EXTERNALSYM BackupRead}
  4793. function BackupSeek(hFile: THandle; dwLowBytesToSeek, dwHighBytesToSeek: DWORD;
  4794.   var lpdwLowByteSeeked, lpdwHighByteSeeked: DWORD; lpContext: Pointer): BOOL; stdcall;
  4795. {$EXTERNALSYM BackupSeek}
  4796. function BackupWrite(hFile: THandle; lpBuffer: PByte; nNumberOfBytesToWrite: DWORD;
  4797.   var lpNumberOfBytesWritten: DWORD; bAbort, bProcessSecurity: BOOL; var lpContext: Pointer): BOOL; stdcall;
  4798. {$EXTERNALSYM BackupWrite}
  4799.  
  4800. type
  4801.   PWIN32StreamID = ^TWIN32StreamID;
  4802.   _WIN32_STREAM_ID = record
  4803.     dwStreamId: DWORD;
  4804.     dwStreamAttributes: DWORD;
  4805.     Size: TLargeInteger;
  4806.     dwStreamNameSize: DWORD;
  4807.     cStreamName: array[0..0] of WCHAR;
  4808.   end;
  4809.   {$EXTERNALSYM _WIN32_STREAM_ID}
  4810.   TWIN32StreamID = _WIN32_STREAM_ID;
  4811.   WIN32_STREAM_ID = _WIN32_STREAM_ID;
  4812.   {$EXTERNALSYM WIN32_STREAM_ID}
  4813.  
  4814. const
  4815.   { Stream IDs }
  4816.   BACKUP_INVALID = 0;
  4817.   {$EXTERNALSYM BACKUP_INVALID}
  4818.   BACKUP_DATA = 1;
  4819.   {$EXTERNALSYM BACKUP_DATA}
  4820.   BACKUP_EA_DATA = 2;
  4821.   {$EXTERNALSYM BACKUP_EA_DATA}
  4822.   BACKUP_SECURITY_DATA = 3;
  4823.   {$EXTERNALSYM BACKUP_SECURITY_DATA}
  4824.   BACKUP_ALTERNATE_DATA = 4;
  4825.   {$EXTERNALSYM BACKUP_ALTERNATE_DATA}
  4826.   BACKUP_LINK = 5;
  4827.   {$EXTERNALSYM BACKUP_LINK}
  4828.   BACKUP_PROPERTY_DATA = 6;
  4829.   {$EXTERNALSYM BACKUP_PROPERTY_DATA}
  4830.  
  4831.   { Stream Attributes}
  4832.   STREAM_NORMAL_ATTRIBUTE = 0;
  4833.   {$EXTERNALSYM STREAM_NORMAL_ATTRIBUTE}
  4834.   STREAM_MODIFIED_WHEN_READ = 1;
  4835.   {$EXTERNALSYM STREAM_MODIFIED_WHEN_READ}
  4836.   STREAM_CONTAINS_SECURITY = 2;
  4837.   {$EXTERNALSYM STREAM_CONTAINS_SECURITY}
  4838.   STREAM_CONTAINS_PROPERTIES = 4;
  4839.   {$EXTERNALSYM STREAM_CONTAINS_PROPERTIES}
  4840.  
  4841.   { Dual Mode API below this line. Dual Mode Structures also included. }
  4842.   STARTF_USESHOWWINDOW = 1;
  4843.   {$EXTERNALSYM STARTF_USESHOWWINDOW}
  4844.   STARTF_USESIZE = 2;
  4845.   {$EXTERNALSYM STARTF_USESIZE}
  4846.   STARTF_USEPOSITION = 4;
  4847.   {$EXTERNALSYM STARTF_USEPOSITION}
  4848.   STARTF_USECOUNTCHARS = 8;
  4849.   {$EXTERNALSYM STARTF_USECOUNTCHARS}
  4850.   STARTF_USEFILLATTRIBUTE = $10;
  4851.   {$EXTERNALSYM STARTF_USEFILLATTRIBUTE}
  4852.   STARTF_RUNFULLSCREEN = $20;  { ignored for non-x86 platforms }
  4853.   {$EXTERNALSYM STARTF_RUNFULLSCREEN}
  4854.   STARTF_FORCEONFEEDBACK = $40;
  4855.   {$EXTERNALSYM STARTF_FORCEONFEEDBACK}
  4856.   STARTF_FORCEOFFFEEDBACK = $80;
  4857.   {$EXTERNALSYM STARTF_FORCEOFFFEEDBACK}
  4858.   STARTF_USESTDHANDLES = $100;
  4859.   {$EXTERNALSYM STARTF_USESTDHANDLES}
  4860.   STARTF_USEHOTKEY = $200;
  4861.   {$EXTERNALSYM STARTF_USEHOTKEY}
  4862.  
  4863. type
  4864.   PStartupInfo = ^TStartupInfo;
  4865.   _STARTUPINFOA = record
  4866.     cb: DWORD;
  4867.     lpReserved: Pointer;
  4868.     lpDesktop: Pointer;
  4869.     lpTitle: Pointer;
  4870.     dwX: DWORD;
  4871.     dwY: DWORD;
  4872.     dwXSize: DWORD;
  4873.     dwYSize: DWORD;
  4874.     dwXCountChars: DWORD;
  4875.     dwYCountChars: DWORD;
  4876.     dwFillAttribute: DWORD;
  4877.     dwFlags: DWORD;
  4878.     wShowWindow: Word;
  4879.     cbReserved2: Word;
  4880.     lpReserved2: PByte;
  4881.     hStdInput: THandle;
  4882.     hStdOutput: THandle;
  4883.     hStdError: THandle;
  4884.   end;
  4885.   {$EXTERNALSYM _STARTUPINFOA}
  4886.   TStartupInfo = _STARTUPINFOA;
  4887.   STARTUPINFO = _STARTUPINFOA;
  4888.   {$EXTERNALSYM STARTUPINFO}
  4889.  
  4890. const
  4891.   SHUTDOWN_NORETRY = 1;
  4892.   {$EXTERNALSYM SHUTDOWN_NORETRY}
  4893.  
  4894. type
  4895.   PWin32FindDataA = ^TWin32FindDataA;
  4896.   PWin32FindDataW = ^TWin32FindDataW;
  4897.   PWin32FindData = PWin32FindDataA;
  4898.   _WIN32_FIND_DATAA = record
  4899.     dwFileAttributes: DWORD;
  4900.     ftCreationTime: TFileTime;
  4901.     ftLastAccessTime: TFileTime;
  4902.     ftLastWriteTime: TFileTime;
  4903.     nFileSizeHigh: DWORD;
  4904.     nFileSizeLow: DWORD;
  4905.     dwReserved0: DWORD;
  4906.     dwReserved1: DWORD;
  4907.     cFileName: array[0..MAX_PATH - 1] of AnsiChar;
  4908.     cAlternateFileName: array[0..13] of AnsiChar;
  4909.   end;
  4910.   {$EXTERNALSYM _WIN32_FIND_DATAA}
  4911.   _WIN32_FIND_DATAW = record
  4912.     dwFileAttributes: DWORD;
  4913.     ftCreationTime: TFileTime;
  4914.     ftLastAccessTime: TFileTime;
  4915.     ftLastWriteTime: TFileTime;
  4916.     nFileSizeHigh: DWORD;
  4917.     nFileSizeLow: DWORD;
  4918.     dwReserved0: DWORD;
  4919.     dwReserved1: DWORD;
  4920.     cFileName: array[0..MAX_PATH - 1] of WideChar;
  4921.     cAlternateFileName: array[0..13] of WideChar;
  4922.   end;
  4923.   {$EXTERNALSYM _WIN32_FIND_DATAW}
  4924.   _WIN32_FIND_DATA = _WIN32_FIND_DATAA;
  4925.   TWin32FindDataA = _WIN32_FIND_DATAA;
  4926.   TWin32FindDataW = _WIN32_FIND_DATAW;
  4927.   TWin32FindData = TWin32FindDataA;
  4928.   {$EXTERNALSYM WIN32_FIND_DATAA}
  4929.   WIN32_FIND_DATAA = _WIN32_FIND_DATAA;
  4930.   {$EXTERNALSYM WIN32_FIND_DATAW}
  4931.   WIN32_FIND_DATAW = _WIN32_FIND_DATAW;
  4932.   {$EXTERNALSYM WIN32_FIND_DATA}
  4933.   WIN32_FIND_DATA = WIN32_FIND_DATAA;
  4934.  
  4935.   PWin32FileAttributeData = ^TWin32FileAttributeData;
  4936.   _WIN32_FILE_ATTRIBUTE_DATA = record
  4937.     dwFileAttributes: DWORD;
  4938.     ftCreationTime: TFileTime;
  4939.     ftLastAccessTime: TFileTime;
  4940.     ftLastWriteTime: TFileTime;
  4941.     nFileSizeHigh: DWORD;
  4942.     nFileSizeLow: DWORD;
  4943.   end;
  4944.   {$EXTERNALSYM _WIN32_FILE_ATTRIBUTE_DATA}
  4945.   TWin32FileAttributeData = _WIN32_FILE_ATTRIBUTE_DATA;
  4946.   WIN32_FILE_ATTRIBUTE_DATA = _WIN32_FILE_ATTRIBUTE_DATA;
  4947.   {$EXTERNALSYM WIN32_FILE_ATTRIBUTE_DATA}
  4948.  
  4949. function CreateMutexA(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4950. {$EXTERNALSYM CreateMutexA}
  4951. function CreateMutexW(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PWideChar): THandle; stdcall;
  4952. {$EXTERNALSYM CreateMutexW}
  4953. function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle; stdcall;
  4954. {$EXTERNALSYM CreateMutex}
  4955. function OpenMutexA(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4956. {$EXTERNALSYM OpenMutexA}
  4957. function OpenMutexW(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PWideChar): THandle; stdcall;
  4958. {$EXTERNALSYM OpenMutexW}
  4959. function OpenMutex(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PChar): THandle; stdcall;
  4960. {$EXTERNALSYM OpenMutex}
  4961. function CreateEventA(lpEventAttributes: PSecurityAttributes;
  4962.   bManualReset, bInitialState: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4963. {$EXTERNALSYM CreateEventA}
  4964. function CreateEventW(lpEventAttributes: PSecurityAttributes;
  4965.   bManualReset, bInitialState: BOOL; lpName: PWideChar): THandle; stdcall;
  4966. {$EXTERNALSYM CreateEventW}
  4967. function CreateEvent(lpEventAttributes: PSecurityAttributes;
  4968.   bManualReset, bInitialState: BOOL; lpName: PChar): THandle; stdcall;
  4969. {$EXTERNALSYM CreateEvent}
  4970. {$EXTERNALSYM OpenEventA}
  4971. function OpenEventA(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4972. {$EXTERNALSYM OpenEventW}
  4973. function OpenEventW(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PWideChar): THandle; stdcall;
  4974. {$EXTERNALSYM OpenEvent}
  4975. function OpenEvent(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PChar): THandle; stdcall;
  4976. function CreateSemaphoreA(lpSemaphoreAttributes: PSecurityAttributes;
  4977.   lInitialCount, lMaximumCount: Longint; lpName: PAnsiChar): THandle; stdcall;
  4978. {$EXTERNALSYM CreateSemaphoreA}
  4979. function CreateSemaphoreW(lpSemaphoreAttributes: PSecurityAttributes;
  4980.   lInitialCount, lMaximumCount: Longint; lpName: PWideChar): THandle; stdcall;
  4981. {$EXTERNALSYM CreateSemaphoreW}
  4982. function CreateSemaphore(lpSemaphoreAttributes: PSecurityAttributes;
  4983.   lInitialCount, lMaximumCount: Longint; lpName: PChar): THandle; stdcall;
  4984. {$EXTERNALSYM CreateSemaphore}
  4985. function OpenSemaphoreA(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PAnsiChar): THandle; stdcall;
  4986. {$EXTERNALSYM OpenSemaphoreA}
  4987. function OpenSemaphoreW(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PWideChar): THandle; stdcall;
  4988. {$EXTERNALSYM OpenSemaphoreW}
  4989. function OpenSemaphore(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PChar): THandle; stdcall;
  4990. {$EXTERNALSYM OpenSemaphore}
  4991.  
  4992. type
  4993.  
  4994.  
  4995.  
  4996.   TFNTimerAPCRoutine = TFarProc;
  4997.  
  4998. function CreateWaitableTimerA(lpTimerAttributes: PSecurityAttributes; bManualReset: BOOL; lpTimerName: PAnsiChar): THandle; stdcall;
  4999. {$EXTERNALSYM CreateWaitableTimerA}
  5000. function CreateWaitableTimerW(lpTimerAttributes: PSecurityAttributes; bManualReset: BOOL; lpTimerName: PWideChar): THandle; stdcall;
  5001. {$EXTERNALSYM CreateWaitableTimerW}
  5002. function CreateWaitableTimer(lpTimerAttributes: PSecurityAttributes; bManualReset: BOOL; lpTimerName: PChar): THandle; stdcall;
  5003. {$EXTERNALSYM CreateWaitableTimer}
  5004. function OpenWaitableTimerA(dwDesiredAccess: DWORD; bInheritHandle: BOOL;
  5005.   lpTimerName: PAnsiChar): THandle; stdcall;
  5006. {$EXTERNALSYM OpenWaitableTimerA}
  5007. function OpenWaitableTimerW(dwDesiredAccess: DWORD; bInheritHandle: BOOL;
  5008.   lpTimerName: PWideChar): THandle; stdcall;
  5009. {$EXTERNALSYM OpenWaitableTimerW}
  5010. function OpenWaitableTimer(dwDesiredAccess: DWORD; bInheritHandle: BOOL;
  5011.   lpTimerName: PChar): THandle; stdcall;
  5012. {$EXTERNALSYM OpenWaitableTimer}
  5013. function SetWaitableTimer(hTimer: THandle; var lpDueTime: TLargeInteger;
  5014.   lPeriod: Longint; pfnCompletionRoutine: TFNTimerAPCRoutine;
  5015.   lpArgToCompletionRoutine: Pointer; fResume: BOOL): BOOL; stdcall;
  5016. {$EXTERNALSYM SetWaitableTimer}
  5017. function CancelWaitableTimer(hTimer: THandle): BOOL; stdcall;
  5018. {$EXTERNALSYM CancelWaitableTimer}
  5019. function CreateFileMappingA(hFile: THandle; lpFileMappingAttributes: PSecurityAttributes;
  5020.   flProtect, dwMaximumSizeHigh, dwMaximumSizeLow: DWORD; lpName: PAnsiChar): THandle; stdcall;
  5021. {$EXTERNALSYM CreateFileMappingA}
  5022. function CreateFileMappingW(hFile: THandle; lpFileMappingAttributes: PSecurityAttributes;
  5023.   flProtect, dwMaximumSizeHigh, dwMaximumSizeLow: DWORD; lpName: PWideChar): THandle; stdcall;
  5024. {$EXTERNALSYM CreateFileMappingW}
  5025. function CreateFileMapping(hFile: THandle; lpFileMappingAttributes: PSecurityAttributes;
  5026.   flProtect, dwMaximumSizeHigh, dwMaximumSizeLow: DWORD; lpName: PChar): THandle; stdcall;
  5027. {$EXTERNALSYM CreateFileMapping}
  5028. function OpenFileMappingA(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PAnsiChar): THandle; stdcall;
  5029. {$EXTERNALSYM OpenFileMappingA}
  5030. function OpenFileMappingW(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PWideChar): THandle; stdcall;
  5031. {$EXTERNALSYM OpenFileMappingW}
  5032. function OpenFileMapping(dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PChar): THandle; stdcall;
  5033. {$EXTERNALSYM OpenFileMapping}
  5034. function GetLogicalDriveStringsA(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; stdcall;
  5035. {$EXTERNALSYM GetLogicalDriveStringsA}
  5036. function GetLogicalDriveStringsW(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; stdcall;
  5037. {$EXTERNALSYM GetLogicalDriveStringsW}
  5038. function GetLogicalDriveStrings(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; stdcall;
  5039. {$EXTERNALSYM GetLogicalDriveStrings}
  5040. function LoadLibraryA(lpLibFileName: PAnsiChar): HMODULE; stdcall;
  5041. {$EXTERNALSYM LoadLibraryA}
  5042. function LoadLibraryW(lpLibFileName: PWideChar): HMODULE; stdcall;
  5043. {$EXTERNALSYM LoadLibraryW}
  5044. function LoadLibrary(lpLibFileName: PChar): HMODULE; stdcall;
  5045. {$EXTERNALSYM LoadLibrary}
  5046. function LoadLibraryExA(lpLibFileName: PAnsiChar; hFile: THandle; dwFlags: DWORD): HMODULE; stdcall;
  5047. {$EXTERNALSYM LoadLibraryExA}
  5048. function LoadLibraryExW(lpLibFileName: PWideChar; hFile: THandle; dwFlags: DWORD): HMODULE; stdcall;
  5049. {$EXTERNALSYM LoadLibraryExW}
  5050. function LoadLibraryEx(lpLibFileName: PChar; hFile: THandle; dwFlags: DWORD): HMODULE; stdcall;
  5051. {$EXTERNALSYM LoadLibraryEx}
  5052.  
  5053. const
  5054.   DONT_RESOLVE_DLL_REFERENCES = 1;
  5055.   {$EXTERNALSYM DONT_RESOLVE_DLL_REFERENCES}
  5056.   LOAD_LIBRARY_AS_DATAFILE = 2;
  5057.   {$EXTERNALSYM LOAD_LIBRARY_AS_DATAFILE}
  5058.   LOAD_WITH_ALTERED_SEARCH_PATH = 8;
  5059.   {$EXTERNALSYM LOAD_WITH_ALTERED_SEARCH_PATH}
  5060.  
  5061. function GetModuleFileNameA(hModule: HINST; lpFilename: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  5062. {$EXTERNALSYM GetModuleFileNameA}
  5063. function GetModuleFileNameW(hModule: HINST; lpFilename: PWideChar; nSize: DWORD): DWORD; stdcall;
  5064. {$EXTERNALSYM GetModuleFileNameW}
  5065. function GetModuleFileName(hModule: HINST; lpFilename: PChar; nSize: DWORD): DWORD; stdcall;
  5066. {$EXTERNALSYM GetModuleFileName}
  5067. function GetModuleHandleA(lpModuleName: PAnsiChar): HMODULE; stdcall;
  5068. {$EXTERNALSYM GetModuleHandleA}
  5069. function GetModuleHandleW(lpModuleName: PWideChar): HMODULE; stdcall;
  5070. {$EXTERNALSYM GetModuleHandleW}
  5071. function GetModuleHandle(lpModuleName: PChar): HMODULE; stdcall;
  5072. {$EXTERNALSYM GetModuleHandle}
  5073. function CreateProcessA(lpApplicationName: PAnsiChar; lpCommandLine: PAnsiChar;
  5074.   lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
  5075.   bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
  5076.   lpCurrentDirectory: PAnsiChar; const lpStartupInfo: TStartupInfo;
  5077.   var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  5078. {$EXTERNALSYM CreateProcessA}
  5079. function CreateProcessW(lpApplicationName: PWideChar; lpCommandLine: PWideChar;
  5080.   lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
  5081.   bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
  5082.   lpCurrentDirectory: PWideChar; const lpStartupInfo: TStartupInfo;
  5083.   var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  5084. {$EXTERNALSYM CreateProcessW}
  5085. function CreateProcess(lpApplicationName: PChar; lpCommandLine: PChar;
  5086.   lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
  5087.   bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
  5088.   lpCurrentDirectory: PChar; const lpStartupInfo: TStartupInfo;
  5089.   var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  5090. {$EXTERNALSYM CreateProcess}
  5091. function SetProcessShutdownParameters(dwLevel, dwFlags: DWORD): BOOL; stdcall;
  5092. {$EXTERNALSYM SetProcessShutdownParameters}
  5093. function GetProcessShutdownParameters(var lpdwLevel, lpdwFlags: DWORD): BOOL; stdcall;
  5094. {$EXTERNALSYM GetProcessShutdownParameters}
  5095. function GetProcessVersion(ProcessId: DWORD): DWORD; stdcall;
  5096. {$EXTERNALSYM GetProcessVersion}
  5097. procedure FatalAppExitA(uAction: UINT; lpMessageText: PAnsiChar); stdcall;
  5098. {$EXTERNALSYM FatalAppExitA}
  5099. procedure FatalAppExitW(uAction: UINT; lpMessageText: PWideChar); stdcall;
  5100. {$EXTERNALSYM FatalAppExitW}
  5101. procedure FatalAppExit(uAction: UINT; lpMessageText: PChar); stdcall;
  5102. {$EXTERNALSYM FatalAppExit}
  5103. procedure GetStartupInfoA(var lpStartupInfo: TStartupInfo); stdcall;
  5104. {$EXTERNALSYM GetStartupInfoA}
  5105. procedure GetStartupInfoW(var lpStartupInfo: TStartupInfo); stdcall;
  5106. {$EXTERNALSYM GetStartupInfoW}
  5107. procedure GetStartupInfo(var lpStartupInfo: TStartupInfo); stdcall;
  5108. {$EXTERNALSYM GetStartupInfo}
  5109. function GetCommandLineA: PAnsiChar; stdcall;
  5110. {$EXTERNALSYM GetCommandLineA}
  5111. function GetCommandLineW: PWideChar; stdcall;
  5112. {$EXTERNALSYM GetCommandLineW}
  5113. function GetCommandLine: PChar; stdcall;
  5114. {$EXTERNALSYM GetCommandLine}
  5115. function GetEnvironmentVariableA(lpName: PAnsiChar; lpBuffer: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  5116. {$EXTERNALSYM GetEnvironmentVariableA}
  5117. function GetEnvironmentVariableW(lpName: PWideChar; lpBuffer: PWideChar; nSize: DWORD): DWORD; stdcall;
  5118. {$EXTERNALSYM GetEnvironmentVariableW}
  5119. function GetEnvironmentVariable(lpName: PChar; lpBuffer: PChar; nSize: DWORD): DWORD; stdcall;
  5120. {$EXTERNALSYM GetEnvironmentVariable}
  5121. function SetEnvironmentVariableA(lpName, lpValue: PAnsiChar): BOOL; stdcall;
  5122. {$EXTERNALSYM SetEnvironmentVariableA}
  5123. function SetEnvironmentVariableW(lpName, lpValue: PWideChar): BOOL; stdcall;
  5124. {$EXTERNALSYM SetEnvironmentVariableW}
  5125. function SetEnvironmentVariable(lpName, lpValue: PChar): BOOL; stdcall;
  5126. {$EXTERNALSYM SetEnvironmentVariable}
  5127. function ExpandEnvironmentStringsA(lpSrc: PAnsiChar; lpDst: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  5128. {$EXTERNALSYM ExpandEnvironmentStringsA}
  5129. function ExpandEnvironmentStringsW(lpSrc: PWideChar; lpDst: PWideChar; nSize: DWORD): DWORD; stdcall;
  5130. {$EXTERNALSYM ExpandEnvironmentStringsW}
  5131. function ExpandEnvironmentStrings(lpSrc: PChar; lpDst: PChar; nSize: DWORD): DWORD; stdcall;
  5132. {$EXTERNALSYM ExpandEnvironmentStrings}
  5133. procedure OutputDebugStringA(lpOutputString: PAnsiChar); stdcall;
  5134. {$EXTERNALSYM OutputDebugStringA}
  5135. procedure OutputDebugStringW(lpOutputString: PWideChar); stdcall;
  5136. {$EXTERNALSYM OutputDebugStringW}
  5137. procedure OutputDebugString(lpOutputString: PChar); stdcall;
  5138. {$EXTERNALSYM OutputDebugString}
  5139. function FindResourceA(hModule: HMODULE; lpName, lpType: PAnsiChar): HRSRC; stdcall;
  5140. {$EXTERNALSYM FindResourceA}
  5141. function FindResourceW(hModule: HMODULE; lpName, lpType: PWideChar): HRSRC; stdcall;
  5142. {$EXTERNALSYM FindResourceW}
  5143. function FindResource(hModule: HMODULE; lpName, lpType: PChar): HRSRC; stdcall;
  5144. {$EXTERNALSYM FindResource}
  5145. function FindResourceExA(hModule: HMODULE; lpType, lpName: PAnsiChar; wLanguage: Word): HRSRC; stdcall;
  5146. {$EXTERNALSYM FindResourceExA}
  5147. function FindResourceExW(hModule: HMODULE; lpType, lpName: PWideChar; wLanguage: Word): HRSRC; stdcall;
  5148. {$EXTERNALSYM FindResourceExW}
  5149. function FindResourceEx(hModule: HMODULE; lpType, lpName: PChar; wLanguage: Word): HRSRC; stdcall;
  5150. {$EXTERNALSYM FindResourceEx}
  5151.  
  5152. type
  5153.   ENUMRESTYPEPROC = FARPROC;
  5154.   {$EXTERNALSYM ENUMRESTYPEPROC}
  5155.   ENUMRESNAMEPROC = FARPROC;
  5156.   {$EXTERNALSYM ENUMRESNAMEPROC}
  5157.   ENUMRESLANGPROC = FARPROC;
  5158.   {$EXTERNALSYM ENUMRESLANGPROC}
  5159.  
  5160. function EnumResourceTypesA(hModule: HMODULE; lpEnumFunc: ENUMRESTYPEPROC;
  5161.   lParam: Longint): BOOL; stdcall;
  5162. {$EXTERNALSYM EnumResourceTypesA}
  5163. function EnumResourceTypesW(hModule: HMODULE; lpEnumFunc: ENUMRESTYPEPROC;
  5164.   lParam: Longint): BOOL; stdcall;
  5165. {$EXTERNALSYM EnumResourceTypesW}
  5166. function EnumResourceTypes(hModule: HMODULE; lpEnumFunc: ENUMRESTYPEPROC;
  5167.   lParam: Longint): BOOL; stdcall;
  5168. {$EXTERNALSYM EnumResourceTypes}
  5169. function EnumResourceNamesA(hModule: HMODULE; lpType: PAnsiChar;
  5170.   lpEnumFunc: ENUMRESNAMEPROC; lParam: Longint): BOOL; stdcall;
  5171. {$EXTERNALSYM EnumResourceNamesA}
  5172. function EnumResourceNamesW(hModule: HMODULE; lpType: PWideChar;
  5173.   lpEnumFunc: ENUMRESNAMEPROC; lParam: Longint): BOOL; stdcall;
  5174. {$EXTERNALSYM EnumResourceNamesW}
  5175. function EnumResourceNames(hModule: HMODULE; lpType: PChar;
  5176.   lpEnumFunc: ENUMRESNAMEPROC; lParam: Longint): BOOL; stdcall;
  5177. {$EXTERNALSYM EnumResourceNames}
  5178. function EnumResourceLanguagesA(hModule: HMODULE; lpType, lpName: PAnsiChar;
  5179.   lpEnumFunc: ENUMRESLANGPROC; lParam: Longint): BOOL; stdcall;
  5180. {$EXTERNALSYM EnumResourceLanguagesA}
  5181. function EnumResourceLanguagesW(hModule: HMODULE; lpType, lpName: PWideChar;
  5182.   lpEnumFunc: ENUMRESLANGPROC; lParam: Longint): BOOL; stdcall;
  5183. {$EXTERNALSYM EnumResourceLanguagesW}
  5184. function EnumResourceLanguages(hModule: HMODULE; lpType, lpName: PChar;
  5185.   lpEnumFunc: ENUMRESLANGPROC; lParam: Longint): BOOL; stdcall;
  5186. {$EXTERNALSYM EnumResourceLanguages}
  5187. function BeginUpdateResourceA(pFileName: PAnsiChar; bDeleteExistingResources: BOOL): THandle; stdcall;
  5188. {$EXTERNALSYM BeginUpdateResourceA}
  5189. function BeginUpdateResourceW(pFileName: PWideChar; bDeleteExistingResources: BOOL): THandle; stdcall;
  5190. {$EXTERNALSYM BeginUpdateResourceW}
  5191. function BeginUpdateResource(pFileName: PChar; bDeleteExistingResources: BOOL): THandle; stdcall;
  5192. {$EXTERNALSYM BeginUpdateResource}
  5193. function UpdateResourceA(hUpdate: THandle; lpType, lpName: PAnsiChar;
  5194.   wLanguage: Word; lpData: Pointer; cbData: DWORD): BOOL; stdcall;
  5195. {$EXTERNALSYM UpdateResourceA}
  5196. function UpdateResourceW(hUpdate: THandle; lpType, lpName: PWideChar;
  5197.   wLanguage: Word; lpData: Pointer; cbData: DWORD): BOOL; stdcall;
  5198. {$EXTERNALSYM UpdateResourceW}
  5199. function UpdateResource(hUpdate: THandle; lpType, lpName: PChar;
  5200.   wLanguage: Word; lpData: Pointer; cbData: DWORD): BOOL; stdcall;
  5201. {$EXTERNALSYM UpdateResource}
  5202. function EndUpdateResourceA(hUpdate: THandle; fDiscard: BOOL): BOOL; stdcall;
  5203. {$EXTERNALSYM EndUpdateResourceA}
  5204. function EndUpdateResourceW(hUpdate: THandle; fDiscard: BOOL): BOOL; stdcall;
  5205. {$EXTERNALSYM EndUpdateResourceW}
  5206. function EndUpdateResource(hUpdate: THandle; fDiscard: BOOL): BOOL; stdcall;
  5207. {$EXTERNALSYM EndUpdateResource}
  5208. function GlobalAddAtomA(lpString: PAnsiChar): ATOM; stdcall;
  5209. {$EXTERNALSYM GlobalAddAtomA}
  5210. function GlobalAddAtomW(lpString: PWideChar): ATOM; stdcall;
  5211. {$EXTERNALSYM GlobalAddAtomW}
  5212. function GlobalAddAtom(lpString: PChar): ATOM; stdcall;
  5213. {$EXTERNALSYM GlobalAddAtom}
  5214. function GlobalFindAtomA(lpString: PAnsiChar): ATOM; stdcall;
  5215. {$EXTERNALSYM GlobalFindAtomA}
  5216. function GlobalFindAtomW(lpString: PWideChar): ATOM; stdcall;
  5217. {$EXTERNALSYM GlobalFindAtomW}
  5218. function GlobalFindAtom(lpString: PChar): ATOM; stdcall;
  5219. {$EXTERNALSYM GlobalFindAtom}
  5220. function GlobalGetAtomNameA(nAtom: ATOM; lpBuffer: PAnsiChar; nSize: Integer): UINT; stdcall;
  5221. {$EXTERNALSYM GlobalGetAtomNameA}
  5222. function GlobalGetAtomNameW(nAtom: ATOM; lpBuffer: PWideChar; nSize: Integer): UINT; stdcall;
  5223. {$EXTERNALSYM GlobalGetAtomNameW}
  5224. function GlobalGetAtomName(nAtom: ATOM; lpBuffer: PChar; nSize: Integer): UINT; stdcall;
  5225. {$EXTERNALSYM GlobalGetAtomName}
  5226. function AddAtomA(lpString: PAnsiChar): ATOM; stdcall;
  5227. {$EXTERNALSYM AddAtomA}
  5228. function AddAtomW(lpString: PWideChar): ATOM; stdcall;
  5229. {$EXTERNALSYM AddAtomW}
  5230. function AddAtom(lpString: PChar): ATOM; stdcall;
  5231. {$EXTERNALSYM AddAtom}
  5232. function FindAtomA(lpString: PAnsiChar): ATOM; stdcall;
  5233. {$EXTERNALSYM FindAtomA}
  5234. function FindAtomW(lpString: PWideChar): ATOM; stdcall;
  5235. {$EXTERNALSYM FindAtomW}
  5236. function FindAtom(lpString: PChar): ATOM; stdcall;
  5237. {$EXTERNALSYM FindAtom}
  5238. function GetAtomNameA(nAtom: ATOM; lpBuffer: PAnsiChar; nSize: Integer): UINT; stdcall;
  5239. {$EXTERNALSYM GetAtomNameA}
  5240. function GetAtomNameW(nAtom: ATOM; lpBuffer: PWideChar; nSize: Integer): UINT; stdcall;
  5241. {$EXTERNALSYM GetAtomNameW}
  5242. function GetAtomName(nAtom: ATOM; lpBuffer: PChar; nSize: Integer): UINT; stdcall;
  5243. {$EXTERNALSYM GetAtomName}
  5244. function GetProfileIntA(lpAppName, lpKeyName: PAnsiChar; nDefault: Integer): UINT; stdcall;
  5245. {$EXTERNALSYM GetProfileIntA}
  5246. function GetProfileIntW(lpAppName, lpKeyName: PWideChar; nDefault: Integer): UINT; stdcall;
  5247. {$EXTERNALSYM GetProfileIntW}
  5248. function GetProfileInt(lpAppName, lpKeyName: PChar; nDefault: Integer): UINT; stdcall;
  5249. {$EXTERNALSYM GetProfileInt}
  5250. function GetProfileStringA(lpAppName, lpKeyName, lpDefault: PAnsiChar;
  5251.   lpReturnedString: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  5252. {$EXTERNALSYM GetProfileStringA}
  5253. function GetProfileStringW(lpAppName, lpKeyName, lpDefault: PWideChar;
  5254.   lpReturnedString: PWideChar; nSize: DWORD): DWORD; stdcall;
  5255. {$EXTERNALSYM GetProfileStringW}
  5256. function GetProfileString(lpAppName, lpKeyName, lpDefault: PChar;
  5257.   lpReturnedString: PChar; nSize: DWORD): DWORD; stdcall;
  5258. {$EXTERNALSYM GetProfileString}
  5259. function WriteProfileStringA(lpAppName, lpKeyName, lpString: PAnsiChar): BOOL; stdcall;
  5260. {$EXTERNALSYM WriteProfileStringA}
  5261. function WriteProfileStringW(lpAppName, lpKeyName, lpString: PWideChar): BOOL; stdcall;
  5262. {$EXTERNALSYM WriteProfileStringW}
  5263. function WriteProfileString(lpAppName, lpKeyName, lpString: PChar): BOOL; stdcall;
  5264. {$EXTERNALSYM WriteProfileString}
  5265. function GetProfileSectionA(lpAppName: PAnsiChar; lpReturnedString: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  5266. {$EXTERNALSYM GetProfileSectionA}
  5267. function GetProfileSectionW(lpAppName: PWideChar; lpReturnedString: PWideChar; nSize: DWORD): DWORD; stdcall;
  5268. {$EXTERNALSYM GetProfileSectionW}
  5269. function GetProfileSection(lpAppName: PChar; lpReturnedString: PChar; nSize: DWORD): DWORD; stdcall;
  5270. {$EXTERNALSYM GetProfileSection}
  5271. function WriteProfileSectionA(lpAppName, lpString: PAnsiChar): BOOL; stdcall;
  5272. {$EXTERNALSYM WriteProfileSectionA}
  5273. function WriteProfileSectionW(lpAppName, lpString: PWideChar): BOOL; stdcall;
  5274. {$EXTERNALSYM WriteProfileSectionW}
  5275. function WriteProfileSection(lpAppName, lpString: PChar): BOOL; stdcall;
  5276. {$EXTERNALSYM WriteProfileSection}
  5277. function GetPrivateProfileIntA(lpAppName, lpKeyName: PAnsiChar; nDefault: Integer; lpFileName: PAnsiChar): UINT; stdcall;
  5278. {$EXTERNALSYM GetPrivateProfileIntA}
  5279. function GetPrivateProfileIntW(lpAppName, lpKeyName: PWideChar; nDefault: Integer; lpFileName: PWideChar): UINT; stdcall;
  5280. {$EXTERNALSYM GetPrivateProfileIntW}
  5281. function GetPrivateProfileInt(lpAppName, lpKeyName: PChar; nDefault: Integer; lpFileName: PChar): UINT; stdcall;
  5282. {$EXTERNALSYM GetPrivateProfileInt}
  5283. function GetPrivateProfileStringA(lpAppName, lpKeyName, lpDefault: PAnsiChar;
  5284.   lpReturnedString: PAnsiChar; nSize: DWORD; lpFileName: PAnsiChar): DWORD; stdcall;
  5285. {$EXTERNALSYM GetPrivateProfileStringA}
  5286. function GetPrivateProfileStringW(lpAppName, lpKeyName, lpDefault: PWideChar;
  5287.   lpReturnedString: PWideChar; nSize: DWORD; lpFileName: PWideChar): DWORD; stdcall;
  5288. {$EXTERNALSYM GetPrivateProfileStringW}
  5289. function GetPrivateProfileString(lpAppName, lpKeyName, lpDefault: PChar;
  5290.   lpReturnedString: PChar; nSize: DWORD; lpFileName: PChar): DWORD; stdcall;
  5291. {$EXTERNALSYM GetPrivateProfileString}
  5292. function WritePrivateProfileStringA(lpAppName, lpKeyName, lpString, lpFileName: PAnsiChar): BOOL; stdcall;
  5293. {$EXTERNALSYM WritePrivateProfileStringA}
  5294. function WritePrivateProfileStringW(lpAppName, lpKeyName, lpString, lpFileName: PWideChar): BOOL; stdcall;
  5295. {$EXTERNALSYM WritePrivateProfileStringW}
  5296. function WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName: PChar): BOOL; stdcall;
  5297. {$EXTERNALSYM WritePrivateProfileString}
  5298. function GetPrivateProfileSectionA(lpAppName: PAnsiChar; lpReturnedString: PAnsiChar; nSize: DWORD; lpFileName: PAnsiChar): DWORD; stdcall;
  5299. {$EXTERNALSYM GetPrivateProfileSectionA}
  5300. function GetPrivateProfileSectionW(lpAppName: PWideChar; lpReturnedString: PWideChar; nSize: DWORD; lpFileName: PWideChar): DWORD; stdcall;
  5301. {$EXTERNALSYM GetPrivateProfileSectionW}
  5302. function GetPrivateProfileSection(lpAppName: PChar; lpReturnedString: PChar; nSize: DWORD; lpFileName: PChar): DWORD; stdcall;
  5303. {$EXTERNALSYM GetPrivateProfileSection}
  5304. function WritePrivateProfileSectionA(lpAppName, lpString, lpFileName: PAnsiChar): BOOL; stdcall;
  5305. {$EXTERNALSYM WritePrivateProfileSectionA}
  5306. function WritePrivateProfileSectionW(lpAppName, lpString, lpFileName: PWideChar): BOOL; stdcall;
  5307. {$EXTERNALSYM WritePrivateProfileSectionW}
  5308. function WritePrivateProfileSection(lpAppName, lpString, lpFileName: PChar): BOOL; stdcall;
  5309. {$EXTERNALSYM WritePrivateProfileSection}
  5310. function GetPrivateProfileSectionNamesA(lpszReturnBuffer: PAnsiChar; nSize: DWORD; lpFileName: PAnsiChar): DWORD; stdcall;
  5311. {$EXTERNALSYM GetPrivateProfileSectionNamesA}
  5312. function GetPrivateProfileSectionNamesW(lpszReturnBuffer: PWideChar; nSize: DWORD; lpFileName: PWideChar): DWORD; stdcall;
  5313. {$EXTERNALSYM GetPrivateProfileSectionNamesW}
  5314. function GetPrivateProfileSectionNames(lpszReturnBuffer: PChar; nSize: DWORD; lpFileName: PChar): DWORD; stdcall;
  5315. {$EXTERNALSYM GetPrivateProfileSectionNames}
  5316. function GetPrivateProfileStructA(lpszSection, lpszKey: PAnsiChar;
  5317.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PAnsiChar): BOOL; stdcall;
  5318. {$EXTERNALSYM GetPrivateProfileStructA}
  5319. function GetPrivateProfileStructW(lpszSection, lpszKey: PWideChar;
  5320.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PWideChar): BOOL; stdcall;
  5321. {$EXTERNALSYM GetPrivateProfileStructW}
  5322. function GetPrivateProfileStruct(lpszSection, lpszKey: PChar;
  5323.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PChar): BOOL; stdcall;
  5324. {$EXTERNALSYM GetPrivateProfileStruct}
  5325. function WritePrivateProfileStructA(lpszSection, lpszKey: PAnsiChar;
  5326.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PAnsiChar): BOOL; stdcall;
  5327. {$EXTERNALSYM WritePrivateProfileStructA}
  5328. function WritePrivateProfileStructW(lpszSection, lpszKey: PWideChar;
  5329.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PWideChar): BOOL; stdcall;
  5330. {$EXTERNALSYM WritePrivateProfileStructW}
  5331. function WritePrivateProfileStruct(lpszSection, lpszKey: PChar;
  5332.   lpStruct: Pointer; uSizeStruct: UINT; szFile: PChar): BOOL; stdcall;
  5333. {$EXTERNALSYM WritePrivateProfileStruct}
  5334. function GetDriveTypeA(lpRootPathName: PAnsiChar): UINT; stdcall;
  5335. {$EXTERNALSYM GetDriveTypeA}
  5336. function GetDriveTypeW(lpRootPathName: PWideChar): UINT; stdcall;
  5337. {$EXTERNALSYM GetDriveTypeW}
  5338. function GetDriveType(lpRootPathName: PChar): UINT; stdcall;
  5339. {$EXTERNALSYM GetDriveType}
  5340. function GetSystemDirectoryA(lpBuffer: PAnsiChar; uSize: UINT): UINT; stdcall;
  5341. {$EXTERNALSYM GetSystemDirectoryA}
  5342. function GetSystemDirectoryW(lpBuffer: PWideChar; uSize: UINT): UINT; stdcall;
  5343. {$EXTERNALSYM GetSystemDirectoryW}
  5344. function GetSystemDirectory(lpBuffer: PChar; uSize: UINT): UINT; stdcall;
  5345. {$EXTERNALSYM GetSystemDirectory}
  5346. function GetTempPathA(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; stdcall;
  5347. {$EXTERNALSYM GetTempPathA}
  5348. function GetTempPathW(nBufferLength: DWORD; lpBuffer: PWideChar): DWORD; stdcall;
  5349. {$EXTERNALSYM GetTempPathW}
  5350. function GetTempPath(nBufferLength: DWORD; lpBuffer: PChar): DWORD; stdcall;
  5351. {$EXTERNALSYM GetTempPath}
  5352. function GetTempFileNameA(lpPathName, lpPrefixString: PAnsiChar;
  5353.   uUnique: UINT; lpTempFileName: PAnsiChar): UINT; stdcall;
  5354. {$EXTERNALSYM GetTempFileNameA}
  5355. function GetTempFileNameW(lpPathName, lpPrefixString: PWideChar;
  5356.   uUnique: UINT; lpTempFileName: PWideChar): UINT; stdcall;
  5357. {$EXTERNALSYM GetTempFileNameW}
  5358. function GetTempFileName(lpPathName, lpPrefixString: PChar;
  5359.   uUnique: UINT; lpTempFileName: PChar): UINT; stdcall;
  5360. {$EXTERNALSYM GetTempFileName}
  5361. function GetWindowsDirectoryA(lpBuffer: PAnsiChar; uSize: UINT): UINT; stdcall;
  5362. {$EXTERNALSYM GetWindowsDirectoryA}
  5363. function GetWindowsDirectoryW(lpBuffer: PWideChar; uSize: UINT): UINT; stdcall;
  5364. {$EXTERNALSYM GetWindowsDirectoryW}
  5365. function GetWindowsDirectory(lpBuffer: PChar; uSize: UINT): UINT; stdcall;
  5366. {$EXTERNALSYM GetWindowsDirectory}
  5367. function SetCurrentDirectoryA(lpPathName: PAnsiChar): BOOL; stdcall;
  5368. {$EXTERNALSYM SetCurrentDirectoryA}
  5369. function SetCurrentDirectoryW(lpPathName: PWideChar): BOOL; stdcall;
  5370. {$EXTERNALSYM SetCurrentDirectoryW}
  5371. function SetCurrentDirectory(lpPathName: PChar): BOOL; stdcall;
  5372. {$EXTERNALSYM SetCurrentDirectory}
  5373. function GetCurrentDirectoryA(nBufferLength: DWORD; lpBuffer: PAnsiChar): DWORD; stdcall;
  5374. {$EXTERNALSYM GetCurrentDirectoryA}
  5375. function GetCurrentDirectoryW(nBufferLength: DWORD; lpBuffer: PWideChar): DWORD; stdcall;
  5376. {$EXTERNALSYM GetCurrentDirectoryW}
  5377. function GetCurrentDirectory(nBufferLength: DWORD; lpBuffer: PChar): DWORD; stdcall;
  5378. {$EXTERNALSYM GetCurrentDirectory}
  5379. function GetDiskFreeSpaceA(lpRootPathName: PAnsiChar;
  5380.   var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL; stdcall;
  5381. {$EXTERNALSYM GetDiskFreeSpaceA}
  5382. function GetDiskFreeSpaceW(lpRootPathName: PWideChar;
  5383.   var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL; stdcall;
  5384. {$EXTERNALSYM GetDiskFreeSpaceW}
  5385. function GetDiskFreeSpace(lpRootPathName: PChar;
  5386.   var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL; stdcall;
  5387. {$EXTERNALSYM GetDiskFreeSpace}
  5388. function GetDiskFreeSpaceExA(lpDirectoryName: PAnsiChar;
  5389.   var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes; lpTotalNumberOfFreeBytes: PLargeInteger): BOOL; stdcall;
  5390. {$EXTERNALSYM GetDiskFreeSpaceExA}
  5391. function GetDiskFreeSpaceExW(lpDirectoryName: PWideChar;
  5392.   var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes; lpTotalNumberOfFreeBytes: PLargeInteger): BOOL; stdcall;
  5393. {$EXTERNALSYM GetDiskFreeSpaceExW}
  5394. function GetDiskFreeSpaceEx(lpDirectoryName: PChar;
  5395.   var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes; lpTotalNumberOfFreeBytes: PLargeInteger): BOOL; stdcall;
  5396. {$EXTERNALSYM GetDiskFreeSpaceEx}
  5397. function CreateDirectoryA(lpPathName: PAnsiChar;
  5398.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5399. {$EXTERNALSYM CreateDirectoryA}
  5400. function CreateDirectoryW(lpPathName: PWideChar;
  5401.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5402. {$EXTERNALSYM CreateDirectoryW}
  5403. function CreateDirectory(lpPathName: PChar;
  5404.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5405. {$EXTERNALSYM CreateDirectory}
  5406. function CreateDirectoryExA(lpTemplateDirectory, lpNewDirectory: PAnsiChar;
  5407.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5408. {$EXTERNALSYM CreateDirectoryExA}
  5409. function CreateDirectoryExW(lpTemplateDirectory, lpNewDirectory: PWideChar;
  5410.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5411. {$EXTERNALSYM CreateDirectoryExW}
  5412. function CreateDirectoryEx(lpTemplateDirectory, lpNewDirectory: PChar;
  5413.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5414. {$EXTERNALSYM CreateDirectoryEx}
  5415. function RemoveDirectoryA(lpPathName: PAnsiChar): BOOL; stdcall;
  5416. {$EXTERNALSYM RemoveDirectoryA}
  5417. function RemoveDirectoryW(lpPathName: PWideChar): BOOL; stdcall;
  5418. {$EXTERNALSYM RemoveDirectoryW}
  5419. function RemoveDirectory(lpPathName: PChar): BOOL; stdcall;
  5420. {$EXTERNALSYM RemoveDirectory}
  5421. function GetFullPathNameA(lpFileName: PAnsiChar; nBufferLength: DWORD;
  5422.   lpBuffer: PAnsiChar; var lpFilePart: PAnsiChar): DWORD; stdcall;
  5423. {$EXTERNALSYM GetFullPathNameA}
  5424. function GetFullPathNameW(lpFileName: PWideChar; nBufferLength: DWORD;
  5425.   lpBuffer: PWideChar; var lpFilePart: PWideChar): DWORD; stdcall;
  5426. {$EXTERNALSYM GetFullPathNameW}
  5427. function GetFullPathName(lpFileName: PChar; nBufferLength: DWORD;
  5428.   lpBuffer: PChar; var lpFilePart: PChar): DWORD; stdcall;
  5429. {$EXTERNALSYM GetFullPathName}
  5430.  
  5431. const
  5432.   DDD_RAW_TARGET_PATH             = $00000001;
  5433.   {$EXTERNALSYM DDD_RAW_TARGET_PATH}
  5434.   DDD_REMOVE_DEFINITION           = $00000002;
  5435.   {$EXTERNALSYM DDD_REMOVE_DEFINITION}
  5436.   DDD_EXACT_MATCH_ON_REMOVE       = $00000004;
  5437.   {$EXTERNALSYM DDD_EXACT_MATCH_ON_REMOVE}
  5438.   DDD_NO_BROADCAST_SYSTEM         = $00000008;
  5439.   {$EXTERNALSYM DDD_NO_BROADCAST_SYSTEM}
  5440.  
  5441. function DefineDosDeviceA(dwFlags: DWORD; lpDeviceName, lpTargetPath: PAnsiChar): BOOL; stdcall;
  5442. {$EXTERNALSYM DefineDosDeviceA}
  5443. function DefineDosDeviceW(dwFlags: DWORD; lpDeviceName, lpTargetPath: PWideChar): BOOL; stdcall;
  5444. {$EXTERNALSYM DefineDosDeviceW}
  5445. function DefineDosDevice(dwFlags: DWORD; lpDeviceName, lpTargetPath: PChar): BOOL; stdcall;
  5446. {$EXTERNALSYM DefineDosDevice}
  5447. function QueryDosDeviceA(lpDeviceName: PAnsiChar; lpTargetPath: PAnsiChar; ucchMax: DWORD): DWORD; stdcall;
  5448. {$EXTERNALSYM QueryDosDeviceA}
  5449. function QueryDosDeviceW(lpDeviceName: PWideChar; lpTargetPath: PWideChar; ucchMax: DWORD): DWORD; stdcall;
  5450. {$EXTERNALSYM QueryDosDeviceW}
  5451. function QueryDosDevice(lpDeviceName: PChar; lpTargetPath: PChar; ucchMax: DWORD): DWORD; stdcall;
  5452. {$EXTERNALSYM QueryDosDevice}
  5453. function CreateFileA(lpFileName: PAnsiChar; dwDesiredAccess, dwShareMode: DWORD;
  5454.   lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD;
  5455.   hTemplateFile: THandle): THandle; stdcall;
  5456. {$EXTERNALSYM CreateFileA}
  5457. function CreateFileW(lpFileName: PWideChar; dwDesiredAccess, dwShareMode: DWORD;
  5458.   lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD;
  5459.   hTemplateFile: THandle): THandle; stdcall;
  5460. {$EXTERNALSYM CreateFileW}
  5461. function CreateFile(lpFileName: PChar; dwDesiredAccess, dwShareMode: DWORD;
  5462.   lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD;
  5463.   hTemplateFile: THandle): THandle; stdcall;
  5464. {$EXTERNALSYM CreateFile}
  5465. function SetFileAttributesA(lpFileName: PAnsiChar; dwFileAttributes: DWORD): BOOL; stdcall;
  5466. {$EXTERNALSYM SetFileAttributesA}
  5467. function SetFileAttributesW(lpFileName: PWideChar; dwFileAttributes: DWORD): BOOL; stdcall;
  5468. {$EXTERNALSYM SetFileAttributesW}
  5469. function SetFileAttributes(lpFileName: PChar; dwFileAttributes: DWORD): BOOL; stdcall;
  5470. {$EXTERNALSYM SetFileAttributes}
  5471. function GetFileAttributesA(lpFileName: PAnsiChar): DWORD; stdcall;
  5472. {$EXTERNALSYM GetFileAttributesA}
  5473. function GetFileAttributesW(lpFileName: PWideChar): DWORD; stdcall;
  5474. {$EXTERNALSYM GetFileAttributesW}
  5475. function GetFileAttributes(lpFileName: PChar): DWORD; stdcall;
  5476. {$EXTERNALSYM GetFileAttributes}
  5477. type
  5478.   _GET_FILEEX_INFO_LEVELS = (GetFileExInfoStandard, GetFileExMaxInfoLevel);
  5479.   {$EXTERNALSYM _GET_FILEEX_INFO_LEVELS}
  5480.   TGetFileExInfoLevels = _GET_FILEEX_INFO_LEVELS;
  5481.   GET_FILEEX_INFO_LEVELS = _GET_FILEEX_INFO_LEVELS;
  5482.   {$EXTERNALSYM GET_FILEEX_INFO_LEVELS}
  5483. function GetFileAttributesExA(lpFileName: PAnsiChar;
  5484.   fInfoLevelId: TGetFileExInfoLevels; lpFileInformation: Pointer): BOOL; stdcall;
  5485. {$EXTERNALSYM GetFileAttributesExA}
  5486. function GetFileAttributesExW(lpFileName: PWideChar;
  5487.   fInfoLevelId: TGetFileExInfoLevels; lpFileInformation: Pointer): BOOL; stdcall;
  5488. {$EXTERNALSYM GetFileAttributesExW}
  5489. function GetFileAttributesEx(lpFileName: PChar;
  5490.   fInfoLevelId: TGetFileExInfoLevels; lpFileInformation: Pointer): BOOL; stdcall;
  5491. {$EXTERNALSYM GetFileAttributesEx}
  5492. function GetCompressedFileSizeA(lpFileName: PAnsiChar; lpFileSizeHigh: PDWORD): DWORD; stdcall;
  5493. {$EXTERNALSYM GetCompressedFileSizeA}
  5494. function GetCompressedFileSizeW(lpFileName: PWideChar; lpFileSizeHigh: PDWORD): DWORD; stdcall;
  5495. {$EXTERNALSYM GetCompressedFileSizeW}
  5496. function GetCompressedFileSize(lpFileName: PChar; lpFileSizeHigh: PDWORD): DWORD; stdcall;
  5497. {$EXTERNALSYM GetCompressedFileSize}
  5498. function DeleteFileA(lpFileName: PAnsiChar): BOOL; stdcall;
  5499. {$EXTERNALSYM DeleteFileA}
  5500. function DeleteFileW(lpFileName: PWideChar): BOOL; stdcall;
  5501. {$EXTERNALSYM DeleteFileW}
  5502. function DeleteFile(lpFileName: PChar): BOOL; stdcall;
  5503. {$EXTERNALSYM DeleteFile}
  5504. type
  5505.   _FINDEX_INFO_LEVELS = (FindExInfoStandard, FindExInfoMaxInfoLevel);
  5506.   {$EXTERNALSYM _FINDEX_INFO_LEVELS}
  5507.   TFindexInfoLevels = _FINDEX_INFO_LEVELS;
  5508.   FINDEX_INFO_LEVELS = _FINDEX_INFO_LEVELS;
  5509.   {$EXTERNALSYM FINDEX_INFO_LEVELS}
  5510.  
  5511.   _FINDEX_SEARCH_OPS = (FindExSearchNameMatch, FindExSearchLimitToDirectories,
  5512.   {$EXTERNALSYM _FINDEX_SEARCH_OPS}
  5513.     FindExSearchLimitToDevices, FindExSearchMaxSearchOp);
  5514.   TFindexSearchOps = _FINDEX_SEARCH_OPS;
  5515.   FINDEX_SEARCH_OPS = _FINDEX_SEARCH_OPS;
  5516.   {$EXTERNALSYM FINDEX_SEARCH_OPS}
  5517. const
  5518.   FIND_FIRST_EX_CASE_SENSITIVE = $00000001;
  5519.   {$EXTERNALSYM FIND_FIRST_EX_CASE_SENSITIVE}
  5520.  
  5521. function FindFirstFileExA(lpFileName: PAnsiChar; fInfoLevelId: TFindexInfoLevels;
  5522.   lpFindFileData: Pointer; fSearchOp: TFindexSearchOps; lpSearchFilter: Pointer;
  5523.   dwAdditionalFlags: DWORD): BOOL; stdcall;
  5524. {$EXTERNALSYM FindFirstFileExA}
  5525. function FindFirstFileExW(lpFileName: PWideChar; fInfoLevelId: TFindexInfoLevels;
  5526.   lpFindFileData: Pointer; fSearchOp: TFindexSearchOps; lpSearchFilter: Pointer;
  5527.   dwAdditionalFlags: DWORD): BOOL; stdcall;
  5528. {$EXTERNALSYM FindFirstFileExW}
  5529. function FindFirstFileEx(lpFileName: PChar; fInfoLevelId: TFindexInfoLevels;
  5530.   lpFindFileData: Pointer; fSearchOp: TFindexSearchOps; lpSearchFilter: Pointer;
  5531.   dwAdditionalFlags: DWORD): BOOL; stdcall;
  5532. {$EXTERNALSYM FindFirstFileEx}
  5533. function FindFirstFileA(lpFileName: PAnsiChar; var lpFindFileData: TWIN32FindDataA): THandle; stdcall;
  5534. {$EXTERNALSYM FindFirstFileA}
  5535. function FindFirstFileW(lpFileName: PWideChar; var lpFindFileData: TWIN32FindDataW): THandle; stdcall;
  5536. {$EXTERNALSYM FindFirstFileW}
  5537. function FindFirstFile(lpFileName: PChar; var lpFindFileData: TWIN32FindData): THandle; stdcall;
  5538. {$EXTERNALSYM FindFirstFile}
  5539. function FindNextFileA(hFindFile: THandle; var lpFindFileData: TWIN32FindDataA): BOOL; stdcall;
  5540. {$EXTERNALSYM FindNextFileA}
  5541. function FindNextFileW(hFindFile: THandle; var lpFindFileData: TWIN32FindDataW): BOOL; stdcall;
  5542. {$EXTERNALSYM FindNextFileW}
  5543. function FindNextFile(hFindFile: THandle; var lpFindFileData: TWIN32FindData): BOOL; stdcall;
  5544. {$EXTERNALSYM FindNextFile}
  5545. function SearchPathA(lpPath, lpFileName, lpExtension: PAnsiChar;
  5546.   nBufferLength: DWORD; lpBuffer: PAnsiChar; var lpFilePart: PAnsiChar): DWORD; stdcall;
  5547. {$EXTERNALSYM SearchPathA}
  5548. function SearchPathW(lpPath, lpFileName, lpExtension: PWideChar;
  5549.   nBufferLength: DWORD; lpBuffer: PWideChar; var lpFilePart: PWideChar): DWORD; stdcall;
  5550. {$EXTERNALSYM SearchPathW}
  5551. function SearchPath(lpPath, lpFileName, lpExtension: PChar;
  5552.   nBufferLength: DWORD; lpBuffer: PChar; var lpFilePart: PChar): DWORD; stdcall;
  5553. {$EXTERNALSYM SearchPath}
  5554. function CopyFileA(lpExistingFileName, lpNewFileName: PAnsiChar; bFailIfExists: BOOL): BOOL; stdcall;
  5555. {$EXTERNALSYM CopyFileA}
  5556. function CopyFileW(lpExistingFileName, lpNewFileName: PWideChar; bFailIfExists: BOOL): BOOL; stdcall;
  5557. {$EXTERNALSYM CopyFileW}
  5558. function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL; stdcall;
  5559. {$EXTERNALSYM CopyFile}
  5560.  
  5561. type
  5562.  
  5563.  
  5564.  
  5565.  
  5566.  
  5567.   TFNProgressRoutine = TFarProc;
  5568.  
  5569. function CopyFileExA(lpExistingFileName, lpNewFileName: PAnsiChar;
  5570.   lpProgressRoutine: TFNProgressRoutine; lpData: Pointer; pbCancel: PBool;
  5571.   dwCopyFlags: DWORD): BOOL; stdcall;
  5572. {$EXTERNALSYM CopyFileExA}
  5573. function CopyFileExW(lpExistingFileName, lpNewFileName: PWideChar;
  5574.   lpProgressRoutine: TFNProgressRoutine; lpData: Pointer; pbCancel: PBool;
  5575.   dwCopyFlags: DWORD): BOOL; stdcall;
  5576. {$EXTERNALSYM CopyFileExW}
  5577. function CopyFileEx(lpExistingFileName, lpNewFileName: PChar;
  5578.   lpProgressRoutine: TFNProgressRoutine; lpData: Pointer; pbCancel: PBool;
  5579.   dwCopyFlags: DWORD): BOOL; stdcall;
  5580. {$EXTERNALSYM CopyFileEx}
  5581. function MoveFileA(lpExistingFileName, lpNewFileName: PAnsiChar): BOOL; stdcall;
  5582. {$EXTERNALSYM MoveFileA}
  5583. function MoveFileW(lpExistingFileName, lpNewFileName: PWideChar): BOOL; stdcall;
  5584. {$EXTERNALSYM MoveFileW}
  5585. function MoveFile(lpExistingFileName, lpNewFileName: PChar): BOOL; stdcall;
  5586. {$EXTERNALSYM MoveFile}
  5587. function MoveFileExA(lpExistingFileName, lpNewFileName: PAnsiChar; dwFlags: DWORD): BOOL; stdcall;
  5588. {$EXTERNALSYM MoveFileExA}
  5589. function MoveFileExW(lpExistingFileName, lpNewFileName: PWideChar; dwFlags: DWORD): BOOL; stdcall;
  5590. {$EXTERNALSYM MoveFileExW}
  5591. function MoveFileEx(lpExistingFileName, lpNewFileName: PChar; dwFlags: DWORD): BOOL; stdcall;
  5592. {$EXTERNALSYM MoveFileEx}
  5593. function MoveFileWithProgressA(lpExistingFileName, lpNewFileName: PAnsiChar; lpProgressRoutine: TFNProgressRoutine;
  5594.   lpData: Pointer; dwFlags: DWORD): BOOL; stdcall;
  5595. {$EXTERNALSYM MoveFileWithProgressA}
  5596. function MoveFileWithProgressW(lpExistingFileName, lpNewFileName: PWideChar; lpProgressRoutine: TFNProgressRoutine;
  5597.   lpData: Pointer; dwFlags: DWORD): BOOL; stdcall;
  5598. {$EXTERNALSYM MoveFileWithProgressW}
  5599. function MoveFileWithProgress(lpExistingFileName, lpNewFileName: PChar; lpProgressRoutine: TFNProgressRoutine;
  5600.   lpData: Pointer; dwFlags: DWORD): BOOL; stdcall;
  5601. {$EXTERNALSYM MoveFileWithProgress}
  5602.  
  5603. const
  5604.   MOVEFILE_REPLACE_EXISTING       = $00000001;
  5605.   {$EXTERNALSYM MOVEFILE_REPLACE_EXISTING}
  5606.   MOVEFILE_COPY_ALLOWED           = $00000002;
  5607.   {$EXTERNALSYM MOVEFILE_COPY_ALLOWED}
  5608.   MOVEFILE_DELAY_UNTIL_REBOOT     = $00000004;
  5609.   {$EXTERNALSYM MOVEFILE_DELAY_UNTIL_REBOOT}
  5610.   MOVEFILE_WRITE_THROUGH          = $00000008;
  5611.   {$EXTERNALSYM MOVEFILE_WRITE_THROUGH}
  5612.   MOVEFILE_CREATE_HARDLINK        = $00000010;
  5613.   {$EXTERNALSYM MOVEFILE_CREATE_HARDLINK}
  5614.   MOVEFILE_FAIL_IF_NOT_TRACKABLE  = $00000020;
  5615.   {$EXTERNALSYM MOVEFILE_FAIL_IF_NOT_TRACKABLE}
  5616.  
  5617. function CreateHardLinkA(lpFileName, lpExistingFileName: PAnsiChar;
  5618.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5619. {$EXTERNALSYM CreateHardLinkA}
  5620. function CreateHardLinkW(lpFileName, lpExistingFileName: PWideChar;
  5621.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5622. {$EXTERNALSYM CreateHardLinkW}
  5623. function CreateHardLink(lpFileName, lpExistingFileName: PChar;
  5624.   lpSecurityAttributes: PSecurityAttributes): BOOL; stdcall;
  5625. {$EXTERNALSYM CreateHardLink}
  5626. function CreateNamedPipeA(lpName: PAnsiChar;
  5627.   dwOpenMode, dwPipeMode, nMaxInstances, nOutBufferSize, nInBufferSize, nDefaultTimeOut: DWORD;
  5628.   lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  5629. {$EXTERNALSYM CreateNamedPipeA}
  5630. function CreateNamedPipeW(lpName: PWideChar;
  5631.   dwOpenMode, dwPipeMode, nMaxInstances, nOutBufferSize, nInBufferSize, nDefaultTimeOut: DWORD;
  5632.   lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  5633. {$EXTERNALSYM CreateNamedPipeW}
  5634. function CreateNamedPipe(lpName: PChar;
  5635.   dwOpenMode, dwPipeMode, nMaxInstances, nOutBufferSize, nInBufferSize, nDefaultTimeOut: DWORD;
  5636.   lpSecurityAttributes: PSecurityAttributes): THandle; stdcall;
  5637. {$EXTERNALSYM CreateNamedPipe}
  5638. function GetNamedPipeHandleStateA(hNamedPipe: THandle;
  5639.   lpState, lpCurInstances, lpMaxCollectionCount, lpCollectDataTimeout: PDWORD;
  5640.   lpUserName: PAnsiChar; nMaxUserNameSize: DWORD): BOOL; stdcall;
  5641. {$EXTERNALSYM GetNamedPipeHandleStateA}
  5642. function GetNamedPipeHandleStateW(hNamedPipe: THandle;
  5643.   lpState, lpCurInstances, lpMaxCollectionCount, lpCollectDataTimeout: PDWORD;
  5644.   lpUserName: PWideChar; nMaxUserNameSize: DWORD): BOOL; stdcall;
  5645. {$EXTERNALSYM GetNamedPipeHandleStateW}
  5646. function GetNamedPipeHandleState(hNamedPipe: THandle;
  5647.   lpState, lpCurInstances, lpMaxCollectionCount, lpCollectDataTimeout: PDWORD;
  5648.   lpUserName: PChar; nMaxUserNameSize: DWORD): BOOL; stdcall;
  5649. {$EXTERNALSYM GetNamedPipeHandleState}
  5650. function CallNamedPipeA(lpNamedPipeName: PAnsiChar; lpInBuffer: Pointer;
  5651.   nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD;
  5652.   var lpBytesRead: DWORD; nTimeOut: DWORD): BOOL; stdcall;
  5653. {$EXTERNALSYM CallNamedPipeA}
  5654. function CallNamedPipeW(lpNamedPipeName: PWideChar; lpInBuffer: Pointer;
  5655.   nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD;
  5656.   var lpBytesRead: DWORD; nTimeOut: DWORD): BOOL; stdcall;
  5657. {$EXTERNALSYM CallNamedPipeW}
  5658. function CallNamedPipe(lpNamedPipeName: PChar; lpInBuffer: Pointer;
  5659.   nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD;
  5660.   var lpBytesRead: DWORD; nTimeOut: DWORD): BOOL; stdcall;
  5661. {$EXTERNALSYM CallNamedPipe}
  5662. function WaitNamedPipeA(lpNamedPipeName: PAnsiChar; nTimeOut: DWORD): BOOL; stdcall;
  5663. {$EXTERNALSYM WaitNamedPipeA}
  5664. function WaitNamedPipeW(lpNamedPipeName: PWideChar; nTimeOut: DWORD): BOOL; stdcall;
  5665. {$EXTERNALSYM WaitNamedPipeW}
  5666. function WaitNamedPipe(lpNamedPipeName: PChar; nTimeOut: DWORD): BOOL; stdcall;
  5667. {$EXTERNALSYM WaitNamedPipe}
  5668. function SetVolumeLabelA(lpRootPathName: PAnsiChar; lpVolumeName: PAnsiChar): BOOL; stdcall;
  5669. {$EXTERNALSYM SetVolumeLabelA}
  5670. function SetVolumeLabelW(lpRootPathName: PWideChar; lpVolumeName: PAnsiChar): BOOL; stdcall;
  5671. {$EXTERNALSYM SetVolumeLabelW}
  5672. function SetVolumeLabel(lpRootPathName: PChar; lpVolumeName: PAnsiChar): BOOL; stdcall;
  5673. {$EXTERNALSYM SetVolumeLabel}
  5674. procedure SetFileApisToOEM; stdcall;
  5675. {$EXTERNALSYM SetFileApisToOEM}
  5676. procedure SetFileApisToANSI; stdcall;
  5677. {$EXTERNALSYM SetFileApisToANSI}
  5678. function AreFileApisANSI: BOOL; stdcall;
  5679. {$EXTERNALSYM AreFileApisANSI}
  5680. function GetVolumeInformationA(lpRootPathName: PAnsiChar;
  5681.   lpVolumeNameBuffer: PAnsiChar; nVolumeNameSize: DWORD; lpVolumeSerialNumber: PDWORD;
  5682.   var lpMaximumComponentLength, lpFileSystemFlags: DWORD;
  5683.   lpFileSystemNameBuffer: PAnsiChar; nFileSystemNameSize: DWORD): BOOL; stdcall;
  5684. {$EXTERNALSYM GetVolumeInformationA}
  5685. function GetVolumeInformationW(lpRootPathName: PWideChar;
  5686.   lpVolumeNameBuffer: PWideChar; nVolumeNameSize: DWORD; lpVolumeSerialNumber: PDWORD;
  5687.   var lpMaximumComponentLength, lpFileSystemFlags: DWORD;
  5688.   lpFileSystemNameBuffer: PWideChar; nFileSystemNameSize: DWORD): BOOL; stdcall;
  5689. {$EXTERNALSYM GetVolumeInformationW}
  5690. function GetVolumeInformation(lpRootPathName: PChar;
  5691.   lpVolumeNameBuffer: PChar; nVolumeNameSize: DWORD; lpVolumeSerialNumber: PDWORD;
  5692.   var lpMaximumComponentLength, lpFileSystemFlags: DWORD;
  5693.   lpFileSystemNameBuffer: PChar; nFileSystemNameSize: DWORD): BOOL; stdcall;
  5694. {$EXTERNALSYM GetVolumeInformation}
  5695.  
  5696. function CancelIo(hFile: THandle): BOOL; stdcall;
  5697. {$EXTERNALSYM CancelIo}
  5698.  
  5699. { Event logging APIs }
  5700.  
  5701. function ClearEventLogA(hEventLog: THandle; lpBackupFileName: PAnsiChar): BOOL; stdcall;
  5702. {$EXTERNALSYM ClearEventLogA}
  5703. function ClearEventLogW(hEventLog: THandle; lpBackupFileName: PWideChar): BOOL; stdcall;
  5704. {$EXTERNALSYM ClearEventLogW}
  5705. function ClearEventLog(hEventLog: THandle; lpBackupFileName: PChar): BOOL; stdcall;
  5706. {$EXTERNALSYM ClearEventLog}
  5707. function BackupEventLogA(hEventLog: THandle; lpBackupFileName: PAnsiChar): BOOL; stdcall;
  5708. {$EXTERNALSYM BackupEventLogA}
  5709. function BackupEventLogW(hEventLog: THandle; lpBackupFileName: PWideChar): BOOL; stdcall;
  5710. {$EXTERNALSYM BackupEventLogW}
  5711. function BackupEventLog(hEventLog: THandle; lpBackupFileName: PChar): BOOL; stdcall;
  5712. {$EXTERNALSYM BackupEventLog}
  5713. function CloseEventLog(hEventLog: THandle): BOOL; stdcall;
  5714. {$EXTERNALSYM CloseEventLog}
  5715. function DeregisterEventSource(hEventLog: THandle): BOOL; stdcall;
  5716. {$EXTERNALSYM DeregisterEventSource}
  5717. function NotifyChangeEventLog(hEventLog, hEvent: THandle): BOOL; stdcall;
  5718. {$EXTERNALSYM NotifyChangeEventLog}
  5719. function GetNumberOfEventLogRecords(hEventLog: THandle; var NumberOfRecords: DWORD): BOOL; stdcall;
  5720. {$EXTERNALSYM GetNumberOfEventLogRecords}
  5721. function GetOldestEventLogRecord(hEventLog: THandle; var OldestRecord: DWORD): BOOL; stdcall;
  5722. {$EXTERNALSYM GetOldestEventLogRecord}
  5723. function OpenEventLogA(lpUNCServerName, lpSourceName: PAnsiChar): THandle; stdcall;
  5724. {$EXTERNALSYM OpenEventLogA}
  5725. function OpenEventLogW(lpUNCServerName, lpSourceName: PWideChar): THandle; stdcall;
  5726. {$EXTERNALSYM OpenEventLogW}
  5727. function OpenEventLog(lpUNCServerName, lpSourceName: PChar): THandle; stdcall;
  5728. {$EXTERNALSYM OpenEventLog}
  5729. function RegisterEventSourceA(lpUNCServerName, lpSourceName: PAnsiChar): THandle; stdcall;
  5730. {$EXTERNALSYM RegisterEventSourceA}
  5731. function RegisterEventSourceW(lpUNCServerName, lpSourceName: PWideChar): THandle; stdcall;
  5732. {$EXTERNALSYM RegisterEventSourceW}
  5733. function RegisterEventSource(lpUNCServerName, lpSourceName: PChar): THandle; stdcall;
  5734. {$EXTERNALSYM RegisterEventSource}
  5735. function OpenBackupEventLogA(lpUNCServerName, lpFileName: PAnsiChar): THandle; stdcall;
  5736. {$EXTERNALSYM OpenBackupEventLogA}
  5737. function OpenBackupEventLogW(lpUNCServerName, lpFileName: PWideChar): THandle; stdcall;
  5738. {$EXTERNALSYM OpenBackupEventLogW}
  5739. function OpenBackupEventLog(lpUNCServerName, lpFileName: PChar): THandle; stdcall;
  5740. {$EXTERNALSYM OpenBackupEventLog}
  5741. function ReadEventLogA(hEventLog: THandle; dwReadFlags, dwRecordOffset: DWORD;
  5742.   lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
  5743.   var pnBytesRead, pnMinNumberOfBytesNeeded: DWORD): BOOL; stdcall;
  5744. {$EXTERNALSYM ReadEventLogA}
  5745. function ReadEventLogW(hEventLog: THandle; dwReadFlags, dwRecordOffset: DWORD;
  5746.   lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
  5747.   var pnBytesRead, pnMinNumberOfBytesNeeded: DWORD): BOOL; stdcall;
  5748. {$EXTERNALSYM ReadEventLogW}
  5749. function ReadEventLog(hEventLog: THandle; dwReadFlags, dwRecordOffset: DWORD;
  5750.   lpBuffer: Pointer; nNumberOfBytesToRead: DWORD;
  5751.   var pnBytesRead, pnMinNumberOfBytesNeeded: DWORD): BOOL; stdcall;
  5752. {$EXTERNALSYM ReadEventLog}
  5753. function ReportEventA(hEventLog: THandle; wType, wCategory: Word;
  5754.   dwEventID: DWORD; lpUserSid: Pointer; wNumStrings: Word;
  5755.   dwDataSize: DWORD; lpStrings, lpRawData: Pointer): BOOL; stdcall;
  5756. {$EXTERNALSYM ReportEventA}
  5757. function ReportEventW(hEventLog: THandle; wType, wCategory: Word;
  5758.   dwEventID: DWORD; lpUserSid: Pointer; wNumStrings: Word;
  5759.   dwDataSize: DWORD; lpStrings, lpRawData: Pointer): BOOL; stdcall;
  5760. {$EXTERNALSYM ReportEventW}
  5761. function ReportEvent(hEventLog: THandle; wType, wCategory: Word;
  5762.   dwEventID: DWORD; lpUserSid: Pointer; wNumStrings: Word;
  5763.   dwDataSize: DWORD; lpStrings, lpRawData: Pointer): BOOL; stdcall;
  5764. {$EXTERNALSYM ReportEvent}
  5765.  
  5766. { Security APIs }
  5767.  
  5768. function DuplicateToken(ExistingTokenHandle: THandle;
  5769.   ImpersonationLevel: TSecurityImpersonationLevel; DuplicateTokenHandle: PHandle): BOOL; stdcall;
  5770. {$EXTERNALSYM DuplicateToken}
  5771. function GetKernelObjectSecurity(Handle: THandle; RequestedInformation: SECURITY_INFORMATION;
  5772.   pSecurityDescriptor: PSecurityDescriptor; nLength: DWORD;
  5773.   var lpnLengthNeeded: DWORD): BOOL; stdcall;
  5774. {$EXTERNALSYM GetKernelObjectSecurity}
  5775. function ImpersonateNamedPipeClient(hNamedPipe: THandle): BOOL; stdcall;
  5776. {$EXTERNALSYM ImpersonateNamedPipeClient}
  5777. function ImpersonateSelf(ImpersonationLevel: TSecurityImpersonationLevel): BOOL; stdcall;
  5778. {$EXTERNALSYM ImpersonateSelf}
  5779. function RevertToSelf: BOOL; stdcall;
  5780. {$EXTERNALSYM RevertToSelf}
  5781. function SetThreadToken(Thread: PHandle; Token: THandle): BOOL; stdcall;
  5782. {$EXTERNALSYM SetThreadToken}
  5783. function AccessCheck(pSecurityDescriptor: PSecurityDescriptor;
  5784.   ClientToken: THandle; DesiredAccess: DWORD; const GenericMapping: TGenericMapping;
  5785.   var PrivilegeSet: TPrivilegeSet; var PrivilegeSetLength: DWORD;
  5786.   var GrantedAccess: DWORD; var AccessStatus: BOOL): BOOL; stdcall;
  5787. {$EXTERNALSYM AccessCheck}
  5788. function AccessCheckByType(pSecurityDescriptor: PSecurityDescriptor; PrincipalSelfSid: PSID;
  5789.   ClientToken: THandle; DesiredAccess: DWORD; ObjectTypeList: PObjectTypeList;
  5790.   const GenericMapping: TGenericMapping; ObjectTypeListLength: DWORD;
  5791.   var PrivilegeSet: TPrivilegeSet; var PrivilegeSetLength: DWORD;
  5792.   var GrantedAccess: DWORD; var AccessStatus: BOOL): BOOL; stdcall;
  5793. {$EXTERNALSYM AccessCheckByType}
  5794. function AccessCheckByTypeResultList(pSecurityDescriptor: PSecurityDescriptor; PrincipalSelfSid: PSID;
  5795.   ClientToken: THandle; DesiredAccess: DWORD; ObjectTypeList: PObjectTypeList;
  5796.   const GenericMapping: TGenericMapping; ObjectTypeListLength: DWORD;
  5797.   var PrivilegeSet: TPrivilegeSet; var PrivilegeSetLength: DWORD;
  5798.   var GrantedAccess: DWORD; var AccessStatusList: DWORD): BOOL; stdcall;
  5799. {$EXTERNALSYM AccessCheckByTypeResultList}
  5800. function OpenProcessToken(ProcessHandle: THandle; DesiredAccess: DWORD;
  5801.   var TokenHandle: THandle): BOOL; stdcall;
  5802. {$EXTERNALSYM OpenProcessToken}
  5803. function OpenThreadToken(ThreadHandle: THandle; DesiredAccess: DWORD;
  5804.   OpenAsSelf: BOOL; var TokenHandle: THandle): BOOL; stdcall;
  5805. {$EXTERNALSYM OpenThreadToken}
  5806. function GetTokenInformation(TokenHandle: THandle;
  5807.   TokenInformationClass: TTokenInformationClass; TokenInformation: Pointer;
  5808.   TokenInformationLength: DWORD; var ReturnLength: DWORD): BOOL; stdcall;
  5809. {$EXTERNALSYM GetTokenInformation}
  5810. function SetTokenInformation(TokenHandle: THandle;
  5811.   TokenInformationClass: TTokenInformationClass; TokenInformation: Pointer;
  5812.   TokenInformationLength: DWORD): BOOL; stdcall;
  5813. {$EXTERNALSYM SetTokenInformation}
  5814. function AdjustTokenPrivileges(TokenHandle: THandle; DisableAllPrivileges: BOOL;
  5815.   const NewState: TTokenPrivileges; BufferLength: DWORD;
  5816.   var PreviousState: TTokenPrivileges; var ReturnLength: DWORD): BOOL; stdcall; overload;
  5817. {$EXTERNALSYM AdjustTokenPrivileges}
  5818. function AdjustTokenPrivileges(TokenHandle: THandle; DisableAllPrivileges: BOOL;
  5819.   const NewState: TTokenPrivileges; BufferLength: DWORD;
  5820.   PreviousState: PTokenPrivileges; var ReturnLength: DWORD): BOOL; stdcall; overload;
  5821. {$EXTERNALSYM AdjustTokenPrivileges}
  5822. function AdjustTokenGroups(TokenHandle: THandle; ResetToDefault: BOOL;
  5823.   const NewState: TTokenGroups; BufferLength: DWORD;
  5824.   var PreviousState: TTokenGroups; var ReturnLength: DWORD): BOOL; stdcall;
  5825. {$EXTERNALSYM AdjustTokenGroups}
  5826. function PrivilegeCheck(ClientToken: THandle; const RequiredPrivileges: TPrivilegeSet;
  5827.   var pfResult: BOOL): BOOL; stdcall;
  5828. {$EXTERNALSYM PrivilegeCheck}
  5829. function AccessCheckAndAuditAlarmA(SubsystemName: PAnsiChar;
  5830.   HandleId: Pointer; ObjectTypeName, ObjectName: PAnsiChar;
  5831.   SecurityDescriptor: PSecurityDescriptor; DesiredAccess: DWORD;
  5832.   const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5833.   var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;
  5834. {$EXTERNALSYM AccessCheckAndAuditAlarmA}
  5835. function AccessCheckAndAuditAlarmW(SubsystemName: PWideChar;
  5836.   HandleId: Pointer; ObjectTypeName, ObjectName: PWideChar;
  5837.   SecurityDescriptor: PSecurityDescriptor; DesiredAccess: DWORD;
  5838.   const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5839.   var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;
  5840. {$EXTERNALSYM AccessCheckAndAuditAlarmW}
  5841. function AccessCheckAndAuditAlarm(SubsystemName: PChar;
  5842.   HandleId: Pointer; ObjectTypeName, ObjectName: PChar;
  5843.   SecurityDescriptor: PSecurityDescriptor; DesiredAccess: DWORD;
  5844.   const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5845.   var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;
  5846. {$EXTERNALSYM AccessCheckAndAuditAlarm}
  5847. function AccessCheckByTypeAndAuditAlarmA(SubsystemName: PAnsiChar;
  5848.   HandleId: Pointer; ObjectTypeName, ObjectName: PAnsiChar;
  5849.   SecurityDescriptor: PSecurityDescriptor; PrincipalSelfSid: PSID; DesiredAccess: DWORD;
  5850.   AuditType: AUDIT_EVENT_TYPE; Flags: DWORD; ObjectTypeList: PObjectTypeList;
  5851.   ObjectTypeListLength: DWORD; const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5852.   var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;
  5853. {$EXTERNALSYM AccessCheckByTypeAndAuditAlarmA}
  5854. function AccessCheckByTypeAndAuditAlarmW(SubsystemName: PWideChar;
  5855.   HandleId: Pointer; ObjectTypeName, ObjectName: PWideChar;
  5856.   SecurityDescriptor: PSecurityDescriptor; PrincipalSelfSid: PSID; DesiredAccess: DWORD;
  5857.   AuditType: AUDIT_EVENT_TYPE; Flags: DWORD; ObjectTypeList: PObjectTypeList;
  5858.   ObjectTypeListLength: DWORD; const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5859.   var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;
  5860. {$EXTERNALSYM AccessCheckByTypeAndAuditAlarmW}
  5861. function AccessCheckByTypeAndAuditAlarm(SubsystemName: PChar;
  5862.   HandleId: Pointer; ObjectTypeName, ObjectName: PChar;
  5863.   SecurityDescriptor: PSecurityDescriptor; PrincipalSelfSid: PSID; DesiredAccess: DWORD;
  5864.   AuditType: AUDIT_EVENT_TYPE; Flags: DWORD; ObjectTypeList: PObjectTypeList;
  5865.   ObjectTypeListLength: DWORD; const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5866.   var GrantedAccess: DWORD; var AccessStatus, pfGenerateOnClose: BOOL): BOOL; stdcall;
  5867. {$EXTERNALSYM AccessCheckByTypeAndAuditAlarm}
  5868. function AccessCheckByTypeResultListAndAuditAlarmA(SubsystemName: PAnsiChar;
  5869.   HandleId: Pointer; ObjectTypeName, ObjectName: PAnsiChar;
  5870.   SecurityDescriptor: PSecurityDescriptor; PrincipalSelfSid: PSID; DesiredAccess: DWORD;
  5871.   AuditType: AUDIT_EVENT_TYPE; Flags: DWORD; ObjectTypeList: PObjectTypeList;
  5872.   ObjectTypeListLength: DWORD; const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5873.   var GrantedAccess: DWORD; var AccessStatusList: DWORD; var pfGenerateOnClose: BOOL): BOOL; stdcall;
  5874. {$EXTERNALSYM AccessCheckByTypeResultListAndAuditAlarmA}
  5875. function AccessCheckByTypeResultListAndAuditAlarmW(SubsystemName: PWideChar;
  5876.   HandleId: Pointer; ObjectTypeName, ObjectName: PWideChar;
  5877.   SecurityDescriptor: PSecurityDescriptor; PrincipalSelfSid: PSID; DesiredAccess: DWORD;
  5878.   AuditType: AUDIT_EVENT_TYPE; Flags: DWORD; ObjectTypeList: PObjectTypeList;
  5879.   ObjectTypeListLength: DWORD; const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5880.   var GrantedAccess: DWORD; var AccessStatusList: DWORD; var pfGenerateOnClose: BOOL): BOOL; stdcall;
  5881. {$EXTERNALSYM AccessCheckByTypeResultListAndAuditAlarmW}
  5882. function AccessCheckByTypeResultListAndAuditAlarm(SubsystemName: PChar;
  5883.   HandleId: Pointer; ObjectTypeName, ObjectName: PChar;
  5884.   SecurityDescriptor: PSecurityDescriptor; PrincipalSelfSid: PSID; DesiredAccess: DWORD;
  5885.   AuditType: AUDIT_EVENT_TYPE; Flags: DWORD; ObjectTypeList: PObjectTypeList;
  5886.   ObjectTypeListLength: DWORD; const GenericMapping: TGenericMapping;  ObjectCreation: BOOL;
  5887.   var GrantedAccess: DWORD; var AccessStatusList: DWORD; var pfGenerateOnClose: BOOL): BOOL; stdcall;
  5888. {$EXTERNALSYM AccessCheckByTypeResultListAndAuditAlarm}
  5889. function ObjectOpenAuditAlarmA(SubsystemName: PAnsiChar; HandleId: Pointer;
  5890.   ObjectTypeName: PAnsiChar; ObjectName: PAnsiChar; pSecurityDescriptor: PSecurityDescriptor;
  5891.   ClientToken: THandle; DesiredAccess, GrantedAccess: DWORD;
  5892.   var Privileges: TPrivilegeSet; ObjectCreation, AccessGranted: BOOL;
  5893.   var GenerateOnClose: BOOL): BOOL; stdcall;
  5894. {$EXTERNALSYM ObjectOpenAuditAlarmA}
  5895. function ObjectOpenAuditAlarmW(SubsystemName: PWideChar; HandleId: Pointer;
  5896.   ObjectTypeName: PWideChar; ObjectName: PWideChar; pSecurityDescriptor: PSecurityDescriptor;
  5897.   ClientToken: THandle; DesiredAccess, GrantedAccess: DWORD;
  5898.   var Privileges: TPrivilegeSet; ObjectCreation, AccessGranted: BOOL;
  5899.   var GenerateOnClose: BOOL): BOOL; stdcall;
  5900. {$EXTERNALSYM ObjectOpenAuditAlarmW}
  5901. function ObjectOpenAuditAlarm(SubsystemName: PChar; HandleId: Pointer;
  5902.   ObjectTypeName: PChar; ObjectName: PChar; pSecurityDescriptor: PSecurityDescriptor;
  5903.   ClientToken: THandle; DesiredAccess, GrantedAccess: DWORD;
  5904.   var Privileges: TPrivilegeSet; ObjectCreation, AccessGranted: BOOL;
  5905.   var GenerateOnClose: BOOL): BOOL; stdcall;
  5906. {$EXTERNALSYM ObjectOpenAuditAlarm}
  5907. function ObjectPrivilegeAuditAlarmA(SubsystemName: PAnsiChar;
  5908.   HandleId: Pointer; ClientToken: THandle; DesiredAccess: DWORD;
  5909.   var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5910. {$EXTERNALSYM ObjectPrivilegeAuditAlarmA}
  5911. function ObjectPrivilegeAuditAlarmW(SubsystemName: PWideChar;
  5912.   HandleId: Pointer; ClientToken: THandle; DesiredAccess: DWORD;
  5913.   var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5914. {$EXTERNALSYM ObjectPrivilegeAuditAlarmW}
  5915. function ObjectPrivilegeAuditAlarm(SubsystemName: PChar;
  5916.   HandleId: Pointer; ClientToken: THandle; DesiredAccess: DWORD;
  5917.   var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5918. {$EXTERNALSYM ObjectPrivilegeAuditAlarm}
  5919. function ObjectCloseAuditAlarmA(SubsystemName: PAnsiChar;
  5920.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5921. {$EXTERNALSYM ObjectCloseAuditAlarmA}
  5922. function ObjectCloseAuditAlarmW(SubsystemName: PWideChar;
  5923.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5924. {$EXTERNALSYM ObjectCloseAuditAlarmW}
  5925. function ObjectCloseAuditAlarm(SubsystemName: PChar;
  5926.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5927. {$EXTERNALSYM ObjectCloseAuditAlarm}
  5928. function ObjectDeleteAuditAlarmA(SubsystemName: PAnsiChar;
  5929.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5930. {$EXTERNALSYM ObjectDeleteAuditAlarmA}
  5931. function ObjectDeleteAuditAlarmW(SubsystemName: PWideChar;
  5932.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5933. {$EXTERNALSYM ObjectDeleteAuditAlarmW}
  5934. function ObjectDeleteAuditAlarm(SubsystemName: PChar;
  5935.   HandleId: Pointer; GenerateOnClose: BOOL): BOOL; stdcall;
  5936. {$EXTERNALSYM ObjectDeleteAuditAlarm}
  5937. function PrivilegedServiceAuditAlarmA(SubsystemName, ServiceName: PAnsiChar;
  5938.   ClientToken: THandle; var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5939. {$EXTERNALSYM PrivilegedServiceAuditAlarmA}
  5940. function PrivilegedServiceAuditAlarmW(SubsystemName, ServiceName: PWideChar;
  5941.   ClientToken: THandle; var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5942. {$EXTERNALSYM PrivilegedServiceAuditAlarmW}
  5943. function PrivilegedServiceAuditAlarm(SubsystemName, ServiceName: PChar;
  5944.   ClientToken: THandle; var Privileges: TPrivilegeSet; AccessGranted: BOOL): BOOL; stdcall;
  5945. {$EXTERNALSYM PrivilegedServiceAuditAlarm}
  5946. function IsValidSid(pSid: Pointer): BOOL; stdcall;
  5947. {$EXTERNALSYM IsValidSid}
  5948. function EqualSid(pSid1, pSid2: Pointer): BOOL; stdcall;
  5949. {$EXTERNALSYM EqualSid}
  5950. function EqualPrefixSid(pSid1, pSid2: Pointer): BOOL; stdcall;
  5951. {$EXTERNALSYM EqualPrefixSid}
  5952. function GetSidLengthRequired(nSubAuthorityCount: UCHAR): DWORD; stdcall;
  5953. {$EXTERNALSYM GetSidLengthRequired}
  5954. function AllocateAndInitializeSid(const pIdentifierAuthority: TSIDIdentifierAuthority;
  5955.   nSubAuthorityCount: Byte; nSubAuthority0, nSubAuthority1: DWORD;
  5956.   nSubAuthority2, nSubAuthority3, nSubAuthority4: DWORD;
  5957.   nSubAuthority5, nSubAuthority6, nSubAuthority7: DWORD;
  5958.   var pSid: Pointer): BOOL; stdcall;
  5959. {$EXTERNALSYM AllocateAndInitializeSid}
  5960. function FreeSid(pSid: Pointer): Pointer; stdcall;
  5961. {$EXTERNALSYM FreeSid}
  5962. function InitializeSid(Sid: Pointer; const pIdentifierAuthority: TSIDIdentifierAuthority;
  5963.   nSubAuthorityCount: Byte): BOOL; stdcall;
  5964. {$EXTERNALSYM InitializeSid}
  5965. function GetSidIdentifierAuthority(pSid: Pointer): PSIDIdentifierAuthority; stdcall;
  5966. {$EXTERNALSYM GetSidIdentifierAuthority}
  5967. function GetSidSubAuthority(pSid: Pointer; nSubAuthority: DWORD): PDWORD; stdcall;
  5968. {$EXTERNALSYM GetSidSubAuthority}
  5969. function GetSidSubAuthorityCount(pSid: Pointer): PUCHAR; stdcall;
  5970. {$EXTERNALSYM GetSidSubAuthorityCount}
  5971. function GetLengthSid(pSid: Pointer): DWORD; stdcall;
  5972. {$EXTERNALSYM GetLengthSid}
  5973. function CopySid(nDestinationSidLength: DWORD;
  5974.   pDestinationSid, pSourceSid: Pointer): BOOL; stdcall;
  5975. {$EXTERNALSYM CopySid}
  5976. function AreAllAccessesGranted(GrantedAccess, DesiredAccess: DWORD): BOOL; stdcall;
  5977. {$EXTERNALSYM AreAllAccessesGranted}
  5978. function AreAnyAccessesGranted(GrantedAccess, DesiredAccess: DWORD): BOOL; stdcall;
  5979. {$EXTERNALSYM AreAnyAccessesGranted}
  5980. procedure MapGenericMask(var AccessMask: DWORD; const GenericMapping: TGenericMapping); stdcall;
  5981. {$EXTERNALSYM MapGenericMask}
  5982. function IsValidAcl(const pAcl: TACL): BOOL; stdcall;
  5983. {$EXTERNALSYM IsValidAcl}
  5984. function InitializeAcl(var pAcl: TACL; nAclLength, dwAclRevision: DWORD): BOOL; stdcall;
  5985. {$EXTERNALSYM InitializeAcl}
  5986. function GetAclInformation(const pAcl: TACL; pAclInformation: Pointer;
  5987.   nAclInformationLength: DWORD; dwAclInformationClass: TAclInformationClass): BOOL; stdcall;
  5988. {$EXTERNALSYM GetAclInformation}
  5989. function SetAclInformation(var pAcl: TACL; pAclInformation: Pointer;
  5990.   nAclInformationLength: DWORD; dwAclInformationClass: TAclInformationClass): BOOL; stdcall;
  5991. {$EXTERNALSYM SetAclInformation}
  5992. function AddAce(var pAcl: TACL; dwAceRevision, dwStartingAceIndex: DWORD; pAceList: Pointer;
  5993.   nAceListLength: DWORD): BOOL; stdcall;
  5994. {$EXTERNALSYM AddAce}
  5995. function DeleteAce(var pAcl: TACL; dwAceIndex: DWORD): BOOL; stdcall;
  5996. {$EXTERNALSYM DeleteAce}
  5997. function GetAce(const pAcl: TACL; dwAceIndex: DWORD; var pAce: Pointer): BOOL; stdcall;
  5998. {$EXTERNALSYM GetAce}
  5999. function AddAccessAllowedAce(var pAcl: TACL; dwAceRevision: DWORD;
  6000.   AccessMask: DWORD; pSid: PSID): BOOL; stdcall;
  6001. {$EXTERNALSYM AddAccessAllowedAce}
  6002. function AddAccessAllowedAceEx(var pAcl: TACL; dwAceRevision: DWORD;
  6003.   AceFlags: DWORD; AccessMask: DWORD; pSid: PSID): BOOL; stdcall;
  6004. {$EXTERNALSYM AddAccessAllowedAceEx}
  6005. function AddAccessDeniedAce(var pAcl: TACL; dwAceRevision: DWORD;
  6006.   AccessMask: DWORD; pSid: PSID): BOOL; stdcall;
  6007. {$EXTERNALSYM AddAccessDeniedAce}
  6008. function AddAccessDeniedAceEx(var pAcl: TACL; dwAceRevision: DWORD;
  6009.   ACEFlags: DWORD; AccessMask: DWORD; pSid: PSID): BOOL; stdcall;
  6010. {$EXTERNALSYM AddAccessDeniedAceEx}
  6011. function AddAuditAccessAce(var pAcl: TACL; dwAceRevision: DWORD;
  6012.   dwAccessMask: DWORD; pSid: Pointer; bAuditSuccess, bAuditFailure: BOOL): BOOL; stdcall;
  6013. {$EXTERNALSYM AddAuditAccessAce}
  6014. function AddAuditAccessAceEx(var pAcl: TACL; dwAceRevision: DWORD;
  6015.   AceFlags: DWORD; dwAccessMask: DWORD; pSid: Pointer; bAuditSuccess, bAuditFailure: BOOL): BOOL; stdcall;
  6016. {$EXTERNALSYM AddAuditAccessAceEx}
  6017. function AddAccessAllowedObjectAce(var pAcl: TACL; dwAceRevision: DWORD;
  6018.   AceFlags: DWORD; AccessMask: DWORD; ObjectTypeGuid, InheritedObjectTypeGuid: PGuid; pSid: Pointer): BOOL; stdcall;
  6019. {$EXTERNALSYM AddAccessAllowedObjectAce}
  6020. function AddAccessDeniedObjectAce(var pAcl: TACL; dwAceRevision: DWORD;
  6021.   AceFlags: DWORD; AccessMask: DWORD; ObjectTypeGuid, InheritedObjectTypeGuid: PGuid; pSid: Pointer): BOOL; stdcall;
  6022. {$EXTERNALSYM AddAccessDeniedObjectAce}
  6023. function AddAuditAccessObjectAce(var pAcl: TACL; dwAceRevision: DWORD;
  6024.   AceFlags: DWORD; AccessMask: DWORD; ObjectTypeGuid, InheritedObjectTypeGuid: PGuid; pSid: Pointer; bAuditSuccess, bAuditFailure: BOOL): BOOL; stdcall;
  6025. {$EXTERNALSYM AddAuditAccessObjectAce}
  6026. function FindFirstFreeAce(var pAcl: TACL; var pAce: Pointer): BOOL; stdcall;
  6027. {$EXTERNALSYM FindFirstFreeAce}
  6028. function InitializeSecurityDescriptor(pSecurityDescriptor: PSecurityDescriptor;
  6029.   dwRevision: DWORD): BOOL; stdcall;
  6030. {$EXTERNALSYM InitializeSecurityDescriptor}
  6031. function IsValidSecurityDescriptor(pSecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;
  6032. {$EXTERNALSYM IsValidSecurityDescriptor}
  6033. function GetSecurityDescriptorLength(pSecurityDescriptor: PSecurityDescriptor): DWORD; stdcall;
  6034. {$EXTERNALSYM GetSecurityDescriptorLength}
  6035. function GetSecurityDescriptorControl(pSecurityDescriptor: PSecurityDescriptor;
  6036.   var pControl: SECURITY_DESCRIPTOR_CONTROL; var lpdwRevision: DWORD): BOOL; stdcall;
  6037. {$EXTERNALSYM GetSecurityDescriptorControl}
  6038. function SetSecurityDescriptorControl(pSecurityDescriptor: PSecurityDescriptor;
  6039.   ControlBitsOfInterest, ControlBitsToSet: SECURITY_DESCRIPTOR_CONTROL): BOOL; stdcall;
  6040. {$EXTERNALSYM SetSecurityDescriptorControl}
  6041. function SetSecurityDescriptorDacl(pSecurityDescriptor: PSecurityDescriptor;
  6042.   bDaclPresent: BOOL; pDacl: PACL; bDaclDefaulted: BOOL): BOOL; stdcall;
  6043. {$EXTERNALSYM SetSecurityDescriptorDacl}
  6044. function GetSecurityDescriptorDacl(pSecurityDescriptor: PSecurityDescriptor;
  6045.   var lpbDaclPresent: BOOL; var pDacl: PACL; var lpbDaclDefaulted: BOOL): BOOL; stdcall;
  6046. {$EXTERNALSYM GetSecurityDescriptorDacl}
  6047. function SetSecurityDescriptorSacl(pSecurityDescriptor: PSecurityDescriptor;
  6048.   bSaclPresent: BOOL; pSacl: PACL; bSaclDefaulted: BOOL): BOOL; stdcall;
  6049. {$EXTERNALSYM SetSecurityDescriptorSacl}
  6050. function GetSecurityDescriptorSacl(pSecurityDescriptor: PSecurityDescriptor;
  6051.   var lpbSaclPresent: BOOL; var pSacl: PACL; var lpbSaclDefaulted: BOOL): BOOL; stdcall;
  6052. {$EXTERNALSYM GetSecurityDescriptorSacl}
  6053. function SetSecurityDescriptorOwner(pSecurityDescriptor: PSecurityDescriptor;
  6054.   pOwner: PSID; bOwnerDefaulted: BOOL): BOOL; stdcall;
  6055. {$EXTERNALSYM SetSecurityDescriptorOwner}
  6056. function GetSecurityDescriptorOwner(pSecurityDescriptor: PSecurityDescriptor;
  6057.   var pOwner: PSID; var lpbOwnerDefaulted: BOOL): BOOL; stdcall;
  6058. {$EXTERNALSYM GetSecurityDescriptorOwner}
  6059. function SetSecurityDescriptorGroup(pSecurityDescriptor: PSecurityDescriptor;
  6060.   pGroup: PSID; bGroupDefaulted: BOOL): BOOL; stdcall;
  6061. {$EXTERNALSYM SetSecurityDescriptorGroup}
  6062. function GetSecurityDescriptorGroup(pSecurityDescriptor: PSecurityDescriptor;
  6063.   var pGroup: PSID; var lpbGroupDefaulted: BOOL): BOOL; stdcall;
  6064. {$EXTERNALSYM GetSecurityDescriptorGroup}
  6065. function CreatePrivateObjectSecurity(ParentDescriptor, CreatorDescriptor: PSecurityDescriptor;
  6066.   var NewDescriptor: PSecurityDescriptor; IsDirectoryObject: BOOL;
  6067.   Token: THandle; const GenericMapping: TGenericMapping): BOOL; stdcall;
  6068. {$EXTERNALSYM CreatePrivateObjectSecurity}
  6069. function ConvertToAutoInheritPrivateObjectSecurity(ParentDescriptor, CurrentSecurityDescriptor: PSecurityDescriptor;
  6070.   var NewDescriptor: PSecurityDescriptor; ObjectType: PGUID;
  6071.   IsDirectoryObject: BOOL; const GenericMapping: TGenericMapping): BOOL; stdcall;
  6072. {$EXTERNALSYM ConvertToAutoInheritPrivateObjectSecurity}
  6073. function CreatePrivateObjectSecurityEx(ParentDescriptor, CreatorDescriptor: PSecurityDescriptor;
  6074.   var NewDescriptor: PSecurityDescriptor; ObjectType: PGUID; IsContainerObject: BOOL;
  6075.   AutoInheritFlags: ULONG; Token: THandle; const GenericMapping: TGenericMapping): BOOL; stdcall;
  6076. {$EXTERNALSYM CreatePrivateObjectSecurityEx}
  6077. function SetPrivateObjectSecurity(SecurityInformation: SECURITY_INFORMATION;
  6078.   ModificationDescriptor: PSecurityDescriptor; var ObjectsSecurityDescriptor: PSecurityDescriptor;
  6079.   const GenericMapping: TGenericMapping; Token: THandle): BOOL; stdcall;
  6080. {$EXTERNALSYM SetPrivateObjectSecurity}
  6081. function SetPrivateObjectSecurityEx(SecurityInformation: SECURITY_INFORMATION;
  6082.   ModificationDescriptor: PSecurityDescriptor; var ObjectsSecurityDescriptor: PSecurityDescriptor;
  6083.   AutoInheritFlags: ULONG; const GenericMapping: TGenericMapping; Token: THandle): BOOL; stdcall;
  6084. {$EXTERNALSYM SetPrivateObjectSecurityEx}
  6085. function GetPrivateObjectSecurity(ObjectDescriptor: PSecurityDescriptor;
  6086.   SecurityInformation: SECURITY_INFORMATION; ResultantDescriptor: PSecurityDescriptor;
  6087.   DescriptorLength: DWORD; var ReturnLength: DWORD): BOOL; stdcall;
  6088. {$EXTERNALSYM GetPrivateObjectSecurity}
  6089. function DestroyPrivateObjectSecurity(var ObjectDescriptor: PSecurityDescriptor): BOOL; stdcall;
  6090. {$EXTERNALSYM DestroyPrivateObjectSecurity}
  6091. function MakeSelfRelativeSD(pAbsoluteSecurityDescriptor: PSecurityDescriptor;
  6092.   pSelfRelativeSecurityDescriptor: PSecurityDescriptor; var lpdwBufferLength: DWORD): BOOL; stdcall;
  6093. {$EXTERNALSYM MakeSelfRelativeSD}
  6094. function MakeAbsoluteSD(pSelfRelativeSecurityDescriptor: PSecurityDescriptor;
  6095.   pAbsoluteSecurityDescriptor: PSecurityDescriptor; var lpdwAbsoluteSecurityDescriptorSi: DWORD;
  6096.   var pDacl: TACL; var lpdwDaclSize: DWORD; var pSacl: TACL;
  6097.   var lpdwSaclSize: DWORD; pOwner: PSID; var lpdwOwnerSize: DWORD;
  6098.   pPrimaryGroup: Pointer; var lpdwPrimaryGroupSize: DWORD): BOOL; stdcall;
  6099. {$EXTERNALSYM MakeAbsoluteSD}
  6100.  
  6101. function SetFileSecurityA(lpFileName: PAnsiChar; SecurityInformation: SECURITY_INFORMATION;
  6102.   pSecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;
  6103. {$EXTERNALSYM SetFileSecurityA}
  6104. function SetFileSecurityW(lpFileName: PWideChar; SecurityInformation: SECURITY_INFORMATION;
  6105.   pSecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;
  6106. {$EXTERNALSYM SetFileSecurityW}
  6107. function SetFileSecurity(lpFileName: PChar; SecurityInformation: SECURITY_INFORMATION;
  6108.   pSecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;
  6109. {$EXTERNALSYM SetFileSecurity}
  6110. function GetFileSecurityA(lpFileName: PAnsiChar; RequestedInformation: SECURITY_INFORMATION;
  6111.   pSecurityDescriptor: PSecurityDescriptor; nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  6112. {$EXTERNALSYM GetFileSecurityA}
  6113. function GetFileSecurityW(lpFileName: PWideChar; RequestedInformation: SECURITY_INFORMATION;
  6114.   pSecurityDescriptor: PSecurityDescriptor; nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  6115. {$EXTERNALSYM GetFileSecurityW}
  6116. function GetFileSecurity(lpFileName: PChar; RequestedInformation: SECURITY_INFORMATION;
  6117.   pSecurityDescriptor: PSecurityDescriptor; nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  6118. {$EXTERNALSYM GetFileSecurity}
  6119. function SetKernelObjectSecurity(Handle: THandle; SecurityInformation: SECURITY_INFORMATION;
  6120.   SecurityDescriptor: PSecurityDescriptor): BOOL; stdcall;
  6121. {$EXTERNALSYM SetKernelObjectSecurity}
  6122. function FindFirstChangeNotificationA(lpPathName: PAnsiChar;
  6123.   bWatchSubtree: BOOL; dwNotifyFilter: DWORD): THandle; stdcall;
  6124. {$EXTERNALSYM FindFirstChangeNotificationA}
  6125. function FindFirstChangeNotificationW(lpPathName: PWideChar;
  6126.   bWatchSubtree: BOOL; dwNotifyFilter: DWORD): THandle; stdcall;
  6127. {$EXTERNALSYM FindFirstChangeNotificationW}
  6128. function FindFirstChangeNotification(lpPathName: PChar;
  6129.   bWatchSubtree: BOOL; dwNotifyFilter: DWORD): THandle; stdcall;
  6130. {$EXTERNALSYM FindFirstChangeNotification}
  6131. function FindNextChangeNotification(hChangeHandle: THandle): BOOL; stdcall;
  6132. {$EXTERNALSYM FindNextChangeNotification}
  6133. function FindCloseChangeNotification(hChangeHandle: THandle): BOOL; stdcall;
  6134. {$EXTERNALSYM FindCloseChangeNotification}
  6135. function ReadDirectoryChanges(hDirectory: THandle; lpBuffer: Pointer;
  6136.   nBufferLength: DWORD; bWatchSubtree: Bool; dwNotifyFilter: DWORD;
  6137.   lpBytesReturned: LPDWORD; lpOverlapped: POverlapped;
  6138.   lpCompletionRoutine: FARPROC): BOOL; stdcall;
  6139. {$EXTERNALSYM ReadDirectoryChanges}
  6140. function ReadDirectoryChangesW(hDirectory: THandle; lpBuffer: Pointer;
  6141.   nBufferLength: DWORD; bWatchSubtree: Bool; dwNotifyFilter: DWORD;
  6142.   lpBytesReturned: LPDWORD; lpOverlapped: POverlapped;
  6143.   lpCompletionRoutine: FARPROC): BOOL; stdcall;
  6144. {$EXTERNALSYM ReadDirectoryChangesW}
  6145. function VirtualLock(lpAddress: Pointer; dwSize: DWORD): BOOL; stdcall;
  6146. {$EXTERNALSYM VirtualLock}
  6147. function VirtualUnlock(lpAddress: Pointer; dwSize: DWORD): BOOL; stdcall;
  6148. {$EXTERNALSYM VirtualUnlock}
  6149. function MapViewOfFileEx(hFileMappingObject: THandle;
  6150.   dwDesiredAccess, dwFileOffsetHigh, dwFileOffsetLow, dwNumberOfBytesToMap: DWORD;
  6151.   lpBaseAddress: Pointer): Pointer; stdcall;
  6152. {$EXTERNALSYM MapViewOfFileEx}
  6153. function SetPriorityClass(hProcess: THandle; dwPriorityClass: DWORD): BOOL; stdcall;
  6154. {$EXTERNALSYM SetPriorityClass}
  6155. function GetPriorityClass(hProcess: THandle): DWORD; stdcall;
  6156. {$EXTERNALSYM GetPriorityClass}
  6157. function IsBadReadPtr(lp: Pointer; ucb: UINT): BOOL; stdcall;
  6158. {$EXTERNALSYM IsBadReadPtr}
  6159. function IsBadWritePtr(lp: Pointer; ucb: UINT): BOOL; stdcall;
  6160. {$EXTERNALSYM IsBadWritePtr}
  6161. function IsBadHugeReadPtr(lp: Pointer; ucb: UINT): BOOL; stdcall;
  6162. {$EXTERNALSYM IsBadHugeReadPtr}
  6163. function IsBadHugeWritePtr(lp: Pointer; ucb: UINT): BOOL; stdcall;
  6164. {$EXTERNALSYM IsBadHugeWritePtr}
  6165. function IsBadCodePtr(lpfn: FARPROC): BOOL; stdcall;
  6166. {$EXTERNALSYM IsBadCodePtr}
  6167. function IsBadStringPtrA(lpsz: PAnsiChar; ucchMax: UINT): BOOL; stdcall;
  6168. {$EXTERNALSYM IsBadStringPtrA}
  6169. function IsBadStringPtrW(lpsz: PWideChar; ucchMax: UINT): BOOL; stdcall;
  6170. {$EXTERNALSYM IsBadStringPtrW}
  6171. function IsBadStringPtr(lpsz: PChar; ucchMax: UINT): BOOL; stdcall;
  6172. {$EXTERNALSYM IsBadStringPtr}
  6173. function LookupAccountSidA(lpSystemName: PAnsiChar; Sid: PSID;
  6174.   Name: PAnsiChar; var cbName: DWORD; ReferencedDomainName: PAnsiChar;
  6175.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  6176. {$EXTERNALSYM LookupAccountSidA}
  6177. function LookupAccountSidW(lpSystemName: PWideChar; Sid: PSID;
  6178.   Name: PWideChar; var cbName: DWORD; ReferencedDomainName: PWideChar;
  6179.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  6180. {$EXTERNALSYM LookupAccountSidW}
  6181. function LookupAccountSid(lpSystemName: PChar; Sid: PSID;
  6182.   Name: PChar; var cbName: DWORD; ReferencedDomainName: PChar;
  6183.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  6184. {$EXTERNALSYM LookupAccountSid}
  6185. function LookupAccountNameA(lpSystemName, lpAccountName: PAnsiChar;
  6186.   Sid: PSID; var cbSid: DWORD; ReferencedDomainName: PAnsiChar;
  6187.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  6188. {$EXTERNALSYM LookupAccountNameA}
  6189. function LookupAccountNameW(lpSystemName, lpAccountName: PWideChar;
  6190.   Sid: PSID; var cbSid: DWORD; ReferencedDomainName: PWideChar;
  6191.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  6192. {$EXTERNALSYM LookupAccountNameW}
  6193. function LookupAccountName(lpSystemName, lpAccountName: PChar;
  6194.   Sid: PSID; var cbSid: DWORD; ReferencedDomainName: PChar;
  6195.   var cbReferencedDomainName: DWORD; var peUse: SID_NAME_USE): BOOL; stdcall;
  6196. {$EXTERNALSYM LookupAccountName}
  6197. function LookupPrivilegeValueA(lpSystemName, lpName: PAnsiChar;
  6198.   var lpLuid: TLargeInteger): BOOL; stdcall;
  6199. {$EXTERNALSYM LookupPrivilegeValueA}
  6200. function LookupPrivilegeValueW(lpSystemName, lpName: PWideChar;
  6201.   var lpLuid: TLargeInteger): BOOL; stdcall;
  6202. {$EXTERNALSYM LookupPrivilegeValueW}
  6203. function LookupPrivilegeValue(lpSystemName, lpName: PChar;
  6204.   var lpLuid: TLargeInteger): BOOL; stdcall;
  6205. {$EXTERNALSYM LookupPrivilegeValue}
  6206. function LookupPrivilegeNameA(lpSystemName: PAnsiChar;
  6207.   var lpLuid: TLargeInteger; lpName: PAnsiChar; var cbName: DWORD): BOOL; stdcall;
  6208. {$EXTERNALSYM LookupPrivilegeNameA}
  6209. function LookupPrivilegeNameW(lpSystemName: PWideChar;
  6210.   var lpLuid: TLargeInteger; lpName: PWideChar; var cbName: DWORD): BOOL; stdcall;
  6211. {$EXTERNALSYM LookupPrivilegeNameW}
  6212. function LookupPrivilegeName(lpSystemName: PChar;
  6213.   var lpLuid: TLargeInteger; lpName: PChar; var cbName: DWORD): BOOL; stdcall;
  6214. {$EXTERNALSYM LookupPrivilegeName}
  6215. function LookupPrivilegeDisplayNameA(lpSystemName, lpName: PAnsiChar;
  6216.   lpDisplayName: PAnsiChar; var cbDisplayName, lpLanguageId: DWORD): BOOL; stdcall;
  6217. {$EXTERNALSYM LookupPrivilegeDisplayNameA}
  6218. function LookupPrivilegeDisplayNameW(lpSystemName, lpName: PAnsiChar;
  6219.   lpDisplayName: PWideChar; var cbDisplayName, lpLanguageId: DWORD): BOOL; stdcall;
  6220. {$EXTERNALSYM LookupPrivilegeDisplayNameW}
  6221. function LookupPrivilegeDisplayName(lpSystemName, lpName: PAnsiChar;
  6222.   lpDisplayName: PChar; var cbDisplayName, lpLanguageId: DWORD): BOOL; stdcall;
  6223. {$EXTERNALSYM LookupPrivilegeDisplayName}
  6224. function AllocateLocallyUniqueId(var Luid: TLargeInteger): BOOL; stdcall;
  6225. {$EXTERNALSYM AllocateLocallyUniqueId}
  6226. function BuildCommDCBA(lpDef: PAnsiChar; var lpDCB: TDCB): BOOL; stdcall;
  6227. {$EXTERNALSYM BuildCommDCBA}
  6228. {$EXTERNALSYM AllocateLocallyUniqueId}
  6229. function BuildCommDCBW(lpDef: PWideChar; var lpDCB: TDCB): BOOL; stdcall;
  6230. {$EXTERNALSYM BuildCommDCBW}
  6231. {$EXTERNALSYM AllocateLocallyUniqueId}
  6232. function BuildCommDCB(lpDef: PChar; var lpDCB: TDCB): BOOL; stdcall;
  6233. {$EXTERNALSYM BuildCommDCB}
  6234. function BuildCommDCBAndTimeoutsA(lpDef: PAnsiChar; var lpDCB: TDCB;
  6235.   var lpCommTimeouts: TCommTimeouts): BOOL; stdcall;
  6236. {$EXTERNALSYM BuildCommDCBAndTimeoutsA}
  6237. function BuildCommDCBAndTimeoutsW(lpDef: PWideChar; var lpDCB: TDCB;
  6238.   var lpCommTimeouts: TCommTimeouts): BOOL; stdcall;
  6239. {$EXTERNALSYM BuildCommDCBAndTimeoutsW}
  6240. function BuildCommDCBAndTimeouts(lpDef: PChar; var lpDCB: TDCB;
  6241.   var lpCommTimeouts: TCommTimeouts): BOOL; stdcall;
  6242. {$EXTERNALSYM BuildCommDCBAndTimeouts}
  6243. function CommConfigDialogA(lpszName: PAnsiChar; hWnd: HWND; var lpCC: TCommConfig): BOOL; stdcall;
  6244. {$EXTERNALSYM CommConfigDialogA}
  6245. function CommConfigDialogW(lpszName: PWideChar; hWnd: HWND; var lpCC: TCommConfig): BOOL; stdcall;
  6246. {$EXTERNALSYM CommConfigDialogW}
  6247. function CommConfigDialog(lpszName: PChar; hWnd: HWND; var lpCC: TCommConfig): BOOL; stdcall;
  6248. {$EXTERNALSYM CommConfigDialog}
  6249. function GetDefaultCommConfigA(lpszName: PAnsiChar;
  6250.   var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL; stdcall;
  6251. {$EXTERNALSYM GetDefaultCommConfigA}
  6252. function GetDefaultCommConfigW(lpszName: PWideChar;
  6253.   var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL; stdcall;
  6254. {$EXTERNALSYM GetDefaultCommConfigW}
  6255. function GetDefaultCommConfig(lpszName: PChar;
  6256.   var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL; stdcall;
  6257. {$EXTERNALSYM GetDefaultCommConfig}
  6258. function SetDefaultCommConfigA(lpszName: PAnsiChar; lpCC: PCommConfig; dwSize: DWORD): BOOL; stdcall;
  6259. {$EXTERNALSYM SetDefaultCommConfigA}
  6260. function SetDefaultCommConfigW(lpszName: PWideChar; lpCC: PCommConfig; dwSize: DWORD): BOOL; stdcall;
  6261. {$EXTERNALSYM SetDefaultCommConfigW}
  6262. function SetDefaultCommConfig(lpszName: PChar; lpCC: PCommConfig; dwSize: DWORD): BOOL; stdcall;
  6263. {$EXTERNALSYM SetDefaultCommConfig}
  6264.  
  6265. const
  6266.   MAX_COMPUTERNAME_LENGTH = 15;
  6267.   {$EXTERNALSYM MAX_COMPUTERNAME_LENGTH}
  6268.  
  6269. function GetComputerNameA(lpBuffer: PAnsiChar; var nSize: DWORD): BOOL; stdcall;
  6270. {$EXTERNALSYM GetComputerNameA}
  6271. function GetComputerNameW(lpBuffer: PWideChar; var nSize: DWORD): BOOL; stdcall;
  6272. {$EXTERNALSYM GetComputerNameW}
  6273. function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall;
  6274. {$EXTERNALSYM GetComputerName}
  6275. function SetComputerNameA(lpComputerName: PAnsiChar): BOOL; stdcall;
  6276. {$EXTERNALSYM SetComputerNameA}
  6277. function SetComputerNameW(lpComputerName: PWideChar): BOOL; stdcall;
  6278. {$EXTERNALSYM SetComputerNameW}
  6279. function SetComputerName(lpComputerName: PChar): BOOL; stdcall;
  6280. {$EXTERNALSYM SetComputerName}
  6281. function GetUserNameA(lpBuffer: PAnsiChar; var nSize: DWORD): BOOL; stdcall;
  6282. {$EXTERNALSYM GetUserNameA}
  6283. function GetUserNameW(lpBuffer: PWideChar; var nSize: DWORD): BOOL; stdcall;
  6284. {$EXTERNALSYM GetUserNameW}
  6285. function GetUserName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall;
  6286. {$EXTERNALSYM GetUserName}
  6287.  
  6288. { Logon Support APIs }
  6289.  
  6290. const
  6291.   LOGON32_LOGON_INTERACTIVE = 2;
  6292.   {$EXTERNALSYM LOGON32_LOGON_INTERACTIVE}
  6293.   LOGON32_LOGON_NETWORK = 3;
  6294.   {$EXTERNALSYM LOGON32_LOGON_NETWORK}
  6295.   LOGON32_LOGON_BATCH = 4;
  6296.   {$EXTERNALSYM LOGON32_LOGON_BATCH}
  6297.   LOGON32_LOGON_SERVICE = 5;
  6298.   {$EXTERNALSYM LOGON32_LOGON_SERVICE}
  6299.  
  6300.   LOGON32_PROVIDER_DEFAULT = 0;
  6301.   {$EXTERNALSYM LOGON32_PROVIDER_DEFAULT}
  6302.   LOGON32_PROVIDER_WINNT35 = 1;
  6303.   {$EXTERNALSYM LOGON32_PROVIDER_WINNT35}
  6304.   LOGON32_PROVIDER_WINNT40 = 2;
  6305.   {$EXTERNALSYM LOGON32_PROVIDER_WINNT40}
  6306.   LOGON32_PROVIDER_WINNT50 = 3;
  6307.   {$EXTERNALSYM LOGON32_PROVIDER_WINNT50}
  6308.  
  6309. function LogonUserA(lpszUsername, lpszDomain, lpszPassword: PAnsiChar;
  6310.   dwLogonType, dwLogonProvider: DWORD; var phToken: THandle): BOOL; stdcall;
  6311. {$EXTERNALSYM LogonUserA}
  6312. function LogonUserW(lpszUsername, lpszDomain, lpszPassword: PWideChar;
  6313.   dwLogonType, dwLogonProvider: DWORD; var phToken: THandle): BOOL; stdcall;
  6314. {$EXTERNALSYM LogonUserW}
  6315. function LogonUser(lpszUsername, lpszDomain, lpszPassword: PChar;
  6316.   dwLogonType, dwLogonProvider: DWORD; var phToken: THandle): BOOL; stdcall;
  6317. {$EXTERNALSYM LogonUser}
  6318. function ImpersonateLoggedOnUser(hToken: THandle): BOOL; stdcall;
  6319. {$EXTERNALSYM ImpersonateLoggedOnUser}
  6320. function CreateProcessAsUserA(hToken: THandle; lpApplicationName: PAnsiChar;
  6321.   lpCommandLine: PAnsiChar; lpProcessAttributes: PSecurityAttributes;
  6322.   lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL;
  6323.   dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: PAnsiChar;
  6324.   const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  6325. {$EXTERNALSYM CreateProcessAsUserA}
  6326. function CreateProcessAsUserW(hToken: THandle; lpApplicationName: PWideChar;
  6327.   lpCommandLine: PWideChar; lpProcessAttributes: PSecurityAttributes;
  6328.   lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL;
  6329.   dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: PWideChar;
  6330.   const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  6331. {$EXTERNALSYM CreateProcessAsUserW}
  6332. function CreateProcessAsUser(hToken: THandle; lpApplicationName: PChar;
  6333.   lpCommandLine: PChar; lpProcessAttributes: PSecurityAttributes;
  6334.   lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL;
  6335.   dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: PChar;
  6336.   const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL; stdcall;
  6337. {$EXTERNALSYM CreateProcessAsUser}
  6338.  
  6339. function DuplicateTokenEx(hExistingToken: THandle; dwDesiredAccess: DWORD;
  6340.   lpTokenAttributes: PSecurityAttributes;
  6341.   ImpersonationLevel: TSecurityImpersonationLevel; TokenType: TTokenType;
  6342.   var phNewToken: THandle): BOOL; stdcall;
  6343. {$EXTERNALSYM DuplicateTokenEx}
  6344.  
  6345. { Plug-and-Play API's }
  6346. const
  6347.   HW_PROFILE_GUIDLEN = 39;                 { 36-characters plus NULL terminator }
  6348.   {$EXTERNALSYM HW_PROFILE_GUIDLEN}
  6349.   MAX_PROFILE_LEN = 80;
  6350.   {$EXTERNALSYM MAX_PROFILE_LEN}
  6351.  
  6352.   DOCKINFO_UNDOCKED = $1;
  6353.   {$EXTERNALSYM DOCKINFO_UNDOCKED}
  6354.   DOCKINFO_DOCKED = $2;
  6355.   {$EXTERNALSYM DOCKINFO_DOCKED}
  6356.   DOCKINFO_USER_SUPPLIED = $4;
  6357.   {$EXTERNALSYM DOCKINFO_USER_SUPPLIED}
  6358.   DOCKINFO_USER_UNDOCKED = DOCKINFO_USER_SUPPLIED or DOCKINFO_UNDOCKED;
  6359.   {$EXTERNALSYM DOCKINFO_USER_UNDOCKED}
  6360.   DOCKINFO_USER_DOCKED = DOCKINFO_USER_SUPPLIED or DOCKINFO_DOCKED;
  6361.   {$EXTERNALSYM DOCKINFO_USER_DOCKED}
  6362.  
  6363. type
  6364.   PHWProfileInfoA = ^THWProfileInfoA;
  6365.   PHWProfileInfoW = ^THWProfileInfoW;
  6366.   PHWProfileInfo = PHWProfileInfoA;
  6367.   tagHW_PROFILE_INFOA = packed record
  6368.     dwDockInfo: DWORD;
  6369.     szHwProfileGuid: packed array[0..HW_PROFILE_GUIDLEN-1] of AnsiChar;
  6370.     szHwProfileName: packed array[0..MAX_PROFILE_LEN-1] of AnsiChar;
  6371.   end;
  6372.   {$EXTERNALSYM tagHW_PROFILE_INFOA}
  6373.   tagHW_PROFILE_INFOW = packed record
  6374.     dwDockInfo: DWORD;
  6375.     szHwProfileGuid: packed array[0..HW_PROFILE_GUIDLEN-1] of WideChar;
  6376.     szHwProfileName: packed array[0..MAX_PROFILE_LEN-1] of WideChar;
  6377.   end;
  6378.   {$EXTERNALSYM tagHW_PROFILE_INFOW}
  6379.   tagHW_PROFILE_INFO = tagHW_PROFILE_INFOA;
  6380.   THWProfileInfoA = tagHW_PROFILE_INFOA;
  6381.   THWProfileInfoW = tagHW_PROFILE_INFOW;
  6382.   THWProfileInfo = THWProfileInfoA;
  6383.   HW_PROFILE_INFOA = tagHW_PROFILE_INFOA;
  6384.   {$EXTERNALSYM HW_PROFILE_INFOA}
  6385.   HW_PROFILE_INFOW = tagHW_PROFILE_INFOW;
  6386.   {$EXTERNALSYM HW_PROFILE_INFOW}
  6387.   HW_PROFILE_INFO = HW_PROFILE_INFOA;
  6388.  
  6389. function GetCurrentHwProfileA(var lpHwProfileInfo: THWProfileInfoA): BOOL; stdcall;
  6390. {$EXTERNALSYM GetCurrentHwProfileA}
  6391. function GetCurrentHwProfileW(var lpHwProfileInfo: THWProfileInfoW): BOOL; stdcall;
  6392. {$EXTERNALSYM GetCurrentHwProfileW}
  6393. function GetCurrentHwProfile(var lpHwProfileInfo: THWProfileInfo): BOOL; stdcall;
  6394. {$EXTERNALSYM GetCurrentHwProfile}
  6395.  
  6396. { Performance counter API's }
  6397.  
  6398. function QueryPerformanceCounter(var lpPerformanceCount: TLargeInteger): BOOL; stdcall;
  6399. {$EXTERNALSYM QueryPerformanceCounter}
  6400. function QueryPerformanceFrequency(var lpFrequency: TLargeInteger): BOOL; stdcall;
  6401. {$EXTERNALSYM QueryPerformanceFrequency}
  6402.  
  6403. type
  6404.   POSVersionInfoA = ^TOSVersionInfoA;
  6405.   POSVersionInfoW = ^TOSVersionInfoW;
  6406.   POSVersionInfo = POSVersionInfoA;
  6407.   _OSVERSIONINFOA = record
  6408.     dwOSVersionInfoSize: DWORD;
  6409.     dwMajorVersion: DWORD;
  6410.     dwMinorVersion: DWORD;
  6411.     dwBuildNumber: DWORD;
  6412.     dwPlatformId: DWORD;
  6413.     szCSDVersion: array[0..127] of AnsiChar; { Maintenance string for PSS usage }
  6414.   end;
  6415.   {$EXTERNALSYM _OSVERSIONINFOA}
  6416.   _OSVERSIONINFOW = record
  6417.     dwOSVersionInfoSize: DWORD;
  6418.     dwMajorVersion: DWORD;
  6419.     dwMinorVersion: DWORD;
  6420.     dwBuildNumber: DWORD;
  6421.     dwPlatformId: DWORD;
  6422.     szCSDVersion: array[0..127] of WideChar; { Maintenance string for PSS usage }
  6423.   end;
  6424.   {$EXTERNALSYM _OSVERSIONINFOW}
  6425.   _OSVERSIONINFO = _OSVERSIONINFOA;
  6426.   TOSVersionInfoA = _OSVERSIONINFOA;
  6427.   TOSVersionInfoW = _OSVERSIONINFOW;
  6428.   TOSVersionInfo = TOSVersionInfoA;
  6429.   OSVERSIONINFOA = _OSVERSIONINFOA;
  6430.   {$EXTERNALSYM OSVERSIONINFOA}
  6431.   {$EXTERNALSYM OSVERSIONINFO}
  6432.   OSVERSIONINFOW = _OSVERSIONINFOW;
  6433.   {$EXTERNALSYM OSVERSIONINFOW}
  6434.   {$EXTERNALSYM OSVERSIONINFO}
  6435.   OSVERSIONINFO = OSVERSIONINFOA;
  6436.  
  6437. { dwPlatformId defines }
  6438. const
  6439.   VER_PLATFORM_WIN32s = 0;
  6440.   {$EXTERNALSYM VER_PLATFORM_WIN32s}
  6441.   VER_PLATFORM_WIN32_WINDOWS = 1;
  6442.   {$EXTERNALSYM VER_PLATFORM_WIN32_WINDOWS}
  6443.   VER_PLATFORM_WIN32_NT = 2;
  6444.   {$EXTERNALSYM VER_PLATFORM_WIN32_NT}
  6445.  
  6446. function GetVersionExA(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;
  6447. {$EXTERNALSYM GetVersionExA}
  6448. function GetVersionExW(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;
  6449. {$EXTERNALSYM GetVersionExW}
  6450. function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;
  6451. {$EXTERNALSYM GetVersionEx}
  6452.  
  6453. { DOS and OS/2 Compatible Error Code definitions returned by the Win32 Base
  6454.   API functions. }
  6455.  
  6456.  
  6457. { Translated from WINERROR.H }
  6458. { Error code definitions for the Win32 API functions }
  6459.  
  6460. (*
  6461.   Values are 32 bit values layed out as follows:
  6462.    3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
  6463.    1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
  6464.   +---+-+-+-----------------------+-------------------------------+
  6465.   |Sev|C|R|     Facility          |               Code            |
  6466.   +---+-+-+-----------------------+-------------------------------+
  6467.  
  6468.   where
  6469.       Sev - is the severity code
  6470.           00 - Success
  6471.           01 - Informational
  6472.           10 - Warning
  6473.           11 - Error
  6474.  
  6475.       C - is the Customer code flag
  6476.       R - is a reserved bit
  6477.       Facility - is the facility code
  6478.       Code - is the facility's status code
  6479. *)
  6480.  
  6481. { Define the facility codes }
  6482.  
  6483. const
  6484.   FACILITY_WINDOWS                     = 8;
  6485.   {$EXTERNALSYM FACILITY_WINDOWS}
  6486.   FACILITY_STORAGE                     = 3;
  6487.   {$EXTERNALSYM FACILITY_STORAGE}
  6488.   FACILITY_RPC                         = 1;
  6489.   {$EXTERNALSYM FACILITY_RPC}
  6490.   FACILITY_SSPI                        = 9;
  6491.   {$EXTERNALSYM FACILITY_SSPI}
  6492.   FACILITY_WIN32                       = 7;
  6493.   {$EXTERNALSYM FACILITY_WIN32}
  6494.   FACILITY_CONTROL                     = 10;
  6495.   {$EXTERNALSYM FACILITY_CONTROL}
  6496.   FACILITY_NULL                        = 0;
  6497.   {$EXTERNALSYM FACILITY_NULL}
  6498.   FACILITY_INTERNET                    = 12;
  6499.   {$EXTERNALSYM FACILITY_INTERNET}
  6500.   FACILITY_ITF                         = 4;
  6501.   {$EXTERNALSYM FACILITY_ITF}
  6502.   FACILITY_DISPATCH                    = 2;
  6503.   {$EXTERNALSYM FACILITY_DISPATCH}
  6504.   FACILITY_CERT                        = 11;
  6505.   {$EXTERNALSYM FACILITY_CERT}
  6506.  
  6507.  
  6508. { Define the severity codes }
  6509.  
  6510.   { The operation completed successfully. }
  6511.   ERROR_SUCCESS = 0;
  6512.   {$EXTERNALSYM ERROR_SUCCESS}
  6513.   NO_ERROR = 0;   { dderror }
  6514.   {$EXTERNALSYM NO_ERROR}
  6515.  
  6516.   { Incorrect function. }
  6517.   ERROR_INVALID_FUNCTION = 1;   { dderror }
  6518.   {$EXTERNALSYM ERROR_INVALID_FUNCTION}
  6519.  
  6520.   { The system cannot find the file specified. }
  6521.   ERROR_FILE_NOT_FOUND = 2;
  6522.   {$EXTERNALSYM ERROR_FILE_NOT_FOUND}
  6523.  
  6524.   { The system cannot find the path specified. }
  6525.   ERROR_PATH_NOT_FOUND = 3;
  6526.   {$EXTERNALSYM ERROR_PATH_NOT_FOUND}
  6527.  
  6528.   { The system cannot open the file. }
  6529.   ERROR_TOO_MANY_OPEN_FILES = 4;
  6530.   {$EXTERNALSYM ERROR_TOO_MANY_OPEN_FILES}
  6531.  
  6532.   { Access is denied. }
  6533.   ERROR_ACCESS_DENIED = 5;
  6534.   {$EXTERNALSYM ERROR_ACCESS_DENIED}
  6535.  
  6536.   { The handle is invalid. }
  6537.   ERROR_INVALID_HANDLE = 6;
  6538.   {$EXTERNALSYM ERROR_INVALID_HANDLE}
  6539.  
  6540.   { The storage control blocks were destroyed. }
  6541.   ERROR_ARENA_TRASHED = 7;
  6542.   {$EXTERNALSYM ERROR_ARENA_TRASHED}
  6543.  
  6544.   { Not enough storage is available to process this command. }
  6545.   ERROR_NOT_ENOUGH_MEMORY = 8;   { dderror }
  6546.   {$EXTERNALSYM ERROR_NOT_ENOUGH_MEMORY}
  6547.  
  6548.   { The storage control block address is invalid. }
  6549.   ERROR_INVALID_BLOCK = 9;
  6550.   {$EXTERNALSYM ERROR_INVALID_BLOCK}
  6551.  
  6552.   { The environment is incorrect. }
  6553.   ERROR_BAD_ENVIRONMENT = 10;
  6554.   {$EXTERNALSYM ERROR_BAD_ENVIRONMENT}
  6555.  
  6556.   { An attempt was made to load a program with an incorrect format. }
  6557.   ERROR_BAD_FORMAT = 11;
  6558.   {$EXTERNALSYM ERROR_BAD_FORMAT}
  6559.  
  6560.   { The access code is invalid. }
  6561.   ERROR_INVALID_ACCESS = 12;
  6562.   {$EXTERNALSYM ERROR_INVALID_ACCESS}
  6563.  
  6564.   { The data is invalid. }
  6565.   ERROR_INVALID_DATA = 13;
  6566.   {$EXTERNALSYM ERROR_INVALID_DATA}
  6567.  
  6568.   { Not enough storage is available to complete this operation. }
  6569.   ERROR_OUTOFMEMORY = 14;
  6570.   {$EXTERNALSYM ERROR_OUTOFMEMORY}
  6571.  
  6572.   { The system cannot find the drive specified. }
  6573.   ERROR_INVALID_DRIVE = 15;
  6574.   {$EXTERNALSYM ERROR_INVALID_DRIVE}
  6575.  
  6576.   { The directory cannot be removed. }
  6577.   ERROR_CURRENT_DIRECTORY = $10;
  6578.   {$EXTERNALSYM ERROR_CURRENT_DIRECTORY}
  6579.  
  6580.   { The system cannot move the file }
  6581.   { to a different disk drive. }
  6582.   ERROR_NOT_SAME_DEVICE = 17;
  6583.   {$EXTERNALSYM ERROR_NOT_SAME_DEVICE}
  6584.  
  6585.   { There are no more files. }
  6586.   ERROR_NO_MORE_FILES = 18;
  6587.   {$EXTERNALSYM ERROR_NO_MORE_FILES}
  6588.  
  6589.   { The media is write protected. }
  6590.   ERROR_WRITE_PROTECT = 19;
  6591.   {$EXTERNALSYM ERROR_WRITE_PROTECT}
  6592.  
  6593.   { The system cannot find the device specified. }
  6594.   ERROR_BAD_UNIT = 20;
  6595.   {$EXTERNALSYM ERROR_BAD_UNIT}
  6596.  
  6597.   { The device is not ready. }
  6598.   ERROR_NOT_READY = 21;
  6599.   {$EXTERNALSYM ERROR_NOT_READY}
  6600.  
  6601.   { The device does not recognize the command. }
  6602.   ERROR_BAD_COMMAND = 22;
  6603.   {$EXTERNALSYM ERROR_BAD_COMMAND}
  6604.  
  6605.   { Data error (cyclic redundancy check) }
  6606.   ERROR_CRC = 23;
  6607.   {$EXTERNALSYM ERROR_CRC}
  6608.  
  6609.   { The program issued a command but the command length is incorrect. }
  6610.   ERROR_BAD_LENGTH = 24;
  6611.   {$EXTERNALSYM ERROR_BAD_LENGTH}
  6612.  
  6613.   { The drive cannot locate a specific area or track on the disk. }
  6614.   ERROR_SEEK = 25;
  6615.   {$EXTERNALSYM ERROR_SEEK}
  6616.  
  6617.   { The specified disk or diskette cannot be accessed. }
  6618.   ERROR_NOT_DOS_DISK = 26;
  6619.   {$EXTERNALSYM ERROR_NOT_DOS_DISK}
  6620.  
  6621.   { The drive cannot find the sector requested. }
  6622.   ERROR_SECTOR_NOT_FOUND = 27;
  6623.   {$EXTERNALSYM ERROR_SECTOR_NOT_FOUND}
  6624.  
  6625.   { The printer is out of paper. }
  6626.   ERROR_OUT_OF_PAPER = 28;
  6627.   {$EXTERNALSYM ERROR_OUT_OF_PAPER}
  6628.  
  6629.   { The system cannot write to the specified device. }
  6630.   ERROR_WRITE_FAULT = 29;
  6631.   {$EXTERNALSYM ERROR_WRITE_FAULT}
  6632.  
  6633.   { The system cannot read from the specified device. }
  6634.   ERROR_READ_FAULT = 30;
  6635.   {$EXTERNALSYM ERROR_READ_FAULT}
  6636.  
  6637.   { A device attached to the system is not functioning. }
  6638.   ERROR_GEN_FAILURE = 31;
  6639.   {$EXTERNALSYM ERROR_GEN_FAILURE}
  6640.  
  6641.   { The process cannot access the file because it is being used by another process. }
  6642.   ERROR_SHARING_VIOLATION = $20;
  6643.   {$EXTERNALSYM ERROR_SHARING_VIOLATION}
  6644.  
  6645.   { The process cannot access the file because }
  6646.   { another process has locked a portion of the file. }
  6647.   ERROR_LOCK_VIOLATION = 33;
  6648.   {$EXTERNALSYM ERROR_LOCK_VIOLATION}
  6649.  
  6650.   { The wrong diskette is in the drive. Insert %2 (Volume Serial Number: %3) }
  6651.   { into drive %1. }
  6652.   ERROR_WRONG_DISK = 34;
  6653.   {$EXTERNALSYM ERROR_WRONG_DISK}
  6654.  
  6655.   { Too many files opened for sharing. }
  6656.   ERROR_SHARING_BUFFER_EXCEEDED = 36;
  6657.   {$EXTERNALSYM ERROR_SHARING_BUFFER_EXCEEDED}
  6658.  
  6659.   { Reached end of file. }
  6660.   ERROR_HANDLE_EOF = 38;
  6661.   {$EXTERNALSYM ERROR_HANDLE_EOF}
  6662.  
  6663.   { The disk is full. }
  6664.   ERROR_HANDLE_DISK_FULL = 39;
  6665.   {$EXTERNALSYM ERROR_HANDLE_DISK_FULL}
  6666.  
  6667.   { The network request is not supported. }
  6668.   ERROR_NOT_SUPPORTED = 50;
  6669.   {$EXTERNALSYM ERROR_NOT_SUPPORTED}
  6670.  
  6671.   { The remote computer is not available. }
  6672.   ERROR_REM_NOT_LIST = 51;
  6673.   {$EXTERNALSYM ERROR_REM_NOT_LIST}
  6674.  
  6675.   { A duplicate name exists on the network. }
  6676.   ERROR_DUP_NAME = 52;
  6677.   {$EXTERNALSYM ERROR_DUP_NAME}
  6678.  
  6679.   { The network path was not found. }
  6680.   ERROR_BAD_NETPATH = 53;
  6681.   {$EXTERNALSYM ERROR_BAD_NETPATH}
  6682.  
  6683.   { The network is busy. }
  6684.   ERROR_NETWORK_BUSY = 54;
  6685.   {$EXTERNALSYM ERROR_NETWORK_BUSY}
  6686.  
  6687.   { The specified network resource or device is no longer }
  6688.   { available. }
  6689.   ERROR_DEV_NOT_EXIST = 55;   { dderror }
  6690.   {$EXTERNALSYM ERROR_DEV_NOT_EXIST}
  6691.  
  6692.   { The network BIOS command limit has been reached. }
  6693.   ERROR_TOO_MANY_CMDS = 56;
  6694.   {$EXTERNALSYM ERROR_TOO_MANY_CMDS}
  6695.  
  6696.   { A network adapter hardware error occurred. }
  6697.   ERROR_ADAP_HDW_ERR = 57;
  6698.   {$EXTERNALSYM ERROR_ADAP_HDW_ERR}
  6699.  
  6700.   { The specified server cannot perform the requested }
  6701.   { operation. }
  6702.   ERROR_BAD_NET_RESP = 58;
  6703.   {$EXTERNALSYM ERROR_BAD_NET_RESP}
  6704.  
  6705.   { An unexpected network error occurred. }
  6706.   ERROR_UNEXP_NET_ERR = 59;
  6707.   {$EXTERNALSYM ERROR_UNEXP_NET_ERR}
  6708.  
  6709.   { The remote adapter is not compatible. }
  6710.   ERROR_BAD_REM_ADAP = 60;
  6711.   {$EXTERNALSYM ERROR_BAD_REM_ADAP}
  6712.  
  6713.   { The printer queue is full. }
  6714.   ERROR_PRINTQ_FULL = 61;
  6715.   {$EXTERNALSYM ERROR_PRINTQ_FULL}
  6716.  
  6717.   { Space to store the file waiting to be printed is }
  6718.   { not available on the server. }
  6719.   ERROR_NO_SPOOL_SPACE = 62;
  6720.   {$EXTERNALSYM ERROR_NO_SPOOL_SPACE}
  6721.  
  6722.   { Your file waiting to be printed was deleted. }
  6723.   ERROR_PRINT_CANCELLED = 63;
  6724.   {$EXTERNALSYM ERROR_PRINT_CANCELLED}
  6725.  
  6726.   { The specified network name is no longer available. }
  6727.   ERROR_NETNAME_DELETED = $40;
  6728.   {$EXTERNALSYM ERROR_NETNAME_DELETED}
  6729.  
  6730.   { Network access is denied. }
  6731.   ERROR_NETWORK_ACCESS_DENIED = 65;
  6732.   {$EXTERNALSYM ERROR_NETWORK_ACCESS_DENIED}
  6733.  
  6734.   { The network resource type is not correct. }
  6735.   ERROR_BAD_DEV_TYPE = 66;
  6736.   {$EXTERNALSYM ERROR_BAD_DEV_TYPE}
  6737.  
  6738.   { The network name cannot be found. }
  6739.   ERROR_BAD_NET_NAME = 67;
  6740.   {$EXTERNALSYM ERROR_BAD_NET_NAME}
  6741.  
  6742.   { The name limit for the local computer network }
  6743.   { adapter card was exceeded. }
  6744.   ERROR_TOO_MANY_NAMES = 68;
  6745.   {$EXTERNALSYM ERROR_TOO_MANY_NAMES}
  6746.  
  6747.   { The network BIOS session limit was exceeded. }
  6748.   ERROR_TOO_MANY_SESS = 69;
  6749.   {$EXTERNALSYM ERROR_TOO_MANY_SESS}
  6750.  
  6751.   { The remote server has been paused or is in the }
  6752.   { process of being started. }
  6753.   ERROR_SHARING_PAUSED = 70;
  6754.   {$EXTERNALSYM ERROR_SHARING_PAUSED}
  6755.  
  6756.   { No more connections can be made to this remote computer at this time }
  6757.   { because there are already as many connections as the computer can accept. }
  6758.   ERROR_REQ_NOT_ACCEP = 71;
  6759.   {$EXTERNALSYM ERROR_REQ_NOT_ACCEP}
  6760.  
  6761.   { The specified printer or disk device has been paused. }
  6762.   ERROR_REDIR_PAUSED = 72;
  6763.   {$EXTERNALSYM ERROR_REDIR_PAUSED}
  6764.  
  6765.   { The file exists. }
  6766.   ERROR_FILE_EXISTS = 80;
  6767.   {$EXTERNALSYM ERROR_FILE_EXISTS}
  6768.  
  6769.   { The directory or file cannot be created. }
  6770.   ERROR_CANNOT_MAKE = 82;
  6771.   {$EXTERNALSYM ERROR_CANNOT_MAKE}
  6772.  
  6773.   { Fail on INT 24 }
  6774.   ERROR_FAIL_I24 = 83;
  6775.   {$EXTERNALSYM ERROR_FAIL_I24}
  6776.  
  6777.   { Storage to process this request is not available. }
  6778.   ERROR_OUT_OF_STRUCTURES = 84;
  6779.   {$EXTERNALSYM ERROR_OUT_OF_STRUCTURES}
  6780.  
  6781.   { The local device name is already in use. }
  6782.   ERROR_ALREADY_ASSIGNED = 85;
  6783.   {$EXTERNALSYM ERROR_ALREADY_ASSIGNED}
  6784.  
  6785.   { The specified network password is not correct. }
  6786.   ERROR_INVALID_PASSWORD = 86;
  6787.   {$EXTERNALSYM ERROR_INVALID_PASSWORD}
  6788.  
  6789.   { The parameter is incorrect. }
  6790.   ERROR_INVALID_PARAMETER = 87;   { dderror }
  6791.   {$EXTERNALSYM ERROR_INVALID_PARAMETER}
  6792.  
  6793.   { A write fault occurred on the network. }
  6794.   ERROR_NET_WRITE_FAULT = 88;
  6795.   {$EXTERNALSYM ERROR_NET_WRITE_FAULT}
  6796.  
  6797.   { The system cannot start another process at }
  6798.   { this time. }
  6799.   ERROR_NO_PROC_SLOTS = 89;
  6800.   {$EXTERNALSYM ERROR_NO_PROC_SLOTS}
  6801.  
  6802.   { Cannot create another system semaphore. }
  6803.   ERROR_TOO_MANY_SEMAPHORES = 100;
  6804.   {$EXTERNALSYM ERROR_TOO_MANY_SEMAPHORES}
  6805.  
  6806.   { The exclusive semaphore is owned by another process. }
  6807.   ERROR_EXCL_SEM_ALREADY_OWNED = 101;
  6808.   {$EXTERNALSYM ERROR_EXCL_SEM_ALREADY_OWNED}
  6809.  
  6810.   { The semaphore is set and cannot be closed. }
  6811.   ERROR_SEM_IS_SET = 102;
  6812.   {$EXTERNALSYM ERROR_SEM_IS_SET}
  6813.  
  6814.   { The semaphore cannot be set again. }
  6815.   ERROR_TOO_MANY_SEM_REQUESTS = 103;
  6816.   {$EXTERNALSYM ERROR_TOO_MANY_SEM_REQUESTS}
  6817.  
  6818.   { Cannot request exclusive semaphores at interrupt time. }
  6819.   ERROR_INVALID_AT_INTERRUPT_TIME = 104;
  6820.   {$EXTERNALSYM ERROR_INVALID_AT_INTERRUPT_TIME}
  6821.  
  6822.   { The previous ownership of this semaphore has ended. }
  6823.   ERROR_SEM_OWNER_DIED = 105;
  6824.   {$EXTERNALSYM ERROR_SEM_OWNER_DIED}
  6825.  
  6826.   { Insert the diskette for drive %1. }
  6827.   ERROR_SEM_USER_LIMIT = 106;
  6828.   {$EXTERNALSYM ERROR_SEM_USER_LIMIT}
  6829.  
  6830.   { Program stopped because alternate diskette was not inserted. }
  6831.   ERROR_DISK_CHANGE = 107;
  6832.   {$EXTERNALSYM ERROR_DISK_CHANGE}
  6833.  
  6834.   { The disk is in use or locked by }
  6835.   { another process. }
  6836.   ERROR_DRIVE_LOCKED = 108;
  6837.   {$EXTERNALSYM ERROR_DRIVE_LOCKED}
  6838.  
  6839.   { The pipe has been ended. }
  6840.   ERROR_BROKEN_PIPE = 109;
  6841.   {$EXTERNALSYM ERROR_BROKEN_PIPE}
  6842.  
  6843.   { The system cannot open the device or file specified. }
  6844.   ERROR_OPEN_FAILED = 110;
  6845.   {$EXTERNALSYM ERROR_OPEN_FAILED}
  6846.  
  6847.   { The file name is too long. }
  6848.   ERROR_BUFFER_OVERFLOW = 111;
  6849.   {$EXTERNALSYM ERROR_BUFFER_OVERFLOW}
  6850.  
  6851.   { There is not enough space on the disk. }
  6852.   ERROR_DISK_FULL = 112;
  6853.   {$EXTERNALSYM ERROR_DISK_FULL}
  6854.  
  6855.   { No more internal file identifiers available. }
  6856.   ERROR_NO_MORE_SEARCH_HANDLES = 113;
  6857.   {$EXTERNALSYM ERROR_NO_MORE_SEARCH_HANDLES}
  6858.  
  6859.   { The target internal file identifier is incorrect. }
  6860.   ERROR_INVALID_TARGET_HANDLE = 114;
  6861.   {$EXTERNALSYM ERROR_INVALID_TARGET_HANDLE}
  6862.  
  6863.   { The IOCTL call made by the application program is not correct. }
  6864.   ERROR_INVALID_CATEGORY = 117;
  6865.   {$EXTERNALSYM ERROR_INVALID_CATEGORY}
  6866.  
  6867.   { The verify-on-write switch parameter value is not correct. }
  6868.   ERROR_INVALID_VERIFY_SWITCH = 118;
  6869.   {$EXTERNALSYM ERROR_INVALID_VERIFY_SWITCH}
  6870.  
  6871.   { The system does not support the command requested. }
  6872.   ERROR_BAD_DRIVER_LEVEL = 119;
  6873.   {$EXTERNALSYM ERROR_BAD_DRIVER_LEVEL}
  6874.  
  6875.   { This function is only valid in Windows NT mode. }
  6876.   ERROR_CALL_NOT_IMPLEMENTED = 120;
  6877.   {$EXTERNALSYM ERROR_CALL_NOT_IMPLEMENTED}
  6878.  
  6879.   { The semaphore timeout period has expired. }
  6880.   ERROR_SEM_TIMEOUT = 121;
  6881.   {$EXTERNALSYM ERROR_SEM_TIMEOUT}
  6882.  
  6883.   { The data area passed to a system call is too small. }
  6884.   ERROR_INSUFFICIENT_BUFFER = 122;   { dderror }
  6885.   {$EXTERNALSYM ERROR_INSUFFICIENT_BUFFER}
  6886.  
  6887.   { The filename, directory name, or volume label syntax is incorrect. }
  6888.   ERROR_INVALID_NAME = 123;
  6889.   {$EXTERNALSYM ERROR_INVALID_NAME}
  6890.  
  6891.   { The system call level is not correct. }
  6892.   ERROR_INVALID_LEVEL = 124;
  6893.   {$EXTERNALSYM ERROR_INVALID_LEVEL}
  6894.  
  6895.   { The disk has no volume label. }
  6896.   ERROR_NO_VOLUME_LABEL = 125;
  6897.   {$EXTERNALSYM ERROR_NO_VOLUME_LABEL}
  6898.  
  6899.   { The specified module could not be found. }
  6900.   ERROR_MOD_NOT_FOUND = 126;
  6901.   {$EXTERNALSYM ERROR_MOD_NOT_FOUND}
  6902.  
  6903.   { The specified procedure could not be found. }
  6904.   ERROR_PROC_NOT_FOUND = 127;
  6905.   {$EXTERNALSYM ERROR_PROC_NOT_FOUND}
  6906.  
  6907.   { There are no child processes to wait for. }
  6908.   ERROR_WAIT_NO_CHILDREN = $80;
  6909.   {$EXTERNALSYM ERROR_WAIT_NO_CHILDREN}
  6910.  
  6911.   { The %1 application cannot be run in Windows NT mode. }
  6912.   ERROR_CHILD_NOT_COMPLETE = 129;
  6913.   {$EXTERNALSYM ERROR_CHILD_NOT_COMPLETE}
  6914.  
  6915.   { Attempt to use a file handle to an open disk partition for an }
  6916.   { operation other than raw disk I/O. }
  6917.   ERROR_DIRECT_ACCESS_HANDLE = 130;
  6918.   {$EXTERNALSYM ERROR_DIRECT_ACCESS_HANDLE}
  6919.  
  6920.   { An attempt was made to move the file pointer before the beginning of the file. }
  6921.   ERROR_NEGATIVE_SEEK = 131;
  6922.   {$EXTERNALSYM ERROR_NEGATIVE_SEEK}
  6923.  
  6924.   { The file pointer cannot be set on the specified device or file. }
  6925.   ERROR_SEEK_ON_DEVICE = 132;
  6926.   {$EXTERNALSYM ERROR_SEEK_ON_DEVICE}
  6927.  
  6928.   { A JOIN or SUBST command }
  6929.   { cannot be used for a drive that }
  6930.   { contains previously joined drives. }
  6931.   ERROR_IS_JOIN_TARGET = 133;
  6932.   {$EXTERNALSYM ERROR_IS_JOIN_TARGET}
  6933.  
  6934.   { An attempt was made to use a }
  6935.   { JOIN or SUBST command on a drive that has }
  6936.   { already been joined. }
  6937.   ERROR_IS_JOINED = 134;
  6938.   {$EXTERNALSYM ERROR_IS_JOINED}
  6939.  
  6940.   { An attempt was made to use a }
  6941.   { JOIN or SUBST command on a drive that has }
  6942.   { already been substituted. }
  6943.   ERROR_IS_SUBSTED = 135;
  6944.   {$EXTERNALSYM ERROR_IS_SUBSTED}
  6945.  
  6946.   { The system tried to delete }
  6947.   { the JOIN of a drive that is not joined. }
  6948.   ERROR_NOT_JOINED = 136;
  6949.   {$EXTERNALSYM ERROR_NOT_JOINED}
  6950.  
  6951.   { The system tried to delete the }
  6952.   { substitution of a drive that is not substituted. }
  6953.   ERROR_NOT_SUBSTED = 137;
  6954.   {$EXTERNALSYM ERROR_NOT_SUBSTED}
  6955.  
  6956.   { The system tried to join a drive to a directory on a joined drive. }
  6957.   ERROR_JOIN_TO_JOIN = 138;
  6958.   {$EXTERNALSYM ERROR_JOIN_TO_JOIN}
  6959.  
  6960.   { The system tried to substitute a drive to a directory on a substituted drive. }
  6961.   ERROR_SUBST_TO_SUBST = 139;
  6962.   {$EXTERNALSYM ERROR_SUBST_TO_SUBST}
  6963.  
  6964.   { The system tried to join a drive to a directory on a substituted drive. }
  6965.   ERROR_JOIN_TO_SUBST = 140;
  6966.   {$EXTERNALSYM ERROR_JOIN_TO_SUBST}
  6967.  
  6968.   { The system tried to SUBST a drive to a directory on a joined drive. }
  6969.   ERROR_SUBST_TO_JOIN = 141;
  6970.   {$EXTERNALSYM ERROR_SUBST_TO_JOIN}
  6971.  
  6972.   { The system cannot perform a JOIN or SUBST at this time. }
  6973.   ERROR_BUSY_DRIVE = 142;
  6974.   {$EXTERNALSYM ERROR_BUSY_DRIVE}
  6975.  
  6976.   { The system cannot join or substitute a }
  6977.   { drive to or for a directory on the same drive. }
  6978.   ERROR_SAME_DRIVE = 143;
  6979.   {$EXTERNALSYM ERROR_SAME_DRIVE}
  6980.  
  6981.   { The directory is not a subdirectory of the root directory. }
  6982.   ERROR_DIR_NOT_ROOT = 144;
  6983.   {$EXTERNALSYM ERROR_DIR_NOT_ROOT}
  6984.  
  6985.   { The directory is not empty. }
  6986.   ERROR_DIR_NOT_EMPTY = 145;
  6987.   {$EXTERNALSYM ERROR_DIR_NOT_EMPTY}
  6988.  
  6989.   { The path specified is being used in a substitute. }
  6990.   ERROR_IS_SUBST_PATH = 146;
  6991.   {$EXTERNALSYM ERROR_IS_SUBST_PATH}
  6992.  
  6993.   { Not enough resources are available to process this command. }
  6994.   ERROR_IS_JOIN_PATH = 147;
  6995.   {$EXTERNALSYM ERROR_IS_JOIN_PATH}
  6996.  
  6997.   { The path specified cannot be used at this time. }
  6998.   ERROR_PATH_BUSY = 148;
  6999.   {$EXTERNALSYM ERROR_PATH_BUSY}
  7000.  
  7001.   { An attempt was made to join or substitute a drive for which a directory }
  7002.   { on the drive is the target of a previous substitute. }
  7003.   ERROR_IS_SUBST_TARGET = 149;
  7004.   {$EXTERNALSYM ERROR_IS_SUBST_TARGET}
  7005.  
  7006.   { System trace information was not specified in your }
  7007.   { CONFIG.SYS file, or tracing is disallowed. }
  7008.   ERROR_SYSTEM_TRACE = 150;
  7009.   {$EXTERNALSYM ERROR_SYSTEM_TRACE}
  7010.  
  7011.   { The number of specified semaphore events for }
  7012.   { DosMuxSemWait is not correct. }
  7013.   ERROR_INVALID_EVENT_COUNT = 151;
  7014.   {$EXTERNALSYM ERROR_INVALID_EVENT_COUNT}
  7015.  
  7016.   { DosMuxSemWait did not execute; too many semaphores }
  7017.   { are already set. }
  7018.   ERROR_TOO_MANY_MUXWAITERS = 152;
  7019.   {$EXTERNALSYM ERROR_TOO_MANY_MUXWAITERS}
  7020.  
  7021.   { The DosMuxSemWait list is not correct. }
  7022.   ERROR_INVALID_LIST_FORMAT = 153;
  7023.   {$EXTERNALSYM ERROR_INVALID_LIST_FORMAT}
  7024.  
  7025.   {  The volume label you entered exceeds the label character }
  7026.   {  limit of the target file system. }
  7027.   ERROR_LABEL_TOO_LONG = 154;
  7028.   {$EXTERNALSYM ERROR_LABEL_TOO_LONG}
  7029.  
  7030.   { Cannot create another thread. }
  7031.   ERROR_TOO_MANY_TCBS = 155;
  7032.   {$EXTERNALSYM ERROR_TOO_MANY_TCBS}
  7033.  
  7034.   { The recipient process has refused the signal. }
  7035.   ERROR_SIGNAL_REFUSED = 156;
  7036.   {$EXTERNALSYM ERROR_SIGNAL_REFUSED}
  7037.  
  7038.   { The segment is already discarded and cannot be locked. }
  7039.   ERROR_DISCARDED = 157;
  7040.   {$EXTERNALSYM ERROR_DISCARDED}
  7041.  
  7042.   { The segment is already unlocked. }
  7043.   ERROR_NOT_LOCKED = 158;
  7044.   {$EXTERNALSYM ERROR_NOT_LOCKED}
  7045.  
  7046.   { The address for the thread ID is not correct. }
  7047.   ERROR_BAD_THREADID_ADDR = 159;
  7048.   {$EXTERNALSYM ERROR_BAD_THREADID_ADDR}
  7049.  
  7050.   { The argument string passed to DosExecPgm is not correct. }
  7051.   ERROR_BAD_ARGUMENTS = 160;
  7052.   {$EXTERNALSYM ERROR_BAD_ARGUMENTS}
  7053.  
  7054.   { The specified path is invalid. }
  7055.   ERROR_BAD_PATHNAME = 161;
  7056.   {$EXTERNALSYM ERROR_BAD_PATHNAME}
  7057.  
  7058.   { A signal is already pending. }
  7059.   ERROR_SIGNAL_PENDING = 162;
  7060.   {$EXTERNALSYM ERROR_SIGNAL_PENDING}
  7061.  
  7062.   { No more threads can be created in the system. }
  7063.   ERROR_MAX_THRDS_REACHED = 164;
  7064.   {$EXTERNALSYM ERROR_MAX_THRDS_REACHED}
  7065.  
  7066.   { Unable to lock a region of a file. }
  7067.   ERROR_LOCK_FAILED = 167;
  7068.   {$EXTERNALSYM ERROR_LOCK_FAILED}
  7069.  
  7070.   { The requested resource is in use. }
  7071.   ERROR_BUSY = 170;
  7072.   {$EXTERNALSYM ERROR_BUSY}
  7073.  
  7074.   { A lock request was not outstanding for the supplied cancel region. }
  7075.   ERROR_CANCEL_VIOLATION = 173;
  7076.   {$EXTERNALSYM ERROR_CANCEL_VIOLATION}
  7077.  
  7078.   { The file system does not support atomic changes to the lock type. }
  7079.   ERROR_ATOMIC_LOCKS_NOT_SUPPORTED = 174;
  7080.   {$EXTERNALSYM ERROR_ATOMIC_LOCKS_NOT_SUPPORTED}
  7081.  
  7082.   { The system detected a segment number that was not correct. }
  7083.   ERROR_INVALID_SEGMENT_NUMBER = 180;
  7084.   {$EXTERNALSYM ERROR_INVALID_SEGMENT_NUMBER}
  7085.  
  7086.   { The operating system cannot run %1. }
  7087.   ERROR_INVALID_ORDINAL = 182;
  7088.   {$EXTERNALSYM ERROR_INVALID_ORDINAL}
  7089.  
  7090.   { Cannot create a file when that file already exists. }
  7091.   ERROR_ALREADY_EXISTS = 183;
  7092.   {$EXTERNALSYM ERROR_ALREADY_EXISTS}
  7093.  
  7094.   { The flag passed is not correct. }
  7095.   ERROR_INVALID_FLAG_NUMBER = 186;
  7096.   {$EXTERNALSYM ERROR_INVALID_FLAG_NUMBER}
  7097.  
  7098.   { The specified system semaphore name was not found. }
  7099.   ERROR_SEM_NOT_FOUND = 187;
  7100.   {$EXTERNALSYM ERROR_SEM_NOT_FOUND}
  7101.  
  7102.   { The operating system cannot run %1. }
  7103.   ERROR_INVALID_STARTING_CODESEG = 188;
  7104.   {$EXTERNALSYM ERROR_INVALID_STARTING_CODESEG}
  7105.  
  7106.   { The operating system cannot run %1. }
  7107.   ERROR_INVALID_STACKSEG = 189;
  7108.   {$EXTERNALSYM ERROR_INVALID_STACKSEG}
  7109.  
  7110.   { The operating system cannot run %1. }
  7111.   ERROR_INVALID_MODULETYPE = 190;
  7112.   {$EXTERNALSYM ERROR_INVALID_MODULETYPE}
  7113.  
  7114.   { Cannot run %1 in Windows NT mode. }
  7115.   ERROR_INVALID_EXE_SIGNATURE = 191;
  7116.   {$EXTERNALSYM ERROR_INVALID_EXE_SIGNATURE}
  7117.  
  7118.   { The operating system cannot run %1. }
  7119.   ERROR_EXE_MARKED_INVALID = 192;
  7120.   {$EXTERNALSYM ERROR_EXE_MARKED_INVALID}
  7121.  
  7122.   { %1 is not a valid Windows NT application. }
  7123.   ERROR_BAD_EXE_FORMAT = 193;
  7124.   {$EXTERNALSYM ERROR_BAD_EXE_FORMAT}
  7125.  
  7126.   { The operating system cannot run %1. }
  7127.   ERROR_ITERATED_DATA_EXCEEDS_64k = 194;
  7128.   {$EXTERNALSYM ERROR_ITERATED_DATA_EXCEEDS_64k}
  7129.  
  7130.   { The operating system cannot run %1. }
  7131.   ERROR_INVALID_MINALLOCSIZE = 195;
  7132.   {$EXTERNALSYM ERROR_INVALID_MINALLOCSIZE}
  7133.  
  7134.   { The operating system cannot run this application program. }
  7135.   ERROR_DYNLINK_FROM_INVALID_RING = 196;
  7136.   {$EXTERNALSYM ERROR_DYNLINK_FROM_INVALID_RING}
  7137.  
  7138.   { The operating system is not presently configured to run this application. }
  7139.   ERROR_IOPL_NOT_ENABLED = 197;
  7140.   {$EXTERNALSYM ERROR_IOPL_NOT_ENABLED}
  7141.  
  7142.   { The operating system cannot run %1. }
  7143.   ERROR_INVALID_SEGDPL = 198;
  7144.   {$EXTERNALSYM ERROR_INVALID_SEGDPL}
  7145.  
  7146.   { The operating system cannot run this }
  7147.   { application program. }
  7148.   ERROR_AUTODATASEG_EXCEEDS_64k = 199;
  7149.   {$EXTERNALSYM ERROR_AUTODATASEG_EXCEEDS_64k}
  7150.  
  7151.   { The code segment cannot be greater than or equal to 64KB. }
  7152.   ERROR_RING2SEG_MUST_BE_MOVABLE = 200;
  7153.   {$EXTERNALSYM ERROR_RING2SEG_MUST_BE_MOVABLE}
  7154.  
  7155.   { The operating system cannot run %1. }
  7156.   ERROR_RELOC_CHAIN_XEEDS_SEGLIM = 201;
  7157.   {$EXTERNALSYM ERROR_RELOC_CHAIN_XEEDS_SEGLIM}
  7158.  
  7159.   { The operating system cannot run %1. }
  7160.   ERROR_INFLOOP_IN_RELOC_CHAIN = 202;
  7161.   {$EXTERNALSYM ERROR_INFLOOP_IN_RELOC_CHAIN}
  7162.  
  7163.   { The system could not find the environment option that was entered. }
  7164.   ERROR_ENVVAR_NOT_FOUND = 203;
  7165.   {$EXTERNALSYM ERROR_ENVVAR_NOT_FOUND}
  7166.  
  7167.   { No process in the command subtree has a signal handler. }
  7168.   ERROR_NO_SIGNAL_SENT = 205;
  7169.   {$EXTERNALSYM ERROR_NO_SIGNAL_SENT}
  7170.  
  7171.   { The filename or extension is too long. }
  7172.   ERROR_FILENAME_EXCED_RANGE = 206;
  7173.   {$EXTERNALSYM ERROR_FILENAME_EXCED_RANGE}
  7174.  
  7175.   { The ring 2 stack is in use. }
  7176.   ERROR_RING2_STACK_IN_USE = 207;
  7177.   {$EXTERNALSYM ERROR_RING2_STACK_IN_USE}
  7178.  
  7179.   { The global filename characters, * or ?, are entered }
  7180.   { incorrectly or too many global filename characters are specified. }
  7181.   ERROR_META_EXPANSION_TOO_LONG = 208;
  7182.   {$EXTERNALSYM ERROR_META_EXPANSION_TOO_LONG}
  7183.  
  7184.   { The signal being posted is not correct. }
  7185.   ERROR_INVALID_SIGNAL_NUMBER = 209;
  7186.   {$EXTERNALSYM ERROR_INVALID_SIGNAL_NUMBER}
  7187.  
  7188.   { The signal handler cannot be set. }
  7189.   ERROR_THREAD_1_INACTIVE = 210;
  7190.   {$EXTERNALSYM ERROR_THREAD_1_INACTIVE}
  7191.  
  7192.   { The segment is locked and cannot be reallocated. }
  7193.   ERROR_LOCKED = 212;
  7194.   {$EXTERNALSYM ERROR_LOCKED}
  7195.  
  7196.   { Too many dynamic link modules are attached to this }
  7197.   { program or dynamic link module. }
  7198.   ERROR_TOO_MANY_MODULES = 214;
  7199.   {$EXTERNALSYM ERROR_TOO_MANY_MODULES}
  7200.  
  7201.   { Can't nest calls to LoadModule. }
  7202.   ERROR_NESTING_NOT_ALLOWED = 215;
  7203.   {$EXTERNALSYM ERROR_NESTING_NOT_ALLOWED}
  7204.  
  7205.   {  The image file %1 is valid, but is for a machine type other }
  7206.   {  than the current machine. }
  7207.   ERROR_EXE_MACHINE_TYPE_MISMATCH = 216;
  7208.   {$EXTERNALSYM ERROR_EXE_MACHINE_TYPE_MISMATCH}
  7209.  
  7210.   { The pipe state is invalid. }
  7211.   ERROR_BAD_PIPE = 230;
  7212.   {$EXTERNALSYM ERROR_BAD_PIPE}
  7213.  
  7214.   { All pipe instances are busy. }
  7215.   ERROR_PIPE_BUSY = 231;
  7216.   {$EXTERNALSYM ERROR_PIPE_BUSY}
  7217.  
  7218.   { The pipe is being closed. }
  7219.   ERROR_NO_DATA = 232;
  7220.   {$EXTERNALSYM ERROR_NO_DATA}
  7221.  
  7222.   { No process is on the other end of the pipe. }
  7223.   ERROR_PIPE_NOT_CONNECTED = 233;
  7224.   {$EXTERNALSYM ERROR_PIPE_NOT_CONNECTED}
  7225.  
  7226.   { More data is available. }
  7227.   ERROR_MORE_DATA = 234;   { dderror }
  7228.   {$EXTERNALSYM ERROR_MORE_DATA}
  7229.  
  7230.   { The session was cancelled. }
  7231.   ERROR_VC_DISCONNECTED = 240;
  7232.   {$EXTERNALSYM ERROR_VC_DISCONNECTED}
  7233.  
  7234.   { The specified extended attribute name was invalid. }
  7235.   ERROR_INVALID_EA_NAME = 254;
  7236.   {$EXTERNALSYM ERROR_INVALID_EA_NAME}
  7237.  
  7238.   { The extended attributes are inconsistent. }
  7239.   ERROR_EA_LIST_INCONSISTENT = 255;
  7240.   {$EXTERNALSYM ERROR_EA_LIST_INCONSISTENT}
  7241.  
  7242.   { No more data is available. }
  7243.   ERROR_NO_MORE_ITEMS = 259;
  7244.   {$EXTERNALSYM ERROR_NO_MORE_ITEMS}
  7245.  
  7246.   { The Copy API cannot be used. }
  7247.   ERROR_CANNOT_COPY = 266;
  7248.   {$EXTERNALSYM ERROR_CANNOT_COPY}
  7249.  
  7250.   { The directory name is invalid. }
  7251.   ERROR_DIRECTORY = 267;
  7252.   {$EXTERNALSYM ERROR_DIRECTORY}
  7253.  
  7254.   { The extended attributes did not fit in the buffer. }
  7255.   ERROR_EAS_DIDNT_FIT = 275;
  7256.   {$EXTERNALSYM ERROR_EAS_DIDNT_FIT}
  7257.  
  7258.   { The extended attribute file on the mounted file system is corrupt. }
  7259.   ERROR_EA_FILE_CORRUPT = 276;
  7260.   {$EXTERNALSYM ERROR_EA_FILE_CORRUPT}
  7261.  
  7262.   { The extended attribute table file is full. }
  7263.   ERROR_EA_TABLE_FULL = 277;
  7264.   {$EXTERNALSYM ERROR_EA_TABLE_FULL}
  7265.  
  7266.   { The specified extended attribute handle is invalid. }
  7267.   ERROR_INVALID_EA_HANDLE = 278;
  7268.   {$EXTERNALSYM ERROR_INVALID_EA_HANDLE}
  7269.  
  7270.   { The mounted file system does not support extended attributes. }
  7271.   ERROR_EAS_NOT_SUPPORTED = 282;
  7272.   {$EXTERNALSYM ERROR_EAS_NOT_SUPPORTED}
  7273.  
  7274.   { Attempt to release mutex not owned by caller. }
  7275.   ERROR_NOT_OWNER = 288;
  7276.   {$EXTERNALSYM ERROR_NOT_OWNER}
  7277.  
  7278.   { Too many posts were made to a semaphore. }
  7279.   ERROR_TOO_MANY_POSTS = 298;
  7280.   {$EXTERNALSYM ERROR_TOO_MANY_POSTS}
  7281.  
  7282.   { Only part of a Read/WriteProcessMemory request was completed. }
  7283.   ERROR_PARTIAL_COPY = 299;
  7284.   {$EXTERNALSYM ERROR_PARTIAL_COPY}
  7285.  
  7286.   { The system cannot find message for message number $%1 }
  7287.   { in message file for %2. }
  7288.   ERROR_MR_MID_NOT_FOUND = 317;
  7289.   {$EXTERNALSYM ERROR_MR_MID_NOT_FOUND}
  7290.  
  7291.   { Attempt to access invalid address. }
  7292.   ERROR_INVALID_ADDRESS = 487;
  7293.   {$EXTERNALSYM ERROR_INVALID_ADDRESS}
  7294.  
  7295.   { Arithmetic result exceeded 32 bits. }
  7296.   ERROR_ARITHMETIC_OVERFLOW = 534;
  7297.   {$EXTERNALSYM ERROR_ARITHMETIC_OVERFLOW}
  7298.  
  7299.   { There is a process on other end of the pipe. }
  7300.   ERROR_PIPE_CONNECTED = 535;
  7301.   {$EXTERNALSYM ERROR_PIPE_CONNECTED}
  7302.  
  7303.   { Waiting for a process to open the other end of the pipe. }
  7304.   ERROR_PIPE_LISTENING = 536;
  7305.   {$EXTERNALSYM ERROR_PIPE_LISTENING}
  7306.  
  7307.   { Access to the extended attribute was denied. }
  7308.   ERROR_EA_ACCESS_DENIED = 994;
  7309.   {$EXTERNALSYM ERROR_EA_ACCESS_DENIED}
  7310.  
  7311.   { The I/O operation has been aborted because of either a thread exit }
  7312.   { or an application request. }
  7313.   ERROR_OPERATION_ABORTED = 995;
  7314.   {$EXTERNALSYM ERROR_OPERATION_ABORTED}
  7315.  
  7316.   { Overlapped I/O event is not in a signalled state. }
  7317.   ERROR_IO_INCOMPLETE = 996;
  7318.   {$EXTERNALSYM ERROR_IO_INCOMPLETE}
  7319.  
  7320.   { Overlapped I/O operation is in progress. }
  7321.   ERROR_IO_PENDING = 997;   { dderror }
  7322.   {$EXTERNALSYM ERROR_IO_PENDING}
  7323.  
  7324.   { Invalid access to memory location. }
  7325.   ERROR_NOACCESS = 998;
  7326.   {$EXTERNALSYM ERROR_NOACCESS}
  7327.  
  7328.   { Error performing inpage operation. }
  7329.   ERROR_SWAPERROR = 999;
  7330.   {$EXTERNALSYM ERROR_SWAPERROR}
  7331.  
  7332.   { Recursion too deep, stack overflowed. }
  7333.   ERROR_STACK_OVERFLOW = 1001;
  7334.   {$EXTERNALSYM ERROR_STACK_OVERFLOW}
  7335.  
  7336.   { The window cannot act on the sent message. }
  7337.   ERROR_INVALID_MESSAGE = 1002;
  7338.   {$EXTERNALSYM ERROR_INVALID_MESSAGE}
  7339.  
  7340.   { Cannot complete this function. }
  7341.   ERROR_CAN_NOT_COMPLETE = 1003;
  7342.   {$EXTERNALSYM ERROR_CAN_NOT_COMPLETE}
  7343.  
  7344.   { Invalid flags. }
  7345.   ERROR_INVALID_FLAGS = 1004;
  7346.   {$EXTERNALSYM ERROR_INVALID_FLAGS}
  7347.  
  7348.   { The volume does not contain a recognized file system. }
  7349.   { Please make sure that all required file system drivers are loaded and that the }
  7350.   { volume is not corrupt. }
  7351.   ERROR_UNRECOGNIZED_VOLUME = 1005;
  7352.   {$EXTERNALSYM ERROR_UNRECOGNIZED_VOLUME}
  7353.  
  7354.   { The volume for a file has been externally altered such that the }
  7355.   { opened file is no longer valid. }
  7356.   ERROR_FILE_INVALID = 1006;
  7357.   {$EXTERNALSYM ERROR_FILE_INVALID}
  7358.  
  7359.   { The requested operation cannot be performed in full-screen mode. }
  7360.   ERROR_FULLSCREEN_MODE = 1007;
  7361.   {$EXTERNALSYM ERROR_FULLSCREEN_MODE}
  7362.  
  7363.   { An attempt was made to reference a token that does not exist. }
  7364.   ERROR_NO_TOKEN = 1008;
  7365.   {$EXTERNALSYM ERROR_NO_TOKEN}
  7366.  
  7367.   { The configuration registry database is corrupt. }
  7368.   ERROR_BADDB = 1009;
  7369.   {$EXTERNALSYM ERROR_BADDB}
  7370.  
  7371.   { The configuration registry key is invalid. }
  7372.   ERROR_BADKEY = 1010;
  7373.   {$EXTERNALSYM ERROR_BADKEY}
  7374.  
  7375.   { The configuration registry key could not be opened. }
  7376.   ERROR_CANTOPEN = 1011;
  7377.   {$EXTERNALSYM ERROR_CANTOPEN}
  7378.  
  7379.   { The configuration registry key could not be read. }
  7380.   ERROR_CANTREAD = 1012;
  7381.   {$EXTERNALSYM ERROR_CANTREAD}
  7382.  
  7383.   { The configuration registry key could not be written. }
  7384.   ERROR_CANTWRITE = 1013;
  7385.   {$EXTERNALSYM ERROR_CANTWRITE}
  7386.  
  7387.   { One of the files in the Registry database had to be recovered }
  7388.   { by use of a log or alternate copy.  The recovery was successful. }
  7389.   ERROR_REGISTRY_RECOVERED = 1014;
  7390.   {$EXTERNALSYM ERROR_REGISTRY_RECOVERED}
  7391.  
  7392.   { The Registry is corrupt. The structure of one of the files that contains }
  7393.   { Registry data is corrupt, or the system's image of the file in memory }
  7394.   { is corrupt, or the file could not be recovered because the alternate }
  7395.   { copy or log was absent or corrupt. }
  7396.   ERROR_REGISTRY_CORRUPT = 1015;
  7397.   {$EXTERNALSYM ERROR_REGISTRY_CORRUPT}
  7398.  
  7399.   { An I/O operation initiated by the Registry failed unrecoverably. }
  7400.   { The Registry could not read in, or write out, or flush, one of the files }
  7401.   { that contain the system's image of the Registry. }
  7402.   ERROR_REGISTRY_IO_FAILED = 1016;
  7403.   {$EXTERNALSYM ERROR_REGISTRY_IO_FAILED}
  7404.  
  7405.   { The system has attempted to load or restore a file into the Registry, but the }
  7406.   { specified file is not in a Registry file format. }
  7407.   ERROR_NOT_REGISTRY_FILE = 1017;
  7408.   {$EXTERNALSYM ERROR_NOT_REGISTRY_FILE}
  7409.  
  7410.   { Illegal operation attempted on a Registry key which has been marked for deletion. }
  7411.   ERROR_KEY_DELETED = 1018;
  7412.   {$EXTERNALSYM ERROR_KEY_DELETED}
  7413.  
  7414.   { System could not allocate the required space in a Registry log. }
  7415.   ERROR_NO_LOG_SPACE = 1019;
  7416.   {$EXTERNALSYM ERROR_NO_LOG_SPACE}
  7417.  
  7418.   { Cannot create a symbolic link in a Registry key that already }
  7419.   { has subkeys or values. }
  7420.   ERROR_KEY_HAS_CHILDREN = 1020;
  7421.   {$EXTERNALSYM ERROR_KEY_HAS_CHILDREN}
  7422.  
  7423.   { Cannot create a stable subkey under a volatile parent key. }
  7424.   ERROR_CHILD_MUST_BE_VOLATILE = 1021;
  7425.   {$EXTERNALSYM ERROR_CHILD_MUST_BE_VOLATILE}
  7426.  
  7427.   { A notify change request is being completed and the information }
  7428.   { is not being returned in the caller's buffer. The caller now }
  7429.   { needs to enumerate the files to find the changes. }
  7430.   ERROR_NOTIFY_ENUM_DIR = 1022;
  7431.   {$EXTERNALSYM ERROR_NOTIFY_ENUM_DIR}
  7432.  
  7433.   { A stop control has been sent to a service which other running services }
  7434.   { are dependent on. }
  7435.   ERROR_DEPENDENT_SERVICES_RUNNING = 1051;
  7436.   {$EXTERNALSYM ERROR_DEPENDENT_SERVICES_RUNNING}
  7437.  
  7438.   { The requested control is not valid for this service }
  7439.   ERROR_INVALID_SERVICE_CONTROL = 1052;
  7440.   {$EXTERNALSYM ERROR_INVALID_SERVICE_CONTROL}
  7441.  
  7442.   { The service did not respond to the start or control request in a timely }
  7443.   { fashion. }
  7444.   ERROR_SERVICE_REQUEST_TIMEOUT = 1053;
  7445.   {$EXTERNALSYM ERROR_SERVICE_REQUEST_TIMEOUT}
  7446.  
  7447.   { A thread could not be created for the service. }
  7448.   ERROR_SERVICE_NO_THREAD = 1054;
  7449.   {$EXTERNALSYM ERROR_SERVICE_NO_THREAD}
  7450.  
  7451.   { The service database is locked. }
  7452.   ERROR_SERVICE_DATABASE_LOCKED = 1055;
  7453.   {$EXTERNALSYM ERROR_SERVICE_DATABASE_LOCKED}
  7454.  
  7455.   { An instance of the service is already running. }
  7456.   ERROR_SERVICE_ALREADY_RUNNING = 1056;
  7457.   {$EXTERNALSYM ERROR_SERVICE_ALREADY_RUNNING}
  7458.  
  7459.   { The account name is invalid or does not exist. }
  7460.   ERROR_INVALID_SERVICE_ACCOUNT = 1057;
  7461.   {$EXTERNALSYM ERROR_INVALID_SERVICE_ACCOUNT}
  7462.  
  7463.   { The specified service is disabled and cannot be started. }
  7464.   ERROR_SERVICE_DISABLED = 1058;
  7465.   {$EXTERNALSYM ERROR_SERVICE_DISABLED}
  7466.  
  7467.   { Circular service dependency was specified. }
  7468.   ERROR_CIRCULAR_DEPENDENCY = 1059;
  7469.   {$EXTERNALSYM ERROR_CIRCULAR_DEPENDENCY}
  7470.  
  7471.   { The specified service does not exist as an installed service. }
  7472.   ERROR_SERVICE_DOES_NOT_EXIST = 1060;
  7473.   {$EXTERNALSYM ERROR_SERVICE_DOES_NOT_EXIST}
  7474.  
  7475.   { The service cannot accept control messages at this time. }
  7476.   ERROR_SERVICE_CANNOT_ACCEPT_CTRL = 1061;
  7477.   {$EXTERNALSYM ERROR_SERVICE_CANNOT_ACCEPT_CTRL}
  7478.  
  7479.   { The service has not been started. }
  7480.   ERROR_SERVICE_NOT_ACTIVE = 1062;
  7481.   {$EXTERNALSYM ERROR_SERVICE_NOT_ACTIVE}
  7482.  
  7483.   { The service process could not connect to the service controller. }
  7484.   ERROR_FAILED_SERVICE_CONTROLLER_ = 1063;
  7485.   {$EXTERNALSYM ERROR_FAILED_SERVICE_CONTROLLER_}
  7486.  
  7487.   { An exception occurred in the service when handling the control request. }
  7488.   ERROR_EXCEPTION_IN_SERVICE = 1064;
  7489.   {$EXTERNALSYM ERROR_EXCEPTION_IN_SERVICE}
  7490.  
  7491.   { The database specified does not exist. }
  7492.   ERROR_DATABASE_DOES_NOT_EXIST = 1065;
  7493.   {$EXTERNALSYM ERROR_DATABASE_DOES_NOT_EXIST}
  7494.  
  7495.   { The service has returned a service-specific error code. }
  7496.   ERROR_SERVICE_SPECIFIC_ERROR = 1066;
  7497.   {$EXTERNALSYM ERROR_SERVICE_SPECIFIC_ERROR}
  7498.  
  7499.   { The process terminated unexpectedly. }
  7500.   ERROR_PROCESS_ABORTED = 1067;
  7501.   {$EXTERNALSYM ERROR_PROCESS_ABORTED}
  7502.  
  7503.   { The dependency service or group failed to start. }
  7504.   ERROR_SERVICE_DEPENDENCY_FAIL = 1068;
  7505.   {$EXTERNALSYM ERROR_SERVICE_DEPENDENCY_FAIL}
  7506.  
  7507.   { The service did not start due to a logon failure. }
  7508.   ERROR_SERVICE_LOGON_FAILED = 1069;
  7509.   {$EXTERNALSYM ERROR_SERVICE_LOGON_FAILED}
  7510.  
  7511.   { After starting, the service hung in a start-pending state. }
  7512.   ERROR_SERVICE_START_HANG = 1070;
  7513.   {$EXTERNALSYM ERROR_SERVICE_START_HANG}
  7514.  
  7515.   { The specified service database lock is invalid. }
  7516.   ERROR_INVALID_SERVICE_LOCK = 1071;
  7517.   {$EXTERNALSYM ERROR_INVALID_SERVICE_LOCK}
  7518.  
  7519.   { The specified service has been marked for deletion. }
  7520.   ERROR_SERVICE_MARKED_FOR_DELETE = 1072;
  7521.   {$EXTERNALSYM ERROR_SERVICE_MARKED_FOR_DELETE}
  7522.  
  7523.   { The specified service already exists. }
  7524.   ERROR_SERVICE_EXISTS = 1073;
  7525.   {$EXTERNALSYM ERROR_SERVICE_EXISTS}
  7526.  
  7527.   { The system is currently running with the last-known-good configuration. }
  7528.   ERROR_ALREADY_RUNNING_LKG = 1074;
  7529.   {$EXTERNALSYM ERROR_ALREADY_RUNNING_LKG}
  7530.  
  7531.   { The dependency service does not exist or has been marked for }
  7532.   { deletion. }
  7533.   ERROR_SERVICE_DEPENDENCY_DELETED = 1075;
  7534.   {$EXTERNALSYM ERROR_SERVICE_DEPENDENCY_DELETED}
  7535.  
  7536.   { The current boot has already been accepted for use as the }
  7537.   { last-known-good control set. }
  7538.   ERROR_BOOT_ALREADY_ACCEPTED = 1076;
  7539.   {$EXTERNALSYM ERROR_BOOT_ALREADY_ACCEPTED}
  7540.  
  7541.   { No attempts to start the service have been made since the last boot. }
  7542.   ERROR_SERVICE_NEVER_STARTED = 1077;
  7543.   {$EXTERNALSYM ERROR_SERVICE_NEVER_STARTED}
  7544.  
  7545.   { The name is already in use as either a service name or a service display }
  7546.   { name. }
  7547.   ERROR_DUPLICATE_SERVICE_NAME = 1078;
  7548.   {$EXTERNALSYM ERROR_DUPLICATE_SERVICE_NAME}
  7549.  
  7550.   {  The account specified for this service is different from the account }
  7551.   {  specified for other services running in the same process. }
  7552.   ERROR_DIFFERENT_SERVICE_ACCOUNT = 1079;
  7553.   {$EXTERNALSYM ERROR_DIFFERENT_SERVICE_ACCOUNT}
  7554.  
  7555.   { The physical end of the tape has been reached. }
  7556.   ERROR_END_OF_MEDIA = 1100;
  7557.   {$EXTERNALSYM ERROR_END_OF_MEDIA}
  7558.  
  7559.   { A tape access reached a filemark. }
  7560.   ERROR_FILEMARK_DETECTED = 1101;
  7561.   {$EXTERNALSYM ERROR_FILEMARK_DETECTED}
  7562.  
  7563.   { Beginning of tape or partition was encountered. }
  7564.   ERROR_BEGINNING_OF_MEDIA = 1102;
  7565.   {$EXTERNALSYM ERROR_BEGINNING_OF_MEDIA}
  7566.  
  7567.   { A tape access reached the end of a set of files. }
  7568.   ERROR_SETMARK_DETECTED = 1103;
  7569.   {$EXTERNALSYM ERROR_SETMARK_DETECTED}
  7570.  
  7571.   { No more data is on the tape. }
  7572.   ERROR_NO_DATA_DETECTED = 1104;
  7573.   {$EXTERNALSYM ERROR_NO_DATA_DETECTED}
  7574.  
  7575.   { Tape could not be partitioned. }
  7576.   ERROR_PARTITION_FAILURE = 1105;
  7577.   {$EXTERNALSYM ERROR_PARTITION_FAILURE}
  7578.  
  7579.   { When accessing a new tape of a multivolume partition, the current }
  7580.   { blocksize is incorrect. }
  7581.   ERROR_INVALID_BLOCK_LENGTH = 1106;
  7582.   {$EXTERNALSYM ERROR_INVALID_BLOCK_LENGTH}
  7583.  
  7584.   { Tape partition information could not be found when loading a tape. }
  7585.   ERROR_DEVICE_NOT_PARTITIONED = 1107;
  7586.   {$EXTERNALSYM ERROR_DEVICE_NOT_PARTITIONED}
  7587.  
  7588.   { Unable to lock the media eject mechanism. }
  7589.   ERROR_UNABLE_TO_LOCK_MEDIA = 1108;
  7590.   {$EXTERNALSYM ERROR_UNABLE_TO_LOCK_MEDIA}
  7591.  
  7592.   { Unable to unload the media. }
  7593.   ERROR_UNABLE_TO_UNLOAD_MEDIA = 1109;
  7594.   {$EXTERNALSYM ERROR_UNABLE_TO_UNLOAD_MEDIA}
  7595.  
  7596.   { Media in drive may have changed. }
  7597.   ERROR_MEDIA_CHANGED = 1110;
  7598.   {$EXTERNALSYM ERROR_MEDIA_CHANGED}
  7599.  
  7600.   { The I/O bus was reset. }
  7601.   ERROR_BUS_RESET = 1111;
  7602.   {$EXTERNALSYM ERROR_BUS_RESET}
  7603.  
  7604.   { No media in drive. }
  7605.   ERROR_NO_MEDIA_IN_DRIVE = 1112;
  7606.   {$EXTERNALSYM ERROR_NO_MEDIA_IN_DRIVE}
  7607.  
  7608.   { No mapping for the Unicode character exists in the target multi-byte code page. }
  7609.   ERROR_NO_UNICODE_TRANSLATION = 1113;
  7610.   {$EXTERNALSYM ERROR_NO_UNICODE_TRANSLATION}
  7611.  
  7612.   { A dynamic link library (DLL) initialization routine failed. }
  7613.   ERROR_DLL_INIT_FAILED = 1114;
  7614.   {$EXTERNALSYM ERROR_DLL_INIT_FAILED}
  7615.  
  7616.   { A system shutdown is in progress. }
  7617.   ERROR_SHUTDOWN_IN_PROGRESS = 1115;
  7618.   {$EXTERNALSYM ERROR_SHUTDOWN_IN_PROGRESS}
  7619.  
  7620.   { Unable to abort the system shutdown because no shutdown was in progress. }
  7621.   ERROR_NO_SHUTDOWN_IN_PROGRESS = 1116;
  7622.   {$EXTERNALSYM ERROR_NO_SHUTDOWN_IN_PROGRESS}
  7623.  
  7624.   { The request could not be performed because of an I/O device error. }
  7625.   ERROR_IO_DEVICE = 1117;
  7626.   {$EXTERNALSYM ERROR_IO_DEVICE}
  7627.  
  7628.   { No serial device was successfully initialized.  The serial driver will unload. }
  7629.   ERROR_SERIAL_NO_DEVICE = 1118;
  7630.   {$EXTERNALSYM ERROR_SERIAL_NO_DEVICE}
  7631.  
  7632.   { Unable to open a device that was sharing an interrupt request (IRQ) }
  7633.   { with other devices. At least one other device that uses that IRQ }
  7634.   { was already opened. }
  7635.   ERROR_IRQ_BUSY = 1119;
  7636.   {$EXTERNALSYM ERROR_IRQ_BUSY}
  7637.  
  7638.   { A serial I/O operation was completed by another write to the serial port. }
  7639.   { (The IOCTL_SERIAL_XOFF_COUNTER reached zero.) }
  7640.   ERROR_MORE_WRITES = 1120;
  7641.   {$EXTERNALSYM ERROR_MORE_WRITES}
  7642.  
  7643.   { A serial I/O operation completed because the time-out period expired. }
  7644.   { (The IOCTL_SERIAL_XOFF_COUNTER did not reach zero.) }
  7645.   ERROR_COUNTER_TIMEOUT = 1121;
  7646.   {$EXTERNALSYM ERROR_COUNTER_TIMEOUT}
  7647.  
  7648.   { No ID address mark was found on the floppy disk. }
  7649.   ERROR_FLOPPY_ID_MARK_NOT_FOUND = 1122;
  7650.   {$EXTERNALSYM ERROR_FLOPPY_ID_MARK_NOT_FOUND}
  7651.  
  7652.   { Mismatch between the floppy disk sector ID field and the floppy disk }
  7653.   { controller track address. }
  7654.   ERROR_FLOPPY_WRONG_CYLINDER = 1123;
  7655.   {$EXTERNALSYM ERROR_FLOPPY_WRONG_CYLINDER}
  7656.  
  7657.   { The floppy disk controller reported an error that is not recognized }
  7658.   { by the floppy disk driver. }
  7659.   ERROR_FLOPPY_UNKNOWN_ERROR = 1124;
  7660.   {$EXTERNALSYM ERROR_FLOPPY_UNKNOWN_ERROR}
  7661.  
  7662.   { The floppy disk controller returned inconsistent results in its registers. }
  7663.   ERROR_FLOPPY_BAD_REGISTERS = 1125;
  7664.   {$EXTERNALSYM ERROR_FLOPPY_BAD_REGISTERS}
  7665.  
  7666.   { While accessing the hard disk, a recalibrate operation failed, even after retries. }
  7667.   ERROR_DISK_RECALIBRATE_FAILED = 1126;
  7668.   {$EXTERNALSYM ERROR_DISK_RECALIBRATE_FAILED}
  7669.  
  7670.   { While accessing the hard disk, a disk operation failed even after retries. }
  7671.   ERROR_DISK_OPERATION_FAILED = 1127;
  7672.   {$EXTERNALSYM ERROR_DISK_OPERATION_FAILED}
  7673.  
  7674.   { While accessing the hard disk, a disk controller reset was needed, but }
  7675.   { even that failed. }
  7676.   ERROR_DISK_RESET_FAILED = 1128;
  7677.   {$EXTERNALSYM ERROR_DISK_RESET_FAILED}
  7678.  
  7679.   { Physical end of tape encountered. }
  7680.   ERROR_EOM_OVERFLOW = 1129;
  7681.   {$EXTERNALSYM ERROR_EOM_OVERFLOW}
  7682.  
  7683.   { Not enough server storage is available to process this command. }
  7684.   ERROR_NOT_ENOUGH_SERVER_MEMORY = 1130;
  7685.   {$EXTERNALSYM ERROR_NOT_ENOUGH_SERVER_MEMORY}
  7686.  
  7687.   { A potential deadlock condition has been detected. }
  7688.   ERROR_POSSIBLE_DEADLOCK = 1131;
  7689.   {$EXTERNALSYM ERROR_POSSIBLE_DEADLOCK}
  7690.  
  7691.   { The base address or the file offset specified does not have the proper }
  7692.   { alignment. }
  7693.   ERROR_MAPPED_ALIGNMENT = 1132;
  7694.   {$EXTERNALSYM ERROR_MAPPED_ALIGNMENT}
  7695.  
  7696.   { An attempt to change the system power state was vetoed by another }
  7697.   { application or driver. }
  7698.   ERROR_SET_POWER_STATE_VETOED = 1140;
  7699.   {$EXTERNALSYM ERROR_SET_POWER_STATE_VETOED}
  7700.  
  7701.   { The system BIOS failed an attempt to change the system power state. }
  7702.   ERROR_SET_POWER_STATE_FAILED = 1141;
  7703.   {$EXTERNALSYM ERROR_SET_POWER_STATE_FAILED}
  7704.  
  7705.   {  An attempt was made to create more links on a file than }
  7706.   {  the file system supports. }
  7707.   ERROR_TOO_MANY_LINKS = 1142;
  7708.   {$EXTERNALSYM ERROR_TOO_MANY_LINKS}
  7709.  
  7710.   { The specified program requires a newer version of Windows. }
  7711.   ERROR_OLD_WIN_VERSION = 1150;
  7712.   {$EXTERNALSYM ERROR_OLD_WIN_VERSION}
  7713.  
  7714.   { The specified program is not a Windows or MS-DOS program. }
  7715.   ERROR_APP_WRONG_OS = 1151;
  7716.   {$EXTERNALSYM ERROR_APP_WRONG_OS}
  7717.  
  7718.   { Cannot start more than one instance of the specified program. }
  7719.   ERROR_SINGLE_INSTANCE_APP = 1152;
  7720.   {$EXTERNALSYM ERROR_SINGLE_INSTANCE_APP}
  7721.  
  7722.   {  The specified program was written for an older version of Windows. }
  7723.   ERROR_RMODE_APP = 1153;
  7724.   {$EXTERNALSYM ERROR_RMODE_APP}
  7725.  
  7726.   { One of the library files needed to run this application is damaged. }
  7727.   ERROR_INVALID_DLL = 1154;
  7728.   {$EXTERNALSYM ERROR_INVALID_DLL}
  7729.  
  7730.   { No application is associated with the specified file for this operation. }
  7731.   ERROR_NO_ASSOCIATION = 1155;
  7732.   {$EXTERNALSYM ERROR_NO_ASSOCIATION}
  7733.  
  7734.   { An error occurred in sending the command to the application. }
  7735.   ERROR_DDE_FAIL = 1156;
  7736.   {$EXTERNALSYM ERROR_DDE_FAIL}
  7737.  
  7738.   { One of the library files needed to run this application cannot be found. }
  7739.   ERROR_DLL_NOT_FOUND = 1157;
  7740.   {$EXTERNALSYM ERROR_DLL_NOT_FOUND}
  7741.  
  7742.  
  7743. { Winnet32 Status Codes }
  7744.  
  7745.   { The specified username is invalid. }
  7746.   ERROR_BAD_USERNAME = 2202;
  7747.   {$EXTERNALSYM ERROR_BAD_USERNAME}
  7748.  
  7749.   { This network connection does not exist. }
  7750.   ERROR_NOT_CONNECTED = 2250;
  7751.   {$EXTERNALSYM ERROR_NOT_CONNECTED}
  7752.  
  7753.   { This network connection has files open or requests pending. }
  7754.   ERROR_OPEN_FILES = 2401;
  7755.   {$EXTERNALSYM ERROR_OPEN_FILES}
  7756.  
  7757.   { Active connections still exist. }
  7758.   ERROR_ACTIVE_CONNECTIONS = 2402;
  7759.   {$EXTERNALSYM ERROR_ACTIVE_CONNECTIONS}
  7760.  
  7761.   { The device is in use by an active process and cannot be disconnected. }
  7762.   ERROR_DEVICE_IN_USE = 2404;
  7763.   {$EXTERNALSYM ERROR_DEVICE_IN_USE}
  7764.  
  7765.   { The specified device name is invalid. }
  7766.   ERROR_BAD_DEVICE = 1200;
  7767.   {$EXTERNALSYM ERROR_BAD_DEVICE}
  7768.  
  7769.   { The device is not currently connected but it is a remembered connection. }
  7770.   ERROR_CONNECTION_UNAVAIL = 1201;
  7771.   {$EXTERNALSYM ERROR_CONNECTION_UNAVAIL}
  7772.  
  7773.   { An attempt was made to remember a device that had previously been remembered. }
  7774.   ERROR_DEVICE_ALREADY_REMEMBERED = 1202;
  7775.   {$EXTERNALSYM ERROR_DEVICE_ALREADY_REMEMBERED}
  7776.  
  7777.   { No network provider accepted the given network path. }
  7778.   ERROR_NO_NET_OR_BAD_PATH = 1203;
  7779.   {$EXTERNALSYM ERROR_NO_NET_OR_BAD_PATH}
  7780.  
  7781.   { The specified network provider name is invalid. }
  7782.   ERROR_BAD_PROVIDER = 1204;
  7783.   {$EXTERNALSYM ERROR_BAD_PROVIDER}
  7784.  
  7785.   { Unable to open the network connection profile. }
  7786.   ERROR_CANNOT_OPEN_PROFILE = 1205;
  7787.   {$EXTERNALSYM ERROR_CANNOT_OPEN_PROFILE}
  7788.  
  7789.   { The network connection profile is corrupt. }
  7790.   ERROR_BAD_PROFILE = 1206;
  7791.   {$EXTERNALSYM ERROR_BAD_PROFILE}
  7792.  
  7793.   { Cannot enumerate a non-container. }
  7794.   ERROR_NOT_CONTAINER = 1207;
  7795.   {$EXTERNALSYM ERROR_NOT_CONTAINER}
  7796.  
  7797.   { An extended error has occurred. }
  7798.   ERROR_EXTENDED_ERROR = 1208;
  7799.   {$EXTERNALSYM ERROR_EXTENDED_ERROR}
  7800.  
  7801.   { The format of the specified group name is invalid. }
  7802.   ERROR_INVALID_GROUPNAME = 1209;
  7803.   {$EXTERNALSYM ERROR_INVALID_GROUPNAME}
  7804.  
  7805.   { The format of the specified computer name is invalid. }
  7806.   ERROR_INVALID_COMPUTERNAME = 1210;
  7807.   {$EXTERNALSYM ERROR_INVALID_COMPUTERNAME}
  7808.  
  7809.   { The format of the specified event name is invalid. }
  7810.   ERROR_INVALID_EVENTNAME = 1211;
  7811.   {$EXTERNALSYM ERROR_INVALID_EVENTNAME}
  7812.  
  7813.   { The format of the specified domain name is invalid. }
  7814.   ERROR_INVALID_DOMAINNAME = 1212;
  7815.   {$EXTERNALSYM ERROR_INVALID_DOMAINNAME}
  7816.  
  7817.   { The format of the specified service name is invalid. }
  7818.   ERROR_INVALID_SERVICENAME = 1213;
  7819.   {$EXTERNALSYM ERROR_INVALID_SERVICENAME}
  7820.  
  7821.   { The format of the specified network name is invalid. }
  7822.   ERROR_INVALID_NETNAME = 1214;
  7823.   {$EXTERNALSYM ERROR_INVALID_NETNAME}
  7824.  
  7825.   { The format of the specified share name is invalid. }
  7826.   ERROR_INVALID_SHARENAME = 1215;
  7827.   {$EXTERNALSYM ERROR_INVALID_SHARENAME}
  7828.  
  7829.   { The format of the specified password is invalid. }
  7830.   ERROR_INVALID_PASSWORDNAME = 1216;
  7831.   {$EXTERNALSYM ERROR_INVALID_PASSWORDNAME}
  7832.  
  7833.   { The format of the specified message name is invalid. }
  7834.   ERROR_INVALID_MESSAGENAME = 1217;
  7835.   {$EXTERNALSYM ERROR_INVALID_MESSAGENAME}
  7836.  
  7837.   { The format of the specified message destination is invalid. }
  7838.   ERROR_INVALID_MESSAGEDEST = 1218;
  7839.   {$EXTERNALSYM ERROR_INVALID_MESSAGEDEST}
  7840.  
  7841.   { The credentials supplied conflict with an existing set of credentials. }
  7842.   ERROR_SESSION_CREDENTIAL_CONFLICT = 1219;
  7843.   {$EXTERNALSYM ERROR_SESSION_CREDENTIAL_CONFLICT}
  7844.  
  7845.   { An attempt was made to establish a session to a network server, but there }
  7846.   { are already too many sessions established to that server. }
  7847.   ERROR_REMOTE_SESSION_LIMIT_EXCEEDED = 1220;
  7848.   {$EXTERNALSYM ERROR_REMOTE_SESSION_LIMIT_EXCEEDED}
  7849.  
  7850.   { The workgroup or domain name is already in use by another computer on the }
  7851.   { network. }
  7852.   ERROR_DUP_DOMAINNAME = 1221;
  7853.   {$EXTERNALSYM ERROR_DUP_DOMAINNAME}
  7854.  
  7855.   { The network is not present or not started. }
  7856.   ERROR_NO_NETWORK = 1222;
  7857.   {$EXTERNALSYM ERROR_NO_NETWORK}
  7858.  
  7859.   { The operation was cancelled by the user. }
  7860.   ERROR_CANCELLED = 1223;
  7861.   {$EXTERNALSYM ERROR_CANCELLED}
  7862.  
  7863.   { The requested operation cannot be performed on a file with a user mapped section open. }
  7864.   ERROR_USER_MAPPED_FILE = 1224;
  7865.   {$EXTERNALSYM ERROR_USER_MAPPED_FILE}
  7866.  
  7867.   { The remote system refused the network connection. }
  7868.   ERROR_CONNECTION_REFUSED = 1225;
  7869.   {$EXTERNALSYM ERROR_CONNECTION_REFUSED}
  7870.  
  7871.   { The network connection was gracefully closed. }
  7872.   ERROR_GRACEFUL_DISCONNECT = 1226;
  7873.   {$EXTERNALSYM ERROR_GRACEFUL_DISCONNECT}
  7874.  
  7875.   { The network transport endpoint already has an address associated with it. }
  7876.   ERROR_ADDRESS_ALREADY_ASSOCIATED = 1227;
  7877.   {$EXTERNALSYM ERROR_ADDRESS_ALREADY_ASSOCIATED}
  7878.  
  7879.   { An address has not yet been associated with the network endpoint. }
  7880.   ERROR_ADDRESS_NOT_ASSOCIATED = 1228;
  7881.   {$EXTERNALSYM ERROR_ADDRESS_NOT_ASSOCIATED}
  7882.  
  7883.   { An operation was attempted on a non-existent network connection. }
  7884.   ERROR_CONNECTION_INVALID = 1229;
  7885.   {$EXTERNALSYM ERROR_CONNECTION_INVALID}
  7886.  
  7887.   { An invalid operation was attempted on an active network connection. }
  7888.   ERROR_CONNECTION_ACTIVE = 1230;
  7889.   {$EXTERNALSYM ERROR_CONNECTION_ACTIVE}
  7890.  
  7891.   { The remote network is not reachable by the transport. }
  7892.   ERROR_NETWORK_UNREACHABLE = 1231;
  7893.   {$EXTERNALSYM ERROR_NETWORK_UNREACHABLE}
  7894.  
  7895.   { The remote system is not reachable by the transport. }
  7896.   ERROR_HOST_UNREACHABLE = 1232;
  7897.   {$EXTERNALSYM ERROR_HOST_UNREACHABLE}
  7898.  
  7899.   { The remote system does not support the transport protocol. }
  7900.   ERROR_PROTOCOL_UNREACHABLE = 1233;
  7901.   {$EXTERNALSYM ERROR_PROTOCOL_UNREACHABLE}
  7902.  
  7903.   { No service is operating at the destination network endpoint }
  7904.   { on the remote system. }
  7905.   ERROR_PORT_UNREACHABLE = 1234;
  7906.   {$EXTERNALSYM ERROR_PORT_UNREACHABLE}
  7907.  
  7908.   { The request was aborted. }
  7909.   ERROR_REQUEST_ABORTED = 1235;
  7910.   {$EXTERNALSYM ERROR_REQUEST_ABORTED}
  7911.  
  7912.   { The network connection was aborted by the local system. }
  7913.   ERROR_CONNECTION_ABORTED = 1236;
  7914.   {$EXTERNALSYM ERROR_CONNECTION_ABORTED}
  7915.  
  7916.   { The operation could not be completed.  A retry should be performed. }
  7917.   ERROR_RETRY = 1237;
  7918.   {$EXTERNALSYM ERROR_RETRY}
  7919.  
  7920.   { A connection to the server could not be made because the limit on the number of }
  7921.   { concurrent connections for this account has been reached. }
  7922.   ERROR_CONNECTION_COUNT_LIMIT = 1238;
  7923.   {$EXTERNALSYM ERROR_CONNECTION_COUNT_LIMIT}
  7924.  
  7925.   { Attempting to login during an unauthorized time of day for this account. }
  7926.   ERROR_LOGIN_TIME_RESTRICTION = 1239;
  7927.   {$EXTERNALSYM ERROR_LOGIN_TIME_RESTRICTION}
  7928.  
  7929.   { The account is not authorized to login from this station. }
  7930.   ERROR_LOGIN_WKSTA_RESTRICTION = 1240;
  7931.   {$EXTERNALSYM ERROR_LOGIN_WKSTA_RESTRICTION}
  7932.  
  7933.   { The network address could not be used for the operation requested. }
  7934.   ERROR_INCORRECT_ADDRESS = 1241;
  7935.   {$EXTERNALSYM ERROR_INCORRECT_ADDRESS}
  7936.  
  7937.   { The service is already registered. }
  7938.   ERROR_ALREADY_REGISTERED = 1242;
  7939.   {$EXTERNALSYM ERROR_ALREADY_REGISTERED}
  7940.  
  7941.   { The specified service does not exist. }
  7942.   ERROR_SERVICE_NOT_FOUND = 1243;
  7943.   {$EXTERNALSYM ERROR_SERVICE_NOT_FOUND}
  7944.  
  7945.   { The operation being requested was not performed because the user }
  7946.   { has not been authenticated. }
  7947.   ERROR_NOT_AUTHENTICATED = 1244;
  7948.   {$EXTERNALSYM ERROR_NOT_AUTHENTICATED}
  7949.  
  7950.   { The operation being requested was not performed because the user }
  7951.   { has not logged on to the network. }
  7952.   { The specified service does not exist. }
  7953.   ERROR_NOT_LOGGED_ON = 1245;
  7954.   {$EXTERNALSYM ERROR_NOT_LOGGED_ON}
  7955.  
  7956.   { Return that wants caller to continue with work in progress. }
  7957.   ERROR_CONTINUE = 1246;
  7958.   {$EXTERNALSYM ERROR_CONTINUE}
  7959.  
  7960.   { An attempt was made to perform an initialization operation when }
  7961.   { initialization has already been completed. }
  7962.   ERROR_ALREADY_INITIALIZED = 1247;
  7963.   {$EXTERNALSYM ERROR_ALREADY_INITIALIZED}
  7964.  
  7965.   { No more local devices. }
  7966.   ERROR_NO_MORE_DEVICES = 1248;
  7967.   {$EXTERNALSYM ERROR_NO_MORE_DEVICES}
  7968.  
  7969.  
  7970. { Security Status Codes }
  7971.  
  7972.   { Not all privileges referenced are assigned to the caller. }
  7973.   ERROR_NOT_ALL_ASSIGNED = 1300;
  7974.   {$EXTERNALSYM ERROR_NOT_ALL_ASSIGNED}
  7975.  
  7976.   { Some mapping between account names and security IDs was not done. }
  7977.   ERROR_SOME_NOT_MAPPED = 1301;
  7978.   {$EXTERNALSYM ERROR_SOME_NOT_MAPPED}
  7979.  
  7980.   { No system quota limits are specifically set for this account. }
  7981.   ERROR_NO_QUOTAS_FOR_ACCOUNT = 1302;
  7982.   {$EXTERNALSYM ERROR_NO_QUOTAS_FOR_ACCOUNT}
  7983.  
  7984.   { No encryption key is available.  A well-known encryption key was returned. }
  7985.   ERROR_LOCAL_USER_SESSION_KEY = 1303;
  7986.   {$EXTERNALSYM ERROR_LOCAL_USER_SESSION_KEY}
  7987.  
  7988.   { The NT password is too complex to be converted to a LAN Manager }
  7989.   { password.  The LAN Manager password returned is a NULL string. }
  7990.   ERROR_NULL_LM_PASSWORD = 1304;
  7991.   {$EXTERNALSYM ERROR_NULL_LM_PASSWORD}
  7992.  
  7993.   { The revision level is unknown. }
  7994.   ERROR_UNKNOWN_REVISION = 1305;
  7995.   {$EXTERNALSYM ERROR_UNKNOWN_REVISION}
  7996.  
  7997.   { Indicates two revision levels are incompatible. }
  7998.   ERROR_REVISION_MISMATCH = 1306;
  7999.   {$EXTERNALSYM ERROR_REVISION_MISMATCH}
  8000.  
  8001.   { This security ID may not be assigned as the owner of this object. }
  8002.   ERROR_INVALID_OWNER = 1307;
  8003.   {$EXTERNALSYM ERROR_INVALID_OWNER}
  8004.  
  8005.   { This security ID may not be assigned as the primary group of an object. }
  8006.   ERROR_INVALID_PRIMARY_GROUP = 1308;
  8007.   {$EXTERNALSYM ERROR_INVALID_PRIMARY_GROUP}
  8008.  
  8009.   { An attempt has been made to operate on an impersonation token }
  8010.  
  8011.   { by a thread that is not currently impersonating a client. }
  8012.   ERROR_NO_IMPERSONATION_TOKEN = 1309;
  8013.   {$EXTERNALSYM ERROR_NO_IMPERSONATION_TOKEN}
  8014.  
  8015.   { The group may not be disabled. }
  8016.   ERROR_CANT_DISABLE_MANDATORY = 1310;
  8017.   {$EXTERNALSYM ERROR_CANT_DISABLE_MANDATORY}
  8018.  
  8019.   { There are currently no logon servers available to service the logon }
  8020.   { request. }
  8021.   ERROR_NO_LOGON_SERVERS = 1311;
  8022.   {$EXTERNALSYM ERROR_NO_LOGON_SERVERS}
  8023.  
  8024.   {  A specified logon session does not exist.  It may already have }
  8025.   {  been terminated. }
  8026.   ERROR_NO_SUCH_LOGON_SESSION = 1312;
  8027.   {$EXTERNALSYM ERROR_NO_SUCH_LOGON_SESSION}
  8028.  
  8029.   {  A specified privilege does not exist. }
  8030.   ERROR_NO_SUCH_PRIVILEGE = 1313;
  8031.   {$EXTERNALSYM ERROR_NO_SUCH_PRIVILEGE}
  8032.  
  8033.   {  A required privilege is not held by the client. }
  8034.   ERROR_PRIVILEGE_NOT_HELD = 1314;
  8035.   {$EXTERNALSYM ERROR_PRIVILEGE_NOT_HELD}
  8036.  
  8037.   { The name provided is not a properly formed account name. }
  8038.   ERROR_INVALID_ACCOUNT_NAME = 1315;
  8039.   {$EXTERNALSYM ERROR_INVALID_ACCOUNT_NAME}
  8040.  
  8041.   { The specified user already exists. }
  8042.   ERROR_USER_EXISTS = 1316;
  8043.   {$EXTERNALSYM ERROR_USER_EXISTS}
  8044.  
  8045.   { The specified user does not exist. }
  8046.   ERROR_NO_SUCH_USER = 1317;
  8047.   {$EXTERNALSYM ERROR_NO_SUCH_USER}
  8048.  
  8049.   { The specified group already exists. }
  8050.   ERROR_GROUP_EXISTS = 1318;
  8051.   {$EXTERNALSYM ERROR_GROUP_EXISTS}
  8052.  
  8053.   { The specified group does not exist. }
  8054.   ERROR_NO_SUCH_GROUP = 1319;
  8055.   {$EXTERNALSYM ERROR_NO_SUCH_GROUP}
  8056.  
  8057.   { Either the specified user account is already a member of the specified }
  8058.   { group, or the specified group cannot be deleted because it contains }
  8059.   { a member. }
  8060.   ERROR_MEMBER_IN_GROUP = 1320;
  8061.   {$EXTERNALSYM ERROR_MEMBER_IN_GROUP}
  8062.  
  8063.   { The specified user account is not a member of the specified group account. }
  8064.   ERROR_MEMBER_NOT_IN_GROUP = 1321;
  8065.   {$EXTERNALSYM ERROR_MEMBER_NOT_IN_GROUP}
  8066.  
  8067.   { The last remaining administration account cannot be disabled }
  8068.   { or deleted. }
  8069.   ERROR_LAST_ADMIN = 1322;
  8070.   {$EXTERNALSYM ERROR_LAST_ADMIN}
  8071.  
  8072.   { Unable to update the password.  The value provided as the current }
  8073.   { password is incorrect. }
  8074.   ERROR_WRONG_PASSWORD = 1323;
  8075.   {$EXTERNALSYM ERROR_WRONG_PASSWORD}
  8076.  
  8077.   { Unable to update the password.  The value provided for the new password }
  8078.   { contains values that are not allowed in passwords. }
  8079.   ERROR_ILL_FORMED_PASSWORD = 1324;
  8080.   {$EXTERNALSYM ERROR_ILL_FORMED_PASSWORD}
  8081.  
  8082.   { Unable to update the password because a password update rule has been }
  8083.   { violated. }
  8084.   ERROR_PASSWORD_RESTRICTION = 1325;
  8085.   {$EXTERNALSYM ERROR_PASSWORD_RESTRICTION}
  8086.  
  8087.   { Logon failure: unknown user name or bad password. }
  8088.   ERROR_LOGON_FAILURE = 1326;
  8089.   {$EXTERNALSYM ERROR_LOGON_FAILURE}
  8090.  
  8091.   { Logon failure: user account restriction. }
  8092.   ERROR_ACCOUNT_RESTRICTION = 1327;
  8093.   {$EXTERNALSYM ERROR_ACCOUNT_RESTRICTION}
  8094.  
  8095.   { Logon failure: account logon time restriction violation. }
  8096.   ERROR_INVALID_LOGON_HOURS = 1328;
  8097.   {$EXTERNALSYM ERROR_INVALID_LOGON_HOURS}
  8098.  
  8099.   { Logon failure: user not allowed to log on to this computer. }
  8100.   ERROR_INVALID_WORKSTATION = 1329;
  8101.   {$EXTERNALSYM ERROR_INVALID_WORKSTATION}
  8102.  
  8103.   { Logon failure: the specified account password has expired. }
  8104.   ERROR_PASSWORD_EXPIRED = 1330;
  8105.   {$EXTERNALSYM ERROR_PASSWORD_EXPIRED}
  8106.  
  8107.   { Logon failure: account currently disabled. }
  8108.   ERROR_ACCOUNT_DISABLED = 1331;
  8109.   {$EXTERNALSYM ERROR_ACCOUNT_DISABLED}
  8110.  
  8111.   { No mapping between account names and security IDs was done. }
  8112.   ERROR_NONE_MAPPED = 1332;
  8113.   {$EXTERNALSYM ERROR_NONE_MAPPED}
  8114.  
  8115.   { Too many local user identifiers (LUIDs) were requested at one time. }
  8116.   ERROR_TOO_MANY_LUIDS_REQUESTED = 1333;
  8117.   {$EXTERNALSYM ERROR_TOO_MANY_LUIDS_REQUESTED}
  8118.  
  8119.   { No more local user identifiers (LUIDs) are available. }
  8120.   ERROR_LUIDS_EXHAUSTED = 1334;
  8121.   {$EXTERNALSYM ERROR_LUIDS_EXHAUSTED}
  8122.  
  8123.   { The subauthority part of a security ID is invalid for this particular use. }
  8124.   ERROR_INVALID_SUB_AUTHORITY = 1335;
  8125.   {$EXTERNALSYM ERROR_INVALID_SUB_AUTHORITY}
  8126.  
  8127.   { The access control list (ACL) structure is invalid. }
  8128.   ERROR_INVALID_ACL = 1336;
  8129.   {$EXTERNALSYM ERROR_INVALID_ACL}
  8130.  
  8131.   { The security ID structure is invalid. }
  8132.   ERROR_INVALID_SID = 1337;
  8133.   {$EXTERNALSYM ERROR_INVALID_SID}
  8134.  
  8135.   { The security descriptor structure is invalid. }
  8136.   ERROR_INVALID_SECURITY_DESCR = 1338;
  8137.   {$EXTERNALSYM ERROR_INVALID_SECURITY_DESCR}
  8138.  
  8139.   { The inherited access control list (ACL) or access control entry (ACE) }
  8140.   { could not be built. }
  8141.   ERROR_BAD_INHERITANCE_ACL = 1340;
  8142.   {$EXTERNALSYM ERROR_BAD_INHERITANCE_ACL}
  8143.  
  8144.   { The server is currently disabled. }
  8145.   ERROR_SERVER_DISABLED = 1341;
  8146.   {$EXTERNALSYM ERROR_SERVER_DISABLED}
  8147.  
  8148.   { The server is currently enabled. }
  8149.   ERROR_SERVER_NOT_DISABLED = 1342;
  8150.   {$EXTERNALSYM ERROR_SERVER_NOT_DISABLED}
  8151.  
  8152.   { The value provided was an invalid value for an identifier authority. }
  8153.   ERROR_INVALID_ID_AUTHORITY = 1343;
  8154.   {$EXTERNALSYM ERROR_INVALID_ID_AUTHORITY}
  8155.  
  8156.   { No more memory is available for security information updates. }
  8157.   ERROR_ALLOTTED_SPACE_EXCEEDED = 1344;
  8158.   {$EXTERNALSYM ERROR_ALLOTTED_SPACE_EXCEEDED}
  8159.  
  8160.   { The specified attributes are invalid, or incompatible with the }
  8161.  
  8162.   { attributes for the group as a whole. }
  8163.   ERROR_INVALID_GROUP_ATTRIBUTES = 1345;
  8164.   {$EXTERNALSYM ERROR_INVALID_GROUP_ATTRIBUTES}
  8165.  
  8166.   { Either a required impersonation level was not provided, or the }
  8167.   { provided impersonation level is invalid. }
  8168.   ERROR_BAD_IMPERSONATION_LEVEL = 1346;
  8169.   {$EXTERNALSYM ERROR_BAD_IMPERSONATION_LEVEL}
  8170.  
  8171.   { Cannot open an anonymous level security token. }
  8172.   ERROR_CANT_OPEN_ANONYMOUS = 1347;
  8173.   {$EXTERNALSYM ERROR_CANT_OPEN_ANONYMOUS}
  8174.  
  8175.   { The validation information class requested was invalid. }
  8176.   ERROR_BAD_VALIDATION_CLASS = 1348;
  8177.   {$EXTERNALSYM ERROR_BAD_VALIDATION_CLASS}
  8178.  
  8179.   { The type of the token is inappropriate for its attempted use. }
  8180.   ERROR_BAD_TOKEN_TYPE = 1349;
  8181.   {$EXTERNALSYM ERROR_BAD_TOKEN_TYPE}
  8182.  
  8183.   { Unable to perform a security operation on an object }
  8184.   { which has no associated security. }
  8185.   ERROR_NO_SECURITY_ON_OBJECT = 1350;
  8186.   {$EXTERNALSYM ERROR_NO_SECURITY_ON_OBJECT}
  8187.  
  8188.   { Indicates a Windows NT Server could not be contacted or that }
  8189.   { objects within the domain are protected such that necessary }
  8190.   { information could not be retrieved. }
  8191.   ERROR_CANT_ACCESS_DOMAIN_INFO = 1351;
  8192.   {$EXTERNALSYM ERROR_CANT_ACCESS_DOMAIN_INFO}
  8193.  
  8194.   { The security account manager (SAM) or local security }
  8195.   { authority (LSA) server was in the wrong state to perform }
  8196.   { the security operation. }
  8197.   ERROR_INVALID_SERVER_STATE = 1352;
  8198.   {$EXTERNALSYM ERROR_INVALID_SERVER_STATE}
  8199.  
  8200.   { The domain was in the wrong state to perform the security operation. }
  8201.   ERROR_INVALID_DOMAIN_STATE = 1353;
  8202.   {$EXTERNALSYM ERROR_INVALID_DOMAIN_STATE}
  8203.  
  8204.   { This operation is only allowed for the Primary Domain Controller of the domain. }
  8205.   ERROR_INVALID_DOMAIN_ROLE = 1354;
  8206.   {$EXTERNALSYM ERROR_INVALID_DOMAIN_ROLE}
  8207.  
  8208.   { The specified domain did not exist. }
  8209.   ERROR_NO_SUCH_DOMAIN = 1355;
  8210.   {$EXTERNALSYM ERROR_NO_SUCH_DOMAIN}
  8211.  
  8212.   { The specified domain already exists. }
  8213.   ERROR_DOMAIN_EXISTS = 1356;
  8214.   {$EXTERNALSYM ERROR_DOMAIN_EXISTS}
  8215.  
  8216.   { An attempt was made to exceed the limit on the number of domains per server. }
  8217.   ERROR_DOMAIN_LIMIT_EXCEEDED = 1357;
  8218.   {$EXTERNALSYM ERROR_DOMAIN_LIMIT_EXCEEDED}
  8219.  
  8220.   { Unable to complete the requested operation because of either a }
  8221.   { catastrophic media failure or a data structure corruption on the disk. }
  8222.   ERROR_INTERNAL_DB_CORRUPTION = 1358;
  8223.   {$EXTERNALSYM ERROR_INTERNAL_DB_CORRUPTION}
  8224.  
  8225.   { The security account database contains an internal inconsistency. }
  8226.   ERROR_INTERNAL_ERROR = 1359;
  8227.   {$EXTERNALSYM ERROR_INTERNAL_ERROR}
  8228.  
  8229.   { Generic access types were contained in an access mask which should }
  8230.   { already be mapped to non-generic types. }
  8231.   ERROR_GENERIC_NOT_MAPPED = 1360;
  8232.   {$EXTERNALSYM ERROR_GENERIC_NOT_MAPPED}
  8233.  
  8234.   { A security descriptor is not in the right format (absolute or self-relative). }
  8235.   ERROR_BAD_DESCRIPTOR_FORMAT = 1361;
  8236.   {$EXTERNALSYM ERROR_BAD_DESCRIPTOR_FORMAT}
  8237.  
  8238.   { The requested action is restricted for use by logon processes }
  8239.   { only.  The calling process has not registered as a logon process. }
  8240.   ERROR_NOT_LOGON_PROCESS = 1362;
  8241.   {$EXTERNALSYM ERROR_NOT_LOGON_PROCESS}
  8242.  
  8243.   { Cannot start a new logon session with an ID that is already in use. }
  8244.   ERROR_LOGON_SESSION_EXISTS = 1363;
  8245.   {$EXTERNALSYM ERROR_LOGON_SESSION_EXISTS}
  8246.  
  8247.   { A specified authentication package is unknown. }
  8248.   ERROR_NO_SUCH_PACKAGE = 1364;
  8249.   {$EXTERNALSYM ERROR_NO_SUCH_PACKAGE}
  8250.  
  8251.   { The logon session is not in a state that is consistent with the }
  8252.   { requested operation. }
  8253.   ERROR_BAD_LOGON_SESSION_STATE = 1365;
  8254.   {$EXTERNALSYM ERROR_BAD_LOGON_SESSION_STATE}
  8255.  
  8256.   { The logon session ID is already in use. }
  8257.   ERROR_LOGON_SESSION_COLLISION = 1366;
  8258.   {$EXTERNALSYM ERROR_LOGON_SESSION_COLLISION}
  8259.  
  8260.   { A logon request contained an invalid logon type value. }
  8261.   ERROR_INVALID_LOGON_TYPE = 1367;
  8262.   {$EXTERNALSYM ERROR_INVALID_LOGON_TYPE}
  8263.  
  8264.   { Unable to impersonate via a named pipe until data has been read }
  8265.   { from that pipe. }
  8266.   ERROR_CANNOT_IMPERSONATE = 1368;
  8267.   {$EXTERNALSYM ERROR_CANNOT_IMPERSONATE}
  8268.  
  8269.   { The transaction state of a Registry subtree is incompatible with the }
  8270.   { requested operation. }
  8271.   ERROR_RXACT_INVALID_STATE = 1369;
  8272.   {$EXTERNALSYM ERROR_RXACT_INVALID_STATE}
  8273.  
  8274.   { An internal security database corruption has been encountered. }
  8275.   ERROR_RXACT_COMMIT_FAILURE = 1370;
  8276.   {$EXTERNALSYM ERROR_RXACT_COMMIT_FAILURE}
  8277.  
  8278.   { Cannot perform this operation on built-in accounts. }
  8279.   ERROR_SPECIAL_ACCOUNT = 1371;
  8280.   {$EXTERNALSYM ERROR_SPECIAL_ACCOUNT}
  8281.  
  8282.   { Cannot perform this operation on this built-in special group. }
  8283.   ERROR_SPECIAL_GROUP = 1372;
  8284.   {$EXTERNALSYM ERROR_SPECIAL_GROUP}
  8285.  
  8286.   { Cannot perform this operation on this built-in special user. }
  8287.   ERROR_SPECIAL_USER = 1373;
  8288.   {$EXTERNALSYM ERROR_SPECIAL_USER}
  8289.  
  8290.   { The user cannot be removed from a group because the group }
  8291.   { is currently the user's primary group. }
  8292.   ERROR_MEMBERS_PRIMARY_GROUP = 1374;
  8293.   {$EXTERNALSYM ERROR_MEMBERS_PRIMARY_GROUP}
  8294.  
  8295.   { The token is already in use as a primary token. }
  8296.   ERROR_TOKEN_ALREADY_IN_USE = 1375;
  8297.   {$EXTERNALSYM ERROR_TOKEN_ALREADY_IN_USE}
  8298.  
  8299.   { The specified local group does not exist. }
  8300.   ERROR_NO_SUCH_ALIAS = 1376;
  8301.   {$EXTERNALSYM ERROR_NO_SUCH_ALIAS}
  8302.  
  8303.   { The specified account name is not a member of the local group. }
  8304.   ERROR_MEMBER_NOT_IN_ALIAS = 1377;
  8305.   {$EXTERNALSYM ERROR_MEMBER_NOT_IN_ALIAS}
  8306.  
  8307.   { The specified account name is already a member of the local group. }
  8308.   ERROR_MEMBER_IN_ALIAS = 1378;
  8309.   {$EXTERNALSYM ERROR_MEMBER_IN_ALIAS}
  8310.  
  8311.   { The specified local group already exists. }
  8312.   ERROR_ALIAS_EXISTS = 1379;
  8313.   {$EXTERNALSYM ERROR_ALIAS_EXISTS}
  8314.  
  8315.   { Logon failure: the user has not been granted the requested }
  8316.   { logon type at this computer. }
  8317.   ERROR_LOGON_NOT_GRANTED = 1380;
  8318.   {$EXTERNALSYM ERROR_LOGON_NOT_GRANTED}
  8319.  
  8320.   { The maximum number of secrets that may be stored in a single system has been }
  8321.   { exceeded. }
  8322.   ERROR_TOO_MANY_SECRETS = 1381;
  8323.   {$EXTERNALSYM ERROR_TOO_MANY_SECRETS}
  8324.  
  8325.   { The length of a secret exceeds the maximum length allowed. }
  8326.   ERROR_SECRET_TOO_LONG = 1382;
  8327.   {$EXTERNALSYM ERROR_SECRET_TOO_LONG}
  8328.  
  8329.   { The local security authority database contains an internal inconsistency. }
  8330.   ERROR_INTERNAL_DB_ERROR = 1383;
  8331.   {$EXTERNALSYM ERROR_INTERNAL_DB_ERROR}
  8332.  
  8333.   { During a logon attempt, the user's security context accumulated too many }
  8334.   { security IDs. }
  8335.   ERROR_TOO_MANY_CONTEXT_IDS = 1384;
  8336.   {$EXTERNALSYM ERROR_TOO_MANY_CONTEXT_IDS}
  8337.  
  8338.   { Logon failure: the user has not been granted the requested logon type }
  8339.   { at this computer. }
  8340.   ERROR_LOGON_TYPE_NOT_GRANTED = 1385;
  8341.   {$EXTERNALSYM ERROR_LOGON_TYPE_NOT_GRANTED}
  8342.  
  8343.   { A cross-encrypted password is necessary to change a user password. }
  8344.   ERROR_NT_CROSS_ENCRYPTION_REQUIRED = 1386;
  8345.   {$EXTERNALSYM ERROR_NT_CROSS_ENCRYPTION_REQUIRED}
  8346.  
  8347.   { A new member could not be added to a local group because the member does }
  8348.   { not exist. }
  8349.   ERROR_NO_SUCH_MEMBER = 1387;
  8350.   {$EXTERNALSYM ERROR_NO_SUCH_MEMBER}
  8351.  
  8352.   { A new member could not be added to a local group because the member has the }
  8353.   { wrong account type. }
  8354.   ERROR_INVALID_MEMBER = 1388;
  8355.   {$EXTERNALSYM ERROR_INVALID_MEMBER}
  8356.  
  8357.   { Too many security IDs have been specified. }
  8358.   ERROR_TOO_MANY_SIDS = 1389;
  8359.   {$EXTERNALSYM ERROR_TOO_MANY_SIDS}
  8360.  
  8361.   { A cross-encrypted password is necessary to change this user password. }
  8362.   ERROR_LM_CROSS_ENCRYPTION_REQUIRED = 1390;
  8363.   {$EXTERNALSYM ERROR_LM_CROSS_ENCRYPTION_REQUIRED}
  8364.  
  8365.   { Indicates an TACL contains no inheritable components }
  8366.   ERROR_NO_INHERITANCE = 1391;
  8367.   {$EXTERNALSYM ERROR_NO_INHERITANCE}
  8368.  
  8369.   { The file or directory is corrupt and non-readable. }
  8370.   ERROR_FILE_CORRUPT = 1392;
  8371.   {$EXTERNALSYM ERROR_FILE_CORRUPT}
  8372.  
  8373.   { The disk structure is corrupt and non-readable. }
  8374.   ERROR_DISK_CORRUPT = 1393;
  8375.   {$EXTERNALSYM ERROR_DISK_CORRUPT}
  8376.  
  8377.   { There is no user session key for the specified logon session. }
  8378.   ERROR_NO_USER_SESSION_KEY = 1394;
  8379.   {$EXTERNALSYM ERROR_NO_USER_SESSION_KEY}
  8380.  
  8381.   { The service being accessed is licensed for a particular number of connections. }
  8382.   { No more connections can be made to the service at this time }
  8383.   { because there are already as many connections as the service can accept. }
  8384.   ERROR_LICENSE_QUOTA_EXCEEDED = 1395;
  8385.   {$EXTERNALSYM ERROR_LICENSE_QUOTA_EXCEEDED}
  8386.  
  8387.  
  8388. { WinUser Error Codes }
  8389.  
  8390.   { Invalid window handle. }
  8391.   ERROR_INVALID_WINDOW_HANDLE = 1400;
  8392.   {$EXTERNALSYM ERROR_INVALID_WINDOW_HANDLE}
  8393.  
  8394.   { Invalid menu handle. }
  8395.   ERROR_INVALID_MENU_HANDLE = 1401;
  8396.   {$EXTERNALSYM ERROR_INVALID_MENU_HANDLE}
  8397.  
  8398.   { Invalid cursor handle. }
  8399.   ERROR_INVALID_CURSOR_HANDLE = 1402;
  8400.   {$EXTERNALSYM ERROR_INVALID_CURSOR_HANDLE}
  8401.  
  8402.   { Invalid accelerator table handle. }
  8403.   ERROR_INVALID_ACCEL_HANDLE = 1403;
  8404.   {$EXTERNALSYM ERROR_INVALID_ACCEL_HANDLE}
  8405.  
  8406.   { Invalid hook handle. }
  8407.   ERROR_INVALID_HOOK_HANDLE = 1404;
  8408.   {$EXTERNALSYM ERROR_INVALID_HOOK_HANDLE}
  8409.  
  8410.   { Invalid handle to a multiple-window position structure. }
  8411.   ERROR_INVALID_DWP_HANDLE = 1405;
  8412.   {$EXTERNALSYM ERROR_INVALID_DWP_HANDLE}
  8413.  
  8414.   { Cannot create a top-level child window. }
  8415.   ERROR_TLW_WITH_WSCHILD = 1406;
  8416.   {$EXTERNALSYM ERROR_TLW_WITH_WSCHILD}
  8417.  
  8418.   { Cannot find window class. }
  8419.   ERROR_CANNOT_FIND_WND_CLASS = 1407;
  8420.   {$EXTERNALSYM ERROR_CANNOT_FIND_WND_CLASS}
  8421.  
  8422.   { Invalid window, belongs to other thread. }
  8423.   ERROR_WINDOW_OF_OTHER_THREAD = 1408;
  8424.   {$EXTERNALSYM ERROR_WINDOW_OF_OTHER_THREAD}
  8425.  
  8426.   { Hot key is already registered. }
  8427.   ERROR_HOTKEY_ALREADY_REGISTERED = 1409;
  8428.   {$EXTERNALSYM ERROR_HOTKEY_ALREADY_REGISTERED}
  8429.  
  8430.   { Class already exists. }
  8431.   ERROR_CLASS_ALREADY_EXISTS = 1410;
  8432.   {$EXTERNALSYM ERROR_CLASS_ALREADY_EXISTS}
  8433.  
  8434.   { Class does not exist. }
  8435.   ERROR_CLASS_DOES_NOT_EXIST = 1411;
  8436.   {$EXTERNALSYM ERROR_CLASS_DOES_NOT_EXIST}
  8437.  
  8438.   { Class still has open windows. }
  8439.   ERROR_CLASS_HAS_WINDOWS = 1412;
  8440.   {$EXTERNALSYM ERROR_CLASS_HAS_WINDOWS}
  8441.  
  8442.   { Invalid index. }
  8443.   ERROR_INVALID_INDEX = 1413;
  8444.   {$EXTERNALSYM ERROR_INVALID_INDEX}
  8445.  
  8446.   { Invalid icon handle. }
  8447.   ERROR_INVALID_ICON_HANDLE = 1414;
  8448.   {$EXTERNALSYM ERROR_INVALID_ICON_HANDLE}
  8449.  
  8450.   { Using private DIALOG window words. }
  8451.   ERROR_PRIVATE_DIALOG_INDEX = 1415;
  8452.   {$EXTERNALSYM ERROR_PRIVATE_DIALOG_INDEX}
  8453.  
  8454.   { The listbox identifier was not found. }
  8455.   ERROR_LISTBOX_ID_NOT_FOUND = 1416;
  8456.   {$EXTERNALSYM ERROR_LISTBOX_ID_NOT_FOUND}
  8457.  
  8458.   { No wildcards were found. }
  8459.   ERROR_NO_WILDCARD_CHARACTERS = 1417;
  8460.   {$EXTERNALSYM ERROR_NO_WILDCARD_CHARACTERS}
  8461.  
  8462.   { Thread does not have a clipboard open. }
  8463.   ERROR_CLIPBOARD_NOT_OPEN = 1418;
  8464.   {$EXTERNALSYM ERROR_CLIPBOARD_NOT_OPEN}
  8465.  
  8466.   { Hot key is not registered. }
  8467.   ERROR_HOTKEY_NOT_REGISTERED = 1419;
  8468.   {$EXTERNALSYM ERROR_HOTKEY_NOT_REGISTERED}
  8469.  
  8470.   { The window is not a valid dialog window. }
  8471.   ERROR_WINDOW_NOT_DIALOG = 1420;
  8472.   {$EXTERNALSYM ERROR_WINDOW_NOT_DIALOG}
  8473.  
  8474.   { Control ID not found. }
  8475.   ERROR_CONTROL_ID_NOT_FOUND = 1421;
  8476.   {$EXTERNALSYM ERROR_CONTROL_ID_NOT_FOUND}
  8477.  
  8478.   { Invalid message for a combo box because it does not have an edit control. }
  8479.   ERROR_INVALID_COMBOBOX_MESSAGE = 1422;
  8480.   {$EXTERNALSYM ERROR_INVALID_COMBOBOX_MESSAGE}
  8481.  
  8482.   { The window is not a combo box. }
  8483.   ERROR_WINDOW_NOT_COMBOBOX = 1423;
  8484.   {$EXTERNALSYM ERROR_WINDOW_NOT_COMBOBOX}
  8485.  
  8486.   { Height must be less than 256. }
  8487.   ERROR_INVALID_EDIT_HEIGHT = 1424;
  8488.   {$EXTERNALSYM ERROR_INVALID_EDIT_HEIGHT}
  8489.  
  8490.   { Invalid device context (DC) handle. }
  8491.   ERROR_DC_NOT_FOUND = 1425;
  8492.   {$EXTERNALSYM ERROR_DC_NOT_FOUND}
  8493.  
  8494.   { Invalid hook procedure type. }
  8495.   ERROR_INVALID_HOOK_FILTER = 1426;
  8496.   {$EXTERNALSYM ERROR_INVALID_HOOK_FILTER}
  8497.  
  8498.   { Invalid hook procedure. }
  8499.   ERROR_INVALID_FILTER_PROC = 1427;
  8500.   {$EXTERNALSYM ERROR_INVALID_FILTER_PROC}
  8501.  
  8502.   { Cannot set non-local hook without a module handle. }
  8503.   ERROR_HOOK_NEEDS_HMOD = 1428;
  8504.   {$EXTERNALSYM ERROR_HOOK_NEEDS_HMOD}
  8505.  
  8506.   { This hook procedure can only be set globally. }
  8507.   ERROR_GLOBAL_ONLY_HOOK = 1429;
  8508.   {$EXTERNALSYM ERROR_GLOBAL_ONLY_HOOK}
  8509.  
  8510.   { The journal hook procedure is already installed. }
  8511.   ERROR_JOURNAL_HOOK_SET = 1430;
  8512.   {$EXTERNALSYM ERROR_JOURNAL_HOOK_SET}
  8513.  
  8514.   { The hook procedure is not installed. }
  8515.   ERROR_HOOK_NOT_INSTALLED = 1431;
  8516.   {$EXTERNALSYM ERROR_HOOK_NOT_INSTALLED}
  8517.  
  8518.   { Invalid message for single-selection listbox. }
  8519.   ERROR_INVALID_LB_MESSAGE = 1432;
  8520.   {$EXTERNALSYM ERROR_INVALID_LB_MESSAGE}
  8521.  
  8522.   { LB_SETCOUNT sent to non-lazy listbox. }
  8523.   ERROR_SETCOUNT_ON_BAD_LB = 1433;
  8524.   {$EXTERNALSYM ERROR_SETCOUNT_ON_BAD_LB}
  8525.  
  8526.   { This list box does not support tab stops. }
  8527.   ERROR_LB_WITHOUT_TABSTOPS = 1434;
  8528.   {$EXTERNALSYM ERROR_LB_WITHOUT_TABSTOPS}
  8529.  
  8530.   { Cannot destroy object created by another thread. }
  8531.   ERROR_DESTROY_OBJECT_OF_OTHER_THREAD = 1435;
  8532.   {$EXTERNALSYM ERROR_DESTROY_OBJECT_OF_OTHER_THREAD}
  8533.  
  8534.   { Child windows cannot have menus. }
  8535.   ERROR_CHILD_WINDOW_MENU = 1436;
  8536.   {$EXTERNALSYM ERROR_CHILD_WINDOW_MENU}
  8537.  
  8538.   { The window does not have a system menu. }
  8539.   ERROR_NO_SYSTEM_MENU = 1437;
  8540.   {$EXTERNALSYM ERROR_NO_SYSTEM_MENU}
  8541.  
  8542.   { Invalid message box style. }
  8543.   ERROR_INVALID_MSGBOX_STYLE = 1438;
  8544.   {$EXTERNALSYM ERROR_INVALID_MSGBOX_STYLE}
  8545.  
  8546.   { Invalid system-wide (SPI_*) parameter. }
  8547.   ERROR_INVALID_SPI_VALUE = 1439;
  8548.   {$EXTERNALSYM ERROR_INVALID_SPI_VALUE}
  8549.  
  8550.   { Screen already locked. }
  8551.   ERROR_SCREEN_ALREADY_LOCKED = 1440;
  8552.   {$EXTERNALSYM ERROR_SCREEN_ALREADY_LOCKED}
  8553.  
  8554.   { All handles to windows in a multiple-window position structure must }
  8555.   { have the same parent. }
  8556.   ERROR_HWNDS_HAVE_DIFF_PARENT = 1441;
  8557.   {$EXTERNALSYM ERROR_HWNDS_HAVE_DIFF_PARENT}
  8558.  
  8559.   { The window is not a child window. }
  8560.   ERROR_NOT_CHILD_WINDOW = 1442;
  8561.   {$EXTERNALSYM ERROR_NOT_CHILD_WINDOW}
  8562.  
  8563.   { Invalid GW_* command. }
  8564.   ERROR_INVALID_GW_COMMAND = 1443;
  8565.   {$EXTERNALSYM ERROR_INVALID_GW_COMMAND}
  8566.  
  8567.   { Invalid thread identifier. }
  8568.   ERROR_INVALID_THREAD_ID = 1444;
  8569.   {$EXTERNALSYM ERROR_INVALID_THREAD_ID}
  8570.  
  8571.   { Cannot process a message from a window that is not a multiple document }
  8572.   { interface (MDI) window. }
  8573.   ERROR_NON_MDICHILD_WINDOW = 1445;
  8574.   {$EXTERNALSYM ERROR_NON_MDICHILD_WINDOW}
  8575.  
  8576.   { Popup menu already active. }
  8577.   ERROR_POPUP_ALREADY_ACTIVE = 1446;
  8578.   {$EXTERNALSYM ERROR_POPUP_ALREADY_ACTIVE}
  8579.  
  8580.   { The window does not have scroll bars. }
  8581.   ERROR_NO_SCROLLBARS = 1447;
  8582.   {$EXTERNALSYM ERROR_NO_SCROLLBARS}
  8583.  
  8584.   { Scroll bar range cannot be greater than $7FFF. }
  8585.   ERROR_INVALID_SCROLLBAR_RANGE = 1448;
  8586.   {$EXTERNALSYM ERROR_INVALID_SCROLLBAR_RANGE}
  8587.  
  8588.   { Cannot show or remove the window in the way specified. }
  8589.   ERROR_INVALID_SHOWWIN_COMMAND = 1449;
  8590.   {$EXTERNALSYM ERROR_INVALID_SHOWWIN_COMMAND}
  8591.  
  8592.   { Insufficient system resources exist to complete the requested service. }
  8593.   ERROR_NO_SYSTEM_RESOURCES = 1450;
  8594.   {$EXTERNALSYM ERROR_NO_SYSTEM_RESOURCES}
  8595.  
  8596.   { Insufficient system resources exist to complete the requested service. }
  8597.   ERROR_NONPAGED_SYSTEM_RESOURCES = 1451;
  8598.   {$EXTERNALSYM ERROR_NONPAGED_SYSTEM_RESOURCES}
  8599.  
  8600.   { Insufficient system resources exist to complete the requested service. }
  8601.   ERROR_PAGED_SYSTEM_RESOURCES = 1452;
  8602.   {$EXTERNALSYM ERROR_PAGED_SYSTEM_RESOURCES}
  8603.  
  8604.   { Insufficient quota to complete the requested service. }
  8605.   ERROR_WORKING_SET_QUOTA = 1453;
  8606.   {$EXTERNALSYM ERROR_WORKING_SET_QUOTA}
  8607.  
  8608.   { Insufficient quota to complete the requested service. }
  8609.   ERROR_PAGEFILE_QUOTA = 1454;
  8610.   {$EXTERNALSYM ERROR_PAGEFILE_QUOTA}
  8611.  
  8612.   { The paging file is too small for this operation to complete. }
  8613.   ERROR_COMMITMENT_LIMIT = 1455;
  8614.   {$EXTERNALSYM ERROR_COMMITMENT_LIMIT}
  8615.  
  8616.   { A menu item was not found. }
  8617.   ERROR_MENU_ITEM_NOT_FOUND = 1456;
  8618.   {$EXTERNALSYM ERROR_MENU_ITEM_NOT_FOUND}
  8619.  
  8620.   { Invalid keyboard layout handle. }
  8621.   ERROR_INVALID_KEYBOARD_HANDLE = 1457;
  8622.   {$EXTERNALSYM ERROR_INVALID_KEYBOARD_HANDLE}
  8623.  
  8624.   { Hook type not allowed. }
  8625.   ERROR_HOOK_TYPE_NOT_ALLOWED = 1458;
  8626.   {$EXTERNALSYM ERROR_HOOK_TYPE_NOT_ALLOWED}
  8627.  
  8628.   { This operation requires an interactive windowstation. }
  8629.   ERROR_REQUIRES_INTERACTIVE_WINDOWSTATION = 1459;
  8630.   {$EXTERNALSYM ERROR_REQUIRES_INTERACTIVE_WINDOWSTATION}
  8631.  
  8632.   { This operation returned because the timeout period expired. }
  8633.   ERROR_TIMEOUT = 1460;
  8634.   {$EXTERNALSYM ERROR_TIMEOUT}
  8635.  
  8636.  
  8637. { Eventlog Status Codes }
  8638.  
  8639.   { The event log file is corrupt. }
  8640.   ERROR_EVENTLOG_FILE_CORRUPT = 1500;
  8641.   {$EXTERNALSYM ERROR_EVENTLOG_FILE_CORRUPT}
  8642.  
  8643.   { No event log file could be opened, so the event logging service did not start. }
  8644.   ERROR_EVENTLOG_CANT_START = 1501;
  8645.   {$EXTERNALSYM ERROR_EVENTLOG_CANT_START}
  8646.  
  8647.   { The event log file is full. }
  8648.   ERROR_LOG_FILE_FULL = 1502;
  8649.   {$EXTERNALSYM ERROR_LOG_FILE_FULL}
  8650.  
  8651.   { The event log file has changed between reads. }
  8652.   ERROR_EVENTLOG_FILE_CHANGED = 1503;
  8653.   {$EXTERNALSYM ERROR_EVENTLOG_FILE_CHANGED}
  8654.  
  8655.  
  8656. { RPC Status Codes }
  8657.  
  8658.   { The string binding is invalid. }
  8659.   RPC_S_INVALID_STRING_BINDING = 1700;
  8660.   {$EXTERNALSYM RPC_S_INVALID_STRING_BINDING}
  8661.  
  8662.   { The binding handle is not the correct type. }
  8663.   RPC_S_WRONG_KIND_OF_BINDING = 1701;
  8664.   {$EXTERNALSYM RPC_S_WRONG_KIND_OF_BINDING}
  8665.  
  8666.   { The binding handle is invalid. }
  8667.   RPC_S_INVALID_BINDING = 1702;
  8668.   {$EXTERNALSYM RPC_S_INVALID_BINDING}
  8669.  
  8670.   { The RPC protocol sequence is not supported. }
  8671.   RPC_S_PROTSEQ_NOT_SUPPORTED = 1703;
  8672.   {$EXTERNALSYM RPC_S_PROTSEQ_NOT_SUPPORTED}
  8673.  
  8674.   { The RPC protocol sequence is invalid. }
  8675.   RPC_S_INVALID_RPC_PROTSEQ = 1704;
  8676.   {$EXTERNALSYM RPC_S_INVALID_RPC_PROTSEQ}
  8677.  
  8678.   { The string universal unique identifier (UUID) is invalid. }
  8679.   RPC_S_INVALID_STRING_UUID = 1705;
  8680.   {$EXTERNALSYM RPC_S_INVALID_STRING_UUID}
  8681.  
  8682.   { The endpoint format is invalid. }
  8683.   RPC_S_INVALID_ENDPOINT_FORMAT = 1706;
  8684.   {$EXTERNALSYM RPC_S_INVALID_ENDPOINT_FORMAT}
  8685.  
  8686.   { The network address is invalid. }
  8687.   RPC_S_INVALID_NET_ADDR = 1707;
  8688.   {$EXTERNALSYM RPC_S_INVALID_NET_ADDR}
  8689.  
  8690.   { No endpoint was found. }
  8691.   RPC_S_NO_ENDPOINT_FOUND = 1708;
  8692.   {$EXTERNALSYM RPC_S_NO_ENDPOINT_FOUND}
  8693.  
  8694.   { The timeout value is invalid. }
  8695.   RPC_S_INVALID_TIMEOUT = 1709;
  8696.   {$EXTERNALSYM RPC_S_INVALID_TIMEOUT}
  8697.  
  8698.   { The object universal unique identifier (UUID) was not found. }
  8699.   RPC_S_OBJECT_NOT_FOUND = 1710;
  8700.   {$EXTERNALSYM RPC_S_OBJECT_NOT_FOUND}
  8701.  
  8702.   { The object universal unique identifier (UUID) has already been registered. }
  8703.   RPC_S_ALREADY_REGISTERED = 1711;
  8704.   {$EXTERNALSYM RPC_S_ALREADY_REGISTERED}
  8705.  
  8706.   { The type universal unique identifier (UUID) has already been registered. }
  8707.   RPC_S_TYPE_ALREADY_REGISTERED = 1712;
  8708.   {$EXTERNALSYM RPC_S_TYPE_ALREADY_REGISTERED}
  8709.  
  8710.   { The RPC server is already listening. }
  8711.   RPC_S_ALREADY_LISTENING = 1713;
  8712.   {$EXTERNALSYM RPC_S_ALREADY_LISTENING}
  8713.  
  8714.   { No protocol sequences have been registered. }
  8715.   RPC_S_NO_PROTSEQS_REGISTERED = 1714;
  8716.   {$EXTERNALSYM RPC_S_NO_PROTSEQS_REGISTERED}
  8717.  
  8718.   { The RPC server is not listening. }
  8719.   RPC_S_NOT_LISTENING = 1715;
  8720.   {$EXTERNALSYM RPC_S_NOT_LISTENING}
  8721.  
  8722.   { The manager type is unknown. }
  8723.   RPC_S_UNKNOWN_MGR_TYPE = 1716;
  8724.   {$EXTERNALSYM RPC_S_UNKNOWN_MGR_TYPE}
  8725.  
  8726.   { The interface is unknown. }
  8727.   RPC_S_UNKNOWN_IF = 1717;
  8728.   {$EXTERNALSYM RPC_S_UNKNOWN_IF}
  8729.  
  8730.   { There are no bindings. }
  8731.   RPC_S_NO_BINDINGS = 1718;
  8732.   {$EXTERNALSYM RPC_S_NO_BINDINGS}
  8733.  
  8734.   { There are no protocol sequences. }
  8735.   RPC_S_NO_PROTSEQS = 1719;
  8736.   {$EXTERNALSYM RPC_S_NO_PROTSEQS}
  8737.  
  8738.   { The endpoint cannot be created. }
  8739.   RPC_S_CANT_CREATE_ENDPOINT = 1720;
  8740.   {$EXTERNALSYM RPC_S_CANT_CREATE_ENDPOINT}
  8741.  
  8742.   { Not enough resources are available to complete this operation. }
  8743.   RPC_S_OUT_OF_RESOURCES = 1721;
  8744.   {$EXTERNALSYM RPC_S_OUT_OF_RESOURCES}
  8745.  
  8746.   { The RPC server is unavailable. }
  8747.   RPC_S_SERVER_UNAVAILABLE = 1722;
  8748.   {$EXTERNALSYM RPC_S_SERVER_UNAVAILABLE}
  8749.  
  8750.   { The RPC server is too busy to complete this operation. }
  8751.   RPC_S_SERVER_TOO_BUSY = 1723;
  8752.   {$EXTERNALSYM RPC_S_SERVER_TOO_BUSY}
  8753.  
  8754.   { The network options are invalid. }
  8755.   RPC_S_INVALID_NETWORK_OPTIONS = 1724;
  8756.   {$EXTERNALSYM RPC_S_INVALID_NETWORK_OPTIONS}
  8757.  
  8758.   { There is not a remote procedure call active in this thread. }
  8759.   RPC_S_NO_CALL_ACTIVE = 1725;
  8760.   {$EXTERNALSYM RPC_S_NO_CALL_ACTIVE}
  8761.  
  8762.   { The remote procedure call failed. }
  8763.   RPC_S_CALL_FAILED = 1726;
  8764.   {$EXTERNALSYM RPC_S_CALL_FAILED}
  8765.  
  8766.   { The remote procedure call failed and did not execute. }
  8767.   RPC_S_CALL_FAILED_DNE = 1727;
  8768.   {$EXTERNALSYM RPC_S_CALL_FAILED_DNE}
  8769.  
  8770.   { A remote procedure call (RPC) protocol error occurred. }
  8771.   RPC_S_PROTOCOL_ERROR = 1728;
  8772.   {$EXTERNALSYM RPC_S_PROTOCOL_ERROR}
  8773.  
  8774.   { The transfer syntax is not supported by the RPC server. }
  8775.   RPC_S_UNSUPPORTED_TRANS_SYN = 1730;
  8776.   {$EXTERNALSYM RPC_S_UNSUPPORTED_TRANS_SYN}
  8777.  
  8778.   { The universal unique identifier (UUID) type is not supported. }
  8779.   RPC_S_UNSUPPORTED_TYPE = 1732;
  8780.   {$EXTERNALSYM RPC_S_UNSUPPORTED_TYPE}
  8781.  
  8782.   { The tag is invalid. }
  8783.   RPC_S_INVALID_TAG = 1733;
  8784.   {$EXTERNALSYM RPC_S_INVALID_TAG}
  8785.  
  8786.   { The array bounds are invalid. }
  8787.   RPC_S_INVALID_BOUND = 1734;
  8788.   {$EXTERNALSYM RPC_S_INVALID_BOUND}
  8789.  
  8790.   { The binding does not contain an entry name. }
  8791.   RPC_S_NO_ENTRY_NAME = 1735;
  8792.   {$EXTERNALSYM RPC_S_NO_ENTRY_NAME}
  8793.  
  8794.   { The name syntax is invalid. }
  8795.   RPC_S_INVALID_NAME_SYNTAX = 1736;
  8796.   {$EXTERNALSYM RPC_S_INVALID_NAME_SYNTAX}
  8797.  
  8798.   { The name syntax is not supported. }
  8799.   RPC_S_UNSUPPORTED_NAME_SYNTAX = 1737;
  8800.   {$EXTERNALSYM RPC_S_UNSUPPORTED_NAME_SYNTAX}
  8801.  
  8802.   { No network address is available to use to construct a universal }
  8803.  
  8804.   { unique identifier (UUID). }
  8805.   RPC_S_UUID_NO_ADDRESS = 1739;
  8806.   {$EXTERNALSYM RPC_S_UUID_NO_ADDRESS}
  8807.  
  8808.   { The endpoint is a duplicate. }
  8809.   RPC_S_DUPLICATE_ENDPOINT = 1740;
  8810.   {$EXTERNALSYM RPC_S_DUPLICATE_ENDPOINT}
  8811.  
  8812.   { The authentication type is unknown. }
  8813.   RPC_S_UNKNOWN_AUTHN_TYPE = 1741;
  8814.   {$EXTERNALSYM RPC_S_UNKNOWN_AUTHN_TYPE}
  8815.  
  8816.   { The maximum number of calls is too small. }
  8817.   RPC_S_MAX_CALLS_TOO_SMALL = 1742;
  8818.   {$EXTERNALSYM RPC_S_MAX_CALLS_TOO_SMALL}
  8819.  
  8820.   { The string is too long. }
  8821.   RPC_S_STRING_TOO_LONG = 1743;
  8822.   {$EXTERNALSYM RPC_S_STRING_TOO_LONG}
  8823.  
  8824.   { The RPC protocol sequence was not found. }
  8825.   RPC_S_PROTSEQ_NOT_FOUND = 1744;
  8826.   {$EXTERNALSYM RPC_S_PROTSEQ_NOT_FOUND}
  8827.  
  8828.   { The procedure number is out of range. }
  8829.   RPC_S_PROCNUM_OUT_OF_RANGE = 1745;
  8830.   {$EXTERNALSYM RPC_S_PROCNUM_OUT_OF_RANGE}
  8831.  
  8832.   { The binding does not contain any authentication information. }
  8833.   RPC_S_BINDING_HAS_NO_AUTH = 1746;
  8834.   {$EXTERNALSYM RPC_S_BINDING_HAS_NO_AUTH}
  8835.  
  8836.   { The authentication service is unknown. }
  8837.   RPC_S_UNKNOWN_AUTHN_SERVICE = 1747;
  8838.   {$EXTERNALSYM RPC_S_UNKNOWN_AUTHN_SERVICE}
  8839.  
  8840.   { The authentication level is unknown. }
  8841.   RPC_S_UNKNOWN_AUTHN_LEVEL = 1748;
  8842.   {$EXTERNALSYM RPC_S_UNKNOWN_AUTHN_LEVEL}
  8843.  
  8844.   { The security context is invalid. }
  8845.   RPC_S_INVALID_AUTH_IDENTITY = 1749;
  8846.   {$EXTERNALSYM RPC_S_INVALID_AUTH_IDENTITY}
  8847.  
  8848.   { The authorization service is unknown. }
  8849.   RPC_S_UNKNOWN_AUTHZ_SERVICE = 1750;
  8850.   {$EXTERNALSYM RPC_S_UNKNOWN_AUTHZ_SERVICE}
  8851.  
  8852.   { The entry is invalid. }
  8853.   EPT_S_INVALID_ENTRY = 1751;
  8854.   {$EXTERNALSYM EPT_S_INVALID_ENTRY}
  8855.  
  8856.   { The server endpoint cannot perform the operation. }
  8857.   EPT_S_CANT_PERFORM_OP = 1752;
  8858.   {$EXTERNALSYM EPT_S_CANT_PERFORM_OP}
  8859.  
  8860.   { There are no more endpoints available from the endpoint mapper. }
  8861.   EPT_S_NOT_REGISTERED = 1753;
  8862.   {$EXTERNALSYM EPT_S_NOT_REGISTERED}
  8863.  
  8864.   { No interfaces have been exported. }
  8865.   RPC_S_NOTHING_TO_EXPORT = 1754;
  8866.   {$EXTERNALSYM RPC_S_NOTHING_TO_EXPORT}
  8867.  
  8868.   { The entry name is incomplete. }
  8869.   RPC_S_INCOMPLETE_NAME = 1755;
  8870.   {$EXTERNALSYM RPC_S_INCOMPLETE_NAME}
  8871.  
  8872.   { The version option is invalid. }
  8873.   RPC_S_INVALID_VERS_OPTION = 1756;
  8874.   {$EXTERNALSYM RPC_S_INVALID_VERS_OPTION}
  8875.  
  8876.   { There are no more members. }
  8877.   RPC_S_NO_MORE_MEMBERS = 1757;
  8878.   {$EXTERNALSYM RPC_S_NO_MORE_MEMBERS}
  8879.  
  8880.   { There is nothing to unexport. }
  8881.   RPC_S_NOT_ALL_OBJS_UNEXPORTED = 1758;
  8882.   {$EXTERNALSYM RPC_S_NOT_ALL_OBJS_UNEXPORTED}
  8883.  
  8884.   { The interface was not found. }
  8885.   RPC_S_INTERFACE_NOT_FOUND = 1759;
  8886.   {$EXTERNALSYM RPC_S_INTERFACE_NOT_FOUND}
  8887.  
  8888.   { The entry already exists. }
  8889.   RPC_S_ENTRY_ALREADY_EXISTS = 1760;
  8890.   {$EXTERNALSYM RPC_S_ENTRY_ALREADY_EXISTS}
  8891.  
  8892.   { The entry is not found. }
  8893.   RPC_S_ENTRY_NOT_FOUND = 1761;
  8894.   {$EXTERNALSYM RPC_S_ENTRY_NOT_FOUND}
  8895.  
  8896.   { The name service is unavailable. }
  8897.   RPC_S_NAME_SERVICE_UNAVAILABLE = 1762;
  8898.   {$EXTERNALSYM RPC_S_NAME_SERVICE_UNAVAILABLE}
  8899.  
  8900.   { The network address family is invalid. }
  8901.   RPC_S_INVALID_NAF_ID = 1763;
  8902.   {$EXTERNALSYM RPC_S_INVALID_NAF_ID}
  8903.  
  8904.   { The requested operation is not supported. }
  8905.   RPC_S_CANNOT_SUPPORT = 1764;
  8906.   {$EXTERNALSYM RPC_S_CANNOT_SUPPORT}
  8907.  
  8908.   { No security context is available to allow impersonation. }
  8909.   RPC_S_NO_CONTEXT_AVAILABLE = 1765;
  8910.   {$EXTERNALSYM RPC_S_NO_CONTEXT_AVAILABLE}
  8911.  
  8912.   { An internal error occurred in a remote procedure call (RPC). }
  8913.   RPC_S_INTERNAL_ERROR = 1766;
  8914.   {$EXTERNALSYM RPC_S_INTERNAL_ERROR}
  8915.  
  8916.   { The RPC server attempted an integer division by zero. }
  8917.   RPC_S_ZERO_DIVIDE = 1767;
  8918.   {$EXTERNALSYM RPC_S_ZERO_DIVIDE}
  8919.  
  8920.   { An addressing error occurred in the RPC server. }
  8921.   RPC_S_ADDRESS_ERROR = 1768;
  8922.   {$EXTERNALSYM RPC_S_ADDRESS_ERROR}
  8923.  
  8924.   { A floating-point operation at the RPC server caused a division by zero. }
  8925.   RPC_S_FP_DIV_ZERO = 1769;
  8926.   {$EXTERNALSYM RPC_S_FP_DIV_ZERO}
  8927.  
  8928.   { A floating-point underflow occurred at the RPC server. }
  8929.   RPC_S_FP_UNDERFLOW = 1770;
  8930.   {$EXTERNALSYM RPC_S_FP_UNDERFLOW}
  8931.  
  8932.   { A floating-point overflow occurred at the RPC server. }
  8933.   RPC_S_FP_OVERFLOW = 1771;
  8934.   {$EXTERNALSYM RPC_S_FP_OVERFLOW}
  8935.  
  8936.   { The list of RPC servers available for the binding of auto handles }
  8937.   { has been exhausted. }
  8938.   RPC_X_NO_MORE_ENTRIES = 1772;
  8939.   {$EXTERNALSYM RPC_X_NO_MORE_ENTRIES}
  8940.  
  8941.   { Unable to open the character translation table file. }
  8942.   RPC_X_SS_CHAR_TRANS_OPEN_FAIL = 1773;
  8943.   {$EXTERNALSYM RPC_X_SS_CHAR_TRANS_OPEN_FAIL}
  8944.  
  8945.   { The file containing the character translation table has fewer than }
  8946.   { 512 bytes. }
  8947.   RPC_X_SS_CHAR_TRANS_SHORT_FILE = 1774;
  8948.   {$EXTERNALSYM RPC_X_SS_CHAR_TRANS_SHORT_FILE}
  8949.  
  8950.   { A null context handle was passed from the client to the host during }
  8951.   { a remote procedure call. }
  8952.   RPC_X_SS_IN_NULL_CONTEXT = 1775;
  8953.   {$EXTERNALSYM RPC_X_SS_IN_NULL_CONTEXT}
  8954.  
  8955.   { The context handle changed during a remote procedure call. }
  8956.   RPC_X_SS_CONTEXT_DAMAGED = 1777;
  8957.   {$EXTERNALSYM RPC_X_SS_CONTEXT_DAMAGED}
  8958.  
  8959.   { The binding handles passed to a remote procedure call do not match. }
  8960.   RPC_X_SS_HANDLES_MISMATCH = 1778;
  8961.   {$EXTERNALSYM RPC_X_SS_HANDLES_MISMATCH}
  8962.  
  8963.   { The stub is unable to get the remote procedure call handle. }
  8964.   RPC_X_SS_CANNOT_GET_CALL_HANDLE = 1779;
  8965.   {$EXTERNALSYM RPC_X_SS_CANNOT_GET_CALL_HANDLE}
  8966.  
  8967.   { A null reference pointer was passed to the stub. }
  8968.   RPC_X_NULL_REF_POINTER = 1780;
  8969.   {$EXTERNALSYM RPC_X_NULL_REF_POINTER}
  8970.  
  8971.   { The enumeration value is out of range. }
  8972.   RPC_X_ENUM_VALUE_OUT_OF_RANGE = 1781;
  8973.   {$EXTERNALSYM RPC_X_ENUM_VALUE_OUT_OF_RANGE}
  8974.  
  8975.   { The byte count is too small. }
  8976.   RPC_X_BYTE_COUNT_TOO_SMALL = 1782;
  8977.   {$EXTERNALSYM RPC_X_BYTE_COUNT_TOO_SMALL}
  8978.  
  8979.   { The stub received bad data. }
  8980.   RPC_X_BAD_STUB_DATA = 1783;
  8981.   {$EXTERNALSYM RPC_X_BAD_STUB_DATA}
  8982.  
  8983.   { The supplied user buffer is not valid for the requested operation. }
  8984.   ERROR_INVALID_USER_BUFFER = 1784;
  8985.   {$EXTERNALSYM ERROR_INVALID_USER_BUFFER}
  8986.  
  8987.   { The disk media is not recognized.  It may not be formatted. }
  8988.   ERROR_UNRECOGNIZED_MEDIA = 1785;
  8989.   {$EXTERNALSYM ERROR_UNRECOGNIZED_MEDIA}
  8990.  
  8991.   { The workstation does not have a trust secret. }
  8992.   ERROR_NO_TRUST_LSA_SECRET = 1786;
  8993.   {$EXTERNALSYM ERROR_NO_TRUST_LSA_SECRET}
  8994.  
  8995.   { The SAM database on the Windows NT Server does not have a computer }
  8996.   { account for this workstation trust relationship. }
  8997.   ERROR_NO_TRUST_SAM_ACCOUNT = 1787;
  8998.   {$EXTERNALSYM ERROR_NO_TRUST_SAM_ACCOUNT}
  8999.  
  9000.   { The trust relationship between the primary domain and the trusted }
  9001.   { domain failed. }
  9002.   ERROR_TRUSTED_DOMAIN_FAILURE = 1788;
  9003.   {$EXTERNALSYM ERROR_TRUSTED_DOMAIN_FAILURE}
  9004.  
  9005.   { The trust relationship between this workstation and the primary }
  9006.   { domain failed. }
  9007.   ERROR_TRUSTED_RELATIONSHIP_FAILURE = 1789;
  9008.   {$EXTERNALSYM ERROR_TRUSTED_RELATIONSHIP_FAILURE}
  9009.  
  9010.   { The network logon failed. }
  9011.   ERROR_TRUST_FAILURE = 1790;
  9012.   {$EXTERNALSYM ERROR_TRUST_FAILURE}
  9013.  
  9014.   { A remote procedure call is already in progress for this thread. }
  9015.   RPC_S_CALL_IN_PROGRESS = 1791;
  9016.   {$EXTERNALSYM RPC_S_CALL_IN_PROGRESS}
  9017.  
  9018.   { An attempt was made to logon, but the network logon service was not started. }
  9019.   ERROR_NETLOGON_NOT_STARTED = 1792;
  9020.   {$EXTERNALSYM ERROR_NETLOGON_NOT_STARTED}
  9021.  
  9022.   { The user's account has expired. }
  9023.   ERROR_ACCOUNT_EXPIRED = 1793;
  9024.   {$EXTERNALSYM ERROR_ACCOUNT_EXPIRED}
  9025.  
  9026.   { The redirector is in use and cannot be unloaded. }
  9027.   ERROR_REDIRECTOR_HAS_OPEN_HANDLES = 1794;
  9028.   {$EXTERNALSYM ERROR_REDIRECTOR_HAS_OPEN_HANDLES}
  9029.  
  9030.   { The specified printer driver is already installed. }
  9031.   ERROR_PRINTER_DRIVER_ALREADY_INSTALLED = 1795;
  9032.   {$EXTERNALSYM ERROR_PRINTER_DRIVER_ALREADY_INSTALLED}
  9033.  
  9034.   { The specified port is unknown. }
  9035.   ERROR_UNKNOWN_PORT = 1796;
  9036.   {$EXTERNALSYM ERROR_UNKNOWN_PORT}
  9037.  
  9038.   { The printer driver is unknown. }
  9039.   ERROR_UNKNOWN_PRINTER_DRIVER = 1797;
  9040.   {$EXTERNALSYM ERROR_UNKNOWN_PRINTER_DRIVER}
  9041.  
  9042.   { The print processor is unknown. }
  9043.   ERROR_UNKNOWN_PRINTPROCESSOR = 1798;
  9044.   {$EXTERNALSYM ERROR_UNKNOWN_PRINTPROCESSOR}
  9045.  
  9046.   { The specified separator file is invalid. }
  9047.   ERROR_INVALID_SEPARATOR_FILE = 1799;
  9048.   {$EXTERNALSYM ERROR_INVALID_SEPARATOR_FILE}
  9049.  
  9050.   { The specified priority is invalid. }
  9051.   ERROR_INVALID_PRIORITY = 1800;
  9052.   {$EXTERNALSYM ERROR_INVALID_PRIORITY}
  9053.  
  9054.   { The printer name is invalid. }
  9055.   ERROR_INVALID_PRINTER_NAME = 1801;
  9056.   {$EXTERNALSYM ERROR_INVALID_PRINTER_NAME}
  9057.  
  9058.   { The printer already exists. }
  9059.   ERROR_PRINTER_ALREADY_EXISTS = 1802;
  9060.   {$EXTERNALSYM ERROR_PRINTER_ALREADY_EXISTS}
  9061.  
  9062.   { The printer command is invalid. }
  9063.   ERROR_INVALID_PRINTER_COMMAND = 1803;
  9064.   {$EXTERNALSYM ERROR_INVALID_PRINTER_COMMAND}
  9065.  
  9066.   { The specified datatype is invalid. }
  9067.   ERROR_INVALID_DATATYPE = 1804;
  9068.   {$EXTERNALSYM ERROR_INVALID_DATATYPE}
  9069.  
  9070.   { The Environment specified is invalid. }
  9071.   ERROR_INVALID_ENVIRONMENT = 1805;
  9072.   {$EXTERNALSYM ERROR_INVALID_ENVIRONMENT}
  9073.  
  9074.   { There are no more bindings. }
  9075.   RPC_S_NO_MORE_BINDINGS = 1806;
  9076.   {$EXTERNALSYM RPC_S_NO_MORE_BINDINGS}
  9077.  
  9078.   { The account used is an interdomain trust account.  Use your global user account or local user account to access this server. }
  9079.   ERROR_NOLOGON_INTERDOMAIN_TRUST_ACCOUNT = 1807;
  9080.   {$EXTERNALSYM ERROR_NOLOGON_INTERDOMAIN_TRUST_ACCOUNT}
  9081.  
  9082.   { The account used is a Computer Account.  Use your global user account or local user account to access this server. }
  9083.   ERROR_NOLOGON_WORKSTATION_TRUST_ACCOUNT = 1808;
  9084.   {$EXTERNALSYM ERROR_NOLOGON_WORKSTATION_TRUST_ACCOUNT}
  9085.  
  9086.   { The account used is an server trust account.  Use your global user account or local user account to access this server. }
  9087.   ERROR_NOLOGON_SERVER_TRUST_ACCOUNT = 1809;
  9088.   {$EXTERNALSYM ERROR_NOLOGON_SERVER_TRUST_ACCOUNT}
  9089.  
  9090.   { The name or security ID (SID) of the domain specified is inconsistent }
  9091.   { with the trust information for that domain. }
  9092.   ERROR_DOMAIN_TRUST_INCONSISTENT = 1810;
  9093.   {$EXTERNALSYM ERROR_DOMAIN_TRUST_INCONSISTENT}
  9094.  
  9095.   { The server is in use and cannot be unloaded. }
  9096.   ERROR_SERVER_HAS_OPEN_HANDLES = 1811;
  9097.   {$EXTERNALSYM ERROR_SERVER_HAS_OPEN_HANDLES}
  9098.  
  9099.   { The specified image file did not contain a resource section. }
  9100.   ERROR_RESOURCE_DATA_NOT_FOUND = 1812;
  9101.   {$EXTERNALSYM ERROR_RESOURCE_DATA_NOT_FOUND}
  9102.  
  9103.   { The specified resource type can not be found in the image file. }
  9104.   ERROR_RESOURCE_TYPE_NOT_FOUND = 1813;
  9105.   {$EXTERNALSYM ERROR_RESOURCE_TYPE_NOT_FOUND}
  9106.  
  9107.   { The specified resource name can not be found in the image file. }
  9108.   ERROR_RESOURCE_NAME_NOT_FOUND = 1814;
  9109.   {$EXTERNALSYM ERROR_RESOURCE_NAME_NOT_FOUND}
  9110.  
  9111.   { The specified resource language ID cannot be found in the image file. }
  9112.   ERROR_RESOURCE_LANG_NOT_FOUND = 1815;
  9113.   {$EXTERNALSYM ERROR_RESOURCE_LANG_NOT_FOUND}
  9114.  
  9115.   { Not enough quota is available to process this command. }
  9116.   ERROR_NOT_ENOUGH_QUOTA = 1816;
  9117.   {$EXTERNALSYM ERROR_NOT_ENOUGH_QUOTA}
  9118.  
  9119.   { No interfaces have been registered. }
  9120.   RPC_S_NO_INTERFACES = 1817;
  9121.   {$EXTERNALSYM RPC_S_NO_INTERFACES}
  9122.  
  9123.   { The server was altered while processing this call. }
  9124.   RPC_S_CALL_CANCELLED = 1818;
  9125.   {$EXTERNALSYM RPC_S_CALL_CANCELLED}
  9126.  
  9127.   { The binding handle does not contain all required information. }
  9128.   RPC_S_BINDING_INCOMPLETE = 1819;
  9129.   {$EXTERNALSYM RPC_S_BINDING_INCOMPLETE}
  9130.  
  9131.   { Communications failure. }
  9132.   RPC_S_COMM_FAILURE = 1820;
  9133.   {$EXTERNALSYM RPC_S_COMM_FAILURE}
  9134.  
  9135.   { The requested authentication level is not supported. }
  9136.   RPC_S_UNSUPPORTED_AUTHN_LEVEL = 1821;
  9137.   {$EXTERNALSYM RPC_S_UNSUPPORTED_AUTHN_LEVEL}
  9138.  
  9139.   { No principal name registered. }
  9140.   RPC_S_NO_PRINC_NAME = 1822;
  9141.   {$EXTERNALSYM RPC_S_NO_PRINC_NAME}
  9142.  
  9143.   { The error specified is not a valid Windows NT RPC error code. }
  9144.   RPC_S_NOT_RPC_ERROR = 1823;
  9145.   {$EXTERNALSYM RPC_S_NOT_RPC_ERROR}
  9146.  
  9147.   { A UUID that is valid only on this computer has been allocated. }
  9148.   RPC_S_UUID_LOCAL_ONLY = 1824;
  9149.   {$EXTERNALSYM RPC_S_UUID_LOCAL_ONLY}
  9150.  
  9151.   { A security package specific error occurred. }
  9152.   RPC_S_SEC_PKG_ERROR = 1825;
  9153.   {$EXTERNALSYM RPC_S_SEC_PKG_ERROR}
  9154.  
  9155.   { Thread is not cancelled. }
  9156.   RPC_S_NOT_CANCELLED = 1826;
  9157.   {$EXTERNALSYM RPC_S_NOT_CANCELLED}
  9158.  
  9159.   { Invalid operation on the encoding/decoding handle. }
  9160.   RPC_X_INVALID_ES_ACTION = 1827;
  9161.   {$EXTERNALSYM RPC_X_INVALID_ES_ACTION}
  9162.  
  9163.   { Incompatible version of the serializing package. }
  9164.   RPC_X_WRONG_ES_VERSION = 1828;
  9165.   {$EXTERNALSYM RPC_X_WRONG_ES_VERSION}
  9166.  
  9167.   { Incompatible version of the RPC stub. }
  9168.   RPC_X_WRONG_STUB_VERSION = 1829;
  9169.   {$EXTERNALSYM RPC_X_WRONG_STUB_VERSION}
  9170.  
  9171.   { The idl pipe object is invalid or corrupted. }
  9172.   RPC_X_INVALID_PIPE_OBJECT = 1830;
  9173.   {$EXTERNALSYM RPC_X_INVALID_PIPE_OBJECT}
  9174.  
  9175.   { The operation is invalid for a given idl pipe object. }
  9176.   RPC_X_INVALID_PIPE_OPERATION = 1831;
  9177.   {$EXTERNALSYM RPC_X_INVALID_PIPE_OPERATION}
  9178.  
  9179.   { The idl pipe version is not supported. }
  9180.   RPC_X_WRONG_PIPE_VERSION = 1832;
  9181.   {$EXTERNALSYM RPC_X_WRONG_PIPE_VERSION}
  9182.  
  9183.   { The group member was not found. }
  9184.   RPC_S_GROUP_MEMBER_NOT_FOUND = 1898;
  9185.   {$EXTERNALSYM RPC_S_GROUP_MEMBER_NOT_FOUND}
  9186.  
  9187.   { The endpoint mapper database could not be created. }
  9188.   EPT_S_CANT_CREATE = 1899;
  9189.   {$EXTERNALSYM EPT_S_CANT_CREATE}
  9190.  
  9191.   { The object universal unique identifier (UUID) is the nil UUID. }
  9192.   RPC_S_INVALID_OBJECT = 1900;
  9193.   {$EXTERNALSYM RPC_S_INVALID_OBJECT}
  9194.  
  9195.   { The specified time is invalid. }
  9196.   ERROR_INVALID_TIME = 1901;
  9197.   {$EXTERNALSYM ERROR_INVALID_TIME}
  9198.  
  9199.   { The specified Form name is invalid. }
  9200.   ERROR_INVALID_FORM_NAME = 1902;
  9201.   {$EXTERNALSYM ERROR_INVALID_FORM_NAME}
  9202.  
  9203.   { The specified Form size is invalid }
  9204.   ERROR_INVALID_FORM_SIZE = 1903;
  9205.   {$EXTERNALSYM ERROR_INVALID_FORM_SIZE}
  9206.  
  9207.   { The specified Printer handle is already being waited on }
  9208.   ERROR_ALREADY_WAITING = 1904;
  9209.   {$EXTERNALSYM ERROR_ALREADY_WAITING}
  9210.  
  9211.   { The specified Printer has been deleted }
  9212.   ERROR_PRINTER_DELETED = 1905;
  9213.   {$EXTERNALSYM ERROR_PRINTER_DELETED}
  9214.  
  9215.   { The state of the Printer is invalid }
  9216.   ERROR_INVALID_PRINTER_STATE = 1906;
  9217.   {$EXTERNALSYM ERROR_INVALID_PRINTER_STATE}
  9218.  
  9219.   { The user must change his password before he logs on the first time. }
  9220.   ERROR_PASSWORD_MUST_CHANGE = 1907;
  9221.   {$EXTERNALSYM ERROR_PASSWORD_MUST_CHANGE}
  9222.  
  9223.   { Could not find the domain controller for this domain. }
  9224.   ERROR_DOMAIN_CONTROLLER_NOT_FOUND = 1908;
  9225.   {$EXTERNALSYM ERROR_DOMAIN_CONTROLLER_NOT_FOUND}
  9226.  
  9227.   { The referenced account is currently locked out and may not be logged on to. }
  9228.   ERROR_ACCOUNT_LOCKED_OUT = 1909;
  9229.   {$EXTERNALSYM ERROR_ACCOUNT_LOCKED_OUT}
  9230.  
  9231.   { The object exporter specified was not found. }
  9232.   OR_INVALID_OXID = 1910;
  9233.   {$EXTERNALSYM OR_INVALID_OXID}
  9234.  
  9235.   { The object specified was not found. }
  9236.   OR_INVALID_OID = 1911;
  9237.   {$EXTERNALSYM OR_INVALID_OID}
  9238.  
  9239.   { The object resolver set specified was not found. }
  9240.   OR_INVALID_SET = 1912;
  9241.   {$EXTERNALSYM OR_INVALID_SET}
  9242.  
  9243.   { Some data remains to be sent in the request buffer. }
  9244.   RPC_S_SEND_INCOMPLETE = 1913;
  9245.   {$EXTERNALSYM RPC_S_SEND_INCOMPLETE}
  9246.  
  9247.   { The list of servers for this workgroup is not currently available }
  9248.   ERROR_NO_BROWSER_SERVERS_FOUND = 6118;
  9249.   {$EXTERNALSYM ERROR_NO_BROWSER_SERVERS_FOUND}
  9250.  
  9251.  
  9252. { OpenGL Error Code }
  9253.  
  9254.   { The pixel format is invalid. }
  9255.   ERROR_INVALID_PIXEL_FORMAT = 2000;
  9256.   {$EXTERNALSYM ERROR_INVALID_PIXEL_FORMAT}
  9257.  
  9258.   { The specified driver is invalid. }
  9259.   ERROR_BAD_DRIVER = 2001;
  9260.   {$EXTERNALSYM ERROR_BAD_DRIVER}
  9261.  
  9262.   { The window style or class attribute is invalid for this operation. }
  9263.   ERROR_INVALID_WINDOW_STYLE = 2002;
  9264.   {$EXTERNALSYM ERROR_INVALID_WINDOW_STYLE}
  9265.  
  9266.   { The requested metafile operation is not supported. }
  9267.   ERROR_METAFILE_NOT_SUPPORTED = 2003;
  9268.   {$EXTERNALSYM ERROR_METAFILE_NOT_SUPPORTED}
  9269.  
  9270.   { The requested transformation operation is not supported. }
  9271.   ERROR_TRANSFORM_NOT_SUPPORTED = 2004;
  9272.   {$EXTERNALSYM ERROR_TRANSFORM_NOT_SUPPORTED}
  9273.  
  9274.   { The requested clipping operation is not supported. }
  9275.   ERROR_CLIPPING_NOT_SUPPORTED = 2005;
  9276.   {$EXTERNALSYM ERROR_CLIPPING_NOT_SUPPORTED}
  9277.  
  9278.  
  9279. { Win32 Spooler Error Codes }
  9280.  
  9281.   { The specified print monitor is unknown. }
  9282.   ERROR_UNKNOWN_PRINT_MONITOR = 3000;
  9283.   {$EXTERNALSYM ERROR_UNKNOWN_PRINT_MONITOR}
  9284.  
  9285.   { The specified printer driver is currently in use. }
  9286.   ERROR_PRINTER_DRIVER_IN_USE = 3001;
  9287.   {$EXTERNALSYM ERROR_PRINTER_DRIVER_IN_USE}
  9288.  
  9289.   { The spool file was not found. }
  9290.   ERROR_SPOOL_FILE_NOT_FOUND = 3002;
  9291.   {$EXTERNALSYM ERROR_SPOOL_FILE_NOT_FOUND}
  9292.  
  9293.   { A StartDocPrinter call was not issued. }
  9294.   ERROR_SPL_NO_STARTDOC = 3003;
  9295.   {$EXTERNALSYM ERROR_SPL_NO_STARTDOC}
  9296.  
  9297.   { An AddJob call was not issued. }
  9298.   ERROR_SPL_NO_ADDJOB = 3004;
  9299.   {$EXTERNALSYM ERROR_SPL_NO_ADDJOB}
  9300.  
  9301.   { The specified print processor has already been installed. }
  9302.   ERROR_PRINT_PROCESSOR_ALREADY_INSTALLED = 3005;
  9303.   {$EXTERNALSYM ERROR_PRINT_PROCESSOR_ALREADY_INSTALLED}
  9304.  
  9305.   { The specified print monitor has already been installed. }
  9306.   ERROR_PRINT_MONITOR_ALREADY_INSTALLED = 3006;
  9307.   {$EXTERNALSYM ERROR_PRINT_MONITOR_ALREADY_INSTALLED}
  9308.  
  9309.   { The specified print monitor does not have the required functions. }
  9310.   ERROR_INVALID_PRINT_MONITOR = 3007;
  9311.   {$EXTERNALSYM ERROR_INVALID_PRINT_MONITOR}
  9312.  
  9313.   { The specified print monitor is currently in use. }
  9314.   ERROR_PRINT_MONITOR_IN_USE = 3008;
  9315.   {$EXTERNALSYM ERROR_PRINT_MONITOR_IN_USE}
  9316.  
  9317.   { The requested operation is not allowed when there are jobs queued to the printer. }
  9318.   ERROR_PRINTER_HAS_JOBS_QUEUED = 3009;
  9319.   {$EXTERNALSYM ERROR_PRINTER_HAS_JOBS_QUEUED}
  9320.  
  9321.   { The requested operation is successful.  Changes will not be effective until the system is rebooted. }
  9322.   ERROR_SUCCESS_REBOOT_REQUIRED = 3010;
  9323.   {$EXTERNALSYM ERROR_SUCCESS_REBOOT_REQUIRED}
  9324.  
  9325.   { The requested operation is successful.  Changes will not be effective until the service is restarted. }
  9326.   ERROR_SUCCESS_RESTART_REQUIRED = 3011;
  9327.   {$EXTERNALSYM ERROR_SUCCESS_RESTART_REQUIRED}
  9328.  
  9329.  
  9330. { Wins Error Codes }
  9331.  
  9332.   { WINS encountered an error while processing the command. }
  9333.   ERROR_WINS_INTERNAL = 4000;
  9334.   {$EXTERNALSYM ERROR_WINS_INTERNAL}
  9335.  
  9336.   { The local WINS can not be deleted. }
  9337.   ERROR_CAN_NOT_DEL_LOCAL_WINS = 4001;
  9338.   {$EXTERNALSYM ERROR_CAN_NOT_DEL_LOCAL_WINS}
  9339.  
  9340.   { The importation from the file failed. }
  9341.   ERROR_STATIC_INIT = 4002;
  9342.   {$EXTERNALSYM ERROR_STATIC_INIT}
  9343.  
  9344.   { The backup Failed.  Was a full backup done before ? }
  9345.   ERROR_INC_BACKUP = 4003;
  9346.   {$EXTERNALSYM ERROR_INC_BACKUP}
  9347.  
  9348.   { The backup Failed.  Check the directory that you are backing the database to. }
  9349.   ERROR_FULL_BACKUP = 4004;
  9350.   {$EXTERNALSYM ERROR_FULL_BACKUP}
  9351.  
  9352.   { The name does not exist in the WINS database. }
  9353.   ERROR_REC_NON_EXISTENT = 4005;
  9354.   {$EXTERNALSYM ERROR_REC_NON_EXISTENT}
  9355.  
  9356.   { Replication with a non-configured partner is not allowed. }
  9357.   ERROR_RPL_NOT_ALLOWED = 4006;
  9358.   {$EXTERNALSYM ERROR_RPL_NOT_ALLOWED}
  9359.  
  9360.  
  9361. {------------------------------}
  9362. {     OLE Error Codes          }
  9363. {------------------------------}
  9364.  
  9365. (*
  9366.   The return value of OLE APIs and methods is an HRESULT.
  9367.   This is not a handle to anything, but is merely a 32-bit value
  9368.   with several fields encoded in the value.  The parts of an
  9369.   HRESULT are shown below.
  9370.  
  9371.   HRESULTs are 32 bit values layed out as follows:
  9372.  
  9373.    3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
  9374.    1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
  9375.   +-+-+-+-+-+---------------------+-------------------------------+
  9376.   |S|R|C|N|r|    Facility         |               Code            |
  9377.   +-+-+-+-+-+---------------------+-------------------------------+
  9378.  
  9379.   where
  9380.  
  9381.       S - Severity - indicates success/fail
  9382.           0 - Success
  9383.           1 - Fail (COERROR)
  9384.  
  9385.       R - reserved portion of the facility code, corresponds to NT's
  9386.               second severity bit.
  9387.  
  9388.       C - reserved portion of the facility code, corresponds to NT's
  9389.               C field.
  9390.  
  9391.       N - reserved portion of the facility code. Used to indicate a
  9392.               mapped NT status value.
  9393.  
  9394.       r - reserved portion of the facility code. Reserved for internal
  9395.               use. Used to indicate HRESULT values that are not status
  9396.               values, but are instead message ids for display strings.
  9397.  
  9398.       Facility - is the facility code
  9399.  
  9400.       Code - is the facility's status code
  9401. *)
  9402.  
  9403. const
  9404.   { Severity values }
  9405.   SEVERITY_SUCCESS = 0;
  9406.   {$EXTERNALSYM SEVERITY_SUCCESS}
  9407.   SEVERITY_ERROR = 1;
  9408.   {$EXTERNALSYM SEVERITY_ERROR}
  9409.  
  9410. {$EXTERNALSYM Succeeded}
  9411. function Succeeded(Status: HRESULT): BOOL;
  9412.  
  9413. {$EXTERNALSYM Failed}
  9414. { and the inverse }
  9415. function Failed(Status: HRESULT): BOOL;
  9416.  
  9417. {$EXTERNALSYM IsError}
  9418. { Generic test for error on any status value. }
  9419. function IsError(Status: HRESULT): BOOL;
  9420.  
  9421. { Return the code }
  9422. function HResultCode(hr: HRESULT): Integer;
  9423.  
  9424. { Return the facility }
  9425. function HResultFacility(hr: HRESULT): Integer;
  9426.  
  9427. { Return the severity }
  9428. function HResultSeverity(hr: HRESULT): Integer;
  9429.  
  9430. { Create an HRESULT value from component pieces }
  9431. function MakeResult(sev, fac, code: Integer): HResult;
  9432. {$EXTERNALSYM MakeResult}
  9433.  
  9434. { Map a WIN32 error value into a HRESULT }
  9435. { Note: This assumes that WIN32 errors fall in the range -32k to 32k. }
  9436. const
  9437.   { Define bits here so macros are guaranteed to work }
  9438.   FACILITY_NT_BIT = $10000000;
  9439.   {$EXTERNALSYM FACILITY_NT_BIT}
  9440. function HResultFromWin32(x: Integer): HRESULT;
  9441.  
  9442. { Map an NT status value into a HRESULT }
  9443. function HResultFromNT(x: Integer): HRESULT;
  9444.  
  9445. const
  9446.   { HRESULT value definitions }
  9447.   { Codes $4000-$40ff are reserved for OLE }
  9448.  
  9449.   { Success codes }
  9450.   S_OK    = $00000000;
  9451.   {$EXTERNALSYM S_OK}
  9452.   S_FALSE = $00000001;
  9453.   {$EXTERNALSYM S_FALSE}
  9454.  
  9455.   NOERROR = 0;
  9456.   {$EXTERNALSYM NOERROR}
  9457.  
  9458.   { Catastrophic failure }
  9459.   E_UNEXPECTED = HRESULT($8000FFFF);
  9460.   {$EXTERNALSYM E_UNEXPECTED}
  9461.  
  9462.   { Not implemented }
  9463.   E_NOTIMPL = HRESULT($80004001);
  9464.   {$EXTERNALSYM E_NOTIMPL}
  9465.  
  9466.   { Ran out of memory }
  9467.   E_OUTOFMEMORY = HRESULT($8007000E);
  9468.   {$EXTERNALSYM E_OUTOFMEMORY}
  9469.  
  9470.   { One or more arguments are invalid }
  9471.   E_INVALIDARG = HRESULT($80070057);
  9472.   {$EXTERNALSYM E_INVALIDARG}
  9473.  
  9474.   { No such interface supported }
  9475.   E_NOINTERFACE = HRESULT($80004002);
  9476.   {$EXTERNALSYM E_NOINTERFACE}
  9477.  
  9478.   { Invalid pointer }
  9479.   E_POINTER = HRESULT($80004003);
  9480.   {$EXTERNALSYM E_POINTER}
  9481.  
  9482.   { Invalid handle }
  9483.   E_HANDLE = HRESULT($80070006);
  9484.   {$EXTERNALSYM E_HANDLE}
  9485.  
  9486.   { Operation aborted }
  9487.   E_ABORT = HRESULT($80004004);
  9488.   {$EXTERNALSYM E_ABORT}
  9489.  
  9490.   { Unspecified error }
  9491.   E_FAIL = HRESULT($80004005);
  9492.   {$EXTERNALSYM E_FAIL}
  9493.  
  9494.   { General access denied error }
  9495.   E_ACCESSDENIED = HRESULT($80070005);
  9496.   {$EXTERNALSYM E_ACCESSDENIED}
  9497.  
  9498.   { The data necessary to complete this operation is not yet available. }
  9499.   E_PENDING = HRESULT($8000000A);
  9500.   {$EXTERNALSYM E_PENDING}
  9501.  
  9502.   { Thread local storage failure }
  9503.   CO_E_INIT_TLS = HRESULT($80004006);
  9504.   {$EXTERNALSYM CO_E_INIT_TLS}
  9505.  
  9506.   { Get shared memory allocator failure }
  9507.   CO_E_INIT_SHARED_ALLOCATOR = HRESULT($80004007);
  9508.   {$EXTERNALSYM CO_E_INIT_SHARED_ALLOCATOR}
  9509.  
  9510.   { Get memory allocator failure }
  9511.   CO_E_INIT_MEMORY_ALLOCATOR = HRESULT($80004008);
  9512.   {$EXTERNALSYM CO_E_INIT_MEMORY_ALLOCATOR}
  9513.  
  9514.   { Unable to initialize class cache }
  9515.   CO_E_INIT_CLASS_CACHE = HRESULT($80004009);
  9516.   {$EXTERNALSYM CO_E_INIT_CLASS_CACHE}
  9517.  
  9518.   { Unable to initialize RPC services }
  9519.   CO_E_INIT_RPC_CHANNEL = HRESULT($8000400A);
  9520.   {$EXTERNALSYM CO_E_INIT_RPC_CHANNEL}
  9521.  
  9522.   { Cannot set thread local storage channel control }
  9523.   CO_E_INIT_TLS_SET_CHANNEL_CONTROL = HRESULT($8000400B);
  9524.   {$EXTERNALSYM CO_E_INIT_TLS_SET_CHANNEL_CONTROL}
  9525.  
  9526.   { Could not allocate thread local storage channel control }
  9527.   CO_E_INIT_TLS_CHANNEL_CONTROL = HRESULT($8000400C);
  9528.   {$EXTERNALSYM CO_E_INIT_TLS_CHANNEL_CONTROL}
  9529.  
  9530.   { The user supplied memory allocator is unacceptable }
  9531.   CO_E_INIT_UNACCEPTED_USER_ALLOCATOR = HRESULT($8000400D);
  9532.   {$EXTERNALSYM CO_E_INIT_UNACCEPTED_USER_ALLOCATOR}
  9533.  
  9534.   { The OLE service mutex already exists }
  9535.   CO_E_INIT_SCM_MUTEX_EXISTS = HRESULT($8000400E);
  9536.   {$EXTERNALSYM CO_E_INIT_SCM_MUTEX_EXISTS}
  9537.  
  9538.   { The OLE service file mapping already exists }
  9539.   CO_E_INIT_SCM_FILE_MAPPING_EXISTS = HRESULT($8000400F);
  9540.   {$EXTERNALSYM CO_E_INIT_SCM_FILE_MAPPING_EXISTS}
  9541.  
  9542.   { Unable to map view of file for OLE service }
  9543.   CO_E_INIT_SCM_MAP_VIEW_OF_FILE = HRESULT($80004010);
  9544.   {$EXTERNALSYM CO_E_INIT_SCM_MAP_VIEW_OF_FILE}
  9545.  
  9546.   { Failure attempting to launch OLE service }
  9547.   CO_E_INIT_SCM_EXEC_FAILURE = HRESULT($80004011);
  9548.   {$EXTERNALSYM CO_E_INIT_SCM_EXEC_FAILURE}
  9549.  
  9550.   { There was an attempt to call CoInitialize a second time while single threaded }
  9551.   CO_E_INIT_ONLY_SINGLE_THREADED = HRESULT($80004012);
  9552.   {$EXTERNALSYM CO_E_INIT_ONLY_SINGLE_THREADED}
  9553.  
  9554.   { A Remote activation was necessary but was not allowed }
  9555.   CO_E_CANT_REMOTE = HRESULT($80004013);
  9556.   {$EXTERNALSYM CO_E_CANT_REMOTE}
  9557.  
  9558.   { A Remote activation was necessary but the server name provided was invalid }
  9559.   CO_E_BAD_SERVER_NAME = HRESULT($80004014);
  9560.   {$EXTERNALSYM CO_E_BAD_SERVER_NAME}
  9561.  
  9562.   { The class is configured to run as a security id different from the caller }
  9563.   CO_E_WRONG_SERVER_IDENTITY = HRESULT($80004015);
  9564.   {$EXTERNALSYM CO_E_WRONG_SERVER_IDENTITY}
  9565.  
  9566.   { Use of Ole1 services requiring DDE windows is disabled }
  9567.   CO_E_OLE1DDE_DISABLED = HRESULT($80004016);
  9568.   {$EXTERNALSYM CO_E_OLE1DDE_DISABLED}
  9569.  
  9570.   { A RunAs specification must be <domain name>\<user name> or simply <user name> }
  9571.   CO_E_RUNAS_SYNTAX = HRESULT($80004017);
  9572.   {$EXTERNALSYM CO_E_RUNAS_SYNTAX}
  9573.  
  9574.   { The server process could not be started.  The pathname may be incorrect. }
  9575.   CO_E_CREATEPROCESS_FAILURE = HRESULT($80004018);
  9576.   {$EXTERNALSYM CO_E_CREATEPROCESS_FAILURE}
  9577.  
  9578.   { The server process could not be started as the configured identity.  The pathname may be incorrect or unavailable. }
  9579.   CO_E_RUNAS_CREATEPROCESS_FAILURE = HRESULT($80004019);
  9580.   {$EXTERNALSYM CO_E_RUNAS_CREATEPROCESS_FAILURE}
  9581.  
  9582.   { The server process could not be started because the configured identity is incorrect.  Check the username and password. }
  9583.   CO_E_RUNAS_LOGON_FAILURE = HRESULT($8000401A);
  9584.   {$EXTERNALSYM CO_E_RUNAS_LOGON_FAILURE}
  9585.  
  9586.   { The client is not allowed to launch this server. }
  9587.   CO_E_LAUNCH_PERMSSION_DENIED = HRESULT($8000401B);
  9588.   {$EXTERNALSYM CO_E_LAUNCH_PERMSSION_DENIED}
  9589.  
  9590.   { The service providing this server could not be started. }
  9591.   CO_E_START_SERVICE_FAILURE = HRESULT($8000401C);
  9592.   {$EXTERNALSYM CO_E_START_SERVICE_FAILURE}
  9593.  
  9594.   { This computer was unable to communicate with the computer providing the server. }
  9595.   CO_E_REMOTE_COMMUNICATION_FAILURE = HRESULT($8000401D);
  9596.   {$EXTERNALSYM CO_E_REMOTE_COMMUNICATION_FAILURE}
  9597.  
  9598.   { The server did not respond after being launched. }
  9599.   CO_E_SERVER_START_TIMEOUT = HRESULT($8000401E);
  9600.   {$EXTERNALSYM CO_E_SERVER_START_TIMEOUT}
  9601.  
  9602.   { The registration information for this server is inconsistent or incomplete. }
  9603.   CO_E_CLSREG_INCONSISTENT = HRESULT($8000401F);
  9604.   {$EXTERNALSYM CO_E_CLSREG_INCONSISTENT}
  9605.  
  9606.   { The registration information for this interface is inconsistent or incomplete. }
  9607.   CO_E_IIDREG_INCONSISTENT = HRESULT($80004020);
  9608.   {$EXTERNALSYM CO_E_IIDREG_INCONSISTENT}
  9609.  
  9610.   { The operation attempted is not supported. }
  9611.   CO_E_NOT_SUPPORTED = HRESULT($80004021);
  9612.   {$EXTERNALSYM CO_E_NOT_SUPPORTED}
  9613.  
  9614.  
  9615.   { FACILITY_ITF }
  9616.   { Codes $0-$01ff are reserved for the OLE group of }
  9617.  
  9618.   { Generic OLE errors that may be returned by many inerfaces}
  9619.   OLE_E_FIRST = HRESULT($80040000);
  9620.   {$EXTERNALSYM OLE_E_FIRST}
  9621.   OLE_E_LAST  = HRESULT($800400FF);
  9622.   {$EXTERNALSYM OLE_E_LAST}
  9623.   OLE_S_FIRST = $40000;
  9624.   {$EXTERNALSYM OLE_S_FIRST}
  9625.   OLE_S_LAST  = $400FF;
  9626.   {$EXTERNALSYM OLE_S_LAST}
  9627.  
  9628.   { Invalid OLEVERB structure }
  9629.   OLE_E_OLEVERB = HRESULT($80040000);
  9630.   {$EXTERNALSYM OLE_E_OLEVERB}
  9631.  
  9632.   { Invalid advise flags }
  9633.   OLE_E_ADVF = HRESULT($80040001);
  9634.   {$EXTERNALSYM OLE_E_ADVF}
  9635.  
  9636.   { Can't enumerate any more, because the associated data is missing }
  9637.   OLE_E_ENUM_NOMORE = HRESULT($80040002);
  9638.   {$EXTERNALSYM OLE_E_ENUM_NOMORE}
  9639.  
  9640.   { This implementation doesn't take advises }
  9641.   OLE_E_ADVISENOTSUPPORTED = HRESULT($80040003);
  9642.   {$EXTERNALSYM OLE_E_ADVISENOTSUPPORTED}
  9643.  
  9644.   { There is no connection for this connection ID }
  9645.   OLE_E_NOCONNECTION = HRESULT($80040004);
  9646.   {$EXTERNALSYM OLE_E_NOCONNECTION}
  9647.  
  9648.   { Need to run the object to perform this operation }
  9649.   OLE_E_NOTRUNNING = HRESULT($80040005);
  9650.   {$EXTERNALSYM OLE_E_NOTRUNNING}
  9651.  
  9652.   { There is no cache to operate on }
  9653.   OLE_E_NOCACHE = HRESULT($80040006);
  9654.   {$EXTERNALSYM OLE_E_NOCACHE}
  9655.  
  9656.   { Uninitialized object }
  9657.   OLE_E_BLANK = HRESULT($80040007);
  9658.   {$EXTERNALSYM OLE_E_BLANK}
  9659.  
  9660.   { Linked object's source class has changed }
  9661.   OLE_E_CLASSDIFF = HRESULT($80040008);
  9662.   {$EXTERNALSYM OLE_E_CLASSDIFF}
  9663.  
  9664.   { Not able to get the moniker of the object }
  9665.   OLE_E_CANT_GETMONIKER = HRESULT($80040009);
  9666.   {$EXTERNALSYM OLE_E_CANT_GETMONIKER}
  9667.  
  9668.   { Not able to bind to the source }
  9669.   OLE_E_CANT_BINDTOSOURCE = HRESULT($8004000A);
  9670.   {$EXTERNALSYM OLE_E_CANT_BINDTOSOURCE}
  9671.  
  9672.   { Object is static; operation not allowed }
  9673.   OLE_E_STATIC = HRESULT($8004000B);
  9674.   {$EXTERNALSYM OLE_E_STATIC}
  9675.  
  9676.   { User cancelled out of save dialog }
  9677.   OLE_E_PROMPTSAVECANCELLED = HRESULT($8004000C);
  9678.   {$EXTERNALSYM OLE_E_PROMPTSAVECANCELLED}
  9679.  
  9680.   { Invalid rectangle }
  9681.   OLE_E_INVALIDRECT = HRESULT($8004000D);
  9682.   {$EXTERNALSYM OLE_E_INVALIDRECT}
  9683.  
  9684.   { compobj.dll is too old for the ole2.dll initialized }
  9685.   OLE_E_WRONGCOMPOBJ = HRESULT($8004000E);
  9686.   {$EXTERNALSYM OLE_E_WRONGCOMPOBJ}
  9687.  
  9688.   { Invalid window handle }
  9689.   OLE_E_INVALIDHWND = HRESULT($8004000F);
  9690.   {$EXTERNALSYM OLE_E_INVALIDHWND}
  9691.  
  9692.   { Object is not in any of the inplace active states }
  9693.   OLE_E_NOT_INPLACEACTIVE = HRESULT($80040010);
  9694.   {$EXTERNALSYM OLE_E_NOT_INPLACEACTIVE}
  9695.  
  9696.   { Not able to convert object }
  9697.   OLE_E_CANTCONVERT = HRESULT($80040011);
  9698.   {$EXTERNALSYM OLE_E_CANTCONVERT}
  9699.  
  9700.   OLE_E_NOSTORAGE = HRESULT($80040012);
  9701.   {$EXTERNALSYM OLE_E_NOSTORAGE}
  9702.  
  9703.   { Invalid FORMATETC structure }
  9704.   DV_E_FORMATETC = HRESULT($80040064);
  9705.   {$EXTERNALSYM DV_E_FORMATETC}
  9706.  
  9707.   { Invalid DVTARGETDEVICE structure }
  9708.   DV_E_DVTARGETDEVICE = HRESULT($80040065);
  9709.   {$EXTERNALSYM DV_E_DVTARGETDEVICE}
  9710.  
  9711.   { Invalid STDGMEDIUM structure }
  9712.   DV_E_STGMEDIUM = HRESULT($80040066);
  9713.   {$EXTERNALSYM DV_E_STGMEDIUM}
  9714.  
  9715.   { Invalid STATDATA structure }
  9716.   DV_E_STATDATA = HRESULT($80040067);
  9717.   {$EXTERNALSYM DV_E_STATDATA}
  9718.  
  9719.   { Invalid lindex }
  9720.   DV_E_LINDEX = HRESULT($80040068);
  9721.   {$EXTERNALSYM DV_E_LINDEX}
  9722.  
  9723.   { Invalid tymed }
  9724.   DV_E_TYMED = HRESULT($80040069);
  9725.   {$EXTERNALSYM DV_E_TYMED}
  9726.  
  9727.   { Invalid clipboard format }
  9728.   DV_E_CLIPFORMAT = HRESULT($8004006A);
  9729.   {$EXTERNALSYM DV_E_CLIPFORMAT}
  9730.  
  9731.   { Invalid aspect(s) }
  9732.   DV_E_DVASPECT = HRESULT($8004006B);
  9733.   {$EXTERNALSYM DV_E_DVASPECT}
  9734.  
  9735.   { tdSize parameter of the DVTARGETDEVICE structure is invalid }
  9736.   DV_E_DVTARGETDEVICE_SIZE = HRESULT($8004006C);
  9737.   {$EXTERNALSYM DV_E_DVTARGETDEVICE_SIZE}
  9738.  
  9739.   { Object doesn't support IViewObject interface }
  9740.   DV_E_NOIVIEWOBJECT = HRESULT($8004006D);
  9741.   {$EXTERNALSYM DV_E_NOIVIEWOBJECT}
  9742.  
  9743.   DRAGDROP_E_FIRST = HRESULT($80040100);
  9744.   {$EXTERNALSYM DRAGDROP_E_FIRST}
  9745.   DRAGDROP_E_LAST  = HRESULT($8004010F);
  9746.   {$EXTERNALSYM DRAGDROP_E_LAST}
  9747.   DRAGDROP_S_FIRST = $40100;
  9748.   {$EXTERNALSYM DRAGDROP_S_FIRST}
  9749.  
  9750.   { Trying to revoke a drop target that has not been registered }
  9751.   DRAGDROP_E_NOTREGISTERED = HRESULT($80040100);
  9752.   {$EXTERNALSYM DRAGDROP_E_NOTREGISTERED}
  9753.  
  9754.   { This window has already been registered as a drop target }
  9755.   DRAGDROP_E_ALREADYREGISTERED = HRESULT($80040101);
  9756.   {$EXTERNALSYM DRAGDROP_E_ALREADYREGISTERED}
  9757.  
  9758.   { Invalid window handle }
  9759.   DRAGDROP_E_INVALIDHWND = HRESULT($80040102);
  9760.   {$EXTERNALSYM DRAGDROP_E_INVALIDHWND}
  9761.  
  9762.   CLASSFACTORY_E_FIRST = HRESULT($80040110);
  9763.   {$EXTERNALSYM CLASSFACTORY_E_FIRST}
  9764.   CLASSFACTORY_E_LAST  = HRESULT($8004011F);
  9765.   {$EXTERNALSYM CLASSFACTORY_E_LAST}
  9766.   CLASSFACTORY_S_FIRST = $40110;
  9767.   {$EXTERNALSYM CLASSFACTORY_S_FIRST}
  9768.  
  9769.   { Class does not support aggregation (or class object is remote) }
  9770.   CLASS_E_NOAGGREGATION = HRESULT($80040110);
  9771.   {$EXTERNALSYM CLASS_E_NOAGGREGATION}
  9772.  
  9773.   { ClassFactory cannot supply requested class }
  9774.   CLASS_E_CLASSNOTAVAILABLE = HRESULT($80040111);
  9775.   {$EXTERNALSYM CLASS_E_CLASSNOTAVAILABLE}
  9776.  
  9777.   MARSHAL_E_FIRST = HRESULT($80040120);
  9778.   {$EXTERNALSYM MARSHAL_E_FIRST}
  9779.   MARSHAL_E_LAST  = HRESULT($8004012F);
  9780.   {$EXTERNALSYM MARSHAL_E_LAST}
  9781.   MARSHAL_S_FIRST = $40120;
  9782.   {$EXTERNALSYM MARSHAL_S_FIRST}
  9783.   MARSHAL_S_LAST  = $4012F;
  9784.   {$EXTERNALSYM MARSHAL_S_LAST}
  9785.   DATA_E_FIRST    = HRESULT($80040130);
  9786.   {$EXTERNALSYM DATA_E_FIRST}
  9787.   DATA_E_LAST     = HRESULT($8004013F);
  9788.   {$EXTERNALSYM DATA_E_LAST}
  9789.   DATA_S_FIRST    = $40130;
  9790.   {$EXTERNALSYM DATA_S_FIRST}
  9791.   DATA_S_LAST     = $4013F;
  9792.   {$EXTERNALSYM DATA_S_LAST}
  9793.   VIEW_E_FIRST    = HRESULT($80040140);
  9794.   {$EXTERNALSYM VIEW_E_FIRST}
  9795.   VIEW_E_LAST     = HRESULT($8004014F);
  9796.   {$EXTERNALSYM VIEW_E_LAST}
  9797.   VIEW_S_FIRST    = $40140;
  9798.   {$EXTERNALSYM VIEW_S_FIRST}
  9799.  
  9800.   { Error drawing view }
  9801.   VIEW_E_DRAW = HRESULT($80040140);
  9802.   {$EXTERNALSYM VIEW_E_DRAW}
  9803.  
  9804.   REGDB_E_FIRST = HRESULT($80040150);
  9805.   {$EXTERNALSYM REGDB_E_FIRST}
  9806.   REGDB_E_LAST  = HRESULT($8004015F);
  9807.   {$EXTERNALSYM REGDB_E_LAST}
  9808.   REGDB_S_FIRST = $40150;
  9809.   {$EXTERNALSYM REGDB_S_FIRST}
  9810.  
  9811.   { Could not read key from registry }
  9812.   REGDB_E_READREGDB = HRESULT($80040150);
  9813.   {$EXTERNALSYM REGDB_E_READREGDB}
  9814.  
  9815.   { Could not write key to registry }
  9816.   REGDB_E_WRITEREGDB = HRESULT($80040151);
  9817.   {$EXTERNALSYM REGDB_E_WRITEREGDB}
  9818.  
  9819.   { Could not find the key in the registry }
  9820.   REGDB_E_KEYMISSING = HRESULT($80040152);
  9821.   {$EXTERNALSYM REGDB_E_KEYMISSING}
  9822.  
  9823.   { Invalid value for registry }
  9824.   REGDB_E_INVALIDVALUE = HRESULT($80040153);
  9825.   {$EXTERNALSYM REGDB_E_INVALIDVALUE}
  9826.  
  9827.   { Class not registered }
  9828.   REGDB_E_CLASSNOTREG = HRESULT($80040154);
  9829.   {$EXTERNALSYM REGDB_E_CLASSNOTREG}
  9830.  
  9831.   { Interface not registered }
  9832.   REGDB_E_IIDNOTREG = HRESULT($80040155);
  9833.   {$EXTERNALSYM REGDB_E_IIDNOTREG}
  9834.  
  9835.   CACHE_E_FIRST = HRESULT($80040170);
  9836.   {$EXTERNALSYM CACHE_E_FIRST}
  9837.   CACHE_E_LAST  = HRESULT($8004017F);
  9838.   {$EXTERNALSYM CACHE_E_LAST}
  9839.   CACHE_S_FIRST = $40170;
  9840.   {$EXTERNALSYM CACHE_S_FIRST}
  9841.  
  9842.   { Cache not updated }
  9843.   CACHE_E_NOCACHE_UPDATED = HRESULT($80040170);
  9844.   {$EXTERNALSYM CACHE_E_NOCACHE_UPDATED}
  9845.  
  9846.   OLEOBJ_E_FIRST = HRESULT($80040180);
  9847.   {$EXTERNALSYM OLEOBJ_E_FIRST}
  9848.   OLEOBJ_E_LAST  = HRESULT($8004018F);
  9849.   {$EXTERNALSYM OLEOBJ_E_LAST}
  9850.   OLEOBJ_S_FIRST = $40180;
  9851.   {$EXTERNALSYM OLEOBJ_S_FIRST}
  9852.  
  9853.   { No verbs for OLE object }
  9854.   OLEOBJ_E_NOVERBS = HRESULT($80040180);
  9855.   {$EXTERNALSYM OLEOBJ_E_NOVERBS}
  9856.  
  9857.   { Invalid verb for OLE object }
  9858.   OLEOBJ_E_INVALIDVERB = HRESULT($80040181);
  9859.   {$EXTERNALSYM OLEOBJ_E_INVALIDVERB}
  9860.  
  9861.   CLIENTSITE_E_FIRST = HRESULT($80040190);
  9862.   {$EXTERNALSYM CLIENTSITE_E_FIRST}
  9863.   CLIENTSITE_E_LAST = HRESULT($8004019F);
  9864.   {$EXTERNALSYM CLIENTSITE_E_LAST}
  9865.   CLIENTSITE_S_FIRST = $40190;
  9866.   {$EXTERNALSYM CLIENTSITE_S_FIRST}
  9867.  
  9868.   { Undo is not available }
  9869.   INPLACE_E_NOTUNDOABLE = HRESULT($800401A0);
  9870.   {$EXTERNALSYM INPLACE_E_NOTUNDOABLE}
  9871.  
  9872.   { Space for tools is not available }
  9873.   INPLACE_E_NOTOOLSPACE = HRESULT($800401A1);
  9874.   {$EXTERNALSYM INPLACE_E_NOTOOLSPACE}
  9875.  
  9876.   INPLACE_E_FIRST = HRESULT($800401A0);
  9877.   {$EXTERNALSYM INPLACE_E_FIRST}
  9878.   INPLACE_E_LAST  = HRESULT($800401AF);
  9879.   {$EXTERNALSYM INPLACE_E_LAST}
  9880.   INPLACE_S_FIRST = $401A0;
  9881.   {$EXTERNALSYM INPLACE_S_FIRST}
  9882.   INPLACE_S_LAST  = $401AF;
  9883.   {$EXTERNALSYM INPLACE_S_LAST}
  9884.   ENUM_E_FIRST = HRESULT($800401B0);
  9885.   {$EXTERNALSYM ENUM_E_FIRST}
  9886.   ENUM_E_LAST  = HRESULT($800401BF);
  9887.   {$EXTERNALSYM ENUM_E_LAST}
  9888.   ENUM_S_FIRST = $401B0;
  9889.   {$EXTERNALSYM ENUM_S_FIRST}
  9890.   ENUM_S_LAST  = $401BF;
  9891.   {$EXTERNALSYM ENUM_S_LAST}
  9892.   CONVERT10_E_FIRST = HRESULT($800401C0);
  9893.   {$EXTERNALSYM CONVERT10_E_FIRST}
  9894.   CONVERT10_E_LAST  = HRESULT($800401CF);
  9895.   {$EXTERNALSYM CONVERT10_E_LAST}
  9896.   CONVERT10_S_FIRST = $401C0;
  9897.   {$EXTERNALSYM CONVERT10_S_FIRST}
  9898.  
  9899.   { OLESTREAM Get method failed }
  9900.   CONVERT10_E_OLESTREAM_GET = HRESULT($800401C0);
  9901.   {$EXTERNALSYM CONVERT10_E_OLESTREAM_GET}
  9902.  
  9903.   { OLESTREAM Put method failed }
  9904.   CONVERT10_E_OLESTREAM_PUT = HRESULT($800401C1);
  9905.   {$EXTERNALSYM CONVERT10_E_OLESTREAM_PUT}
  9906.  
  9907.   { Contents of the OLESTREAM not in correct format }
  9908.   CONVERT10_E_OLESTREAM_FMT = HRESULT($800401C2);
  9909.   {$EXTERNALSYM CONVERT10_E_OLESTREAM_FMT}
  9910.  
  9911.   { There was an error in a Windows GDI call while converting the bitmap to a DIB }
  9912.   CONVERT10_E_OLESTREAM_BITMAP_TO_DIB = HRESULT($800401C3);
  9913.   {$EXTERNALSYM CONVERT10_E_OLESTREAM_BITMAP_TO_DIB}
  9914.  
  9915.   { Contents of the IStorage not in correct format }
  9916.   CONVERT10_E_STG_FMT = HRESULT($800401C4);
  9917.   {$EXTERNALSYM CONVERT10_E_STG_FMT}
  9918.  
  9919.   { Contents of IStorage is missing one of the standard streams }
  9920.   CONVERT10_E_STG_NO_STD_STREAM = HRESULT($800401C5);
  9921.   {$EXTERNALSYM CONVERT10_E_STG_NO_STD_STREAM}
  9922.  
  9923.   CONVERT10_E_STG_DIB_TO_BITMAP = HRESULT($800401C6);
  9924.   {$EXTERNALSYM CONVERT10_E_STG_DIB_TO_BITMAP}
  9925.  
  9926.   CLIPBRD_E_FIRST = HRESULT($800401D0);
  9927.   {$EXTERNALSYM CLIPBRD_E_FIRST}
  9928.   CLIPBRD_E_LAST  = HRESULT($800401DF);
  9929.   {$EXTERNALSYM CLIPBRD_E_LAST}
  9930.   CLIPBRD_S_FIRST = $401D0;
  9931.   {$EXTERNALSYM CLIPBRD_S_FIRST}
  9932.  
  9933.   { OpenClipboard Failed }
  9934.   CLIPBRD_E_CANT_OPEN = HRESULT($800401D0);
  9935.   {$EXTERNALSYM CLIPBRD_E_CANT_OPEN}
  9936.  
  9937.   { EmptyClipboard Failed }
  9938.   CLIPBRD_E_CANT_EMPTY = HRESULT($800401D1);
  9939.   {$EXTERNALSYM CLIPBRD_E_CANT_EMPTY}
  9940.  
  9941.   { SetClipboard Failed }
  9942.   CLIPBRD_E_CANT_SET = HRESULT($800401D2);
  9943.   {$EXTERNALSYM CLIPBRD_E_CANT_SET}
  9944.  
  9945.   { Data on clipboard is invalid }
  9946.   CLIPBRD_E_BAD_DATA = HRESULT($800401D3);
  9947.   {$EXTERNALSYM CLIPBRD_E_BAD_DATA}
  9948.  
  9949.   { CloseClipboard Failed }
  9950.   CLIPBRD_E_CANT_CLOSE = HRESULT($800401D4);
  9951.   {$EXTERNALSYM CLIPBRD_E_CANT_CLOSE}
  9952.  
  9953.   MK_E_FIRST = HRESULT($800401E0);
  9954.   {$EXTERNALSYM MK_E_FIRST}
  9955.   MK_E_LAST  = HRESULT($800401EF);
  9956.   {$EXTERNALSYM MK_E_LAST}
  9957.   MK_S_FIRST = $401E0;
  9958.   {$EXTERNALSYM MK_S_FIRST}
  9959.  
  9960.   { Moniker needs to be connected manually }
  9961.   MK_E_CONNECTMANUALLY = HRESULT($800401E0);
  9962.   {$EXTERNALSYM MK_E_CONNECTMANUALLY}
  9963.  
  9964.   { Operation exceeded deadline }
  9965.   MK_E_EXCEEDEDDEADLINE = HRESULT($800401E1);
  9966.   {$EXTERNALSYM MK_E_EXCEEDEDDEADLINE}
  9967.  
  9968.   { Moniker needs to be generic }
  9969.   MK_E_NEEDGENERIC = HRESULT($800401E2);
  9970.   {$EXTERNALSYM MK_E_NEEDGENERIC}
  9971.  
  9972.   { Operation unavailable }
  9973.   MK_E_UNAVAILABLE = HRESULT($800401E3);
  9974.   {$EXTERNALSYM MK_E_UNAVAILABLE}
  9975.  
  9976.   { Invalid syntax }
  9977.   MK_E_SYNTAX = HRESULT($800401E4);
  9978.   {$EXTERNALSYM MK_E_SYNTAX}
  9979.  
  9980.   { No object for moniker }
  9981.   MK_E_NOOBJECT = HRESULT($800401E5);
  9982.   {$EXTERNALSYM MK_E_NOOBJECT}
  9983.  
  9984.   { Bad extension for file }
  9985.   MK_E_INVALIDEXTENSION = HRESULT($800401E6);
  9986.   {$EXTERNALSYM MK_E_INVALIDEXTENSION}
  9987.  
  9988.   { Intermediate operation failed }
  9989.   MK_E_INTERMEDIATEINTERFACENOTSUPPORTED = HRESULT($800401E7);
  9990.   {$EXTERNALSYM MK_E_INTERMEDIATEINTERFACENOTSUPPORTED}
  9991.  
  9992.   { Moniker is not bindable }
  9993.   MK_E_NOTBINDABLE = HRESULT($800401E8);
  9994.   {$EXTERNALSYM MK_E_NOTBINDABLE}
  9995.  
  9996.   { Moniker is not bound }
  9997.   MK_E_NOTBOUND = HRESULT($800401E9);
  9998.   {$EXTERNALSYM MK_E_NOTBOUND}
  9999.  
  10000.   { Moniker cannot open file }
  10001.   MK_E_CANTOPENFILE = HRESULT($800401EA);
  10002.   {$EXTERNALSYM MK_E_CANTOPENFILE}
  10003.  
  10004.   { User input required for operation to succeed }
  10005.   MK_E_MUSTBOTHERUSER = HRESULT($800401EB);
  10006.   {$EXTERNALSYM MK_E_MUSTBOTHERUSER}
  10007.  
  10008.   { Moniker class has no inverse }
  10009.   MK_E_NOINVERSE = HRESULT($800401EC);
  10010.   {$EXTERNALSYM MK_E_NOINVERSE}
  10011.  
  10012.   { Moniker does not refer to storage }
  10013.   MK_E_NOSTORAGE = HRESULT($800401ED);
  10014.   {$EXTERNALSYM MK_E_NOSTORAGE}
  10015.  
  10016.   { No common prefix }
  10017.   MK_E_NOPREFIX = HRESULT($800401EE);
  10018.   {$EXTERNALSYM MK_E_NOPREFIX}
  10019.  
  10020.   { Moniker could not be enumerated }
  10021.   MK_E_ENUMERATION_FAILED = HRESULT($800401EF);
  10022.   {$EXTERNALSYM MK_E_ENUMERATION_FAILED}
  10023.  
  10024.   CO_E_FIRST = HRESULT($800401F0);
  10025.   {$EXTERNALSYM CO_E_FIRST}
  10026.   CO_E_LAST  = HRESULT($800401FF);
  10027.   {$EXTERNALSYM CO_E_LAST}
  10028.   CO_S_FIRST = $401F0;
  10029.   {$EXTERNALSYM CO_S_FIRST}
  10030.  
  10031.   { CoInitialize has not been called. }
  10032.   CO_E_NOTINITIALIZED = HRESULT($800401F0);
  10033.   {$EXTERNALSYM CO_E_NOTINITIALIZED}
  10034.  
  10035.   { CoInitialize has already been called. }
  10036.   CO_E_ALREADYINITIALIZED = HRESULT($800401F1);
  10037.   {$EXTERNALSYM CO_E_ALREADYINITIALIZED}
  10038.  
  10039.   { Class of object cannot be determined }
  10040.   CO_E_CANTDETERMINECLASS = HRESULT($800401F2);
  10041.   {$EXTERNALSYM CO_E_CANTDETERMINECLASS}
  10042.  
  10043.   { Invalid class string }
  10044.   CO_E_CLASSSTRING = HRESULT($800401F3);
  10045.   {$EXTERNALSYM CO_E_CLASSSTRING}
  10046.  
  10047.   { Invalid interface string }
  10048.   CO_E_IIDSTRING = HRESULT($800401F4);
  10049.   {$EXTERNALSYM CO_E_IIDSTRING}
  10050.  
  10051.   { Application not found }
  10052.   CO_E_APPNOTFOUND = HRESULT($800401F5);
  10053.   {$EXTERNALSYM CO_E_APPNOTFOUND}
  10054.  
  10055.   { Application cannot be run more than once }
  10056.   CO_E_APPSINGLEUSE = HRESULT($800401F6);
  10057.   {$EXTERNALSYM CO_E_APPSINGLEUSE}
  10058.  
  10059.   { Some error in application program }
  10060.   CO_E_ERRORINAPP = HRESULT($800401F7);
  10061.   {$EXTERNALSYM CO_E_ERRORINAPP}
  10062.  
  10063.   { DLL for class not found }
  10064.   CO_E_DLLNOTFOUND = HRESULT($800401F8);
  10065.   {$EXTERNALSYM CO_E_DLLNOTFOUND}
  10066.  
  10067.   { Error in the DLL }
  10068.   CO_E_ERRORINDLL = HRESULT($800401F9);
  10069.   {$EXTERNALSYM CO_E_ERRORINDLL}
  10070.  
  10071.   { Wrong OS or OS version for application }
  10072.   CO_E_WRONGOSFORAPP = HRESULT($800401FA);
  10073.   {$EXTERNALSYM CO_E_WRONGOSFORAPP}
  10074.  
  10075.   { Object is not registered }
  10076.   CO_E_OBJNOTREG = HRESULT($800401FB);
  10077.   {$EXTERNALSYM CO_E_OBJNOTREG}
  10078.  
  10079.   { Object is already registered }
  10080.   CO_E_OBJISREG = HRESULT($800401FC);
  10081.   {$EXTERNALSYM CO_E_OBJISREG}
  10082.  
  10083.   { Object is not connected to server }
  10084.   CO_E_OBJNOTCONNECTED = HRESULT($800401FD);
  10085.   {$EXTERNALSYM CO_E_OBJNOTCONNECTED}
  10086.  
  10087.   { Application was launched but it didn't register a class factory }
  10088.   CO_E_APPDIDNTREG = HRESULT($800401FE);
  10089.   {$EXTERNALSYM CO_E_APPDIDNTREG}
  10090.  
  10091.   { Object has been released }
  10092.   CO_E_RELEASED = HRESULT($800401FF);
  10093.   {$EXTERNALSYM CO_E_RELEASED}
  10094.  
  10095.   { Use the registry database to provide the requested information }
  10096.   OLE_S_USEREG = $40000;
  10097.   {$EXTERNALSYM OLE_S_USEREG}
  10098.  
  10099.   { Success, but static }
  10100.   OLE_S_STATIC = $40001;
  10101.   {$EXTERNALSYM OLE_S_STATIC}
  10102.  
  10103.   { Macintosh clipboard format }
  10104.   OLE_S_MAC_CLIPFORMAT = $40002;
  10105.   {$EXTERNALSYM OLE_S_MAC_CLIPFORMAT}
  10106.  
  10107.   { Successful drop took place }
  10108.   DRAGDROP_S_DROP = $40100;
  10109.   {$EXTERNALSYM DRAGDROP_S_DROP}
  10110.  
  10111.   { Drag-drop operation canceled }
  10112.   DRAGDROP_S_CANCEL = $40101;
  10113.   {$EXTERNALSYM DRAGDROP_S_CANCEL}
  10114.  
  10115.   { Use the default cursor }
  10116.   DRAGDROP_S_USEDEFAULTCURSORS = $40102;
  10117.   {$EXTERNALSYM DRAGDROP_S_USEDEFAULTCURSORS}
  10118.  
  10119.   { Data has same FORMATETC }
  10120.   DATA_S_SAMEFORMATETC = $40130;
  10121.   {$EXTERNALSYM DATA_S_SAMEFORMATETC}
  10122.  
  10123.   { View is already frozen }
  10124.   VIEW_S_ALREADY_FROZEN = $40140;
  10125.   {$EXTERNALSYM VIEW_S_ALREADY_FROZEN}
  10126.  
  10127.   { FORMATETC not supported }
  10128.   CACHE_S_FORMATETC_NOTSUPPORTED = $40170;
  10129.   {$EXTERNALSYM CACHE_S_FORMATETC_NOTSUPPORTED}
  10130.  
  10131.   { Same cache }
  10132.   CACHE_S_SAMECACHE = $40171;
  10133.   {$EXTERNALSYM CACHE_S_SAMECACHE}
  10134.  
  10135.   { Some cache(s) not updated }
  10136.   CACHE_S_SOMECACHES_NOTUPDATED = $40172;
  10137.   {$EXTERNALSYM CACHE_S_SOMECACHES_NOTUPDATED}
  10138.  
  10139.   { Invalid verb for OLE object }
  10140.   OLEOBJ_S_INVALIDVERB = $40180;
  10141.   {$EXTERNALSYM OLEOBJ_S_INVALIDVERB}
  10142.  
  10143.   { Verb number is valid but verb cannot be done now }
  10144.   OLEOBJ_S_CANNOT_DOVERB_NOW = $40181;
  10145.   {$EXTERNALSYM OLEOBJ_S_CANNOT_DOVERB_NOW}
  10146.  
  10147.   { Invalid window handle passed }
  10148.   OLEOBJ_S_INVALIDHWND = $40182;
  10149.   {$EXTERNALSYM OLEOBJ_S_INVALIDHWND}
  10150.  
  10151.   { Message is too long; some of it had to be truncated before displaying }
  10152.   INPLACE_S_TRUNCATED = $401A0;
  10153.   {$EXTERNALSYM INPLACE_S_TRUNCATED}
  10154.  
  10155.   { Unable to convert OLESTREAM to IStorage }
  10156.   CONVERT10_S_NO_PRESENTATION = $401C0;
  10157.   {$EXTERNALSYM CONVERT10_S_NO_PRESENTATION}
  10158.  
  10159.   { Moniker reduced to itself }
  10160.   MK_S_REDUCED_TO_SELF = $401E2;
  10161.   {$EXTERNALSYM MK_S_REDUCED_TO_SELF}
  10162.  
  10163.   { Common prefix is this moniker }
  10164.   MK_S_ME = $401E4;
  10165.   {$EXTERNALSYM MK_S_ME}
  10166.  
  10167.   { Common prefix is input moniker }
  10168.   MK_S_HIM = $401E5;
  10169.   {$EXTERNALSYM MK_S_HIM}
  10170.  
  10171.   { Common prefix is both monikers }
  10172.   MK_S_US = $401E6;
  10173.   {$EXTERNALSYM MK_S_US}
  10174.  
  10175.   { Moniker is already registered in running object table }
  10176.   MK_S_MONIKERALREADYREGISTERED = $401E7;
  10177.   {$EXTERNALSYM MK_S_MONIKERALREADYREGISTERED}
  10178.  
  10179.  
  10180.   { FACILITY_WINDOWS }
  10181.   { Codes $0-$01ff are reserved for the OLE group of}
  10182.  
  10183.   { Attempt to create a class object failed }
  10184.   CO_E_CLASS_CREATE_FAILED = HRESULT($80080001);
  10185.   {$EXTERNALSYM CO_E_CLASS_CREATE_FAILED}
  10186.  
  10187.   { OLE service could not bind object }
  10188.   CO_E_SCM_ERROR = HRESULT($80080002);
  10189.   {$EXTERNALSYM CO_E_SCM_ERROR}
  10190.  
  10191.   { RPC communication failed with OLE service }
  10192.   CO_E_SCM_RPC_FAILURE = HRESULT($80080003);
  10193.   {$EXTERNALSYM CO_E_SCM_RPC_FAILURE}
  10194.  
  10195.   { Bad path to object }
  10196.   CO_E_BAD_PATH = HRESULT($80080004);
  10197.   {$EXTERNALSYM CO_E_BAD_PATH}
  10198.  
  10199.   { Server execution failed }
  10200.   CO_E_SERVER_EXEC_FAILURE = HRESULT($80080005);
  10201.   {$EXTERNALSYM CO_E_SERVER_EXEC_FAILURE}
  10202.  
  10203.   { OLE service could not communicate with the object server }
  10204.   CO_E_OBJSRV_RPC_FAILURE = HRESULT($80080006);
  10205.   {$EXTERNALSYM CO_E_OBJSRV_RPC_FAILURE}
  10206.  
  10207.   { Moniker path could not be normalized }
  10208.   MK_E_NO_NORMALIZED = HRESULT($80080007);
  10209.   {$EXTERNALSYM MK_E_NO_NORMALIZED}
  10210.  
  10211.   { Object server is stopping when OLE service contacts it }
  10212.   CO_E_SERVER_STOPPING = HRESULT($80080008);
  10213.   {$EXTERNALSYM CO_E_SERVER_STOPPING}
  10214.  
  10215.   { An invalid root block pointer was specified }
  10216.   MEM_E_INVALID_ROOT = HRESULT($80080009);
  10217.   {$EXTERNALSYM MEM_E_INVALID_ROOT}
  10218.  
  10219.   { An allocation chain contained an invalid link pointer }
  10220.   MEM_E_INVALID_LINK = HRESULT($80080010);
  10221.   {$EXTERNALSYM MEM_E_INVALID_LINK}
  10222.  
  10223.   { The requested allocation size was too large }
  10224.   MEM_E_INVALID_SIZE = HRESULT($80080011);
  10225.   {$EXTERNALSYM MEM_E_INVALID_SIZE}
  10226.  
  10227.   { Not all the requested interfaces were available }
  10228.   CO_S_NOTALLINTERFACES = $00080012;
  10229.   {$EXTERNALSYM CO_S_NOTALLINTERFACES}
  10230.  
  10231.  
  10232.   { FACILITY_DISPATCH }
  10233.  
  10234.   { Unknown interface. }
  10235.   DISP_E_UNKNOWNINTERFACE = HRESULT($80020001);
  10236.   {$EXTERNALSYM DISP_E_UNKNOWNINTERFACE}
  10237.  
  10238.   { Member not found. }
  10239.   DISP_E_MEMBERNOTFOUND = HRESULT($80020003);
  10240.   {$EXTERNALSYM DISP_E_MEMBERNOTFOUND}
  10241.  
  10242.   { Parameter not found. }
  10243.   DISP_E_PARAMNOTFOUND = HRESULT($80020004);
  10244.   {$EXTERNALSYM DISP_E_PARAMNOTFOUND}
  10245.  
  10246.   { Type mismatch. }
  10247.   DISP_E_TYPEMISMATCH = HRESULT($80020005);
  10248.   {$EXTERNALSYM DISP_E_TYPEMISMATCH}
  10249.  
  10250.   { Unknown name. }
  10251.   DISP_E_UNKNOWNNAME = HRESULT($80020006);
  10252.   {$EXTERNALSYM DISP_E_UNKNOWNNAME}
  10253.  
  10254.   { No named arguments. }
  10255.   DISP_E_NONAMEDARGS = HRESULT($80020007);
  10256.   {$EXTERNALSYM DISP_E_NONAMEDARGS}
  10257.  
  10258.   { Bad variable type. }
  10259.   DISP_E_BADVARTYPE = HRESULT($80020008);
  10260.   {$EXTERNALSYM DISP_E_BADVARTYPE}
  10261.  
  10262.   { Exception occurred. }
  10263.   DISP_E_EXCEPTION = HRESULT($80020009);
  10264.   {$EXTERNALSYM DISP_E_EXCEPTION}
  10265.  
  10266.   { Out of present range. }
  10267.   DISP_E_OVERFLOW = HRESULT($8002000A);
  10268.   {$EXTERNALSYM DISP_E_OVERFLOW}
  10269.  
  10270.   { Invalid index. }
  10271.   DISP_E_BADINDEX = HRESULT($8002000B);
  10272.   {$EXTERNALSYM DISP_E_BADINDEX}
  10273.  
  10274.   { Unknown language. }
  10275.   DISP_E_UNKNOWNLCID = HRESULT($8002000C);
  10276.   {$EXTERNALSYM DISP_E_UNKNOWNLCID}
  10277.  
  10278.   { Memory is locked. }
  10279.   DISP_E_ARRAYISLOCKED = HRESULT($8002000D);
  10280.   {$EXTERNALSYM DISP_E_ARRAYISLOCKED}
  10281.  
  10282.   { Invalid number of parameters. }
  10283.   DISP_E_BADPARAMCOUNT = HRESULT($8002000E);
  10284.   {$EXTERNALSYM DISP_E_BADPARAMCOUNT}
  10285.  
  10286.   { Parameter not optional. }
  10287.   DISP_E_PARAMNOTOPTIONAL = HRESULT($8002000F);
  10288.   {$EXTERNALSYM DISP_E_PARAMNOTOPTIONAL}
  10289.  
  10290.   { Invalid callee. }
  10291.   DISP_E_BADCALLEE = HRESULT($80020010);
  10292.   {$EXTERNALSYM DISP_E_BADCALLEE}
  10293.  
  10294.   { Does not support a collection. }
  10295.   DISP_E_NOTACOLLECTION = HRESULT($80020011);
  10296.   {$EXTERNALSYM DISP_E_NOTACOLLECTION}
  10297.  
  10298.   { Buffer too small. }
  10299.   TYPE_E_BUFFERTOOSMALL = HRESULT($80028016);
  10300.   {$EXTERNALSYM TYPE_E_BUFFERTOOSMALL}
  10301.  
  10302.   { Old format or invalid type library. }
  10303.   TYPE_E_INVDATAREAD = HRESULT($80028018);
  10304.   {$EXTERNALSYM TYPE_E_INVDATAREAD}
  10305.  
  10306.   { Old format or invalid type library. }
  10307.   TYPE_E_UNSUPFORMAT = HRESULT($80028019);
  10308.   {$EXTERNALSYM TYPE_E_UNSUPFORMAT}
  10309.  
  10310.   { Error accessing the OLE registry. }
  10311.   TYPE_E_REGISTRYACCESS = HRESULT($8002801C);
  10312.   {$EXTERNALSYM TYPE_E_REGISTRYACCESS}
  10313.  
  10314.   { Library not registered. }
  10315.   TYPE_E_LIBNOTREGISTERED = HRESULT($8002801D);
  10316.   {$EXTERNALSYM TYPE_E_LIBNOTREGISTERED}
  10317.  
  10318.   { Bound to unknown type. }
  10319.   TYPE_E_UNDEFINEDTYPE = HRESULT($80028027);
  10320.   {$EXTERNALSYM TYPE_E_UNDEFINEDTYPE}
  10321.  
  10322.   { Qualified name disallowed. }
  10323.   TYPE_E_QUALIFIEDNAMEDISALLOWED = HRESULT($80028028);
  10324.   {$EXTERNALSYM TYPE_E_QUALIFIEDNAMEDISALLOWED}
  10325.  
  10326.   { Invalid forward reference, or reference to uncompiled type. }
  10327.   TYPE_E_INVALIDSTATE = HRESULT($80028029);
  10328.   {$EXTERNALSYM TYPE_E_INVALIDSTATE}
  10329.  
  10330.   { Type mismatch. }
  10331.   TYPE_E_WRONGTYPEKIND = HRESULT($8002802A);
  10332.   {$EXTERNALSYM TYPE_E_WRONGTYPEKIND}
  10333.  
  10334.   { Element not found. }
  10335.   TYPE_E_ELEMENTNOTFOUND = HRESULT($8002802B);
  10336.   {$EXTERNALSYM TYPE_E_ELEMENTNOTFOUND}
  10337.  
  10338.   { Ambiguous name. }
  10339.   TYPE_E_AMBIGUOUSNAME = HRESULT($8002802C);
  10340.   {$EXTERNALSYM TYPE_E_AMBIGUOUSNAME}
  10341.  
  10342.   { Name already exists in the library. }
  10343.   TYPE_E_NAMECONFLICT = HRESULT($8002802D);
  10344.   {$EXTERNALSYM TYPE_E_NAMECONFLICT}
  10345.  
  10346.   { Unknown LCID. }
  10347.   TYPE_E_UNKNOWNLCID = HRESULT($8002802E);
  10348.   {$EXTERNALSYM TYPE_E_UNKNOWNLCID}
  10349.  
  10350.   { Function not defined in specified DLL. }
  10351.   TYPE_E_DLLFUNCTIONNOTFOUND = HRESULT($8002802F);
  10352.   {$EXTERNALSYM TYPE_E_DLLFUNCTIONNOTFOUND}
  10353.  
  10354.   { Wrong module kind for the operation. }
  10355.   TYPE_E_BADMODULEKIND = HRESULT($800288BD);
  10356.   {$EXTERNALSYM TYPE_E_BADMODULEKIND}
  10357.  
  10358.   { Size may not exceed 64K. }
  10359.   TYPE_E_SIZETOOBIG = HRESULT($800288C5);
  10360.   {$EXTERNALSYM TYPE_E_SIZETOOBIG}
  10361.  
  10362.   { Duplicate ID in inheritance hierarchy. }
  10363.   TYPE_E_DUPLICATEID = HRESULT($800288C6);
  10364.   {$EXTERNALSYM TYPE_E_DUPLICATEID}
  10365.  
  10366.   { Incorrect inheritance depth in standard OLE hmember. }
  10367.   TYPE_E_INVALIDID = HRESULT($800288CF);
  10368.   {$EXTERNALSYM TYPE_E_INVALIDID}
  10369.  
  10370.   { Type mismatch. }
  10371.   TYPE_E_TYPEMISMATCH = HRESULT($80028CA0);
  10372.   {$EXTERNALSYM TYPE_E_TYPEMISMATCH}
  10373.  
  10374.   { Invalid number of arguments. }
  10375.   TYPE_E_OUTOFBOUNDS = HRESULT($80028CA1);
  10376.   {$EXTERNALSYM TYPE_E_OUTOFBOUNDS}
  10377.  
  10378.   { I/O Error. }
  10379.   TYPE_E_IOERROR = HRESULT($80028CA2);
  10380.   {$EXTERNALSYM TYPE_E_IOERROR}
  10381.  
  10382.   { Error creating unique tmp file. }
  10383.   TYPE_E_CANTCREATETMPFILE = HRESULT($80028CA3);
  10384.   {$EXTERNALSYM TYPE_E_CANTCREATETMPFILE}
  10385.  
  10386.   { Error loading type library/DLL. }
  10387.   TYPE_E_CANTLOADLIBRARY = HRESULT($80029C4A);
  10388.   {$EXTERNALSYM TYPE_E_CANTLOADLIBRARY}
  10389.  
  10390.   { Inconsistent property functions. }
  10391.   TYPE_E_INCONSISTENTPROPFUNCS = HRESULT($80029C83);
  10392.   {$EXTERNALSYM TYPE_E_INCONSISTENTPROPFUNCS}
  10393.  
  10394.   { Circular dependency between types/modules. }
  10395.   TYPE_E_CIRCULARTYPE = HRESULT($80029C84);
  10396.   {$EXTERNALSYM TYPE_E_CIRCULARTYPE}
  10397.  
  10398.  
  10399.   { FACILITY_STORAGE }
  10400.  
  10401.   { Unable to perform requested operation. }
  10402.   STG_E_INVALIDFUNCTION = HRESULT($80030001);
  10403.   {$EXTERNALSYM STG_E_INVALIDFUNCTION}
  10404.  
  10405.   { %l could not be found. }
  10406.   STG_E_FILENOTFOUND = HRESULT($80030002);
  10407.   {$EXTERNALSYM STG_E_FILENOTFOUND}
  10408.  
  10409.   { The path %l could not be found. }
  10410.   STG_E_PATHNOTFOUND = HRESULT($80030003);
  10411.   {$EXTERNALSYM STG_E_PATHNOTFOUND}
  10412.  
  10413.   { There are insufficient resources to open another file. }
  10414.   STG_E_TOOMANYOPENFILES = HRESULT($80030004);
  10415.   {$EXTERNALSYM STG_E_TOOMANYOPENFILES}
  10416.  
  10417.   { Access Denied. }
  10418.   STG_E_ACCESSDENIED = HRESULT($80030005);
  10419.   {$EXTERNALSYM STG_E_ACCESSDENIED}
  10420.  
  10421.   { Attempted an operation on an invalid object. }
  10422.   STG_E_INVALIDHANDLE = HRESULT($80030006);
  10423.   {$EXTERNALSYM STG_E_INVALIDHANDLE}
  10424.  
  10425.   { There is insufficient memory available to complete operation. }
  10426.   STG_E_INSUFFICIENTMEMORY = HRESULT($80030008);
  10427.   {$EXTERNALSYM STG_E_INSUFFICIENTMEMORY}
  10428.  
  10429.   { Invalid pointer error. }
  10430.   STG_E_INVALIDPOINTER = HRESULT($80030009);
  10431.   {$EXTERNALSYM STG_E_INVALIDPOINTER}
  10432.  
  10433.   { There are no more entries to return. }
  10434.   STG_E_NOMOREFILES = HRESULT($80030012);
  10435.   {$EXTERNALSYM STG_E_NOMOREFILES}
  10436.  
  10437.   { Disk is write-protected. }
  10438.   STG_E_DISKISWRITEPROTECTED = HRESULT($80030013);
  10439.   {$EXTERNALSYM STG_E_DISKISWRITEPROTECTED}
  10440.  
  10441.   { An error occurred during a seek operation. }
  10442.   STG_E_SEEKERROR = HRESULT($80030019);
  10443.   {$EXTERNALSYM STG_E_SEEKERROR}
  10444.  
  10445.   { A disk error occurred during a write operation. }
  10446.   STG_E_WRITEFAULT = HRESULT($8003001D);
  10447.   {$EXTERNALSYM STG_E_WRITEFAULT}
  10448.  
  10449.   { A disk error occurred during a read operation. }
  10450.   STG_E_READFAULT = HRESULT($8003001E);
  10451.   {$EXTERNALSYM STG_E_READFAULT}
  10452.  
  10453.   { A share violation has occurred. }
  10454.   STG_E_SHAREVIOLATION = HRESULT($80030020);
  10455.   {$EXTERNALSYM STG_E_SHAREVIOLATION}
  10456.  
  10457.   { A lock violation has occurred. }
  10458.   STG_E_LOCKVIOLATION = HRESULT($80030021);
  10459.   {$EXTERNALSYM STG_E_LOCKVIOLATION}
  10460.  
  10461.   { %l already exists. }
  10462.   STG_E_FILEALREADYEXISTS = HRESULT($80030050);
  10463.   {$EXTERNALSYM STG_E_FILEALREADYEXISTS}
  10464.  
  10465.   { Invalid parameter error. }
  10466.   STG_E_INVALIDPARAMETER = HRESULT($80030057);
  10467.   {$EXTERNALSYM STG_E_INVALIDPARAMETER}
  10468.  
  10469.   { There is insufficient disk space to complete operation. }
  10470.   STG_E_MEDIUMFULL = HRESULT($80030070);
  10471.   {$EXTERNALSYM STG_E_MEDIUMFULL}
  10472.  
  10473.   { Illegal write of non-simple property to simple property set. }
  10474.   STG_E_PROPSETMISMATCHED = HRESULT($800300F0);
  10475.   {$EXTERNALSYM STG_E_PROPSETMISMATCHED}
  10476.  
  10477.   { An API call exited abnormally. }
  10478.   STG_E_ABNORMALAPIEXIT = HRESULT($800300FA);
  10479.   {$EXTERNALSYM STG_E_ABNORMALAPIEXIT}
  10480.  
  10481.   { The file %l is not a valid compound file. }
  10482.   STG_E_INVALIDHEADER = HRESULT($800300FB);
  10483.   {$EXTERNALSYM STG_E_INVALIDHEADER}
  10484.  
  10485.   { The name %l is not valid. }
  10486.   STG_E_INVALIDNAME = HRESULT($800300FC);
  10487.   {$EXTERNALSYM STG_E_INVALIDNAME}
  10488.  
  10489.   { An unexpected error occurred. }
  10490.   STG_E_UNKNOWN = HRESULT($800300FD);
  10491.   {$EXTERNALSYM STG_E_UNKNOWN}
  10492.  
  10493.   { That function is not implemented. }
  10494.   STG_E_UNIMPLEMENTEDFUNCTION = HRESULT($800300FE);
  10495.   {$EXTERNALSYM STG_E_UNIMPLEMENTEDFUNCTION}
  10496.  
  10497.   { Invalid flag error. }
  10498.   STG_E_INVALIDFLAG = HRESULT($800300FF);
  10499.   {$EXTERNALSYM STG_E_INVALIDFLAG}
  10500.  
  10501.   { Attempted to use an object that is busy. }
  10502.   STG_E_INUSE = HRESULT($80030100);
  10503.   {$EXTERNALSYM STG_E_INUSE}
  10504.  
  10505.   { The storage has been changed since the last commit. }
  10506.   STG_E_NOTCURRENT = HRESULT($80030101);
  10507.   {$EXTERNALSYM STG_E_NOTCURRENT}
  10508.  
  10509.   { Attempted to use an object that has ceased to exist. }
  10510.   STG_E_REVERTED = HRESULT($80030102);
  10511.   {$EXTERNALSYM STG_E_REVERTED}
  10512.  
  10513.   { Can't save. }
  10514.   STG_E_CANTSAVE = HRESULT($80030103);
  10515.   {$EXTERNALSYM STG_E_CANTSAVE}
  10516.  
  10517.   { The compound file %l was produced with an incompatible version of storage. }
  10518.   STG_E_OLDFORMAT = HRESULT($80030104);
  10519.   {$EXTERNALSYM STG_E_OLDFORMAT}
  10520.  
  10521.   { The compound file %l was produced with a newer version of storage. }
  10522.   STG_E_OLDDLL = HRESULT($80030105);
  10523.   {$EXTERNALSYM STG_E_OLDDLL}
  10524.  
  10525.   { Share.exe or equivalent is required for operation. }
  10526.   STG_E_SHAREREQUIRED = HRESULT($80030106);
  10527.   {$EXTERNALSYM STG_E_SHAREREQUIRED}
  10528.  
  10529.   { Illegal operation called on non-file based storage. }
  10530.   STG_E_NOTFILEBASEDSTORAGE = HRESULT($80030107);
  10531.   {$EXTERNALSYM STG_E_NOTFILEBASEDSTORAGE}
  10532.  
  10533.   { Illegal operation called on object with extant marshallings. }
  10534.   STG_E_EXTANTMARSHALLINGS = HRESULT($80030108);
  10535.   {$EXTERNALSYM STG_E_EXTANTMARSHALLINGS}
  10536.  
  10537.   { The docfile has been corrupted. }
  10538.   STG_E_DOCFILECORRUPT = HRESULT($80030109);
  10539.   {$EXTERNALSYM STG_E_DOCFILECORRUPT}
  10540.  
  10541.   { OLE32.DLL has been loaded at the wrong address. }
  10542.   STG_E_BADBASEADDRESS = HRESULT($80030110);
  10543.   {$EXTERNALSYM STG_E_BADBASEADDRESS}
  10544.  
  10545.   { The file download was aborted abnormally.  The file is incomplete. }
  10546.   STG_E_INCOMPLETE = HRESULT($80030201);
  10547.   {$EXTERNALSYM STG_E_INCOMPLETE}
  10548.  
  10549.   { The file download has been terminated. }
  10550.   STG_E_TERMINATED = HRESULT($80030202);
  10551.   {$EXTERNALSYM STG_E_TERMINATED}
  10552.  
  10553.   { The underlying file was converted to compound file format. }
  10554.   STG_S_CONVERTED = $00030200;
  10555.   {$EXTERNALSYM STG_S_CONVERTED}
  10556.  
  10557.   { The storage operation should block until more data is available. }
  10558.   STG_S_BLOCK = $00030201;
  10559.   {$EXTERNALSYM STG_S_BLOCK}
  10560.  
  10561.   { The storage operation should retry immediately. }
  10562.   STG_S_RETRYNOW = $00030202;
  10563.   {$EXTERNALSYM STG_S_RETRYNOW}
  10564.  
  10565.   { The notified event sink will not influence the storage operation. }
  10566.   STG_S_MONITORING = $00030203;
  10567.   {$EXTERNALSYM STG_S_MONITORING}
  10568.  
  10569.  
  10570.   { FACILITY_RPC }
  10571.  
  10572.   { Call was rejected by callee. }
  10573.   RPC_E_CALL_REJECTED = HRESULT($80010001);
  10574.   {$EXTERNALSYM RPC_E_CALL_REJECTED}
  10575.  
  10576.   { Call was canceled by the message filter. }
  10577.   RPC_E_CALL_CANCELED = HRESULT($80010002);
  10578.   {$EXTERNALSYM RPC_E_CALL_CANCELED}
  10579.  
  10580.   { The caller is dispatching an intertask SendMessage call and }
  10581.   { cannot call out via PostMessage. }
  10582.   RPC_E_CANTPOST_INSENDCALL = HRESULT($80010003);
  10583.   {$EXTERNALSYM RPC_E_CANTPOST_INSENDCALL}
  10584.  
  10585.   { The caller is dispatching an asynchronous call and cannot }
  10586.   { make an outgoing call on behalf of this call. }
  10587.   RPC_E_CANTCALLOUT_INASYNCCALL = HRESULT($80010004);
  10588.   {$EXTERNALSYM RPC_E_CANTCALLOUT_INASYNCCALL}
  10589.  
  10590.   { It is illegal to call out while inside message filter. }
  10591.   RPC_E_CANTCALLOUT_INEXTERNALCALL = HRESULT($80010005);
  10592.   {$EXTERNALSYM RPC_E_CANTCALLOUT_INEXTERNALCALL}
  10593.  
  10594.   { The connection terminated or is in a bogus state }
  10595.   { and cannot be used any more. Other connections }
  10596.   { are still valid. }
  10597.   RPC_E_CONNECTION_TERMINATED = HRESULT($80010006);
  10598.   {$EXTERNALSYM RPC_E_CONNECTION_TERMINATED}
  10599.  
  10600.   { The callee (server [not server application]) is not available }
  10601.   { and disappeared; all connections are invalid.  The call may }
  10602.   { have executed. }
  10603.   RPC_E_SERVER_DIED = HRESULT($80010007);
  10604.   {$EXTERNALSYM RPC_E_SERVER_DIED}
  10605.  
  10606.   { The caller (client) disappeared while the callee (server) was }
  10607.   { processing a call. }
  10608.   RPC_E_CLIENT_DIED = HRESULT($80010008);
  10609.   {$EXTERNALSYM RPC_E_CLIENT_DIED}
  10610.  
  10611.   { The data packet with the marshalled parameter data is incorrect. }
  10612.   RPC_E_INVALID_DATAPACKET = HRESULT($80010009);
  10613.   {$EXTERNALSYM RPC_E_INVALID_DATAPACKET}
  10614.  
  10615.   { The call was not transmitted properly; the message queue }
  10616.   { was full and was not emptied after yielding. }
  10617.   RPC_E_CANTTRANSMIT_CALL = HRESULT($8001000A);
  10618.   {$EXTERNALSYM RPC_E_CANTTRANSMIT_CALL}
  10619.  
  10620.   { The client (caller) cannot marshall the parameter data - low memory, etc. }
  10621.   RPC_E_CLIENT_CANTMARSHAL_DATA = HRESULT($8001000B);
  10622.   {$EXTERNALSYM RPC_E_CLIENT_CANTMARSHAL_DATA}
  10623.  
  10624.   { The client (caller) cannot unmarshall the return data - low memory, etc. }
  10625.   RPC_E_CLIENT_CANTUNMARSHAL_DATA = HRESULT($8001000C);
  10626.   {$EXTERNALSYM RPC_E_CLIENT_CANTUNMARSHAL_DATA}
  10627.  
  10628.   { The server (callee) cannot marshall the return data - low memory, etc. }
  10629.   RPC_E_SERVER_CANTMARSHAL_DATA = HRESULT($8001000D);
  10630.   {$EXTERNALSYM RPC_E_SERVER_CANTMARSHAL_DATA}
  10631.  
  10632.   { The server (callee) cannot unmarshall the parameter data - low memory, etc. }
  10633.   RPC_E_SERVER_CANTUNMARSHAL_DATA = HRESULT($8001000E);
  10634.   {$EXTERNALSYM RPC_E_SERVER_CANTUNMARSHAL_DATA}
  10635.  
  10636.   { Received data is invalid; could be server or client data. }
  10637.   RPC_E_INVALID_DATA = HRESULT($8001000F);
  10638.   {$EXTERNALSYM RPC_E_INVALID_DATA}
  10639.  
  10640.   { A particular parameter is invalid and cannot be (un)marshalled. }
  10641.   RPC_E_INVALID_PARAMETER = HRESULT($80010010);
  10642.   {$EXTERNALSYM RPC_E_INVALID_PARAMETER}
  10643.  
  10644.   { There is no second outgoing call on same channel in DDE conversation. }
  10645.   RPC_E_CANTCALLOUT_AGAIN = HRESULT($80010011);
  10646.   {$EXTERNALSYM RPC_E_CANTCALLOUT_AGAIN}
  10647.  
  10648.   { The callee (server [not server application]) is not available }
  10649.   { and disappeared; all connections are invalid.  The call did not execute. }
  10650.   RPC_E_SERVER_DIED_DNE = HRESULT($80010012);
  10651.   {$EXTERNALSYM RPC_E_SERVER_DIED_DNE}
  10652.  
  10653.   { System call failed. }
  10654.   RPC_E_SYS_CALL_FAILED = HRESULT($80010100);
  10655.   {$EXTERNALSYM RPC_E_SYS_CALL_FAILED}
  10656.  
  10657.   { Could not allocate some required resource (memory, events, ...) }
  10658.   RPC_E_OUT_OF_RESOURCES = HRESULT($80010101);
  10659.   {$EXTERNALSYM RPC_E_OUT_OF_RESOURCES}
  10660.  
  10661.   { Attempted to make calls on more than one thread in single threaded mode. }
  10662.   RPC_E_ATTEMPTED_MULTITHREAD = HRESULT($80010102);
  10663.   {$EXTERNALSYM RPC_E_ATTEMPTED_MULTITHREAD}
  10664.  
  10665.   { The requested interface is not registered on the server object. }
  10666.   RPC_E_NOT_REGISTERED = HRESULT($80010103);
  10667.   {$EXTERNALSYM RPC_E_NOT_REGISTERED}
  10668.  
  10669.   { RPC could not call the server or could not return the results of calling the server. }
  10670.   RPC_E_FAULT = HRESULT($80010104);
  10671.   {$EXTERNALSYM RPC_E_FAULT}
  10672.  
  10673.   { The server threw an exception. }
  10674.   RPC_E_SERVERFAULT = HRESULT($80010105);
  10675.   {$EXTERNALSYM RPC_E_SERVERFAULT}
  10676.  
  10677.   { Cannot change thread mode after it is set. }
  10678.   RPC_E_CHANGED_MODE = HRESULT($80010106);
  10679.   {$EXTERNALSYM RPC_E_CHANGED_MODE}
  10680.  
  10681.   { The method called does not exist on the server. }
  10682.   RPC_E_INVALIDMETHOD = HRESULT($80010107);
  10683.   {$EXTERNALSYM RPC_E_INVALIDMETHOD}
  10684.  
  10685.   { The object invoked has disconnected from its clients. }
  10686.   RPC_E_DISCONNECTED = HRESULT($80010108);
  10687.   {$EXTERNALSYM RPC_E_DISCONNECTED}
  10688.  
  10689.   { The object invoked chose not to process the call now.  Try again later. }
  10690.   RPC_E_RETRY = HRESULT($80010109);
  10691.   {$EXTERNALSYM RPC_E_RETRY}
  10692.  
  10693.   { The message filter indicated that the application is busy. }
  10694.   RPC_E_SERVERCALL_RETRYLATER = HRESULT($8001010A);
  10695.   {$EXTERNALSYM RPC_E_SERVERCALL_RETRYLATER}
  10696.  
  10697.   { The message filter rejected the call. }
  10698.   RPC_E_SERVERCALL_REJECTED = HRESULT($8001010B);
  10699.   {$EXTERNALSYM RPC_E_SERVERCALL_REJECTED}
  10700.  
  10701.   { A call control interfaces was called with invalid data. }
  10702.   RPC_E_INVALID_CALLDATA = HRESULT($8001010C);
  10703.   {$EXTERNALSYM RPC_E_INVALID_CALLDATA}
  10704.  
  10705.   { An outgoing call cannot be made since the application is dispatching an input-synchronous call. }
  10706.   RPC_E_CANTCALLOUT_ININPUTSYNCCALL = HRESULT($8001010D);
  10707.   {$EXTERNALSYM RPC_E_CANTCALLOUT_ININPUTSYNCCALL}
  10708.  
  10709.   { The application called an interface that was marshalled for a different thread. }
  10710.   RPC_E_WRONG_THREAD = HRESULT($8001010E);
  10711.   {$EXTERNALSYM RPC_E_WRONG_THREAD}
  10712.  
  10713.   { CoInitialize has not been called on the current thread. }
  10714.   RPC_E_THREAD_NOT_INIT = HRESULT($8001010F);
  10715.   {$EXTERNALSYM RPC_E_THREAD_NOT_INIT}
  10716.  
  10717.   { The version of OLE on the client and server machines does not match. }
  10718.   RPC_E_VERSION_MISMATCH = HRESULT($80010110);
  10719.   {$EXTERNALSYM RPC_E_VERSION_MISMATCH}
  10720.  
  10721.   { OLE received a packet with an invalid header. }
  10722.   RPC_E_INVALID_HEADER = HRESULT($80010111);
  10723.   {$EXTERNALSYM RPC_E_INVALID_HEADER}
  10724.  
  10725.   { OLE received a packet with an invalid extension. }
  10726.   RPC_E_INVALID_EXTENSION = HRESULT($80010112);
  10727.   {$EXTERNALSYM RPC_E_INVALID_EXTENSION}
  10728.  
  10729.   { The requested object or interface does not exist. }
  10730.   RPC_E_INVALID_IPID = HRESULT($80010113);
  10731.   {$EXTERNALSYM RPC_E_INVALID_IPID}
  10732.  
  10733.   { The requested object does not exist. }
  10734.   RPC_E_INVALID_OBJECT = HRESULT($80010114);
  10735.   {$EXTERNALSYM RPC_E_INVALID_OBJECT}
  10736.  
  10737.   { OLE has sent a request and is waiting for a reply. }
  10738.   RPC_S_CALLPENDING = HRESULT($80010115);
  10739.   {$EXTERNALSYM RPC_S_CALLPENDING}
  10740.  
  10741.   { OLE is waiting before retrying a request. }
  10742.   RPC_S_WAITONTIMER = HRESULT($80010116);
  10743.   {$EXTERNALSYM RPC_S_WAITONTIMER}
  10744.  
  10745.   { Call context cannot be accessed after call completed. }
  10746.   RPC_E_CALL_COMPLETE = HRESULT($80010117);
  10747.   {$EXTERNALSYM RPC_E_CALL_COMPLETE}
  10748.  
  10749.   { Impersonate on unsecure calls is not supported. }
  10750.   RPC_E_UNSECURE_CALL = HRESULT($80010118);
  10751.   {$EXTERNALSYM RPC_E_UNSECURE_CALL}
  10752.  
  10753.   { Security must be initialized before any interfaces are marshalled or }
  10754.   RPC_E_TOO_LATE = HRESULT($80010119);
  10755.   {$EXTERNALSYM RPC_E_TOO_LATE}
  10756.  
  10757.   { No security packages are installed on this machine or the user is not logged }
  10758.   RPC_E_NO_GOOD_SECURITY_PACKAGES = HRESULT($8001011A);
  10759.   {$EXTERNALSYM RPC_E_NO_GOOD_SECURITY_PACKAGES}
  10760.  
  10761.   { Access is denied. }
  10762.   RPC_E_ACCESS_DENIED = HRESULT($8001011B);
  10763.   {$EXTERNALSYM RPC_E_ACCESS_DENIED}
  10764.  
  10765.   { Remote calls are not allowed for this process. }
  10766.   RPC_E_REMOTE_DISABLED = HRESULT($8001011C);
  10767.   {$EXTERNALSYM RPC_E_REMOTE_DISABLED}
  10768.  
  10769.   { The marshaled interface data packet (OBJREF) has an invalid or unknown format. }
  10770.   RPC_E_INVALID_OBJREF = HRESULT($8001011D);
  10771.   {$EXTERNALSYM RPC_E_INVALID_OBJREF}
  10772.  
  10773.   { An internal error occurred. }
  10774.   RPC_E_UNEXPECTED = HRESULT($8001FFFF);
  10775.   {$EXTERNALSYM RPC_E_UNEXPECTED}
  10776.  
  10777.  
  10778. { FACILITY_SSPI }
  10779.  
  10780.   { Bad UID. }
  10781.   NTE_BAD_UID = HRESULT($80090001);
  10782.   {$EXTERNALSYM NTE_BAD_UID}
  10783.  
  10784.   { Bad Hash. }
  10785.   NTE_BAD_HASH = HRESULT($80090002);
  10786.   {$EXTERNALSYM NTE_BAD_HASH}
  10787.  
  10788.   { Bad Key. }
  10789.   NTE_BAD_KEY = HRESULT($80090003);
  10790.   {$EXTERNALSYM NTE_BAD_KEY}
  10791.  
  10792.   { Bad Length. }
  10793.   NTE_BAD_LEN = HRESULT($80090004);
  10794.   {$EXTERNALSYM NTE_BAD_LEN}
  10795.  
  10796.   { Bad Data. }
  10797.   NTE_BAD_DATA = HRESULT($80090005);
  10798.   {$EXTERNALSYM NTE_BAD_DATA}
  10799.  
  10800.   { Invalid Signature. }
  10801.   NTE_BAD_SIGNATURE = HRESULT($80090006);
  10802.   {$EXTERNALSYM NTE_BAD_SIGNATURE}
  10803.  
  10804.   { Bad Version of provider. }
  10805.   NTE_BAD_VER = HRESULT($80090007);
  10806.   {$EXTERNALSYM NTE_BAD_VER}
  10807.  
  10808.   { Invalid algorithm specified. }
  10809.   NTE_BAD_ALGID = HRESULT($80090008);
  10810.   {$EXTERNALSYM NTE_BAD_ALGID}
  10811.  
  10812.   { Invalid flags specified. }
  10813.   NTE_BAD_FLAGS = HRESULT($80090009);
  10814.   {$EXTERNALSYM NTE_BAD_FLAGS}
  10815.  
  10816.   { Invalid type specified. }
  10817.   NTE_BAD_TYPE = HRESULT($8009000A);
  10818.   {$EXTERNALSYM NTE_BAD_TYPE}
  10819.  
  10820.   { Key not valid for use in specified state. }
  10821.   NTE_BAD_KEY_STATE = HRESULT($8009000B);
  10822.   {$EXTERNALSYM NTE_BAD_KEY_STATE}
  10823.  
  10824.   { Hash not valid for use in specified state. }
  10825.   NTE_BAD_HASH_STATE = HRESULT($8009000C);
  10826.   {$EXTERNALSYM NTE_BAD_HASH_STATE}
  10827.  
  10828.   { Key does not exist. }
  10829.   NTE_NO_KEY = HRESULT($8009000D);
  10830.   {$EXTERNALSYM NTE_NO_KEY}
  10831.  
  10832.   { Insufficient memory available for the operation. }
  10833.   NTE_NO_MEMORY = HRESULT($8009000E);
  10834.   {$EXTERNALSYM NTE_NO_MEMORY}
  10835.  
  10836.   { Object already exists. }
  10837.   NTE_EXISTS = HRESULT($8009000F);
  10838.   {$EXTERNALSYM NTE_EXISTS}
  10839.  
  10840.   { Access denied. }
  10841.   NTE_PERM = HRESULT($80090010);
  10842.   {$EXTERNALSYM NTE_PERM}
  10843.  
  10844.   { Object was not found. }
  10845.   NTE_NOT_FOUND = HRESULT($80090011);
  10846.   {$EXTERNALSYM NTE_NOT_FOUND}
  10847.  
  10848.   { Data already encrypted. }
  10849.   NTE_DOUBLE_ENCRYPT = HRESULT($80090012);
  10850.   {$EXTERNALSYM NTE_DOUBLE_ENCRYPT}
  10851.  
  10852.   { Invalid provider specified. }
  10853.   NTE_BAD_PROVIDER = HRESULT($80090013);
  10854.   {$EXTERNALSYM NTE_BAD_PROVIDER}
  10855.  
  10856.   { Invalid provider type specified. }
  10857.   NTE_BAD_PROV_TYPE = HRESULT($80090014);
  10858.   {$EXTERNALSYM NTE_BAD_PROV_TYPE}
  10859.  
  10860.   { Provider's public key is invalid. }
  10861.   NTE_BAD_PUBLIC_KEY = HRESULT($80090015);
  10862.   {$EXTERNALSYM NTE_BAD_PUBLIC_KEY}
  10863.  
  10864.   { Keyset does not exist }
  10865.   NTE_BAD_KEYSET = HRESULT($80090016);
  10866.   {$EXTERNALSYM NTE_BAD_KEYSET}
  10867.  
  10868.   { Provider type not defined. }
  10869.   NTE_PROV_TYPE_NOT_DEF = HRESULT($80090017);
  10870.   {$EXTERNALSYM NTE_PROV_TYPE_NOT_DEF}
  10871.  
  10872.   { Provider type as registered is invalid. }
  10873.   NTE_PROV_TYPE_ENTRY_BAD = HRESULT($80090018);
  10874.   {$EXTERNALSYM NTE_PROV_TYPE_ENTRY_BAD}
  10875.  
  10876.   { The keyset is not defined. }
  10877.   NTE_KEYSET_NOT_DEF = HRESULT($80090019);
  10878.   {$EXTERNALSYM NTE_KEYSET_NOT_DEF}
  10879.  
  10880.   { Keyset as registered is invalid. }
  10881.   NTE_KEYSET_ENTRY_BAD = HRESULT($8009001A);
  10882.   {$EXTERNALSYM NTE_KEYSET_ENTRY_BAD}
  10883.  
  10884.   { Provider type does not match registered value. }
  10885.   NTE_PROV_TYPE_NO_MATCH = HRESULT($8009001B);
  10886.   {$EXTERNALSYM NTE_PROV_TYPE_NO_MATCH}
  10887.  
  10888.   { The digital signature file is corrupt. }
  10889.   NTE_SIGNATURE_FILE_BAD = HRESULT($8009001C);
  10890.   {$EXTERNALSYM NTE_SIGNATURE_FILE_BAD}
  10891.  
  10892.   { Provider DLL failed to initialize correctly. }
  10893.   NTE_PROVIDER_DLL_FAIL = HRESULT($8009001D);
  10894.   {$EXTERNALSYM NTE_PROVIDER_DLL_FAIL}
  10895.  
  10896.   { Provider DLL could not be found. }
  10897.   NTE_PROV_DLL_NOT_FOUND = HRESULT($8009001E);
  10898.   {$EXTERNALSYM NTE_PROV_DLL_NOT_FOUND}
  10899.  
  10900.   { The Keyset parameter is invalid. }
  10901.   NTE_BAD_KEYSET_PARAM = HRESULT($8009001F);
  10902.   {$EXTERNALSYM NTE_BAD_KEYSET_PARAM}
  10903.  
  10904.   { An internal error occurred. }
  10905.   NTE_FAIL = HRESULT($80090020);
  10906.   {$EXTERNALSYM NTE_FAIL}
  10907.  
  10908.   { A base error occurred. }
  10909.   NTE_SYS_ERR = HRESULT($80090021);
  10910.   {$EXTERNALSYM NTE_SYS_ERR}
  10911.  
  10912.   NTE_OP_OK = 0;
  10913.   {$EXTERNALSYM NTE_OP_OK}
  10914.  
  10915. { FACILITY_CERT }
  10916.  
  10917.   { The specified trust provider is not known on this system. }
  10918.   TRUST_E_PROVIDER_UNKNOWN = HRESULT($800B0001);
  10919.   {$EXTERNALSYM TRUST_E_PROVIDER_UNKNOWN}
  10920.  
  10921.   { The trust verification action specified is not supported by the specified trust provider. }
  10922.   TRUST_E_ACTION_UNKNOWN = HRESULT($800B0002);
  10923.   {$EXTERNALSYM TRUST_E_ACTION_UNKNOWN}
  10924.  
  10925.   { The form specified for the subject is not one supported or known by the specified trust provider. }
  10926.   TRUST_E_SUBJECT_FORM_UNKNOWN = HRESULT($800B0003);
  10927.   {$EXTERNALSYM TRUST_E_SUBJECT_FORM_UNKNOWN}
  10928.  
  10929.   { The subject is not trusted for the specified action. }
  10930.   TRUST_E_SUBJECT_NOT_TRUSTED = HRESULT($800B0004);
  10931.   {$EXTERNALSYM TRUST_E_SUBJECT_NOT_TRUSTED}
  10932.  
  10933.   { Error due to problem in ASN.1 encoding process. }
  10934.   DIGSIG_E_ENCODE = HRESULT($800B0005);
  10935.   {$EXTERNALSYM DIGSIG_E_ENCODE}
  10936.  
  10937.   { Error due to problem in ASN.1 decoding process. }
  10938.   DIGSIG_E_DECODE = HRESULT($800B0006);
  10939.   {$EXTERNALSYM DIGSIG_E_DECODE}
  10940.  
  10941.   { Reading / writing Extensions where Attributes are appropriate, and visa versa. }
  10942.   DIGSIG_E_EXTENSIBILITY = HRESULT($800B0007);
  10943.   {$EXTERNALSYM DIGSIG_E_EXTENSIBILITY}
  10944.  
  10945.   { Unspecified cryptographic failure. }
  10946.   DIGSIG_E_CRYPTO = HRESULT($800B0008);
  10947.   {$EXTERNALSYM DIGSIG_E_CRYPTO}
  10948.  
  10949.   { The size of the data could not be determined. }
  10950.   PERSIST_E_SIZEDEFINITE = HRESULT($800B0009);
  10951.   {$EXTERNALSYM PERSIST_E_SIZEDEFINITE}
  10952.  
  10953.   { The size of the indefinite-sized data could not be determined. }
  10954.   PERSIST_E_SIZEINDEFINITE = HRESULT($800B000A);
  10955.   {$EXTERNALSYM PERSIST_E_SIZEINDEFINITE}
  10956.  
  10957.   { This object does not read and write self-sizing data. }
  10958.   PERSIST_E_NOTSELFSIZING = HRESULT($800B000B);
  10959.   {$EXTERNALSYM PERSIST_E_NOTSELFSIZING}
  10960.  
  10961.   { No signature was present in the subject. }
  10962.   TRUST_E_NOSIGNATURE = HRESULT($800B0100);
  10963.   {$EXTERNALSYM TRUST_E_NOSIGNATURE}
  10964.  
  10965.   { A required certificate is not within its validity period. }
  10966.   CERT_E_EXPIRED = HRESULT($800B0101);
  10967.   {$EXTERNALSYM CERT_E_EXPIRED}
  10968.  
  10969.   { The validity periods of the certification chain do not nest correctly. }
  10970.   CERT_E_VALIDIYPERIODNESTING = HRESULT($800B0102);
  10971.   {$EXTERNALSYM CERT_E_VALIDIYPERIODNESTING}
  10972.  
  10973.   { A certificate that can only be used as an end-entity is being used as a CA or visa versa. }
  10974.   CERT_E_ROLE = HRESULT($800B0103);
  10975.   {$EXTERNALSYM CERT_E_ROLE}
  10976.  
  10977.   { A path length constraint in the certification chain has been violated. }
  10978.   CERT_E_PATHLENCONST = HRESULT($800B0104);
  10979.   {$EXTERNALSYM CERT_E_PATHLENCONST}
  10980.  
  10981.   { An extension of unknown type that is labeled 'critical' is present in a certificate. }
  10982.   CERT_E_CRITICAL = HRESULT($800B0105);
  10983.   {$EXTERNALSYM CERT_E_CRITICAL}
  10984.  
  10985.   { A certificate is being used for a purpose other than that for which it is permitted. }
  10986.   CERT_E_PURPOSE = HRESULT($800B0106);
  10987.   {$EXTERNALSYM CERT_E_PURPOSE}
  10988.  
  10989.   { A parent of a given certificate in fact did not issue that child certificate. }
  10990.   CERT_E_ISSUERCHAINING = HRESULT($800B0107);
  10991.   {$EXTERNALSYM CERT_E_ISSUERCHAINING}
  10992.  
  10993.   { A certificate is missing or has an empty value for an important field, such as a subject or issuer name. }
  10994.   CERT_E_MALFORMED = HRESULT($800B0108);
  10995.   {$EXTERNALSYM CERT_E_MALFORMED}
  10996.  
  10997.   { A certification chain processed correctly, but terminated in a root certificate which isn't trusted by the trust provider. }
  10998.   CERT_E_UNTRUSTEDROOT = HRESULT($800B0109);
  10999.   {$EXTERNALSYM CERT_E_UNTRUSTEDROOT}
  11000.  
  11001.   { A chain of certs didn't chain as they should in a certain application of chaining. }
  11002.   CERT_E_CHAINING = HRESULT($800B010A);
  11003.   {$EXTERNALSYM CERT_E_CHAINING}
  11004.  
  11005. { End WINERROR.H }
  11006.  
  11007.  
  11008.   { Abnormal termination codes }
  11009.  
  11010.   TC_NORMAL = 0;
  11011.   {$EXTERNALSYM TC_NORMAL}
  11012.   TC_HARDERR = 1;
  11013.   {$EXTERNALSYM TC_HARDERR}
  11014.   TC_GP_TRAP = 2;
  11015.   {$EXTERNALSYM TC_GP_TRAP}
  11016.   TC_SIGNAL = 3;
  11017.   {$EXTERNALSYM TC_SIGNAL}
  11018.  
  11019.   { Power Management APIs }
  11020.  
  11021.   AC_LINE_OFFLINE = 0;
  11022.   {$EXTERNALSYM AC_LINE_OFFLINE}
  11023.   AC_LINE_ONLINE = 1;
  11024.   {$EXTERNALSYM AC_LINE_ONLINE}
  11025.   AC_LINE_BACKUP_POWER = 2;
  11026.   {$EXTERNALSYM AC_LINE_BACKUP_POWER}
  11027.   AC_LINE_UNKNOWN = 255;
  11028.   {$EXTERNALSYM AC_LINE_UNKNOWN}
  11029.  
  11030.   BATTERY_FLAG_HIGH = 1;
  11031.   {$EXTERNALSYM BATTERY_FLAG_HIGH}
  11032.   BATTERY_FLAG_LOW = 2;
  11033.   {$EXTERNALSYM BATTERY_FLAG_LOW}
  11034.   BATTERY_FLAG_CRITICAL = 4;
  11035.   {$EXTERNALSYM BATTERY_FLAG_CRITICAL}
  11036.   BATTERY_FLAG_CHARGING = 8;
  11037.   {$EXTERNALSYM BATTERY_FLAG_CHARGING}
  11038.   BATTERY_FLAG_NO_BATTERY = $80;
  11039.   {$EXTERNALSYM BATTERY_FLAG_NO_BATTERY}
  11040.   BATTERY_FLAG_UNKNOWN = 255;
  11041.   {$EXTERNALSYM BATTERY_FLAG_UNKNOWN}
  11042.   BATTERY_PERCENTAGE_UNKNOWN = 255;
  11043.   {$EXTERNALSYM BATTERY_PERCENTAGE_UNKNOWN}
  11044.   BATTERY_LIFE_UNKNOWN = DWORD($FFFFFFFF);
  11045.   {$EXTERNALSYM BATTERY_LIFE_UNKNOWN}
  11046.  
  11047. type
  11048.   PSystemPowerStatus = ^TSystemPowerStatus;
  11049.   _SYSTEM_POWER_STATUS = packed record
  11050.     ACLineStatus : Byte;
  11051.     BatteryFlag : Byte;
  11052.     BatteryLifePercent : Byte;
  11053.     Reserved1 : Byte;
  11054.     BatteryLifeTime : DWORD;
  11055.     BatteryFullLifeTime : DWORD;
  11056.   end;
  11057.   {$EXTERNALSYM _SYSTEM_POWER_STATUS}
  11058.   TSystemPowerStatus = _SYSTEM_POWER_STATUS;
  11059.   SYSTEM_POWER_STATUS = _SYSTEM_POWER_STATUS;
  11060.   {$EXTERNALSYM SYSTEM_POWER_STATUS}
  11061.  
  11062. function GetSystemPowerStatus(var lpSystemPowerStatus: TSystemPowerStatus): BOOL; stdcall;
  11063. {$EXTERNALSYM GetSystemPowerStatus}
  11064. function SetSystemPowerState(fSuspend, fForce: BOOL): BOOL; stdcall;
  11065. {$EXTERNALSYM SetSystemPowerState}
  11066.  
  11067.  
  11068. { Win Certificate API and Structures }
  11069.  
  11070. { Structures }
  11071. type
  11072.   PWinCertificate = ^TWinCertificate;
  11073.   _WIN_CERTIFICATE = packed record
  11074.     dwLength: DWORD;
  11075.     wRevision: Word;
  11076.     wCertificateType: Word;         { WIN_CERT_TYPE_xxx }
  11077.     bCertificate: packed array[0..0] of Byte;
  11078.   end;
  11079.   {$EXTERNALSYM _WIN_CERTIFICATE}
  11080.   TWinCertificate = _WIN_CERTIFICATE;
  11081.   WIN_CERTIFICATE = _WIN_CERTIFICATE;
  11082.   {$EXTERNALSYM WIN_CERTIFICATE}
  11083.  
  11084. { Currently, the only defined certificate revision is WIN_CERT_REVISION_1_0 }
  11085.  
  11086. const
  11087.   {$EXTERNALSYM WIN_CERT_REVISION_1_0}
  11088.   WIN_CERT_REVISION_1_0 = $0100;
  11089.  
  11090. { Possible certificate types are specified by the following values }
  11091.  
  11092.   {$EXTERNALSYM WIN_CERT_TYPE_X509}
  11093.   WIN_CERT_TYPE_X509 = $0001;                        { bCertificate contains an X.509 Certificate }
  11094.   {$EXTERNALSYM WIN_CERT_TYPE_PKCS_SIGNED_DATA}
  11095.   WIN_CERT_TYPE_PKCS_SIGNED_DATA = $0002;            { bCertificate contains a PKCS SignedData structure }
  11096.   {$EXTERNALSYM WIN_CERT_TYPE_RESERVED_1}
  11097.   WIN_CERT_TYPE_RESERVED_1 = $0003;                  { Reserved }
  11098.  
  11099. { API }
  11100.  
  11101. {$EXTERNALSYM WinSubmitCertificate}
  11102. function WinSubmitCertificate(var lpCertificate: TWinCertificate): BOOL; stdcall;
  11103.  
  11104. { Trust API and Structures }
  11105.  
  11106. {$EXTERNALSYM WinVerifyTrust}
  11107. function WinVerifyTrust(hwnd: HWND; const ActionID: TGUID; ActionData: Pointer): Longint; stdcall;
  11108. {$EXTERNALSYM WinLoadTrustProvider}
  11109. function WinLoadTrustProvider(ActionID: PGUID): BOOL; stdcall;
  11110.  
  11111. { Common Trust API Data Structures }
  11112.  
  11113. { Data type commonly used in ActionData structures }
  11114.  
  11115. type
  11116.   TWinTrustSubject = Pointer;
  11117.  
  11118. { Two commonly used ActionData structures }
  11119.  
  11120.   PWinTrustActdataContextWithSubject = ^TWinTrustActdataContextWithSubject;
  11121.   {$EXTERNALSYM _WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT}
  11122.   _WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT = record
  11123.     hClientToken: THandle;
  11124.     SubjectType: PGUID;
  11125.     Subject: TWinTrustSubject;
  11126.   end;
  11127.   TWinTrustActdataContextWithSubject = _WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT;
  11128.   {$EXTERNALSYM WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT}
  11129.   WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT = _WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT;
  11130.  
  11131.  
  11132.   PWinTrustActdataSubjectOnly = ^TWinTrustActdataSubjectOnly;
  11133.   {$EXTERNALSYM _WIN_TRUST_ACTDATA_SUBJECT_ONLY}
  11134.   _WIN_TRUST_ACTDATA_SUBJECT_ONLY = record
  11135.     SubjectType: PGUID;
  11136.     Subject: TWinTrustSubject;
  11137.   end;
  11138.   TWinTrustActdataSubjectOnly = _WIN_TRUST_ACTDATA_SUBJECT_ONLY;
  11139.   {$EXTERNALSYM WIN_TRUST_ACTDATA_SUBJECT_ONLY}
  11140.   WIN_TRUST_ACTDATA_SUBJECT_ONLY = _WIN_TRUST_ACTDATA_SUBJECT_ONLY;
  11141.  
  11142.  
  11143. { SUBJECT FORM DEFINITIONS }
  11144.  
  11145. { Currently defined Subject Type Identifiers.  All of the below
  11146.   use the WIN_TRUST_SUBJECT_FILE subject form, defined below. }
  11147.  
  11148. const
  11149. { RawFile = 959dc450-8d9e-11cf-8736-00aa00a485eb }
  11150.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_RAW_FILE}
  11151.   WIN_TRUST_SUBJTYPE_RAW_FILE: TGUID =
  11152.     '{959dc450-8d9e-11cf-8736-00aa00a485eb}';
  11153.  
  11154. { PeImage = 43c9a1e0-8da0-11cf-8736-00aa00a485eb }
  11155.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_PE_IMAGE}
  11156.   WIN_TRUST_SUBJTYPE_PE_IMAGE: TGUID =
  11157.     '{43c9a1e0-8da0-11cf-8736-00aa00a485eb}';
  11158.  
  11159. { JavaClass = 08ad3990-8da1-11cf-8736-00aa00a485eb }
  11160.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_JAVA_CLASS}
  11161.   WIN_TRUST_SUBJTYPE_JAVA_CLASS: TGUID =
  11162.     '{08ad3990-8da1-11cf-8736-00aa00a485eb}';
  11163.  
  11164. { Cabinet = d17c5374-a392-11cf-9df5-00aa00c184e0 }
  11165.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_CABINET}
  11166.   WIN_TRUST_SUBJTYPE_CABINET: TGUID =
  11167.     '{d17c5374-a392-11cf-9df5-00aa00c184e0}';
  11168.  
  11169. { Associated Subject Data Structure: }
  11170.  
  11171.  
  11172. type
  11173.   PWinTrustSubjectFile = ^TWinTrustSubjectFile;
  11174.   {$EXTERNALSYM _WIN_TRUST_SUBJECT_FILE}
  11175.   _WIN_TRUST_SUBJECT_FILE = record
  11176.     hFile: THandle;
  11177.     lpPath: PWideChar;
  11178.   end;
  11179.   TWinTrustSubjectFile = _WIN_TRUST_SUBJECT_FILE;
  11180.   {$EXTERNALSYM WIN_TRUST_SUBJECT_FILE}
  11181.   WIN_TRUST_SUBJECT_FILE = _WIN_TRUST_SUBJECT_FILE;
  11182.  
  11183. { The following subject types use the
  11184.   WIN_TRUST_SUBJECT_FILE_AND_DISPLAY subject type, defined
  11185.   below. }
  11186.  
  11187. const
  11188.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_RAW_FILEEX}
  11189.   WIN_TRUST_SUBJTYPE_RAW_FILEEX: TGUID = (
  11190.           D1:$6f458110; D2:$c2f1; D3:$11cf; D4:($8a, $69, $0, $aa, $0, $6c, $37, $6 ));
  11191.  
  11192.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_PE_IMAGEEX}
  11193.   WIN_TRUST_SUBJTYPE_PE_IMAGEEX: TGUID = (
  11194.           D1:$6f458111; D2:$c2f1; D3:$11cf; D4:($8a, $69, $0, $aa, $0, $6c, $37, $6 ));
  11195.  
  11196.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_JAVA_CLASSEX}
  11197.   WIN_TRUST_SUBJTYPE_JAVA_CLASSEX: TGUID = (
  11198.           D1:$6f458113; D2:$c2f1; D3:$11cf; D4:($8a, $69, $0, $aa, $0, $6c, $37, $6 ));
  11199.  
  11200.   {$EXTERNALSYM WIN_TRUST_SUBJTYPE_CABINETEX}
  11201.   WIN_TRUST_SUBJTYPE_CABINETEX: TGUID = (
  11202.           D1:$6f458114; D2:$c2f1; D3:$11cf; D4:($8a, $69, $0, $aa, $0, $6c, $37, $6 ));
  11203.  
  11204.  
  11205. { Associated Subject Data Structure: }
  11206.  
  11207. type
  11208.   PWinTrustSubjectFileAndDisplay = ^TWinTrustSubjectFileAndDisplay;
  11209.   {$EXTERNALSYM _WIN_TRUST_SUBJECT_FILE_AND_DISPLAY}
  11210.   _WIN_TRUST_SUBJECT_FILE_AND_DISPLAY = record
  11211.     hFile: THandle;              { handle to the open file if you got it }
  11212.     lpPath: PWideString;         { the path to open if you don't }
  11213.     lpDisplayName: PWideString;  { (optional) display name to show to user }
  11214.                                  {      in place of path }
  11215.   end;
  11216.   TWinTrustSubjectFileAndDisplay = _WIN_TRUST_SUBJECT_FILE_AND_DISPLAY;
  11217.   {$EXTERNALSYM WIN_TRUST_SUBJECT_FILE_AND_DISPLAY}
  11218.   WIN_TRUST_SUBJECT_FILE_AND_DISPLAY = _WIN_TRUST_SUBJECT_FILE_AND_DISPLAY;
  11219.  
  11220. { Other subject types: }
  11221.  
  11222. const
  11223. { OleStorage == c257e740-8da0-11cf-8736-00aa00a485eb }
  11224. {$EXTERNALSYM WIN_TRUST_SUBJTYPE_OLE_STORAGE}
  11225. WIN_TRUST_SUBJTYPE_OLE_STORAGE: TGUID = (
  11226.           D1:$c257e740; D2:$8da0; D3:$11cf; D4:($87, $36, $00, $aa, $00, $a4, $85, $eb));
  11227.  
  11228.  
  11229. { TRUST PROVIDER SPECIFIC DEFINITIONS
  11230.  
  11231.       Each trust provider will have the following
  11232.       sections defined:
  11233.  
  11234.       Actions - What actions are supported by the trust
  11235.           provider.
  11236.       SubjectForms - Subjects that may be evaluated by this
  11237.           trust provider.
  11238.                      and
  11239.       Data structures to support the subject forms. }
  11240.  
  11241.  
  11242. { Software Publisher Trust Provider }
  11243.  
  11244. { Actions: }
  11245.  
  11246. { TrustedPublisher == 66426730-8da1-11cf-8736-00aa00a485eb }
  11247.   {$EXTERNALSYM WIN_SPUB_ACTION_TRUSTED_PUBLISHER}
  11248.   WIN_SPUB_ACTION_TRUSTED_PUBLISHER: TGUID = (
  11249.           D1:$66426730; D2:$8da1; D3:$11cf; D4:($87, $36, $00, $aa, $00, $a4, $85, $eb));
  11250.  
  11251. { NtActivateImage == 8bc96b00-8da1-11cf-8736-00aa00a485eb }
  11252.   {$EXTERNALSYM WIN_SPUB_ACTION_NT_ACTIVATE_IMAGE}
  11253.   WIN_SPUB_ACTION_NT_ACTIVATE_IMAGE: TGUID = (
  11254.           D1:$8bc96b00; D2:$8da1; D3:$11cf; D4:($87, $36, $00, $aa, $00, $a4, $85, $eb));
  11255.  
  11256. { PublishedSoftware == 64b9d180-8da2-11cf-8736-00aa00a485eb }
  11257.   {$EXTERNALSYM WIN_SPUB_ACTION_PUBLISHED_SOFTWARE}
  11258.   WIN_SPUB_ACTION_PUBLISHED_SOFTWARE: TGUID = (
  11259.           D1:$64b9d180; D2:$8da2; D3:$11cf; D4:($87, $36, $00, $aa, $00, $a4, $85, $eb));
  11260.  
  11261. { Data Structures: }
  11262.  
  11263. { WIN_SPUB_ACTION_TRUSTED_PUBLISHER:
  11264.       Uses WIN_SPUB_TRUSTED_PUBLISHER_DATA }
  11265.  
  11266. { WIN_SPUB_ACTION_NT_ACTIVATE_IMAGE:
  11267.       Uses WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT }
  11268.  
  11269. { WIN_SPUB_ACTION_PUBLISHED_SOFTWARE:
  11270.       Uses WIN_TRUST_ACTDATA_CONTEXT_WITH_SUBJECT }
  11271.  
  11272. type
  11273.   PWinSpubTrustedPublisherData = ^TWinSpubTrustedPublisherData;
  11274.   {$EXTERNALSYM _WIN_SPUB_TRUSTED_PUBLISHER_DATA}
  11275.   _WIN_SPUB_TRUSTED_PUBLISHER_DATA = record
  11276.     hClientToken: THandle;
  11277.     lpCertificate: PWinCertificate;
  11278.   end;
  11279.   TWinSpubTrustedPublisherData = _WIN_SPUB_TRUSTED_PUBLISHER_DATA;
  11280.   {$EXTERNALSYM WIN_SPUB_TRUSTED_PUBLISHER_DATA}
  11281.   WIN_SPUB_TRUSTED_PUBLISHER_DATA = _WIN_SPUB_TRUSTED_PUBLISHER_DATA;
  11282.  
  11283. { Translated from WINGDI.H }
  11284.  
  11285. const
  11286.   { Binary raster ops }
  11287.   {$EXTERNALSYM R2_BLACK}
  11288.   R2_BLACK       = 1;     {  0   }
  11289.   {$EXTERNALSYM R2_NOTMERGEPEN}
  11290.   R2_NOTMERGEPEN = 2;     { DPon }
  11291.   {$EXTERNALSYM R2_MASKNOTPEN}
  11292.   R2_MASKNOTPEN  = 3;     { DPna }
  11293.   {$EXTERNALSYM R2_NOTCOPYPEN}
  11294.   R2_NOTCOPYPEN  = 4;     { PN   }
  11295.   {$EXTERNALSYM R2_MASKPENNOT}
  11296.   R2_MASKPENNOT  = 5;     { PDna }
  11297.   {$EXTERNALSYM R2_NOT}
  11298.   R2_NOT         = 6;     { Dn   }
  11299.   {$EXTERNALSYM R2_XORPEN}
  11300.   R2_XORPEN      = 7;     { DPx  }
  11301.   {$EXTERNALSYM R2_NOTMASKPEN}
  11302.   R2_NOTMASKPEN  = 8;     { DPan }
  11303.   {$EXTERNALSYM R2_MASKPEN}
  11304.   R2_MASKPEN     = 9;     { DPa  }
  11305.   {$EXTERNALSYM R2_NOTXORPEN}
  11306.   R2_NOTXORPEN   = 10;    { DPxn }
  11307.   {$EXTERNALSYM R2_NOP}
  11308.   R2_NOP         = 11;    { D    }
  11309.   {$EXTERNALSYM R2_MERGENOTPEN}
  11310.   R2_MERGENOTPEN = 12;    { DPno }
  11311.   {$EXTERNALSYM R2_COPYPEN}
  11312.   R2_COPYPEN     = 13;    { P    }
  11313.   {$EXTERNALSYM R2_MERGEPENNOT}
  11314.   R2_MERGEPENNOT = 14;    { PDno }
  11315.   {$EXTERNALSYM R2_MERGEPEN}
  11316.   R2_MERGEPEN    = 15;    { DPo  }
  11317.   {$EXTERNALSYM R2_WHITE}
  11318.   R2_WHITE       = $10;   {  1   }
  11319.   {$EXTERNALSYM R2_LAST}
  11320.   R2_LAST        = $10;
  11321.  
  11322.  
  11323.   { Ternary raster operations }
  11324.   {$EXTERNALSYM SRCCOPY}
  11325.   SRCCOPY     = $00CC0020;     { dest = source                    }
  11326.   {$EXTERNALSYM SRCPAINT}
  11327.   SRCPAINT    = $00EE0086;     { dest = source OR dest            }
  11328.   {$EXTERNALSYM SRCAND}
  11329.   SRCAND      = $008800C6;     { dest = source AND dest           }
  11330.   {$EXTERNALSYM SRCINVERT}
  11331.   SRCINVERT   = $00660046;     { dest = source XOR dest           }
  11332.   {$EXTERNALSYM SRCERASE}
  11333.   SRCERASE    = $00440328;     { dest = source AND (NOT dest )    }
  11334.   {$EXTERNALSYM NOTSRCCOPY}
  11335.   NOTSRCCOPY  = $00330008;     { dest = (NOT source)              }
  11336.   {$EXTERNALSYM NOTSRCERASE}
  11337.   NOTSRCERASE = $001100A6;     { dest = (NOT src) AND (NOT dest)  }
  11338.   {$EXTERNALSYM MERGECOPY}
  11339.   MERGECOPY   = $00C000CA;     { dest = (source AND pattern)      }
  11340.   {$EXTERNALSYM MERGEPAINT}
  11341.   MERGEPAINT  = $00BB0226;     { dest = (NOT source) OR dest      }
  11342.   {$EXTERNALSYM PATCOPY}
  11343.   PATCOPY     = $00F00021;     { dest = pattern                   }
  11344.   {$EXTERNALSYM PATPAINT}
  11345.   PATPAINT    = $00FB0A09;     { dest = DPSnoo                    }
  11346.   {$EXTERNALSYM PATINVERT}
  11347.   PATINVERT   = $005A0049;     { dest = pattern XOR dest          }
  11348.   {$EXTERNALSYM DSTINVERT}
  11349.   DSTINVERT   = $00550009;     { dest = (NOT dest)                }
  11350.   {$EXTERNALSYM BLACKNESS}
  11351.   BLACKNESS   = $00000042;     { dest = BLACK                     }
  11352.   {$EXTERNALSYM WHITENESS}
  11353.   WHITENESS   = $00FF0062;     { dest = WHITE                     }
  11354.  
  11355.  
  11356. { Quaternary raster codes }
  11357.  
  11358. {$EXTERNALSYM MakeROP4}
  11359. function MakeROP4(fore,back: DWORD): DWORD;
  11360.  
  11361. const
  11362.   {$EXTERNALSYM GDI_ERROR}
  11363.   GDI_ERROR = DWORD($FFFFFFFF);
  11364.   {$EXTERNALSYM HGDI_ERROR}
  11365.   HGDI_ERROR = DWORD($FFFFFFFF);
  11366.  
  11367.  
  11368.   { Region Flags }
  11369.   {$EXTERNALSYM ERROR}
  11370.   ERROR = 0;
  11371.   {$EXTERNALSYM NULLREGION}
  11372.   NULLREGION = 1;
  11373.   {$EXTERNALSYM SIMPLEREGION}
  11374.   SIMPLEREGION = 2;
  11375.   {$EXTERNALSYM COMPLEXREGION}
  11376.   COMPLEXREGION = 3;
  11377.   {$EXTERNALSYM RGN_ERROR}
  11378.   RGN_ERROR = ERROR;
  11379.  
  11380.  
  11381.   { CombineRgn() Styles }
  11382.   {$EXTERNALSYM RGN_AND}
  11383.   RGN_AND = 1;
  11384.   {$EXTERNALSYM RGN_OR}
  11385.   RGN_OR = 2;
  11386.   {$EXTERNALSYM RGN_XOR}
  11387.   RGN_XOR = 3;
  11388.   {$EXTERNALSYM RGN_DIFF}
  11389.   RGN_DIFF = 4;
  11390.   {$EXTERNALSYM RGN_COPY}
  11391.   RGN_COPY = 5;
  11392.   {$EXTERNALSYM RGN_MIN}
  11393.   RGN_MIN = RGN_AND;
  11394.   {$EXTERNALSYM RGN_MAX}
  11395.   RGN_MAX = RGN_COPY;
  11396.  
  11397.   { StretchBlt() Modes }
  11398.   {$EXTERNALSYM BLACKONWHITE}
  11399.   BLACKONWHITE = 1;
  11400.   {$EXTERNALSYM WHITEONBLACK}
  11401.   WHITEONBLACK = 2;
  11402.   {$EXTERNALSYM COLORONCOLOR}
  11403.   COLORONCOLOR = 3;
  11404.   {$EXTERNALSYM HALFTONE}
  11405.   HALFTONE = 4;
  11406.   {$EXTERNALSYM MAXSTRETCHBLTMODE}
  11407.   MAXSTRETCHBLTMODE = 4;
  11408.  
  11409.  
  11410.   { New StretchBlt() Modes }
  11411.   {$EXTERNALSYM STRETCH_ANDSCANS}
  11412.   STRETCH_ANDSCANS = BLACKONWHITE;
  11413.   {$EXTERNALSYM STRETCH_ORSCANS}
  11414.   STRETCH_ORSCANS = WHITEONBLACK;
  11415.   {$EXTERNALSYM STRETCH_DELETESCANS}
  11416.   STRETCH_DELETESCANS = COLORONCOLOR;
  11417.   {$EXTERNALSYM STRETCH_HALFTONE}
  11418.   STRETCH_HALFTONE = HALFTONE;
  11419.  
  11420.  
  11421.   { PolyFill() Modes }
  11422.   {$EXTERNALSYM ALTERNATE}
  11423.   ALTERNATE = 1;
  11424.   {$EXTERNALSYM WINDING}
  11425.   WINDING = 2;
  11426.   {$EXTERNALSYM POLYFILL_LAST}
  11427.   POLYFILL_LAST = 2;
  11428.  
  11429.  
  11430.   { Text Alignment Options }
  11431.   {$EXTERNALSYM TA_NOUPDATECP}
  11432.   TA_NOUPDATECP = 0;
  11433.   {$EXTERNALSYM TA_UPDATECP}
  11434.   TA_UPDATECP = 1;
  11435.   {$EXTERNALSYM TA_LEFT}
  11436.   TA_LEFT = 0;
  11437.   {$EXTERNALSYM TA_RIGHT}
  11438.   TA_RIGHT = 2;
  11439.   {$EXTERNALSYM TA_CENTER}
  11440.   TA_CENTER = 6;
  11441.   {$EXTERNALSYM TA_TOP}
  11442.   TA_TOP = 0;
  11443.   {$EXTERNALSYM TA_BOTTOM}
  11444.   TA_BOTTOM = 8;
  11445.   {$EXTERNALSYM TA_BASELINE}
  11446.   TA_BASELINE = 24;
  11447.   {$EXTERNALSYM TA_RTLREADING}
  11448.   TA_RTLREADING = $100;
  11449.   {$EXTERNALSYM TA_MASK}
  11450.   TA_MASK =  (TA_BASELINE+TA_CENTER+TA_UPDATECP+TA_RTLREADING);
  11451.  
  11452.   {$EXTERNALSYM VTA_BASELINE}
  11453.   VTA_BASELINE = TA_BASELINE;
  11454.   {$EXTERNALSYM VTA_LEFT}
  11455.   VTA_LEFT = TA_BOTTOM;
  11456.   {$EXTERNALSYM VTA_RIGHT}
  11457.   VTA_RIGHT = TA_TOP;
  11458.   {$EXTERNALSYM VTA_CENTER}
  11459.   VTA_CENTER = TA_CENTER;
  11460.   {$EXTERNALSYM VTA_BOTTOM}
  11461.   VTA_BOTTOM = TA_RIGHT;
  11462.   {$EXTERNALSYM VTA_TOP}
  11463.   VTA_TOP = TA_LEFT;
  11464.  
  11465.   {$EXTERNALSYM ETO_OPAQUE}
  11466.   ETO_OPAQUE = 2;
  11467.   {$EXTERNALSYM ETO_CLIPPED}
  11468.   ETO_CLIPPED = 4;
  11469.   {$EXTERNALSYM ETO_GLYPH_INDEX}
  11470.   ETO_GLYPH_INDEX = $10;
  11471.   {$EXTERNALSYM ETO_RTLREADING}
  11472.   ETO_RTLREADING = $80;
  11473.   {$EXTERNALSYM ETO_NUMERICSLOCAL}
  11474.   ETO_NUMERICSLOCAL = $400;
  11475.   {$EXTERNALSYM ETO_NUMERICSLATIN}
  11476.   ETO_NUMERICSLATIN = $800;
  11477.   {$EXTERNALSYM ETO_IGNORELANGUAGE}
  11478.   ETO_IGNORELANGUAGE = $1000;
  11479.   {$EXTERNALSYM ETO_PDY}
  11480.   ETO_PDY = $2000;
  11481.  
  11482.   {$EXTERNALSYM ASPECT_FILTERING}
  11483.   ASPECT_FILTERING = 1;
  11484.  
  11485.  
  11486.   { Bounds Accumulation APIs }
  11487.   {$EXTERNALSYM DCB_RESET}
  11488.   DCB_RESET = 1;
  11489.   {$EXTERNALSYM DCB_ACCUMULATE}
  11490.   DCB_ACCUMULATE = 2;
  11491.   {$EXTERNALSYM DCB_DIRTY}
  11492.   DCB_DIRTY = DCB_ACCUMULATE;
  11493.   {$EXTERNALSYM DCB_SET}
  11494.   DCB_SET = (DCB_RESET or DCB_ACCUMULATE);
  11495.   {$EXTERNALSYM DCB_ENABLE}
  11496.   DCB_ENABLE = 4;
  11497.   {$EXTERNALSYM DCB_DISABLE}
  11498.   DCB_DISABLE = 8;
  11499.  
  11500.   { Metafile Functions }
  11501.   {$EXTERNALSYM META_SETBKCOLOR}
  11502.   META_SETBKCOLOR = 513;
  11503.   {$EXTERNALSYM META_SETBKMODE}
  11504.   META_SETBKMODE = 258;
  11505.   {$EXTERNALSYM META_SETMAPMODE}
  11506.   META_SETMAPMODE = 259;
  11507.   {$EXTERNALSYM META_SETROP2}
  11508.   META_SETROP2 = 260;
  11509.   {$EXTERNALSYM META_SETRELABS}
  11510.   META_SETRELABS = 261;
  11511.   {$EXTERNALSYM META_SETPOLYFILLMODE}
  11512.   META_SETPOLYFILLMODE = 262;
  11513.   {$EXTERNALSYM META_SETSTRETCHBLTMODE}
  11514.   META_SETSTRETCHBLTMODE = 263;
  11515.   {$EXTERNALSYM META_SETTEXTCHAREXTRA}
  11516.   META_SETTEXTCHAREXTRA = 264;
  11517.   {$EXTERNALSYM META_SETTEXTCOLOR}
  11518.   META_SETTEXTCOLOR = 521;
  11519.   {$EXTERNALSYM META_SETTEXTJUSTIFICATION}
  11520.   META_SETTEXTJUSTIFICATION = 522;
  11521.   {$EXTERNALSYM META_SETWINDOWORG}
  11522.   META_SETWINDOWORG = 523;
  11523.   {$EXTERNALSYM META_SETWINDOWEXT}
  11524.   META_SETWINDOWEXT = 524;
  11525.   {$EXTERNALSYM META_SETVIEWPORTORG}
  11526.   META_SETVIEWPORTORG = 525;
  11527.   {$EXTERNALSYM META_SETVIEWPORTEXT}
  11528.   META_SETVIEWPORTEXT = 526;
  11529.   {$EXTERNALSYM META_OFFSETWINDOWORG}
  11530.   META_OFFSETWINDOWORG = 527;
  11531.   {$EXTERNALSYM META_SCALEWINDOWEXT}
  11532.   META_SCALEWINDOWEXT = 1040;
  11533.   {$EXTERNALSYM META_OFFSETVIEWPORTORG}
  11534.   META_OFFSETVIEWPORTORG = 529;
  11535.   {$EXTERNALSYM META_SCALEVIEWPORTEXT}
  11536.   META_SCALEVIEWPORTEXT = 1042;
  11537.   {$EXTERNALSYM META_LINETO}
  11538.   META_LINETO = 531;
  11539.   {$EXTERNALSYM META_MOVETO}
  11540.   META_MOVETO = 532;
  11541.   {$EXTERNALSYM META_EXCLUDECLIPRECT}
  11542.   META_EXCLUDECLIPRECT = 1045;
  11543.   {$EXTERNALSYM META_INTERSECTCLIPRECT}
  11544.   META_INTERSECTCLIPRECT = 1046;
  11545.   {$EXTERNALSYM META_ARC}
  11546.   META_ARC = 2071;
  11547.   {$EXTERNALSYM META_ELLIPSE}
  11548.   META_ELLIPSE = 1048;
  11549.   {$EXTERNALSYM META_FLOODFILL}
  11550.   META_FLOODFILL = 1049;
  11551.   {$EXTERNALSYM META_PIE}
  11552.   META_PIE = 2074;
  11553.   {$EXTERNALSYM META_RECTANGLE}
  11554.   META_RECTANGLE = 1051;
  11555.   {$EXTERNALSYM META_ROUNDRECT}
  11556.   META_ROUNDRECT = 1564;
  11557.   {$EXTERNALSYM META_PATBLT}
  11558.   META_PATBLT = 1565;
  11559.   {$EXTERNALSYM META_SAVEDC}
  11560.   META_SAVEDC = 30;
  11561.   {$EXTERNALSYM META_SETPIXEL}
  11562.   META_SETPIXEL = 1055;
  11563.   {$EXTERNALSYM META_OFFSETCLIPRGN}
  11564.   META_OFFSETCLIPRGN = 544;
  11565.   {$EXTERNALSYM META_TEXTOUT}
  11566.   META_TEXTOUT = 1313;
  11567.   {$EXTERNALSYM META_BITBLT}
  11568.   META_BITBLT = 2338;
  11569.   {$EXTERNALSYM META_STRETCHBLT}
  11570.   META_STRETCHBLT = 2851;
  11571.   {$EXTERNALSYM META_POLYGON}
  11572.   META_POLYGON = 804;
  11573.   {$EXTERNALSYM META_POLYLINE}
  11574.   META_POLYLINE = 805;
  11575.   {$EXTERNALSYM META_ESCAPE}
  11576.   META_ESCAPE = 1574;
  11577.   {$EXTERNALSYM META_RESTOREDC}
  11578.   META_RESTOREDC = 295;
  11579.   {$EXTERNALSYM META_FILLREGION}
  11580.   META_FILLREGION = 552;
  11581.   {$EXTERNALSYM META_FRAMEREGION}
  11582.   META_FRAMEREGION = 1065;
  11583.   {$EXTERNALSYM META_INVERTREGION}
  11584.   META_INVERTREGION = 298;
  11585.   {$EXTERNALSYM META_PAINTREGION}
  11586.   META_PAINTREGION = 299;
  11587.   {$EXTERNALSYM META_SELECTCLIPREGION}
  11588.   META_SELECTCLIPREGION = 300;
  11589.   {$EXTERNALSYM META_SELECTOBJECT}
  11590.   META_SELECTOBJECT = 301;
  11591.   {$EXTERNALSYM META_SETTEXTALIGN}
  11592.   META_SETTEXTALIGN = 302;
  11593.   {$EXTERNALSYM META_CHORD}
  11594.   META_CHORD = 2096;
  11595.   {$EXTERNALSYM META_SETMAPPERFLAGS}
  11596.   META_SETMAPPERFLAGS = 561;
  11597.   {$EXTERNALSYM META_EXTTEXTOUT}
  11598.   META_EXTTEXTOUT = 2610;
  11599.   {$EXTERNALSYM META_SETDIBTODEV}
  11600.   META_SETDIBTODEV = 3379;
  11601.   {$EXTERNALSYM META_SELECTPALETTE}
  11602.   META_SELECTPALETTE = 564;
  11603.   {$EXTERNALSYM META_REALIZEPALETTE}
  11604.   META_REALIZEPALETTE = 53;
  11605.   {$EXTERNALSYM META_ANIMATEPALETTE}
  11606.   META_ANIMATEPALETTE = 1078;
  11607.   {$EXTERNALSYM META_SETPALENTRIES}
  11608.   META_SETPALENTRIES = 55;
  11609.   {$EXTERNALSYM META_POLYPOLYGON}
  11610.   META_POLYPOLYGON = 1336;
  11611.   {$EXTERNALSYM META_RESIZEPALETTE}
  11612.   META_RESIZEPALETTE = 313;
  11613.   {$EXTERNALSYM META_DIBBITBLT}
  11614.   META_DIBBITBLT = 2368;
  11615.   {$EXTERNALSYM META_DIBSTRETCHBLT}
  11616.   META_DIBSTRETCHBLT = 2881;
  11617.   {$EXTERNALSYM META_DIBCREATEPATTERNBRUSH}
  11618.   META_DIBCREATEPATTERNBRUSH = 322;
  11619.   {$EXTERNALSYM META_STRETCHDIB}
  11620.   META_STRETCHDIB = 3907;
  11621.   {$EXTERNALSYM META_EXTFLOODFILL}
  11622.   META_EXTFLOODFILL = 1352;
  11623.   {$EXTERNALSYM META_DELETEOBJECT}
  11624.   META_DELETEOBJECT = 496;
  11625.   {$EXTERNALSYM META_CREATEPALETTE}
  11626.   META_CREATEPALETTE = 247;
  11627.   {$EXTERNALSYM META_CREATEPATTERNBRUSH}
  11628.   META_CREATEPATTERNBRUSH = 505;
  11629.   {$EXTERNALSYM META_CREATEPENINDIRECT}
  11630.   META_CREATEPENINDIRECT = 762;
  11631.   {$EXTERNALSYM META_CREATEFONTINDIRECT}
  11632.   META_CREATEFONTINDIRECT = 763;
  11633.   {$EXTERNALSYM META_CREATEBRUSHINDIRECT}
  11634.   META_CREATEBRUSHINDIRECT = 764;
  11635.   {$EXTERNALSYM META_CREATEREGION}
  11636.   META_CREATEREGION = 1791;
  11637.  
  11638.  
  11639.   { GDI Escapes }
  11640.   {$EXTERNALSYM NEWFRAME}
  11641.   NEWFRAME = 1;
  11642.   _ABORTDOC = 2; { Renamed }
  11643.   {$EXTERNALSYM NEXTBAND}
  11644.   NEXTBAND = 3;
  11645.   {$EXTERNALSYM SETCOLORTABLE}
  11646.   SETCOLORTABLE = 4;
  11647.   {$EXTERNALSYM GETCOLORTABLE}
  11648.   GETCOLORTABLE = 5;
  11649.   {$EXTERNALSYM FLUSHOUTPUT}
  11650.   FLUSHOUTPUT = 6;
  11651.   {$EXTERNALSYM DRAFTMODE}
  11652.   DRAFTMODE = 7;
  11653.   {$EXTERNALSYM QUERYESCSUPPORT}
  11654.   QUERYESCSUPPORT = 8;
  11655.   _SETABORTPROC = 9; { Renamed }
  11656.   _STARTDOC = 10; { Renamed }
  11657.   _ENDDOC = 11; { Renamed }
  11658.   {$EXTERNALSYM GETPHYSPAGESIZE}
  11659.   GETPHYSPAGESIZE = 12;
  11660.   {$EXTERNALSYM GETPRINTINGOFFSET}
  11661.   GETPRINTINGOFFSET = 13;
  11662.   {$EXTERNALSYM GETSCALINGFACTOR}
  11663.   GETSCALINGFACTOR = 14;
  11664.   {$EXTERNALSYM MFCOMMENT}
  11665.   MFCOMMENT = 15;
  11666.   {$EXTERNALSYM GETPENWIDTH}
  11667.   GETPENWIDTH = $10;
  11668.   {$EXTERNALSYM SETCOPYCOUNT}
  11669.   SETCOPYCOUNT = 17;
  11670.   {$EXTERNALSYM SELECTPAPERSOURCE}
  11671.   SELECTPAPERSOURCE = 18;
  11672.   {$EXTERNALSYM DEVICEDATA}
  11673.   DEVICEDATA = 19;
  11674.   {$EXTERNALSYM PASSTHROUGH}
  11675.   PASSTHROUGH = 19;
  11676.   {$EXTERNALSYM GETTECHNOLGY}
  11677.   GETTECHNOLGY = 20;
  11678.   {$EXTERNALSYM GETTECHNOLOGY}
  11679.   GETTECHNOLOGY = 20;
  11680.   {$EXTERNALSYM SETLINECAP}
  11681.   SETLINECAP = 21;
  11682.   {$EXTERNALSYM SETLINEJOIN}
  11683.   SETLINEJOIN = 22;
  11684.   _SETMITERLIMIT = 23; { Renamed }
  11685.   {$EXTERNALSYM BANDINFO}
  11686.   BANDINFO = 24;
  11687.   {$EXTERNALSYM DRAWPATTERNRECT}
  11688.   DRAWPATTERNRECT = 25;
  11689.   {$EXTERNALSYM GETVECTORPENSIZE}
  11690.   GETVECTORPENSIZE = 26;
  11691.   {$EXTERNALSYM GETVECTORBRUSHSIZE}
  11692.   GETVECTORBRUSHSIZE = 27;
  11693.   {$EXTERNALSYM ENABLEDUPLEX}
  11694.   ENABLEDUPLEX = 28;
  11695.   {$EXTERNALSYM GETSETPAPERBINS}
  11696.   GETSETPAPERBINS = 29;
  11697.   {$EXTERNALSYM GETSETPRINTORIENT}
  11698.   GETSETPRINTORIENT = 30;
  11699.   {$EXTERNALSYM ENUMPAPERBINS}
  11700.   ENUMPAPERBINS = 31;
  11701.   {$EXTERNALSYM SETDIBSCALING}
  11702.   SETDIBSCALING = $20;
  11703.   {$EXTERNALSYM EPSPRINTING}
  11704.   EPSPRINTING = 33;
  11705.   {$EXTERNALSYM ENUMPAPERMETRICS}
  11706.   ENUMPAPERMETRICS = 34;
  11707.   {$EXTERNALSYM GETSETPAPERMETRICS}
  11708.   GETSETPAPERMETRICS = 35;
  11709.   {$EXTERNALSYM POSTSCRIPT_DATA}
  11710.   POSTSCRIPT_DATA = 37;
  11711.   {$EXTERNALSYM POSTSCRIPT_IGNORE}
  11712.   POSTSCRIPT_IGNORE = 38;
  11713.   {$EXTERNALSYM MOUSETRAILS}
  11714.   MOUSETRAILS = 39;
  11715.   {$EXTERNALSYM GETDEVICEUNITS}
  11716.   GETDEVICEUNITS = 42;
  11717.  
  11718.   {$EXTERNALSYM GETEXTENDEDTEXTMETRICS}
  11719.   GETEXTENDEDTEXTMETRICS = 256;
  11720.   {$EXTERNALSYM GETEXTENTTABLE}
  11721.   GETEXTENTTABLE = 257;
  11722.   {$EXTERNALSYM GETPAIRKERNTABLE}
  11723.   GETPAIRKERNTABLE = 258;
  11724.   {$EXTERNALSYM GETTRACKKERNTABLE}
  11725.   GETTRACKKERNTABLE = 259;
  11726.   _EXTTEXTOUT = $200; { Renamed }
  11727.   {$EXTERNALSYM GETFACENAME}
  11728.   GETFACENAME = 513;
  11729.   {$EXTERNALSYM DOWNLOADFACE}
  11730.   DOWNLOADFACE = 514;
  11731.   {$EXTERNALSYM ENABLERELATIVEWIDTHS}
  11732.   ENABLERELATIVEWIDTHS = 768;
  11733.   {$EXTERNALSYM ENABLEPAIRKERNING}
  11734.   ENABLEPAIRKERNING = 769;
  11735.   {$EXTERNALSYM SETKERNTRACK}
  11736.   SETKERNTRACK = 770;
  11737.   {$EXTERNALSYM SETALLJUSTVALUES}
  11738.   SETALLJUSTVALUES = 771;
  11739.   {$EXTERNALSYM SETCHARSET}
  11740.   SETCHARSET = 772;
  11741.  
  11742.   _STRETCHBLT = $800; { Renamed }
  11743.   {$EXTERNALSYM GETSETSCREENPARAMS}
  11744.   GETSETSCREENPARAMS = 3072;
  11745.   {$EXTERNALSYM QUERYDIBSUPPORT}
  11746.   QUERYDIBSUPPORT = 3073;
  11747.   {$EXTERNALSYM BEGIN_PATH}
  11748.   BEGIN_PATH = $1000;
  11749.   {$EXTERNALSYM CLIP_TO_PATH}
  11750.   CLIP_TO_PATH = 4097;
  11751.   {$EXTERNALSYM END_PATH}
  11752.   END_PATH = 4098;
  11753.   {$EXTERNALSYM EXT_DEVICE_CAPS}
  11754.   EXT_DEVICE_CAPS = 4099;
  11755.   {$EXTERNALSYM RESTORE_CTM}
  11756.   RESTORE_CTM = 4100;
  11757.   {$EXTERNALSYM SAVE_CTM}
  11758.   SAVE_CTM = 4101;
  11759.   {$EXTERNALSYM SET_ARC_DIRECTION}
  11760.   SET_ARC_DIRECTION = 4102;
  11761.   {$EXTERNALSYM SET_BACKGROUND_COLOR}
  11762.   SET_BACKGROUND_COLOR = 4103;
  11763.   {$EXTERNALSYM SET_POLY_MODE}
  11764.   SET_POLY_MODE = 4104;
  11765.   {$EXTERNALSYM SET_SCREEN_ANGLE}
  11766.   SET_SCREEN_ANGLE = 4105;
  11767.   {$EXTERNALSYM SET_SPREAD}
  11768.   SET_SPREAD = 4106;
  11769.   {$EXTERNALSYM TRANSFORM_CTM}
  11770.   TRANSFORM_CTM = 4107;
  11771.   {$EXTERNALSYM SET_CLIP_BOX}
  11772.   SET_CLIP_BOX = 4108;
  11773.   {$EXTERNALSYM SET_BOUNDS}
  11774.   SET_BOUNDS = 4109;
  11775.   {$EXTERNALSYM SET_MIRROR_MODE}
  11776.   SET_MIRROR_MODE = 4110;
  11777.   {$EXTERNALSYM OPENCHANNEL}
  11778.   OPENCHANNEL = 4110;
  11779.   {$EXTERNALSYM DOWNLOADHEADER}
  11780.   DOWNLOADHEADER = 4111;
  11781.   {$EXTERNALSYM CLOSECHANNEL}
  11782.   CLOSECHANNEL = 4112;
  11783.   {$EXTERNALSYM POSTSCRIPT_PASSTHROUGH}
  11784.   POSTSCRIPT_PASSTHROUGH = 4115;
  11785.   {$EXTERNALSYM ENCAPSULATED_POSTSCRIPT}
  11786.   ENCAPSULATED_POSTSCRIPT = 4116;
  11787.  
  11788.   { Flag returned from QUERYDIBSUPPORT }
  11789.   {$EXTERNALSYM QDI_SETDIBITS}
  11790.   QDI_SETDIBITS = 1;
  11791.   {$EXTERNALSYM QDI_GETDIBITS}
  11792.   QDI_GETDIBITS = 2;
  11793.   {$EXTERNALSYM QDI_DIBTOSCREEN}
  11794.   QDI_DIBTOSCREEN = 4;
  11795.   {$EXTERNALSYM QDI_STRETCHDIB}
  11796.   QDI_STRETCHDIB = 8;
  11797.  
  11798.  
  11799.   { Spooler Error Codes }
  11800.   {$EXTERNALSYM SP_NOTREPORTED}
  11801.   SP_NOTREPORTED = $4000;
  11802.   {$EXTERNALSYM SP_ERROR}
  11803.   SP_ERROR = LongWord(-1);
  11804.   {$EXTERNALSYM SP_APPABORT}
  11805.   SP_APPABORT = LongWord(-2);
  11806.   {$EXTERNALSYM SP_USERABORT}
  11807.   SP_USERABORT = LongWord(-3);
  11808.   {$EXTERNALSYM SP_OUTOFDISK}
  11809.   SP_OUTOFDISK = LongWord(-4);
  11810.   {$EXTERNALSYM SP_OUTOFMEMORY}
  11811.   SP_OUTOFMEMORY = LongWord(-5);
  11812.  
  11813.   {$EXTERNALSYM PR_JOBSTATUS}
  11814.   PR_JOBSTATUS = 0;
  11815.  
  11816.  
  11817.   { Object Definitions for EnumObjects() }
  11818.   {$EXTERNALSYM OBJ_PEN}
  11819.   OBJ_PEN = 1;
  11820.   {$EXTERNALSYM OBJ_BRUSH}
  11821.   OBJ_BRUSH = 2;
  11822.   {$EXTERNALSYM OBJ_DC}
  11823.   OBJ_DC = 3;
  11824.   {$EXTERNALSYM OBJ_METADC}
  11825.   OBJ_METADC = 4;
  11826.   {$EXTERNALSYM OBJ_PAL}
  11827.   OBJ_PAL = 5;
  11828.   {$EXTERNALSYM OBJ_FONT}
  11829.   OBJ_FONT = 6;
  11830.   {$EXTERNALSYM OBJ_BITMAP}
  11831.   OBJ_BITMAP = 7;
  11832.   {$EXTERNALSYM OBJ_REGION}
  11833.   OBJ_REGION = 8;
  11834.   {$EXTERNALSYM OBJ_METAFILE}
  11835.   OBJ_METAFILE = 9;
  11836.   {$EXTERNALSYM OBJ_MEMDC}
  11837.   OBJ_MEMDC = 10;
  11838.   {$EXTERNALSYM OBJ_EXTPEN}
  11839.   OBJ_EXTPEN = 11;
  11840.   {$EXTERNALSYM OBJ_ENHMETADC}
  11841.   OBJ_ENHMETADC = 12;
  11842.   {$EXTERNALSYM OBJ_ENHMETAFILE}
  11843.   OBJ_ENHMETAFILE = 13;
  11844.  
  11845.  
  11846.   { xform stuff }
  11847.   {$EXTERNALSYM MWT_IDENTITY}
  11848.   MWT_IDENTITY = 1;
  11849.   {$EXTERNALSYM MWT_LEFTMULTIPLY}
  11850.   MWT_LEFTMULTIPLY = 2;
  11851.   {$EXTERNALSYM MWT_RIGHTMULTIPLY}
  11852.   MWT_RIGHTMULTIPLY = 3;
  11853.  
  11854.   {$EXTERNALSYM MWT_MIN}
  11855.   MWT_MIN = MWT_IDENTITY;
  11856.   {$EXTERNALSYM MWT_MAX}
  11857.   MWT_MAX = MWT_RIGHTMULTIPLY;
  11858.  
  11859.  
  11860. type
  11861.   PXForm = ^TXForm;
  11862.   {$EXTERNALSYM tagXFORM}
  11863.   tagXFORM = packed record
  11864.     eM11: Single;
  11865.     eM12: Single;
  11866.     eM21: Single;
  11867.     eM22: Single;
  11868.     eDx: Single;
  11869.     eDy: Single;
  11870.   end;
  11871.   TXForm = tagXFORM;
  11872.   {$EXTERNALSYM XFORM}
  11873.   XFORM = tagXFORM;
  11874.  
  11875. { Bitmap Header Definition }
  11876.   PBitmap = ^TBitmap;
  11877.   {$EXTERNALSYM tagBITMAP}
  11878.   tagBITMAP = packed record
  11879.     bmType: Longint;
  11880.     bmWidth: Longint;
  11881.     bmHeight: Longint;
  11882.     bmWidthBytes: Longint;
  11883.     bmPlanes: Word;
  11884.     bmBitsPixel: Word;
  11885.     bmBits: Pointer;
  11886.   end;
  11887.   TBitmap = tagBITMAP;
  11888.   {$EXTERNALSYM BITMAP}
  11889.   BITMAP = tagBITMAP;
  11890.  
  11891.   PRGBTriple = ^TRGBTriple;
  11892.   {$EXTERNALSYM tagRGBTRIPLE}
  11893.   tagRGBTRIPLE = packed record
  11894.     rgbtBlue: Byte;
  11895.     rgbtGreen: Byte;
  11896.     rgbtRed: Byte;
  11897.   end;
  11898.   TRGBTriple = tagRGBTRIPLE;
  11899.   {$EXTERNALSYM RGBTRIPLE}
  11900.   RGBTRIPLE = tagRGBTRIPLE;
  11901.  
  11902.   PRGBQuad = ^TRGBQuad;
  11903.   {$EXTERNALSYM tagRGBQUAD}
  11904.   tagRGBQUAD = packed record
  11905.     rgbBlue: Byte;
  11906.     rgbGreen: Byte;
  11907.     rgbRed: Byte;
  11908.     rgbReserved: Byte;
  11909.   end;
  11910.   TRGBQuad = tagRGBQUAD;
  11911.   {$EXTERNALSYM RGBQUAD}
  11912.   RGBQUAD = tagRGBQUAD;
  11913.  
  11914.  
  11915.   { Image Color Matching color definitions }
  11916.   {$EXTERNALSYM LCSCSTYPE}
  11917.   LCSCSTYPE = Longint;
  11918. const
  11919.   {$EXTERNALSYM LCS_CALIBRATED_RGB}
  11920.   LCS_CALIBRATED_RGB = 0;
  11921.   {$EXTERNALSYM LCS_DEVICE_RGB}
  11922.   LCS_DEVICE_RGB = 1;
  11923.   {$EXTERNALSYM LCS_DEVICE_CMYK}
  11924.   LCS_DEVICE_CMYK = 2;
  11925.  
  11926. type
  11927.   {$EXTERNALSYM LCSGAMUTMATCH}
  11928.   LCSGAMUTMATCH = Longint;
  11929. const
  11930.   {$EXTERNALSYM LCS_GM_BUSINESS}
  11931.   LCS_GM_BUSINESS = 1;
  11932.   {$EXTERNALSYM LCS_GM_GRAPHICS}
  11933.   LCS_GM_GRAPHICS = 2;
  11934.   {$EXTERNALSYM LCS_GM_IMAGES}
  11935.   LCS_GM_IMAGES = 4;
  11936.  
  11937.  
  11938.   { ICM Defines for results from CheckColorInGamut() }
  11939.   {$EXTERNALSYM CM_OUT_OF_GAMUT}
  11940.   CM_OUT_OF_GAMUT = 255;
  11941.   {$EXTERNALSYM CM_IN_GAMUT}
  11942.   CM_IN_GAMUT = 0;
  11943.  
  11944.  
  11945. { functions to retrieve CMYK values from a COLORREF }
  11946.  
  11947. {$EXTERNALSYM GetCValue}
  11948. function GetCValue(cmyk: COLORREF): Byte;
  11949. {$EXTERNALSYM GetMValue}
  11950. function GetMValue(cmyk: COLORREF): Byte;
  11951. {$EXTERNALSYM GetYValue}
  11952. function GetYValue(cmyk: COLORREF): Byte;
  11953. {$EXTERNALSYM GetKValue}
  11954. function GetKValue(cmyk: COLORREF): Byte;
  11955. {$EXTERNALSYM CMYK}
  11956. function CMYK(c, m, y, k: Byte): COLORREF;
  11957.  
  11958. type
  11959.   {$EXTERNALSYM FXPT16DOT16}
  11960.   FXPT16DOT16 = Longint;
  11961.   {$EXTERNALSYM LPFXPT16DOT16}
  11962.   LPFXPT16DOT16 = ^Longint;
  11963.   {$EXTERNALSYM FXPT2DOT30}
  11964.   FXPT2DOT30 = Longint;
  11965.   {$EXTERNALSYM LPFXPT2DOT30}
  11966.   LPFXPT2DOT30 = ^Longint;
  11967.  
  11968.  
  11969.   { ICM Color Definitions }
  11970.   { The following two structures are used for defining RGB's in terms of
  11971.     CIEXYZ. The values are fixed point 16.16. }
  11972.  
  11973.   PCIEXYZ = ^TCIEXYZ;
  11974.   {$EXTERNALSYM tagCIEXYZ}
  11975.   tagCIEXYZ = packed record
  11976.     ciexyzX: FXPT2DOT30;
  11977.     ciexyzY: FXPT2DOT30;
  11978.     ciexyzZ: FXPT2DOT30;
  11979.   end;
  11980.   TCIEXYZ = tagCIEXYZ;
  11981.   {$EXTERNALSYM CIEXYZ}
  11982.   CIEXYZ = tagCIEXYZ;
  11983.  
  11984.   PCIEXYZTriple = ^TCIEXYZTriple;
  11985.   {$EXTERNALSYM tagICEXYZTRIPLE}
  11986.   tagICEXYZTRIPLE = packed record
  11987.     ciexyzRed: TCIEXYZ;
  11988.     ciexyzGreen: TCIEXYZ;
  11989.     ciexyzBlue: TCIEXYZ;
  11990.   end;
  11991.   TCIEXYZTriple = tagICEXYZTRIPLE;
  11992.   {$EXTERNALSYM CIEXYZTRIPLE}
  11993.   CIEXYZTRIPLE = tagICEXYZTRIPLE;
  11994.  
  11995.   { The next structures the logical color space. Unlike pens and brushes,
  11996.     but like palettes, there is only one way to create a LogColorSpace.
  11997.     A pointer to it must be passed, its elements can't be pushed as
  11998.     arguments. }
  11999.  
  12000. type
  12001.   PLogColorSpaceA = ^TLogColorSpaceA;
  12002.   PLogColorSpaceW = ^TLogColorSpaceW;
  12003.   PLogColorSpace = PLogColorSpaceA;
  12004.   {$EXTERNALSYM tagLOGCOLORSPACEA}
  12005.   tagLOGCOLORSPACEA = packed record
  12006.     lcsSignature: DWORD;
  12007.     lcsVersion: DWORD;
  12008.     lcsSize: DWORD;
  12009.     lcsCSType: LCSCSTYPE;
  12010.     lcsIntent: LCSGAMUTMATCH;
  12011.     lcsEndpoints: TCIEXYZTriple;
  12012.     lcsGammaRed: DWORD;
  12013.     lcsGammaGreen: DWORD;
  12014.     lcsGammaBlue: DWORD;
  12015.     lcsFilename: array[0..259] of AnsiChar;
  12016.   end;
  12017.   {$EXTERNALSYM tagLOGCOLORSPACEW}
  12018.   tagLOGCOLORSPACEW = packed record
  12019.     lcsSignature: DWORD;
  12020.     lcsVersion: DWORD;
  12021.     lcsSize: DWORD;
  12022.     lcsCSType: LCSCSTYPE;
  12023.     lcsIntent: LCSGAMUTMATCH;
  12024.     lcsEndpoints: TCIEXYZTriple;
  12025.     lcsGammaRed: DWORD;
  12026.     lcsGammaGreen: DWORD;
  12027.     lcsGammaBlue: DWORD;
  12028.     lcsFilename: array[0..259] of WideChar;
  12029.   end;
  12030.   {$EXTERNALSYM tagLOGCOLORSPACE}
  12031.   tagLOGCOLORSPACE = tagLOGCOLORSPACEA;
  12032.   TLogColorSpaceA = tagLOGCOLORSPACEA;
  12033.   TLogColorSpaceW = tagLOGCOLORSPACEW;
  12034.   TLogColorSpace = TLogColorSpaceA;
  12035.   {$EXTERNALSYM LOGCOLORSPACEA}
  12036.   LOGCOLORSPACEA = tagLOGCOLORSPACEA;
  12037.   {$EXTERNALSYM LOGCOLORSPACEW}
  12038.   LOGCOLORSPACEW = tagLOGCOLORSPACEW;
  12039.   {$EXTERNALSYM LOGCOLORSPACE}
  12040.   LOGCOLORSPACE = LOGCOLORSPACEA;
  12041.  
  12042.   { structures for defining DIBs - used to get to color table }
  12043.   PBitmapCoreHeader = ^TBitmapCoreHeader;
  12044.   {$EXTERNALSYM tagBITMAPCOREHEADER}
  12045.   tagBITMAPCOREHEADER = packed record
  12046.     bcSize: DWORD;
  12047.     bcWidth: Word;
  12048.     bcHeight: Word;
  12049.     bcPlanes: Word;
  12050.     bcBitCount: Word;
  12051.   end;
  12052.   TBitmapCoreHeader = tagBITMAPCOREHEADER;
  12053.   {$EXTERNALSYM BITMAPCOREHEADER}
  12054.   BITMAPCOREHEADER = tagBITMAPCOREHEADER;
  12055.  
  12056.   PBitmapInfoHeader = ^TBitmapInfoHeader;
  12057.   {$EXTERNALSYM tagBITMAPINFOHEADER}
  12058.   tagBITMAPINFOHEADER = packed record
  12059.     biSize: DWORD;
  12060.     biWidth: Longint;
  12061.     biHeight: Longint;
  12062.     biPlanes: Word;
  12063.     biBitCount: Word;
  12064.     biCompression: DWORD;
  12065.     biSizeImage: DWORD;
  12066.     biXPelsPerMeter: Longint;
  12067.     biYPelsPerMeter: Longint;
  12068.     biClrUsed: DWORD;
  12069.     biClrImportant: DWORD;
  12070.   end;
  12071.   TBitmapInfoHeader = tagBITMAPINFOHEADER;
  12072.   {$EXTERNALSYM BITMAPINFOHEADER}
  12073.   BITMAPINFOHEADER = tagBITMAPINFOHEADER;
  12074.  
  12075.   PBitmapV4Header = ^TBitmapV4Header;
  12076.   {$EXTERNALSYM BITMAPV4HEADER}
  12077.   BITMAPV4HEADER = packed record
  12078.     bV4Size: DWORD;
  12079.     bV4Width: Longint;
  12080.     bV4Height: Longint;
  12081.     bV4Planes: Word;
  12082.     bV4BitCount: Word;
  12083.     bV4V4Compression: DWORD;
  12084.     bV4SizeImage: DWORD;
  12085.     bV4XPelsPerMeter: Longint;
  12086.     bV4YPelsPerMeter: Longint;
  12087.     bV4ClrUsed: DWORD;
  12088.     bV4ClrImportant: DWORD;
  12089.     bV4RedMask: DWORD;
  12090.     bV4GreenMask: DWORD;
  12091.     bV4BlueMask: DWORD;
  12092.     bV4AlphaMask: DWORD;
  12093.     bV4CSType: DWORD;
  12094.     bV4Endpoints: TCIEXYZTriple;
  12095.     bV4GammaRed: DWORD;
  12096.     bV4GammaGreen: DWORD;
  12097.     bV4GammaBlue: DWORD;
  12098.   end;
  12099.   TBitmapV4Header = BITMAPV4HEADER;
  12100.  
  12101.   PBitmapV5Header = ^TBitmapV5Header;
  12102.   {$EXTERNALSYM BITMAPV5HEADER}
  12103.   BITMAPV5HEADER = packed record
  12104.     bV5Size: DWORD;
  12105.     bV5Width: Longint;
  12106.     bV5Height: Longint;
  12107.     bV5Planes: Word;
  12108.     bV5BitCount: Word;
  12109.     bV5Compression: DWORD;
  12110.     bV5SizeImage: DWORD;
  12111.     bV5XPelsPerMeter: Longint;
  12112.     bV5YPelsPerMeter: Longint;
  12113.     bV5ClrUsed: DWORD;
  12114.     bV5ClrImportant: DWORD;
  12115.     bV5RedMask: DWORD;
  12116.     bV5GreenMask: DWORD;
  12117.     bV5BlueMask: DWORD;
  12118.     bV5AlphaMask: DWORD;
  12119.     bV5CSType: DWORD;
  12120.     bV5Endpoints: TCIEXYZTriple;
  12121.     bV5GammaRed: DWORD;
  12122.     bV5GammaGreen: DWORD;
  12123.     bV5GammaBlue: DWORD;
  12124.     bV5Intent: DWORD;
  12125.     bV5ProfileData: DWORD;
  12126.     bV5ProfileSize: DWORD;
  12127.     bV5Reserved: DWORD;
  12128.   end;
  12129.   TBitmapV5Header = BITMAPV5HEADER;
  12130.  
  12131. const
  12132.   { constants for the biCompression field }
  12133.   {$EXTERNALSYM BI_RGB}
  12134.   BI_RGB = 0;
  12135.   {$EXTERNALSYM BI_RLE8}
  12136.   BI_RLE8 = 1;
  12137.   {$EXTERNALSYM BI_RLE4}
  12138.   BI_RLE4 = 2;
  12139.   {$EXTERNALSYM BI_BITFIELDS}
  12140.   BI_BITFIELDS = 3;
  12141.  
  12142. type
  12143.   PBitmapInfo = ^TBitmapInfo;
  12144.   {$EXTERNALSYM tagBITMAPINFO}
  12145.   tagBITMAPINFO = packed record
  12146.     bmiHeader: TBitmapInfoHeader;
  12147.     bmiColors: array[0..0] of TRGBQuad;
  12148.   end;
  12149.   TBitmapInfo = tagBITMAPINFO;
  12150.   {$EXTERNALSYM BITMAPINFO}
  12151.   BITMAPINFO = tagBITMAPINFO;
  12152.  
  12153.   PBitmapCoreInfo = ^TBitmapCoreInfo;
  12154.   {$EXTERNALSYM tagBITMAPCOREINFO}
  12155.   tagBITMAPCOREINFO = record
  12156.     bmciHeader: TBitmapCoreHeader;
  12157.     bmciColors: array[0..0] of TRGBTriple;
  12158.     Reserved: array[0..0] of Char;
  12159.   end;
  12160.   TBitmapCoreInfo = tagBITMAPCOREINFO;
  12161.   {$EXTERNALSYM BITMAPCOREINFO}
  12162.   BITMAPCOREINFO = tagBITMAPCOREINFO;
  12163.  
  12164.   PBitmapFileHeader = ^TBitmapFileHeader;
  12165.   {$EXTERNALSYM tagBITMAPFILEHEADER}
  12166.   tagBITMAPFILEHEADER = packed record
  12167.     bfType: Word;
  12168.     bfSize: DWORD;
  12169.     bfReserved1: Word;
  12170.     bfReserved2: Word;
  12171.     bfOffBits: DWORD;
  12172.   end;
  12173.   TBitmapFileHeader = tagBITMAPFILEHEADER;
  12174.   {$EXTERNALSYM BITMAPFILEHEADER}
  12175.   BITMAPFILEHEADER = tagBITMAPFILEHEADER;
  12176.  
  12177.   PFontSignature = ^TFontSignature;
  12178.   {$EXTERNALSYM tagFONTSIGNATURE}
  12179.   tagFONTSIGNATURE = packed record
  12180.     fsUsb: array[0..3] of DWORD;
  12181.     fsCsb: array[0..1] of DWORD;
  12182.   end;
  12183.   TFontSignature = tagFONTSIGNATURE;
  12184.   {$EXTERNALSYM FONTSIGNATURE}
  12185.   FONTSIGNATURE = tagFONTSIGNATURE;
  12186.  
  12187.   PCharsetInfo = ^TCharsetInfo;
  12188.   {$EXTERNALSYM tagCHARSETINFO}
  12189.   tagCHARSETINFO = packed record
  12190.     ciCharset: UINT;
  12191.     ciACP: UINT;
  12192.     fs: TFontSignature;
  12193.   end;
  12194.   TCharsetInfo = tagCHARSETINFO;
  12195.   {$EXTERNALSYM CHARSETINFO}
  12196.   CHARSETINFO = tagCHARSETINFO;
  12197.  
  12198. const
  12199.   {$EXTERNALSYM TCI_SRCCHARSET}
  12200.   TCI_SRCCHARSET = 1;
  12201.   {$EXTERNALSYM TCI_SRCCODEPAGE}
  12202.   TCI_SRCCODEPAGE = 2;
  12203.   {$EXTERNALSYM TCI_SRCFONTSIG}
  12204.   TCI_SRCFONTSIG = 3;
  12205.  
  12206. type
  12207.   PLocaleSignature = ^TLocaleSignature;
  12208.   {$EXTERNALSYM tagLOCALESIGNATURE}
  12209.   tagLOCALESIGNATURE = packed record
  12210.     lsUsb: array[0..3] of DWORD;
  12211.     lsCsbDefault: array[0..1] of DWORD;
  12212.     lsCsbSupported: array[0..1] of DWORD;
  12213.   end;
  12214.   TLocaleSignature = tagLOCALESIGNATURE;
  12215.   {$EXTERNALSYM LOCALESIGNATURE}
  12216.   LOCALESIGNATURE = tagLOCALESIGNATURE;
  12217.  
  12218.   { Clipboard Metafile Picture Structure }
  12219.   PHandleTable = ^THandleTable;
  12220.   {$EXTERNALSYM tagHANDLETABLE}
  12221.   tagHANDLETABLE = packed record
  12222.     objectHandle: array[0..0] of HGDIOBJ;
  12223.   end;
  12224.   THandleTable = tagHANDLETABLE;
  12225.   {$EXTERNALSYM HANDLETABLE}
  12226.   HANDLETABLE = tagHANDLETABLE;
  12227.  
  12228.   PMetaRecord = ^TMetaRecord;
  12229.   {$EXTERNALSYM tagMETARECORD}
  12230.   tagMETARECORD = packed record
  12231.     rdSize: DWORD;
  12232.     rdFunction: Word;
  12233.     rdParm: array[0..0] of Word;
  12234.   end;
  12235.   TMetaRecord = tagMETARECORD;
  12236.   {$EXTERNALSYM METARECORD}
  12237.   METARECORD = tagMETARECORD;
  12238.  
  12239.   PMetafilePict = ^TMetafilePict;
  12240.   {$EXTERNALSYM tagMETAFILEPICT}
  12241.   tagMETAFILEPICT = packed record
  12242.     mm: Longint;
  12243.     xExt: Longint;
  12244.     yExt: Longint;
  12245.     hMF: HMETAFILE;
  12246.   end;
  12247.   TMetafilePict = tagMETAFILEPICT;
  12248.   {$EXTERNALSYM METAFILEPICT}
  12249.   METAFILEPICT = tagMETAFILEPICT;
  12250.  
  12251.   PMetaHeader = ^TMetaHeader;
  12252.   {$EXTERNALSYM tagMETAHEADER}
  12253.   tagMETAHEADER = packed record
  12254.     mtType: Word;
  12255.     mtHeaderSize: Word;
  12256.     mtVersion: Word;
  12257.     mtSize: DWORD;
  12258.     mtNoObjects: Word;
  12259.     mtMaxRecord: DWORD;
  12260.     mtNoParameters: Word;
  12261.   end;
  12262.   TMetaHeader = tagMETAHEADER;
  12263.   {$EXTERNALSYM METAHEADER}
  12264.   METAHEADER = tagMETAHEADER;
  12265.  
  12266.   { Enhanced Metafile structures }
  12267.  
  12268.   PEnhMetaRecord = ^TEnhMetaRecord;
  12269.   {$EXTERNALSYM tagENHMETARECORD}
  12270.   tagENHMETARECORD = packed record
  12271.     iType: DWORD; { Record type EMR_XXX}
  12272.     nSize: DWORD; { Record size in bytes}
  12273.     dParm: array[0..0] of DWORD; { Parameters}
  12274.   end;
  12275.   TEnhMetaRecord = tagENHMETARECORD;
  12276.   {$EXTERNALSYM ENHMETARECORD}
  12277.   ENHMETARECORD = tagENHMETARECORD;
  12278.  
  12279.   PEnhMetaHeader = ^TEnhMetaHeader;
  12280.   {$EXTERNALSYM tagENHMETAHEADER}
  12281.   tagENHMETAHEADER = packed record
  12282.     iType: DWORD;          { Record type EMR_HEADER}
  12283.     nSize: DWORD;          { Record size in bytes.  This may be greater
  12284.                              than the sizeof(TEnhMetaHeader). }
  12285.     rclBounds: TRect;     { Inclusive-inclusive bounds in device units}
  12286.     rclFrame: TRect;      { Inclusive-inclusive Picture Frame of metafile in .01 mm units}
  12287.     dSignature: DWORD;     { Signature.  Must be ENHMETA_SIGNATURE.}
  12288.     nVersion: DWORD;       { Version number}
  12289.     nBytes: DWORD;         { Size of the metafile in bytes}
  12290.     nRecords: DWORD;       { Number of records in the metafile}
  12291.     nHandles: Word;        { Number of handles in the handle table
  12292.                              Handle index zero is reserved. }
  12293.     sReserved: Word;       { Reserved.  Must be zero.}
  12294.     nDescription: DWORD;   { Number of chars in the unicode description string
  12295.                              This is 0 if there is no description string }
  12296.     offDescription: DWORD; { Offset to the metafile description record. }
  12297.                            { This is 0 if there is no description string }
  12298.     nPalEntries: DWORD;    { Number of entries in the metafile palette.}
  12299.     szlDevice: TSize;      { Size of the reference device in pels}
  12300.     szlMillimeters: TSize; { Size of the reference device in millimeters}
  12301.     cbPixelFormat: DWORD;  { Size of TPixelFormatDescriptor information }
  12302.                            { This is 0 if no pixel format is set }
  12303.     offPixelFormat: DWORD; { Offset to TPixelFormatDescriptor }
  12304.                            { This is 0 if no pixel format is set }
  12305.     bOpenGL: DWORD;        { True if OpenGL commands are present in }
  12306.                            { the metafile, otherwise FALSE }
  12307.   end;
  12308.   TEnhMetaHeader = tagENHMETAHEADER;
  12309.   {$EXTERNALSYM ENHMETAHEADER}
  12310.   ENHMETAHEADER = tagENHMETAHEADER;
  12311.  
  12312. const
  12313.   { tmPitchAndFamily flags }
  12314.   {$EXTERNALSYM TMPF_FIXED_PITCH}
  12315.   TMPF_FIXED_PITCH = 1;
  12316.   {$EXTERNALSYM TMPF_VECTOR}
  12317.   TMPF_VECTOR = 2;
  12318.   {$EXTERNALSYM TMPF_DEVICE}
  12319.   TMPF_DEVICE = 8;
  12320.   {$EXTERNALSYM TMPF_TRUETYPE}
  12321.   TMPF_TRUETYPE = 4;
  12322.  
  12323. type
  12324.   PTextMetricA = ^TTextMetricA;
  12325.   PTextMetricW = ^TTextMetricW;
  12326.   PTextMetric = PTextMetricA;
  12327.   {$EXTERNALSYM tagTEXTMETRICA}
  12328.   tagTEXTMETRICA = record
  12329.     tmHeight: Longint;
  12330.     tmAscent: Longint;
  12331.     tmDescent: Longint;
  12332.     tmInternalLeading: Longint;
  12333.     tmExternalLeading: Longint;
  12334.     tmAveCharWidth: Longint;
  12335.     tmMaxCharWidth: Longint;
  12336.     tmWeight: Longint;
  12337.     tmOverhang: Longint;
  12338.     tmDigitizedAspectX: Longint;
  12339.     tmDigitizedAspectY: Longint;
  12340.     tmFirstChar: AnsiChar;
  12341.     tmLastChar: AnsiChar;
  12342.     tmDefaultChar: AnsiChar;
  12343.     tmBreakChar: AnsiChar;
  12344.     tmItalic: Byte;
  12345.     tmUnderlined: Byte;
  12346.     tmStruckOut: Byte;
  12347.     tmPitchAndFamily: Byte;
  12348.     tmCharSet: Byte;
  12349.   end;
  12350.   {$EXTERNALSYM tagTEXTMETRICW}
  12351.   tagTEXTMETRICW = record
  12352.     tmHeight: Longint;
  12353.     tmAscent: Longint;
  12354.     tmDescent: Longint;
  12355.     tmInternalLeading: Longint;
  12356.     tmExternalLeading: Longint;
  12357.     tmAveCharWidth: Longint;
  12358.     tmMaxCharWidth: Longint;
  12359.     tmWeight: Longint;
  12360.     tmOverhang: Longint;
  12361.     tmDigitizedAspectX: Longint;
  12362.     tmDigitizedAspectY: Longint;
  12363.     tmFirstChar: WideChar;
  12364.     tmLastChar: WideChar;
  12365.     tmDefaultChar: WideChar;
  12366.     tmBreakChar: WideChar;
  12367.     tmItalic: Byte;
  12368.     tmUnderlined: Byte;
  12369.     tmStruckOut: Byte;
  12370.     tmPitchAndFamily: Byte;
  12371.     tmCharSet: Byte;
  12372.   end;
  12373.   {$EXTERNALSYM tagTEXTMETRIC}
  12374.   tagTEXTMETRIC = tagTEXTMETRICA;
  12375.   TTextMetricA = tagTEXTMETRICA;
  12376.   TTextMetricW = tagTEXTMETRICW;
  12377.   TTextMetric = TTextMetricA;
  12378.   {$EXTERNALSYM TEXTMETRICA}
  12379.   TEXTMETRICA = tagTEXTMETRICA;
  12380.   {$EXTERNALSYM TEXTMETRICW}
  12381.   TEXTMETRICW = tagTEXTMETRICW;
  12382.   {$EXTERNALSYM TEXTMETRIC}
  12383.   TEXTMETRIC = TEXTMETRICA;
  12384.  
  12385. const
  12386.   { ntmFlags field flags }
  12387.   {$EXTERNALSYM NTM_REGULAR}
  12388.   NTM_REGULAR = $40;
  12389.   {$EXTERNALSYM NTM_BOLD}
  12390.   NTM_BOLD = $20;
  12391.   {$EXTERNALSYM NTM_ITALIC}
  12392.   NTM_ITALIC = 1;
  12393.  
  12394. type
  12395.   PNewTextMetricA = ^TNewTextMetricA;
  12396.   PNewTextMetricW = ^TNewTextMetricW;
  12397.   PNewTextMetric = PNewTextMetricA;
  12398.   {$EXTERNALSYM tagNEWTEXTMETRICA}
  12399.   tagNEWTEXTMETRICA = record
  12400.     tmHeight: Longint;
  12401.     tmAscent: Longint;
  12402.     tmDescent: Longint;
  12403.     tmInternalLeading: Longint;
  12404.     tmExternalLeading: Longint;
  12405.     tmAveCharWidth: Longint;
  12406.     tmMaxCharWidth: Longint;
  12407.     tmWeight: Longint;
  12408.     tmOverhang: Longint;
  12409.     tmDigitizedAspectX: Longint;
  12410.     tmDigitizedAspectY: Longint;
  12411.     tmFirstChar: AnsiChar;
  12412.     tmLastChar: AnsiChar;
  12413.     tmDefaultChar: AnsiChar;
  12414.     tmBreakChar: AnsiChar;
  12415.     tmItalic: Byte;
  12416.     tmUnderlined: Byte;
  12417.     tmStruckOut: Byte;
  12418.     tmPitchAndFamily: Byte;
  12419.     tmCharSet: Byte;
  12420.     ntmFlags: DWORD;
  12421.     ntmSizeEM: UINT;
  12422.     ntmCellHeight: UINT;
  12423.     ntmAvgWidth: UINT;
  12424.   end;
  12425.   {$EXTERNALSYM tagNEWTEXTMETRICW}
  12426.   tagNEWTEXTMETRICW = record
  12427.     tmHeight: Longint;
  12428.     tmAscent: Longint;
  12429.     tmDescent: Longint;
  12430.     tmInternalLeading: Longint;
  12431.     tmExternalLeading: Longint;
  12432.     tmAveCharWidth: Longint;
  12433.     tmMaxCharWidth: Longint;
  12434.     tmWeight: Longint;
  12435.     tmOverhang: Longint;
  12436.     tmDigitizedAspectX: Longint;
  12437.     tmDigitizedAspectY: Longint;
  12438.     tmFirstChar: WideChar;
  12439.     tmLastChar: WideChar;
  12440.     tmDefaultChar: WideChar;
  12441.     tmBreakChar: WideChar;
  12442.     tmItalic: Byte;
  12443.     tmUnderlined: Byte;
  12444.     tmStruckOut: Byte;
  12445.     tmPitchAndFamily: Byte;
  12446.     tmCharSet: Byte;
  12447.     ntmFlags: DWORD;
  12448.     ntmSizeEM: UINT;
  12449.     ntmCellHeight: UINT;
  12450.     ntmAvgWidth: UINT;
  12451.   end;
  12452.   {$EXTERNALSYM tagNEWTEXTMETRIC}
  12453.   tagNEWTEXTMETRIC = tagNEWTEXTMETRICA;
  12454.   TNewTextMetricA = tagNEWTEXTMETRICA;
  12455.   TNewTextMetricW = tagNEWTEXTMETRICW;
  12456.   TNewTextMetric = TNewTextMetricA;
  12457.   {$EXTERNALSYM NEWTEXTMETRICA}
  12458.   NEWTEXTMETRICA = tagNEWTEXTMETRICA;
  12459.   {$EXTERNALSYM NEWTEXTMETRICW}
  12460.   NEWTEXTMETRICW = tagNEWTEXTMETRICW;
  12461.   {$EXTERNALSYM NEWTEXTMETRIC}
  12462.   NEWTEXTMETRIC = NEWTEXTMETRICA;
  12463.  
  12464.   PNewTextMetricExA = ^TNewTextMetricExA;
  12465.   {$EXTERNALSYM tagNEWTEXTMETRICEXA}
  12466.   tagNEWTEXTMETRICEXA = packed record
  12467.     ntmTm: TNewTextMetricA;
  12468.     ntmFontSig: TFontSignature;
  12469.   end;
  12470.   TNewTextMetricExA = tagNEWTEXTMETRICEXA;
  12471.   {$EXTERNALSYM NEWTEXTMETRICEXA}
  12472.   NEWTEXTMETRICEXA = tagNEWTEXTMETRICEXA;
  12473.   PNewTextMetricExW = ^TNewTextMetricExW;
  12474.   {$EXTERNALSYM tagNEWTEXTMETRICEXW}
  12475.   tagNEWTEXTMETRICEXW = packed record
  12476.     ntmTm: TNewTextMetricW;
  12477.     ntmFontSig: TFontSignature;
  12478.   end;
  12479.   TNewTextMetricExW = tagNEWTEXTMETRICEXW;
  12480.   {$EXTERNALSYM NEWTEXTMETRICEXW}
  12481.   NEWTEXTMETRICEXW = tagNEWTEXTMETRICEXW;
  12482.   PNewTextMetricEx = PNewTextMetricExA;
  12483.  
  12484. { GDI Logical Objects: }
  12485.  
  12486.   { Pel Array }
  12487.   PPelArray = ^TPelArray;
  12488.   {$EXTERNALSYM tagPELARRAY}
  12489.   tagPELARRAY = record
  12490.     paXCount: Longint;
  12491.     paYCount: Longint;
  12492.     paXExt: Longint;
  12493.     paYExt: Longint;
  12494.     paRGBs: Byte;
  12495.   end;
  12496.   TPelArray = tagPELARRAY;
  12497.   {$EXTERNALSYM PELARRAY}
  12498.   PELARRAY = tagPELARRAY;
  12499.  
  12500.   { Logical Brush (or Pattern) }
  12501.   PLogBrush = ^TLogBrush;
  12502.   {$EXTERNALSYM tagLOGBRUSH}
  12503.   tagLOGBRUSH = packed record
  12504.     lbStyle: UINT;
  12505.     lbColor: COLORREF;
  12506.     lbHatch: Longint;
  12507.   end;
  12508.   TLogBrush = tagLOGBRUSH;
  12509.   {$EXTERNALSYM LOGBRUSH}
  12510.   LOGBRUSH = tagLOGBRUSH;
  12511.  
  12512.   PPattern = ^TPattern;
  12513.   TPattern = TLogBrush;
  12514.  
  12515.   { Logical Pen }
  12516.   PLogPen = ^TLogPen;
  12517.   {$EXTERNALSYM tagLOGPEN}
  12518.   tagLOGPEN = packed record
  12519.     lopnStyle: UINT;
  12520.     lopnWidth: TPoint;
  12521.     lopnColor: COLORREF;
  12522.   end;
  12523.   TLogPen = tagLOGPEN;
  12524.   {$EXTERNALSYM LOGPEN}
  12525.   LOGPEN = tagLOGPEN;
  12526.  
  12527.   PExtLogPen = ^TLogPen;
  12528.   {$EXTERNALSYM tagEXTLOGPEN}
  12529.   tagEXTLOGPEN = packed record
  12530.     elpPenStyle: DWORD;
  12531.     elpWidth: DWORD;
  12532.     elpBrushStyle: UINT;
  12533.     elpColor: COLORREF;
  12534.     elpHatch: Longint;
  12535.     elpNumEntries: DWORD;
  12536.     elpStyleEntry: array[0..0] of DWORD;
  12537.   end;
  12538.   TExtLogPen = tagEXTLOGPEN;
  12539.   {$EXTERNALSYM EXTLOGPEN}
  12540.   EXTLOGPEN = tagEXTLOGPEN;
  12541.  
  12542.   PPaletteEntry = ^TPaletteEntry;
  12543.   {$EXTERNALSYM tagPALETTEENTRY}
  12544.   tagPALETTEENTRY = packed record
  12545.     peRed: Byte;
  12546.     peGreen: Byte;
  12547.     peBlue: Byte;
  12548.     peFlags: Byte;
  12549.   end;
  12550.   TPaletteEntry = tagPALETTEENTRY;
  12551.   {$EXTERNALSYM PALETTEENTRY}
  12552.   PALETTEENTRY = tagPALETTEENTRY;
  12553.  
  12554.  
  12555.   { Logical Palette }
  12556.   PLogPalette = ^TLogPalette;
  12557.   {$EXTERNALSYM tagLOGPALETTE}
  12558.   tagLOGPALETTE = packed record
  12559.     palVersion: Word;
  12560.     palNumEntries: Word;
  12561.     palPalEntry: array[0..0] of TPaletteEntry;
  12562.   end;
  12563.   TLogPalette = tagLOGPALETTE;
  12564.   {$EXTERNALSYM LOGPALETTE}
  12565.   LOGPALETTE = tagLOGPALETTE;
  12566.  
  12567.   PMaxLogPalette = ^TMaxLogPalette; // not in Windows Headers
  12568.   TMaxLogPalette = packed record
  12569.     palVersion: Word;
  12570.     palNumEntries: Word;
  12571.     palPalEntry: array [Byte] of TPaletteEntry;
  12572.   end;
  12573.  
  12574. const
  12575.   { Logical Font }
  12576.   {$EXTERNALSYM LF_FACESIZE}
  12577.   LF_FACESIZE = 32;
  12578.  
  12579. type
  12580.   PLogFontA = ^TLogFontA;
  12581.   PLogFontW = ^TLogFontW;
  12582.   PLogFont = PLogFontA;
  12583.   {$EXTERNALSYM tagLOGFONTA}
  12584.   tagLOGFONTA = packed record
  12585.     lfHeight: Longint;
  12586.     lfWidth: Longint;
  12587.     lfEscapement: Longint;
  12588.     lfOrientation: Longint;
  12589.     lfWeight: Longint;
  12590.     lfItalic: Byte;
  12591.     lfUnderline: Byte;
  12592.     lfStrikeOut: Byte;
  12593.     lfCharSet: Byte;
  12594.     lfOutPrecision: Byte;
  12595.     lfClipPrecision: Byte;
  12596.     lfQuality: Byte;
  12597.     lfPitchAndFamily: Byte;
  12598.     lfFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;
  12599.   end;
  12600.   {$EXTERNALSYM tagLOGFONTW}
  12601.   tagLOGFONTW = packed record
  12602.     lfHeight: Longint;
  12603.     lfWidth: Longint;
  12604.     lfEscapement: Longint;
  12605.     lfOrientation: Longint;
  12606.     lfWeight: Longint;
  12607.     lfItalic: Byte;
  12608.     lfUnderline: Byte;
  12609.     lfStrikeOut: Byte;
  12610.     lfCharSet: Byte;
  12611.     lfOutPrecision: Byte;
  12612.     lfClipPrecision: Byte;
  12613.     lfQuality: Byte;
  12614.     lfPitchAndFamily: Byte;
  12615.     lfFaceName: array[0..LF_FACESIZE - 1] of WideChar;
  12616.   end;
  12617.   {$EXTERNALSYM tagLOGFONT}
  12618.   tagLOGFONT = tagLOGFONTA;
  12619.   TLogFontA = tagLOGFONTA;
  12620.   TLogFontW = tagLOGFONTW;
  12621.   TLogFont = TLogFontA;
  12622.   {$EXTERNALSYM LOGFONTA}
  12623.   LOGFONTA = tagLOGFONTA;
  12624.   {$EXTERNALSYM LOGFONTW}
  12625.   LOGFONTW = tagLOGFONTW;
  12626.   {$EXTERNALSYM LOGFONT}
  12627.   LOGFONT = LOGFONTA;
  12628.  
  12629. const
  12630.   {$EXTERNALSYM LF_FULLFACESIZE}
  12631.   LF_FULLFACESIZE = 64;
  12632.  
  12633. type
  12634.   { Structure passed to FONTENUMPROC }
  12635.   PEnumLogFontA = ^TEnumLogFontA;
  12636.   PEnumLogFontW = ^TEnumLogFontW;
  12637.   PEnumLogFont = PEnumLogFontA;
  12638.   {$EXTERNALSYM tagENUMLOGFONTA}
  12639.   tagENUMLOGFONTA = packed record
  12640.     elfLogFont: TLogFontA;
  12641.     elfFullName: array[0..LF_FULLFACESIZE - 1] of AnsiChar;
  12642.     elfStyle: array[0..LF_FACESIZE - 1] of AnsiChar;
  12643.   end;
  12644.   {$EXTERNALSYM tagENUMLOGFONTW}
  12645.   tagENUMLOGFONTW = packed record
  12646.     elfLogFont: TLogFontW;
  12647.     elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;
  12648.     elfStyle: array[0..LF_FACESIZE - 1] of WideChar;
  12649.   end;
  12650.   {$EXTERNALSYM tagENUMLOGFONT}
  12651.   tagENUMLOGFONT = tagENUMLOGFONTA;
  12652.   TEnumLogFontA = tagENUMLOGFONTA;
  12653.   TEnumLogFontW = tagENUMLOGFONTW;
  12654.   TEnumLogFont = TEnumLogFontA;
  12655.   {$EXTERNALSYM ENUMLOGFONTA}
  12656.   ENUMLOGFONTA = tagENUMLOGFONTA;
  12657.   {$EXTERNALSYM ENUMLOGFONTW}
  12658.   ENUMLOGFONTW = tagENUMLOGFONTW;
  12659.   {$EXTERNALSYM ENUMLOGFONT}
  12660.   ENUMLOGFONT = ENUMLOGFONTA;
  12661.  
  12662.   PEnumLogFontExA = ^TEnumLogFontExA;
  12663.   PEnumLogFontExW = ^TEnumLogFontExW;
  12664.   PEnumLogFontEx = PEnumLogFontExA;
  12665.   {$EXTERNALSYM tagENUMLOGFONTEXA}
  12666.   tagENUMLOGFONTEXA = packed record
  12667.     elfLogFont: TLogFontA;
  12668.     elfFullName: array[0..LF_FULLFACESIZE - 1] of AnsiChar;
  12669.     elfStyle: array[0..LF_FACESIZE - 1] of AnsiChar;
  12670.     elfScript: array[0..LF_FACESIZE - 1] of AnsiChar;
  12671.   end;
  12672.   {$EXTERNALSYM tagENUMLOGFONTEXW}
  12673.   tagENUMLOGFONTEXW = packed record
  12674.     elfLogFont: TLogFontW;
  12675.     elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;
  12676.     elfStyle: array[0..LF_FACESIZE - 1] of WideChar;
  12677.     elfScript: array[0..LF_FACESIZE - 1] of WideChar;
  12678.   end;
  12679.   {$EXTERNALSYM tagENUMLOGFONTEX}
  12680.   tagENUMLOGFONTEX = tagENUMLOGFONTEXA;
  12681.   TEnumLogFontExA = tagENUMLOGFONTEXA;
  12682.   TEnumLogFontExW = tagENUMLOGFONTEXW;
  12683.   TEnumLogFontEx = TEnumLogFontExA;
  12684.   {$EXTERNALSYM ENUMLOGFONTEXA}
  12685.   ENUMLOGFONTEXA = tagENUMLOGFONTEXA;
  12686.   {$EXTERNALSYM ENUMLOGFONTEXW}
  12687.   ENUMLOGFONTEXW = tagENUMLOGFONTEXW;
  12688.   {$EXTERNALSYM ENUMLOGFONTEX}
  12689.   ENUMLOGFONTEX = ENUMLOGFONTEXA;
  12690.  
  12691. const
  12692.   {$EXTERNALSYM OUT_DEFAULT_PRECIS}
  12693.   OUT_DEFAULT_PRECIS = 0;
  12694.   {$EXTERNALSYM OUT_STRING_PRECIS}
  12695.   OUT_STRING_PRECIS = 1;
  12696.   {$EXTERNALSYM OUT_CHARACTER_PRECIS}
  12697.   OUT_CHARACTER_PRECIS = 2;
  12698.   {$EXTERNALSYM OUT_STROKE_PRECIS}
  12699.   OUT_STROKE_PRECIS = 3;
  12700.   {$EXTERNALSYM OUT_TT_PRECIS}
  12701.   OUT_TT_PRECIS = 4;
  12702.   {$EXTERNALSYM OUT_DEVICE_PRECIS}
  12703.   OUT_DEVICE_PRECIS = 5;
  12704.   {$EXTERNALSYM OUT_RASTER_PRECIS}
  12705.   OUT_RASTER_PRECIS = 6;
  12706.   {$EXTERNALSYM OUT_TT_ONLY_PRECIS}
  12707.   OUT_TT_ONLY_PRECIS = 7;
  12708.   {$EXTERNALSYM OUT_OUTLINE_PRECIS}
  12709.   OUT_OUTLINE_PRECIS = 8;
  12710.   {$EXTERNALSYM OUT_SCREEN_OUTLINE_PRECIS}
  12711.   OUT_SCREEN_OUTLINE_PRECIS = 9;
  12712.  
  12713.   {$EXTERNALSYM CLIP_DEFAULT_PRECIS}
  12714.   CLIP_DEFAULT_PRECIS = 0;
  12715.   {$EXTERNALSYM CLIP_CHARACTER_PRECIS}
  12716.   CLIP_CHARACTER_PRECIS = 1;
  12717.   {$EXTERNALSYM CLIP_STROKE_PRECIS}
  12718.   CLIP_STROKE_PRECIS = 2;
  12719.   {$EXTERNALSYM CLIP_MASK}
  12720.   CLIP_MASK = 15;
  12721.   {$EXTERNALSYM CLIP_LH_ANGLES}
  12722.   CLIP_LH_ANGLES = (1 shl 4);
  12723.   {$EXTERNALSYM CLIP_TT_ALWAYS}
  12724.   CLIP_TT_ALWAYS = (2 shl 4);
  12725.   {$EXTERNALSYM CLIP_EMBEDDED}
  12726.   CLIP_EMBEDDED  = (8 shl 4);
  12727.  
  12728.   {$EXTERNALSYM DEFAULT_QUALITY}
  12729.   DEFAULT_QUALITY = 0;
  12730.   {$EXTERNALSYM DRAFT_QUALITY}
  12731.   DRAFT_QUALITY = 1;
  12732.   {$EXTERNALSYM PROOF_QUALITY}
  12733.   PROOF_QUALITY = 2;
  12734.   {$EXTERNALSYM NONANTIALIASED_QUALITY}
  12735.   NONANTIALIASED_QUALITY = 3;
  12736.   {$EXTERNALSYM ANTIALIASED_QUALITY}
  12737.   ANTIALIASED_QUALITY = 4;
  12738.  
  12739.   {$EXTERNALSYM DEFAULT_PITCH}
  12740.   DEFAULT_PITCH = 0;
  12741.   {$EXTERNALSYM FIXED_PITCH}
  12742.   FIXED_PITCH = 1;
  12743.   {$EXTERNALSYM VARIABLE_PITCH}
  12744.   VARIABLE_PITCH = 2;
  12745.   {$EXTERNALSYM MONO_FONT}
  12746.   MONO_FONT = 8;
  12747.  
  12748.   {$EXTERNALSYM ANSI_CHARSET}
  12749.   ANSI_CHARSET = 0;
  12750.   {$EXTERNALSYM DEFAULT_CHARSET}
  12751.   DEFAULT_CHARSET = 1;
  12752.   {$EXTERNALSYM SYMBOL_CHARSET}
  12753.   SYMBOL_CHARSET = 2;
  12754.   {$EXTERNALSYM SHIFTJIS_CHARSET}
  12755.   SHIFTJIS_CHARSET = $80;
  12756.   {$EXTERNALSYM HANGEUL_CHARSET}
  12757.   HANGEUL_CHARSET = 129;
  12758.   {$EXTERNALSYM GB2312_CHARSET}
  12759.   GB2312_CHARSET = 134;
  12760.   {$EXTERNALSYM CHINESEBIG5_CHARSET}
  12761.   CHINESEBIG5_CHARSET = 136;
  12762.   {$EXTERNALSYM OEM_CHARSET}
  12763.   OEM_CHARSET = 255;
  12764.   {$EXTERNALSYM JOHAB_CHARSET}
  12765.   JOHAB_CHARSET = 130;
  12766.   {$EXTERNALSYM HEBREW_CHARSET}
  12767.   HEBREW_CHARSET = 177;
  12768.   {$EXTERNALSYM ARABIC_CHARSET}
  12769.   ARABIC_CHARSET = 178;
  12770.   {$EXTERNALSYM GREEK_CHARSET}
  12771.   GREEK_CHARSET = 161;
  12772.   {$EXTERNALSYM TURKISH_CHARSET}
  12773.   TURKISH_CHARSET = 162;
  12774.   {$EXTERNALSYM VIETNAMESE_CHARSET}
  12775.   VIETNAMESE_CHARSET = 163;
  12776.   {$EXTERNALSYM THAI_CHARSET}
  12777.   THAI_CHARSET = 222;
  12778.   {$EXTERNALSYM EASTEUROPE_CHARSET}
  12779.   EASTEUROPE_CHARSET = 238;
  12780.   {$EXTERNALSYM RUSSIAN_CHARSET}
  12781.   RUSSIAN_CHARSET = 204;
  12782.  
  12783.   {$EXTERNALSYM MAC_CHARSET}
  12784.   MAC_CHARSET = 77;
  12785.   {$EXTERNALSYM BALTIC_CHARSET}
  12786.   BALTIC_CHARSET = 186;
  12787.  
  12788.   {$EXTERNALSYM FS_LATIN1}
  12789.   FS_LATIN1 = 1;
  12790.   {$EXTERNALSYM FS_LATIN2}
  12791.   FS_LATIN2 = 2;
  12792.   {$EXTERNALSYM FS_CYRILLIC}
  12793.   FS_CYRILLIC = 4;
  12794.   {$EXTERNALSYM FS_GREEK}
  12795.   FS_GREEK = 8;
  12796.   {$EXTERNALSYM FS_TURKISH}
  12797.   FS_TURKISH = $10;
  12798.   {$EXTERNALSYM FS_HEBREW}
  12799.   FS_HEBREW = $20;
  12800.   {$EXTERNALSYM FS_ARABIC}
  12801.   FS_ARABIC = $40;
  12802.   {$EXTERNALSYM FS_BALTIC}
  12803.   FS_BALTIC = $80;
  12804.   {$EXTERNALSYM FS_VIETNAMESE}
  12805.   FS_VIETNAMESE = $00000100;
  12806.   {$EXTERNALSYM FS_THAI}
  12807.   FS_THAI = $10000;
  12808.   {$EXTERNALSYM FS_JISJAPAN}
  12809.   FS_JISJAPAN = $20000;
  12810.   {$EXTERNALSYM FS_CHINESESIMP}
  12811.   FS_CHINESESIMP = $40000;
  12812.   {$EXTERNALSYM FS_WANSUNG}
  12813.   FS_WANSUNG = $80000;
  12814.   {$EXTERNALSYM FS_CHINESETRAD}
  12815.   FS_CHINESETRAD = $100000;
  12816.   {$EXTERNALSYM FS_JOHAB}
  12817.   FS_JOHAB = $200000;
  12818.   {$EXTERNALSYM FS_SYMBOL}
  12819.   FS_SYMBOL = DWORD($80000000);
  12820.  
  12821.   { Font Families }
  12822.   {$EXTERNALSYM FF_DONTCARE}
  12823.   FF_DONTCARE   = (0 shl 4);     { Don't care or don't know. }
  12824.   {$EXTERNALSYM FF_ROMAN}
  12825.   FF_ROMAN      = (1 shl 4);     { Variable stroke width, serifed. }
  12826.                                  { Times Roman, Century Schoolbook, etc. }
  12827.   {$EXTERNALSYM FF_SWISS}
  12828.   FF_SWISS      = (2 shl 4);     { Variable stroke width, sans-serifed. }
  12829.                                  { Helvetica, Swiss, etc. }
  12830.   {$EXTERNALSYM FF_MODERN}
  12831.   FF_MODERN     = (3 shl 4);     { Constant stroke width, serifed or sans-serifed. }
  12832.                                  { Pica, Elite, Courier, etc. }
  12833.   {$EXTERNALSYM FF_SCRIPT}
  12834.   FF_SCRIPT     = (4 shl 4);     { Cursive, etc. }
  12835.   {$EXTERNALSYM FF_DECORATIVE}
  12836.   FF_DECORATIVE = (5 shl 4);     { Old English, etc. }
  12837.  
  12838.   { Font Weights }
  12839.   {$EXTERNALSYM FW_DONTCARE}
  12840.   FW_DONTCARE = 0;
  12841.   {$EXTERNALSYM FW_THIN}
  12842.   FW_THIN = 100;
  12843.   {$EXTERNALSYM FW_EXTRALIGHT}
  12844.   FW_EXTRALIGHT = 200;
  12845.   {$EXTERNALSYM FW_LIGHT}
  12846.   FW_LIGHT = 300;
  12847.   {$EXTERNALSYM FW_NORMAL}
  12848.   FW_NORMAL = 400;
  12849.   {$EXTERNALSYM FW_MEDIUM}
  12850.   FW_MEDIUM = 500;
  12851.   {$EXTERNALSYM FW_SEMIBOLD}
  12852.   FW_SEMIBOLD = 600;
  12853.   {$EXTERNALSYM FW_BOLD}
  12854.   FW_BOLD = 700;
  12855.   {$EXTERNALSYM FW_EXTRABOLD}
  12856.   FW_EXTRABOLD = 800;
  12857.   {$EXTERNALSYM FW_HEAVY}
  12858.   FW_HEAVY = 900;
  12859.   {$EXTERNALSYM FW_ULTRALIGHT}
  12860.   FW_ULTRALIGHT = FW_EXTRALIGHT;
  12861.   {$EXTERNALSYM FW_REGULAR}
  12862.   FW_REGULAR = FW_NORMAL;
  12863.   {$EXTERNALSYM FW_DEMIBOLD}
  12864.   FW_DEMIBOLD = FW_SEMIBOLD;
  12865.   {$EXTERNALSYM FW_ULTRABOLD}
  12866.   FW_ULTRABOLD = FW_EXTRABOLD;
  12867.   {$EXTERNALSYM FW_BLACK}
  12868.   FW_BLACK = FW_HEAVY;
  12869.  
  12870.   {$EXTERNALSYM PANOSE_COUNT}
  12871.   PANOSE_COUNT = 10;
  12872.   {$EXTERNALSYM PAN_FAMILYTYPE_INDEX}
  12873.   PAN_FAMILYTYPE_INDEX = 0;
  12874.   {$EXTERNALSYM PAN_SERIFSTYLE_INDEX}
  12875.   PAN_SERIFSTYLE_INDEX = 1;
  12876.   {$EXTERNALSYM PAN_WEIGHT_INDEX}
  12877.   PAN_WEIGHT_INDEX = 2;
  12878.   {$EXTERNALSYM PAN_PROPORTION_INDEX}
  12879.   PAN_PROPORTION_INDEX = 3;
  12880.   {$EXTERNALSYM PAN_CONTRAST_INDEX}
  12881.   PAN_CONTRAST_INDEX = 4;
  12882.   {$EXTERNALSYM PAN_STROKEVARIATION_INDEX}
  12883.   PAN_STROKEVARIATION_INDEX = 5;
  12884.   {$EXTERNALSYM PAN_ARMSTYLE_INDEX}
  12885.   PAN_ARMSTYLE_INDEX = 6;
  12886.   {$EXTERNALSYM PAN_LETTERFORM_INDEX}
  12887.   PAN_LETTERFORM_INDEX = 7;
  12888.   {$EXTERNALSYM PAN_MIDLINE_INDEX}
  12889.   PAN_MIDLINE_INDEX = 8;
  12890.   {$EXTERNALSYM PAN_XHEIGHT_INDEX}
  12891.   PAN_XHEIGHT_INDEX = 9;
  12892.  
  12893.   {$EXTERNALSYM PAN_CULTURE_LATIN}
  12894.   PAN_CULTURE_LATIN = 0;
  12895.  
  12896. type
  12897.   PPanose = ^TPanose;
  12898.   {$EXTERNALSYM tagPANOSE}
  12899.   tagPANOSE = packed record
  12900.     bFamilyType: Byte;
  12901.     bSerifStyle: Byte;
  12902.     bWeight: Byte;
  12903.     bProportion: Byte;
  12904.     bContrast: Byte;
  12905.     bStrokeVariation: Byte;
  12906.     bArmStyle: Byte;
  12907.     bLetterform: Byte;
  12908.     bMidline: Byte;
  12909.     bXHeight: Byte;
  12910.   end;
  12911.   TPanose = tagPANOSE;
  12912.   {$EXTERNALSYM PANOSE}
  12913.   PANOSE = tagPANOSE;
  12914.  
  12915. const
  12916.   {$EXTERNALSYM PAN_ANY}
  12917.   PAN_ANY = 0;
  12918.   {$EXTERNALSYM PAN_NO_FIT}
  12919.   PAN_NO_FIT = 1;
  12920.  
  12921.   {$EXTERNALSYM PAN_FAMILY_TEXT_DISPLAY}
  12922.   PAN_FAMILY_TEXT_DISPLAY = 2;
  12923.   {$EXTERNALSYM PAN_FAMILY_SCRIPT}
  12924.   PAN_FAMILY_SCRIPT = 3;
  12925.   {$EXTERNALSYM PAN_FAMILY_DECORATIVE}
  12926.   PAN_FAMILY_DECORATIVE = 4;
  12927.   {$EXTERNALSYM PAN_FAMILY_PICTORIAL}
  12928.   PAN_FAMILY_PICTORIAL = 5;
  12929.  
  12930.   {$EXTERNALSYM PAN_SERIF_COVE}
  12931.   PAN_SERIF_COVE = 2;
  12932.   {$EXTERNALSYM PAN_SERIF_OBTUSE_COVE}
  12933.   PAN_SERIF_OBTUSE_COVE = 3;
  12934.   {$EXTERNALSYM PAN_SERIF_SQUARE_COVE}
  12935.   PAN_SERIF_SQUARE_COVE = 4;
  12936.   {$EXTERNALSYM PAN_SERIF_OBTUSE_SQUARE_COVE}
  12937.   PAN_SERIF_OBTUSE_SQUARE_COVE = 5;
  12938.   {$EXTERNALSYM PAN_SERIF_SQUARE}
  12939.   PAN_SERIF_SQUARE = 6;
  12940.   {$EXTERNALSYM PAN_SERIF_THIN}
  12941.   PAN_SERIF_THIN = 7;
  12942.   {$EXTERNALSYM PAN_SERIF_BONE}
  12943.   PAN_SERIF_BONE = 8;
  12944.   {$EXTERNALSYM PAN_SERIF_EXAGGERATED}
  12945.   PAN_SERIF_EXAGGERATED = 9;
  12946.   {$EXTERNALSYM PAN_SERIF_TRIANGLE}
  12947.   PAN_SERIF_TRIANGLE = 10;
  12948.   {$EXTERNALSYM PAN_SERIF_NORMAL_SANS}
  12949.   PAN_SERIF_NORMAL_SANS = 11;
  12950.   {$EXTERNALSYM PAN_SERIF_OBTUSE_SANS}
  12951.   PAN_SERIF_OBTUSE_SANS = 12;
  12952.   {$EXTERNALSYM PAN_SERIF_PERP_SANS}
  12953.   PAN_SERIF_PERP_SANS = 13;
  12954.   {$EXTERNALSYM PAN_SERIF_FLARED}
  12955.   PAN_SERIF_FLARED = 14;
  12956.   {$EXTERNALSYM PAN_SERIF_ROUNDED}
  12957.   PAN_SERIF_ROUNDED = 15;
  12958.  
  12959.   {$EXTERNALSYM PAN_WEIGHT_VERY_LIGHT}
  12960.   PAN_WEIGHT_VERY_LIGHT = 2;
  12961.   {$EXTERNALSYM PAN_WEIGHT_LIGHT}
  12962.   PAN_WEIGHT_LIGHT = 3;
  12963.   {$EXTERNALSYM PAN_WEIGHT_THIN}
  12964.   PAN_WEIGHT_THIN = 4;
  12965.   {$EXTERNALSYM PAN_WEIGHT_BOOK}
  12966.   PAN_WEIGHT_BOOK = 5;
  12967.   {$EXTERNALSYM PAN_WEIGHT_MEDIUM}
  12968.   PAN_WEIGHT_MEDIUM = 6;
  12969.   {$EXTERNALSYM PAN_WEIGHT_DEMI}
  12970.   PAN_WEIGHT_DEMI = 7;
  12971.   {$EXTERNALSYM PAN_WEIGHT_BOLD}
  12972.   PAN_WEIGHT_BOLD = 8;
  12973.   {$EXTERNALSYM PAN_WEIGHT_HEAVY}
  12974.   PAN_WEIGHT_HEAVY = 9;
  12975.   {$EXTERNALSYM PAN_WEIGHT_BLACK}
  12976.   PAN_WEIGHT_BLACK = 10;
  12977.   {$EXTERNALSYM PAN_WEIGHT_NORD}
  12978.   PAN_WEIGHT_NORD = 11;
  12979.  
  12980.   {$EXTERNALSYM PAN_PROP_OLD_STYLE}
  12981.   PAN_PROP_OLD_STYLE = 2;
  12982.   {$EXTERNALSYM PAN_PROP_MODERN}
  12983.   PAN_PROP_MODERN = 3;
  12984.   {$EXTERNALSYM PAN_PROP_EVEN_WIDTH}
  12985.   PAN_PROP_EVEN_WIDTH = 4;
  12986.   {$EXTERNALSYM PAN_PROP_EXPANDED}
  12987.   PAN_PROP_EXPANDED = 5;
  12988.   {$EXTERNALSYM PAN_PROP_CONDENSED}
  12989.   PAN_PROP_CONDENSED = 6;
  12990.   {$EXTERNALSYM PAN_PROP_VERY_EXPANDED}
  12991.   PAN_PROP_VERY_EXPANDED = 7;
  12992.   {$EXTERNALSYM PAN_PROP_VERY_CONDENSED}
  12993.   PAN_PROP_VERY_CONDENSED = 8;
  12994.   {$EXTERNALSYM PAN_PROP_MONOSPACED}
  12995.   PAN_PROP_MONOSPACED = 9;
  12996.  
  12997.   {$EXTERNALSYM PAN_CONTRAST_NONE}
  12998.   PAN_CONTRAST_NONE = 2;
  12999.   {$EXTERNALSYM PAN_CONTRAST_VERY_LOW}
  13000.   PAN_CONTRAST_VERY_LOW = 3;
  13001.   {$EXTERNALSYM PAN_CONTRAST_LOW}
  13002.   PAN_CONTRAST_LOW = 4;
  13003.   {$EXTERNALSYM PAN_CONTRAST_MEDIUM_LOW}
  13004.   PAN_CONTRAST_MEDIUM_LOW = 5;
  13005.   {$EXTERNALSYM PAN_CONTRAST_MEDIUM}
  13006.   PAN_CONTRAST_MEDIUM = 6;
  13007.   {$EXTERNALSYM PAN_CONTRAST_MEDIUM_HIGH}
  13008.   PAN_CONTRAST_MEDIUM_HIGH = 7;
  13009.   {$EXTERNALSYM PAN_CONTRAST_HIGH}
  13010.   PAN_CONTRAST_HIGH = 8;
  13011.   {$EXTERNALSYM PAN_CONTRAST_VERY_HIGH}
  13012.   PAN_CONTRAST_VERY_HIGH = 9;
  13013.  
  13014.   {$EXTERNALSYM PAN_STROKE_GRADUAL_DIAG}
  13015.   PAN_STROKE_GRADUAL_DIAG = 2;
  13016.   {$EXTERNALSYM PAN_STROKE_GRADUAL_TRAN}
  13017.   PAN_STROKE_GRADUAL_TRAN = 3;
  13018.   {$EXTERNALSYM PAN_STROKE_GRADUAL_VERT}
  13019.   PAN_STROKE_GRADUAL_VERT = 4;
  13020.   {$EXTERNALSYM PAN_STROKE_GRADUAL_HORZ}
  13021.   PAN_STROKE_GRADUAL_HORZ = 5;
  13022.   {$EXTERNALSYM PAN_STROKE_RAPID_VERT}
  13023.   PAN_STROKE_RAPID_VERT = 6;
  13024.   {$EXTERNALSYM PAN_STROKE_RAPID_HORZ}
  13025.   PAN_STROKE_RAPID_HORZ = 7;
  13026.   {$EXTERNALSYM PAN_STROKE_INSTANT_VERT}
  13027.   PAN_STROKE_INSTANT_VERT = 8;
  13028.  
  13029.   {$EXTERNALSYM PAN_STRAIGHT_ARMS_HORZ}
  13030.   PAN_STRAIGHT_ARMS_HORZ = 2;
  13031.   {$EXTERNALSYM PAN_STRAIGHT_ARMS_WEDGE}
  13032.   PAN_STRAIGHT_ARMS_WEDGE = 3;
  13033.   {$EXTERNALSYM PAN_STRAIGHT_ARMS_VERT}
  13034.   PAN_STRAIGHT_ARMS_VERT = 4;
  13035.   {$EXTERNALSYM PAN_STRAIGHT_ARMS_SINGLE_SERIF}
  13036.   PAN_STRAIGHT_ARMS_SINGLE_SERIF = 5;
  13037.   {$EXTERNALSYM PAN_STRAIGHT_ARMS_DOUBLE_SERIF}
  13038.   PAN_STRAIGHT_ARMS_DOUBLE_SERIF = 6;
  13039.   {$EXTERNALSYM PAN_BENT_ARMS_HORZ}
  13040.   PAN_BENT_ARMS_HORZ = 7;
  13041.   {$EXTERNALSYM PAN_BENT_ARMS_WEDGE}
  13042.   PAN_BENT_ARMS_WEDGE = 8;
  13043.   {$EXTERNALSYM PAN_BENT_ARMS_VERT}
  13044.   PAN_BENT_ARMS_VERT = 9;
  13045.   {$EXTERNALSYM PAN_BENT_ARMS_SINGLE_SERIF}
  13046.   PAN_BENT_ARMS_SINGLE_SERIF = 10;
  13047.   {$EXTERNALSYM PAN_BENT_ARMS_DOUBLE_SERIF}
  13048.   PAN_BENT_ARMS_DOUBLE_SERIF = 11;
  13049.  
  13050.   {$EXTERNALSYM PAN_LETT_NORMAL_CONTACT}
  13051.   PAN_LETT_NORMAL_CONTACT = 2;
  13052.   {$EXTERNALSYM PAN_LETT_NORMAL_WEIGHTED}
  13053.   PAN_LETT_NORMAL_WEIGHTED = 3;
  13054.   {$EXTERNALSYM PAN_LETT_NORMAL_BOXED}
  13055.   PAN_LETT_NORMAL_BOXED = 4;
  13056.   {$EXTERNALSYM PAN_LETT_NORMAL_FLATTENED}
  13057.   PAN_LETT_NORMAL_FLATTENED = 5;
  13058.   {$EXTERNALSYM PAN_LETT_NORMAL_ROUNDED}
  13059.   PAN_LETT_NORMAL_ROUNDED = 6;
  13060.   {$EXTERNALSYM PAN_LETT_NORMAL_OFF_CENTER}
  13061.   PAN_LETT_NORMAL_OFF_CENTER = 7;
  13062.   {$EXTERNALSYM PAN_LETT_NORMAL_SQUARE}
  13063.   PAN_LETT_NORMAL_SQUARE = 8;
  13064.   {$EXTERNALSYM PAN_LETT_OBLIQUE_CONTACT}
  13065.   PAN_LETT_OBLIQUE_CONTACT = 9;
  13066.   {$EXTERNALSYM PAN_LETT_OBLIQUE_WEIGHTED}
  13067.   PAN_LETT_OBLIQUE_WEIGHTED = 10;
  13068.   {$EXTERNALSYM PAN_LETT_OBLIQUE_BOXED}
  13069.   PAN_LETT_OBLIQUE_BOXED = 11;
  13070.   {$EXTERNALSYM PAN_LETT_OBLIQUE_FLATTENED}
  13071.   PAN_LETT_OBLIQUE_FLATTENED = 12;
  13072.   {$EXTERNALSYM PAN_LETT_OBLIQUE_ROUNDED}
  13073.   PAN_LETT_OBLIQUE_ROUNDED = 13;
  13074.   {$EXTERNALSYM PAN_LETT_OBLIQUE_OFF_CENTER}
  13075.   PAN_LETT_OBLIQUE_OFF_CENTER = 14;
  13076.   {$EXTERNALSYM PAN_LETT_OBLIQUE_SQUARE}
  13077.   PAN_LETT_OBLIQUE_SQUARE = 15;
  13078.  
  13079.   {$EXTERNALSYM PAN_MIDLINE_STANDARD_TRIMMED}
  13080.   PAN_MIDLINE_STANDARD_TRIMMED = 2;
  13081.   {$EXTERNALSYM PAN_MIDLINE_STANDARD_POINTED}
  13082.   PAN_MIDLINE_STANDARD_POINTED = 3;
  13083.   {$EXTERNALSYM PAN_MIDLINE_STANDARD_SERIFED}
  13084.   PAN_MIDLINE_STANDARD_SERIFED = 4;
  13085.   {$EXTERNALSYM PAN_MIDLINE_HIGH_TRIMMED}
  13086.   PAN_MIDLINE_HIGH_TRIMMED = 5;
  13087.   {$EXTERNALSYM PAN_MIDLINE_HIGH_POINTED}
  13088.   PAN_MIDLINE_HIGH_POINTED = 6;
  13089.   {$EXTERNALSYM PAN_MIDLINE_HIGH_SERIFED}
  13090.   PAN_MIDLINE_HIGH_SERIFED = 7;
  13091.   {$EXTERNALSYM PAN_MIDLINE_CONSTANT_TRIMMED}
  13092.   PAN_MIDLINE_CONSTANT_TRIMMED = 8;
  13093.   {$EXTERNALSYM PAN_MIDLINE_CONSTANT_POINTED}
  13094.   PAN_MIDLINE_CONSTANT_POINTED = 9;
  13095.   {$EXTERNALSYM PAN_MIDLINE_CONSTANT_SERIFED}
  13096.   PAN_MIDLINE_CONSTANT_SERIFED = 10;
  13097.   {$EXTERNALSYM PAN_MIDLINE_LOW_TRIMMED}
  13098.   PAN_MIDLINE_LOW_TRIMMED = 11;
  13099.   {$EXTERNALSYM PAN_MIDLINE_LOW_POINTED}
  13100.   PAN_MIDLINE_LOW_POINTED = 12;
  13101.   {$EXTERNALSYM PAN_MIDLINE_LOW_SERIFED}
  13102.   PAN_MIDLINE_LOW_SERIFED = 13;
  13103.  
  13104.   {$EXTERNALSYM PAN_XHEIGHT_CONSTANT_SMALL}
  13105.   PAN_XHEIGHT_CONSTANT_SMALL = 2;
  13106.   {$EXTERNALSYM PAN_XHEIGHT_CONSTANT_STD}
  13107.   PAN_XHEIGHT_CONSTANT_STD = 3;
  13108.   {$EXTERNALSYM PAN_XHEIGHT_CONSTANT_LARGE}
  13109.   PAN_XHEIGHT_CONSTANT_LARGE = 4;
  13110.   {$EXTERNALSYM PAN_XHEIGHT_DUCKING_SMALL}
  13111.   PAN_XHEIGHT_DUCKING_SMALL = 5;
  13112.   {$EXTERNALSYM PAN_XHEIGHT_DUCKING_STD}
  13113.   PAN_XHEIGHT_DUCKING_STD = 6;
  13114.   {$EXTERNALSYM PAN_XHEIGHT_DUCKING_LARGE}
  13115.   PAN_XHEIGHT_DUCKING_LARGE = 7;
  13116.  
  13117.   {$EXTERNALSYM ELF_VENDOR_SIZE}
  13118.   ELF_VENDOR_SIZE = 4;
  13119.  
  13120. { The extended logical font       }
  13121. { An extension of the ENUMLOGFONT }
  13122.  
  13123. type
  13124.   PExtLogFontA = ^TExtLogFontA;
  13125.   PExtLogFontW = ^TExtLogFontW;
  13126.   PExtLogFont = PExtLogFontA;
  13127.   {$EXTERNALSYM tagEXTLOGFONTA}
  13128.   tagEXTLOGFONTA = record
  13129.     elfLogFont: TLogFontA;
  13130.     elfFullName: array[0..LF_FULLFACESIZE - 1] of AnsiChar;
  13131.     elfStyle: array[0..LF_FACESIZE - 1] of AnsiChar;
  13132.     elfVersion: DWORD;     { 0 for the first release of NT }
  13133.     elfStyleSize: DWORD;
  13134.     elfMatch: DWORD;
  13135.     elfReserved: DWORD;
  13136.     elfVendorId: array[0..ELF_VENDOR_SIZE - 1] of Byte;
  13137.     elfCulture: DWORD;     { 0 for Latin }
  13138.     elfPanose: TPanose;
  13139.   end;
  13140.   {$EXTERNALSYM tagEXTLOGFONTW}
  13141.   tagEXTLOGFONTW = record
  13142.     elfLogFont: TLogFontW;
  13143.     elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;
  13144.     elfStyle: array[0..LF_FACESIZE - 1] of WideChar;
  13145.     elfVersion: DWORD;     { 0 for the first release of NT }
  13146.     elfStyleSize: DWORD;
  13147.     elfMatch: DWORD;
  13148.     elfReserved: DWORD;
  13149.     elfVendorId: array[0..ELF_VENDOR_SIZE - 1] of Byte;
  13150.     elfCulture: DWORD;     { 0 for Latin }
  13151.     elfPanose: TPanose;
  13152.   end;
  13153.   {$EXTERNALSYM tagEXTLOGFONT}
  13154.   tagEXTLOGFONT = tagEXTLOGFONTA;
  13155.   TExtLogFontA = tagEXTLOGFONTA;
  13156.   TExtLogFontW = tagEXTLOGFONTW;
  13157.   TExtLogFont = TExtLogFontA;
  13158.   {$EXTERNALSYM EXTLOGFONTA}
  13159.   EXTLOGFONTA = tagEXTLOGFONTA;
  13160.   {$EXTERNALSYM EXTLOGFONTW}
  13161.   EXTLOGFONTW = tagEXTLOGFONTW;
  13162.   {$EXTERNALSYM EXTLOGFONT}
  13163.   EXTLOGFONT = EXTLOGFONTA;
  13164.  
  13165. const
  13166.   {$EXTERNALSYM ELF_VERSION}
  13167.   ELF_VERSION = 0;
  13168.   {$EXTERNALSYM ELF_CULTURE_LATIN}
  13169.   ELF_CULTURE_LATIN = 0;
  13170.  
  13171.  
  13172.   { EnumFonts Masks }
  13173.   {$EXTERNALSYM RASTER_FONTTYPE}
  13174.   RASTER_FONTTYPE = 1;
  13175.   {$EXTERNALSYM DEVICE_FONTTYPE}
  13176.   DEVICE_FONTTYPE = 2;
  13177.   {$EXTERNALSYM TRUETYPE_FONTTYPE}
  13178.   TRUETYPE_FONTTYPE = 4;
  13179.  
  13180. {$EXTERNALSYM RGB}
  13181. function RGB(r, g, b: Byte): COLORREF;
  13182. {$EXTERNALSYM PaletteRGB}
  13183. function PaletteRGB(r, g, b: Byte): COLORREF;
  13184. {$EXTERNALSYM PaletteIndex}
  13185. function PaletteIndex(i: Word): COLORREF;
  13186.  
  13187. const
  13188.   { palette entry flags }
  13189.   {$EXTERNALSYM PC_RESERVED}
  13190.   PC_RESERVED = 1;     { palette index used for animation }
  13191.   {$EXTERNALSYM PC_EXPLICIT}
  13192.   PC_EXPLICIT = 2;     { palette index is explicit to device }
  13193.   {$EXTERNALSYM PC_NOCOLLAPSE}
  13194.   PC_NOCOLLAPSE = 4;   { do not match color to system palette }
  13195.  
  13196. {$EXTERNALSYM GetRValue}
  13197. function GetRValue(rgb: DWORD): Byte;
  13198. {$EXTERNALSYM GetGValue}
  13199. function GetGValue(rgb: DWORD): Byte;
  13200. {$EXTERNALSYM GetBValue}
  13201. function GetBValue(rgb: DWORD): Byte;
  13202.  
  13203. const
  13204.   { Background Modes }
  13205.   {$EXTERNALSYM TRANSPARENT}
  13206.   TRANSPARENT = 1;
  13207.   {$EXTERNALSYM OPAQUE}
  13208.   OPAQUE = 2;
  13209.   {$EXTERNALSYM BKMODE_LAST}
  13210.   BKMODE_LAST = 2;
  13211.  
  13212.   { Graphics Modes }
  13213.   {$EXTERNALSYM GM_COMPATIBLE}
  13214.   GM_COMPATIBLE = 1;
  13215.   {$EXTERNALSYM GM_ADVANCED}
  13216.   GM_ADVANCED = 2;
  13217.   {$EXTERNALSYM GM_LAST}
  13218.   GM_LAST = 2;
  13219.  
  13220.   { PolyDraw and GetPath point types }
  13221.   {$EXTERNALSYM PT_CLOSEFIGURE}
  13222.   PT_CLOSEFIGURE = 1;
  13223.   {$EXTERNALSYM PT_LINETO}
  13224.   PT_LINETO = 2;
  13225.   {$EXTERNALSYM PT_BEZIERTO}
  13226.   PT_BEZIERTO = 4;
  13227.   {$EXTERNALSYM PT_MOVETO}
  13228.   PT_MOVETO = 6;
  13229.  
  13230.   { Mapping Modes }
  13231.   {$EXTERNALSYM MM_TEXT}
  13232.   MM_TEXT = 1;
  13233.   {$EXTERNALSYM MM_LOMETRIC}
  13234.   MM_LOMETRIC = 2;
  13235.   {$EXTERNALSYM MM_HIMETRIC}
  13236.   MM_HIMETRIC = 3;
  13237.   {$EXTERNALSYM MM_LOENGLISH}
  13238.   MM_LOENGLISH = 4;
  13239.   {$EXTERNALSYM MM_HIENGLISH}
  13240.   MM_HIENGLISH = 5;
  13241.   {$EXTERNALSYM MM_TWIPS}
  13242.   MM_TWIPS = 6;
  13243.   {$EXTERNALSYM MM_ISOTROPIC}
  13244.   MM_ISOTROPIC = 7;
  13245.   {$EXTERNALSYM MM_ANISOTROPIC}
  13246.   MM_ANISOTROPIC = 8;
  13247.  
  13248.   { Min and Max Mapping Mode values }
  13249.   {$EXTERNALSYM MM_MIN}
  13250.   MM_MIN = MM_TEXT;
  13251.   {$EXTERNALSYM MM_MAX}
  13252.   MM_MAX = MM_ANISOTROPIC;
  13253.   {$EXTERNALSYM MM_MAX_FIXEDSCALE}
  13254.   MM_MAX_FIXEDSCALE = MM_TWIPS;
  13255.  
  13256.   { Coordinate Modes }
  13257.   {$EXTERNALSYM ABSOLUTE}
  13258.   ABSOLUTE = 1;
  13259.   {$EXTERNALSYM RELATIVE}
  13260.   RELATIVE = 2;
  13261.  
  13262.   { Stock Logical Objects }
  13263.   {$EXTERNALSYM WHITE_BRUSH}
  13264.   WHITE_BRUSH = 0;
  13265.   {$EXTERNALSYM LTGRAY_BRUSH}
  13266.   LTGRAY_BRUSH = 1;
  13267.   {$EXTERNALSYM GRAY_BRUSH}
  13268.   GRAY_BRUSH = 2;
  13269.   {$EXTERNALSYM DKGRAY_BRUSH}
  13270.   DKGRAY_BRUSH = 3;
  13271.   {$EXTERNALSYM BLACK_BRUSH}
  13272.   BLACK_BRUSH = 4;
  13273.   {$EXTERNALSYM NULL_BRUSH}
  13274.   NULL_BRUSH = 5;
  13275.   {$EXTERNALSYM HOLLOW_BRUSH}
  13276.   HOLLOW_BRUSH = NULL_BRUSH;
  13277.   {$EXTERNALSYM WHITE_PEN}
  13278.   WHITE_PEN = 6;
  13279.   {$EXTERNALSYM BLACK_PEN}
  13280.   BLACK_PEN = 7;
  13281.   {$EXTERNALSYM NULL_PEN}
  13282.   NULL_PEN = 8;
  13283.   {$EXTERNALSYM OEM_FIXED_FONT}
  13284.   OEM_FIXED_FONT = 10;
  13285.   {$EXTERNALSYM ANSI_FIXED_FONT}
  13286.   ANSI_FIXED_FONT = 11;
  13287.   {$EXTERNALSYM ANSI_VAR_FONT}
  13288.   ANSI_VAR_FONT = 12;
  13289.   {$EXTERNALSYM SYSTEM_FONT}
  13290.   SYSTEM_FONT = 13;
  13291.   {$EXTERNALSYM DEVICE_DEFAULT_FONT}
  13292.   DEVICE_DEFAULT_FONT = 14;
  13293.   {$EXTERNALSYM DEFAULT_PALETTE}
  13294.   DEFAULT_PALETTE = 15;
  13295.   {$EXTERNALSYM SYSTEM_FIXED_FONT}
  13296.   SYSTEM_FIXED_FONT = $10;
  13297.   {$EXTERNALSYM DEFAULT_GUI_FONT}
  13298.   DEFAULT_GUI_FONT = 17;
  13299.   {$EXTERNALSYM DC_BRUSH}
  13300.   DC_BRUSH = 18;
  13301.   {$EXTERNALSYM DC_PEN}
  13302.   DC_PEN = 19;
  13303.   {$EXTERNALSYM STOCK_LAST}
  13304.   STOCK_LAST = 19;
  13305.  
  13306.   {$EXTERNALSYM CLR_INVALID}
  13307.   CLR_INVALID = DWORD($FFFFFFFF);
  13308.  
  13309.   { Brush Styles }
  13310.   {$EXTERNALSYM BS_SOLID}
  13311.   BS_SOLID                = 0;
  13312.   {$EXTERNALSYM BS_NULL}
  13313.   BS_NULL                 = 1;
  13314.   {$EXTERNALSYM BS_HOLLOW}
  13315.   BS_HOLLOW               = BS_NULL;
  13316.   {$EXTERNALSYM BS_HATCHED}
  13317.   BS_HATCHED              = 2;
  13318.   {$EXTERNALSYM BS_PATTERN}
  13319.   BS_PATTERN              = 3;
  13320.   {$EXTERNALSYM BS_INDEXED}
  13321.   BS_INDEXED              = 4;
  13322.   {$EXTERNALSYM BS_DIBPATTERN}
  13323.   BS_DIBPATTERN           = 5;
  13324.   {$EXTERNALSYM BS_DIBPATTERNPT}
  13325.   BS_DIBPATTERNPT         = 6;
  13326.   {$EXTERNALSYM BS_PATTERN8X8}
  13327.   BS_PATTERN8X8           = 7;
  13328.   {$EXTERNALSYM BS_DIBPATTERN8X8}
  13329.   BS_DIBPATTERN8X8        = 8;
  13330.   {$EXTERNALSYM BS_MONOPATTERN}
  13331.   BS_MONOPATTERN          = 9;
  13332.  
  13333.   { Hatch Styles }
  13334.   {$EXTERNALSYM HS_HORIZONTAL}
  13335.   HS_HORIZONTAL = 0;       { ----- }
  13336.   {$EXTERNALSYM HS_VERTICAL}
  13337.   HS_VERTICAL   = 1;       { ||||| }
  13338.   {$EXTERNALSYM HS_FDIAGONAL}
  13339.   HS_FDIAGONAL  = 2;       { ///// }
  13340.   {$EXTERNALSYM HS_BDIAGONAL}
  13341.   HS_BDIAGONAL  = 3;       { \\\\\ }
  13342.   {$EXTERNALSYM HS_CROSS}
  13343.   HS_CROSS      = 4;       { +++++ }
  13344.   {$EXTERNALSYM HS_DIAGCROSS}
  13345.   HS_DIAGCROSS  = 5;       { xxxxx }
  13346.  
  13347.  
  13348.   { Pen Styles }
  13349.   {$EXTERNALSYM PS_SOLID}
  13350.   PS_SOLID       = 0;
  13351.   {$EXTERNALSYM PS_DASH}
  13352.   PS_DASH        = 1;      { ------- }
  13353.   {$EXTERNALSYM PS_DOT}
  13354.   PS_DOT         = 2;      { ....... }
  13355.   {$EXTERNALSYM PS_DASHDOT}
  13356.   PS_DASHDOT     = 3;      { _._._._ }
  13357.   {$EXTERNALSYM PS_DASHDOTDOT}
  13358.   PS_DASHDOTDOT  = 4;      { _.._.._ }
  13359.   {$EXTERNALSYM PS_NULL}
  13360.   PS_NULL = 5;
  13361.   {$EXTERNALSYM PS_INSIDEFRAME}
  13362.   PS_INSIDEFRAME = 6;
  13363.   {$EXTERNALSYM PS_USERSTYLE}
  13364.   PS_USERSTYLE = 7;
  13365.   {$EXTERNALSYM PS_ALTERNATE}
  13366.   PS_ALTERNATE = 8;
  13367.   {$EXTERNALSYM PS_STYLE_MASK}
  13368.   PS_STYLE_MASK = 15;
  13369.  
  13370.   {$EXTERNALSYM PS_ENDCAP_ROUND}
  13371.   PS_ENDCAP_ROUND = 0;
  13372.   {$EXTERNALSYM PS_ENDCAP_SQUARE}
  13373.   PS_ENDCAP_SQUARE = $100;
  13374.   {$EXTERNALSYM PS_ENDCAP_FLAT}
  13375.   PS_ENDCAP_FLAT = $200;
  13376.   {$EXTERNALSYM PS_ENDCAP_MASK}
  13377.   PS_ENDCAP_MASK = 3840;
  13378.  
  13379.   {$EXTERNALSYM PS_JOIN_ROUND}
  13380.   PS_JOIN_ROUND = 0;
  13381.   {$EXTERNALSYM PS_JOIN_BEVEL}
  13382.   PS_JOIN_BEVEL = $1000;
  13383.   {$EXTERNALSYM PS_JOIN_MITER}
  13384.   PS_JOIN_MITER = $2000;
  13385.   {$EXTERNALSYM PS_JOIN_MASK}
  13386.   PS_JOIN_MASK = 61440;
  13387.  
  13388.   {$EXTERNALSYM PS_COSMETIC}
  13389.   PS_COSMETIC = 0;
  13390.   {$EXTERNALSYM PS_GEOMETRIC}
  13391.   PS_GEOMETRIC = $10000;
  13392.   {$EXTERNALSYM PS_TYPE_MASK}
  13393.   PS_TYPE_MASK = $F0000;
  13394.  
  13395.   {$EXTERNALSYM AD_COUNTERCLOCKWISE}
  13396.   AD_COUNTERCLOCKWISE = 1;
  13397.   {$EXTERNALSYM AD_CLOCKWISE}
  13398.   AD_CLOCKWISE = 2;
  13399.  
  13400.   { Device Parameters for GetDeviceCaps() }
  13401.   {$EXTERNALSYM DRIVERVERSION}
  13402.   DRIVERVERSION = 0;     { Device driver version                     }
  13403.   {$EXTERNALSYM TECHNOLOGY}
  13404.   TECHNOLOGY    = 2;     { Device classification                     }
  13405.   {$EXTERNALSYM HORZSIZE}
  13406.   HORZSIZE      = 4;     { Horizontal size in millimeters            }
  13407.   {$EXTERNALSYM VERTSIZE}
  13408.   VERTSIZE      = 6;     { Vertical size in millimeters              }
  13409.   {$EXTERNALSYM HORZRES}
  13410.   HORZRES       = 8;     { Horizontal width in pixels                }
  13411.   {$EXTERNALSYM VERTRES}
  13412.   VERTRES       = 10;    { Vertical height in pixels                 }
  13413.   {$EXTERNALSYM BITSPIXEL}
  13414.   BITSPIXEL     = 12;    { Number of bits per pixel                  }
  13415.   {$EXTERNALSYM PLANES}
  13416.   PLANES        = 14;    { Number of planes                          }
  13417.   {$EXTERNALSYM NUMBRUSHES}
  13418.   NUMBRUSHES    = $10;   { Number of brushes the device has          }
  13419.   {$EXTERNALSYM NUMPENS}
  13420.   NUMPENS       = 18;    { Number of pens the device has             }
  13421.   {$EXTERNALSYM NUMMARKERS}
  13422.   NUMMARKERS    = 20;    { Number of markers the device has          }
  13423.   {$EXTERNALSYM NUMFONTS}
  13424.   NUMFONTS      = 22;    { Number of fonts the device has            }
  13425.   {$EXTERNALSYM NUMCOLORS}
  13426.   NUMCOLORS     = 24;    { Number of colors the device supports      }
  13427.   {$EXTERNALSYM PDEVICESIZE}
  13428.   PDEVICESIZE   = 26;    { Size required for device descriptor       }
  13429.   {$EXTERNALSYM CURVECAPS}
  13430.   CURVECAPS     = 28;    { Curve capabilities                        }
  13431.   {$EXTERNALSYM LINECAPS}
  13432.   LINECAPS      = 30;    { Line capabilities                         }
  13433.   {$EXTERNALSYM POLYGONALCAPS}
  13434.   POLYGONALCAPS = $20;   { Polygonal capabilities                    }
  13435.   {$EXTERNALSYM TEXTCAPS}
  13436.   TEXTCAPS      = 34;    { Text capabilities                         }
  13437.   {$EXTERNALSYM CLIPCAPS}
  13438.   CLIPCAPS      = 36;    { Clipping capabilities                     }
  13439.   {$EXTERNALSYM RASTERCAPS}
  13440.   RASTERCAPS    = 38;    { Bitblt capabilities                       }
  13441.   {$EXTERNALSYM ASPECTX}
  13442.   ASPECTX       = 40;    { Length of the X leg                       }
  13443.   {$EXTERNALSYM ASPECTY}
  13444.   ASPECTY       = 42;    { Length of the Y leg                       }
  13445.   {$EXTERNALSYM ASPECTXY}
  13446.   ASPECTXY      = 44;    { Length of the hypotenuse                  }
  13447.   {$EXTERNALSYM SHADEBLENDCAPS}
  13448.   SHADEBLENDCAPS = 45;   { Shading and Blending caps                 }
  13449.  
  13450.   {$EXTERNALSYM LOGPIXELSX}
  13451.   LOGPIXELSX    = 88;    { Logical pixelsinch in X                  }
  13452.   {$EXTERNALSYM LOGPIXELSY}
  13453.   LOGPIXELSY    = 90;    { Logical pixelsinch in Y                  }
  13454.  
  13455.   {$EXTERNALSYM SIZEPALETTE}
  13456.   SIZEPALETTE   = 104;   { Number of entries in physical palette     }
  13457.   {$EXTERNALSYM NUMRESERVED}
  13458.   NUMRESERVED   = 106;   { Number of reserved entries in palette     }
  13459.   {$EXTERNALSYM COLORRES}
  13460.   COLORRES      = 108;   { Actual color resolution                   }
  13461.  
  13462.   { Printing related DeviceCaps. These replace the appropriate Escapes }
  13463.   {$EXTERNALSYM PHYSICALWIDTH}
  13464.   PHYSICALWIDTH   = 110;     { Physical Width in device units            }
  13465.   {$EXTERNALSYM PHYSICALHEIGHT}
  13466.   PHYSICALHEIGHT  = 111;     { Physical Height in device units           }
  13467.   {$EXTERNALSYM PHYSICALOFFSETX}
  13468.   PHYSICALOFFSETX = 112;     { Physical Printable Area x margin          }
  13469.   {$EXTERNALSYM PHYSICALOFFSETY}
  13470.   PHYSICALOFFSETY = 113;     { Physical Printable Area y margin          }
  13471.   {$EXTERNALSYM SCALINGFACTORX}
  13472.   SCALINGFACTORX  = 114;     { Scaling factor x                          }
  13473.   {$EXTERNALSYM SCALINGFACTORY}
  13474.   SCALINGFACTORY  = 115;     { Scaling factor y                          }
  13475.  
  13476.  
  13477.   { Display driver specific}
  13478.   {$EXTERNALSYM VREFRESH}
  13479.   VREFRESH       = 116;     { Current vertical refresh rate of the     }
  13480.                             { display device (for displays only) in Hz}
  13481.   {$EXTERNALSYM DESKTOPVERTRES}
  13482.   DESKTOPVERTRES = 117;     { Horizontal width of entire desktop in    }
  13483.                             { pixels                                  }
  13484.   {$EXTERNALSYM DESKTOPHORZRES}
  13485.   DESKTOPHORZRES = 118;     { Vertical height of entire desktop in     }
  13486.                             { pixels                                  }
  13487.   {$EXTERNALSYM BLTALIGNMENT}
  13488.   BLTALIGNMENT   = 119;     { Preferred blt alignment                  }
  13489.  
  13490.  
  13491. { Device Capability Masks: }
  13492.  
  13493. { Device Technologies }
  13494.  
  13495.   {$EXTERNALSYM DT_PLOTTER}
  13496.   DT_PLOTTER    = 0;     { Vector plotter                    }
  13497.   {$EXTERNALSYM DT_RASDISPLAY}
  13498.   DT_RASDISPLAY = 1;     { Raster display                    }
  13499.   {$EXTERNALSYM DT_RASPRINTER}
  13500.   DT_RASPRINTER = 2;     { Raster printer                    }
  13501.   {$EXTERNALSYM DT_RASCAMERA}
  13502.   DT_RASCAMERA  = 3;     { Raster camera                     }
  13503.   {$EXTERNALSYM DT_CHARSTREAM}
  13504.   DT_CHARSTREAM = 4;     { Character-stream, PLP             }
  13505.   {$EXTERNALSYM DT_METAFILE}
  13506.   DT_METAFILE   = 5;     { Metafile, VDM                     }
  13507.   {$EXTERNALSYM DT_DISPFILE}
  13508.   DT_DISPFILE   = 6;     { Display-file                      }
  13509.  
  13510. { Curve Capabilities }
  13511.  
  13512.   {$EXTERNALSYM CC_NONE}
  13513.   CC_NONE       = 0;     { Curves not supported              }
  13514.   {$EXTERNALSYM CC_CIRCLES}
  13515.   CC_CIRCLES    = 1;     { Can do circles                    }
  13516.   {$EXTERNALSYM CC_PIE}
  13517.   CC_PIE        = 2;     { Can do pie wedges                 }
  13518.   {$EXTERNALSYM CC_CHORD}
  13519.   CC_CHORD      = 4;     { Can do chord arcs                 }
  13520.   {$EXTERNALSYM CC_ELLIPSES}
  13521.   CC_ELLIPSES   = 8;     { Can do ellipese                   }
  13522.   {$EXTERNALSYM CC_WIDE}
  13523.   CC_WIDE       = $10;   { Can do wide lines                 }
  13524.   {$EXTERNALSYM CC_STYLED}
  13525.   CC_STYLED     = $20;   { Can do styled lines               }
  13526.   {$EXTERNALSYM CC_WIDESTYLED}
  13527.   CC_WIDESTYLED = $40;   { Can do wide styled lines          }
  13528.   {$EXTERNALSYM CC_INTERIORS}
  13529.   CC_INTERIORS  = $80;   { Can do interiors                  }
  13530.   {$EXTERNALSYM CC_ROUNDRECT}
  13531.   CC_ROUNDRECT  = $100;
  13532.  
  13533. { Line Capabilities }
  13534.  
  13535.   {$EXTERNALSYM LC_NONE}
  13536.   LC_NONE       = 0;     { Lines not supported               }
  13537.   {$EXTERNALSYM LC_POLYLINE}
  13538.   LC_POLYLINE   = 2;     { Can do polylines                  }
  13539.   {$EXTERNALSYM LC_MARKER}
  13540.   LC_MARKER     = 4;     { Can do markers                    }
  13541.   {$EXTERNALSYM LC_POLYMARKER}
  13542.   LC_POLYMARKER = 8;     { Can do polymarkers                }
  13543.   {$EXTERNALSYM LC_WIDE}
  13544.   LC_WIDE       = $10;   { Can do wide lines                 }
  13545.   {$EXTERNALSYM LC_STYLED}
  13546.   LC_STYLED     = $20;   { Can do styled lines               }
  13547.   {$EXTERNALSYM LC_WIDESTYLED}
  13548.   LC_WIDESTYLED = $40;   { Can do wide styled lines          }
  13549.   {$EXTERNALSYM LC_INTERIORS}
  13550.   LC_INTERIORS  = $80;   { Can do interiors                  }
  13551.  
  13552. { Polygonal Capabilities }
  13553.  
  13554.   {$EXTERNALSYM PC_NONE}
  13555.   PC_NONE        = 0;     { Polygonals not supported          }
  13556.   {$EXTERNALSYM PC_POLYGON}
  13557.   PC_POLYGON     = 1;     { Can do polygons                   }
  13558.   {$EXTERNALSYM PC_RECTANGLE}
  13559.   PC_RECTANGLE   = 2;     { Can do rectangles                 }
  13560.   {$EXTERNALSYM PC_WINDPOLYGON}
  13561.   PC_WINDPOLYGON = 4;     { Can do winding polygons           }
  13562.   {$EXTERNALSYM PC_TRAPEZOID}
  13563.   PC_TRAPEZOID   = 4;     { Can do trapezoids                 }
  13564.   {$EXTERNALSYM PC_SCANLINE}
  13565.   PC_SCANLINE    = 8;     { Can do scanlines                  }
  13566.   {$EXTERNALSYM PC_WIDE}
  13567.   PC_WIDE        = $10;   { Can do wide borders               }
  13568.   {$EXTERNALSYM PC_STYLED}
  13569.   PC_STYLED      = $20;   { Can do styled borders             }
  13570.   {$EXTERNALSYM PC_WIDESTYLED}
  13571.   PC_WIDESTYLED  = $40;   { Can do wide styled borders        }
  13572.   {$EXTERNALSYM PC_INTERIORS}
  13573.   PC_INTERIORS   = $80;   { Can do interiors                  }
  13574.   {$EXTERNALSYM PC_POLYPOLYGON}
  13575.   PC_POLYPOLYGON = $100;  { Can do polypolygons               }
  13576.   {$EXTERNALSYM PC_PATHS}
  13577.   PC_PATHS       = $200;  { Can do paths                      }
  13578.  
  13579. { Clipping Capabilities }
  13580.  
  13581.   {$EXTERNALSYM CP_NONE}
  13582.   CP_NONE      = 0;     { No clipping of output             }
  13583.   {$EXTERNALSYM CP_RECTANGLE}
  13584.   CP_RECTANGLE = 1;     { Output clipped to rects           }
  13585.   {$EXTERNALSYM CP_REGION}
  13586.   CP_REGION    = 2;     { obsolete                          }
  13587.  
  13588. { Text Capabilities }
  13589.  
  13590.   {$EXTERNALSYM TC_OP_CHARACTER}
  13591.   TC_OP_CHARACTER = 1;      { Can do OutputPrecision   CHARACTER       }
  13592.   {$EXTERNALSYM TC_OP_STROKE}
  13593.   TC_OP_STROKE    = 2;      { Can do OutputPrecision   STROKE          }
  13594.   {$EXTERNALSYM TC_CP_STROKE}
  13595.   TC_CP_STROKE    = 4;      { Can do ClipPrecision     STROKE          }
  13596.   {$EXTERNALSYM TC_CR_90}
  13597.   TC_CR_90        = 8;      { Can do CharRotAbility    90              }
  13598.   {$EXTERNALSYM TC_CR_ANY}
  13599.   TC_CR_ANY       = $10;    { Can do CharRotAbility    ANY             }
  13600.   {$EXTERNALSYM TC_SF_X_YINDEP}
  13601.   TC_SF_X_YINDEP  = $20;    { Can do ScaleFreedom      X_YINDEPENDENT  }
  13602.   {$EXTERNALSYM TC_SA_DOUBLE}
  13603.   TC_SA_DOUBLE    = $40;    { Can do ScaleAbility      DOUBLE          }
  13604.   {$EXTERNALSYM TC_SA_INTEGER}
  13605.   TC_SA_INTEGER   = $80;    { Can do ScaleAbility      INTEGER         }
  13606.   {$EXTERNALSYM TC_SA_CONTIN}
  13607.   TC_SA_CONTIN    = $100;   { Can do ScaleAbility      CONTINUOUS      }
  13608.   {$EXTERNALSYM TC_EA_DOUBLE}
  13609.   TC_EA_DOUBLE    = $200;   { Can do EmboldenAbility   DOUBLE          }
  13610.   {$EXTERNALSYM TC_IA_ABLE}
  13611.   TC_IA_ABLE      = $400;   { Can do ItalisizeAbility  ABLE            }
  13612.   {$EXTERNALSYM TC_UA_ABLE}
  13613.   TC_UA_ABLE      = $800;   { Can do UnderlineAbility  ABLE            }
  13614.   {$EXTERNALSYM TC_SO_ABLE}
  13615.   TC_SO_ABLE      = $1000;  { Can do StrikeOutAbility  ABLE            }
  13616.   {$EXTERNALSYM TC_RA_ABLE}
  13617.   TC_RA_ABLE      = $2000;  { Can do RasterFontAble    ABLE            }
  13618.   {$EXTERNALSYM TC_VA_ABLE}
  13619.   TC_VA_ABLE      = $4000;  { Can do VectorFontAble    ABLE            }
  13620.   {$EXTERNALSYM TC_RESERVED}
  13621.   TC_RESERVED     = $8000;
  13622.   {$EXTERNALSYM TC_SCROLLBLT}
  13623.   TC_SCROLLBLT    = $10000; { Don't do text scroll with blt            }
  13624.  
  13625. { Raster Capabilities }
  13626.  
  13627.   {$EXTERNALSYM RC_BITBLT}
  13628.   RC_BITBLT       = 1;     { Can do standard BLT.              }
  13629.   {$EXTERNALSYM RC_BANDING}
  13630.   RC_BANDING      = 2;     { Device requires banding support   }
  13631.   {$EXTERNALSYM RC_SCALING}
  13632.   RC_SCALING      = 4;     { Device requires scaling support   }
  13633.   {$EXTERNALSYM RC_BITMAP64}
  13634.   RC_BITMAP64     = 8;     { Device can support >64K bitmap    }
  13635.   {$EXTERNALSYM RC_GDI20_OUTPUT}
  13636.   RC_GDI20_OUTPUT = $10;   { has 2.0 output calls          }
  13637.   {$EXTERNALSYM RC_GDI20_STATE}
  13638.   RC_GDI20_STATE  = $20;
  13639.   {$EXTERNALSYM RC_SAVEBITMAP}
  13640.   RC_SAVEBITMAP   = $40;
  13641.   {$EXTERNALSYM RC_DI_BITMAP}
  13642.   RC_DI_BITMAP    = $80;   { supports DIB to memory        }
  13643.   {$EXTERNALSYM RC_PALETTE}
  13644.   RC_PALETTE      = $100;  { supports a palette            }
  13645.   {$EXTERNALSYM RC_DIBTODEV}
  13646.   RC_DIBTODEV     = $200;  { supports DIBitsToDevice       }
  13647.   {$EXTERNALSYM RC_BIGFONT}
  13648.   RC_BIGFONT      = $400;  { supports >64K fonts           }
  13649.   {$EXTERNALSYM RC_STRETCHBLT}
  13650.   RC_STRETCHBLT   = $800;  { supports StretchBlt           }
  13651.   {$EXTERNALSYM RC_FLOODFILL}
  13652.   RC_FLOODFILL    = $1000; { supports FloodFill            }
  13653.   {$EXTERNALSYM RC_STRETCHDIB}
  13654.   RC_STRETCHDIB   = $2000; { supports StretchDIBits        }
  13655.   {$EXTERNALSYM RC_OP_DX_OUTPUT}
  13656.   RC_OP_DX_OUTPUT = $4000;
  13657.   {$EXTERNALSYM RC_DEVBITS}
  13658.   RC_DEVBITS      = $8000;
  13659.  
  13660. { Shading and blending caps }
  13661.   {$EXTERNALSYM SB_NONE}
  13662.   SB_NONE = 0;
  13663.   {$EXTERNALSYM SB_CONST_ALPHA}
  13664.   SB_CONST_ALPHA = 1;
  13665.   {$EXTERNALSYM SB_PIXEL_ALPHA}
  13666.   SB_PIXEL_ALPHA = 2;
  13667.   {$EXTERNALSYM SB_PREMULT_ALPHA}
  13668.   SB_PREMULT_ALPHA = 4;
  13669.   {$EXTERNALSYM SB_GRAD_RECT}
  13670.   SB_GRAD_RECT = $10;
  13671.   {$EXTERNALSYM SB_GRAD_TRI}
  13672.   SB_GRAD_TRI = $20;
  13673.  
  13674. { DIB color table identifiers }
  13675.  
  13676.   {$EXTERNALSYM DIB_RGB_COLORS}
  13677.   DIB_RGB_COLORS = 0;     { color table in RGBs  }
  13678.   {$EXTERNALSYM DIB_PAL_COLORS}
  13679.   DIB_PAL_COLORS = 1;     { color table in palette indices  }
  13680.  
  13681. { constants for GetSetSystemPaletteUse() }
  13682.  
  13683.   {$EXTERNALSYM SYSPAL_ERROR}
  13684.   SYSPAL_ERROR = 0;
  13685.   {$EXTERNALSYM SYSPAL_STATIC}
  13686.   SYSPAL_STATIC = 1;
  13687.   {$EXTERNALSYM SYSPAL_NOSTATIC}
  13688.   SYSPAL_NOSTATIC = 2;
  13689.  
  13690. { constants for CreateDIBitmap }
  13691.  
  13692.   {$EXTERNALSYM CBM_INIT}
  13693.   CBM_INIT = 4;     { initialize bitmap  }
  13694.  
  13695. { ExtFloodFill style flags }
  13696.  
  13697.   {$EXTERNALSYM FLOODFILLBORDER}
  13698.   FLOODFILLBORDER = 0;
  13699.   {$EXTERNALSYM FLOODFILLSURFACE}
  13700.   FLOODFILLSURFACE = 1;
  13701.  
  13702.   {$EXTERNALSYM CCHDEVICENAME}
  13703.   CCHDEVICENAME = 32;     { size of a device name string  }
  13704.   {$EXTERNALSYM CCHFORMNAME}
  13705.   CCHFORMNAME   = 32;     { size of a form name string  }
  13706.  
  13707. type
  13708.   PDeviceModeA = ^TDeviceModeA;
  13709.   PDeviceModeW = ^TDeviceModeW;
  13710.   PDeviceMode = PDeviceModeA;
  13711.   {$EXTERNALSYM _devicemodeA}
  13712.   _devicemodeA = packed record
  13713.     dmDeviceName: array[0..CCHDEVICENAME - 1] of AnsiChar;
  13714.     dmSpecVersion: Word;
  13715.     dmDriverVersion: Word;
  13716.     dmSize: Word;
  13717.     dmDriverExtra: Word;
  13718.     dmFields: DWORD;
  13719.     dmOrientation: SHORT;
  13720.     dmPaperSize: SHORT;
  13721.     dmPaperLength: SHORT;
  13722.     dmPaperWidth: SHORT;
  13723.     dmScale: SHORT;
  13724.     dmCopies: SHORT;
  13725.     dmDefaultSource: SHORT;
  13726.     dmPrintQuality: SHORT;
  13727.     dmColor: SHORT;
  13728.     dmDuplex: SHORT;
  13729.     dmYResolution: SHORT;
  13730.     dmTTOption: SHORT;
  13731.     dmCollate: SHORT;
  13732.     dmFormName: array[0..CCHFORMNAME - 1] of AnsiChar;
  13733.     dmLogPixels: Word;
  13734.     dmBitsPerPel: DWORD;
  13735.     dmPelsWidth: DWORD;
  13736.     dmPelsHeight: DWORD;
  13737.     dmDisplayFlags: DWORD;
  13738.     dmDisplayFrequency: DWORD;
  13739.     dmICMMethod: DWORD;
  13740.     dmICMIntent: DWORD;
  13741.     dmMediaType: DWORD;
  13742.     dmDitherType: DWORD;
  13743.     dmICCManufacturer: DWORD;
  13744.     dmICCModel: DWORD;
  13745.     dmPanningWidth: DWORD;
  13746.     dmPanningHeight: DWORD;
  13747.   end;
  13748.   {$EXTERNALSYM _devicemodeW}
  13749.   _devicemodeW = packed record
  13750.     dmDeviceName: array[0..CCHDEVICENAME - 1] of WideChar;
  13751.     dmSpecVersion: Word;
  13752.     dmDriverVersion: Word;
  13753.     dmSize: Word;
  13754.     dmDriverExtra: Word;
  13755.     dmFields: DWORD;
  13756.     dmOrientation: SHORT;
  13757.     dmPaperSize: SHORT;
  13758.     dmPaperLength: SHORT;
  13759.     dmPaperWidth: SHORT;
  13760.     dmScale: SHORT;
  13761.     dmCopies: SHORT;
  13762.     dmDefaultSource: SHORT;
  13763.     dmPrintQuality: SHORT;
  13764.     dmColor: SHORT;
  13765.     dmDuplex: SHORT;
  13766.     dmYResolution: SHORT;
  13767.     dmTTOption: SHORT;
  13768.     dmCollate: SHORT;
  13769.     dmFormName: array[0..CCHFORMNAME - 1] of WideChar;
  13770.     dmLogPixels: Word;
  13771.     dmBitsPerPel: DWORD;
  13772.     dmPelsWidth: DWORD;
  13773.     dmPelsHeight: DWORD;
  13774.     dmDisplayFlags: DWORD;
  13775.     dmDisplayFrequency: DWORD;
  13776.     dmICMMethod: DWORD;
  13777.     dmICMIntent: DWORD;
  13778.     dmMediaType: DWORD;
  13779.     dmDitherType: DWORD;
  13780.     dmICCManufacturer: DWORD;
  13781.     dmICCModel: DWORD;
  13782.     dmPanningWidth: DWORD;
  13783.     dmPanningHeight: DWORD;
  13784.   end;
  13785.   {$EXTERNALSYM _devicemode}
  13786.   _devicemode = _devicemodeA;
  13787.   TDeviceModeA = _devicemodeA;
  13788.   TDeviceModeW = _devicemodeW;
  13789.   TDeviceMode = TDeviceModeA;
  13790.   {$EXTERNALSYM DEVMODEA}
  13791.   DEVMODEA = _devicemodeA;
  13792.   {$EXTERNALSYM DEVMODEW}
  13793.   DEVMODEW = _devicemodeW;
  13794.   {$EXTERNALSYM DEVMODE}
  13795.   DEVMODE = DEVMODEA;
  13796.  
  13797.   PDevMode = PDeviceMode;  {compatibility with Delphi 1.0}
  13798.   TDevMode = TDeviceMode;  {compatibility with Delphi 1.0}
  13799.  
  13800. const
  13801.   {$EXTERNALSYM DM_SPECVERSION}
  13802.   DM_SPECVERSION = $401;  { current version of specification }
  13803.  
  13804. { field selection bits }
  13805.  
  13806.   {$EXTERNALSYM DM_ORIENTATION}
  13807.   DM_ORIENTATION = 1;
  13808.   {$EXTERNALSYM DM_PAPERSIZE}
  13809.   DM_PAPERSIZE = 2;
  13810.   {$EXTERNALSYM DM_PAPERLENGTH}
  13811.   DM_PAPERLENGTH = 4;
  13812.   {$EXTERNALSYM DM_PAPERWIDTH}
  13813.   DM_PAPERWIDTH = 8;
  13814.   {$EXTERNALSYM DM_SCALE}
  13815.   DM_SCALE = $10;
  13816.   {$EXTERNALSYM DM_POSITION}
  13817.   DM_POSITION = $20;
  13818.   {$EXTERNALSYM DM_COPIES}
  13819.   DM_COPIES = $100;
  13820.   {$EXTERNALSYM DM_DEFAULTSOURCE}
  13821.   DM_DEFAULTSOURCE = $200;
  13822.   {$EXTERNALSYM DM_PRINTQUALITY}
  13823.   DM_PRINTQUALITY = $400;
  13824.   {$EXTERNALSYM DM_COLOR}
  13825.   DM_COLOR = $800;
  13826.   {$EXTERNALSYM DM_DUPLEX}
  13827.   DM_DUPLEX = $1000;
  13828.   {$EXTERNALSYM DM_YRESOLUTION}
  13829.   DM_YRESOLUTION = $2000;
  13830.   {$EXTERNALSYM DM_TTOPTION}
  13831.   DM_TTOPTION = $4000;
  13832.   {$EXTERNALSYM DM_COLLATE}
  13833.   DM_COLLATE = $8000;
  13834.   {$EXTERNALSYM DM_FORMNAME}
  13835.   DM_FORMNAME = $10000;
  13836.   {$EXTERNALSYM DM_LOGPIXELS}
  13837.   DM_LOGPIXELS = $20000;
  13838.   {$EXTERNALSYM DM_BITSPERPEL}
  13839.   DM_BITSPERPEL = $40000;
  13840.   {$EXTERNALSYM DM_PELSWIDTH}
  13841.   DM_PELSWIDTH = $80000;
  13842.   {$EXTERNALSYM DM_PELSHEIGHT}
  13843.   DM_PELSHEIGHT = $100000;
  13844.   {$EXTERNALSYM DM_DISPLAYFLAGS}
  13845.   DM_DISPLAYFLAGS = $200000;
  13846.   {$EXTERNALSYM DM_DISPLAYFREQUENCY}
  13847.   DM_DISPLAYFREQUENCY = $400000;
  13848.   {$EXTERNALSYM DM_PANNINGWIDTH}
  13849.   DM_PANNINGWIDTH = $00800000;
  13850.   {$EXTERNALSYM DM_PANNINGHEIGHT}
  13851.   DM_PANNINGHEIGHT = $01000000;
  13852.   {$EXTERNALSYM DM_ICMMETHOD}
  13853.   DM_ICMMETHOD = $2000000;
  13854.   {$EXTERNALSYM DM_ICMINTENT}
  13855.   DM_ICMINTENT = $4000000;
  13856.   {$EXTERNALSYM DM_MEDIATYPE}
  13857.   DM_MEDIATYPE = $8000000;
  13858.   {$EXTERNALSYM DM_DITHERTYPE}
  13859.   DM_DITHERTYPE = $10000000;
  13860.   {$EXTERNALSYM DM_ICCMANUFACTURER}
  13861.   DM_ICCMANUFACTURER = $20000000;
  13862.   {$EXTERNALSYM DM_ICCMODEL}
  13863.   DM_ICCMODEL = $40000000;
  13864.  
  13865. { orientation selections }
  13866.  
  13867.   {$EXTERNALSYM DMORIENT_PORTRAIT}
  13868.   DMORIENT_PORTRAIT = 1;
  13869.   {$EXTERNALSYM DMORIENT_LANDSCAPE}
  13870.   DMORIENT_LANDSCAPE = 2;
  13871.  
  13872. { paper selections }
  13873.  
  13874.   {$EXTERNALSYM DMPAPER_LETTER}
  13875.   DMPAPER_LETTER      = 1;  { Letter 8 12 x 11 in               }
  13876.   {$EXTERNALSYM DMPAPER_FIRST}
  13877.   DMPAPER_FIRST       = DMPAPER_LETTER;
  13878.   {$EXTERNALSYM DMPAPER_LETTERSMALL}
  13879.   DMPAPER_LETTERSMALL = 2;  { Letter Small 8 12 x 11 in         }
  13880.   {$EXTERNALSYM DMPAPER_TABLOID}
  13881.   DMPAPER_TABLOID     = 3;  { Tabloid 11 x 17 in                }
  13882.   {$EXTERNALSYM DMPAPER_LEDGER}
  13883.   DMPAPER_LEDGER      = 4;  { Ledger 17 x 11 in                 }
  13884.   {$EXTERNALSYM DMPAPER_LEGAL}
  13885.   DMPAPER_LEGAL       = 5;  { Legal 8 12 x 14 in                }
  13886.   {$EXTERNALSYM DMPAPER_STATEMENT}
  13887.   DMPAPER_STATEMENT   = 6;  { Statement 5 12 x 8 12 in          }
  13888.   {$EXTERNALSYM DMPAPER_EXECUTIVE}
  13889.   DMPAPER_EXECUTIVE   = 7;  { Executive 7 14 x 10 12 in         }
  13890.   {$EXTERNALSYM DMPAPER_A3}
  13891.   DMPAPER_A3      = 8;      { A3 297 x 420 mm                     }
  13892.   {$EXTERNALSYM DMPAPER_A4}
  13893.   DMPAPER_A4      = 9;      { A4 210 x 297 mm                     }
  13894.   {$EXTERNALSYM DMPAPER_A4SMALL}
  13895.   DMPAPER_A4SMALL = 10;     { A4 Small 210 x 297 mm               }
  13896.   {$EXTERNALSYM DMPAPER_A5}
  13897.   DMPAPER_A5      = 11;     { A5 148 x 210 mm                     }
  13898.   {$EXTERNALSYM DMPAPER_B4}
  13899.   DMPAPER_B4      = 12;     { B4 (JIS) 250 x 354                  }
  13900.   {$EXTERNALSYM DMPAPER_B5}
  13901.   DMPAPER_B5      = 13;     { B5 (JIS) 182 x 257 mm               }
  13902.   {$EXTERNALSYM DMPAPER_FOLIO}
  13903.   DMPAPER_FOLIO   = 14;     { Folio 8 12 x 13 in                  }
  13904.   {$EXTERNALSYM DMPAPER_QUARTO}
  13905.   DMPAPER_QUARTO  = 15;     { Quarto 215 x 275 mm                 }
  13906.   {$EXTERNALSYM DMPAPER_10X14}
  13907.   DMPAPER_10X14   = 16;     { 10x14 in                            }
  13908.   {$EXTERNALSYM DMPAPER_11X17}
  13909.   DMPAPER_11X17   = 17;     { 11x17 in                            }
  13910.   {$EXTERNALSYM DMPAPER_NOTE}
  13911.   DMPAPER_NOTE    = 18;     { Note 8 12 x 11 in                   }
  13912.   {$EXTERNALSYM DMPAPER_ENV_9}
  13913.   DMPAPER_ENV_9   = 19;     { Envelope #9 3 78 x 8 78             }
  13914.   {$EXTERNALSYM DMPAPER_ENV_10}
  13915.   DMPAPER_ENV_10  = 20;     { Envelope #10 4 18 x 9 12            }
  13916.   {$EXTERNALSYM DMPAPER_ENV_11}
  13917.   DMPAPER_ENV_11  = 21;     { Envelope #11 4 12 x 10 38           }
  13918.   {$EXTERNALSYM DMPAPER_ENV_12}
  13919.   DMPAPER_ENV_12  = 22;     { Envelope #12 4 \276 x 11            }
  13920.   {$EXTERNALSYM DMPAPER_ENV_14}
  13921.   DMPAPER_ENV_14  = 23;     { Envelope #14 5 x 11 12              }
  13922.   {$EXTERNALSYM DMPAPER_CSHEET}
  13923.   DMPAPER_CSHEET  = 24;     { C size sheet                        }
  13924.   {$EXTERNALSYM DMPAPER_DSHEET}
  13925.   DMPAPER_DSHEET  = 25;     { D size sheet                        }
  13926.   {$EXTERNALSYM DMPAPER_ESHEET}
  13927.   DMPAPER_ESHEET  = 26;     { E size sheet                        }
  13928.   {$EXTERNALSYM DMPAPER_ENV_DL}
  13929.   DMPAPER_ENV_DL  = 27;     { Envelope DL 110 x 220mm             }
  13930.   {$EXTERNALSYM DMPAPER_ENV_C5}
  13931.   DMPAPER_ENV_C5  = 28;     { Envelope C5 162 x 229 mm            }
  13932.   {$EXTERNALSYM DMPAPER_ENV_C3}
  13933.   DMPAPER_ENV_C3  = 29;     { Envelope C3  324 x 458 mm           }
  13934.   {$EXTERNALSYM DMPAPER_ENV_C4}
  13935.   DMPAPER_ENV_C4  = 30;     { Envelope C4  229 x 324 mm           }
  13936.   {$EXTERNALSYM DMPAPER_ENV_C6}
  13937.   DMPAPER_ENV_C6  = 31;     { Envelope C6  114 x 162 mm           }
  13938.   {$EXTERNALSYM DMPAPER_ENV_C65}
  13939.   DMPAPER_ENV_C65  = 32;    { Envelope C65 114 x 229 mm           }
  13940.   {$EXTERNALSYM DMPAPER_ENV_B4}
  13941.   DMPAPER_ENV_B4   = 33;    { Envelope B4  250 x 353 mm           }
  13942.   {$EXTERNALSYM DMPAPER_ENV_B5}
  13943.   DMPAPER_ENV_B5   = 34;    { Envelope B5  176 x 250 mm           }
  13944.   {$EXTERNALSYM DMPAPER_ENV_B6}
  13945.   DMPAPER_ENV_B6   = 35;    { Envelope B6  176 x 125 mm           }
  13946.   {$EXTERNALSYM DMPAPER_ENV_ITALY}
  13947.   DMPAPER_ENV_ITALY          = 36;  { Envelope 110 x 230 mm               }
  13948.   {$EXTERNALSYM DMPAPER_ENV_MONARCH}
  13949.   DMPAPER_ENV_MONARCH        = 37;  { Envelope Monarch 3.875 x 7.5 in     }
  13950.   {$EXTERNALSYM DMPAPER_ENV_PERSONAL}
  13951.   DMPAPER_ENV_PERSONAL       = 38;  { 6 34 Envelope 3 58 x 6 12 in        }
  13952.   {$EXTERNALSYM DMPAPER_FANFOLD_US}
  13953.   DMPAPER_FANFOLD_US         = 39;  { US Std Fanfold 14 78 x 11 in        }
  13954.   {$EXTERNALSYM DMPAPER_FANFOLD_STD_GERMAN}
  13955.   DMPAPER_FANFOLD_STD_GERMAN = 40;  { German Std Fanfold 8 12 x 12 in    }
  13956.   {$EXTERNALSYM DMPAPER_FANFOLD_LGL_GERMAN}
  13957.   DMPAPER_FANFOLD_LGL_GERMAN = 41;  { German Legal Fanfold 8 12 x 13 in  }
  13958.   {$EXTERNALSYM DMPAPER_ISO_B4}
  13959.   DMPAPER_ISO_B4             = 42;  { B4 (ISO) 250 x 353 mm               }
  13960.   {$EXTERNALSYM DMPAPER_JAPANESE_POSTCARD}
  13961.   DMPAPER_JAPANESE_POSTCARD  = 43;  { Japanese Postcard 100 x 148 mm      }
  13962.   {$EXTERNALSYM DMPAPER_9X11}
  13963.   DMPAPER_9X11               = 44;  { 9 x 11 in                           }
  13964.   {$EXTERNALSYM DMPAPER_10X11}
  13965.   DMPAPER_10X11              = 45;  { 10 x 11 in                          }
  13966.   {$EXTERNALSYM DMPAPER_15X11}
  13967.   DMPAPER_15X11              = 46;  { 15 x 11 in                          }
  13968.   {$EXTERNALSYM DMPAPER_ENV_INVITE}
  13969.   DMPAPER_ENV_INVITE         = 47;  { Envelope Invite 220 x 220 mm        }
  13970.   {$EXTERNALSYM DMPAPER_RESERVED_48}
  13971.   DMPAPER_RESERVED_48        = 48;  { RESERVED--DO NOT USE                }
  13972.   {$EXTERNALSYM DMPAPER_RESERVED_49}
  13973.   DMPAPER_RESERVED_49        = 49;  { RESERVED--DO NOT USE                }
  13974.   {$EXTERNALSYM DMPAPER_LETTER_EXTRA}
  13975.   DMPAPER_LETTER_EXTRA       = 50;  { Letter Extra 9 \275 x 12 in         }
  13976.   {$EXTERNALSYM DMPAPER_LEGAL_EXTRA}
  13977.   DMPAPER_LEGAL_EXTRA        = 51;  { Legal Extra 9 \275 x 15 in          }
  13978.   {$EXTERNALSYM DMPAPER_TABLOID_EXTRA}
  13979.   DMPAPER_TABLOID_EXTRA      = 52;  { Tabloid Extra 11.69 x 18 in         }
  13980.   {$EXTERNALSYM DMPAPER_A4_EXTRA}
  13981.   DMPAPER_A4_EXTRA           = 53;  { A4 Extra 9.27 x 12.69 in            }
  13982.   {$EXTERNALSYM DMPAPER_LETTER_TRANSVERSE}
  13983.   DMPAPER_LETTER_TRANSVERSE  = 54;  { Letter Transverse 8 \275 x 11 in    }
  13984.   {$EXTERNALSYM DMPAPER_A4_TRANSVERSE}
  13985.   DMPAPER_A4_TRANSVERSE      = 55;  { A4 Transverse 210 x 297 mm          }
  13986.   {$EXTERNALSYM DMPAPER_LETTER_EXTRA_TRANSVERSE}
  13987.   DMPAPER_LETTER_EXTRA_TRANSVERSE = 56;     { Letter Extra Transverse 9\275 x 12 in  }
  13988.   {$EXTERNALSYM DMPAPER_A_PLUS}
  13989.   DMPAPER_A_PLUS        = 57;     { SuperASuperAA4 227 x 356 mm       }
  13990.   {$EXTERNALSYM DMPAPER_B_PLUS}
  13991.   DMPAPER_B_PLUS        = 58;     { SuperBSuperBA3 305 x 487 mm       }
  13992.   {$EXTERNALSYM DMPAPER_LETTER_PLUS}
  13993.   DMPAPER_LETTER_PLUS   = 59;     { Letter Plus 8.5 x 12.69 in          }
  13994.   {$EXTERNALSYM DMPAPER_A4_PLUS}
  13995.   DMPAPER_A4_PLUS       = 60;     { A4 Plus 210 x 330 mm                }
  13996.   {$EXTERNALSYM DMPAPER_A5_TRANSVERSE}
  13997.   DMPAPER_A5_TRANSVERSE = 61;     { A5 Transverse 148 x 210 mm          }
  13998.   {$EXTERNALSYM DMPAPER_B5_TRANSVERSE}
  13999.   DMPAPER_B5_TRANSVERSE = 62;     { B5 (JIS) Transverse 182 x 257 mm    }
  14000.   {$EXTERNALSYM DMPAPER_A3_EXTRA}
  14001.   DMPAPER_A3_EXTRA      = 63;     { A3 Extra 322 x 445 mm               }
  14002.   {$EXTERNALSYM DMPAPER_A5_EXTRA}
  14003.   DMPAPER_A5_EXTRA      = $40;    { A5 Extra 174 x 235 mm               }
  14004.   {$EXTERNALSYM DMPAPER_B5_EXTRA}
  14005.   DMPAPER_B5_EXTRA      = 65;     { B5 (ISO) Extra 201 x 276 mm         }
  14006.   {$EXTERNALSYM DMPAPER_A2}
  14007.   DMPAPER_A2            = 66;     { A2 420 x 594 mm                     }
  14008.   {$EXTERNALSYM DMPAPER_A3_TRANSVERSE}
  14009.   DMPAPER_A3_TRANSVERSE = 67;     { A3 Transverse 297 x 420 mm          }
  14010.   {$EXTERNALSYM DMPAPER_A3_EXTRA_TRANSVERSE}
  14011.   DMPAPER_A3_EXTRA_TRANSVERSE = 68;     { A3 Extra Transverse 322 x 445 mm    }
  14012. {
  14013.  ** the following sizes are reserved for the Far East version of Win95.
  14014.  ** Rotated papers rotate the physical page but not the logical page.
  14015. }
  14016.   {$EXTERNALSYM DMPAPER_DBL_JAPANESE_POSTCARD}
  14017.   DMPAPER_DBL_JAPANESE_POSTCARD = 69; { Japanese Double Postcard 200 x 148 mm }
  14018.  
  14019.   {$EXTERNALSYM DMPAPER_A6}
  14020.   DMPAPER_A6                  = 70;  { A6 105 x 148 mm                 }
  14021.  
  14022.   {$EXTERNALSYM DMPAPER_JENV_KAKU2          }
  14023.   DMPAPER_JENV_KAKU2          = 71;  { Japanese Envelope Kaku #2       }
  14024.   {$EXTERNALSYM DMPAPER_JENV_KAKU3          }
  14025.   DMPAPER_JENV_KAKU3          = 72;  { Japanese Envelope Kaku #3       }
  14026.   {$EXTERNALSYM DMPAPER_JENV_CHOU3          }
  14027.   DMPAPER_JENV_CHOU3          = 73;  { Japanese Envelope Chou #3       }
  14028.   {$EXTERNALSYM DMPAPER_JENV_CHOU4          }
  14029.   DMPAPER_JENV_CHOU4          = 74;  { Japanese Envelope Chou #4       }
  14030.   {$EXTERNALSYM DMPAPER_LETTER_ROTATED      }
  14031.   DMPAPER_LETTER_ROTATED      = 75;  { Letter Rotated 11 x 8 1/2 11 in }
  14032.   {$EXTERNALSYM DMPAPER_A3_ROTATED          }
  14033.   DMPAPER_A3_ROTATED          = 76;  { A3 Rotated 420 x 297 mm         }
  14034.   {$EXTERNALSYM DMPAPER_A4_ROTATED          }
  14035.   DMPAPER_A4_ROTATED          = 77;  { A4 Rotated 297 x 210 mm         }
  14036.   {$EXTERNALSYM DMPAPER_A5_ROTATED          }
  14037.   DMPAPER_A5_ROTATED          = 78;  { A5 Rotated 210 x 148 mm         }
  14038.   {$EXTERNALSYM DMPAPER_B4_JIS_ROTATED      }
  14039.   DMPAPER_B4_JIS_ROTATED      = 79;  { B4 (JIS) Rotated 364 x 257 mm   }
  14040.   {$EXTERNALSYM DMPAPER_B5_JIS_ROTATED      }
  14041.   DMPAPER_B5_JIS_ROTATED      = 80;  { B5 (JIS) Rotated 257 x 182 mm   }
  14042.   {$EXTERNALSYM DMPAPER_JAPANESE_POSTCARD_ROTATED }
  14043.   DMPAPER_JAPANESE_POSTCARD_ROTATED = 81; { Japanese Postcard Rotated 148 x 100 mm }
  14044.   {$EXTERNALSYM DMPAPER_DBL_JAPANESE_POSTCARD_ROTATED }
  14045.   DMPAPER_DBL_JAPANESE_POSTCARD_ROTATED = 82; { Double Japanese Postcard Rotated 148 x 200 mm }
  14046.   {$EXTERNALSYM DMPAPER_A6_ROTATED          }
  14047.   DMPAPER_A6_ROTATED          = 83;  { A6 Rotated 148 x 105 mm         }
  14048.   {$EXTERNALSYM DMPAPER_JENV_KAKU2_ROTATED  }
  14049.   DMPAPER_JENV_KAKU2_ROTATED  = 84;  { Japanese Envelope Kaku #2 Rotated}
  14050.   {$EXTERNALSYM DMPAPER_JENV_KAKU3_ROTATED  }
  14051.   DMPAPER_JENV_KAKU3_ROTATED  = 85;  { Japanese Envelope Kaku #3 Rotated}
  14052.   {$EXTERNALSYM DMPAPER_JENV_CHOU3_ROTATED  }
  14053.   DMPAPER_JENV_CHOU3_ROTATED  = 86;  { Japanese Envelope Chou #3 Rotated}
  14054.   {$EXTERNALSYM DMPAPER_JENV_CHOU4_ROTATED  }
  14055.   DMPAPER_JENV_CHOU4_ROTATED  = 87;  { Japanese Envelope Chou #4 Rotated}
  14056.   {$EXTERNALSYM DMPAPER_B6_JIS              }
  14057.   DMPAPER_B6_JIS              = 88;  { B6 (JIS) 128 x 182 mm           }
  14058.   {$EXTERNALSYM DMPAPER_B6_JIS_ROTATED      }
  14059.   DMPAPER_B6_JIS_ROTATED      = 89;  { B6 (JIS) Rotated 182 x 128 mm   }
  14060.   {$EXTERNALSYM DMPAPER_12X11               }
  14061.   DMPAPER_12X11               = 90;  { 12 x 11 in                      }
  14062.   {$EXTERNALSYM DMPAPER_JENV_YOU4           }
  14063.   DMPAPER_JENV_YOU4           = 91;  { Japanese Envelope You #4        }
  14064.   {$EXTERNALSYM DMPAPER_JENV_YOU4_ROTATED   }
  14065.   DMPAPER_JENV_YOU4_ROTATED   = 92;  { Japanese Envelope You #4 Rotated}
  14066.   {$EXTERNALSYM DMPAPER_P16K                }
  14067.   DMPAPER_P16K                = 93;  { PRC 16K 146 x 215 mm            }
  14068.   {$EXTERNALSYM DMPAPER_P32K                }
  14069.   DMPAPER_P32K                = 94;  { PRC 32K 97 x 151 mm             }
  14070.   {$EXTERNALSYM DMPAPER_P32KBIG             }
  14071.   DMPAPER_P32KBIG             = 95;  { PRC 32K(Big) 97 x 151 mm        }
  14072.   {$EXTERNALSYM DMPAPER_PENV_1              }
  14073.   DMPAPER_PENV_1              = 96;  { PRC Envelope #1 102 x 165 mm    }
  14074.   {$EXTERNALSYM DMPAPER_PENV_2              }
  14075.   DMPAPER_PENV_2              = 97;  { PRC Envelope #2 102 x 176 mm    }
  14076.   {$EXTERNALSYM DMPAPER_PENV_3              }
  14077.   DMPAPER_PENV_3              = 98;  { PRC Envelope #3 125 x 176 mm    }
  14078.   {$EXTERNALSYM DMPAPER_PENV_4              }
  14079.   DMPAPER_PENV_4              = 99;  { PRC Envelope #4 110 x 208 mm    }
  14080.   {$EXTERNALSYM DMPAPER_PENV_5              }
  14081.   DMPAPER_PENV_5              = 100; { PRC Envelope #5 110 x 220 mm    }
  14082.   {$EXTERNALSYM DMPAPER_PENV_6              }
  14083.   DMPAPER_PENV_6              = 101; { PRC Envelope #6 120 x 230 mm    }
  14084.   {$EXTERNALSYM DMPAPER_PENV_7              }
  14085.   DMPAPER_PENV_7              = 102; { PRC Envelope #7 160 x 230 mm    }
  14086.   {$EXTERNALSYM DMPAPER_PENV_8              }
  14087.   DMPAPER_PENV_8              = 103; { PRC Envelope #8 120 x 309 mm    }
  14088.   {$EXTERNALSYM DMPAPER_PENV_9              }
  14089.   DMPAPER_PENV_9              = 104; { PRC Envelope #9 229 x 324 mm    }
  14090.   {$EXTERNALSYM DMPAPER_PENV_10             }
  14091.   DMPAPER_PENV_10             = 105; { PRC Envelope #10 324 x 458 mm   }
  14092.   {$EXTERNALSYM DMPAPER_P16K_ROTATED        }
  14093.   DMPAPER_P16K_ROTATED        = 106; { PRC 16K Rotated                 }
  14094.   {$EXTERNALSYM DMPAPER_P32K_ROTATED        }
  14095.   DMPAPER_P32K_ROTATED        = 107; { PRC 32K Rotated                 }
  14096.   {$EXTERNALSYM DMPAPER_P32KBIG_ROTATED     }
  14097.   DMPAPER_P32KBIG_ROTATED     = 108; { PRC 32K(Big) Rotated            }
  14098.   {$EXTERNALSYM DMPAPER_PENV_1_ROTATED      }
  14099.   DMPAPER_PENV_1_ROTATED      = 109; { PRC Envelope #1 Rotated 165 x 102 mm}
  14100.   {$EXTERNALSYM DMPAPER_PENV_2_ROTATED      }
  14101.   DMPAPER_PENV_2_ROTATED      = 110; { PRC Envelope #2 Rotated 176 x 102 mm}
  14102.   {$EXTERNALSYM DMPAPER_PENV_3_ROTATED      }
  14103.   DMPAPER_PENV_3_ROTATED      = 111; { PRC Envelope #3 Rotated 176 x 125 mm}
  14104.   {$EXTERNALSYM DMPAPER_PENV_4_ROTATED      }
  14105.   DMPAPER_PENV_4_ROTATED      = 112; { PRC Envelope #4 Rotated 208 x 110 mm}
  14106.   {$EXTERNALSYM DMPAPER_PENV_5_ROTATED      }
  14107.   DMPAPER_PENV_5_ROTATED      = 113; { PRC Envelope #5 Rotated 220 x 110 mm}
  14108.   {$EXTERNALSYM DMPAPER_PENV_6_ROTATED      }
  14109.   DMPAPER_PENV_6_ROTATED      = 114; { PRC Envelope #6 Rotated 230 x 120 mm}
  14110.   {$EXTERNALSYM DMPAPER_PENV_7_ROTATED      }
  14111.   DMPAPER_PENV_7_ROTATED      = 115; { PRC Envelope #7 Rotated 230 x 160 mm}
  14112.   {$EXTERNALSYM DMPAPER_PENV_8_ROTATED      }
  14113.   DMPAPER_PENV_8_ROTATED      = 116; { PRC Envelope #8 Rotated 309 x 120 mm}
  14114.   {$EXTERNALSYM DMPAPER_PENV_9_ROTATED      }
  14115.   DMPAPER_PENV_9_ROTATED      = 117; { PRC Envelope #9 Rotated 324 x 229 mm}
  14116.   {$EXTERNALSYM DMPAPER_PENV_10_ROTATED     }
  14117.   DMPAPER_PENV_10_ROTATED     = 118; { PRC Envelope #10 Rotated 458 x 324 mm }
  14118.   {$EXTERNALSYM DMPAPER_LAST}
  14119.   DMPAPER_LAST                = DMPAPER_PENV_10_ROTATED;
  14120.   {$EXTERNALSYM DMPAPER_USER}
  14121.   DMPAPER_USER                = $100;
  14122.  
  14123. { bin selections }
  14124.  
  14125.   {$EXTERNALSYM DMBIN_UPPER}
  14126.   DMBIN_UPPER = 1;
  14127.   {$EXTERNALSYM DMBIN_FIRST}
  14128.   DMBIN_FIRST = DMBIN_UPPER;
  14129.   {$EXTERNALSYM DMBIN_ONLYONE}
  14130.   DMBIN_ONLYONE = 1;
  14131.   {$EXTERNALSYM DMBIN_LOWER}
  14132.   DMBIN_LOWER = 2;
  14133.   {$EXTERNALSYM DMBIN_MIDDLE}
  14134.   DMBIN_MIDDLE = 3;
  14135.   {$EXTERNALSYM DMBIN_MANUAL}
  14136.   DMBIN_MANUAL = 4;
  14137.   {$EXTERNALSYM DMBIN_ENVELOPE}
  14138.   DMBIN_ENVELOPE = 5;
  14139.   {$EXTERNALSYM DMBIN_ENVMANUAL}
  14140.   DMBIN_ENVMANUAL = 6;
  14141.   {$EXTERNALSYM DMBIN_AUTO}
  14142.   DMBIN_AUTO = 7;
  14143.   {$EXTERNALSYM DMBIN_TRACTOR}
  14144.   DMBIN_TRACTOR = 8;
  14145.   {$EXTERNALSYM DMBIN_SMALLFMT}
  14146.   DMBIN_SMALLFMT = 9;
  14147.   {$EXTERNALSYM DMBIN_LARGEFMT}
  14148.   DMBIN_LARGEFMT = 10;
  14149.   {$EXTERNALSYM DMBIN_LARGECAPACITY}
  14150.   DMBIN_LARGECAPACITY = 11;
  14151.   {$EXTERNALSYM DMBIN_CASSETTE}
  14152.   DMBIN_CASSETTE = 14;
  14153.   {$EXTERNALSYM DMBIN_FORMSOURCE}
  14154.   DMBIN_FORMSOURCE = 15;
  14155.   {$EXTERNALSYM DMBIN_LAST}
  14156.   DMBIN_LAST = DMBIN_FORMSOURCE;
  14157.   {$EXTERNALSYM DMBIN_USER}
  14158.   DMBIN_USER = $100;   { device specific bins start here }
  14159.  
  14160.   { print qualities }
  14161.   {$EXTERNALSYM DMRES_DRAFT}
  14162.   DMRES_DRAFT = LongWord(-1);
  14163.   {$EXTERNALSYM DMRES_LOW}
  14164.   DMRES_LOW = LongWord(-2);
  14165.   {$EXTERNALSYM DMRES_MEDIUM}
  14166.   DMRES_MEDIUM = LongWord(-3);
  14167.   {$EXTERNALSYM DMRES_HIGH}
  14168.   DMRES_HIGH = LongWord(-4);
  14169.  
  14170.   { color enabledisable for color printers }
  14171.   {$EXTERNALSYM DMCOLOR_MONOCHROME}
  14172.   DMCOLOR_MONOCHROME = 1;
  14173.   {$EXTERNALSYM DMCOLOR_COLOR}
  14174.   DMCOLOR_COLOR = 2;
  14175.  
  14176.   { duplex enable }
  14177.   {$EXTERNALSYM DMDUP_SIMPLEX}
  14178.   DMDUP_SIMPLEX = 1;
  14179.   {$EXTERNALSYM DMDUP_VERTICAL}
  14180.   DMDUP_VERTICAL = 2;
  14181.   {$EXTERNALSYM DMDUP_HORIZONTAL}
  14182.   DMDUP_HORIZONTAL = 3;
  14183.  
  14184.   { TrueType options }
  14185.   {$EXTERNALSYM DMTT_BITMAP}
  14186.   DMTT_BITMAP           = 1;     { print TT fonts as graphics  }
  14187.   {$EXTERNALSYM DMTT_DOWNLOAD}
  14188.   DMTT_DOWNLOAD         = 2;     { download TT fonts as soft fonts  }
  14189.   {$EXTERNALSYM DMTT_SUBDEV}
  14190.   DMTT_SUBDEV           = 3;     { substitute device fonts for TT fonts  }
  14191.   {$EXTERNALSYM DMTT_DOWNLOAD_OUTLINE}
  14192.   DMTT_DOWNLOAD_OUTLINE = 4;     { download TT fonts as outline soft fonts  }
  14193.  
  14194.   { Collation selections }
  14195.   {$EXTERNALSYM DMCOLLATE_FALSE}
  14196.   DMCOLLATE_FALSE = 0;
  14197.   {$EXTERNALSYM DMCOLLATE_TRUE}
  14198.   DMCOLLATE_TRUE = 1;
  14199.  
  14200.   { DEVMODE dmDisplayFlags flags }
  14201.   {$EXTERNALSYM DM_GRAYSCALE}
  14202.   DM_GRAYSCALE = $00000001;  { removed in 4.0 SDK }
  14203.   {$EXTERNALSYM DM_INTERLACED}
  14204.   DM_INTERLACED = $00000002; { removed in 4.0 SDK }
  14205.   {$EXTERNALSYM DM_TEXTMODE}
  14206.   DM_TEXTMODE = $00000004;   { removed in 4.0 SDK }
  14207.   {$EXTERNALSYM DMDISPLAYFLAGS_TEXTMODE}
  14208.   DMDISPLAYFLAGS_TEXTMODE     = $00000004;
  14209.  
  14210.   { ICM methods }
  14211.   {$EXTERNALSYM DMICMMETHOD_NONE}
  14212.   DMICMMETHOD_NONE   = 1;     { ICM disabled  }
  14213.   {$EXTERNALSYM DMICMMETHOD_SYSTEM}
  14214.   DMICMMETHOD_SYSTEM = 2;     { ICM handled by system  }
  14215.   {$EXTERNALSYM DMICMMETHOD_DRIVER}
  14216.   DMICMMETHOD_DRIVER = 3;     { ICM handled by driver  }
  14217.   {$EXTERNALSYM DMICMMETHOD_DEVICE}
  14218.   DMICMMETHOD_DEVICE = 4;     { ICM handled by device  }
  14219.  
  14220.   {$EXTERNALSYM DMICMMETHOD_USER}
  14221.   DMICMMETHOD_USER = $100;    { Device-specific methods start here  }
  14222.  
  14223.   { ICM Intents }
  14224.   {$EXTERNALSYM DMICM_SATURATE}
  14225.   DMICM_SATURATE    = 1;     { Maximize color saturation  }
  14226.   {$EXTERNALSYM DMICM_CONTRAST}
  14227.   DMICM_CONTRAST    = 2;     { Maximize color contrast  }
  14228.   {$EXTERNALSYM DMICM_COLORMETRIC}
  14229.   DMICM_COLORMETRIC = 3;     { Use specific color metric  }
  14230.  
  14231.   {$EXTERNALSYM DMICM_USER}
  14232.   DMICM_USER = $100;     { Device-specific intents start here  }
  14233.  
  14234.  
  14235.   { Media types }
  14236.   {$EXTERNALSYM DMMEDIA_STANDARD}
  14237.   DMMEDIA_STANDARD     = 1;     { Standard paper  }
  14238.   {$EXTERNALSYM DMMEDIA_TRANSPARENCY}
  14239.   DMMEDIA_TRANSPARENCY = 2;     { Transparency  }
  14240.   {$EXTERNALSYM DMMEDIA_GLOSSY}
  14241.   DMMEDIA_GLOSSY       = 3;     { Glossy paper  }
  14242.  
  14243.   {$EXTERNALSYM DMMEDIA_USER}
  14244.   DMMEDIA_USER = $100;     { Device-specific media start here  }
  14245.  
  14246.  
  14247.   { Dither types }
  14248.   {$EXTERNALSYM DMDITHER_NONE}
  14249.   DMDITHER_NONE      = 1;     { No dithering  }
  14250.   {$EXTERNALSYM DMDITHER_COARSE}
  14251.   DMDITHER_COARSE    = 2;     { Dither with a coarse brush  }
  14252.   {$EXTERNALSYM DMDITHER_FINE}
  14253.   DMDITHER_FINE      = 3;     { Dither with a fine brush  }
  14254.   {$EXTERNALSYM DMDITHER_LINEART}
  14255.   DMDITHER_LINEART   = 4;     { LineArt dithering  }
  14256.   {$EXTERNALSYM DMDITHER_ERRORDIFFUSION}
  14257.   DMDITHER_ERRORDIFFUSION = 5; { LineArt dithering }
  14258.   {$EXTERNALSYM DMDITHER_RESERVED6}
  14259.   DMDITHER_RESERVED6 = 6;      { LineArt dithering }
  14260.   {$EXTERNALSYM DMDITHER_RESERVED7}
  14261.   DMDITHER_RESERVED7 = 7;      { LineArt dithering }
  14262.   {$EXTERNALSYM DMDITHER_RESERVED8}
  14263.   DMDITHER_RESERVED8 = 8;      { LineArt dithering }
  14264.   {$EXTERNALSYM DMDITHER_RESERVED9}
  14265.   DMDITHER_RESERVED9 = 9;      { LineArt dithering }
  14266.   {$EXTERNALSYM DMDITHER_GRAYSCALE}
  14267.   DMDITHER_GRAYSCALE = 10;     { Device does grayscaling  }
  14268.  
  14269.   {$EXTERNALSYM DMDITHER_USER}
  14270.   DMDITHER_USER = 256;        { Device-specific dithers start here  }
  14271.  
  14272. type
  14273.   PDisplayDeviceA = ^TDisplayDeviceA;
  14274.   PDisplayDeviceW = ^TDisplayDeviceW;
  14275.   PDisplayDevice = PDisplayDeviceA;
  14276.   {$EXTERNALSYM _DISPLAY_DEVICEA}
  14277.   _DISPLAY_DEVICEA = packed record
  14278.     cb: DWORD;
  14279.     DeviceName: array[0..31] of AnsiChar;
  14280.     DeviceString: array[0..127] of AnsiChar;
  14281.     StateFlags: DWORD;
  14282.   end;
  14283.   {$EXTERNALSYM _DISPLAY_DEVICEW}
  14284.   _DISPLAY_DEVICEW = packed record
  14285.     cb: DWORD;
  14286.     DeviceName: array[0..31] of WideChar;
  14287.     DeviceString: array[0..127] of WideChar;
  14288.     StateFlags: DWORD;
  14289.   end;
  14290.   {$EXTERNALSYM _DISPLAY_DEVICE}
  14291.   _DISPLAY_DEVICE = _DISPLAY_DEVICEA;
  14292.   TDisplayDeviceA = _DISPLAY_DEVICEA;
  14293.   TDisplayDeviceW = _DISPLAY_DEVICEW;
  14294.   TDisplayDevice = TDisplayDeviceA;
  14295.  
  14296. const
  14297.   {$EXTERNALSYM DISPLAY_DEVICE_ATTACHED_TO_DESKTOP}
  14298.   DISPLAY_DEVICE_ATTACHED_TO_DESKTOP = $00000001;
  14299.   {$EXTERNALSYM DISPLAY_DEVICE_MULTI_DRIVER}
  14300.   DISPLAY_DEVICE_MULTI_DRIVER = $00000002;
  14301.   {$EXTERNALSYM DISPLAY_DEVICE_PRIMARY_DEVICE}
  14302.   DISPLAY_DEVICE_PRIMARY_DEVICE = $00000004;
  14303.   {$EXTERNALSYM DISPLAY_DEVICE_MIRRORING_DRIVER}
  14304.   DISPLAY_DEVICE_MIRRORING_DRIVER = $00000008;
  14305.   {$EXTERNALSYM DISPLAY_DEVICE_VGA_COMPATIBLE}
  14306.   DISPLAY_DEVICE_VGA_COMPATIBLE = $00000010;
  14307.  
  14308. { GetRegionData / ExtCreateRegion }
  14309.  
  14310.   {$EXTERNALSYM RDH_RECTANGLES}
  14311.   RDH_RECTANGLES = 1;
  14312.  
  14313. type
  14314.   PRgnDataHeader = ^TRgnDataHeader;
  14315.   {$EXTERNALSYM _RGNDATAHEADER}
  14316.   _RGNDATAHEADER = packed record
  14317.     dwSize: DWORD;
  14318.     iType: DWORD;
  14319.     nCount: DWORD;
  14320.     nRgnSize: DWORD;
  14321.     rcBound: TRect;
  14322.   end;
  14323.   TRgnDataHeader = _RGNDATAHEADER;
  14324.   {$EXTERNALSYM RGNDATAHEADER}
  14325.   RGNDATAHEADER = _RGNDATAHEADER;
  14326.  
  14327.   PRgnData = ^TRgnData;
  14328.   {$EXTERNALSYM _RGNDATA}
  14329.   _RGNDATA = record
  14330.     rdh: TRgnDataHeader;
  14331.     Buffer: array[0..0] of CHAR;
  14332.     Reserved: array[0..2] of CHAR;
  14333.   end;
  14334.   TRgnData = _RGNDATA;
  14335.   {$EXTERNALSYM RGNDATA}
  14336.   RGNDATA = _RGNDATA;
  14337.  
  14338.   {$EXTERNALSYM PABC}
  14339.   PABC = ^TABC;
  14340.   {$EXTERNALSYM _ABC}
  14341.   _ABC = packed record
  14342.     abcA: Integer;
  14343.     abcB: UINT;
  14344.     abcC: Integer;
  14345.   end;
  14346.   TABC = _ABC;
  14347.   {$EXTERNALSYM ABC}
  14348.   ABC = _ABC;
  14349.  
  14350.   PABCFloat = ^TABCFloat;
  14351.   {$EXTERNALSYM _ABCFLOAT}
  14352.   _ABCFLOAT = packed record
  14353.     abcfA: Single;
  14354.     abcfB: Single;
  14355.     abcfC: Single;
  14356.   end;
  14357.   TABCFloat = _ABCFLOAT;
  14358.   {$EXTERNALSYM ABCFLOAT}
  14359.   ABCFLOAT = _ABCFLOAT;
  14360.  
  14361.   POutlineTextmetricA = ^TOutlineTextmetricA;
  14362.   POutlineTextmetricW = ^TOutlineTextmetricW;
  14363.   POutlineTextmetric = POutlineTextmetricA;
  14364.   {$EXTERNALSYM _OUTLINETEXTMETRICA}
  14365.   _OUTLINETEXTMETRICA = record
  14366.     otmSize: UINT;
  14367.     otmTextMetrics: TTextMetricA;
  14368.     otmFiller: Byte;
  14369.     otmPanoseNumber: TPanose;
  14370.     otmfsSelection: UINT;
  14371.     otmfsType: UINT;
  14372.     otmsCharSlopeRise: Integer;
  14373.     otmsCharSlopeRun: Integer;
  14374.     otmItalicAngle: Integer;
  14375.     otmEMSquare: UINT;
  14376.     otmAscent: Integer;
  14377.     otmDescent: Integer;
  14378.     otmLineGap: UINT;
  14379.     otmsCapEmHeight: UINT;
  14380.     otmsXHeight: UINT;
  14381.     otmrcFontBox: TRect;
  14382.     otmMacAscent: Integer;
  14383.     otmMacDescent: Integer;
  14384.     otmMacLineGap: UINT;
  14385.     otmusMinimumPPEM: UINT;
  14386.     otmptSubscriptSize: TPoint;
  14387.     otmptSubscriptOffset: TPoint;
  14388.     otmptSuperscriptSize: TPoint;
  14389.     otmptSuperscriptOffset: TPoint;
  14390.     otmsStrikeoutSize: UINT;
  14391.     otmsStrikeoutPosition: Integer;
  14392.     otmsUnderscoreSize: Integer;
  14393.     otmsUnderscorePosition: Integer;
  14394.     otmpFamilyName: PAnsiChar;
  14395.     otmpFaceName: PAnsiChar;
  14396.     otmpStyleName: PAnsiChar;
  14397.     otmpFullName: PAnsiChar;
  14398.   end;
  14399.   {$EXTERNALSYM _OUTLINETEXTMETRICW}
  14400.   _OUTLINETEXTMETRICW = record
  14401.     otmSize: UINT;
  14402.     otmTextMetrics: TTextMetricW;
  14403.     otmFiller: Byte;
  14404.     otmPanoseNumber: TPanose;
  14405.     otmfsSelection: UINT;
  14406.     otmfsType: UINT;
  14407.     otmsCharSlopeRise: Integer;
  14408.     otmsCharSlopeRun: Integer;
  14409.     otmItalicAngle: Integer;
  14410.     otmEMSquare: UINT;
  14411.     otmAscent: Integer;
  14412.     otmDescent: Integer;
  14413.     otmLineGap: UINT;
  14414.     otmsCapEmHeight: UINT;
  14415.     otmsXHeight: UINT;
  14416.     otmrcFontBox: TRect;
  14417.     otmMacAscent: Integer;
  14418.     otmMacDescent: Integer;
  14419.     otmMacLineGap: UINT;
  14420.     otmusMinimumPPEM: UINT;
  14421.     otmptSubscriptSize: TPoint;
  14422.     otmptSubscriptOffset: TPoint;
  14423.     otmptSuperscriptSize: TPoint;
  14424.     otmptSuperscriptOffset: TPoint;
  14425.     otmsStrikeoutSize: UINT;
  14426.     otmsStrikeoutPosition: Integer;
  14427.     otmsUnderscoreSize: Integer;
  14428.     otmsUnderscorePosition: Integer;
  14429.     otmpFamilyName: PWideChar;
  14430.     otmpFaceName: PWideChar;
  14431.     otmpStyleName: PWideChar;
  14432.     otmpFullName: PWideChar;
  14433.   end;
  14434.   {$EXTERNALSYM _OUTLINETEXTMETRIC}
  14435.   _OUTLINETEXTMETRIC = _OUTLINETEXTMETRICA;
  14436.   TOutlineTextmetricA = _OUTLINETEXTMETRICA;
  14437.   TOutlineTextmetricW = _OUTLINETEXTMETRICW;
  14438.   TOutlineTextmetric = TOutlineTextmetricA;
  14439.   {$EXTERNALSYM OUTLINETEXTMETRICA}
  14440.   OUTLINETEXTMETRICA = _OUTLINETEXTMETRICA;
  14441.   {$EXTERNALSYM OUTLINETEXTMETRICW}
  14442.   OUTLINETEXTMETRICW = _OUTLINETEXTMETRICW;
  14443.   {$EXTERNALSYM OUTLINETEXTMETRIC}
  14444.   OUTLINETEXTMETRIC = OUTLINETEXTMETRICA;
  14445.  
  14446. type
  14447.   PPolyTextA = ^TPolyTextA;
  14448.   PPolyTextW = ^TPolyTextW;
  14449.   PPolyText = PPolyTextA;
  14450.   {$EXTERNALSYM tagPOLYTEXTA}
  14451.   tagPOLYTEXTA = packed record
  14452.     x: Integer;
  14453.     y: Integer;
  14454.     n: UINT;
  14455.     PAnsiChar: PAnsiChar;
  14456.     uiFlags: UINT;
  14457.     rcl: TRect;
  14458.     pdx: PINT;
  14459.   end;
  14460.   {$EXTERNALSYM tagPOLYTEXTW}
  14461.   tagPOLYTEXTW = packed record
  14462.     x: Integer;
  14463.     y: Integer;
  14464.     n: UINT;
  14465.     PAnsiChar: PWideChar;
  14466.     uiFlags: UINT;
  14467.     rcl: TRect;
  14468.     pdx: PINT;
  14469.   end;
  14470.   {$EXTERNALSYM tagPOLYTEXT}
  14471.   tagPOLYTEXT = tagPOLYTEXTA;
  14472.   TPolyTextA = tagPOLYTEXTA;
  14473.   TPolyTextW = tagPOLYTEXTW;
  14474.   TPolyText = TPolyTextA;
  14475.   {$EXTERNALSYM POLYTEXTA}
  14476.   POLYTEXTA = tagPOLYTEXTA;
  14477.   {$EXTERNALSYM POLYTEXTW}
  14478.   POLYTEXTW = tagPOLYTEXTW;
  14479.   {$EXTERNALSYM POLYTEXT}
  14480.   POLYTEXT = POLYTEXTA;
  14481.  
  14482.   {$EXTERNALSYM _FIXED}
  14483.   _FIXED = packed record
  14484.     fract: Word;
  14485.     value: SHORT;
  14486.   end;
  14487.   TFixed = _FIXED;
  14488.   {$EXTERNALSYM FIXED}
  14489.   FIXED = _FIXED;
  14490.  
  14491.   PMat2 = ^TMat2;
  14492.   {$EXTERNALSYM _MAT2}
  14493.   _MAT2 = packed record
  14494.     eM11: TFixed;
  14495.     eM12: TFixed;
  14496.     eM21: TFixed;
  14497.     eM22: TFixed;
  14498.   end;
  14499.   TMat2 = _MAT2;
  14500.   {$EXTERNALSYM MAT2}
  14501.   MAT2 = _MAT2;
  14502.  
  14503.   PGlyphMetrics = ^TGlyphMetrics;
  14504.   {$EXTERNALSYM _GLYPHMETRICS}
  14505.   _GLYPHMETRICS = packed record
  14506.     gmBlackBoxX: UINT;
  14507.     gmBlackBoxY: UINT;
  14508.     gmptGlyphOrigin: TPoint;
  14509.     gmCellIncX: SHORT;
  14510.     gmCellIncY: SHORT;
  14511.   end;
  14512.   TGlyphMetrics = _GLYPHMETRICS;
  14513.   {$EXTERNALSYM GLYPHMETRICS}
  14514.   GLYPHMETRICS = _GLYPHMETRICS;
  14515.  
  14516. const
  14517.   { GetGlyphOutline constants }
  14518.   {$EXTERNALSYM GGO_METRICS}
  14519.   GGO_METRICS = 0;
  14520.   {$EXTERNALSYM GGO_BITMAP}
  14521.   GGO_BITMAP = 1;
  14522.   {$EXTERNALSYM GGO_NATIVE}
  14523.   GGO_NATIVE = 2;
  14524.  
  14525.   {$EXTERNALSYM GGO_GRAY2_BITMAP}
  14526.   GGO_GRAY2_BITMAP = 4;
  14527.   {$EXTERNALSYM GGO_GRAY4_BITMAP}
  14528.   GGO_GRAY4_BITMAP = 5;
  14529.   {$EXTERNALSYM GGO_GRAY8_BITMAP}
  14530.   GGO_GRAY8_BITMAP = 6;
  14531.   {$EXTERNALSYM GGO_GLYPH_INDEX}
  14532.   GGO_GLYPH_INDEX = $80;
  14533.  
  14534.   {$EXTERNALSYM TT_POLYGON_TYPE}
  14535.   TT_POLYGON_TYPE = 24;
  14536.   {$EXTERNALSYM TT_PRIM_LINE}
  14537.   TT_PRIM_LINE = 1;
  14538.   {$EXTERNALSYM TT_PRIM_QSPLINE}
  14539.   TT_PRIM_QSPLINE = 2;
  14540.  
  14541. type
  14542.   PPointfx = ^TPointfx;
  14543.   {$EXTERNALSYM tagPOINTFX}
  14544.   tagPOINTFX = packed record
  14545.     x: TFixed;
  14546.     y: TFixed;
  14547.   end;
  14548.   TPointfx = tagPOINTFX;
  14549.   {$EXTERNALSYM POINTFX}
  14550.   POINTFX = tagPOINTFX;
  14551.  
  14552.   PTTPolyCurve = ^TTTPolyCurve;
  14553.   {$EXTERNALSYM tagTTPOLYCURVE}
  14554.   tagTTPOLYCURVE = packed record
  14555.     wType: Word;
  14556.     cpfx: Word;
  14557.     apfx: array[0..0] of TPointFX;
  14558.   end;
  14559.   TTTPolyCurve = tagTTPOLYCURVE;
  14560.   {$EXTERNALSYM TTPOLYCURVE}
  14561.   TTPOLYCURVE = tagTTPOLYCURVE;
  14562.  
  14563.   PTTPolygonHeader = ^TTTPolygonHeader;
  14564.   {$EXTERNALSYM tagTTPOLYGONHEADER}
  14565.   tagTTPOLYGONHEADER = packed record
  14566.     cb: DWORD;
  14567.     dwType: DWORD;
  14568.     pfxStart: TPointFX;
  14569.   end;
  14570.   TTTPolygonHeader = tagTTPOLYGONHEADER;
  14571.   {$EXTERNALSYM TTPOLYGONHEADER}
  14572.   TTPOLYGONHEADER = tagTTPOLYGONHEADER;
  14573.  
  14574. const
  14575.   {$EXTERNALSYM GCP_DBCS}
  14576.   GCP_DBCS = 1;
  14577.   {$EXTERNALSYM GCP_REORDER}
  14578.   GCP_REORDER = 2;
  14579.   {$EXTERNALSYM GCP_USEKERNING}
  14580.   GCP_USEKERNING = 8;
  14581.   {$EXTERNALSYM GCP_GLYPHSHAPE}
  14582.   GCP_GLYPHSHAPE = $10;
  14583.   {$EXTERNALSYM GCP_LIGATE}
  14584.   GCP_LIGATE = 32;
  14585.   GCP_GLYPHINDEXING = $0080; // commented out in Windows Headers
  14586.  
  14587.   {$EXTERNALSYM GCP_DIACRITIC}
  14588.   GCP_DIACRITIC = $100;
  14589.   {$EXTERNALSYM GCP_KASHIDA}
  14590.   GCP_KASHIDA = $400;
  14591.   {$EXTERNALSYM GCP_ERROR}
  14592.   GCP_ERROR = $8000;
  14593.   {$EXTERNALSYM FLI_MASK}
  14594.   FLI_MASK = 4155;
  14595.  
  14596.   {$EXTERNALSYM GCP_JUSTIFY}
  14597.   GCP_JUSTIFY = $10000;
  14598.   GCP_NODIACRITICS = $00020000; // commented out in Windows Headers
  14599.  
  14600.   {$EXTERNALSYM FLI_GLYPHS}
  14601.   FLI_GLYPHS = $40000;
  14602.   {$EXTERNALSYM GCP_CLASSIN}
  14603.   GCP_CLASSIN = $80000;
  14604.   {$EXTERNALSYM GCP_MAXEXTENT}
  14605.   GCP_MAXEXTENT = $100000;
  14606.   {$EXTERNALSYM GCP_JUSTIFYIN}
  14607.   GCP_JUSTIFYIN = $200000;
  14608.   {$EXTERNALSYM GCP_DISPLAYZWG}
  14609.   GCP_DISPLAYZWG = $400000;
  14610.   {$EXTERNALSYM GCP_SYMSWAPOFF}
  14611.   GCP_SYMSWAPOFF = $800000;
  14612.   {$EXTERNALSYM GCP_NUMERICOVERRIDE}
  14613.   GCP_NUMERICOVERRIDE = $1000000;
  14614.   {$EXTERNALSYM GCP_NEUTRALOVERRIDE}
  14615.   GCP_NEUTRALOVERRIDE = $2000000;
  14616.   {$EXTERNALSYM GCP_NUMERICSLATIN}
  14617.   GCP_NUMERICSLATIN = $4000000;
  14618.   {$EXTERNALSYM GCP_NUMERICSLOCAL}
  14619.   GCP_NUMERICSLOCAL = $8000000;
  14620.  
  14621.   {$EXTERNALSYM GCPCLASS_LATIN}
  14622.   GCPCLASS_LATIN = 1;
  14623.   {$EXTERNALSYM GCPCLASS_HEBREW}
  14624.   GCPCLASS_HEBREW = 2;
  14625.   {$EXTERNALSYM GCPCLASS_ARABIC}
  14626.   GCPCLASS_ARABIC = 2;
  14627.   {$EXTERNALSYM GCPCLASS_NEUTRAL}
  14628.   GCPCLASS_NEUTRAL = 3;
  14629.   {$EXTERNALSYM GCPCLASS_LOCALNUMBER}
  14630.   GCPCLASS_LOCALNUMBER = 4;
  14631.   {$EXTERNALSYM GCPCLASS_LATINNUMBER}
  14632.   GCPCLASS_LATINNUMBER = 5;
  14633.   {$EXTERNALSYM GCPCLASS_LATINNUMERICTERMINATOR}
  14634.   GCPCLASS_LATINNUMERICTERMINATOR = 6;
  14635.   {$EXTERNALSYM GCPCLASS_LATINNUMERICSEPARATOR}
  14636.   GCPCLASS_LATINNUMERICSEPARATOR = 7;
  14637.   {$EXTERNALSYM GCPCLASS_NUMERICSEPARATOR}
  14638.   GCPCLASS_NUMERICSEPARATOR = 8;
  14639.   {$EXTERNALSYM GCPCLASS_PREBOUNDRTL}
  14640.   GCPCLASS_PREBOUNDRTL = $80;
  14641.   {$EXTERNALSYM GCPCLASS_PREBOUNDLTR}
  14642.   GCPCLASS_PREBOUNDLTR = $40;
  14643.   {$EXTERNALSYM GCPCLASS_POSTBOUNDLTR}
  14644.   GCPCLASS_POSTBOUNDLTR        = $20;
  14645.   {$EXTERNALSYM GCPCLASS_POSTBOUNDRTL}
  14646.   GCPCLASS_POSTBOUNDRTL        = $10;
  14647.  
  14648.   {$EXTERNALSYM GCPGLYPH_LINKBEFORE}
  14649.   GCPGLYPH_LINKBEFORE          = $8000;
  14650.   {$EXTERNALSYM GCPGLYPH_LINKAFTER}
  14651.   GCPGLYPH_LINKAFTER           = $4000;
  14652.  
  14653.  
  14654. type
  14655.   PGCPResultsA = ^TGCPResultsA;
  14656.   PGCPResultsW = ^TGCPResultsW;
  14657.   PGCPResults = PGCPResultsA;
  14658.   {$EXTERNALSYM tagGCP_RESULTSA}
  14659.   tagGCP_RESULTSA = packed record
  14660.     lStructSize: DWORD;
  14661.     lpOutString: PAnsiChar;
  14662.     lpOrder: PUINT;
  14663.     lpDx: PINT;
  14664.     lpCaretPos: PINT;
  14665.     lpClass: PAnsiChar;
  14666.     lpGlyphs: PUINT;
  14667.     nGlyphs: UINT;
  14668.     nMaxFit: Integer;
  14669.   end;
  14670.   {$EXTERNALSYM tagGCP_RESULTSW}
  14671.   tagGCP_RESULTSW = packed record
  14672.     lStructSize: DWORD;
  14673.     lpOutString: PWideChar;
  14674.     lpOrder: PUINT;
  14675.     lpDx: PINT;
  14676.     lpCaretPos: PINT;
  14677.     lpClass: PWideChar;
  14678.     lpGlyphs: PUINT;
  14679.     nGlyphs: UINT;
  14680.     nMaxFit: Integer;
  14681.   end;
  14682.   {$EXTERNALSYM tagGCP_RESULTS}
  14683.   tagGCP_RESULTS = tagGCP_RESULTSA;
  14684.   TGCPResultsA = tagGCP_RESULTSA;
  14685.   TGCPResultsW = tagGCP_RESULTSW;
  14686.   TGCPResults = TGCPResultsA;
  14687.   {$EXTERNALSYM GCP_RESULTSA}
  14688.   GCP_RESULTSA = tagGCP_RESULTSA;
  14689.   {$EXTERNALSYM GCP_RESULTSW}
  14690.   GCP_RESULTSW = tagGCP_RESULTSW;
  14691.   {$EXTERNALSYM GCP_RESULTS}
  14692.   GCP_RESULTS = GCP_RESULTSA;
  14693.  
  14694.   PRasterizerStatus = ^TRasterizerStatus;
  14695.   {$EXTERNALSYM _RASTERIZER_STATUS}
  14696.   _RASTERIZER_STATUS = packed record
  14697.     nSize: SHORT;
  14698.     wFlags: SHORT;
  14699.     nLanguageID: SHORT;
  14700.   end;
  14701.   TRasterizerStatus = _RASTERIZER_STATUS;
  14702.   {$EXTERNALSYM RASTERIZER_STATUS}
  14703.   RASTERIZER_STATUS = _RASTERIZER_STATUS;
  14704.  
  14705. const
  14706.   { bits defined in wFlags of RASTERIZER_STATUS }
  14707.   {$EXTERNALSYM TT_AVAILABLE}
  14708.   TT_AVAILABLE = 1;
  14709.   {$EXTERNALSYM TT_ENABLED}
  14710.   TT_ENABLED = 2;
  14711.  
  14712. type
  14713.   { Pixel format descriptor }
  14714.   PPixelFormatDescriptor = ^TPixelFormatDescriptor;
  14715.   {$EXTERNALSYM tagPIXELFORMATDESCRIPTOR}
  14716.   tagPIXELFORMATDESCRIPTOR = packed record
  14717.     nSize: Word;
  14718.     nVersion: Word;
  14719.     dwFlags: DWORD;
  14720.     iPixelType: Byte;
  14721.     cColorBits: Byte;
  14722.     cRedBits: Byte;
  14723.     cRedShift: Byte;
  14724.     cGreenBits: Byte;
  14725.     cGreenShift: Byte;
  14726.     cBlueBits: Byte;
  14727.     cBlueShift: Byte;
  14728.     cAlphaBits: Byte;
  14729.     cAlphaShift: Byte;
  14730.     cAccumBits: Byte;
  14731.     cAccumRedBits: Byte;
  14732.     cAccumGreenBits: Byte;
  14733.     cAccumBlueBits: Byte;
  14734.     cAccumAlphaBits: Byte;
  14735.     cDepthBits: Byte;
  14736.     cStencilBits: Byte;
  14737.     cAuxBuffers: Byte;
  14738.     iLayerType: Byte;
  14739.     bReserved: Byte;
  14740.     dwLayerMask: DWORD;
  14741.     dwVisibleMask: DWORD;
  14742.     dwDamageMask: DWORD;
  14743.   end;
  14744.   TPixelFormatDescriptor = tagPIXELFORMATDESCRIPTOR;
  14745.   {$EXTERNALSYM PIXELFORMATDESCRIPTOR}
  14746.   PIXELFORMATDESCRIPTOR = tagPIXELFORMATDESCRIPTOR;
  14747.  
  14748. const
  14749.   { pixel types }
  14750.   {$EXTERNALSYM PFD_TYPE_RGBA}
  14751.   PFD_TYPE_RGBA = 0;
  14752.   {$EXTERNALSYM PFD_TYPE_COLORINDEX}
  14753.   PFD_TYPE_COLORINDEX = 1;
  14754.  
  14755.   { layer types }
  14756.   {$EXTERNALSYM PFD_MAIN_PLANE}
  14757.   PFD_MAIN_PLANE = 0;
  14758.   {$EXTERNALSYM PFD_OVERLAY_PLANE}
  14759.   PFD_OVERLAY_PLANE = 1;
  14760.   {$EXTERNALSYM PFD_UNDERLAY_PLANE}
  14761.   PFD_UNDERLAY_PLANE = LongWord(-1);
  14762.  
  14763.   { TPixelFormatDescriptor flags }
  14764.   {$EXTERNALSYM PFD_DOUBLEBUFFER}
  14765.   PFD_DOUBLEBUFFER                = $00000001;
  14766.   {$EXTERNALSYM PFD_STEREO}
  14767.   PFD_STEREO                      = $00000002;
  14768.   {$EXTERNALSYM PFD_DRAW_TO_WINDOW}
  14769.   PFD_DRAW_TO_WINDOW              = $00000004;
  14770.   {$EXTERNALSYM PFD_DRAW_TO_BITMAP}
  14771.   PFD_DRAW_TO_BITMAP              = $00000008;
  14772.   {$EXTERNALSYM PFD_SUPPORT_GDI}
  14773.   PFD_SUPPORT_GDI                 = $00000010;
  14774.   {$EXTERNALSYM PFD_SUPPORT_OPENGL}
  14775.   PFD_SUPPORT_OPENGL              = $00000020;
  14776.   {$EXTERNALSYM PFD_GENERIC_FORMAT}
  14777.   PFD_GENERIC_FORMAT              = $00000040;
  14778.   {$EXTERNALSYM PFD_NEED_PALETTE}
  14779.   PFD_NEED_PALETTE                = $00000080;
  14780.   {$EXTERNALSYM PFD_NEED_SYSTEM_PALETTE}
  14781.   PFD_NEED_SYSTEM_PALETTE         = $00000100;
  14782.   {$EXTERNALSYM PFD_SWAP_EXCHANGE}
  14783.   PFD_SWAP_EXCHANGE               = $00000200;
  14784.   {$EXTERNALSYM PFD_SWAP_COPY}
  14785.   PFD_SWAP_COPY                   = $00000400;
  14786.   {$EXTERNALSYM PFD_SWAP_LAYER_BUFFERS}
  14787.   PFD_SWAP_LAYER_BUFFERS          = $00000800;
  14788.   {$EXTERNALSYM PFD_GENERIC_ACCELERATED}
  14789.   PFD_GENERIC_ACCELERATED         = $00001000;
  14790.  
  14791.   { TPixelFormatDescriptor flags for use in ChoosePixelFormat only }
  14792.   {$EXTERNALSYM PFD_DEPTH_DONTCARE}
  14793.   PFD_DEPTH_DONTCARE              = $20000000;
  14794.   {$EXTERNALSYM PFD_DOUBLEBUFFER_DONTCARE}
  14795.   PFD_DOUBLEBUFFER_DONTCARE       = $40000000;
  14796.   {$EXTERNALSYM PFD_STEREO_DONTCARE}
  14797.   PFD_STEREO_DONTCARE             = DWORD($80000000);
  14798.  
  14799. type
  14800.  
  14801.  
  14802.  
  14803.  
  14804.  
  14805.  
  14806.  
  14807.  
  14808.  
  14809.  
  14810.  
  14811.   TFNOldFontEnumProcA = TFarProc;
  14812.   TFNOldFontEnumProcW = TFarProc;
  14813.   TFNOldFontEnumProc = TFNOldFontEnumProcA;
  14814.   TFNGObjEnumProc = TFarProc;
  14815.   TFNLineDDAProc = TFarProc;
  14816.   TFNFontEnumProcA = TFarProc;
  14817.   TFNFontEnumProcW = TFarProc;
  14818.   TFNFontEnumProc = TFNFontEnumProcA;
  14819.  
  14820.  
  14821.  
  14822. {$EXTERNALSYM AddFontResourceA}
  14823. function AddFontResourceA(p1: PAnsiChar): Integer; stdcall;
  14824. {$EXTERNALSYM AddFontResourceW}
  14825. function AddFontResourceW(p1: PWideChar): Integer; stdcall;
  14826. {$EXTERNALSYM AddFontResource}
  14827. function AddFontResource(p1: PChar): Integer; stdcall;
  14828. {$EXTERNALSYM AnimatePalette}
  14829. function AnimatePalette(p1: HPALETTE; p2, p3: UINT; p4: PPaletteEntry): BOOL; stdcall;
  14830. {$EXTERNALSYM Arc}
  14831. function Arc(hDC: HDC; left, top, right, bottom, startX, startY, endX, endY: Integer): BOOL; stdcall;
  14832. {$EXTERNALSYM BitBlt}
  14833. function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC;
  14834.   XSrc, YSrc: Integer; Rop: DWORD): BOOL; stdcall;
  14835. {$EXTERNALSYM CancelDC}
  14836. function CancelDC(DC: HDC): BOOL; stdcall;
  14837. {$EXTERNALSYM Chord}
  14838. function Chord(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): BOOL; stdcall;
  14839. {$EXTERNALSYM ChoosePixelFormat}
  14840. function ChoosePixelFormat(DC: HDC; p2: PPixelFormatDescriptor): Integer; stdcall;
  14841. {$EXTERNALSYM CloseMetaFile}
  14842. function CloseMetaFile(DC: HDC): HMETAFILE; stdcall;
  14843. {$EXTERNALSYM CombineRgn}
  14844. function CombineRgn(p1, p2, p3: HRGN; p4: Integer): Integer; stdcall;
  14845. {$EXTERNALSYM CopyMetaFileA}
  14846. function CopyMetaFileA(p1: HMETAFILE; p2: PAnsiChar): HMETAFILE; stdcall;
  14847. {$EXTERNALSYM CopyMetaFileW}
  14848. function CopyMetaFileW(p1: HMETAFILE; p2: PWideChar): HMETAFILE; stdcall;
  14849. {$EXTERNALSYM CopyMetaFile}
  14850. function CopyMetaFile(p1: HMETAFILE; p2: PChar): HMETAFILE; stdcall;
  14851. {$EXTERNALSYM CreateBitmap}
  14852. function CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint;
  14853.   Bits: Pointer): HBITMAP; stdcall;
  14854. {$EXTERNALSYM CreateBitmapIndirect}
  14855. function CreateBitmapIndirect(const p1: TBitmap): HBITMAP; stdcall;
  14856. {$EXTERNALSYM CreateBrushIndirect}
  14857. function CreateBrushIndirect(const p1: TLogBrush): HBRUSH; stdcall;
  14858. {$EXTERNALSYM CreateCompatibleBitmap}
  14859. function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; stdcall;
  14860. {$EXTERNALSYM CreateDiscardableBitmap}
  14861. function CreateDiscardableBitmap(DC: HDC; p2, p3: Integer): HBITMAP; stdcall;
  14862. {$EXTERNALSYM CreateCompatibleDC}
  14863. function CreateCompatibleDC(DC: HDC): HDC; stdcall;
  14864. {$EXTERNALSYM CreateDCA}
  14865. function CreateDCA(lpszDriver, lpszDevice, lpszOutput: PAnsiChar;
  14866.   lpdvmInit: PDeviceModeA): HDC; stdcall;
  14867. {$EXTERNALSYM CreateDCW}
  14868. function CreateDCW(lpszDriver, lpszDevice, lpszOutput: PWideChar;
  14869.   lpdvmInit: PDeviceModeW): HDC; stdcall;
  14870. {$EXTERNALSYM CreateDC}
  14871. function CreateDC(lpszDriver, lpszDevice, lpszOutput: PChar;
  14872.   lpdvmInit: PDeviceMode): HDC; stdcall;
  14873. {$EXTERNALSYM CreateDIBitmap}
  14874. function CreateDIBitmap(DC: HDC; var InfoHeader: TBitmapInfoHeader;
  14875.   dwUsage: DWORD; InitBits: PChar; var InitInfo: TBitmapInfo;
  14876.   wUsage: UINT): HBITMAP; stdcall;
  14877. {$EXTERNALSYM CreateDIBPatternBrush}
  14878. function CreateDIBPatternBrush(p1: HGLOBAL; p2: UINT): HBRUSH; stdcall;
  14879. {$EXTERNALSYM CreateDIBPatternBrushPt}
  14880. function CreateDIBPatternBrushPt(const p1: Pointer; p2: UINT): HBRUSH; stdcall;
  14881. {$EXTERNALSYM CreateEllipticRgn}
  14882. function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; stdcall;
  14883. {$EXTERNALSYM CreateEllipticRgnIndirect}
  14884. function CreateEllipticRgnIndirect(const p1: TRect): HRGN; stdcall;
  14885. {$EXTERNALSYM CreateFontIndirectA}
  14886. function CreateFontIndirectA(const p1: TLogFontA): HFONT; stdcall;
  14887. {$EXTERNALSYM CreateFontIndirectW}
  14888. function CreateFontIndirectW(const p1: TLogFontW): HFONT; stdcall;
  14889. {$EXTERNALSYM CreateFontIndirect}
  14890. function CreateFontIndirect(const p1: TLogFont): HFONT; stdcall;
  14891. {$EXTERNALSYM CreateFontA}
  14892. function CreateFontA(nHeight, nWidth, nEscapement, nOrientaion, fnWeight: Integer;
  14893.   fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision,
  14894.   fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: PAnsiChar): HFONT; stdcall;
  14895. {$EXTERNALSYM CreateFontW}
  14896. function CreateFontW(nHeight, nWidth, nEscapement, nOrientaion, fnWeight: Integer;
  14897.   fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision,
  14898.   fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: PWideChar): HFONT; stdcall;
  14899. {$EXTERNALSYM CreateFont}
  14900. function CreateFont(nHeight, nWidth, nEscapement, nOrientaion, fnWeight: Integer;
  14901.   fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision,
  14902.   fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: PChar): HFONT; stdcall;
  14903. {$EXTERNALSYM CreateHatchBrush}
  14904. function CreateHatchBrush(p1: Integer; p2: COLORREF): HBRUSH; stdcall;
  14905. {$EXTERNALSYM CreateICA}
  14906. function CreateICA(lpszDriver, lpszDevice, lpszOutput: PAnsiChar; lpdvmInit: PDeviceModeA): HDC; stdcall;
  14907. {$EXTERNALSYM CreateICW}
  14908. function CreateICW(lpszDriver, lpszDevice, lpszOutput: PWideChar; lpdvmInit: PDeviceModeW): HDC; stdcall;
  14909. {$EXTERNALSYM CreateIC}
  14910. function CreateIC(lpszDriver, lpszDevice, lpszOutput: PChar; lpdvmInit: PDeviceMode): HDC; stdcall;
  14911. {$EXTERNALSYM CreateMetaFileA}
  14912. function CreateMetaFileA(p1: PAnsiChar): HDC; stdcall;
  14913. {$EXTERNALSYM CreateMetaFileW}
  14914. function CreateMetaFileW(p1: PWideChar): HDC; stdcall;
  14915. {$EXTERNALSYM CreateMetaFile}
  14916. function CreateMetaFile(p1: PChar): HDC; stdcall;
  14917. {$EXTERNALSYM CreatePalette}
  14918. function CreatePalette(const LogPalette: TLogPalette): HPalette; stdcall;
  14919. {$EXTERNALSYM CreatePen}
  14920. function CreatePen(Style, Width: Integer; Color: COLORREF): HPEN; stdcall;
  14921. {$EXTERNALSYM CreatePenIndirect}
  14922. function CreatePenIndirect(const LogPen: TLogPen): HPEN; stdcall;
  14923. {$EXTERNALSYM CreatePolyPolygonRgn}
  14924. function CreatePolyPolygonRgn(const pPtStructs; const pIntArray; p3, p4: Integer): HRGN; stdcall;
  14925. {$EXTERNALSYM CreatePatternBrush}
  14926. function CreatePatternBrush(Bitmap: HBITMAP): HBRUSH; stdcall;
  14927. {$EXTERNALSYM CreateRectRgn}
  14928. function CreateRectRgn(p1, p2, p3, p4: Integer): HRGN; stdcall;
  14929. {$EXTERNALSYM CreateRectRgnIndirect}
  14930. function CreateRectRgnIndirect(const p1: TRect): HRGN; stdcall;
  14931. {$EXTERNALSYM CreateRoundRectRgn}
  14932. function CreateRoundRectRgn(p1, p2, p3, p4, p5, p6: Integer): HRGN; stdcall;
  14933. {$EXTERNALSYM CreateScalableFontResourceA}
  14934. function CreateScalableFontResourceA(p1: DWORD; p2, p3, p4: PAnsiChar): BOOL; stdcall;
  14935. {$EXTERNALSYM CreateScalableFontResourceW}
  14936. function CreateScalableFontResourceW(p1: DWORD; p2, p3, p4: PWideChar): BOOL; stdcall;
  14937. {$EXTERNALSYM CreateScalableFontResource}
  14938. function CreateScalableFontResource(p1: DWORD; p2, p3, p4: PChar): BOOL; stdcall;
  14939. {$EXTERNALSYM CreateSolidBrush}
  14940. function CreateSolidBrush(p1: COLORREF): HBRUSH; stdcall;
  14941. {$EXTERNALSYM DeleteDC}
  14942. function DeleteDC(DC: HDC): BOOL; stdcall;
  14943. {$EXTERNALSYM DeleteMetaFile}
  14944. function DeleteMetaFile(p1: HMETAFILE): BOOL; stdcall;
  14945. {$EXTERNALSYM DeleteObject}
  14946. function DeleteObject(p1: HGDIOBJ): BOOL; stdcall;
  14947. {$EXTERNALSYM DescribePixelFormat}
  14948. function DescribePixelFormat(DC: HDC; p2: Integer; p3: UINT; var p4: TPixelFormatDescriptor): BOOL; stdcall;
  14949.  
  14950. { define types of pointers to ExtDeviceMode() and DeviceCapabilities()
  14951.   functions for Win 3.1 compatibility }
  14952.  
  14953. type
  14954.  
  14955.  
  14956.  
  14957.  
  14958.   TFNDevMode = TFarProc;
  14959.  
  14960.  
  14961.  
  14962.  
  14963.   TFNDevCaps = TFarProc;
  14964.  
  14965. const
  14966.   { mode selections for the device mode function }
  14967.   {$EXTERNALSYM DM_UPDATE}
  14968.   DM_UPDATE = 1;
  14969.   {$EXTERNALSYM DM_COPY}
  14970.   DM_COPY = 2;
  14971.   {$EXTERNALSYM DM_PROMPT}
  14972.   DM_PROMPT = 4;
  14973.   {$EXTERNALSYM DM_MODIFY}
  14974.   DM_MODIFY = 8;
  14975.  
  14976.   {$EXTERNALSYM DM_IN_BUFFER}
  14977.   DM_IN_BUFFER = DM_MODIFY;
  14978.   {$EXTERNALSYM DM_IN_PROMPT}
  14979.   DM_IN_PROMPT = DM_PROMPT;
  14980.   {$EXTERNALSYM DM_OUT_BUFFER}
  14981.   DM_OUT_BUFFER = DM_COPY;
  14982.   {$EXTERNALSYM DM_OUT_DEFAULT}
  14983.   DM_OUT_DEFAULT = DM_UPDATE;
  14984.  
  14985.   { device capabilities indices }
  14986.   {$EXTERNALSYM DC_FIELDS}
  14987.   DC_FIELDS = 1;
  14988.   {$EXTERNALSYM DC_PAPERS}
  14989.   DC_PAPERS = 2;
  14990.   {$EXTERNALSYM DC_PAPERSIZE}
  14991.   DC_PAPERSIZE = 3;
  14992.   {$EXTERNALSYM DC_MINEXTENT}
  14993.   DC_MINEXTENT = 4;
  14994.   {$EXTERNALSYM DC_MAXEXTENT}
  14995.   DC_MAXEXTENT = 5;
  14996.   {$EXTERNALSYM DC_BINS}
  14997.   DC_BINS = 6;
  14998.   {$EXTERNALSYM DC_DUPLEX}
  14999.   DC_DUPLEX = 7;
  15000.   {$EXTERNALSYM DC_SIZE}
  15001.   DC_SIZE = 8;
  15002.   {$EXTERNALSYM DC_EXTRA}
  15003.   DC_EXTRA = 9;
  15004.   {$EXTERNALSYM DC_VERSION}
  15005.   DC_VERSION = 10;
  15006.   {$EXTERNALSYM DC_DRIVER}
  15007.   DC_DRIVER = 11;
  15008.   {$EXTERNALSYM DC_BINNAMES}
  15009.   DC_BINNAMES = 12;
  15010.   {$EXTERNALSYM DC_ENUMRESOLUTIONS}
  15011.   DC_ENUMRESOLUTIONS = 13;
  15012.   {$EXTERNALSYM DC_FILEDEPENDENCIES}
  15013.   DC_FILEDEPENDENCIES = 14;
  15014.   {$EXTERNALSYM DC_TRUETYPE}
  15015.   DC_TRUETYPE = 15;
  15016.   {$EXTERNALSYM DC_PAPERNAMES}
  15017.   DC_PAPERNAMES = 16;
  15018.   {$EXTERNALSYM DC_ORIENTATION}
  15019.   DC_ORIENTATION = 17;
  15020.   {$EXTERNALSYM DC_COPIES}
  15021.   DC_COPIES = 18;
  15022.   {$EXTERNALSYM DC_BINADJUST}
  15023.   DC_BINADJUST = 19;
  15024.   {$EXTERNALSYM DC_EMF_COMPLIANT}
  15025.   DC_EMF_COMPLIANT = 20;
  15026.   {$EXTERNALSYM DC_DATATYPE_PRODUCED}
  15027.   DC_DATATYPE_PRODUCED = 21;
  15028.   {$EXTERNALSYM DC_COLLATE}
  15029.   DC_COLLATE = 22;
  15030.   {$EXTERNALSYM DC_MANUFACTURER}
  15031.   DC_MANUFACTURER = 23;
  15032.   {$EXTERNALSYM DC_MODEL}
  15033.   DC_MODEL = 24;
  15034.   {$EXTERNALSYM DC_COLORDEVICE}
  15035.   DC_COLORDEVICE = 23;
  15036.   {$EXTERNALSYM DC_NUP}
  15037.   DC_NUP = 24;
  15038.   {$EXTERNALSYM DC_PERSONALITY}
  15039.   DC_PERSONALITY = 25;
  15040.   {$EXTERNALSYM DC_PRINTRATE}
  15041.   DC_PRINTRATE = 26;
  15042.   {$EXTERNALSYM DC_PRINTRATEUNIT}
  15043.   DC_PRINTRATEUNIT = 27;
  15044.   {$EXTERNALSYM PRINTRATEUNIT_PPM}
  15045.   PRINTRATEUNIT_PPM = 1;
  15046.   {$EXTERNALSYM PRINTRATEUNIT_CPS}
  15047.   PRINTRATEUNIT_CPS = 2;
  15048.   {$EXTERNALSYM PRINTRATEUNIT_LPM}
  15049.   PRINTRATEUNIT_LPM = 3;
  15050.   {$EXTERNALSYM PRINTRATEUNIT_IPM}
  15051.   PRINTRATEUNIT_IPM = 4;
  15052.   {$EXTERNALSYM DC_PRINTERMEM}
  15053.   DC_PRINTERMEM = 28;
  15054.   {$EXTERNALSYM DC_MEDIAREADY}
  15055.   DC_MEDIAREADY = 29;
  15056.  
  15057.  
  15058.   { bit fields of the return value (DWORD) for DC_TRUETYPE }
  15059.   {$EXTERNALSYM DCTT_BITMAP}
  15060.   DCTT_BITMAP = 1;
  15061.   {$EXTERNALSYM DCTT_DOWNLOAD}
  15062.   DCTT_DOWNLOAD = 2;
  15063.   {$EXTERNALSYM DCTT_SUBDEV}
  15064.   DCTT_SUBDEV = 4;
  15065.   {$EXTERNALSYM DCTT_DOWNLOAD_OUTLINE}
  15066.   DCTT_DOWNLOAD_OUTLINE = 8;
  15067.  
  15068.  
  15069.   { return values for DC_BINADJUST }
  15070.   {$EXTERNALSYM DCBA_FACEUPNONE}
  15071.   DCBA_FACEUPNONE = 0;
  15072.   {$EXTERNALSYM DCBA_FACEUPCENTER}
  15073.   DCBA_FACEUPCENTER = 1;
  15074.   {$EXTERNALSYM DCBA_FACEUPLEFT}
  15075.   DCBA_FACEUPLEFT = 2;
  15076.   {$EXTERNALSYM DCBA_FACEUPRIGHT}
  15077.   DCBA_FACEUPRIGHT = 3;
  15078.   {$EXTERNALSYM DCBA_FACEDOWNNONE}
  15079.   DCBA_FACEDOWNNONE = $100;
  15080.   {$EXTERNALSYM DCBA_FACEDOWNCENTER}
  15081.   DCBA_FACEDOWNCENTER = 257;
  15082.   {$EXTERNALSYM DCBA_FACEDOWNLEFT}
  15083.   DCBA_FACEDOWNLEFT = 258;
  15084.   {$EXTERNALSYM DCBA_FACEDOWNRIGHT}
  15085.   DCBA_FACEDOWNRIGHT = 259;
  15086.  
  15087.  
  15088. {$EXTERNALSYM DeviceCapabilitiesA}
  15089. function DeviceCapabilitiesA(pDriverName, pDeviceName, pPort: PAnsiChar;
  15090.   iIndex: Integer; pOutput: PAnsiChar; DevMode: PDeviceModeA): Integer; stdcall;
  15091. {$EXTERNALSYM DeviceCapabilitiesW}
  15092. function DeviceCapabilitiesW(pDriverName, pDeviceName, pPort: PWideChar;
  15093.   iIndex: Integer; pOutput: PWideChar; DevMode: PDeviceModeW): Integer; stdcall;
  15094. {$EXTERNALSYM DeviceCapabilities}
  15095. function DeviceCapabilities(pDriverName, pDeviceName, pPort: PChar;
  15096.   iIndex: Integer; pOutput: PChar; DevMode: PDeviceMode): Integer; stdcall;
  15097.  
  15098. {$EXTERNALSYM DrawEscape}
  15099. function DrawEscape(DC: HDC; p2, p3: Integer; p4: LPCSTR): BOOL; stdcall;
  15100. {$EXTERNALSYM Ellipse}
  15101. function Ellipse(DC: HDC; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
  15102. {$EXTERNALSYM EnumFontFamiliesExA}
  15103. function EnumFontFamiliesExA(DC: HDC; var p2: TLogFontA;
  15104.   p3: TFNFontEnumProcA; p4: LPARAM; p5: DWORD): BOOL; stdcall;
  15105. {$EXTERNALSYM EnumFontFamiliesExW}
  15106. function EnumFontFamiliesExW(DC: HDC; var p2: TLogFontW;
  15107.   p3: TFNFontEnumProcW; p4: LPARAM; p5: DWORD): BOOL; stdcall;
  15108. {$EXTERNALSYM EnumFontFamiliesEx}
  15109. function EnumFontFamiliesEx(DC: HDC; var p2: TLogFont;
  15110.   p3: TFNFontEnumProc; p4: LPARAM; p5: DWORD): BOOL; stdcall;
  15111. {$EXTERNALSYM EnumFontFamiliesA}
  15112. function EnumFontFamiliesA(DC: HDC; p2: PAnsiChar; p3: TFNFontEnumProcA; p4: LPARAM): BOOL; stdcall;
  15113. {$EXTERNALSYM EnumFontFamiliesW}
  15114. function EnumFontFamiliesW(DC: HDC; p2: PWideChar; p3: TFNFontEnumProcW; p4: LPARAM): BOOL; stdcall;
  15115. {$EXTERNALSYM EnumFontFamilies}
  15116. function EnumFontFamilies(DC: HDC; p2: PChar; p3: TFNFontEnumProc; p4: LPARAM): BOOL; stdcall;
  15117. {$EXTERNALSYM EnumFontsA}
  15118. function EnumFontsA(DC: HDC; lpszFace: PAnsiChar; fntenmprc: TFNFontEnumProcA;
  15119.   lpszData: PChar): Integer; stdcall;
  15120. {$EXTERNALSYM EnumFontsW}
  15121. function EnumFontsW(DC: HDC; lpszFace: PWideChar; fntenmprc: TFNFontEnumProcW;
  15122.   lpszData: PChar): Integer; stdcall;
  15123. {$EXTERNALSYM EnumFonts}
  15124. function EnumFonts(DC: HDC; lpszFace: PChar; fntenmprc: TFNFontEnumProc;
  15125.   lpszData: PChar): Integer; stdcall;
  15126. {$EXTERNALSYM EnumObjects}
  15127. function EnumObjects(DC: HDC; p2: Integer; p3: TFNGObjEnumProc; p4: LPARAM): Integer; stdcall;
  15128. {$EXTERNALSYM EqualRgn}
  15129. function EqualRgn(p1, p2: HRGN): BOOL; stdcall;
  15130. {$EXTERNALSYM Escape}
  15131. function Escape(DC: HDC; p2, p3: Integer; p4: LPCSTR; p5: Pointer): Integer; stdcall;
  15132. {$EXTERNALSYM ExtEscape}
  15133. function ExtEscape(DC: HDC; p2, p3: Integer;
  15134.   const p4: LPCSTR; p5: Integer; p6: LPSTR): Integer; stdcall;
  15135. {$EXTERNALSYM ExcludeClipRect}
  15136. function ExcludeClipRect(DC: HDC; p2, p3, p4, p5: Integer): Integer; stdcall;
  15137. {$EXTERNALSYM ExtCreateRegion}
  15138. function ExtCreateRegion(p1: PXForm; p2: DWORD; const p3: TRgnData): HRGN; stdcall;
  15139. {$EXTERNALSYM ExtFloodFill}
  15140. function ExtFloodFill(DC: HDC; X, Y: Integer; Color: COLORREF; FillType: UINT): BOOL; stdcall;
  15141. {$EXTERNALSYM FillRgn}
  15142. function FillRgn(DC: HDC; p2: HRGN; p3: HBRUSH): BOOL; stdcall;
  15143. {$EXTERNALSYM FloodFill}
  15144. function FloodFill(DC: HDC; nXStart, nYStart: Integer; crFill: COLORREF): BOOL; stdcall;
  15145. {$EXTERNALSYM FrameRgn}
  15146. function FrameRgn(DC: HDC; p2: HRGN; p3: HBRUSH; p4, p5: Integer): BOOL; stdcall;
  15147. {$EXTERNALSYM GetROP2}
  15148. function GetROP2(DC: HDC): Integer; stdcall;
  15149. {$EXTERNALSYM GetAspectRatioFilterEx}
  15150. function GetAspectRatioFilterEx(DC: HDC; var p2: TSize): BOOL; stdcall;
  15151. {$EXTERNALSYM GetBkColor}
  15152. function GetBkColor(hDC: HDC): COLORREF; stdcall;
  15153. {$EXTERNALSYM GetDCBrushColor}
  15154. function GetDCBrushColor(DC: HDC): COLORREF; stdcall;
  15155. {$EXTERNALSYM GetDCPenColor}
  15156. function GetDCPenColor(DC: HDC): COLORREF; stdcall;
  15157. {$EXTERNALSYM GetBkMode}
  15158. function GetBkMode(hDC: HDC): Integer; stdcall;
  15159. {$EXTERNALSYM GetBitmapBits}
  15160. function GetBitmapBits(Bitmap: HBITMAP; Count: Longint;
  15161.   Bits: Pointer): Longint; stdcall;
  15162. {$EXTERNALSYM GetBitmapDimensionEx}
  15163. function GetBitmapDimensionEx(p1: HBITMAP; var p2: TSize): BOOL; stdcall;
  15164. {$EXTERNALSYM GetBoundsRect}
  15165. function GetBoundsRect(DC: HDC; var p2: TRect; p3: UINT): UINT; stdcall;
  15166. {$EXTERNALSYM GetBrushOrgEx}
  15167. function GetBrushOrgEx(DC: HDC; var p2: TPoint): BOOL; stdcall;
  15168. {$EXTERNALSYM GetCharWidthA}
  15169. function GetCharWidthA(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  15170. {$EXTERNALSYM GetCharWidthW}
  15171. function GetCharWidthW(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  15172. {$EXTERNALSYM GetCharWidth}
  15173. function GetCharWidth(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  15174. {$EXTERNALSYM GetCharWidth32A}
  15175. function GetCharWidth32A(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  15176. {$EXTERNALSYM GetCharWidth32W}
  15177. function GetCharWidth32W(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  15178. {$EXTERNALSYM GetCharWidth32}
  15179. function GetCharWidth32(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  15180. {$EXTERNALSYM GetCharWidthFloatA}
  15181. function GetCharWidthFloatA(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  15182. {$EXTERNALSYM GetCharWidthFloatW}
  15183. function GetCharWidthFloatW(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  15184. {$EXTERNALSYM GetCharWidthFloat}
  15185. function GetCharWidthFloat(DC: HDC; p2, p3: UINT; const Widths): BOOL; stdcall;
  15186. {$EXTERNALSYM GetCharABCWidthsA}
  15187. function GetCharABCWidthsA(DC: HDC; p2, p3: UINT; const ABCStructs): BOOL; stdcall;
  15188. {$EXTERNALSYM GetCharABCWidthsW}
  15189. function GetCharABCWidthsW(DC: HDC; p2, p3: UINT; const ABCStructs): BOOL; stdcall;
  15190. {$EXTERNALSYM GetCharABCWidths}
  15191. function GetCharABCWidths(DC: HDC; p2, p3: UINT; const ABCStructs): BOOL; stdcall;
  15192. {$EXTERNALSYM GetCharABCWidthsFloatA}
  15193. function GetCharABCWidthsFloatA(DC: HDC; p2, p3: UINT; const ABCFloatSturcts): BOOL; stdcall;
  15194. {$EXTERNALSYM GetCharABCWidthsFloatW}
  15195. function GetCharABCWidthsFloatW(DC: HDC; p2, p3: UINT; const ABCFloatSturcts): BOOL; stdcall;
  15196. {$EXTERNALSYM GetCharABCWidthsFloat}
  15197. function GetCharABCWidthsFloat(DC: HDC; p2, p3: UINT; const ABCFloatSturcts): BOOL; stdcall;
  15198. {$EXTERNALSYM GetClipBox}
  15199. function GetClipBox(DC: HDC; var Rect: TRect): Integer; stdcall;
  15200. {$EXTERNALSYM GetClipRgn}
  15201. function GetClipRgn(DC: HDC; rgn: HRGN): Integer; stdcall;
  15202. {$EXTERNALSYM GetMetaRgn}
  15203. function GetMetaRgn(DC: HDC; rgn: HRGN): Integer; stdcall;
  15204. {$EXTERNALSYM GetCurrentObject}
  15205. function GetCurrentObject(DC: HDC; p2: UINT): HGDIOBJ; stdcall;
  15206. {$EXTERNALSYM GetCurrentPositionEx}
  15207. function GetCurrentPositionEx(DC: HDC; Point: PPoint): BOOL; stdcall;
  15208. {$EXTERNALSYM GetDeviceCaps}
  15209. function GetDeviceCaps(DC: HDC; Index: Integer): Integer; stdcall;
  15210. {$EXTERNALSYM GetDIBits}
  15211. function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT;
  15212.   Bits: Pointer; var BitInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
  15213. {$EXTERNALSYM GetFontData}
  15214. function GetFontData(DC: HDC; p2, p3: DWORD; p4: Pointer; p5: DWORD): DWORD; stdcall;
  15215. {$EXTERNALSYM GetGlyphOutlineA}
  15216. function GetGlyphOutlineA(DC: HDC; p2, p3: UINT;
  15217.   const p4: TGlyphMetrics; p5: DWORD; p6: Pointer; const p7: TMat2): DWORD; stdcall;
  15218. {$EXTERNALSYM GetGlyphOutlineW}
  15219. function GetGlyphOutlineW(DC: HDC; p2, p3: UINT;
  15220.   const p4: TGlyphMetrics; p5: DWORD; p6: Pointer; const p7: TMat2): DWORD; stdcall;
  15221. {$EXTERNALSYM GetGlyphOutline}
  15222. function GetGlyphOutline(DC: HDC; p2, p3: UINT;
  15223.   const p4: TGlyphMetrics; p5: DWORD; p6: Pointer; const p7: TMat2): DWORD; stdcall;
  15224. {$EXTERNALSYM GetGraphicsMode}
  15225. function GetGraphicsMode(DC: HDC): Integer; stdcall;
  15226. {$EXTERNALSYM GetMapMode}
  15227. function GetMapMode(DC: HDC): Integer; stdcall;
  15228. {$EXTERNALSYM GetMetaFileBitsEx}
  15229. function GetMetaFileBitsEx(p1: HMETAFILE; p2: UINT; p3: Pointer): UINT; stdcall;
  15230. {$EXTERNALSYM GetMetaFileA}
  15231. function GetMetaFileA(p1: PAnsiChar): HMETAFILE; stdcall;
  15232. {$EXTERNALSYM GetMetaFileW}
  15233. function GetMetaFileW(p1: PWideChar): HMETAFILE; stdcall;
  15234. {$EXTERNALSYM GetMetaFile}
  15235. function GetMetaFile(p1: PChar): HMETAFILE; stdcall;
  15236. {$EXTERNALSYM GetNearestColor}
  15237. function GetNearestColor(DC: HDC; p2: COLORREF): COLORREF; stdcall;
  15238. {$EXTERNALSYM GetNearestPaletteIndex}
  15239. function GetNearestPaletteIndex(p1: HPALETTE; p2: COLORREF): UINT; stdcall;
  15240. {$EXTERNALSYM GetObjectType}
  15241. function GetObjectType(h: HGDIOBJ): DWORD; stdcall;
  15242. {$EXTERNALSYM GetOutlineTextMetricsA}
  15243. function GetOutlineTextMetricsA(DC: HDC; p2: UINT; OTMetricStructs: Pointer): UINT; stdcall;
  15244. {$EXTERNALSYM GetOutlineTextMetricsW}
  15245. function GetOutlineTextMetricsW(DC: HDC; p2: UINT; OTMetricStructs: Pointer): UINT; stdcall;
  15246. {$EXTERNALSYM GetOutlineTextMetrics}
  15247. function GetOutlineTextMetrics(DC: HDC; p2: UINT; OTMetricStructs: Pointer): UINT; stdcall;
  15248. {$EXTERNALSYM GetPaletteEntries}
  15249. function GetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT;
  15250.   var PaletteEntries): UINT; stdcall;
  15251. {$EXTERNALSYM GetPixel}
  15252. function GetPixel(DC: HDC; X, Y: Integer): COLORREF; stdcall;
  15253. {$EXTERNALSYM GetPixelFormat}
  15254. function GetPixelFormat(DC: HDC): Integer; stdcall;
  15255. {$EXTERNALSYM GetPolyFillMode}
  15256. function GetPolyFillMode(DC: HDC): Integer; stdcall;
  15257. {$EXTERNALSYM GetRasterizerCaps}
  15258. function GetRasterizerCaps(var p1: TRasterizerStatus; p2: UINT): BOOL; stdcall;
  15259. {$EXTERNALSYM GetRegionData}
  15260. function GetRegionData(RGN: HRGN; p2: DWORD; p3: PRgnData): DWORD; stdcall;
  15261. {$EXTERNALSYM GetRgnBox}
  15262. function GetRgnBox(RGN: HRGN; var p2: TRect): Integer; stdcall;
  15263. {$EXTERNALSYM GetStockObject}
  15264. function GetStockObject(Index: Integer): HGDIOBJ; stdcall;
  15265. {$EXTERNALSYM GetStretchBltMode}
  15266. function GetStretchBltMode(DC: HDC): Integer; stdcall;
  15267. {$EXTERNALSYM GetSystemPaletteEntries}
  15268. function GetSystemPaletteEntries(DC: HDC; StartIndex, NumEntries: UINT;
  15269.   var PaletteEntries): UINT; stdcall;
  15270. {$EXTERNALSYM GetSystemPaletteUse}
  15271. function GetSystemPaletteUse(DC: HDC): UINT; stdcall;
  15272. {$EXTERNALSYM GetTextCharacterExtra}
  15273. function GetTextCharacterExtra(DC: HDC): Integer; stdcall;
  15274. {$EXTERNALSYM GetTextAlign}
  15275. function GetTextAlign(DC: HDC): UINT; stdcall;
  15276. {$EXTERNALSYM GetTextColor}
  15277. function GetTextColor(DC: HDC): COLORREF; stdcall;
  15278. {$EXTERNALSYM GetTextExtentPointA}
  15279. function GetTextExtentPointA(DC: HDC; Str: PAnsiChar; Count: Integer;
  15280.   var Size: TSize): BOOL; stdcall;
  15281. {$EXTERNALSYM GetTextExtentPointW}
  15282. function GetTextExtentPointW(DC: HDC; Str: PWideChar; Count: Integer;
  15283.   var Size: TSize): BOOL; stdcall;
  15284. {$EXTERNALSYM GetTextExtentPoint}
  15285. function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer;
  15286.   var Size: TSize): BOOL; stdcall;
  15287. {$EXTERNALSYM GetTextExtentPoint32A}
  15288. function GetTextExtentPoint32A(DC: HDC; Str: PAnsiChar; Count: Integer;
  15289.   var Size: TSize): BOOL; stdcall;
  15290. {$EXTERNALSYM GetTextExtentPoint32W}
  15291. function GetTextExtentPoint32W(DC: HDC; Str: PWideChar; Count: Integer;
  15292.   var Size: TSize): BOOL; stdcall;
  15293. {$EXTERNALSYM GetTextExtentPoint32}
  15294. function GetTextExtentPoint32(DC: HDC; Str: PChar; Count: Integer;
  15295.   var Size: TSize): BOOL; stdcall;
  15296. {$EXTERNALSYM GetTextExtentExPointA}
  15297. function GetTextExtentExPointA(DC: HDC; p2: PAnsiChar;
  15298.   p3, p4: Integer; p5, p6: PInteger; var p7: TSize): BOOL; stdcall;
  15299. {$EXTERNALSYM GetTextExtentExPointW}
  15300. function GetTextExtentExPointW(DC: HDC; p2: PWideChar;
  15301.   p3, p4: Integer; p5, p6: PInteger; var p7: TSize): BOOL; stdcall;
  15302. {$EXTERNALSYM GetTextExtentExPoint}
  15303. function GetTextExtentExPoint(DC: HDC; p2: PChar;
  15304.   p3, p4: Integer; p5, p6: PInteger; var p7: TSize): BOOL; stdcall;
  15305. {$EXTERNALSYM GetTextCharset}
  15306. function GetTextCharset(hdc: HDC): Integer; stdcall;
  15307. {$EXTERNALSYM GetTextCharsetInfo}
  15308. function GetTextCharsetInfo(hdc: HDC; lpSig: PFontSignature; dwFlags: DWORD): BOOL; stdcall;
  15309. {$EXTERNALSYM TranslateCharsetInfo}
  15310. function TranslateCharsetInfo(var lpSrc: DWORD; var lpCs: TCharsetInfo; dwFlags: DWORD): BOOL; stdcall;
  15311. {$EXTERNALSYM GetFontLanguageInfo}
  15312. function GetFontLanguageInfo(DC: HDC): DWORD; stdcall;
  15313. {$EXTERNALSYM GetCharacterPlacementA}
  15314. function GetCharacterPlacementA(DC: HDC; p2: PAnsiChar; p3, p4: BOOL;
  15315.   var p5: TGCPResults; p6: DWORD): DWORD; stdcall;
  15316. {$EXTERNALSYM GetCharacterPlacementW}
  15317. function GetCharacterPlacementW(DC: HDC; p2: PWideChar; p3, p4: BOOL;
  15318.   var p5: TGCPResults; p6: DWORD): DWORD; stdcall;
  15319. {$EXTERNALSYM GetCharacterPlacement}
  15320. function GetCharacterPlacement(DC: HDC; p2: PChar; p3, p4: BOOL;
  15321.   var p5: TGCPResults; p6: DWORD): DWORD; stdcall;
  15322.  
  15323. type
  15324.   PWCRange = ^TWCRange;
  15325.   {$EXTERNALSYM tagWCRANGE}
  15326.   tagWCRANGE = packed record
  15327.     wcLow: WCHAR;
  15328.     cGlyphs: SHORT;
  15329.   end;
  15330.   TWCRange = tagWCRANGE;
  15331.  
  15332.   PGlyphSet = ^TGlyphSet;
  15333.   {$EXTERNALSYM tagGLYPHSET}
  15334.   tagGLYPHSET = packed record
  15335.     cbThis: DWORD;
  15336.     flAccel: DWORD;
  15337.     cGlyphsSupported: DWORD;
  15338.     cRanges: DWORD;
  15339.     ranges: array[0..0] of TWCRange;
  15340.   end;
  15341.   TGlyphSet = tagGLYPHSET;
  15342.  
  15343. const
  15344.   { flAccel flags for the TGlyphSet structure above }
  15345.   {$EXTERNALSYM GS_8BIT_INDICES}
  15346.   GS_8BIT_INDICES = 1;
  15347.   { flags for GetGlyphIndices }
  15348.   {$EXTERNALSYM GGI_MARK_NONEXISTING_GLYPHS}
  15349.   GGI_MARK_NONEXISTING_GLYPHS = 1;
  15350.  
  15351. {$EXTERNALSYM GetFontUnicodeRanges}
  15352. function GetFontUnicodeRanges(DC: HDC; lpgs: PGlyphSet): DWORD; stdcall;
  15353. {$EXTERNALSYM GetGlyphIndicesA}
  15354. function GetGlyphIndicesA(DC: HDC; p2: PAnsiChar; p3: Integer; p4: PWORD; p5: DWORD): DWORD; stdcall;
  15355. {$EXTERNALSYM GetGlyphIndicesW}
  15356. function GetGlyphIndicesW(DC: HDC; p2: PAnsiChar; p3: Integer; p4: PWORD; p5: DWORD): DWORD; stdcall;
  15357. {$EXTERNALSYM GetGlyphIndices}
  15358. function GetGlyphIndices(DC: HDC; p2: PAnsiChar; p3: Integer; p4: PWORD; p5: DWORD): DWORD; stdcall;
  15359. {$EXTERNALSYM GetTextExtentPointI}
  15360. function GetTextExtentPointI(DC: HDC; p2: PWORD; p3: Integer; var p4: TSize): BOOL; stdcall;
  15361. {$EXTERNALSYM GetTextExtentExPointI}
  15362. function GetTextExtentExPointI(DC: HDC; p2: PWORD; p3, p4: Integer; p5, p6: PINT; var p7: TSize): BOOL; stdcall;
  15363. {$EXTERNALSYM GetCharWidthI}
  15364. function GetCharWidthI(DC: HDC; p2, p3: UINT; p4: PWORD; const Widths): BOOL; stdcall;
  15365. {$EXTERNALSYM GetCharABCWidthsI}
  15366. function GetCharABCWidthsI(DC: HDC; p2, p3: UINT; p4: PWORD; const Widths): BOOL; stdcall;
  15367.  
  15368. const
  15369.   {$EXTERNALSYM STAMP_DESIGNVECTOR}
  15370.   STAMP_DESIGNVECTOR = $80000000 + Ord('d') + (Ord('v') shl 8);
  15371.   {$EXTERNALSYM STAMP_AXESLIST}
  15372.   STAMP_AXESLIST = $80000000 + Ord('a') + (Ord('l') shl 8);
  15373.   {$EXTERNALSYM MM_MAX_NUMAXES}
  15374.   MM_MAX_NUMAXES = 16;
  15375.  
  15376. type
  15377.   PDesignVector = ^TDesignVector;
  15378.   {$EXTERNALSYM tagDESIGNVECTOR}
  15379.   tagDESIGNVECTOR = packed record
  15380.     dvReserved: DWORD;
  15381.     dvNumAxes: DWORD;
  15382.     dvValues: array[0..MM_MAX_NUMAXES-1] of Longint;
  15383.   end;
  15384.   TDesignVector = tagDESIGNVECTOR;
  15385.  
  15386. {$EXTERNALSYM AddFontResourceExA}
  15387. function AddFontResourceExA(p1: PAnsiChar; p2: DWORD; p3: PDesignVector): Integer; stdcall;
  15388. {$EXTERNALSYM AddFontResourceExW}
  15389. function AddFontResourceExW(p1: PAnsiChar; p2: DWORD; p3: PDesignVector): Integer; stdcall;
  15390. {$EXTERNALSYM AddFontResourceEx}
  15391. function AddFontResourceEx(p1: PAnsiChar; p2: DWORD; p3: PDesignVector): Integer; stdcall;
  15392. {$EXTERNALSYM RemoveFontResourceExA}
  15393. function RemoveFontResourceExA(p1: PAnsiChar; p2: DWORD; p3: PDesignVector): BOOL; stdcall;
  15394. {$EXTERNALSYM RemoveFontResourceExW}
  15395. function RemoveFontResourceExW(p1: PAnsiChar; p2: DWORD; p3: PDesignVector): BOOL; stdcall;
  15396. {$EXTERNALSYM RemoveFontResourceEx}
  15397. function RemoveFontResourceEx(p1: PAnsiChar; p2: DWORD; p3: PDesignVector): BOOL; stdcall;
  15398.  
  15399. {$EXTERNALSYM AddFontMemResourceEx}
  15400. function AddFontMemResourceEx(p1: Pointer; p2: DWORD; p3: PDesignVector; p4: LPDWORD): THandle; stdcall;
  15401. {$EXTERNALSYM RemoveFontMemResourceEx}
  15402. function RemoveFontMemResourceEx(p1: THandle): BOOL; stdcall;
  15403.  
  15404. const
  15405.   {$EXTERNALSYM FR_PRIVATE}
  15406.   FR_PRIVATE = $10;
  15407.   {$EXTERNALSYM FR_NOT_ENUM}
  15408.   FR_NOT_ENUM = $20;
  15409.   {$EXTERNALSYM MM_MAX_AXES_NAMELEN}
  15410.   MM_MAX_AXES_NAMELEN = 16;
  15411.  
  15412. type
  15413.   PAxisInfoA = ^TAxisInfoA;
  15414.   {$EXTERNALSYM tagAXISINFOA}
  15415.   tagAXISINFOA = packed record
  15416.     axMinValue: Longint;
  15417.     axMaxValue: Longint;
  15418.     axAxisName: array[0..MM_MAX_AXES_NAMELEN-1] of AnsiChar;
  15419.   end;
  15420.   TAxisInfoA = tagAXISINFOA;
  15421.   PAxisInfoW = ^TAxisInfoW;
  15422.   {$EXTERNALSYM tagAXISINFOW}
  15423.   tagAXISINFOW = packed record
  15424.     axMinValue: Longint;
  15425.     axMaxValue: Longint;
  15426.     axAxisName: array[0..MM_MAX_AXES_NAMELEN-1] of WideChar;
  15427.   end;
  15428.   TAxisInfoW = tagAXISINFOW;
  15429.   PAxisInfo = PAxisInfoA;
  15430.  
  15431.   PAxesListA = ^TAxesListA;
  15432.   {$EXTERNALSYM tagAXESLISTA}
  15433.   tagAXESLISTA = packed record
  15434.     axlReserved: DWORD;
  15435.     axlNumAxes: DWORD;
  15436.     axlAxisInfo: array[0..MM_MAX_NUMAXES-1] of TAxisInfoA;
  15437.   end;
  15438.   TAxesListA = tagAXESLISTA;
  15439.   PAxesListW = ^TAxesListW;
  15440.   {$EXTERNALSYM tagAXESLISTW}
  15441.   tagAXESLISTW = packed record
  15442.     axlReserved: DWORD;
  15443.     axlNumAxes: DWORD;
  15444.     axlAxisInfo: array[0..MM_MAX_NUMAXES-1] of TAxisInfoW;
  15445.   end;
  15446.   TAxesListW = tagAXESLISTW;
  15447.   PAxesList = PAxesListA;
  15448.  
  15449.   PEnumLogFontExDVA = ^TEnumLogFontExDVA;
  15450.   {$EXTERNALSYM tagENUMLOGFONTEXDVA}
  15451.   tagENUMLOGFONTEXDVA = packed record
  15452.     elfEnumLogfontEx: TEnumLogFontExA;
  15453.     elfDesignVector: TDesignVector;
  15454.   end;
  15455.   TEnumLogFontExDVA = tagENUMLOGFONTEXDVA;
  15456.   PEnumLogFontExDVW = ^TEnumLogFontExDVW;
  15457.   {$EXTERNALSYM tagENUMLOGFONTEXDVW}
  15458.   tagENUMLOGFONTEXDVW = packed record
  15459.     elfEnumLogfontEx: TEnumLogFontExW;
  15460.     elfDesignVector: TDesignVector;
  15461.   end;
  15462.   TEnumLogFontExDVW = tagENUMLOGFONTEXDVW;
  15463.   PEnumLogFontExDV = PEnumLogFontExDVA;
  15464.  
  15465. {$EXTERNALSYM CreateFontIndirectExA}
  15466. function CreateFontIndirectExA(const p1: PEnumLogFontExDVA): HFONT; stdcall;
  15467. {$EXTERNALSYM CreateFontIndirectExW}
  15468. function CreateFontIndirectExW(const p1: PEnumLogFontExDVW): HFONT; stdcall;
  15469. {$EXTERNALSYM CreateFontIndirectEx}
  15470. function CreateFontIndirectEx(const p1: PEnumLogFontExDV): HFONT; stdcall;
  15471.  
  15472. type
  15473.   PEnumTextMetricA = ^TEnumTextMetricA;
  15474.   {$EXTERNALSYM tagENUMTEXTMETRICA}
  15475.   tagENUMTEXTMETRICA = packed record
  15476.     etmNewTextMetricEx: TNewTextMetricExA;
  15477.     etmAxesList: TAxesListA;
  15478.   end;
  15479.   TEnumTextMetricA = tagENUMTEXTMETRICA;
  15480.   PEnumTextMetricW = ^TEnumTextMetricW;
  15481.   {$EXTERNALSYM tagENUMTEXTMETRICW}
  15482.   tagENUMTEXTMETRICW = packed record
  15483.     etmNewTextMetricEx: TNewTextMetricExW;
  15484.     etmAxesList: TAxesListW;
  15485.   end;
  15486.   TEnumTextMetricW = tagENUMTEXTMETRICW;
  15487.   PEnumTextMetric = PEnumTextMetricA;
  15488.  
  15489. {$EXTERNALSYM GetViewportExtEx}
  15490. function GetViewportExtEx(DC: HDC; var Size: TSize): BOOL; stdcall;
  15491. {$EXTERNALSYM GetViewportOrgEx}
  15492. function GetViewportOrgEx(DC: HDC; var Point: TPoint): BOOL; stdcall;
  15493. {$EXTERNALSYM GetWindowExtEx}
  15494. function GetWindowExtEx(DC: HDC; var Size: TSize): BOOL; stdcall;
  15495. {$EXTERNALSYM GetWindowOrgEx}
  15496. function GetWindowOrgEx(DC: HDC; var Point: TPoint): BOOL; stdcall;
  15497. {$EXTERNALSYM IntersectClipRect}
  15498. function IntersectClipRect(DC: HDC; X1, Y1, X2, Y2: Integer): Integer; stdcall;
  15499. {$EXTERNALSYM InvertRgn}
  15500. function InvertRgn(DC: HDC; p2: HRGN): BOOL; stdcall;
  15501. {$EXTERNALSYM LineDDA}
  15502. function LineDDA(p1, p2, p3, p4: Integer; p5: TFNLineDDAProc; p6: LPARAM): BOOL; stdcall;
  15503. {$EXTERNALSYM LineTo}
  15504. function LineTo(DC: HDC; X, Y: Integer): BOOL; stdcall;
  15505. {$EXTERNALSYM MaskBlt}
  15506. function MaskBlt(DC: HDC; p2, p3, p4, p5: Integer; p6: HDC;
  15507.   p7, p8: Integer; p9: HBITMAP; p10, p11: Integer; p12: DWORD): BOOL; stdcall;
  15508. {$EXTERNALSYM PlgBlt}
  15509. function PlgBlt(DC: HDC; const PointsArray; p3: HDC;
  15510.   p4, p5, p6, p7: Integer; p8: HBITMAP; p9, p10: Integer): BOOL; stdcall;
  15511. {$EXTERNALSYM OffsetClipRgn}
  15512. function OffsetClipRgn(DC: HDC; p2, p3: Integer): Integer; stdcall;
  15513. {$EXTERNALSYM OffsetRgn}
  15514. function OffsetRgn(RGN: HRGN; p2, p3: Integer): Integer; stdcall;
  15515. {$EXTERNALSYM PatBlt}
  15516. function PatBlt(DC: HDC; X, Y, Width, Height: Integer; Rop: DWORD): BOOL; stdcall;
  15517. {$EXTERNALSYM Pie}
  15518. function Pie(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): BOOL; stdcall;
  15519. {$EXTERNALSYM PlayMetaFile}
  15520. function PlayMetaFile(DC: HDC; MF: HMETAFILE): BOOL; stdcall;
  15521. {$EXTERNALSYM PaintRgn}
  15522. function PaintRgn(DC: HDC; RGN: HRGN): BOOL; stdcall;
  15523. {$EXTERNALSYM PolyPolygon}
  15524. function PolyPolygon(DC: HDC; var Points; var nPoints; p4: Integer): BOOL; stdcall;
  15525. {$EXTERNALSYM PtInRegion}
  15526. function PtInRegion(RGN: HRGN; p2, p3: Integer): BOOL; stdcall;
  15527. {$EXTERNALSYM PtVisible}
  15528. function PtVisible(DC: HDC; p2, p3: Integer): BOOL; stdcall;
  15529. {$EXTERNALSYM RectInRegion}
  15530. function RectInRegion(RGN: HRGN; const p2: TRect): BOOL; stdcall;
  15531. {$EXTERNALSYM RectVisible}
  15532. function RectVisible(DC: HDC; const Rect: TRect): BOOL; stdcall;
  15533. {$EXTERNALSYM Rectangle}
  15534. function Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
  15535. {$EXTERNALSYM RestoreDC}
  15536. function RestoreDC(DC: HDC; SavedDC: Integer): BOOL; stdcall;
  15537. {$EXTERNALSYM ResetDCA}
  15538. function ResetDCA(DC: HDC; const p2: TDeviceModeA): HDC; stdcall;
  15539. {$EXTERNALSYM ResetDCW}
  15540. function ResetDCW(DC: HDC; const p2: TDeviceModeW): HDC; stdcall;
  15541. {$EXTERNALSYM ResetDC}
  15542. function ResetDC(DC: HDC; const p2: TDeviceMode): HDC; stdcall;
  15543. {$EXTERNALSYM RealizePalette}
  15544. function RealizePalette(DC: HDC): UINT; stdcall;
  15545. {$EXTERNALSYM RemoveFontResourceA}
  15546. function RemoveFontResourceA(p1: PAnsiChar): BOOL; stdcall;
  15547. {$EXTERNALSYM RemoveFontResourceW}
  15548. function RemoveFontResourceW(p1: PWideChar): BOOL; stdcall;
  15549. {$EXTERNALSYM RemoveFontResource}
  15550. function RemoveFontResource(p1: PChar): BOOL; stdcall;
  15551. {$EXTERNALSYM RoundRect}
  15552. function RoundRect(DC: HDC; X1, Y1, X2, Y2, X3, Y3: Integer): BOOL; stdcall;
  15553. {$EXTERNALSYM ResizePalette}
  15554. function ResizePalette(p1: HPALETTE; p2: UINT): BOOL; stdcall;
  15555. {$EXTERNALSYM SaveDC}
  15556. function SaveDC(DC: HDC): Integer; stdcall;
  15557. {$EXTERNALSYM SelectClipRgn}
  15558. function SelectClipRgn(DC: HDC; p2: HRGN): Integer; stdcall;
  15559. {$EXTERNALSYM ExtSelectClipRgn}
  15560. function ExtSelectClipRgn(DC: HDC; p2: HRGN; p3: Integer): Integer; stdcall;
  15561. {$EXTERNALSYM SetMetaRgn}
  15562. function SetMetaRgn(DC: HDC): Integer; stdcall;
  15563. {$EXTERNALSYM SelectObject}
  15564. function SelectObject(DC: HDC; p2: HGDIOBJ): HGDIOBJ; stdcall;
  15565. {$EXTERNALSYM SelectPalette}
  15566. function SelectPalette(DC: HDC; Palette: HPALETTE;
  15567.   ForceBackground: Bool): HPALETTE; stdcall;
  15568. {$EXTERNALSYM SetBkColor}
  15569. function SetBkColor(DC: HDC; Color: COLORREF): COLORREF; stdcall;
  15570. {$EXTERNALSYM SetDCBrushColor}
  15571. function SetDCBrushColor(DC: HDC; Color: COLORREF): COLORREF; stdcall;
  15572. {$EXTERNALSYM SetDCPenColor}
  15573. function SetDCPenColor(DC: HDC; Color: COLORREF): COLORREF; stdcall;
  15574. {$EXTERNALSYM SetBkMode}
  15575. function SetBkMode(DC: HDC; BkMode: Integer): Integer; stdcall;
  15576. {$EXTERNALSYM SetBitmapBits}
  15577. function SetBitmapBits(p1: HBITMAP; p2: DWORD; bits: Pointer): Longint; stdcall;
  15578. {$EXTERNALSYM SetBoundsRect}
  15579. function SetBoundsRect(DC: HDC; p2: PRect; p3: UINT): UINT; stdcall;
  15580. {$EXTERNALSYM SetDIBits}
  15581. function SetDIBits(DC: HDC; Bitmap: HBITMAP; StartScan, NumScans: UINT;
  15582.   Bits: Pointer; var BitsInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
  15583. {$EXTERNALSYM SetDIBitsToDevice}
  15584. function SetDIBitsToDevice(DC: HDC; DestX, DestY: Integer; Width, Height: DWORD;
  15585.   SrcX, SrcY: Integer; nStartScan, NumScans: UINT; Bits: Pointer;
  15586.   var BitsInfo: TBitmapInfo; Usage: UINT): Integer; stdcall;
  15587. {$EXTERNALSYM SetMapperFlags}
  15588. function SetMapperFlags(DC: HDC; Flag: DWORD): DWORD; stdcall;
  15589. {$EXTERNALSYM SetGraphicsMode}
  15590. function SetGraphicsMode(hdc: HDC; iMode: Integer): Integer; stdcall;
  15591. {$EXTERNALSYM SetMapMode}
  15592. function SetMapMode(DC: HDC; p2: Integer): Integer; stdcall;
  15593. {$EXTERNALSYM SetMetaFileBitsEx}
  15594. function SetMetaFileBitsEx(p1: UINT; const p2: PChar): HMETAFILE; stdcall;
  15595. {$EXTERNALSYM SetPaletteEntries}
  15596. function SetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT;
  15597.   var PaletteEntries): UINT; stdcall;
  15598. {$EXTERNALSYM SetPixel}
  15599. function SetPixel(DC: HDC; X, Y: Integer; Color: COLORREF): COLORREF; stdcall;
  15600. {$EXTERNALSYM SetPixelV}
  15601. function SetPixelV(DC: HDC; X, Y: Integer; Color: COLORREF): BOOL; stdcall;
  15602. {$EXTERNALSYM SetPixelFormat}
  15603. function SetPixelFormat(DC: HDC; p2: Integer; p3: PPixelFormatDescriptor): BOOL; stdcall;
  15604. {$EXTERNALSYM SetPolyFillMode}
  15605. function SetPolyFillMode(DC: HDC; PolyFillMode: Integer): Integer; stdcall;
  15606. {$EXTERNALSYM StretchBlt}
  15607. function StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC;
  15608.   XSrc, YSrc, SrcWidth, SrcHeight: Integer; Rop: DWORD): BOOL; stdcall;
  15609. {$EXTERNALSYM SetRectRgn}
  15610. function SetRectRgn(Rgn: HRgn; X1, Y1, X2, Y2: Integer): BOOL; stdcall;
  15611. {$EXTERNALSYM StretchDIBits}
  15612. function StretchDIBits(DC: HDC; DestX, DestY, DestWidth, DestHegiht, SrcX,
  15613.   SrcY, SrcWidth, SrcHeight: Integer; Bits: Pointer; var BitsInfo: TBitmapInfo;
  15614.   Usage: UINT; Rop: DWORD): Integer; stdcall;
  15615. {$EXTERNALSYM SetROP2}
  15616. function SetROP2(DC: HDC; p2: Integer): Integer; stdcall;
  15617. {$EXTERNALSYM SetStretchBltMode}
  15618. function SetStretchBltMode(DC: HDC; p2: Integer): Integer; stdcall;
  15619. {$EXTERNALSYM SetSystemPaletteUse}
  15620. function SetSystemPaletteUse(DC: HDC; p2: UINT): UINT; stdcall;
  15621. {$EXTERNALSYM SetTextCharacterExtra}
  15622. function SetTextCharacterExtra(DC: HDC; CharExtra: Integer): Integer; stdcall;
  15623. {$EXTERNALSYM SetTextColor}
  15624. function SetTextColor(DC: HDC; Color: COLORREF): COLORREF; stdcall;
  15625. {$EXTERNALSYM SetTextAlign}
  15626. function SetTextAlign(DC: HDC; Flags: UINT): UINT; stdcall;
  15627. {$EXTERNALSYM SetTextJustification}
  15628. function SetTextJustification(DC: HDC; BreakExtra, BreakCount: Integer): Integer; stdcall;
  15629. {$EXTERNALSYM UpdateColors}
  15630. function UpdateColors(DC: HDC): BOOL; stdcall;
  15631.  
  15632. type
  15633.   {$EXTERNALSYM COLOR16}
  15634.   COLOR16 = Shortint;
  15635.  
  15636.   PTriVertex = ^TTriVertex;
  15637.   {$EXTERNALSYM _TRIVERTEX}
  15638.   _TRIVERTEX = packed record
  15639.     x: Longint;
  15640.     y: Longint;
  15641.     Red: COLOR16;
  15642.     Green: COLOR16;
  15643.     Blue: COLOR16;
  15644.     Alpha: COLOR16;
  15645.   end;
  15646.   TTriVertex = _TRIVERTEX;
  15647.   {$EXTERNALSYM TRIVERTEX}
  15648.   TRIVERTEX = _TRIVERTEX;
  15649.  
  15650.   PGradientTriangle = ^TGradientTriangle;
  15651.   {$EXTERNALSYM _GRADIENT_TRIANGLE}
  15652.   _GRADIENT_TRIANGLE = packed record
  15653.     Vertex1: ULONG;
  15654.     Vertex2: ULONG;
  15655.     Vertex3: ULONG;
  15656.   end;
  15657.   TGradientTriangle = _GRADIENT_TRIANGLE;
  15658.   {$EXTERNALSYM GRADIENT_TRIANGLE}
  15659.   GRADIENT_TRIANGLE = _GRADIENT_TRIANGLE;
  15660.  
  15661.   PGradientRect = ^TGradientRect;
  15662.   {$EXTERNALSYM _GRADIENT_RECT}
  15663.   _GRADIENT_RECT = packed record
  15664.     UpperLeft: ULONG;
  15665.     LowerRight: ULONG;
  15666.   end;
  15667.   TGradientRect = _GRADIENT_RECT;
  15668.   {$EXTERNALSYM GRADIENT_RECT}
  15669.   GRADIENT_RECT = _GRADIENT_RECT;
  15670.  
  15671.   PBlendFunction = ^TBlendFunction;
  15672.   {$EXTERNALSYM _BLENDFUNCTION}
  15673.   _BLENDFUNCTION = packed record
  15674.     BlendOp: BYTE;
  15675.     BlendFlags: BYTE;
  15676.     SourceConstantAlpha: BYTE;
  15677.     AlphaFormat: BYTE;
  15678.   end;
  15679.   TBlendFunction = _BLENDFUNCTION;
  15680.   {$EXTERNALSYM BLENDFUNCTION}
  15681.   BLENDFUNCTION = _BLENDFUNCTION;
  15682.  
  15683. const
  15684.   { currentlly defined blend function }
  15685.   {$EXTERNALSYM AC_SRC_OVER}
  15686.   AC_SRC_OVER = $00;
  15687.  
  15688.   { alpha format flags }
  15689.   {$EXTERNALSYM AC_SRC_NO_PREMULT_ALPHA}
  15690.   AC_SRC_NO_PREMULT_ALPHA = $01;
  15691.   {$EXTERNALSYM AC_SRC_NO_ALPHA}
  15692.   AC_SRC_NO_ALPHA = $02;
  15693.   {$EXTERNALSYM AC_DST_NO_PREMULT_ALPHA}
  15694.   AC_DST_NO_PREMULT_ALPHA = $10;
  15695.   {$EXTERNALSYM AC_DST_NO_ALPHA}
  15696.   AC_DST_NO_ALPHA = $20;
  15697.  
  15698. {$EXTERNALSYM AlphaBlend}
  15699. function AlphaBlend(DC: HDC; p2, p3, p4, p5: Integer; DC6: HDC; p7, p8, p9, p10: Integer; p11: TBlendFunction): BOOL; stdcall;
  15700. {$EXTERNALSYM AlphaDIBBlend}
  15701. function AlphaDIBBlend(DC: HDC; p2, p3, p4, p5: Integer; const p6: Pointer;
  15702.         const p7: PBitmapInfo; p8: UINT; p9, p10, p11, p12: Integer; p13: TBlendFunction): BOOL; stdcall;
  15703. {$EXTERNALSYM TransparentBlt}
  15704. function TransparentBlt(DC: HDC; p2, p3, p4, p5: Integer; DC6: HDC; p7, p8, p9, p10: Integer; p11: UINT): BOOL; stdcall;
  15705. {$EXTERNALSYM TransparentDIBits}
  15706. function TransparentDIBits(DC: HDC; p2, p3, p4, p5: Integer; const p6: Pointer;
  15707.         const p7: PBitmapInfo; p8: UINT; p9, p10, p11, p12: Integer; p13: UINT): BOOL; stdcall;
  15708.  
  15709. const
  15710.   { gradient drawing modes }
  15711.   {$EXTERNALSYM GRADIENT_FILL_RECT_H}
  15712.   GRADIENT_FILL_RECT_H = $00000000;
  15713.   {$EXTERNALSYM GRADIENT_FILL_RECT_V}
  15714.   GRADIENT_FILL_RECT_V = $00000001;
  15715.   {$EXTERNALSYM GRADIENT_FILL_TRIANGLE}
  15716.    GRADIENT_FILL_TRIANGLE = $00000002;
  15717.   {$EXTERNALSYM GRADIENT_FILL_OP_FLAG}
  15718.   GRADIENT_FILL_OP_FLAG = $000000ff;
  15719.  
  15720. {$EXTERNALSYM GradientFill}
  15721. function GradientFill(DC: HDC; var p2: TTriVertex; p3: ULONG; p4: Pointer; p5, p6: ULONG): BOOL; stdcall;
  15722.  
  15723. {$EXTERNALSYM PlayMetaFileRecord}
  15724. function PlayMetaFileRecord(DC: HDC; const p2: THandleTable; const p3: TMetaRecord; p4: UINT): BOOL; stdcall;
  15725.  
  15726. type
  15727.  
  15728.  
  15729.  
  15730.  
  15731.  
  15732.   TFNMFEnumProc = TFarProc;
  15733.   TFNEnhMFEnumProc = TFarProc;
  15734.  
  15735. {$EXTERNALSYM EnumMetaFile}
  15736. function EnumMetaFile(DC: HDC; p2: HMETAFILE; p3: TFNMFEnumProc; p4: LPARAM): BOOL; stdcall;
  15737.  
  15738. { Enhanced Metafile Function Declarations }
  15739.  
  15740. {$EXTERNALSYM CloseEnhMetaFile}
  15741. function CloseEnhMetaFile(DC: HDC): HENHMETAFILE; stdcall;
  15742. {$EXTERNALSYM CopyEnhMetaFileA}
  15743. function CopyEnhMetaFileA(p1: HENHMETAFILE; p2: PAnsiChar): HENHMETAFILE; stdcall;
  15744. {$EXTERNALSYM CopyEnhMetaFileW}
  15745. function CopyEnhMetaFileW(p1: HENHMETAFILE; p2: PWideChar): HENHMETAFILE; stdcall;
  15746. {$EXTERNALSYM CopyEnhMetaFile}
  15747. function CopyEnhMetaFile(p1: HENHMETAFILE; p2: PChar): HENHMETAFILE; stdcall;
  15748. {$EXTERNALSYM CreateEnhMetaFileA}
  15749. function CreateEnhMetaFileA(DC: HDC; p2: PAnsiChar; p3: PRect; p4: PAnsiChar): HDC; stdcall;
  15750. {$EXTERNALSYM CreateEnhMetaFileW}
  15751. function CreateEnhMetaFileW(DC: HDC; p2: PWideChar; p3: PRect; p4: PWideChar): HDC; stdcall;
  15752. {$EXTERNALSYM CreateEnhMetaFile}
  15753. function CreateEnhMetaFile(DC: HDC; p2: PChar; p3: PRect; p4: PChar): HDC; stdcall;
  15754. {$EXTERNALSYM DeleteEnhMetaFile}
  15755. function DeleteEnhMetaFile(p1: HENHMETAFILE): BOOL; stdcall;
  15756. {$EXTERNALSYM EnumEnhMetaFile}
  15757. function EnumEnhMetaFile(DC: HDC; p2: HENHMETAFILE; p3: TFNEnhMFEnumProc; p4: Pointer; const p5: TRect): BOOL; stdcall;
  15758. {$EXTERNALSYM GetEnhMetaFileA}
  15759. function GetEnhMetaFileA(p1: PAnsiChar): HENHMETAFILE; stdcall;
  15760. {$EXTERNALSYM GetEnhMetaFileW}
  15761. function GetEnhMetaFileW(p1: PWideChar): HENHMETAFILE; stdcall;
  15762. {$EXTERNALSYM GetEnhMetaFile}
  15763. function GetEnhMetaFile(p1: PChar): HENHMETAFILE; stdcall;
  15764. {$EXTERNALSYM GetEnhMetaFileBits}
  15765. function GetEnhMetaFileBits(p1: HENHMETAFILE; p2: UINT; p3: PByte): UINT; stdcall;
  15766. {$EXTERNALSYM GetEnhMetaFileDescriptionA}
  15767. function GetEnhMetaFileDescriptionA(p1: HENHMETAFILE; p2: UINT; p3: PAnsiChar): UINT; stdcall;
  15768. {$EXTERNALSYM GetEnhMetaFileDescriptionW}
  15769. function GetEnhMetaFileDescriptionW(p1: HENHMETAFILE; p2: UINT; p3: PWideChar): UINT; stdcall;
  15770. {$EXTERNALSYM GetEnhMetaFileDescription}
  15771. function GetEnhMetaFileDescription(p1: HENHMETAFILE; p2: UINT; p3: PChar): UINT; stdcall;
  15772. {$EXTERNALSYM GetEnhMetaFileHeader}
  15773. function GetEnhMetaFileHeader(p1: HENHMETAFILE; p2: UINT; p3: PEnhMetaHeader): UINT; stdcall;
  15774. {$EXTERNALSYM GetEnhMetaFilePaletteEntries}
  15775. function GetEnhMetaFilePaletteEntries(p1: HENHMETAFILE; p2: UINT; p3: Pointer): UINT; stdcall;
  15776. {$EXTERNALSYM GetEnhMetaFilePixelFormat}
  15777. function GetEnhMetaFilePixelFormat(p1: HENHMETAFILE; p2: Cardinal;
  15778.   var p3: TPixelFormatDescriptor): UINT; stdcall;
  15779. {$EXTERNALSYM GetWinMetaFileBits}
  15780. function GetWinMetaFileBits(p1: HENHMETAFILE; p2: UINT; p3: PByte;
  15781.   p4: Integer; p5: HDC): UINT; stdcall;
  15782. {$EXTERNALSYM PlayEnhMetaFile}
  15783. function PlayEnhMetaFile(DC: HDC; p2: HENHMETAFILE; const p3: TRect): BOOL; stdcall;
  15784. {$EXTERNALSYM PlayEnhMetaFileRecord}
  15785. function PlayEnhMetaFileRecord(DC: HDC; var p2: THandleTable;
  15786.   const p3: TEnhMetaRecord; p4: UINT): BOOL; stdcall;
  15787. {$EXTERNALSYM SetEnhMetaFileBits}
  15788. function SetEnhMetaFileBits(p1: UINT; p2: PChar): HENHMETAFILE; stdcall;
  15789. {$EXTERNALSYM SetWinMetaFileBits}
  15790. function SetWinMetaFileBits(p1: UINT; p2: PChar; p3: HDC;
  15791.   const p4: TMetaFilePict): HENHMETAFILE; stdcall;
  15792. {$EXTERNALSYM GdiComment}
  15793. function GdiComment(DC: HDC; p2: UINT; p3: PChar): BOOL; stdcall;
  15794. {$EXTERNALSYM GetTextMetricsA}
  15795. function GetTextMetricsA(DC: HDC; var TM: TTextMetricA): BOOL; stdcall;
  15796. {$EXTERNALSYM GetTextMetricsW}
  15797. function GetTextMetricsW(DC: HDC; var TM: TTextMetricW): BOOL; stdcall;
  15798. {$EXTERNALSYM GetTextMetrics}
  15799. function GetTextMetrics(DC: HDC; var TM: TTextMetric): BOOL; stdcall;
  15800.  
  15801. { new GDI }
  15802.  
  15803. type
  15804.   PDIBSection = ^TDIBSection;
  15805.   {$EXTERNALSYM tagDIBSECTION}
  15806.   tagDIBSECTION = packed record
  15807.     dsBm: TBitmap;
  15808.     dsBmih: TBitmapInfoHeader;
  15809.     dsBitfields: array[0..2] of DWORD;
  15810.     dshSection: THandle;
  15811.     dsOffset: DWORD;
  15812.   end;
  15813.   TDIBSection = tagDIBSECTION;
  15814.   {$EXTERNALSYM DIBSECTION}
  15815.   DIBSECTION = tagDIBSECTION;
  15816.  
  15817. {$EXTERNALSYM AngleArc}
  15818. function AngleArc(DC: HDC; p2, p3: Integer; p4: DWORD; p5, p6: Single): BOOL; stdcall;
  15819. {$EXTERNALSYM PolyPolyline}
  15820. function PolyPolyline(DC: HDC; const PointStructs; const Points; p4: DWORD): BOOL; stdcall;
  15821. {$EXTERNALSYM GetWorldTransform}
  15822. function GetWorldTransform(DC: HDC; var p2: TXForm): BOOL; stdcall;
  15823. {$EXTERNALSYM SetWorldTransform}
  15824. function SetWorldTransform(DC: HDC; const p2: TXForm): BOOL; stdcall;
  15825. {$EXTERNALSYM ModifyWorldTransform}
  15826. function ModifyWorldTransform(DC: HDC; const p2: TXForm; p3: DWORD): BOOL; stdcall;
  15827. {$EXTERNALSYM CombineTransform}
  15828. function CombineTransform(var p1: TXForm; const p2, p3: TXForm): BOOL; stdcall;
  15829. {$EXTERNALSYM CreateDIBSection}
  15830. function CreateDIBSection(DC: HDC; const p2: TBitmapInfo; p3: UINT;
  15831.   var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; stdcall;
  15832. {$EXTERNALSYM GetDIBColorTable}
  15833. function GetDIBColorTable(DC: HDC; p2, p3: UINT; var RGBQuadStructs): UINT; stdcall;
  15834. {$EXTERNALSYM SetDIBColorTable}
  15835. function SetDIBColorTable(DC: HDC; p2, p3: UINT; var RGBQuadSTructs): UINT; stdcall;
  15836.  
  15837. const
  15838.   { Flags value for COLORADJUSTMENT }
  15839.   {$EXTERNALSYM CA_NEGATIVE}
  15840.   CA_NEGATIVE = 1;
  15841.   {$EXTERNALSYM CA_LOG_FILTER}
  15842.   CA_LOG_FILTER = 2;
  15843.  
  15844.   { IlluminantIndex values }
  15845.   {$EXTERNALSYM ILLUMINANT_DEVICE_DEFAULT}
  15846.   ILLUMINANT_DEVICE_DEFAULT = 0;
  15847.   {$EXTERNALSYM ILLUMINANT_A}
  15848.   ILLUMINANT_A = 1;
  15849.   {$EXTERNALSYM ILLUMINANT_B}
  15850.   ILLUMINANT_B = 2;
  15851.   {$EXTERNALSYM ILLUMINANT_C}
  15852.   ILLUMINANT_C = 3;
  15853.   {$EXTERNALSYM ILLUMINANT_D50}
  15854.   ILLUMINANT_D50 = 4;
  15855.   {$EXTERNALSYM ILLUMINANT_D55}
  15856.   ILLUMINANT_D55 = 5;
  15857.   {$EXTERNALSYM ILLUMINANT_D65}
  15858.   ILLUMINANT_D65 = 6;
  15859.   {$EXTERNALSYM ILLUMINANT_D75}
  15860.   ILLUMINANT_D75 = 7;
  15861.   {$EXTERNALSYM ILLUMINANT_F2}
  15862.   ILLUMINANT_F2 = 8;
  15863.  
  15864.   {$EXTERNALSYM ILLUMINANT_MAX_INDEX}
  15865.   ILLUMINANT_MAX_INDEX = ILLUMINANT_F2;
  15866.   {$EXTERNALSYM ILLUMINANT_TUNGSTEN}
  15867.   ILLUMINANT_TUNGSTEN = ILLUMINANT_A;
  15868.   {$EXTERNALSYM ILLUMINANT_DAYLIGHT}
  15869.   ILLUMINANT_DAYLIGHT = ILLUMINANT_C;
  15870.   {$EXTERNALSYM ILLUMINANT_FLUORESCENT}
  15871.   ILLUMINANT_FLUORESCENT = ILLUMINANT_F2;
  15872.   {$EXTERNALSYM ILLUMINANT_NTSC}
  15873.   ILLUMINANT_NTSC = ILLUMINANT_C;
  15874.  
  15875.   { Min and max for RedGamma, GreenGamma, BlueGamma }
  15876.   {$EXTERNALSYM RGB_GAMMA_MIN}
  15877.   RGB_GAMMA_MIN = 02500;
  15878.   {$EXTERNALSYM RGB_GAMMA_MAX}
  15879.   RGB_GAMMA_MAX = 65000;
  15880.  
  15881.   { Min and max for ReferenceBlack and ReferenceWhite }
  15882.   {$EXTERNALSYM REFERENCE_WHITE_MIN}
  15883.   REFERENCE_WHITE_MIN = 6000;
  15884.   {$EXTERNALSYM REFERENCE_WHITE_MAX}
  15885.   REFERENCE_WHITE_MAX = 10000;
  15886.   {$EXTERNALSYM REFERENCE_BLACK_MIN}
  15887.   REFERENCE_BLACK_MIN = 0;
  15888.   {$EXTERNALSYM REFERENCE_BLACK_MAX}
  15889.   REFERENCE_BLACK_MAX = 4000;
  15890.  
  15891.   { Min and max for Contrast, Brightness, Colorfulness, RedGreenTint }
  15892.   {$EXTERNALSYM COLOR_ADJ_MIN}
  15893.   COLOR_ADJ_MIN = -100;
  15894.   {$EXTERNALSYM COLOR_ADJ_MAX}
  15895.   COLOR_ADJ_MAX = 100;
  15896.  
  15897. type
  15898.   PColorAdjustment = ^TColorAdjustment;
  15899.   {$EXTERNALSYM tagCOLORADJUSTMENT}
  15900.   tagCOLORADJUSTMENT = packed record
  15901.     caSize: Word;
  15902.     caFlags: Word;
  15903.     caIlluminantIndex: Word;
  15904.     caRedGamma: Word;
  15905.     caGreenGamma: Word;
  15906.     caBlueGamma: Word;
  15907.     caReferenceBlack: Word;
  15908.     caReferenceWhite: Word;
  15909.     caContrast: SHORT;
  15910.     caBrightness: SHORT;
  15911.     caColorfulness: SHORT;
  15912.     caRedGreenTint: SHORT;
  15913.   end;
  15914.   TColorAdjustment = tagCOLORADJUSTMENT;
  15915.   {$EXTERNALSYM COLORADJUSTMENT}
  15916.   COLORADJUSTMENT = tagCOLORADJUSTMENT;
  15917.  
  15918. {$EXTERNALSYM SetColorAdjustment}
  15919. function SetColorAdjustment(DC: HDC; const p2: TColorAdjustment): BOOL; stdcall;
  15920. {$EXTERNALSYM GetColorAdjustment}
  15921. function GetColorAdjustment(DC: HDC; var p2: TColorAdjustment): BOOL; stdcall;
  15922. {$EXTERNALSYM CreateHalftonePalette}
  15923. function CreateHalftonePalette(DC: HDC): HPALETTE; stdcall;
  15924.  
  15925. type
  15926.   TFNAbortProc = function (DC: HDC; p2: Integer): BOOL stdcall stdcall;
  15927.  
  15928.   PDocInfoA = ^TDocInfoA;
  15929.   PDocInfoW = ^TDocInfoW;
  15930.   PDocInfo = PDocInfoA;
  15931.   {$EXTERNALSYM _DOCINFOA}
  15932.   _DOCINFOA = packed record
  15933.     cbSize: Integer;
  15934.     lpszDocName: PAnsiChar;
  15935.     lpszOutput: PAnsiChar;
  15936.     lpszDatatype: PAnsiChar;
  15937.     fwType: DWORD;
  15938.   end;
  15939.   {$EXTERNALSYM _DOCINFOW}
  15940.   _DOCINFOW = packed record
  15941.     cbSize: Integer;
  15942.     lpszDocName: PWideChar;
  15943.     lpszOutput: PWideChar;
  15944.     lpszDatatype: PWideChar;
  15945.     fwType: DWORD;
  15946.   end;
  15947.   {$EXTERNALSYM _DOCINFO}
  15948.   _DOCINFO = _DOCINFOA;
  15949.   TDocInfoA = _DOCINFOA;
  15950.   TDocInfoW = _DOCINFOW;
  15951.   TDocInfo = TDocInfoA;
  15952.   {$EXTERNALSYM DOCINFOA}
  15953.   DOCINFOA = _DOCINFOA;
  15954.   {$EXTERNALSYM DOCINFOW}
  15955.   DOCINFOW = _DOCINFOW;
  15956.   {$EXTERNALSYM DOCINFO}
  15957.   DOCINFO = DOCINFOA;
  15958.  
  15959. const
  15960.   {$EXTERNALSYM DI_APPBANDING}
  15961.   DI_APPBANDING = 1;
  15962.  
  15963. {$EXTERNALSYM StartDocA}
  15964. function StartDocA(DC: HDC; const p2: TDocInfoA): Integer; stdcall;
  15965. {$EXTERNALSYM StartDocW}
  15966. function StartDocW(DC: HDC; const p2: TDocInfoW): Integer; stdcall;
  15967. {$EXTERNALSYM StartDoc}
  15968. function StartDoc(DC: HDC; const p2: TDocInfo): Integer; stdcall;
  15969. {$EXTERNALSYM EndDoc}
  15970. function EndDoc(DC: HDC): Integer; stdcall;
  15971. {$EXTERNALSYM StartPage}
  15972. function StartPage(DC: HDC): Integer; stdcall;
  15973. {$EXTERNALSYM EndPage}
  15974. function EndPage(DC: HDC): Integer; stdcall;
  15975. {$EXTERNALSYM AbortDoc}
  15976. function AbortDoc(DC: HDC): Integer; stdcall;
  15977. {$EXTERNALSYM SetAbortProc}
  15978. function SetAbortProc(DC: HDC; lpAbortProc: TFNAbortProc): Integer; stdcall;
  15979. {$EXTERNALSYM AbortPath}
  15980. function AbortPath(DC: HDC): BOOL; stdcall;
  15981. {$EXTERNALSYM ArcTo}
  15982. function ArcTo(DC: HDC; RLeft, RTop, RRight, RBottom: Integer;
  15983.   X1, Y1, X2, Y2: Integer): BOOL; stdcall;
  15984. {$EXTERNALSYM BeginPath}
  15985. function BeginPath(DC: HDC): BOOL; stdcall;
  15986. {$EXTERNALSYM CloseFigure}
  15987. function CloseFigure(DC: HDC): BOOL; stdcall;
  15988. {$EXTERNALSYM EndPath}
  15989. function EndPath(DC: HDC): BOOL; stdcall;
  15990. {$EXTERNALSYM FillPath}
  15991. function FillPath(DC: HDC): BOOL; stdcall;
  15992. {$EXTERNALSYM FlattenPath}
  15993. function FlattenPath(DC: HDC): BOOL; stdcall;
  15994. {$EXTERNALSYM GetPath}
  15995. function GetPath(DC: HDC; var Points, Types; nSize: Integer): Integer; stdcall;
  15996. {$EXTERNALSYM PathToRegion}
  15997. function PathToRegion(DC: HDC): HRGN; stdcall;
  15998. {$EXTERNALSYM PolyDraw}
  15999. function PolyDraw(DC: HDC; const Points, Types; cCount: Integer): BOOL; stdcall;
  16000. {$EXTERNALSYM SelectClipPath}
  16001. function SelectClipPath(DC: HDC; Mode: Integer): BOOL; stdcall;
  16002. {$EXTERNALSYM SetArcDirection}
  16003. function SetArcDirection(DC: HDC; Direction: Integer): Integer; stdcall;
  16004. {$EXTERNALSYM SetMiterLimit}
  16005. function SetMiterLimit(DC: HDC; NewLimit: Single; OldLimit: PSingle): BOOL; stdcall;
  16006. {$EXTERNALSYM StrokeAndFillPath}
  16007. function StrokeAndFillPath(DC: HDC): BOOL; stdcall;
  16008. {$EXTERNALSYM StrokePath}
  16009. function StrokePath(DC: HDC): BOOL; stdcall;
  16010. {$EXTERNALSYM WidenPath}
  16011. function WidenPath(DC: HDC): BOOL; stdcall;
  16012. {$EXTERNALSYM ExtCreatePen}
  16013. function ExtCreatePen(PenStyle, Width: DWORD; const Brush: TLogBrush;
  16014.   StyleCount: DWORD; Style: Pointer): HPEN; stdcall;
  16015. {$EXTERNALSYM GetMiterLimit}
  16016. function GetMiterLimit(DC: HDC; var Limit: Single): BOOL; stdcall;
  16017. {$EXTERNALSYM GetArcDirection}
  16018. function GetArcDirection(DC: HDC): Integer; stdcall;
  16019. {$EXTERNALSYM GetObjectA}
  16020. function GetObjectA(p1: HGDIOBJ; p2: Integer; p3: Pointer): Integer; stdcall;
  16021. {$EXTERNALSYM GetObjectW}
  16022. function GetObjectW(p1: HGDIOBJ; p2: Integer; p3: Pointer): Integer; stdcall;
  16023. {$EXTERNALSYM GetObject}
  16024. function GetObject(p1: HGDIOBJ; p2: Integer; p3: Pointer): Integer; stdcall;
  16025. {$EXTERNALSYM MoveToEx}
  16026. function MoveToEx(DC: HDC; p2, p3: Integer; p4: PPoint): BOOL; stdcall;
  16027. {$EXTERNALSYM TextOutA}
  16028. function TextOutA(DC: HDC; X, Y: Integer; Str: PAnsiChar; Count: Integer): BOOL; stdcall;
  16029. {$EXTERNALSYM TextOutW}
  16030. function TextOutW(DC: HDC; X, Y: Integer; Str: PWideChar; Count: Integer): BOOL; stdcall;
  16031. {$EXTERNALSYM TextOut}
  16032. function TextOut(DC: HDC; X, Y: Integer; Str: PChar; Count: Integer): BOOL; stdcall;
  16033. {$EXTERNALSYM ExtTextOutA}
  16034. function ExtTextOutA(DC: HDC; X, Y: Integer; Options: Longint;
  16035.   Rect: PRect; Str: PAnsiChar; Count: Longint; Dx: PInteger): BOOL; stdcall;
  16036. {$EXTERNALSYM ExtTextOutW}
  16037. function ExtTextOutW(DC: HDC; X, Y: Integer; Options: Longint;
  16038.   Rect: PRect; Str: PWideChar; Count: Longint; Dx: PInteger): BOOL; stdcall;
  16039. {$EXTERNALSYM ExtTextOut}
  16040. function ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint;
  16041.   Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): BOOL; stdcall;
  16042. {$EXTERNALSYM PolyTextOutA}
  16043. function PolyTextOutA(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
  16044. {$EXTERNALSYM PolyTextOutW}
  16045. function PolyTextOutW(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
  16046. {$EXTERNALSYM PolyTextOut}
  16047. function PolyTextOut(DC: HDC; const PolyTextArray; Strings: Integer): BOOL; stdcall;
  16048. {$EXTERNALSYM CreatePolygonRgn}
  16049. function CreatePolygonRgn(const Points; Count, FillMode: Integer): HRGN; stdcall;
  16050. {$EXTERNALSYM DPtoLP}
  16051. function DPtoLP(DC: HDC; var Points; Count: Integer): BOOL; stdcall;
  16052. {$EXTERNALSYM LPtoDP}
  16053. function LPtoDP(DC: HDC; var Points; Count: Integer): BOOL; stdcall;
  16054. {$EXTERNALSYM Polygon}
  16055. function Polygon(DC: HDC; var Points; Count: Integer): BOOL; stdcall;
  16056. {$EXTERNALSYM Polyline}
  16057. function Polyline(DC: HDC; var Points; Count: Integer): BOOL; stdcall;
  16058. {$EXTERNALSYM PolyBezier}
  16059. function PolyBezier(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
  16060. {$EXTERNALSYM PolyBezierTo}
  16061. function PolyBezierTo(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
  16062. {$EXTERNALSYM PolyLineTo}
  16063. function PolyLineTo(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;
  16064. {$EXTERNALSYM SetViewportExtEx}
  16065. function SetViewportExtEx(DC: HDC; XExt, YExt: Integer; Size: PSize): BOOL; stdcall;
  16066. {$EXTERNALSYM SetViewportOrgEx}
  16067. function SetViewportOrgEx(DC: HDC; X, Y: Integer; Point: PPoint): BOOL; stdcall;
  16068. {$EXTERNALSYM SetWindowExtEx}
  16069. function SetWindowExtEx(DC: HDC; XExt, YExt: Integer; Size: PSize): BOOL; stdcall;
  16070. {$EXTERNALSYM SetWindowOrgEx}
  16071. function SetWindowOrgEx(DC: HDC; X, Y: Integer; Point: PPoint): BOOL; stdcall;
  16072. {$EXTERNALSYM OffsetViewportOrgEx}
  16073. function OffsetViewportOrgEx(DC: HDC; X, Y: Integer; var Points): BOOL; stdcall; overload;
  16074. {$EXTERNALSYM OffsetWindowOrgEx}
  16075. function OffsetWindowOrgEx(DC: HDC; X, Y: Integer; var Points): BOOL; stdcall; overload;
  16076. {$EXTERNALSYM OffsetViewportOrgEx}
  16077. function OffsetViewportOrgEx(DC: HDC; X, Y: Integer; Points: PPoint): BOOL; stdcall; overload;
  16078. {$EXTERNALSYM OffsetWindowOrgEx}
  16079. function OffsetWindowOrgEx(DC: HDC; X, Y: Integer; Points: PPoint): BOOL; stdcall; overload;
  16080. {$EXTERNALSYM ScaleViewportExtEx}
  16081. function ScaleViewportExtEx(DC: HDC; XM, XD, YM, YD: Integer; Size: PSize): BOOL; stdcall;
  16082. {$EXTERNALSYM ScaleWindowExtEx}
  16083. function ScaleWindowExtEx(DC: HDC; XM, XD, YM, YD: Integer; Size: PSize): BOOL; stdcall;
  16084. {$EXTERNALSYM SetBitmapDimensionEx}
  16085. function SetBitmapDimensionEx(hBitmap: HBITMAP; Width, Height: Integer; Size: PSize): BOOL; stdcall;
  16086. {$EXTERNALSYM SetBrushOrgEx}
  16087. function SetBrushOrgEx(DC: HDC; X, Y: Integer; PrevPt: PPoint): BOOL; stdcall;
  16088. {$EXTERNALSYM GetTextFaceA}
  16089. function GetTextFaceA(DC: HDC; Count: Integer; Buffer: PAnsiChar): Integer; stdcall;
  16090. {$EXTERNALSYM GetTextFaceW}
  16091. function GetTextFaceW(DC: HDC; Count: Integer; Buffer: PWideChar): Integer; stdcall;
  16092. {$EXTERNALSYM GetTextFace}
  16093. function GetTextFace(DC: HDC; Count: Integer; Buffer: PChar): Integer; stdcall;
  16094.  
  16095. const
  16096.   {$EXTERNALSYM FONTMAPPER_MAX}
  16097.   FONTMAPPER_MAX = 10;
  16098.  
  16099. type
  16100.   PKerningPair = ^TKerningPair;
  16101.   {$EXTERNALSYM tagKERNINGPAIR}
  16102.   tagKERNINGPAIR = packed record
  16103.     wFirst: Word;
  16104.     wSecond: Word;
  16105.     iKernAmount: Integer;
  16106.   end;
  16107.   TKerningPair = tagKERNINGPAIR;
  16108.   {$EXTERNALSYM KERNINGPAIR}
  16109.   KERNINGPAIR = tagKERNINGPAIR;
  16110.  
  16111. {$EXTERNALSYM GetKerningPairs}
  16112. function GetKerningPairs(DC: HDC; Count: DWORD; var KerningPairs): DWORD; stdcall;
  16113. {$EXTERNALSYM GetDCOrgEx}
  16114. function GetDCOrgEx(DC: HDC; var Origin: TPoint): BOOL; stdcall;
  16115. {$EXTERNALSYM UnrealizeObject}
  16116. function UnrealizeObject(hGDIObj: HGDIOBJ): BOOL; stdcall;
  16117. {$EXTERNALSYM GdiFlush}
  16118. function GdiFlush: BOOL; stdcall;
  16119. {$EXTERNALSYM GdiSetBatchLimit}
  16120. function GdiSetBatchLimit(Limit: DWORD): DWORD; stdcall;
  16121. {$EXTERNALSYM GdiGetBatchLimit}
  16122. function GdiGetBatchLimit: DWORD; stdcall;
  16123.  
  16124. const
  16125.   {$EXTERNALSYM ICM_OFF}
  16126.   ICM_OFF = 1;
  16127.   {$EXTERNALSYM ICM_ON}
  16128.   ICM_ON = 2;
  16129.   {$EXTERNALSYM ICM_QUERY}
  16130.   ICM_QUERY = 3;
  16131.  
  16132.   {$EXTERNALSYM ICM_ADDPROFILE}
  16133.   ICM_ADDPROFILE = 1; { removed in 4.0 SDK }
  16134.   {$EXTERNALSYM ICM_DELETEPROFILE}
  16135.   ICM_DELETEPROFILE = 2; { removed in 4.0 SDK }
  16136.   {$EXTERNALSYM ICM_QUERYPROFILE}
  16137.   ICM_QUERYPROFILE = 3; { removed in 4.0 SDK }
  16138.   {$EXTERNALSYM ICM_SETDEFAULTPROFILE}
  16139.   ICM_SETDEFAULTPROFILE = 4; { removed in 4.0 SDK }
  16140.   {$EXTERNALSYM ICM_REGISTERICMATCHER}
  16141.   ICM_REGISTERICMATCHER = 5; { removed in 4.0 SDK }
  16142.   {$EXTERNALSYM ICM_UNREGISTERICMATCHER}
  16143.   ICM_UNREGISTERICMATCHER = 6; { removed in 4.0 SDK }
  16144.   {$EXTERNALSYM ICM_QUERYMATCH}
  16145.   ICM_QUERYMATCH = 7; { removed in 4.0 SDK }
  16146.  
  16147. {$EXTERNALSYM SetICMMode}
  16148. function SetICMMode(DC: HDC; Mode: Integer): Integer; stdcall;
  16149. {$EXTERNALSYM CheckColorsInGamut}
  16150. function CheckColorsInGamut(DC: HDC; var RGBQuads, Results; Count: DWORD): BOOL; stdcall;
  16151. {$EXTERNALSYM GetColorSpace}
  16152. function GetColorSpace(DC: HDC): THandle; stdcall;
  16153. {$EXTERNALSYM GetLogColorSpaceA}
  16154. function GetLogColorSpaceA(p1: HCOLORSPACE; var ColorSpace: TLogColorSpaceA; Size: DWORD): BOOL; stdcall;
  16155. {$EXTERNALSYM GetLogColorSpaceW}
  16156. function GetLogColorSpaceW(p1: HCOLORSPACE; var ColorSpace: TLogColorSpaceW; Size: DWORD): BOOL; stdcall;
  16157. {$EXTERNALSYM GetLogColorSpace}
  16158. function GetLogColorSpace(p1: HCOLORSPACE; var ColorSpace: TLogColorSpace; Size: DWORD): BOOL; stdcall;
  16159. {$EXTERNALSYM CreateColorSpaceA}
  16160. function CreateColorSpaceA(var ColorSpace: TLogColorSpaceA): HCOLORSPACE; stdcall;
  16161. {$EXTERNALSYM CreateColorSpaceW}
  16162. function CreateColorSpaceW(var ColorSpace: TLogColorSpaceW): HCOLORSPACE; stdcall;
  16163. {$EXTERNALSYM CreateColorSpace}
  16164. function CreateColorSpace(var ColorSpace: TLogColorSpace): HCOLORSPACE; stdcall;
  16165. {$EXTERNALSYM SetColorSpace}
  16166. function SetColorSpace(DC: HDC; ColorSpace: HCOLORSPACE): BOOL; stdcall;
  16167. {$EXTERNALSYM DeleteColorSpace}
  16168. function DeleteColorSpace(ColorSpace: HCOLORSPACE): BOOL; stdcall;
  16169. {$EXTERNALSYM GetICMProfileA}
  16170. function GetICMProfileA(DC: HDC; var Size: DWORD; Name: PAnsiChar): BOOL; stdcall;
  16171. {$EXTERNALSYM GetICMProfileW}
  16172. function GetICMProfileW(DC: HDC; var Size: DWORD; Name: PWideChar): BOOL; stdcall;
  16173. {$EXTERNALSYM GetICMProfile}
  16174. function GetICMProfile(DC: HDC; var Size: DWORD; Name: PChar): BOOL; stdcall;
  16175. {$EXTERNALSYM SetICMProfileA}
  16176. function SetICMProfileA(DC: HDC; Name: PAnsiChar): BOOL; stdcall;
  16177. {$EXTERNALSYM SetICMProfileW}
  16178. function SetICMProfileW(DC: HDC; Name: PWideChar): BOOL; stdcall;
  16179. {$EXTERNALSYM SetICMProfile}
  16180. function SetICMProfile(DC: HDC; Name: PChar): BOOL; stdcall;
  16181. {$EXTERNALSYM GetDeviceGammaRamp}
  16182. function GetDeviceGammaRamp(DC: HDC; var Ramp): BOOL; stdcall;
  16183. {$EXTERNALSYM SetDeviceGammaRamp}
  16184. function SetDeviceGammaRamp(DC: HDC; var Ramp): BOOL; stdcall;
  16185. {$EXTERNALSYM ColorMatchToTarget}
  16186. function ColorMatchToTarget(DC: HDC; Target: HDC; Action: DWORD): BOOL; stdcall;
  16187.  
  16188. type
  16189.  
  16190.  
  16191.   TFNICMEnumProc = TFarProc;
  16192.  
  16193. {$EXTERNALSYM EnumICMProfilesA}
  16194. function EnumICMProfilesA(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
  16195. {$EXTERNALSYM EnumICMProfilesW}
  16196. function EnumICMProfilesW(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
  16197. {$EXTERNALSYM EnumICMProfiles}
  16198. function EnumICMProfiles(DC: HDC; ICMProc: TFNICMEnumProc; p3: LPARAM): Integer; stdcall;
  16199.  
  16200. {$EXTERNALSYM UpdateICMRegKeyA}
  16201. function UpdateICMRegKeyA(p1: DWORD; p2, p3: PAnsiChar; p4: UINT): BOOL; stdcall;
  16202. {$EXTERNALSYM UpdateICMRegKeyW}
  16203. function UpdateICMRegKeyW(p1: DWORD; p2, p3: PWideChar; p4: UINT): BOOL; stdcall;
  16204. {$EXTERNALSYM UpdateICMRegKey}
  16205. function UpdateICMRegKey(p1: DWORD; p2, p3: PChar; p4: UINT): BOOL; stdcall;
  16206.  
  16207. {$EXTERNALSYM ColorCorrectPalette}
  16208. function ColorCorrectPalette(DC: HDC; p2: HPALETTE; p3, p4: DWORD): BOOL; stdcall;
  16209.  
  16210. const
  16211.   {$EXTERNALSYM ENHMETA_SIGNATURE}
  16212.   ENHMETA_SIGNATURE = $464D4520;  { Enhanced metafile constants. }
  16213.  
  16214. { Stock object flag used in the object handle index in the enhanced
  16215.   metafile records.
  16216.   E.g. The object handle index (META_STOCK_OBJECT or BLACK_BRUSH)
  16217.   represents the stock object BLACK_BRUSH. }
  16218.  
  16219.   {$EXTERNALSYM ENHMETA_STOCK_OBJECT}
  16220.   ENHMETA_STOCK_OBJECT = DWORD($80000000);
  16221.  
  16222. { Enhanced metafile record types.}
  16223.  
  16224.   {$EXTERNALSYM EMR_HEADER}
  16225.   EMR_HEADER = 1;
  16226.   {$EXTERNALSYM EMR_POLYBEZIER}
  16227.   EMR_POLYBEZIER = 2;
  16228.   {$EXTERNALSYM EMR_POLYGON}
  16229.   EMR_POLYGON = 3;
  16230.   {$EXTERNALSYM EMR_POLYLINE}
  16231.   EMR_POLYLINE = 4;
  16232.   {$EXTERNALSYM EMR_POLYBEZIERTO}
  16233.   EMR_POLYBEZIERTO = 5;
  16234.   {$EXTERNALSYM EMR_POLYLINETO}
  16235.   EMR_POLYLINETO = 6;
  16236.   {$EXTERNALSYM EMR_POLYPOLYLINE}
  16237.   EMR_POLYPOLYLINE = 7;
  16238.   {$EXTERNALSYM EMR_POLYPOLYGON}
  16239.   EMR_POLYPOLYGON = 8;
  16240.   {$EXTERNALSYM EMR_SETWINDOWEXTEX}
  16241.   EMR_SETWINDOWEXTEX = 9;
  16242.   {$EXTERNALSYM EMR_SETWINDOWORGEX}
  16243.   EMR_SETWINDOWORGEX = 10;
  16244.   {$EXTERNALSYM EMR_SETVIEWPORTEXTEX}
  16245.   EMR_SETVIEWPORTEXTEX = 11;
  16246.   {$EXTERNALSYM EMR_SETVIEWPORTORGEX}
  16247.   EMR_SETVIEWPORTORGEX = 12;
  16248.   {$EXTERNALSYM EMR_SETBRUSHORGEX}
  16249.   EMR_SETBRUSHORGEX = 13;
  16250.   {$EXTERNALSYM EMR_EOF}
  16251.   EMR_EOF = 14;
  16252.   {$EXTERNALSYM EMR_SETPIXELV}
  16253.   EMR_SETPIXELV = 15;
  16254.   {$EXTERNALSYM EMR_SETMAPPERFLAGS}
  16255.   EMR_SETMAPPERFLAGS = $10;
  16256.   {$EXTERNALSYM EMR_SETMAPMODE}
  16257.   EMR_SETMAPMODE = 17;
  16258.   {$EXTERNALSYM EMR_SETBKMODE}
  16259.   EMR_SETBKMODE = 18;
  16260.   {$EXTERNALSYM EMR_SETPOLYFILLMODE}
  16261.   EMR_SETPOLYFILLMODE = 19;
  16262.   {$EXTERNALSYM EMR_SETROP2}
  16263.   EMR_SETROP2 = 20;
  16264.   {$EXTERNALSYM EMR_SETSTRETCHBLTMODE}
  16265.   EMR_SETSTRETCHBLTMODE = 21;
  16266.   {$EXTERNALSYM EMR_SETTEXTALIGN}
  16267.   EMR_SETTEXTALIGN = 22;
  16268.   {$EXTERNALSYM EMR_SETCOLORADJUSTMENT}
  16269.   EMR_SETCOLORADJUSTMENT = 23;
  16270.   {$EXTERNALSYM EMR_SETTEXTCOLOR}
  16271.   EMR_SETTEXTCOLOR = 24;
  16272.   {$EXTERNALSYM EMR_SETBKCOLOR}
  16273.   EMR_SETBKCOLOR = 25;
  16274.   {$EXTERNALSYM EMR_OFFSETCLIPRGN}
  16275.   EMR_OFFSETCLIPRGN = 26;
  16276.   {$EXTERNALSYM EMR_MOVETOEX}
  16277.   EMR_MOVETOEX = 27;
  16278.   {$EXTERNALSYM EMR_SETMETARGN}
  16279.   EMR_SETMETARGN = 28;
  16280.   {$EXTERNALSYM EMR_EXCLUDECLIPRECT}
  16281.   EMR_EXCLUDECLIPRECT = 29;
  16282.   {$EXTERNALSYM EMR_INTERSECTCLIPRECT}
  16283.   EMR_INTERSECTCLIPRECT = 30;
  16284.   {$EXTERNALSYM EMR_SCALEVIEWPORTEXTEX}
  16285.   EMR_SCALEVIEWPORTEXTEX = 31;
  16286.   {$EXTERNALSYM EMR_SCALEWINDOWEXTEX}
  16287.   EMR_SCALEWINDOWEXTEX = 32;
  16288.   {$EXTERNALSYM EMR_SAVEDC}
  16289.   EMR_SAVEDC = 33;
  16290.   {$EXTERNALSYM EMR_RESTOREDC}
  16291.   EMR_RESTOREDC = 34;
  16292.   {$EXTERNALSYM EMR_SETWORLDTRANSFORM}
  16293.   EMR_SETWORLDTRANSFORM = 35;
  16294.   {$EXTERNALSYM EMR_MODIFYWORLDTRANSFORM}
  16295.   EMR_MODIFYWORLDTRANSFORM = 36;
  16296.   {$EXTERNALSYM EMR_SELECTOBJECT}
  16297.   EMR_SELECTOBJECT = 37;
  16298.   {$EXTERNALSYM EMR_CREATEPEN}
  16299.   EMR_CREATEPEN = 38;
  16300.   {$EXTERNALSYM EMR_CREATEBRUSHINDIRECT}
  16301.   EMR_CREATEBRUSHINDIRECT = 39;
  16302.   {$EXTERNALSYM EMR_DELETEOBJECT}
  16303.   EMR_DELETEOBJECT = 40;
  16304.   {$EXTERNALSYM EMR_ANGLEARC}
  16305.   EMR_ANGLEARC = 41;
  16306.   {$EXTERNALSYM EMR_ELLIPSE}
  16307.   EMR_ELLIPSE = 42;
  16308.   {$EXTERNALSYM EMR_RECTANGLE}
  16309.   EMR_RECTANGLE = 43;
  16310.   {$EXTERNALSYM EMR_ROUNDRECT}
  16311.   EMR_ROUNDRECT = 44;
  16312.   {$EXTERNALSYM EMR_ARC}
  16313.   EMR_ARC = 45;
  16314.   {$EXTERNALSYM EMR_CHORD}
  16315.   EMR_CHORD = 46;
  16316.   {$EXTERNALSYM EMR_PIE}
  16317.   EMR_PIE = 47;
  16318.   {$EXTERNALSYM EMR_SELECTPALETTE}
  16319.   EMR_SELECTPALETTE = 48;
  16320.   {$EXTERNALSYM EMR_CREATEPALETTE}
  16321.   EMR_CREATEPALETTE = 49;
  16322.   {$EXTERNALSYM EMR_SETPALETTEENTRIES}
  16323.   EMR_SETPALETTEENTRIES = 50;
  16324.   {$EXTERNALSYM EMR_RESIZEPALETTE}
  16325.   EMR_RESIZEPALETTE = 51;
  16326.   {$EXTERNALSYM EMR_REALIZEPALETTE}
  16327.   EMR_REALIZEPALETTE = 52;
  16328.   {$EXTERNALSYM EMR_EXTFLOODFILL}
  16329.   EMR_EXTFLOODFILL = 53;
  16330.   {$EXTERNALSYM EMR_LINETO}
  16331.   EMR_LINETO = 54;
  16332.   {$EXTERNALSYM EMR_ARCTO}
  16333.   EMR_ARCTO = 55;
  16334.   {$EXTERNALSYM EMR_POLYDRAW}
  16335.   EMR_POLYDRAW = 56;
  16336.   {$EXTERNALSYM EMR_SETARCDIRECTION}
  16337.   EMR_SETARCDIRECTION = 57;
  16338.   {$EXTERNALSYM EMR_SETMITERLIMIT}
  16339.   EMR_SETMITERLIMIT = 58;
  16340.   {$EXTERNALSYM EMR_BEGINPATH}
  16341.   EMR_BEGINPATH = 59;
  16342.   {$EXTERNALSYM EMR_ENDPATH}
  16343.   EMR_ENDPATH = 60;
  16344.   {$EXTERNALSYM EMR_CLOSEFIGURE}
  16345.   EMR_CLOSEFIGURE = 61;
  16346.   {$EXTERNALSYM EMR_FILLPATH}
  16347.   EMR_FILLPATH = 62;
  16348.   {$EXTERNALSYM EMR_STROKEANDFILLPATH}
  16349.   EMR_STROKEANDFILLPATH = 63;
  16350.   {$EXTERNALSYM EMR_STROKEPATH}
  16351.   EMR_STROKEPATH = $40;
  16352.   {$EXTERNALSYM EMR_FLATTENPATH}
  16353.   EMR_FLATTENPATH = 65;
  16354.   {$EXTERNALSYM EMR_WIDENPATH}
  16355.   EMR_WIDENPATH = 66;
  16356.   {$EXTERNALSYM EMR_SELECTCLIPPATH}
  16357.   EMR_SELECTCLIPPATH = 67;
  16358.   {$EXTERNALSYM EMR_ABORTPATH}
  16359.   EMR_ABORTPATH = 68;
  16360.  
  16361.   {$EXTERNALSYM EMR_GDICOMMENT}
  16362.   EMR_GDICOMMENT = 70;
  16363.   {$EXTERNALSYM EMR_FILLRGN}
  16364.   EMR_FILLRGN = 71;
  16365.   {$EXTERNALSYM EMR_FRAMERGN}
  16366.   EMR_FRAMERGN = 72;
  16367.   {$EXTERNALSYM EMR_INVERTRGN}
  16368.   EMR_INVERTRGN = 73;
  16369.   {$EXTERNALSYM EMR_PAINTRGN}
  16370.   EMR_PAINTRGN = 74;
  16371.   {$EXTERNALSYM EMR_EXTSELECTCLIPRGN}
  16372.   EMR_EXTSELECTCLIPRGN = 75;
  16373.   {$EXTERNALSYM EMR_BITBLT}
  16374.   EMR_BITBLT = 76;
  16375.   {$EXTERNALSYM EMR_STRETCHBLT}
  16376.   EMR_STRETCHBLT = 77;
  16377.   {$EXTERNALSYM EMR_MASKBLT}
  16378.   EMR_MASKBLT = 78;
  16379.   {$EXTERNALSYM EMR_PLGBLT}
  16380.   EMR_PLGBLT = 79;
  16381.   {$EXTERNALSYM EMR_SETDIBITSTODEVICE}
  16382.   EMR_SETDIBITSTODEVICE = 80;
  16383.   {$EXTERNALSYM EMR_STRETCHDIBITS}
  16384.   EMR_STRETCHDIBITS = 81;
  16385.   {$EXTERNALSYM EMR_EXTCREATEFONTINDIRECTW}
  16386.   EMR_EXTCREATEFONTINDIRECTW = 82;
  16387.   {$EXTERNALSYM EMR_EXTTEXTOUTA}
  16388.   EMR_EXTTEXTOUTA = 83;
  16389.   {$EXTERNALSYM EMR_EXTTEXTOUTW}
  16390.   EMR_EXTTEXTOUTW = 84;
  16391.   {$EXTERNALSYM EMR_POLYBEZIER16}
  16392.   EMR_POLYBEZIER16 = 85;
  16393.   {$EXTERNALSYM EMR_POLYGON16}
  16394.   EMR_POLYGON16 = 86;
  16395.   {$EXTERNALSYM EMR_POLYLINE16}
  16396.   EMR_POLYLINE16 = 87;
  16397.   {$EXTERNALSYM EMR_POLYBEZIERTO16}
  16398.   EMR_POLYBEZIERTO16 = 88;
  16399.   {$EXTERNALSYM EMR_POLYLINETO16}
  16400.   EMR_POLYLINETO16 = 89;
  16401.   {$EXTERNALSYM EMR_POLYPOLYLINE16}
  16402.   EMR_POLYPOLYLINE16 = 90;
  16403.   {$EXTERNALSYM EMR_POLYPOLYGON16}
  16404.   EMR_POLYPOLYGON16 = 91;
  16405.   {$EXTERNALSYM EMR_POLYDRAW16}
  16406.   EMR_POLYDRAW16 = 92;
  16407.   {$EXTERNALSYM EMR_CREATEMONOBRUSH}
  16408.   EMR_CREATEMONOBRUSH = 93;
  16409.   {$EXTERNALSYM EMR_CREATEDIBPATTERNBRUSHPT}
  16410.   EMR_CREATEDIBPATTERNBRUSHPT = 94;
  16411.   {$EXTERNALSYM EMR_EXTCREATEPEN}
  16412.   EMR_EXTCREATEPEN = 95;
  16413.   {$EXTERNALSYM EMR_POLYTEXTOUTA}
  16414.   EMR_POLYTEXTOUTA = 96;
  16415.   {$EXTERNALSYM EMR_POLYTEXTOUTW}
  16416.   EMR_POLYTEXTOUTW = 97;
  16417.   {$EXTERNALSYM EMR_SETICMMODE}
  16418.   EMR_SETICMMODE = 98;
  16419.   {$EXTERNALSYM EMR_CREATECOLORSPACE}
  16420.   EMR_CREATECOLORSPACE = 99;
  16421.   {$EXTERNALSYM EMR_SETCOLORSPACE}
  16422.   EMR_SETCOLORSPACE = 100;
  16423.   {$EXTERNALSYM EMR_DELETECOLORSPACE}
  16424.   EMR_DELETECOLORSPACE = 101;
  16425.   {$EXTERNALSYM EMR_GLSRECORD}
  16426.   EMR_GLSRECORD = 102;
  16427.   {$EXTERNALSYM EMR_GLSBOUNDEDRECORD}
  16428.   EMR_GLSBOUNDEDRECORD = 103;
  16429.   {$EXTERNALSYM EMR_PIXELFORMAT}
  16430.   EMR_PIXELFORMAT = 104;
  16431.   {$EXTERNALSYM EMR_DRAWESCAPE}
  16432.   EMR_DRAWESCAPE = 105;
  16433.   {$EXTERNALSYM EMR_EXTESCAPE}
  16434.   EMR_EXTESCAPE = 106;
  16435.   {$EXTERNALSYM EMR_STARTDOC}
  16436.   EMR_STARTDOC = 107;
  16437.   {$EXTERNALSYM EMR_SMALLTEXTOUT}
  16438.   EMR_SMALLTEXTOUT = 108;
  16439.   {$EXTERNALSYM EMR_FORCEUFIMAPPING}
  16440.   EMR_FORCEUFIMAPPING = 109;
  16441.   {$EXTERNALSYM EMR_NAMEDESCAPE}
  16442.   EMR_NAMEDESCAPE = 110;
  16443.   {$EXTERNALSYM EMR_COLORCORRECTPALETTE}
  16444.   EMR_COLORCORRECTPALETTE = 111;
  16445.   {$EXTERNALSYM EMR_SETICMPROFILEA}
  16446.   EMR_SETICMPROFILEA = 112;
  16447.   {$EXTERNALSYM EMR_SETICMPROFILEW}
  16448.   EMR_SETICMPROFILEW = 113;
  16449.   {$EXTERNALSYM EMR_ALPHABLEND}
  16450.   EMR_ALPHABLEND = 114;
  16451.   {$EXTERNALSYM EMR_ALPHADIBBLEND}
  16452.   EMR_ALPHADIBBLEND = 115;
  16453.   {$EXTERNALSYM EMR_TRANSPARENTBLT}
  16454.   EMR_TRANSPARENTBLT = 116;
  16455.   {$EXTERNALSYM EMR_TRANSPARENTDIB}
  16456.   EMR_TRANSPARENTDIB = 117;
  16457.   {$EXTERNALSYM EMR_GRADIENTFILL}
  16458.   EMR_GRADIENTFILL = 118;
  16459.   {$EXTERNALSYM EMR_SETLINKEDUFIS}
  16460.   EMR_SETLINKEDUFIS = 119;
  16461.   {$EXTERNALSYM EMR_SETTEXTJUSTIFICATION}
  16462.   EMR_SETTEXTJUSTIFICATION = 120;
  16463.   {$EXTERNALSYM EMR_MAX}
  16464.   EMR_MAX = 120;
  16465.   {$EXTERNALSYM EMR_MIN}
  16466.   EMR_MIN = 1;
  16467.  
  16468.  
  16469. type
  16470.   { Base record type for the enhanced metafile.}
  16471.   {$EXTERNALSYM PEMR}
  16472.   PEMR = ^TEMR;
  16473.   {$EXTERNALSYM tagEMR}
  16474.   tagEMR = packed record
  16475.     iType: DWORD; { Enhanced metafile record type}
  16476.     nSize: DWORD; { Length of the record in bytes.}
  16477.                   { This must be a multiple of 4.}
  16478.   end;
  16479.   TEMR = tagEMR;
  16480.   {$EXTERNALSYM EMR}
  16481.   EMR = tagEMR;
  16482.  
  16483.   { Base text record type for the enhanced metafile.}
  16484.   PEMRText = ^TEMRText;
  16485.   {$EXTERNALSYM tagEMRTEXT}
  16486.   tagEMRTEXT = packed record
  16487.     ptlReference: TPoint;
  16488.     nChars: DWORD;
  16489.     offString: DWORD; { Offset to the string}
  16490.     fOptions: DWORD;
  16491.     rcl: TRect;
  16492.     offDx: DWORD;     { Offset to the inter-character spacing array.}
  16493.                       { This is always given.}
  16494.   end;
  16495.   TEMRText = tagEMRTEXT;
  16496.   {$EXTERNALSYM EMRTEXT}
  16497.   EMRTEXT = tagEMRTEXT;
  16498.  
  16499.  
  16500.   { Record structures for the enhanced metafile.}
  16501.   PAbortPath = ^TAbortPath;
  16502.   {$EXTERNALSYM tagABORTPATH}
  16503.   tagABORTPATH = packed record
  16504.     emr: TEMR;
  16505.   end;
  16506.   TAbortPath = tagABORTPATH;
  16507.   {$EXTERNALSYM EMRABORTPATH}
  16508.   EMRABORTPATH = tagABORTPATH;
  16509.   TEMRAbortPath = TAbortPath;
  16510.   PEMRAbortPath = PAbortPath;
  16511.   TEMRBeginPath = TAbortPath;
  16512.   PEMRBeginPath = PAbortPath;
  16513.   TEMREndPath = TAbortPath;
  16514.   PEMREndPath = PAbortPath;
  16515.   TEMRCloseFigure = TAbortPath;
  16516.   PEMRCloseFigure = PAbortPath;
  16517.   TEMRFlattenPath = TAbortPath;
  16518.   PEMRFlattenPath = PAbortPath;
  16519.   TEMRWidenPath = TAbortPath;
  16520.   PEMRWidenPath = PAbortPath;
  16521.   TEMRSetMetaRgn = TAbortPath;
  16522.   PEMRSetMetaRgn = PAbortPath;
  16523.   TEMRSaveDC = TAbortPath;
  16524.   PEMRSaveDC = PAbortPath;
  16525.   TEMRRealizePalette = TAbortPath;
  16526.   PEMRRealizePalette = PAbortPath;
  16527.  
  16528.   PEMRSelectclippath = ^TEMRSelectClipPath;
  16529.   {$EXTERNALSYM tagEMRSELECTCLIPPATH}
  16530.   tagEMRSELECTCLIPPATH = packed record
  16531.     emr: TEMR;
  16532.     iMode: DWORD;
  16533.   end;
  16534.   TEMRSelectClipPath = tagEMRSELECTCLIPPATH;
  16535.   {$EXTERNALSYM EMRSELECTCLIPPATH}
  16536.   EMRSELECTCLIPPATH = tagEMRSELECTCLIPPATH;
  16537.   TEMRSetBkMode = TEMRSelectClipPath;
  16538.   PEMRSetBkMode = PEMRSelectClipPath;
  16539.   TEMRSetMapMode = TEMRSelectClipPath;
  16540.   PEMRSetMapMode = PEMRSelectClipPath;
  16541.   TEMRSetPolyFillMode = TEMRSelectClipPath;
  16542.   PEMRSetPolyFillMode = PEMRSelectClipPath;
  16543.   TEMRSetRop2 = TEMRSelectClipPath;
  16544.   PEMRSetRop2 = PEMRSelectClipPath;
  16545.   TEMRSetStretchBltMode = TEMRSelectClipPath;
  16546.   PEMRSetStretchBltMode = PEMRSelectClipPath;
  16547.   TEMRSetICMMode = TEMRSelectClipPath;
  16548.   PEMRSetICMMode = PEMRSelectClipPath;
  16549.   TEMRSetTextAlign = TEMRSelectClipPath;
  16550.   PEMRSetTextAlign = PEMRSelectClipPath;
  16551.  
  16552.   PEMRSetMiterLimit = ^TEMRSetMiterLimit;
  16553.   {$EXTERNALSYM tagEMRSETMITERLIMIT}
  16554.   tagEMRSETMITERLIMIT = packed record
  16555.     emr: TEMR;
  16556.     eMiterLimit: Single;
  16557.   end;
  16558.   TEMRSetMiterLimit = tagEMRSETMITERLIMIT;
  16559.   {$EXTERNALSYM EMRSETMITERLIMIT}
  16560.   EMRSETMITERLIMIT = tagEMRSETMITERLIMIT;
  16561.  
  16562.   PEMRRestoreDC = ^TEMRRestoreDC;
  16563.   {$EXTERNALSYM tagEMRRESTOREDC}
  16564.   tagEMRRESTOREDC = packed record
  16565.     emr: TEMR;
  16566.     iRelative: Longint;   { Specifies a relative instance}
  16567.   end;
  16568.   TEMRRestoreDC = tagEMRRESTOREDC;
  16569.   {$EXTERNALSYM EMRRESTOREDC}
  16570.   EMRRESTOREDC = tagEMRRESTOREDC;
  16571.  
  16572.   PEMRSetArcDirection = ^TEMRSetArcDirection;
  16573.   {$EXTERNALSYM tagEMRSETARCDIRECTION}
  16574.   tagEMRSETARCDIRECTION = packed record
  16575.     emr: TEMR;
  16576.     iArcDirection: DWORD; { Specifies the arc direction in the advanced graphics mode.}
  16577.   end;
  16578.   TEMRSetArcDirection = tagEMRSETARCDIRECTION;
  16579.   {$EXTERNALSYM EMRSETARCDIRECTION}
  16580.   EMRSETARCDIRECTION = tagEMRSETARCDIRECTION;
  16581.  
  16582.   PEMRSetMapperFlags = ^TEMRSetMapperFlags;
  16583.   {$EXTERNALSYM tagEMRSETMAPPERFLAGS}
  16584.   tagEMRSETMAPPERFLAGS = packed record
  16585.     emr: TEMR;
  16586.     dwFlags: DWORD;
  16587.   end;
  16588.   TEMRSetMapperFlags = tagEMRSETMAPPERFLAGS;
  16589.   {$EXTERNALSYM EMRSETMAPPERFLAGS}
  16590.   EMRSETMAPPERFLAGS = tagEMRSETMAPPERFLAGS;
  16591.  
  16592.   PEMRSetTextColor = ^TEMRSetTextColor;
  16593.   {$EXTERNALSYM tagEMRSETTEXTCOLOR}
  16594.   tagEMRSETTEXTCOLOR = packed record
  16595.     emr: TEMR;
  16596.     crColor: COLORREF;
  16597.   end;
  16598.   TEMRSetTextColor = tagEMRSETTEXTCOLOR;
  16599.   {$EXTERNALSYM EMRSETTEXTCOLOR}
  16600.   EMRSETTEXTCOLOR = tagEMRSETTEXTCOLOR;
  16601.   TEMRSetBkColor = TEMRSetTextColor;
  16602.   PEMRSetBkColor = PEMRSetTextColor;
  16603.  
  16604.   PEMRSelectObject = ^TEMRSelectObject;
  16605.   {$EXTERNALSYM tagEMRSELECTOBJECT}
  16606.   tagEMRSELECTOBJECT = packed record
  16607.     emr: TEMR;
  16608.     ihObject: DWORD;   { Object handle index }
  16609.   end;
  16610.   TEMRSelectObject = tagEMRSELECTOBJECT;
  16611.   {$EXTERNALSYM EMRSELECTOBJECT}
  16612.   EMRSELECTOBJECT = tagEMRSELECTOBJECT;
  16613.   EMRDeleteObject = TEMRSelectObject;
  16614.   PEMRDeleteObject = PEMRSelectObject;
  16615.  
  16616.   PEMRSelectColorSpace = ^TEMRSelectColorSpace;
  16617.   {$EXTERNALSYM tagEMRSETCOLORSPACE}
  16618.   tagEMRSETCOLORSPACE = packed record
  16619.     emr: TEMR;
  16620.     ihCS: DWORD;  { ColorSpace handle index }
  16621.   end;
  16622.   TEMRSelectColorSpace = tagEMRSETCOLORSPACE;
  16623.   {$EXTERNALSYM EMRSELECTCOLORSPACE}
  16624.   EMRSELECTCOLORSPACE = tagEMRSETCOLORSPACE;
  16625.   EMRDeleteColorSpace = TEMRSelectColorSpace;
  16626.   PEMRDeleteColorSpace = PEMRSelectColorSpace;
  16627.  
  16628.   PEMRSelectPalette = ^TEMRSelectPalette;
  16629.   {$EXTERNALSYM tagEMRSELECTPALETTE}
  16630.   tagEMRSELECTPALETTE = packed record
  16631.     emr: TEMR;
  16632.     ihPal: DWORD;   { Palette handle index, background mode only }
  16633.   end;
  16634.   TEMRSelectPalette = tagEMRSELECTPALETTE;
  16635.   {$EXTERNALSYM EMRSELECTPALETTE}
  16636.   EMRSELECTPALETTE = tagEMRSELECTPALETTE;
  16637.  
  16638.   PEMRResizePalette = ^TEMRResizePalette;
  16639.   {$EXTERNALSYM tagEMRRESIZEPALETTE}
  16640.   tagEMRRESIZEPALETTE = packed record
  16641.     emr: TEMR;
  16642.     ihPal: DWORD;   { Palette handle index }
  16643.     cEntries: DWORD;
  16644.   end;
  16645.   TEMRResizePalette = tagEMRRESIZEPALETTE;
  16646.   {$EXTERNALSYM EMRRESIZEPALETTE}
  16647.   EMRRESIZEPALETTE = tagEMRRESIZEPALETTE;
  16648.  
  16649.   PEMRSetPaletteEntries = ^TEMRSetPaletteEntries;
  16650.   {$EXTERNALSYM tagEMRSETPALETTEENTRIES}
  16651.   tagEMRSETPALETTEENTRIES = packed record
  16652.     emr: TEMR;
  16653.     ihPal: DWORD;      { Palette handle index }
  16654.     iStart: DWORD;
  16655.     cEntries: DWORD;
  16656.     aPalEntries: array[0..0] of TPaletteEntry; { The peFlags fields do not contain any flags }
  16657.   end;
  16658.   TEMRSetPaletteEntries = tagEMRSETPALETTEENTRIES;
  16659.   {$EXTERNALSYM EMRSETPALETTEENTRIES}
  16660.   EMRSETPALETTEENTRIES = tagEMRSETPALETTEENTRIES;
  16661.  
  16662.   PEMRSetColorAdjustment = ^TEMRSetColorAdjustment;
  16663.   {$EXTERNALSYM tagEMRSETCOLORADJUSTMENT}
  16664.   tagEMRSETCOLORADJUSTMENT = packed record
  16665.     emr: TEMR;
  16666.     ColorAdjustment: TColorAdjustment;
  16667.   end;
  16668.   TEMRSetColorAdjustment = tagEMRSETCOLORADJUSTMENT;
  16669.   {$EXTERNALSYM EMRSETCOLORADJUSTMENT}
  16670.   EMRSETCOLORADJUSTMENT = tagEMRSETCOLORADJUSTMENT;
  16671.  
  16672.   PEMRGDIComment = ^TEMRGDIComment;
  16673.   {$EXTERNALSYM tagEMRGDICOMMENT}
  16674.   tagEMRGDICOMMENT = record
  16675.     emr: TEMR;
  16676.     cbData: DWORD;   { Size of data in bytes}
  16677.     Data: array[0..0] of Byte;
  16678.   end;
  16679.   TEMRGDIComment = tagEMRGDICOMMENT;
  16680.   {$EXTERNALSYM EMRGDICOMMENT}
  16681.   EMRGDICOMMENT = tagEMRGDICOMMENT;
  16682.  
  16683.   {$EXTERNALSYM PEMREOF}
  16684.   PEMREOF = ^TEMREOF;
  16685.   {$EXTERNALSYM tagEMREOF}
  16686.   tagEMREOF = packed record
  16687.     emr: TEMR;
  16688.     nPalEntries: DWORD;   { Number of palette entries }
  16689.     offPalEntries: DWORD; { Offset to the palette entries }
  16690.     nSizeLast: DWORD;     { Same as nSize and must be the last DWORD }
  16691.                           { of the record.  The palette entries, }
  16692.                           { if exist, precede this field. }
  16693.   end;
  16694.   TEMREOF = tagEMREOF;
  16695.   {$EXTERNALSYM EMREOF}
  16696.   EMREOF = tagEMREOF;
  16697.  
  16698.   PEMRLineTo = ^TEMRLineTo;
  16699.   {$EXTERNALSYM tagEMRLINETO}
  16700.   tagEMRLINETO = packed record
  16701.     emr: TEMR;
  16702.     ptl: TPoint;
  16703.   end;
  16704.   TEMRLineTo = tagEMRLINETO;
  16705.   {$EXTERNALSYM EMRLINETO}
  16706.   EMRLINETO = tagEMRLINETO;
  16707.   EMRMoveToEx = TEMRLineTo;
  16708.   PEMRMoveToEx = PEMRLineTo;
  16709.  
  16710.   PEMROffsetClipRgn = ^TEMROffsetClipRgn;
  16711.   {$EXTERNALSYM tagEMROFFSETCLIPRGN}
  16712.   tagEMROFFSETCLIPRGN = packed record
  16713.     emr: TEMR;
  16714.     ptlOffset: TPoint;
  16715.   end;
  16716.   TEMROffsetClipRgn = tagEMROFFSETCLIPRGN;
  16717.   {$EXTERNALSYM EMROFFSETCLIPRGN}
  16718.   EMROFFSETCLIPRGN = tagEMROFFSETCLIPRGN;
  16719.  
  16720.   PEMRFillPath = ^TEMRFillPath;
  16721.   {$EXTERNALSYM tagEMRFILLPATH}
  16722.   tagEMRFILLPATH = packed record
  16723.     emr: TEMR;
  16724.     rclBounds: TRect; { Inclusive-inclusive bounds in device units}
  16725.   end;
  16726.   TEMRFillPath = tagEMRFILLPATH;
  16727.   {$EXTERNALSYM EMRFILLPATH}
  16728.   EMRFILLPATH = tagEMRFILLPATH;
  16729.   EMRStrokeAndFillPath = TEMRFillPath;
  16730.   PEMRStrokeAndFillPath = PEMRFillPath;
  16731.   EMRStrokePath = TEMRFillPath;
  16732.   PEMRStrokePath = PEMRFillPath;
  16733.  
  16734.   PEMRExcludeClipRect = ^TEMRExcludeClipRect;
  16735.   {$EXTERNALSYM tagEMREXCLUDECLIPRECT}
  16736.   tagEMREXCLUDECLIPRECT = packed record
  16737.     emr: TEMR;
  16738.     rclClip: TRect;
  16739.   end;
  16740.   TEMRExcludeClipRect = tagEMREXCLUDECLIPRECT;
  16741.   {$EXTERNALSYM EMREXCLUDECLIPRECT}
  16742.   EMREXCLUDECLIPRECT = tagEMREXCLUDECLIPRECT;
  16743.   EMRIntersectClipRect = TEMRExcludeClipRect;
  16744.   PEMRIntersectClipRect = PEMRExcludeClipRect;
  16745.  
  16746.   PEMRSetViewportOrgEx = ^TEMRSetViewportOrgEx;
  16747.   {$EXTERNALSYM tagEMRSETVIEWPORTORGEX}
  16748.   tagEMRSETVIEWPORTORGEX = packed record
  16749.     emr: TEMR;
  16750.     ptlOrigin: TPoint;
  16751.   end;
  16752.   TEMRSetViewportOrgEx = tagEMRSETVIEWPORTORGEX;
  16753.   {$EXTERNALSYM EMRSETVIEWPORTORGEX}
  16754.   EMRSETVIEWPORTORGEX = tagEMRSETVIEWPORTORGEX;
  16755.   EMRSetWindowOrgEx = TEMRSetViewportOrgEx;
  16756.   PEMRSetWindowOrgEx = PEMRSetViewportOrgEx;
  16757.   EMRSetBrushOrgEx = TEMRSetViewportOrgEx;
  16758.   PEMRSetBrushOrgEx = PEMRSetViewportOrgEx;
  16759.  
  16760.   PEMRSetViewportExtEx = ^TEMRSetViewportExtEx;
  16761.   {$EXTERNALSYM tagEMRSETVIEWPORTEXTEX}
  16762.   tagEMRSETVIEWPORTEXTEX = packed record
  16763.     emr: TEMR;
  16764.     szlExtent: TSize;
  16765.   end;
  16766.   TEMRSetViewportExtEx = tagEMRSETVIEWPORTEXTEX;
  16767.   {$EXTERNALSYM EMRSETVIEWPORTEXTEX}
  16768.   EMRSETVIEWPORTEXTEX = tagEMRSETVIEWPORTEXTEX;
  16769.   EMRSetWindowExtEx = TEMRSetViewportExtEx;
  16770.   PEMRSetWindowExtEx = PEMRSetViewportExtEx;
  16771.  
  16772.   PEMRScaleViewportExtEx = ^TEMRScaleViewportExtEx;
  16773.   {$EXTERNALSYM tagEMRSCALEVIEWPORTEXTEX}
  16774.   tagEMRSCALEVIEWPORTEXTEX = packed record
  16775.     emr: TEMR;
  16776.     xNum: Longint;
  16777.     xDenom: Longint;
  16778.     yNum: Longint;
  16779.     yDenom: Longint;
  16780.   end;
  16781.   TEMRScaleViewportExtEx = tagEMRSCALEVIEWPORTEXTEX;
  16782.   {$EXTERNALSYM EMRSCALEVIEWPORTEXTEX}
  16783.   EMRSCALEVIEWPORTEXTEX = tagEMRSCALEVIEWPORTEXTEX;
  16784.   EMRScaleWindowExtEx = TEMRScaleViewportExtEx;
  16785.   PEMRScaleWindowExtEx = PEMRScaleViewportExtEx;
  16786.  
  16787.   PEMRSetWorldTransform = ^TEMRSetWorldTransform;
  16788.   {$EXTERNALSYM tagEMRSETWORLDTRANSFORM}
  16789.   tagEMRSETWORLDTRANSFORM = packed record
  16790.     emr: TEMR;
  16791.     xform: TXForm;
  16792.   end;
  16793.   TEMRSetWorldTransform = tagEMRSETWORLDTRANSFORM;
  16794.   {$EXTERNALSYM EMRSETWORLDTRANSFORM}
  16795.   EMRSETWORLDTRANSFORM = tagEMRSETWORLDTRANSFORM;
  16796.  
  16797.   PEMRModifyWorldTransform = ^TEMRModifyWorldTransform;
  16798.   {$EXTERNALSYM tagEMRMODIFYWORLDTRANSFORM}
  16799.   tagEMRMODIFYWORLDTRANSFORM = packed record
  16800.     emr: TEMR;
  16801.     xform: TXForm;
  16802.     iMode: DWORD;
  16803.   end;
  16804.   TEMRModifyWorldTransform = tagEMRMODIFYWORLDTRANSFORM;
  16805.   {$EXTERNALSYM EMRMODIFYWORLDTRANSFORM}
  16806.   EMRMODIFYWORLDTRANSFORM = tagEMRMODIFYWORLDTRANSFORM;
  16807.  
  16808.   PEMRSetPixelV = ^TEMRSetPixelV;
  16809.   {$EXTERNALSYM tagEMRSETPIXELV}
  16810.   tagEMRSETPIXELV = packed record
  16811.     emr: TEMR;
  16812.     ptlPixel: TPoint;
  16813.     crColor: COLORREF;
  16814.   end;
  16815.   TEMRSetPixelV = tagEMRSETPIXELV;
  16816.   {$EXTERNALSYM EMRSETPIXELV}
  16817.   EMRSETPIXELV = tagEMRSETPIXELV;
  16818.  
  16819.   PEMRExtFloodFill = ^TEMRExtFloodFill;
  16820.   {$EXTERNALSYM tagEMREXTFLOODFILL}
  16821.   tagEMREXTFLOODFILL = packed record
  16822.     emr: TEMR;
  16823.     ptlStart: TPoint;
  16824.     crColor: COLORREF;
  16825.     iMode: DWORD;
  16826.   end;
  16827.   TEMRExtFloodFill = tagEMREXTFLOODFILL;
  16828.   {$EXTERNALSYM EMREXTFLOODFILL}
  16829.   EMREXTFLOODFILL = tagEMREXTFLOODFILL;
  16830.  
  16831.   PEMREllipse = ^TEMREllipse;
  16832.   {$EXTERNALSYM tagEMRELLIPSE}
  16833.   tagEMRELLIPSE = packed record
  16834.     emr: TEMR;
  16835.     rclBox: TRect; { Inclusive-inclusive bounding rectangle}
  16836.   end;
  16837.   TEMREllipse = tagEMRELLIPSE;
  16838.   {$EXTERNALSYM EMRELLIPSE}
  16839.   EMRELLIPSE = tagEMRELLIPSE;
  16840.   EMRRectangle = TEMREllipse;
  16841.   PEMRRectangle = PEMREllipse;
  16842.  
  16843.   PEMRRoundRect = ^TEMRRoundRect;
  16844.   {$EXTERNALSYM tagEMRROUNDRECT}
  16845.   tagEMRROUNDRECT = packed record
  16846.     emr: TEMR;
  16847.     rclBox: TRect;     { Inclusive-inclusive bounding rectangle }
  16848.     szlCorner: TSize;
  16849.   end;
  16850.   TEMRRoundRect = tagEMRROUNDRECT;
  16851.   {$EXTERNALSYM EMRROUNDRECT}
  16852.   EMRROUNDRECT = tagEMRROUNDRECT;
  16853.  
  16854.   PEMRArc = ^TEMRArc;
  16855.   {$EXTERNALSYM tagEMRARC}
  16856.   tagEMRARC = packed record
  16857.     emr: TEMR;
  16858.     rclBox: TRect;     { Inclusive-inclusive bounding rectangle }
  16859.     ptlStart: TPoint;
  16860.     ptlEnd: TPoint;
  16861.   end;
  16862.   TEMRArc = tagEMRARC;
  16863.   {$EXTERNALSYM EMRARC}
  16864.   EMRARC = tagEMRARC;
  16865.   EMRArcTo = TEMRArc;
  16866.   PEMRArcTo = PEMRArc;
  16867.   EMRChord = TEMRArc;
  16868.   PEMRChord = PEMRArc;
  16869.   EMRPie = TEMRArc;
  16870.   PEMRPie = PEMRArc;
  16871.  
  16872.   PEMRAngleArc = ^TEMRAngleArc;
  16873.   {$EXTERNALSYM tagEMRANGLEARC}
  16874.   tagEMRANGLEARC = packed record
  16875.     emr: TEMR;
  16876.     ptlCenter: TPoint;
  16877.     nRadius: DWORD;
  16878.     eStartAngle: Single;
  16879.     eSweepAngle: Single;
  16880.   end;
  16881.   TEMRAngleArc = tagEMRANGLEARC;
  16882.   {$EXTERNALSYM EMRANGLEARC}
  16883.   EMRANGLEARC = tagEMRANGLEARC;
  16884.  
  16885.   PEMRPolyline = ^TEMRPolyline;
  16886.   {$EXTERNALSYM tagEMRPOLYLINE}
  16887.   tagEMRPOLYLINE = packed record
  16888.     emr: TEMR;
  16889.     rclBounds: TRect;    { Inclusive-inclusive bounds in device units }
  16890.     cptl: DWORD;
  16891.     aptl: array[0..0] of TPoint;
  16892.   end;
  16893.   TEMRPolyline = tagEMRPOLYLINE;
  16894.   {$EXTERNALSYM EMRPOLYLINE}
  16895.   EMRPOLYLINE = tagEMRPOLYLINE;
  16896.   EMRPolyBezier = TEMRPolyLine;
  16897.   PEMRPolyBezier = PEMRPolyLine;
  16898.   EMRPolyGON = TEMRPolyLine;
  16899.   PEMRPolyGON = PEMRPolyLine;
  16900.   EMRPolyBezierTo = TEMRPolyLine;
  16901.   PEMRPolyBezierTo = PEMRPolyLine;
  16902.   EMRPolyLineTo = TEMRPolyLine;
  16903.   PEMRPolyLineTo = PEMRPolyLine;
  16904.  
  16905.   PEMRPolyline16 = ^TEMRPolyline16;
  16906.   {$EXTERNALSYM tagEMRPOLYLINE16}
  16907.   tagEMRPOLYLINE16 = packed record
  16908.     emr: TEMR;
  16909.     rclBounds: TRect; { Inclusive-inclusive bounds in device units}
  16910.     cpts: DWORD;
  16911.     apts: array[0..0] of TSmallPoint;
  16912.   end;
  16913.   TEMRPolyline16 = tagEMRPOLYLINE16;
  16914.   {$EXTERNALSYM EMRPOLYLINE16}
  16915.   EMRPOLYLINE16 = tagEMRPOLYLINE16;
  16916.   EMRPolyBezier16 = TEMRPolyLine16;
  16917.   PEMRPolyBezier16 = PEMRPolyLine16;
  16918.   EMRPolygon16 = TEMRPolyLine16;
  16919.   PEMRPolygon16 = PEMRPolyLine16;
  16920.   EMRPolyBezierTo16 = TEMRPolyLine16;
  16921.   PEMRPolyBezierTo16 = PEMRPolyLine16;
  16922.   EMRPolyLineTo16 = TEMRPolyLine16;
  16923.   PEMRPolyLineTo16 = PEMRPolyLine16;
  16924.  
  16925.   PEMRPolyDraw = ^TEMRPolyDraw;
  16926.   {$EXTERNALSYM tagEMRPOLYDRAW}
  16927.   tagEMRPOLYDRAW = record
  16928.     emr: TEMR;
  16929.     rclBounds: TRect;    { Inclusive-inclusive bounds in device units}
  16930.     cptl: DWORD;         { Number of points}
  16931.     aptl: array[0..0] of TPoint;  { Array of points}
  16932.     abTypes: array[0..0] of Byte; { Array of point types}
  16933.   end;
  16934.   TEMRPolyDraw = tagEMRPOLYDRAW;
  16935.   {$EXTERNALSYM EMRPOLYDRAW}
  16936.   EMRPOLYDRAW = tagEMRPOLYDRAW;
  16937.  
  16938.   PEMRPolyDraw16 = ^TEMRPolyDraw16;
  16939.   {$EXTERNALSYM tagEMRPOLYDRAW16}
  16940.   tagEMRPOLYDRAW16 = record
  16941.     emr: TEMR;
  16942.     rclBounds: TRect;
  16943.     cpts: DWORD;
  16944.     apts: array[0..0] of TSmallPoint;
  16945.     abTypes: array[0..0] of Byte;
  16946.   end;
  16947.   TEMRPolyDraw16 = tagEMRPOLYDRAW16;
  16948.   {$EXTERNALSYM EMRPOLYDRAW16}
  16949.   EMRPOLYDRAW16 = tagEMRPOLYDRAW16;
  16950.  
  16951.   PEMRPolyPolyline = ^TEMRPolyPolyline;
  16952.   {$EXTERNALSYM tagEMRPOLYPOLYLINE}
  16953.   tagEMRPOLYPOLYLINE = packed record
  16954.     emr: TEMR;
  16955.     rclBounds: TRect; { Inclusive-inclusive bounds in device units}
  16956.     nPolys: DWORD;    { Number of polys}
  16957.     cptl: DWORD;      { Total number of points in all polys}
  16958.     aPolyCounts: array[0..0] of DWORD; { Array of point counts for each poly}
  16959.     aptl: array[0..0] of TPoint;       { Array of points}
  16960.   end;
  16961.   TEMRPolyPolyline = tagEMRPOLYPOLYLINE;
  16962.   {$EXTERNALSYM EMRPOLYPOLYLINE}
  16963.   EMRPOLYPOLYLINE = tagEMRPOLYPOLYLINE;
  16964.   EMRPolyPolygon = TEMRPolyPolyline;
  16965.   PEMRPolyPolygon = PEMRPolyPolyline;
  16966.  
  16967.   PEMRPolyPolyline16 = ^TEMRPolyPolyline16;
  16968.   {$EXTERNALSYM tagEMRPOLYPOLYLINE16}
  16969.   tagEMRPOLYPOLYLINE16 = packed record
  16970.     emr: TEMR;
  16971.     rclBounds: TRect;
  16972.     nPolys: DWORD;
  16973.     cpts: DWORD;
  16974.     aPolyCounts: array[0..0] of DWORD;
  16975.     apts: array[0..0] of TSmallPoint;
  16976.   end;
  16977.   TEMRPolyPolyline16 = tagEMRPOLYPOLYLINE16;
  16978.   {$EXTERNALSYM EMRPOLYPOLYLINE16}
  16979.   EMRPOLYPOLYLINE16 = tagEMRPOLYPOLYLINE16;
  16980.   EMRPolyPolygon16 = TEMRPolyPolyline16;
  16981.   PEMRPolyPolygon16 = PEMRPolyPolyline16;
  16982.  
  16983.   PEMRInvertRgn = ^TEMRInvertRgn;
  16984.   {$EXTERNALSYM tagEMRINVERTRGN}
  16985.   tagEMRINVERTRGN = record
  16986.     emr: TEMR;
  16987.     rclBounds: TRect; { Inclusive-inclusive bounds in device units }
  16988.     cbRgnData: DWORD; { Size of region data in bytes}
  16989.     RgnData: array[0..0] of Byte;
  16990.   end;
  16991.   TEMRInvertRgn = tagEMRINVERTRGN;
  16992.   {$EXTERNALSYM EMRINVERTRGN}
  16993.   EMRINVERTRGN = tagEMRINVERTRGN;
  16994.   EMRPaintRgn = TEMRInvertRgn;
  16995.   PEMRPaintRgn = PEMRInvertRgn;
  16996.  
  16997.   PEMRFillRgn = ^TEMRFillRgn;
  16998.   {$EXTERNALSYM tagEMRFILLRGN}
  16999.   tagEMRFILLRGN = record
  17000.     emr: TEMR;
  17001.     rclBounds: TRect;  { Inclusive-inclusive bounds in device units}
  17002.     cbRgnData: DWORD;  { Size of region data in bytes}
  17003.     ihBrush: DWORD;    { Brush handle index }
  17004.     RgnData: array[0..0] of Byte;
  17005.   end;
  17006.   TEMRFillRgn = tagEMRFILLRGN;
  17007.   {$EXTERNALSYM EMRFILLRGN}
  17008.   EMRFILLRGN = tagEMRFILLRGN;
  17009.  
  17010.   PEMRFrameRgn = ^TEMRFrameRgn;
  17011.   {$EXTERNALSYM tagEMRFRAMERGN}
  17012.   tagEMRFRAMERGN = record
  17013.     emr: TEMR;
  17014.     rclBounds: TRect;   { Inclusive-inclusive bounds in device units}
  17015.     cbRgnData: DWORD;   { Size of region data in bytes}
  17016.     ihBrush: DWORD;     { Brush handle index}
  17017.     szlStroke: TSize;
  17018.     RgnData: array[0..0] of Byte;
  17019.   end;
  17020.   TEMRFrameRgn = tagEMRFRAMERGN;
  17021.   {$EXTERNALSYM EMRFRAMERGN}
  17022.   EMRFRAMERGN = tagEMRFRAMERGN;
  17023.  
  17024.   PEMGradientFill = ^TEMGradientFill;
  17025.   {$EXTERNALSYM tagEMRGRADIENTFILL}
  17026.   tagEMRGRADIENTFILL = record
  17027.     emr: TEMR;
  17028.     rclBounds: TRect;   { Inclusive-inclusive bounds in device units}
  17029.     nVer: DWORD;
  17030.     nTri: DWORD;
  17031.     ulMode: ULONG;
  17032.     Ver: array[0..0] of TTriVertex;
  17033.   end;
  17034.   TEMGradientFill = tagEMRGRADIENTFILL;
  17035.   {$EXTERNALSYM EMRFRAMERGN}
  17036.   EMRGRADIENTFILL = tagEMRGRADIENTFILL;
  17037.  
  17038.   PEMRExtSelectClipRgn = ^TEMRExtSelectClipRgn;
  17039.   {$EXTERNALSYM tagEMREXTSELECTCLIPRGN}
  17040.   tagEMREXTSELECTCLIPRGN = record
  17041.     emr: TEMR;
  17042.     cbRgnData: DWORD; { Size of region data in bytes}
  17043.     iMode: DWORD;
  17044.     RgnData: array[0..0] of Byte;
  17045.   end;
  17046.   TEMRExtSelectClipRgn = tagEMREXTSELECTCLIPRGN;
  17047.   {$EXTERNALSYM EMREXTSELECTCLIPRGN}
  17048.   EMREXTSELECTCLIPRGN = tagEMREXTSELECTCLIPRGN;
  17049.  
  17050.   PEMRExtTextOut = ^TEMRExtTextOut;
  17051.   {$EXTERNALSYM tagEMREXTTEXTOUTA}
  17052.   tagEMREXTTEXTOUTA = packed record
  17053.     emr: TEMR;
  17054.     rclBounds: TRect;     { Inclusive-inclusive bounds in device units}
  17055.     iGraphicsMode: DWORD; { Current graphics mode}
  17056.     exScale: Single;       { X and Y scales from Page units to .01mm units}
  17057.     eyScale: Single;       {   if graphics mode is GM_COMPATIBLE.}
  17058.     emrtext: TEMRText;    { This is followed by the string and spacing array}
  17059.   end;
  17060.   TEMRExtTextOut = tagEMREXTTEXTOUTA;
  17061.   {$EXTERNALSYM EMREXTTEXTOUTA}
  17062.   EMREXTTEXTOUTA = tagEMREXTTEXTOUTA;
  17063.  
  17064.   PEMRPolyTextOut = ^TEMRPolyTextOut;
  17065.   {$EXTERNALSYM tagEMRPOLYTEXTOUTA}
  17066.   tagEMRPOLYTEXTOUTA = packed record
  17067.     emr: TEMR;
  17068.     rclBounds: TRect;     { Inclusive-inclusive bounds in device units}
  17069.     iGraphicsMode: DWORD; { Current graphics mode}
  17070.     exScale: Single;       { X and Y scales from Page units to .01mm units}
  17071.     eyScale: Single;       {   if graphics mode is GM_COMPATIBLE.}
  17072.     cStrings: Longint;
  17073.     aemrtext: array[0..0] of TEMRText; { array of TEMRText structures.  This is}
  17074.                                        { followed by the strings and spacing arrays.}
  17075.   end;
  17076.   TEMRPolyTextOut = tagEMRPOLYTEXTOUTA;
  17077.   {$EXTERNALSYM EMRPOLYTEXTOUTA}
  17078.   EMRPOLYTEXTOUTA = tagEMRPOLYTEXTOUTA;
  17079.  
  17080.   PEMRBitBlt = ^TEMRBitBlt;
  17081.   {$EXTERNALSYM tagEMRBITBLT}
  17082.   tagEMRBITBLT = packed record
  17083.     emr: TEMR;
  17084.     rclBounds: TRect;        { Inclusive-inclusive bounds in device units}
  17085.     xDest: Longint;
  17086.     yDest: Longint;
  17087.     cxDest: Longint;
  17088.     cyDest: Longint;
  17089.     dwRop: DWORD;
  17090.     xSrc: Longint;
  17091.     ySrc: Longint;
  17092.     xformSrc: TXForm;        { Source DC transform}
  17093.     crBkColorSrc: COLORREF; { Source DC BkColor in RGB}
  17094.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  17095.                              { (DIB_RGB_COLORS)}
  17096.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  17097.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  17098.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  17099.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  17100.   end;
  17101.   TEMRBitBlt = tagEMRBITBLT;
  17102.   {$EXTERNALSYM EMRBITBLT}
  17103.   EMRBITBLT = tagEMRBITBLT;
  17104.  
  17105.   PEMRStretchBlt = ^TEMRStretchBlt;
  17106.   {$EXTERNALSYM tagEMRSTRETCHBLT}
  17107.   tagEMRSTRETCHBLT = packed record
  17108.     emr: TEMR;
  17109.     rclBounds: TRect; { Inclusive-inclusive bounds in device units}
  17110.     xDest: Longint;
  17111.     yDest: Longint;
  17112.     cxDest: Longint;
  17113.     cyDest: Longint;
  17114.     dwRop: DWORD;
  17115.     xSrc: Longint;
  17116.     ySrc: Longint;
  17117.     xformSrc: TXForm;        { Source DC transform}
  17118.     crBkColorSrc: COLORREF; { Source DC BkColor in RGB}
  17119.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  17120.                              { (DIB_RGB_COLORS)}
  17121.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  17122.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  17123.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  17124.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  17125.     cxSrc: Longint;
  17126.     cySrc: Longint;
  17127.   end;
  17128.   TEMRStretchBlt = tagEMRSTRETCHBLT;
  17129.   {$EXTERNALSYM EMRSTRETCHBLT}
  17130.   EMRSTRETCHBLT = tagEMRSTRETCHBLT;
  17131.  
  17132.   PEMRMaskBlt = ^TEMRMaskBlt;
  17133.   {$EXTERNALSYM tagEMRMASKBLT}
  17134.   tagEMRMASKBLT = packed record
  17135.     emr: TEMR;
  17136.     rclBounds: TRect;        { Inclusive-inclusive bounds in device units}
  17137.     xDest: Longint;
  17138.     yDest: Longint;
  17139.     cxDest: Longint;
  17140.     cyDest: Longint;
  17141.     dwRop: DWORD;
  17142.     xSrc: Longint;
  17143.     ySrc: Longint;
  17144.     xformSrc: TXForm;        { Source DC transform}
  17145.     crBkColorSrc: COLORREF; { Source DC BkColor in RGB}
  17146.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  17147.                              { (DIB_RGB_COLORS)}
  17148.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  17149.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  17150.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  17151.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  17152.     xMask: Longint;
  17153.     yMask: Longint;
  17154.     iUsageMask: DWORD;       { Mask bitmap info color table usage}
  17155.     offBmiMask: DWORD;       { Offset to the mask TBitmapInfo structure if any}
  17156.     cbBmiMask: DWORD;        { Size of the mask TBitmapInfo structure if any}
  17157.     offBitsMask: DWORD;      { Offset to the mask bitmap bits if any}
  17158.     cbBitsMask: DWORD;       { Size of the mask bitmap bits if any}
  17159.   end;
  17160.   TEMRMaskBlt = tagEMRMASKBLT;
  17161.   {$EXTERNALSYM EMRMASKBLT}
  17162.   EMRMASKBLT = tagEMRMASKBLT;
  17163.  
  17164.   PEMRPLGBlt = ^TEMRPLGBlt;
  17165.   {$EXTERNALSYM tagEMRPLGBLT}
  17166.   tagEMRPLGBLT = packed record
  17167.     emr: TEMR;
  17168.     rclBounds: TRect;
  17169.     aptlDest: array[0..2] of TPoint;
  17170.     xSrc: Longint;
  17171.     ySrc: Longint;
  17172.     cxSrc: Longint;
  17173.     cySrc: Longint;
  17174.     xformSrc: TXForm;        { Source DC transform}
  17175.     crBkColorSrc: COLORREF; { Source DC BkColor in RGB}
  17176.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  17177.                              { (DIB_RGB_COLORS)}
  17178.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  17179.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  17180.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  17181.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  17182.     xMask: Longint;
  17183.     yMask: Longint;
  17184.     iUsageMask: DWORD;       { Mask bitmap info color table usage}
  17185.     offBmiMask: DWORD;       { Offset to the mask TBitmapInfo structure if any}
  17186.     cbBmiMask: DWORD;        { Size of the mask TBitmapInfo structure if any}
  17187.     offBitsMask: DWORD;      { Offset to the mask bitmap bits if any}
  17188.     cbBitsMask: DWORD;       { Size of the mask bitmap bits if any}
  17189.   end;
  17190.   TEMRPLGBlt = tagEMRPLGBLT;
  17191.   {$EXTERNALSYM EMRPLGBLT}
  17192.   EMRPLGBLT = tagEMRPLGBLT;
  17193.  
  17194.   PEMRSetDIBitsToDevice = ^TEMRSetDIBitsToDevice;
  17195.   {$EXTERNALSYM tagEMRSETDIBITSTODEVICE}
  17196.   tagEMRSETDIBITSTODEVICE = packed record
  17197.     emr: TEMR;
  17198.     rclBounds: TRect;
  17199.     xDest: Longint;
  17200.     yDest: Longint;
  17201.     xSrc: Longint;
  17202.     ySrc: Longint;
  17203.     cxSrc: Longint;
  17204.     cySrc: Longint;
  17205.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  17206.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  17207.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  17208.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  17209.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  17210.     iStartScan: DWORD;
  17211.     cScans: DWORD;
  17212.   end;
  17213.   TEMRSetDIBitsToDevice = tagEMRSETDIBITSTODEVICE;
  17214.   {$EXTERNALSYM EMRSETDIBITSTODEVICE}
  17215.   EMRSETDIBITSTODEVICE = tagEMRSETDIBITSTODEVICE;
  17216.  
  17217.   PEMRStretchDIBits = ^TEMRStretchDIBits;
  17218.   {$EXTERNALSYM tagEMRSTRETCHDIBITS}
  17219.   tagEMRSTRETCHDIBITS = packed record
  17220.     emr: TEMR;
  17221.     rclBounds: TRect;
  17222.     xDest: Longint;
  17223.     yDest: Longint;
  17224.     xSrc: Longint;
  17225.     ySrc: Longint;
  17226.     cxSrc: Longint;
  17227.     cySrc: Longint;
  17228.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  17229.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  17230.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  17231.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  17232.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  17233.     dwRop: DWORD;
  17234.     cxDest: Longint;
  17235.     cyDest: Longint;
  17236.   end;
  17237.   TEMRStretchDIBits = tagEMRSTRETCHDIBITS;
  17238.   {$EXTERNALSYM EMRSTRETCHDIBITS}
  17239.   EMRSTRETCHDIBITS = tagEMRSTRETCHDIBITS;
  17240.  
  17241.   PEMRAlphaBlend = ^TEMRAlphaBlend;
  17242.   {$EXTERNALSYM tagEMRALPHABLEND}
  17243.   tagEMRALPHABLEND = packed record
  17244.     emr: TEMR;
  17245.     rclBounds: TRect;
  17246.     xDest: Longint;
  17247.     yDest: Longint;
  17248.     cxDest: Longint;
  17249.     cyDest: Longint;
  17250.     dwRop: DWORD;
  17251.     xSrc: Longint;
  17252.     ySrc: Longint;
  17253.     xformSrc: XFORM;         { Source DC transform}
  17254.     crBkColorSrc: COLORREF;  { Source DC BkColor in RGB}
  17255.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  17256.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  17257.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  17258.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  17259.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  17260.     cxSrc: Longint;
  17261.     cySrc: Longint;
  17262.   end;
  17263.   TEMRAlphaBlend = tagEMRALPHABLEND;
  17264.   {$EXTERNALSYM EMRALPHABLEND}
  17265.   EMRALPHABLEND = tagEMRALPHABLEND;
  17266.  
  17267.   PEMRTransparentBLT = ^TEMRTransparentBLT;
  17268.   {$EXTERNALSYM tagEMRTRANSPARENTBLT}
  17269.   tagEMRTRANSPARENTBLT = packed record
  17270.     emr: TEMR;
  17271.     rclBounds: TRect;
  17272.     xDest: Longint;
  17273.     yDest: Longint;
  17274.     cxDest: Longint;
  17275.     cyDest: Longint;
  17276.     dwRop: DWORD;
  17277.     xSrc: Longint;
  17278.     ySrc: Longint;
  17279.     xformSrc: XFORM;         { Source DC transform}
  17280.     crBkColorSrc: COLORREF;  { Source DC BkColor in RGB}
  17281.     iUsageSrc: DWORD;        { Source bitmap info color table usage}
  17282.     offBmiSrc: DWORD;        { Offset to the source TBitmapInfo structure}
  17283.     cbBmiSrc: DWORD;         { Size of the source TBitmapInfo structure}
  17284.     offBitsSrc: DWORD;       { Offset to the source bitmap bits}
  17285.     cbBitsSrc: DWORD;        { Size of the source bitmap bits}
  17286.     cxSrc: Longint;
  17287.     cySrc: Longint;
  17288.   end;
  17289.   TEMRTransparentBLT = tagEMRTRANSPARENTBLT;
  17290.   {$EXTERNALSYM EMRTRANSPARENTBLT}
  17291.   EMRTRANSPARENTBLT = tagEMRTRANSPARENTBLT;
  17292.  
  17293.   PEMRExtCreateFontIndirect = ^TEMRExtCreateFontIndirect;
  17294.   {$EXTERNALSYM tagEMREXTCREATEFONTINDIRECTW}
  17295.   tagEMREXTCREATEFONTINDIRECTW = record
  17296.     emr: TEMR;
  17297.     ihFont: DWORD;     { Font handle index}
  17298.     elfw: TExtLogFontW;
  17299.   end;
  17300.   TEMRExtCreateFontIndirect = tagEMREXTCREATEFONTINDIRECTW;
  17301.   {$EXTERNALSYM EMREXTCREATEFONTINDIRECTW}
  17302.   EMREXTCREATEFONTINDIRECTW = tagEMREXTCREATEFONTINDIRECTW;
  17303.  
  17304.   PEMRCreatePalette = ^TEMRCreatePalette;
  17305.   {$EXTERNALSYM tagEMRCREATEPALETTE}
  17306.   tagEMRCREATEPALETTE = packed record
  17307.     emr: TEMR;
  17308.     ihPal: DWORD;        { Palette handle index}
  17309.     lgpl: TLogPalette;   { The peFlags fields in the palette entries}
  17310.                          { do not contain any flags}
  17311.   end;
  17312.   TEMRCreatePalette = tagEMRCREATEPALETTE;
  17313.   {$EXTERNALSYM EMRCREATEPALETTE}
  17314.   EMRCREATEPALETTE = tagEMRCREATEPALETTE;
  17315.  
  17316.   PEMRCreateColorSpace = ^TEMRCreateColorSpace;
  17317.   {$EXTERNALSYM tagEMRCREATECOLORSPACE}
  17318.   tagEMRCREATECOLORSPACE = packed record
  17319.     emr: TEMR;
  17320.     ihCS: DWORD;          { ColorSpace handle index}
  17321.     lcs: TLogColorSpaceW;
  17322.   end;
  17323.   TEMRCreateColorSpace = tagEMRCREATECOLORSPACE;
  17324.   {$EXTERNALSYM EMRCREATECOLORSPACE}
  17325.   EMRCREATECOLORSPACE = tagEMRCREATECOLORSPACE;
  17326.  
  17327.   PEMRCreatePen = ^TEMRCreatePen;
  17328.   {$EXTERNALSYM tagEMRCREATEPEN}
  17329.   tagEMRCREATEPEN = packed record
  17330.     emr: TEMR;
  17331.     ihPen: DWORD;   { Pen handle index}
  17332.     lopn: TLogPen;
  17333.   end;
  17334.   TEMRCreatePen = tagEMRCREATEPEN;
  17335.   {$EXTERNALSYM EMRCREATEPEN}
  17336.   EMRCREATEPEN = tagEMRCREATEPEN;
  17337.  
  17338.   PEMRExtCreatePen = ^TEMRExtCreatePen;
  17339.   {$EXTERNALSYM tagEMREXTCREATEPEN}
  17340.   tagEMREXTCREATEPEN = packed record
  17341.     emr: TEMR;
  17342.     ihPen: DWORD;      { Pen handle index}
  17343.     offBmi: DWORD;     { Offset to the TBitmapInfo structure if any}
  17344.     cbBmi: DWORD;      { Size of the TBitmapInfo structure if any}
  17345.                        { The bitmap info is followed by the bitmap}
  17346.                        { bits to form a packed DIB.}
  17347.     offBits: DWORD;    { Offset to the brush bitmap bits if any}
  17348.     cbBits: DWORD;     { Size of the brush bitmap bits if any}
  17349.     elp: TExtLogPen;   { The extended pen with the style array.}
  17350.   end;
  17351.   TEMRExtCreatePen = tagEMREXTCREATEPEN;
  17352.   {$EXTERNALSYM EMREXTCREATEPEN}
  17353.   EMREXTCREATEPEN = tagEMREXTCREATEPEN;
  17354.  
  17355.   PEMRCreateBrushIndirect = ^TEMRCreateBrushIndirect;
  17356.   {$EXTERNALSYM tagEMRCREATEBRUSHINDIRECT}
  17357.   tagEMRCREATEBRUSHINDIRECT = packed record
  17358.     emr: TEMR;
  17359.     ihBrush: DWORD; { Brush handle index}
  17360.     lb: TLogBrush;  { The style must be BS_SOLID, BS_HOLLOW,}
  17361.                     { BS_NULL or BS_HATCHED.}
  17362.   end;
  17363.   TEMRCreateBrushIndirect = tagEMRCREATEBRUSHINDIRECT;
  17364.   {$EXTERNALSYM EMRCREATEBRUSHINDIRECT}
  17365.   EMRCREATEBRUSHINDIRECT = tagEMRCREATEBRUSHINDIRECT;
  17366.  
  17367.   PEMRCreateMonoBrush = ^TEMRCreateMonoBrush;
  17368.   {$EXTERNALSYM tagEMRCREATEMONOBRUSH}
  17369.   tagEMRCREATEMONOBRUSH = packed record
  17370.     emr: TEMR;
  17371.     ihBrush: DWORD; { Brush handle index}
  17372.     iUsage: DWORD;  { Bitmap info color table usage}
  17373.     offBmi: DWORD;  { Offset to the TBitmapInfo structure}
  17374.     cbBmi: DWORD;   { Size of the TBitmapInfo structure if any}
  17375.                     { The bitmap info is followed by the bitmap}
  17376.                     { bits to form a packed DIB.}
  17377.     offBits: DWORD; { Offset to the bitmap bits}
  17378.     cbBits: DWORD;  { Size of the bitmap bits}
  17379.   end;
  17380.   TEMRCreateMonoBrush = tagEMRCREATEMONOBRUSH;
  17381.   {$EXTERNALSYM EMRCREATEMONOBRUSH}
  17382.   EMRCREATEMONOBRUSH = tagEMRCREATEMONOBRUSH;
  17383.  
  17384.   PEMRCreateDIBPatternBrushPt = ^TEMRCreateDIBPatternBrushPt;
  17385.   {$EXTERNALSYM tagEMRCREATEDIBPATTERNBRUSHPT}
  17386.   tagEMRCREATEDIBPATTERNBRUSHPT = packed record
  17387.     emr: TEMR;
  17388.     ihBrush: DWORD; { Brush handle index}
  17389.     iUsage: DWORD;  { Bitmap info color table usage}
  17390.     offBmi: DWORD;  { Offset to the TBitmapInfo structure}
  17391.     cbBmi: DWORD;   { Size of the TBitmapInfo structure if any}
  17392.                     { The bitmap info is followed by the bitmap}
  17393.                     { bits to form a packed DIB.}
  17394.     offBits: DWORD; { Offset to the bitmap bits}
  17395.     cbBits: DWORD;  { Size of the bitmap bits}
  17396.   end;
  17397.   TEMRCreateDIBPatternBrushPt = tagEMRCREATEDIBPATTERNBRUSHPT;
  17398.   {$EXTERNALSYM EMRCREATEDIBPATTERNBRUSHPT}
  17399.   EMRCREATEDIBPATTERNBRUSHPT = tagEMRCREATEDIBPATTERNBRUSHPT;
  17400.  
  17401.   PEMRFormat = ^TEMRFormat;
  17402.   {$EXTERNALSYM tagEMRFORMAT}
  17403.   tagEMRFORMAT = packed record
  17404.     dSignature: DWORD; { Format signature, e.g. ENHMETA_SIGNATURE.}
  17405.     nVersion: DWORD;   { Format version number.}
  17406.     cbData: DWORD;     { Size of data in bytes.}
  17407.     offData: DWORD;    { Offset to data from GDICOMMENT_IDENTIFIER.}
  17408.                        { It must begin at a DWORD offset.}
  17409.   end;
  17410.   TEMRFormat = tagEMRFORMAT;
  17411.   {$EXTERNALSYM EMRFORMAT}
  17412.   EMRFORMAT = tagEMRFORMAT;
  17413.  
  17414.   PEMRGLSRecord = ^TEMRGLSRecord;
  17415.   {$EXTERNALSYM tagEMRGLSRECORD}
  17416.   tagEMRGLSRECORD = packed record
  17417.     emr: TEMR;
  17418.     cbData: DWORD;              { Size of data in bytes }
  17419.     Data: packed array[0..0] of Byte;
  17420.   end;
  17421.   TEMRGLSRecord = tagEMRGLSRECORD;
  17422.   {$EXTERNALSYM EMRGLSRECORD}
  17423.   EMRGLSRECORD = tagEMRGLSRECORD;
  17424.  
  17425.  
  17426.   PEMRGLSBoundedRecord = ^TEMRGLSBoundedRecord;
  17427.   {$EXTERNALSYM tagEMRGLSBOUNDEDRECORD}
  17428.   tagEMRGLSBOUNDEDRECORD = packed record
  17429.     emr: TEMR;
  17430.     rclBounds: TRect;           { Bounds in recording coordinates }
  17431.     cbData: DWORD;              { Size of data in bytes }
  17432.     Data: packed array[0..0] of Byte;
  17433.   end;
  17434.   TEMRGLSBoundedRecord = tagEMRGLSBOUNDEDRECORD;
  17435.   {$EXTERNALSYM EMRGLSBOUNDEDRECORD}
  17436.   EMRGLSBOUNDEDRECORD = tagEMRGLSBOUNDEDRECORD;
  17437.  
  17438.   PEMRPixelFormat = ^TEMRPixelFormat;
  17439.   {$EXTERNALSYM tagEMRPIXELFORMAT}
  17440.   tagEMRPIXELFORMAT = packed record
  17441.     emr: TEMR;
  17442.     pfd: TPixelFormatDescriptor;
  17443.   end;
  17444.   TEMRPixelFormat = tagEMRPIXELFORMAT;
  17445.   {$EXTERNALSYM EMRPIXELFORMAT}
  17446.   EMRPIXELFORMAT = tagEMRPIXELFORMAT;
  17447.  
  17448. const
  17449.   {$EXTERNALSYM GDICOMMENT_IDENTIFIER}
  17450.   GDICOMMENT_IDENTIFIER = $43494447;
  17451.   {$EXTERNALSYM GDICOMMENT_WINDOWS_METAFILE}
  17452.   GDICOMMENT_WINDOWS_METAFILE = DWORD($80000001);
  17453.   {$EXTERNALSYM GDICOMMENT_BEGINGROUP}
  17454.   GDICOMMENT_BEGINGROUP = 2;
  17455.   {$EXTERNALSYM GDICOMMENT_ENDGROUP}
  17456.   GDICOMMENT_ENDGROUP = 3;
  17457.   {$EXTERNALSYM GDICOMMENT_MULTIFORMATS}
  17458.   GDICOMMENT_MULTIFORMATS = $40000004;
  17459.   {$EXTERNALSYM EPS_SIGNATURE}
  17460.   EPS_SIGNATURE = $46535045;
  17461.  
  17462. { OpenGL wgl prototypes}
  17463.  
  17464. {$EXTERNALSYM wglCopyContext}
  17465. function wglCopyContext(p1: HGLRC; p2: HGLRC; p3: Cardinal): BOOL; stdcall;
  17466. {$EXTERNALSYM wglCreateContext}
  17467. function wglCreateContext(DC: HDC): HGLRC; stdcall;
  17468. {$EXTERNALSYM wglCreateLayerContext}
  17469. function wglCreateLayerContext(p1: HDC; p2: Integer): HGLRC; stdcall;
  17470. {$EXTERNALSYM wglDeleteContext}
  17471. function wglDeleteContext(p1: HGLRC): BOOL; stdcall;
  17472. {$EXTERNALSYM wglGetCurrentContext:}
  17473. function wglGetCurrentContext: HGLRC; stdcall;
  17474. {$EXTERNALSYM wglGetCurrentDC:}
  17475. function wglGetCurrentDC: HDC; stdcall;
  17476. {$EXTERNALSYM wglMakeCurrent}
  17477. function wglMakeCurrent(DC: HDC; p2: HGLRC): BOOL; stdcall;
  17478. {$EXTERNALSYM wglShareLists}
  17479. function wglShareLists(p1, p2: HGLRC): BOOL; stdcall;
  17480. {$EXTERNALSYM wglUseFontBitmapsA}
  17481. function wglUseFontBitmapsA(DC: HDC; p2, p3, p4: DWORD): BOOL; stdcall;
  17482. {$EXTERNALSYM wglUseFontBitmapsW}
  17483. function wglUseFontBitmapsW(DC: HDC; p2, p3, p4: DWORD): BOOL; stdcall;
  17484. {$EXTERNALSYM wglUseFontBitmaps}
  17485. function wglUseFontBitmaps(DC: HDC; p2, p3, p4: DWORD): BOOL; stdcall;
  17486. {$EXTERNALSYM SwapBuffers}
  17487. function SwapBuffers(DC: HDC): BOOL; stdcall;
  17488.  
  17489. type
  17490.   PPointFloat = ^TPointFloat;
  17491.   {$EXTERNALSYM _POINTFLOAT}
  17492.   _POINTFLOAT = packed record
  17493.     x: Single;
  17494.     y: Single;
  17495.   end;
  17496.   TPointFloat = _POINTFLOAT;
  17497.   {$EXTERNALSYM POINTFLOAT}
  17498.   POINTFLOAT = _POINTFLOAT;
  17499.  
  17500.   PGlyphMetricsFloat = ^TGlyphMetricsFloat;
  17501.   {$EXTERNALSYM _GLYPHMETRICSFLOAT}
  17502.   _GLYPHMETRICSFLOAT = packed record
  17503.     gmfBlackBoxX: Single;
  17504.     gmfBlackBoxY: Single;
  17505.     gmfptGlyphOrigin: TPointFloat;
  17506.     gmfCellIncX: Single;
  17507.     gmfCellIncY: Single;
  17508.   end;
  17509.   TGlyphMetricsFloat = _GLYPHMETRICSFLOAT;
  17510.   {$EXTERNALSYM GLYPHMETRICSFLOAT}
  17511.   GLYPHMETRICSFLOAT = _GLYPHMETRICSFLOAT;
  17512.  
  17513. const
  17514.   {$EXTERNALSYM WGL_FONT_LINES}
  17515.   WGL_FONT_LINES = 0;
  17516.   {$EXTERNALSYM WGL_FONT_POLYGONS}
  17517.   WGL_FONT_POLYGONS = 1;
  17518.  
  17519. {$EXTERNALSYM wglUseFontOutlinesA}
  17520. function wglUseFontOutlinesA(p1: HDC; p2, p3, p4: DWORD;
  17521.   p5, p6: Single; p7: Integer; p8: PGlyphMetricsFloat): BOOL; stdcall;
  17522. {$EXTERNALSYM wglUseFontOutlinesW}
  17523. function wglUseFontOutlinesW(p1: HDC; p2, p3, p4: DWORD;
  17524.   p5, p6: Single; p7: Integer; p8: PGlyphMetricsFloat): BOOL; stdcall;
  17525. {$EXTERNALSYM wglUseFontOutlines}
  17526. function wglUseFontOutlines(p1: HDC; p2, p3, p4: DWORD;
  17527.   p5, p6: Single; p7: Integer; p8: PGlyphMetricsFloat): BOOL; stdcall;
  17528.  
  17529. { Layer plane descriptor }
  17530. type
  17531.   PLayerPlaneDescriptor = ^TLayerPlaneDescriptor;
  17532.   {$EXTERNALSYM tagLAYERPLANEDESCRIPTOR}
  17533.   tagLAYERPLANEDESCRIPTOR = packed record   { lpd }
  17534.     nSize: Word;
  17535.     nVersion: Word;
  17536.     dwFlags: DWORD;
  17537.     iPixelType: Byte;
  17538.     cColorBits: Byte;
  17539.     cRedBits: Byte;
  17540.     cRedShift: Byte;
  17541.     cGreenBits: Byte;
  17542.     cGreenShift: Byte;
  17543.     cBlueBits: Byte;
  17544.     cBlueShift: Byte;
  17545.     cAlphaBits: Byte;
  17546.     cAlphaShift: Byte;
  17547.     cAccumBits: Byte;
  17548.     cAccumRedBits: Byte;
  17549.     cAccumGreenBits: Byte;
  17550.     cAccumBlueBits: Byte;
  17551.     cAccumAlphaBits: Byte;
  17552.     cDepthBits: Byte;
  17553.     cStencilBits: Byte;
  17554.     cAuxBuffers: Byte;
  17555.     iLayerPlane: Byte;
  17556.     bReserved: Byte;
  17557.     crTransparent: COLORREF;
  17558.   end;
  17559.   TLayerPlaneDescriptor = tagLAYERPLANEDESCRIPTOR;
  17560.   {$EXTERNALSYM LAYERPLANEDESCRIPTOR}
  17561.   LAYERPLANEDESCRIPTOR = tagLAYERPLANEDESCRIPTOR;
  17562.  
  17563.  
  17564. { TLayerPlaneDescriptor flags }
  17565. const
  17566.   {$EXTERNALSYM LPD_DOUBLEBUFFER}
  17567.   LPD_DOUBLEBUFFER = $00000001;
  17568.   {$EXTERNALSYM LPD_STEREO}
  17569.   LPD_STEREO = $00000002;
  17570.   {$EXTERNALSYM LPD_SUPPORT_GDI}
  17571.   LPD_SUPPORT_GDI = $00000010;
  17572.   {$EXTERNALSYM LPD_SUPPORT_OPENGL}
  17573.   LPD_SUPPORT_OPENGL = $00000020;
  17574.   {$EXTERNALSYM LPD_SHARE_DEPTH}
  17575.   LPD_SHARE_DEPTH = $00000040;
  17576.   {$EXTERNALSYM LPD_SHARE_STENCIL}
  17577.   LPD_SHARE_STENCIL = $00000080;
  17578.   {$EXTERNALSYM LPD_SHARE_ACCUM}
  17579.   LPD_SHARE_ACCUM = $00000100;
  17580.   {$EXTERNALSYM LPD_SWAP_EXCHANGE}
  17581.   LPD_SWAP_EXCHANGE = $00000200;
  17582.   {$EXTERNALSYM LPD_SWAP_COPY}
  17583.   LPD_SWAP_COPY = $00000400;
  17584.   {$EXTERNALSYM LPD_TRANSPARENT}
  17585.   LPD_TRANSPARENT = $00001000;
  17586.  
  17587.   {$EXTERNALSYM LPD_TYPE_RGBA}
  17588.   LPD_TYPE_RGBA = 0;
  17589.   {$EXTERNALSYM LPD_TYPE_COLORINDEX}
  17590.   LPD_TYPE_COLORINDEX = 1;
  17591.  
  17592. { wglSwapLayerBuffers flags }
  17593.   {$EXTERNALSYM WGL_SWAP_MAIN_PLANE}
  17594.   WGL_SWAP_MAIN_PLANE = $00000001;
  17595.   {$EXTERNALSYM WGL_SWAP_OVERLAY1}
  17596.   WGL_SWAP_OVERLAY1 = $00000002;
  17597.   {$EXTERNALSYM WGL_SWAP_OVERLAY2}
  17598.   WGL_SWAP_OVERLAY2 = $00000004;
  17599.   {$EXTERNALSYM WGL_SWAP_OVERLAY3}
  17600.   WGL_SWAP_OVERLAY3 = $00000008;
  17601.   {$EXTERNALSYM WGL_SWAP_OVERLAY4}
  17602.   WGL_SWAP_OVERLAY4 = $00000010;
  17603.   {$EXTERNALSYM WGL_SWAP_OVERLAY5}
  17604.   WGL_SWAP_OVERLAY5 = $00000020;
  17605.   {$EXTERNALSYM WGL_SWAP_OVERLAY6}
  17606.   WGL_SWAP_OVERLAY6 = $00000040;
  17607.   {$EXTERNALSYM WGL_SWAP_OVERLAY7}
  17608.   WGL_SWAP_OVERLAY7 = $00000080;
  17609.   {$EXTERNALSYM WGL_SWAP_OVERLAY8}
  17610.   WGL_SWAP_OVERLAY8 = $00000100;
  17611.   {$EXTERNALSYM WGL_SWAP_OVERLAY9}
  17612.   WGL_SWAP_OVERLAY9 = $00000200;
  17613.   {$EXTERNALSYM WGL_SWAP_OVERLAY10}
  17614.   WGL_SWAP_OVERLAY10 = $00000400;
  17615.   {$EXTERNALSYM WGL_SWAP_OVERLAY11}
  17616.   WGL_SWAP_OVERLAY11 = $00000800;
  17617.   {$EXTERNALSYM WGL_SWAP_OVERLAY12}
  17618.   WGL_SWAP_OVERLAY12 = $00001000;
  17619.   {$EXTERNALSYM WGL_SWAP_OVERLAY13}
  17620.   WGL_SWAP_OVERLAY13 = $00002000;
  17621.   {$EXTERNALSYM WGL_SWAP_OVERLAY14}
  17622.   WGL_SWAP_OVERLAY14 = $00004000;
  17623.   {$EXTERNALSYM WGL_SWAP_OVERLAY15}
  17624.   WGL_SWAP_OVERLAY15 = $00008000;
  17625.   {$EXTERNALSYM WGL_SWAP_UNDERLAY1}
  17626.   WGL_SWAP_UNDERLAY1 = $00010000;
  17627.   {$EXTERNALSYM WGL_SWAP_UNDERLAY2}
  17628.   WGL_SWAP_UNDERLAY2 = $00020000;
  17629.   {$EXTERNALSYM WGL_SWAP_UNDERLAY3}
  17630.   WGL_SWAP_UNDERLAY3 = $00040000;
  17631.   {$EXTERNALSYM WGL_SWAP_UNDERLAY4}
  17632.   WGL_SWAP_UNDERLAY4 = $00080000;
  17633.   {$EXTERNALSYM WGL_SWAP_UNDERLAY5}
  17634.   WGL_SWAP_UNDERLAY5 = $00100000;
  17635.   {$EXTERNALSYM WGL_SWAP_UNDERLAY6}
  17636.   WGL_SWAP_UNDERLAY6 = $00200000;
  17637.   {$EXTERNALSYM WGL_SWAP_UNDERLAY7}
  17638.   WGL_SWAP_UNDERLAY7 = $00400000;
  17639.   {$EXTERNALSYM WGL_SWAP_UNDERLAY8}
  17640.   WGL_SWAP_UNDERLAY8 = $00800000;
  17641.   {$EXTERNALSYM WGL_SWAP_UNDERLAY9}
  17642.   WGL_SWAP_UNDERLAY9 = $01000000;
  17643.   {$EXTERNALSYM WGL_SWAP_UNDERLAY10}
  17644.   WGL_SWAP_UNDERLAY10 = $02000000;
  17645.   {$EXTERNALSYM WGL_SWAP_UNDERLAY11}
  17646.   WGL_SWAP_UNDERLAY11 = $04000000;
  17647.   {$EXTERNALSYM WGL_SWAP_UNDERLAY12}
  17648.   WGL_SWAP_UNDERLAY12 = $08000000;
  17649.   {$EXTERNALSYM WGL_SWAP_UNDERLAY13}
  17650.   WGL_SWAP_UNDERLAY13 = $10000000;
  17651.   {$EXTERNALSYM WGL_SWAP_UNDERLAY14}
  17652.   WGL_SWAP_UNDERLAY14 = $20000000;
  17653.   {$EXTERNALSYM WGL_SWAP_UNDERLAY15}
  17654.   WGL_SWAP_UNDERLAY15 = $40000000;
  17655.  
  17656. {$EXTERNALSYM wglDescribeLayerPlane}
  17657. function wglDescribeLayerPlane(p1: HDC; p2, p3: Integer; p4: Cardinal;
  17658.   var p5: TLayerPlaneDescriptor): BOOL; stdcall;
  17659. {$EXTERNALSYM wglSetLayerPaletteEntries}
  17660. function wglSetLayerPaletteEntries(p1: HDC; p2, p3, p4: Integer;
  17661.   var pcr): Integer; stdcall;
  17662. {$EXTERNALSYM wglGetLayerPaletteEntries}
  17663. function wglGetLayerPaletteEntries(p1: HDC; p2, p3, p4: Integer;
  17664.   var pcr): Integer; stdcall;
  17665. {$EXTERNALSYM wglRealizeLayerPalette}
  17666. function wglRealizeLayerPalette(p1: HDC; p2: Integer; p3: BOOL): BOOL; stdcall;
  17667. {$EXTERNALSYM wglSwapLayerBuffers}
  17668. function wglSwapLayerBuffers(p1: HDC; p2: Cardinal): BOOL; stdcall;
  17669.  
  17670. type
  17671.   PWGLSwap = ^TWGLSwap;
  17672.   {$EXTERNALSYM _WGLSWAP}
  17673.   _WGLSWAP = packed record
  17674.     hdc: HDC;
  17675.     uiFlags: UINT;
  17676.   end;
  17677.   TWGLSwap = _WGLSWAP;
  17678.   {$EXTERNALSYM WGLSWAP}
  17679.   WGLSWAP = _WGLSWAP;
  17680.  
  17681. const
  17682.   {$EXTERNALSYM WGL_SWAPMULTIPLE_MAX}
  17683.   WGL_SWAPMULTIPLE_MAX = 16;
  17684.  
  17685. {$EXTERNALSYM wglSwapMultipleBuffers}
  17686. function wglSwapMultipleBuffers(p1: UINT; const p2: PWGLSwap): DWORD; stdcall;
  17687.  
  17688. { Translated from WINUSER.H }
  17689.  
  17690. type
  17691.   {$EXTERNALSYM HDWP}
  17692.   HDWP = THandle;
  17693.   PMENUTEMPLATE = Pointer;
  17694.   {$EXTERNALSYM PMENUTEMPLATE}
  17695.   {$EXTERNALSYM va_list}
  17696.   va_list = PChar;
  17697.  
  17698.  
  17699.  
  17700.  
  17701.  
  17702.  
  17703.  
  17704.  
  17705.  
  17706.   TFNWndProc = TFarProc;
  17707.   TFNDlgProc = TFarProc;
  17708.   TFNTimerProc = TFarProc;
  17709.   TFNGrayStringProc = TFarProc;
  17710.   TFNWndEnumProc = TFarProc;
  17711.   TFNSendAsyncProc = TFarProc;
  17712.   TFNDrawStateProc = TFarProc;
  17713.  
  17714.   TFNHookProc = function (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;
  17715.  
  17716. type
  17717.  
  17718.  
  17719.  
  17720.  
  17721.  
  17722.  
  17723.   TFNPropEnumProc = TFarProc;
  17724.   TFNPropEnumProcEx = TFarProc;
  17725.   TFNEditWordBreakProc = TFarProc;
  17726.   TFNNameEnumProc = TFarProc;
  17727.   TFNWinStaEnumProc = TFNNameEnumProc;
  17728.   TFNDeskTopEnumProc = TFNNameEnumProc;
  17729.  
  17730.   MakeIntResourceA = PAnsiChar;
  17731.   MakeIntResourceW = PWideChar;
  17732.   MakeIntResource = MakeIntResourceA;
  17733.  
  17734. const
  17735.   { Predefined Resource Types }
  17736.   {$EXTERNALSYM RT_CURSOR}
  17737.   RT_CURSOR       = MakeIntResource(1);
  17738.   {$EXTERNALSYM RT_BITMAP}
  17739.   RT_BITMAP       = MakeIntResource(2);
  17740.   {$EXTERNALSYM RT_ICON}
  17741.   RT_ICON         = MakeIntResource(3);
  17742.   {$EXTERNALSYM RT_MENU}
  17743.   RT_MENU         = MakeIntResource(4);
  17744.   {$EXTERNALSYM RT_DIALOG}
  17745.   RT_DIALOG       = MakeIntResource(5);
  17746.   {$EXTERNALSYM RT_STRING}
  17747.   RT_STRING       = MakeIntResource(6);
  17748.   {$EXTERNALSYM RT_FONTDIR}
  17749.   RT_FONTDIR      = MakeIntResource(7);
  17750.   {$EXTERNALSYM RT_FONT}
  17751.   RT_FONT         = MakeIntResource(8);
  17752.   {$EXTERNALSYM RT_ACCELERATOR}
  17753.   RT_ACCELERATOR  = MakeIntResource(9);
  17754.   {$EXTERNALSYM RT_RCDATA}
  17755.   RT_RCDATA       = MakeIntResource(10);
  17756.   {$EXTERNALSYM RT_MESSAGETABLE}
  17757.   RT_MESSAGETABLE = MakeIntResource(11);
  17758.  
  17759.   {$EXTERNALSYM DIFFERENCE}
  17760.   DIFFERENCE = 11;
  17761.  
  17762.   {$EXTERNALSYM RT_GROUP_CURSOR}
  17763.   RT_GROUP_CURSOR = MakeIntResource(DWORD(RT_CURSOR + DIFFERENCE));
  17764.   {$EXTERNALSYM RT_GROUP_ICON}
  17765.   RT_GROUP_ICON   = MakeIntResource(DWORD(RT_ICON + DIFFERENCE));
  17766.   {$EXTERNALSYM RT_VERSION}
  17767.   RT_VERSION      = MakeIntResource(16);
  17768.   {$EXTERNALSYM RT_DLGINCLUDE}
  17769.   RT_DLGINCLUDE   = MakeIntResource(17);
  17770.   {$EXTERNALSYM RT_PLUGPLAY}
  17771.   RT_PLUGPLAY     = MakeIntResource(19);
  17772.   {$EXTERNALSYM RT_VXD}
  17773.   RT_VXD          = MakeIntResource(20);
  17774.   {$EXTERNALSYM RT_ANICURSOR}
  17775.   RT_ANICURSOR    = MakeIntResource(21);
  17776.   {$EXTERNALSYM RT_ANIICON}
  17777.   RT_ANIICON      = MakeIntResource(22);
  17778.  
  17779. {$EXTERNALSYM wvsprintfA}
  17780. function wvsprintfA(Output: PAnsiChar; Format: PAnsiChar; arglist: va_list): Integer; stdcall;
  17781. {$EXTERNALSYM wvsprintfW}
  17782. function wvsprintfW(Output: PWideChar; Format: PWideChar; arglist: va_list): Integer; stdcall;
  17783. {$EXTERNALSYM wvsprintf}
  17784. function wvsprintf(Output: PChar; Format: PChar; arglist: va_list): Integer; stdcall;
  17785. {$EXTERNALSYM wsprintfA}
  17786. function wsprintfA(Output: PAnsiChar; Format: PAnsiChar): Integer; stdcall;
  17787. {$EXTERNALSYM wsprintfW}
  17788. function wsprintfW(Output: PWideChar; Format: PWideChar): Integer; stdcall;
  17789. {$EXTERNALSYM wsprintf}
  17790. function wsprintf(Output: PChar; Format: PChar): Integer; stdcall;
  17791.  
  17792. const
  17793.   { Scroll Bar Constants }
  17794.   {$EXTERNALSYM SB_HORZ}
  17795.   SB_HORZ = 0;
  17796.   {$EXTERNALSYM SB_VERT}
  17797.   SB_VERT = 1;
  17798.   {$EXTERNALSYM SB_CTL}
  17799.   SB_CTL = 2;
  17800.   {$EXTERNALSYM SB_BOTH}
  17801.   SB_BOTH = 3;
  17802.  
  17803.   { Scroll Bar Commands }
  17804.   {$EXTERNALSYM SB_LINEUP}
  17805.   SB_LINEUP = 0;
  17806.   {$EXTERNALSYM SB_LINELEFT}
  17807.   SB_LINELEFT = 0;
  17808.   {$EXTERNALSYM SB_LINEDOWN}
  17809.   SB_LINEDOWN = 1;
  17810.   {$EXTERNALSYM SB_LINERIGHT}
  17811.   SB_LINERIGHT = 1;
  17812.   {$EXTERNALSYM SB_PAGEUP}
  17813.   SB_PAGEUP = 2;
  17814.   {$EXTERNALSYM SB_PAGELEFT}
  17815.   SB_PAGELEFT = 2;
  17816.   {$EXTERNALSYM SB_PAGEDOWN}
  17817.   SB_PAGEDOWN = 3;
  17818.   {$EXTERNALSYM SB_PAGERIGHT}
  17819.   SB_PAGERIGHT = 3;
  17820.   {$EXTERNALSYM SB_THUMBPOSITION}
  17821.   SB_THUMBPOSITION = 4;
  17822.   {$EXTERNALSYM SB_THUMBTRACK}
  17823.   SB_THUMBTRACK = 5;
  17824.   {$EXTERNALSYM SB_TOP}
  17825.   SB_TOP = 6;
  17826.   {$EXTERNALSYM SB_LEFT}
  17827.   SB_LEFT = 6;
  17828.   {$EXTERNALSYM SB_BOTTOM}
  17829.   SB_BOTTOM = 7;
  17830.   {$EXTERNALSYM SB_RIGHT}
  17831.   SB_RIGHT = 7;
  17832.   {$EXTERNALSYM SB_ENDSCROLL}
  17833.   SB_ENDSCROLL = 8;
  17834.  
  17835.   { ShowWindow() Commands }
  17836.   {$EXTERNALSYM SW_HIDE}
  17837.   SW_HIDE = 0;
  17838.   {$EXTERNALSYM SW_SHOWNORMAL}
  17839.   SW_SHOWNORMAL = 1;
  17840.   {$EXTERNALSYM SW_NORMAL}
  17841.   SW_NORMAL = 1;
  17842.   {$EXTERNALSYM SW_SHOWMINIMIZED}
  17843.   SW_SHOWMINIMIZED = 2;
  17844.   {$EXTERNALSYM SW_SHOWMAXIMIZED}
  17845.   SW_SHOWMAXIMIZED = 3;
  17846.   {$EXTERNALSYM SW_MAXIMIZE}
  17847.   SW_MAXIMIZE = 3;
  17848.   {$EXTERNALSYM SW_SHOWNOACTIVATE}
  17849.   SW_SHOWNOACTIVATE = 4;
  17850.   {$EXTERNALSYM SW_SHOW}
  17851.   SW_SHOW = 5;
  17852.   {$EXTERNALSYM SW_MINIMIZE}
  17853.   SW_MINIMIZE = 6;
  17854.   {$EXTERNALSYM SW_SHOWMINNOACTIVE}
  17855.   SW_SHOWMINNOACTIVE = 7;
  17856.   {$EXTERNALSYM SW_SHOWNA}
  17857.   SW_SHOWNA = 8;
  17858.   {$EXTERNALSYM SW_RESTORE}
  17859.   SW_RESTORE = 9;
  17860.   {$EXTERNALSYM SW_SHOWDEFAULT}
  17861.   SW_SHOWDEFAULT = 10;
  17862.   {$EXTERNALSYM SW_MAX}
  17863.   SW_MAX = 10;
  17864.  
  17865.   { Old ShowWindow() Commands }
  17866.   {$EXTERNALSYM HIDE_WINDOW}
  17867.   HIDE_WINDOW = 0;
  17868.   {$EXTERNALSYM SHOW_OPENWINDOW}
  17869.   SHOW_OPENWINDOW = 1;
  17870.   {$EXTERNALSYM SHOW_ICONWINDOW}
  17871.   SHOW_ICONWINDOW = 2;
  17872.   {$EXTERNALSYM SHOW_FULLSCREEN}
  17873.   SHOW_FULLSCREEN = 3;
  17874.   {$EXTERNALSYM SHOW_OPENNOACTIVATE}
  17875.   SHOW_OPENNOACTIVATE = 4;
  17876.  
  17877.   { Identifiers for the WM_SHOWWINDOW message }
  17878.   {$EXTERNALSYM SW_PARENTCLOSING}
  17879.   SW_PARENTCLOSING = 1;
  17880.   {$EXTERNALSYM SW_OTHERZOOM}
  17881.   SW_OTHERZOOM = 2;
  17882.   {$EXTERNALSYM SW_PARENTOPENING}
  17883.   SW_PARENTOPENING = 3;
  17884.   {$EXTERNALSYM SW_OTHERUNZOOM}
  17885.   SW_OTHERUNZOOM = 4;
  17886.  
  17887.   {$EXTERNALSYM AW_HOR_POSITIVE}
  17888.   AW_HOR_POSITIVE = $00000001;
  17889.   {$EXTERNALSYM AW_HOR_NEGATIVE}
  17890.   AW_HOR_NEGATIVE = $00000002;
  17891.   {$EXTERNALSYM AW_VER_POSITIVE}
  17892.   AW_VER_POSITIVE = $00000004;
  17893.   {$EXTERNALSYM AW_VER_NEGATIVE}
  17894.   AW_VER_NEGATIVE = $00000008;
  17895.   {$EXTERNALSYM AW_CENTER}
  17896.   AW_CENTER = $00000010;
  17897.   {$EXTERNALSYM AW_HIDE}
  17898.   AW_HIDE = $00010000;
  17899.   {$EXTERNALSYM AW_ACTIVATE}
  17900.   AW_ACTIVATE = $00020000;
  17901.   {$EXTERNALSYM AW_SLIDE}
  17902.   AW_SLIDE = $00040000;
  17903.   {$EXTERNALSYM AW_BLEND}
  17904.   AW_BLEND = $00080000;
  17905.  
  17906.   { WM_KEYUPDOWNCHAR HiWord(lParam) flags }
  17907.   {$EXTERNALSYM KF_EXTENDED}
  17908.   KF_EXTENDED = $100;
  17909.   {$EXTERNALSYM KF_DLGMODE}
  17910.   KF_DLGMODE = $800;
  17911.   {$EXTERNALSYM KF_MENUMODE}
  17912.   KF_MENUMODE = $1000;
  17913.   {$EXTERNALSYM KF_ALTDOWN}
  17914.   KF_ALTDOWN = $2000;
  17915.   {$EXTERNALSYM KF_REPEAT}
  17916.   KF_REPEAT = $4000;
  17917.   {$EXTERNALSYM KF_UP}
  17918.   KF_UP = $8000;
  17919.  
  17920.   { Virtual Keys, Standard Set }
  17921.   {$EXTERNALSYM VK_LBUTTON}
  17922.   VK_LBUTTON = 1;
  17923.   {$EXTERNALSYM VK_RBUTTON}
  17924.   VK_RBUTTON = 2;
  17925.   {$EXTERNALSYM VK_CANCEL}
  17926.   VK_CANCEL = 3;
  17927.   {$EXTERNALSYM VK_MBUTTON}
  17928.   VK_MBUTTON = 4;  { NOT contiguous with L & RBUTTON }
  17929.   {$EXTERNALSYM VK_BACK}
  17930.   VK_BACK = 8;
  17931.   {$EXTERNALSYM VK_TAB}
  17932.   VK_TAB = 9;
  17933.   {$EXTERNALSYM VK_CLEAR}
  17934.   VK_CLEAR = 12;
  17935.   {$EXTERNALSYM VK_RETURN}
  17936.   VK_RETURN = 13;
  17937.   {$EXTERNALSYM VK_SHIFT}
  17938.   VK_SHIFT = $10;
  17939.   {$EXTERNALSYM VK_CONTROL}
  17940.   VK_CONTROL = 17;
  17941.   {$EXTERNALSYM VK_MENU}
  17942.   VK_MENU = 18;
  17943.   {$EXTERNALSYM VK_PAUSE}
  17944.   VK_PAUSE = 19;
  17945.   {$EXTERNALSYM VK_CAPITAL}
  17946.   VK_CAPITAL = 20;
  17947.   {$EXTERNALSYM VK_KANA }
  17948.   VK_KANA = 21;
  17949.   {$EXTERNALSYM VK_HANGUL }
  17950.   VK_HANGUL = 21;
  17951.   {$EXTERNALSYM VK_JUNJA }
  17952.   VK_JUNJA = 23;
  17953.   {$EXTERNALSYM VK_FINAL }
  17954.   VK_FINAL = 24;
  17955.   {$EXTERNALSYM VK_HANJA }
  17956.   VK_HANJA = 25;
  17957.   {$EXTERNALSYM VK_KANJI }
  17958.   VK_KANJI = 25;
  17959.   {$EXTERNALSYM VK_CONVERT }
  17960.   VK_CONVERT = 28;
  17961.   {$EXTERNALSYM VK_NONCONVERT }
  17962.   VK_NONCONVERT = 29;
  17963.   {$EXTERNALSYM VK_ACCEPT }
  17964.   VK_ACCEPT = 30;
  17965.   {$EXTERNALSYM VK_MODECHANGE }
  17966.   VK_MODECHANGE = 31;
  17967.   {$EXTERNALSYM VK_ESCAPE}
  17968.   VK_ESCAPE = 27;
  17969.   {$EXTERNALSYM VK_SPACE}
  17970.   VK_SPACE = $20;
  17971.   {$EXTERNALSYM VK_PRIOR}
  17972.   VK_PRIOR = 33;
  17973.   {$EXTERNALSYM VK_NEXT}
  17974.   VK_NEXT = 34;
  17975.   {$EXTERNALSYM VK_END}
  17976.   VK_END = 35;
  17977.   {$EXTERNALSYM VK_HOME}
  17978.   VK_HOME = 36;
  17979.   {$EXTERNALSYM VK_LEFT}
  17980.   VK_LEFT = 37;
  17981.   {$EXTERNALSYM VK_UP}
  17982.   VK_UP = 38;
  17983.   {$EXTERNALSYM VK_RIGHT}
  17984.   VK_RIGHT = 39;
  17985.   {$EXTERNALSYM VK_DOWN}
  17986.   VK_DOWN = 40;
  17987.   {$EXTERNALSYM VK_SELECT}
  17988.   VK_SELECT = 41;
  17989.   {$EXTERNALSYM VK_PRINT}
  17990.   VK_PRINT = 42;
  17991.   {$EXTERNALSYM VK_EXECUTE}
  17992.   VK_EXECUTE = 43;
  17993.   {$EXTERNALSYM VK_SNAPSHOT}
  17994.   VK_SNAPSHOT = 44;
  17995.   {$EXTERNALSYM VK_INSERT}
  17996.   VK_INSERT = 45;
  17997.   {$EXTERNALSYM VK_DELETE}
  17998.   VK_DELETE = 46;
  17999.   {$EXTERNALSYM VK_HELP}
  18000.   VK_HELP = 47;
  18001. { VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
  18002. { VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
  18003.   {$EXTERNALSYM VK_LWIN}
  18004.   VK_LWIN = 91;
  18005.   {$EXTERNALSYM VK_RWIN}
  18006.   VK_RWIN = 92;
  18007.   {$EXTERNALSYM VK_APPS}
  18008.   VK_APPS = 93;
  18009.   {$EXTERNALSYM VK_NUMPAD0}
  18010.   VK_NUMPAD0 = 96;
  18011.   {$EXTERNALSYM VK_NUMPAD1}
  18012.   VK_NUMPAD1 = 97;
  18013.   {$EXTERNALSYM VK_NUMPAD2}
  18014.   VK_NUMPAD2 = 98;
  18015.   {$EXTERNALSYM VK_NUMPAD3}
  18016.   VK_NUMPAD3 = 99;
  18017.   {$EXTERNALSYM VK_NUMPAD4}
  18018.   VK_NUMPAD4 = 100;
  18019.   {$EXTERNALSYM VK_NUMPAD5}
  18020.   VK_NUMPAD5 = 101;
  18021.   {$EXTERNALSYM VK_NUMPAD6}
  18022.   VK_NUMPAD6 = 102;
  18023.   {$EXTERNALSYM VK_NUMPAD7}
  18024.   VK_NUMPAD7 = 103;
  18025.   {$EXTERNALSYM VK_NUMPAD8}
  18026.   VK_NUMPAD8 = 104;
  18027.   {$EXTERNALSYM VK_NUMPAD9}
  18028.   VK_NUMPAD9 = 105;
  18029.   {$EXTERNALSYM VK_MULTIPLY}
  18030.   VK_MULTIPLY = 106;
  18031.   {$EXTERNALSYM VK_ADD}
  18032.   VK_ADD = 107;
  18033.   {$EXTERNALSYM VK_SEPARATOR}
  18034.   VK_SEPARATOR = 108;
  18035.   {$EXTERNALSYM VK_SUBTRACT}
  18036.   VK_SUBTRACT = 109;
  18037.   {$EXTERNALSYM VK_DECIMAL}
  18038.   VK_DECIMAL = 110;
  18039.   {$EXTERNALSYM VK_DIVIDE}
  18040.   VK_DIVIDE = 111;
  18041.   {$EXTERNALSYM VK_F1}
  18042.   VK_F1 = 112;
  18043.   {$EXTERNALSYM VK_F2}
  18044.   VK_F2 = 113;
  18045.   {$EXTERNALSYM VK_F3}
  18046.   VK_F3 = 114;
  18047.   {$EXTERNALSYM VK_F4}
  18048.   VK_F4 = 115;
  18049.   {$EXTERNALSYM VK_F5}
  18050.   VK_F5 = 116;
  18051.   {$EXTERNALSYM VK_F6}
  18052.   VK_F6 = 117;
  18053.   {$EXTERNALSYM VK_F7}
  18054.   VK_F7 = 118;
  18055.   {$EXTERNALSYM VK_F8}
  18056.   VK_F8 = 119;
  18057.   {$EXTERNALSYM VK_F9}
  18058.   VK_F9 = 120;
  18059.   {$EXTERNALSYM VK_F10}
  18060.   VK_F10 = 121;
  18061.   {$EXTERNALSYM VK_F11}
  18062.   VK_F11 = 122;
  18063.   {$EXTERNALSYM VK_F12}
  18064.   VK_F12 = 123;
  18065.   {$EXTERNALSYM VK_F13}
  18066.   VK_F13 = 124;
  18067.   {$EXTERNALSYM VK_F14}
  18068.   VK_F14 = 125;
  18069.   {$EXTERNALSYM VK_F15}
  18070.   VK_F15 = 126;
  18071.   {$EXTERNALSYM VK_F16}
  18072.   VK_F16 = 127;
  18073.   {$EXTERNALSYM VK_F17}
  18074.   VK_F17 = 128;
  18075.   {$EXTERNALSYM VK_F18}
  18076.   VK_F18 = 129;
  18077.   {$EXTERNALSYM VK_F19}
  18078.   VK_F19 = 130;
  18079.   {$EXTERNALSYM VK_F20}
  18080.   VK_F20 = 131;
  18081.   {$EXTERNALSYM VK_F21}
  18082.   VK_F21 = 132;
  18083.   {$EXTERNALSYM VK_F22}
  18084.   VK_F22 = 133;
  18085.   {$EXTERNALSYM VK_F23}
  18086.   VK_F23 = 134;
  18087.   {$EXTERNALSYM VK_F24}
  18088.   VK_F24 = 135;
  18089.   {$EXTERNALSYM VK_NUMLOCK}
  18090.   VK_NUMLOCK = 144;
  18091.   {$EXTERNALSYM VK_SCROLL}
  18092.   VK_SCROLL = 145;
  18093. { VK_L & VK_R - left and right Alt, Ctrl and Shift virtual keys.
  18094.   Used only as parameters to GetAsyncKeyState() and GetKeyState().
  18095.   No other API or message will distinguish left and right keys in this way. }
  18096.   {$EXTERNALSYM VK_LSHIFT}
  18097.   VK_LSHIFT = 160;
  18098.   {$EXTERNALSYM VK_RSHIFT}
  18099.   VK_RSHIFT = 161;
  18100.   {$EXTERNALSYM VK_LCONTROL}
  18101.   VK_LCONTROL = 162;
  18102.   {$EXTERNALSYM VK_RCONTROL}
  18103.   VK_RCONTROL = 163;
  18104.   {$EXTERNALSYM VK_LMENU}
  18105.   VK_LMENU = 164;
  18106.   {$EXTERNALSYM VK_RMENU}
  18107.   VK_RMENU = 165;
  18108.   {$EXTERNALSYM VK_PROCESSKEY}
  18109.   VK_PROCESSKEY = 229;
  18110.   {$EXTERNALSYM VK_ATTN}
  18111.   VK_ATTN = 246;
  18112.   {$EXTERNALSYM VK_CRSEL}
  18113.   VK_CRSEL = 247;
  18114.   {$EXTERNALSYM VK_EXSEL}
  18115.   VK_EXSEL = 248;
  18116.   {$EXTERNALSYM VK_EREOF}
  18117.   VK_EREOF = 249;
  18118.   {$EXTERNALSYM VK_PLAY}
  18119.   VK_PLAY = 250;
  18120.   {$EXTERNALSYM VK_ZOOM}
  18121.   VK_ZOOM = 251;
  18122.   {$EXTERNALSYM VK_NONAME}
  18123.   VK_NONAME = 252;
  18124.   {$EXTERNALSYM VK_PA1}
  18125.   VK_PA1 = 253;
  18126.   {$EXTERNALSYM VK_OEM_CLEAR}
  18127.   VK_OEM_CLEAR = 254;
  18128.  
  18129.  
  18130.   { SetWindowsHook() codes }
  18131.   {$EXTERNALSYM WH_MIN}
  18132.   WH_MIN = -1;
  18133.   {$EXTERNALSYM WH_MSGFILTER}
  18134.   WH_MSGFILTER = -1;
  18135.   {$EXTERNALSYM WH_JOURNALRECORD}
  18136.   WH_JOURNALRECORD = 0;
  18137.   {$EXTERNALSYM WH_JOURNALPLAYBACK}
  18138.   WH_JOURNALPLAYBACK = 1;
  18139.   {$EXTERNALSYM WH_KEYBOARD}
  18140.   WH_KEYBOARD = 2;
  18141.   {$EXTERNALSYM WH_GETMESSAGE}
  18142.   WH_GETMESSAGE = 3;
  18143.   {$EXTERNALSYM WH_CALLWNDPROC}
  18144.   WH_CALLWNDPROC = 4;
  18145.   {$EXTERNALSYM WH_CBT}
  18146.   WH_CBT = 5;
  18147.   {$EXTERNALSYM WH_SYSMSGFILTER}
  18148.   WH_SYSMSGFILTER = 6;
  18149.   {$EXTERNALSYM WH_MOUSE}
  18150.   WH_MOUSE = 7;
  18151.   {$EXTERNALSYM WH_HARDWARE}
  18152.   WH_HARDWARE = 8;
  18153.   {$EXTERNALSYM WH_DEBUG}
  18154.   WH_DEBUG = 9;
  18155.   {$EXTERNALSYM WH_SHELL}
  18156.   WH_SHELL = 10;
  18157.   {$EXTERNALSYM WH_FOREGROUNDIDLE}
  18158.   WH_FOREGROUNDIDLE = 11;
  18159.   {$EXTERNALSYM WH_CALLWNDPROCRET}
  18160.   WH_CALLWNDPROCRET = 12;
  18161.   {$EXTERNALSYM WH_MAX}
  18162.   WH_MAX = 12;
  18163.   {$EXTERNALSYM WH_MINHOOK}
  18164.   WH_MINHOOK = WH_MIN;
  18165.   {$EXTERNALSYM WH_MAXHOOK}
  18166.   WH_MAXHOOK = WH_MAX;
  18167.  
  18168.   { Hook Codes }
  18169.   {$EXTERNALSYM HC_ACTION}
  18170.   HC_ACTION = 0;
  18171.   {$EXTERNALSYM HC_GETNEXT}
  18172.   HC_GETNEXT = 1;
  18173.   {$EXTERNALSYM HC_SKIP}
  18174.   HC_SKIP = 2;
  18175.   {$EXTERNALSYM HC_NOREMOVE}
  18176.   HC_NOREMOVE = 3;
  18177.   {$EXTERNALSYM HC_NOREM}
  18178.   HC_NOREM = HC_NOREMOVE;
  18179.   {$EXTERNALSYM HC_SYSMODALON}
  18180.   HC_SYSMODALON = 4;
  18181.   {$EXTERNALSYM HC_SYSMODALOFF}
  18182.   HC_SYSMODALOFF = 5;
  18183.  
  18184.   { CBT Hook Codes }
  18185.   {$EXTERNALSYM HCBT_MOVESIZE}
  18186.   HCBT_MOVESIZE = 0;
  18187.   {$EXTERNALSYM HCBT_MINMAX}
  18188.   HCBT_MINMAX = 1;
  18189.   {$EXTERNALSYM HCBT_QS}
  18190.   HCBT_QS = 2;
  18191.   {$EXTERNALSYM HCBT_CREATEWND}
  18192.   HCBT_CREATEWND = 3;
  18193.   {$EXTERNALSYM HCBT_DESTROYWND}
  18194.   HCBT_DESTROYWND = 4;
  18195.   {$EXTERNALSYM HCBT_ACTIVATE}
  18196.   HCBT_ACTIVATE = 5;
  18197.   {$EXTERNALSYM HCBT_CLICKSKIPPED}
  18198.   HCBT_CLICKSKIPPED = 6;
  18199.   {$EXTERNALSYM HCBT_KEYSKIPPED}
  18200.   HCBT_KEYSKIPPED = 7;
  18201.   {$EXTERNALSYM HCBT_SYSCOMMAND}
  18202.   HCBT_SYSCOMMAND = 8;
  18203.   {$EXTERNALSYM HCBT_SETFOCUS}
  18204.   HCBT_SETFOCUS = 9;
  18205.  
  18206.  
  18207. type
  18208.   PCreateStructA = ^TCreateStructA;
  18209.   PCreateStructW = ^TCreateStructW;
  18210.   PCreateStruct = PCreateStructA;
  18211.   {$EXTERNALSYM tagCREATESTRUCTA}
  18212.   tagCREATESTRUCTA = packed record
  18213.     lpCreateParams: Pointer;
  18214.     hInstance: HINST;
  18215.     hMenu: HMENU;
  18216.     hwndParent: HWND;
  18217.     cy: Integer;
  18218.     cx: Integer;
  18219.     y: Integer;
  18220.     x: Integer;
  18221.     style: Longint;
  18222.     lpszName: PAnsiChar;
  18223.     lpszClass: PAnsiChar;
  18224.     dwExStyle: DWORD;
  18225.   end;
  18226.   {$EXTERNALSYM tagCREATESTRUCTW}
  18227.   tagCREATESTRUCTW = packed record
  18228.     lpCreateParams: Pointer;
  18229.     hInstance: HINST;
  18230.     hMenu: HMENU;
  18231.     hwndParent: HWND;
  18232.     cy: Integer;
  18233.     cx: Integer;
  18234.     y: Integer;
  18235.     x: Integer;
  18236.     style: Longint;
  18237.     lpszName: PWideChar;
  18238.     lpszClass: PWideChar;
  18239.     dwExStyle: DWORD;
  18240.   end;
  18241.   {$EXTERNALSYM tagCREATESTRUCT}
  18242.   tagCREATESTRUCT = tagCREATESTRUCTA;
  18243.   TCreateStructA = tagCREATESTRUCTA;
  18244.   TCreateStructW = tagCREATESTRUCTW;
  18245.   TCreateStruct = TCreateStructA;
  18246.   {$EXTERNALSYM CREATESTRUCTA}
  18247.   CREATESTRUCTA = tagCREATESTRUCTA;
  18248.   {$EXTERNALSYM CREATESTRUCTW}
  18249.   CREATESTRUCTW = tagCREATESTRUCTW;
  18250.   {$EXTERNALSYM CREATESTRUCT}
  18251.   CREATESTRUCT = CREATESTRUCTA;
  18252.  
  18253.   { HCBT_CREATEWND parameters pointed to by lParam }
  18254.   PCBTCreateWnd = ^TCBTCreateWnd;
  18255.   {$EXTERNALSYM tagCBT_CREATEWNDA}
  18256.   tagCBT_CREATEWNDA = packed record
  18257.     lpcs: PCreateStruct;
  18258.     hwndInsertAfter: HWND;
  18259.   end;
  18260.   TCBTCreateWnd = tagCBT_CREATEWNDA;
  18261.   {$EXTERNALSYM CBT_CREATEWND}
  18262.   CBT_CREATEWND = tagCBT_CREATEWNDA;
  18263.  
  18264.   { HCBT_ACTIVATE structure pointed to by lParam }
  18265.   PCBTActivateStruct = ^TCBTActivateStruct;
  18266.   {$EXTERNALSYM tagCBTACTIVATESTRUCT}
  18267.   tagCBTACTIVATESTRUCT = packed record
  18268.     fMouse: BOOL;
  18269.     hWndActive: HWND;
  18270.   end;
  18271.   TCBTActivateStruct = tagCBTACTIVATESTRUCT;
  18272.   {$EXTERNALSYM CBTACTIVATESTRUCT}
  18273.   CBTACTIVATESTRUCT = tagCBTACTIVATESTRUCT;
  18274.  
  18275. const
  18276.   { WH_MSGFILTER Filter Proc Codes }
  18277.   {$EXTERNALSYM MSGF_DIALOGBOX}
  18278.   MSGF_DIALOGBOX = 0;
  18279.   {$EXTERNALSYM MSGF_MESSAGEBOX}
  18280.   MSGF_MESSAGEBOX = 1;
  18281.   {$EXTERNALSYM MSGF_MENU}
  18282.   MSGF_MENU = 2;
  18283.   {$EXTERNALSYM MSGF_MOVE}
  18284.   MSGF_MOVE = 3;
  18285.   {$EXTERNALSYM MSGF_SIZE}
  18286.   MSGF_SIZE = 4;
  18287.   {$EXTERNALSYM MSGF_SCROLLBAR}
  18288.   MSGF_SCROLLBAR = 5;
  18289.   {$EXTERNALSYM MSGF_NEXTWINDOW}
  18290.   MSGF_NEXTWINDOW = 6;
  18291.   {$EXTERNALSYM MSGF_MAINLOOP}
  18292.   MSGF_MAINLOOP = 8;
  18293.   {$EXTERNALSYM MSGF_MAX}
  18294.   MSGF_MAX = 8;
  18295.   {$EXTERNALSYM MSGF_USER}
  18296.   MSGF_USER = $1000;
  18297.  
  18298.   { Shell support }
  18299.   {$EXTERNALSYM HSHELL_WINDOWCREATED}
  18300.   HSHELL_WINDOWCREATED = 1;
  18301.   {$EXTERNALSYM HSHELL_WINDOWDESTROYED}
  18302.   HSHELL_WINDOWDESTROYED = 2;
  18303.   {$EXTERNALSYM HSHELL_ACTIVATESHELLWINDOW}
  18304.   HSHELL_ACTIVATESHELLWINDOW = 3;
  18305.   {$EXTERNALSYM HSHELL_WINDOWACTIVATED}
  18306.   HSHELL_WINDOWACTIVATED = 4;
  18307.   {$EXTERNALSYM HSHELL_GETMINRECT}
  18308.   HSHELL_GETMINRECT = 5;
  18309.   {$EXTERNALSYM HSHELL_REDRAW}
  18310.   HSHELL_REDRAW = 6;
  18311.   {$EXTERNALSYM HSHELL_TASKMAN}
  18312.   HSHELL_TASKMAN = 7;
  18313.   {$EXTERNALSYM HSHELL_LANGUAGE}
  18314.   HSHELL_LANGUAGE = 8;
  18315.   {$EXTERNALSYM HSHELL_ACCESSIBILITYSTATE}
  18316.   HSHELL_ACCESSIBILITYSTATE = 11;
  18317.   {$EXTERNALSYM ACCESS_STICKYKEYS}
  18318.   ACCESS_STICKYKEYS = $0001;
  18319.   {$EXTERNALSYM ACCESS_FILTERKEYS}
  18320.   ACCESS_FILTERKEYS = $0002;
  18321.   {$EXTERNALSYM ACCESS_MOUSEKEYS}
  18322.   ACCESS_MOUSEKEYS = $0003;
  18323.  
  18324.  
  18325. type
  18326.   { Message Structure used in Journaling }
  18327.   PEventMsg = ^TEventMsg;
  18328.   {$EXTERNALSYM tagEVENTMSG}
  18329.   tagEVENTMSG = packed record
  18330.     message: UINT;
  18331.     paramL: UINT;
  18332.     paramH: UINT;
  18333.     time: DWORD;
  18334.     hwnd: HWND;
  18335.   end;
  18336.   TEventMsg = tagEVENTMSG;
  18337.   {$EXTERNALSYM EVENTMSG}
  18338.   EVENTMSG = tagEVENTMSG;
  18339.  
  18340.   { Message structure used by WH_CALLWNDPROC }
  18341.   PCWPStruct = ^TCWPStruct;
  18342.   {$EXTERNALSYM tagCWPSTRUCT}
  18343.   tagCWPSTRUCT = packed record
  18344.     lParam: LPARAM;
  18345.     wParam: WPARAM;
  18346.     message: UINT;
  18347.     hwnd: HWND;
  18348.   end;
  18349.   TCWPStruct = tagCWPSTRUCT;
  18350.   {$EXTERNALSYM CWPSTRUCT}
  18351.   CWPSTRUCT = tagCWPSTRUCT;
  18352.  
  18353.   { Message structure used by WH_CALLWNDPROCRET }
  18354.   PCWPRetStruct = ^TCWPRetStruct;
  18355.   {$EXTERNALSYM tagCWPRETSTRUCT}
  18356.   tagCWPRETSTRUCT = packed record
  18357.     lResult: LRESULT;
  18358.     lParam: LPARAM;
  18359.     wParam: WPARAM;
  18360.     message: UINT;
  18361.     hwnd: HWND;
  18362.   end;
  18363.   TCWPRetStruct = tagCWPRETSTRUCT;
  18364.   {$EXTERNALSYM CWPRETSTRUCT}
  18365.   CWPRETSTRUCT = tagCWPRETSTRUCT;
  18366.  
  18367.   { Structure used by WH_DEBUG }
  18368.   PDebugHookInfo = ^TDebugHookInfo;
  18369.   {$EXTERNALSYM tagDEBUGHOOKINFO}
  18370.   tagDEBUGHOOKINFO = packed record
  18371.     idThread: DWORD;
  18372.     idThreadInstaller: DWORD;
  18373.     lParam: LPARAM;
  18374.     wParam: WPARAM;
  18375.     code: Integer;
  18376.   end;
  18377.   TDebugHookInfo = tagDEBUGHOOKINFO;
  18378.   {$EXTERNALSYM DEBUGHOOKINFO}
  18379.   DEBUGHOOKINFO = tagDEBUGHOOKINFO;
  18380.  
  18381.   { Structure used by WH_MOUSE }
  18382.   PMouseHookStruct = ^TMouseHookStruct;
  18383.   {$EXTERNALSYM tagMOUSEHOOKSTRUCT}
  18384.   tagMOUSEHOOKSTRUCT = packed record
  18385.     pt: TPoint;
  18386.     hwnd: HWND;
  18387.     wHitTestCode: UINT;
  18388.     dwExtraInfo: DWORD;
  18389.   end;
  18390.   TMouseHookStruct = tagMOUSEHOOKSTRUCT;
  18391.   {$EXTERNALSYM MOUSEHOOKSTRUCT}
  18392.   MOUSEHOOKSTRUCT = tagMOUSEHOOKSTRUCT;
  18393.  
  18394.   { Structure used by WH_HARDWARE }
  18395.   PHardwareHookStruct = ^THardwareHookStruct;
  18396.   {$EXTERNALSYM tagHARDWAREHOOKSTRUCT}
  18397.   tagHARDWAREHOOKSTRUCT = packed record
  18398.     hwnd: HWND;
  18399.     message: UINT;
  18400.     wParam: WPARAM;
  18401.     lParam: LPARAM;
  18402.   end;
  18403.   THardwareHookStruct = tagHARDWAREHOOKSTRUCT;
  18404.   {$EXTERNALSYM HARDWAREHOOKSTRUCT}
  18405.   HARDWAREHOOKSTRUCT = tagHARDWAREHOOKSTRUCT;
  18406.  
  18407. const
  18408.   { Keyboard Layout API }
  18409.   {$EXTERNALSYM HKL_PREV}
  18410.   HKL_PREV = 0;
  18411.   {$EXTERNALSYM HKL_NEXT}
  18412.   HKL_NEXT = 1;
  18413.  
  18414.   {$EXTERNALSYM KLF_ACTIVATE}
  18415.   KLF_ACTIVATE = 1;
  18416.   {$EXTERNALSYM KLF_SUBSTITUTE_OK}
  18417.   KLF_SUBSTITUTE_OK = 2;
  18418.   {$EXTERNALSYM KLF_UNLOADPREVIOUS}
  18419.   KLF_UNLOADPREVIOUS = 4;
  18420.   {$EXTERNALSYM KLF_REORDER}
  18421.   KLF_REORDER = 8;
  18422.   {$EXTERNALSYM KLF_REPLACELANG}
  18423.   KLF_REPLACELANG = $10;
  18424.   {$EXTERNALSYM KLF_NOTELLSHELL}
  18425.   KLF_NOTELLSHELL = 128;
  18426.  
  18427.   { Size of KeyboardLayoutName (number of characters), including nul terminator }
  18428.   {$EXTERNALSYM KL_NAMELENGTH}
  18429.   KL_NAMELENGTH = 9;
  18430.  
  18431.  
  18432. {$EXTERNALSYM LoadKeyboardLayoutA}
  18433. function LoadKeyboardLayoutA(pwszKLID: PAnsiChar; Flags: UINT): HKL; stdcall;
  18434. {$EXTERNALSYM LoadKeyboardLayoutW}
  18435. function LoadKeyboardLayoutW(pwszKLID: PWideChar; Flags: UINT): HKL; stdcall;
  18436. {$EXTERNALSYM LoadKeyboardLayout}
  18437. function LoadKeyboardLayout(pwszKLID: PChar; Flags: UINT): HKL; stdcall;
  18438. {$EXTERNALSYM ActivateKeyboardLayout}
  18439. function ActivateKeyboardLayout(hkl: HKL; Flags: UINT): HKL; stdcall;
  18440. {$EXTERNALSYM UnloadKeyboardLayout}
  18441. function UnloadKeyboardLayout(hkl: HKL): BOOL; stdcall;
  18442. {$EXTERNALSYM ToUnicodeEx}
  18443. function ToUnicodeEx(wVirtKey, wScanCode: UINT; lpKeyState: PByte;
  18444.   pwszBuff: PWideChar; cchBuff: Integer; wFlags: UINT; dwhkl: HKL): Integer; stdcall;
  18445. {$EXTERNALSYM GetKeyboardLayoutNameA}
  18446. function GetKeyboardLayoutNameA(pwszKLID: PAnsiChar): BOOL; stdcall;
  18447. {$EXTERNALSYM GetKeyboardLayoutNameW}
  18448. function GetKeyboardLayoutNameW(pwszKLID: PWideChar): BOOL; stdcall;
  18449. {$EXTERNALSYM GetKeyboardLayoutName}
  18450. function GetKeyboardLayoutName(pwszKLID: PChar): BOOL; stdcall;
  18451. {$EXTERNALSYM GetKeyboardLayoutList}
  18452. function GetKeyboardLayoutList(nBuff: Integer; var List): UINT; stdcall;
  18453. {$EXTERNALSYM GetKeyboardLayout}
  18454. function GetKeyboardLayout(dwLayout: DWORD): HKL; stdcall;
  18455.  
  18456. type
  18457.   PMouseMovePoint = ^TMouseMovePoint;
  18458.   {$EXTERNALSYM tagMOUSEMOVEPOINT}
  18459.   tagMOUSEMOVEPOINT = packed record
  18460.     x: Integer;
  18461.     y: Integer;
  18462.     time: DWORD;
  18463.     dwExtraInfo: DWORD;
  18464.   end;
  18465.   TMouseMovePoint = tagMOUSEMOVEPOINT;
  18466.   {$EXTERNALSYM MOUSEMOVEPOINT}
  18467.   MOUSEMOVEPOINT = tagMOUSEMOVEPOINT;
  18468.  
  18469. const
  18470.   { Values for resolution parameter of GetMouseMovePoints }
  18471.   {$EXTERNALSYM GMMP_USE_DISPLAY_POINTS}
  18472.   GMMP_USE_DISPLAY_POINTS = 1;
  18473.   {$EXTERNALSYM GMMP_USE_DRIVER_POINTS}
  18474.   GMMP_USE_DRIVER_POINTS = 2;
  18475.  
  18476. {$EXTERNALSYM GetMouseMovePoints}
  18477. function GetMouseMovePoints(cbSize: UINT; var lppt, lpptBuf: TMouseMovePoint; nBufPoints: Integer;
  18478.   resolution: DWORD): Integer; stdcall;
  18479.  
  18480.  
  18481. const
  18482.   { Desktop-specific access flags }
  18483.   {$EXTERNALSYM DESKTOP_READOBJECTS}
  18484.   DESKTOP_READOBJECTS = 1;
  18485.   {$EXTERNALSYM DESKTOP_CREATEWINDOW}
  18486.   DESKTOP_CREATEWINDOW = 2;
  18487.   {$EXTERNALSYM DESKTOP_CREATEMENU}
  18488.   DESKTOP_CREATEMENU = 4;
  18489.   {$EXTERNALSYM DESKTOP_HOOKCONTROL}
  18490.   DESKTOP_HOOKCONTROL = 8;
  18491.   {$EXTERNALSYM DESKTOP_JOURNALRECORD}
  18492.   DESKTOP_JOURNALRECORD = $10;
  18493.   {$EXTERNALSYM DESKTOP_JOURNALPLAYBACK}
  18494.   DESKTOP_JOURNALPLAYBACK = $20;
  18495.   {$EXTERNALSYM DESKTOP_ENUMERATE}
  18496.   DESKTOP_ENUMERATE = $40;
  18497.   {$EXTERNALSYM DESKTOP_WRITEOBJECTS}
  18498.   DESKTOP_WRITEOBJECTS = 128;
  18499.   {$EXTERNALSYM DESKTOP_SWITCHDESKTOP}
  18500.   DESKTOP_SWITCHDESKTOP = $100;
  18501.  
  18502.   { Desktop-specific control flags }
  18503.   {$EXTERNALSYM DF_ALLOWOTHERACCOUNTHOOK}
  18504.   DF_ALLOWOTHERACCOUNTHOOK = 1;
  18505.  
  18506.  
  18507. {$EXTERNALSYM CreateDesktopA}
  18508. function CreateDesktopA(lpszDesktop, lpszDevice: PAnsiChar;
  18509.   pDevmode: PDeviceModeA; dwFlags: DWORD; dwDesiredAccess:
  18510.   DWORD; lpsa: PSecurityAttributes): HDESK; stdcall;
  18511. {$EXTERNALSYM CreateDesktopW}
  18512. function CreateDesktopW(lpszDesktop, lpszDevice: PWideChar;
  18513.   pDevmode: PDeviceModeW; dwFlags: DWORD; dwDesiredAccess:
  18514.   DWORD; lpsa: PSecurityAttributes): HDESK; stdcall;
  18515. {$EXTERNALSYM CreateDesktop}
  18516. function CreateDesktop(lpszDesktop, lpszDevice: PChar;
  18517.   pDevmode: PDeviceMode; dwFlags: DWORD; dwDesiredAccess:
  18518.   DWORD; lpsa: PSecurityAttributes): HDESK; stdcall;
  18519. {$EXTERNALSYM OpenDesktopA}
  18520. function OpenDesktopA(lpszDesktop: PAnsiChar; dwFlags: DWORD; fInherit: BOOL;
  18521.   dwDesiredAccess: DWORD): HDESK; stdcall;
  18522. {$EXTERNALSYM OpenDesktopW}
  18523. function OpenDesktopW(lpszDesktop: PWideChar; dwFlags: DWORD; fInherit: BOOL;
  18524.   dwDesiredAccess: DWORD): HDESK; stdcall;
  18525. {$EXTERNALSYM OpenDesktop}
  18526. function OpenDesktop(lpszDesktop: PChar; dwFlags: DWORD; fInherit: BOOL;
  18527.   dwDesiredAccess: DWORD): HDESK; stdcall;
  18528. {$EXTERNALSYM EnumDesktopsA}
  18529. function EnumDesktopsA(hwinsta: HWINSTA; lpEnumFunc: TFNDeskTopEnumProc; lParam: LPARAM): BOOL; stdcall;
  18530. {$EXTERNALSYM EnumDesktopsW}
  18531. function EnumDesktopsW(hwinsta: HWINSTA; lpEnumFunc: TFNDeskTopEnumProc; lParam: LPARAM): BOOL; stdcall;
  18532. {$EXTERNALSYM EnumDesktops}
  18533. function EnumDesktops(hwinsta: HWINSTA; lpEnumFunc: TFNDeskTopEnumProc; lParam: LPARAM): BOOL; stdcall;
  18534. {$EXTERNALSYM OpenInputDesktop}
  18535. function OpenInputDesktop(dwFlags: DWORD; fInherit: BOOL; dwDesiredAccess: DWORD): HDESK; stdcall;
  18536. {$EXTERNALSYM EnumDesktopWindows}
  18537. function EnumDesktopWindows(hDesktop: HDESK; lpfn: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall;
  18538. {$EXTERNALSYM SwitchDesktop}
  18539. function SwitchDesktop(hDesktop: HDESK): BOOL; stdcall;
  18540. {$EXTERNALSYM SetThreadDesktop}
  18541. function SetThreadDesktop(hDesktop: HDESK): BOOL; stdcall;
  18542. {$EXTERNALSYM CloseDesktop}
  18543. function CloseDesktop(hDesktop: HDESK): BOOL; stdcall;
  18544. {$EXTERNALSYM GetThreadDesktop}
  18545. function GetThreadDesktop(dwThreadId: DWORD): HDESK; stdcall;
  18546.  
  18547. const
  18548.   { Windowstation-specific access flags }
  18549.   {$EXTERNALSYM WINSTA_ENUMDESKTOPS}
  18550.   WINSTA_ENUMDESKTOPS = 1;
  18551.   {$EXTERNALSYM WINSTA_READATTRIBUTES}
  18552.   WINSTA_READATTRIBUTES = 2;
  18553.   {$EXTERNALSYM WINSTA_ACCESSCLIPBOARD}
  18554.   WINSTA_ACCESSCLIPBOARD = 4;
  18555.   {$EXTERNALSYM WINSTA_CREATEDESKTOP}
  18556.   WINSTA_CREATEDESKTOP = 8;
  18557.   {$EXTERNALSYM WINSTA_WRITEATTRIBUTES}
  18558.   WINSTA_WRITEATTRIBUTES = $10;
  18559.   {$EXTERNALSYM WINSTA_ACCESSGLOBALATOMS}
  18560.   WINSTA_ACCESSGLOBALATOMS = $20;
  18561.   {$EXTERNALSYM WINSTA_EXITWINDOWS}
  18562.   WINSTA_EXITWINDOWS = $40;
  18563.   {$EXTERNALSYM WINSTA_ENUMERATE}
  18564.   WINSTA_ENUMERATE = $100;
  18565.   {$EXTERNALSYM WINSTA_READSCREEN}
  18566.   WINSTA_READSCREEN = $200;
  18567.  
  18568.   { Windowstation-specific attribute flags }
  18569.   {$EXTERNALSYM WSF_VISIBLE}
  18570.   WSF_VISIBLE = 1;
  18571.  
  18572. {$EXTERNALSYM CreateWindowStationA}
  18573. function CreateWindowStationA(lpwinsta: PAnsiChar; dwReserved, dwDesiredAccess: DWORD;
  18574.   lpsa: PSecurityAttributes): HWINSTA; stdcall;
  18575. {$EXTERNALSYM CreateWindowStationW}
  18576. function CreateWindowStationW(lpwinsta: PWideChar; dwReserved, dwDesiredAccess: DWORD;
  18577.   lpsa: PSecurityAttributes): HWINSTA; stdcall;
  18578. {$EXTERNALSYM CreateWindowStation}
  18579. function CreateWindowStation(lpwinsta: PChar; dwReserved, dwDesiredAccess: DWORD;
  18580.   lpsa: PSecurityAttributes): HWINSTA; stdcall;
  18581. {$EXTERNALSYM OpenWindowStationA}
  18582. function OpenWindowStationA(lpszWinSta: PAnsiChar; fInherit: BOOL;
  18583.   dwDesiredAccess: DWORD): HWINSTA; stdcall;
  18584. {$EXTERNALSYM OpenWindowStationW}
  18585. function OpenWindowStationW(lpszWinSta: PWideChar; fInherit: BOOL;
  18586.   dwDesiredAccess: DWORD): HWINSTA; stdcall;
  18587. {$EXTERNALSYM OpenWindowStation}
  18588. function OpenWindowStation(lpszWinSta: PChar; fInherit: BOOL;
  18589.   dwDesiredAccess: DWORD): HWINSTA; stdcall;
  18590. {$EXTERNALSYM EnumWindowStationsA}
  18591. function EnumWindowStationsA(lpEnumFunc: TFNWinStaEnumProc; lParam: LPARAM): BOOL; stdcall;
  18592. {$EXTERNALSYM EnumWindowStationsW}
  18593. function EnumWindowStationsW(lpEnumFunc: TFNWinStaEnumProc; lParam: LPARAM): BOOL; stdcall;
  18594. {$EXTERNALSYM EnumWindowStations}
  18595. function EnumWindowStations(lpEnumFunc: TFNWinStaEnumProc; lParam: LPARAM): BOOL; stdcall;
  18596. {$EXTERNALSYM CloseWindowStation}
  18597. function CloseWindowStation(hWinSta: HWINSTA): BOOL; stdcall;
  18598. {$EXTERNALSYM SetProcessWindowStation}
  18599. function SetProcessWindowStation(hWinSta: HWINSTA): BOOL; stdcall;
  18600. {$EXTERNALSYM GetProcessWindowStation}
  18601. function GetProcessWindowStation: HWINSTA; stdcall;
  18602. {$EXTERNALSYM SetUserObjectSecurity}
  18603. function SetUserObjectSecurity(hObj: THandle; var pSIRequested: DWORD;
  18604.   pSID: PSecurityDescriptor): BOOL; stdcall;
  18605. {$EXTERNALSYM GetUserObjectSecurity}
  18606. function GetUserObjectSecurity(hObj: THandle; var pSIRequested: DWORD;
  18607.   pSID: PSecurityDescriptor; nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  18608.  
  18609. const
  18610.   {$EXTERNALSYM UOI_FLAGS}
  18611.   UOI_FLAGS = 1;
  18612.   {$EXTERNALSYM UOI_NAME}
  18613.   UOI_NAME = 2;
  18614.   {$EXTERNALSYM UOI_TYPE}
  18615.   UOI_TYPE = 3;
  18616.   {$EXTERNALSYM UOI_USER_SID}
  18617.   UOI_USER_SID = 4;
  18618.  
  18619. type
  18620.   PUserObjectFlags = ^TUserObjectFlags;
  18621.   {$EXTERNALSYM tagUSEROBJECTFLAGS}
  18622.   tagUSEROBJECTFLAGS = packed record
  18623.     fInherit: BOOL;
  18624.     fReserved: BOOL;
  18625.     dwFlags: DWORD;
  18626.   end;
  18627.   TUserObjectFlags = tagUSEROBJECTFLAGS;
  18628.   {$EXTERNALSYM USEROBJECTFLAGS}
  18629.   USEROBJECTFLAGS = tagUSEROBJECTFLAGS;
  18630.  
  18631. {$EXTERNALSYM GetUserObjectInformationA}
  18632. function GetUserObjectInformationA(hObj: THandle; nIndex: Integer; pvInfo: Pointer;
  18633.   nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  18634. {$EXTERNALSYM GetUserObjectInformationW}
  18635. function GetUserObjectInformationW(hObj: THandle; nIndex: Integer; pvInfo: Pointer;
  18636.   nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  18637. {$EXTERNALSYM GetUserObjectInformation}
  18638. function GetUserObjectInformation(hObj: THandle; nIndex: Integer; pvInfo: Pointer;
  18639.   nLength: DWORD; var lpnLengthNeeded: DWORD): BOOL; stdcall;
  18640. {$EXTERNALSYM SetUserObjectInformationA}
  18641. function SetUserObjectInformationA(hObj: THandle; nIndex: Integer;
  18642.   pvInfo: Pointer; nLength: DWORD): BOOL; stdcall;
  18643. {$EXTERNALSYM SetUserObjectInformationW}
  18644. function SetUserObjectInformationW(hObj: THandle; nIndex: Integer;
  18645.   pvInfo: Pointer; nLength: DWORD): BOOL; stdcall;
  18646. {$EXTERNALSYM SetUserObjectInformation}
  18647. function SetUserObjectInformation(hObj: THandle; nIndex: Integer;
  18648.   pvInfo: Pointer; nLength: DWORD): BOOL; stdcall;
  18649.  
  18650. type
  18651.   PWndClassExA = ^TWndClassExA;
  18652.   PWndClassExW = ^TWndClassExW;
  18653.   PWndClassEx = PWndClassExA;
  18654.   {$EXTERNALSYM tagWNDCLASSEXA}
  18655.   tagWNDCLASSEXA = packed record
  18656.     cbSize: UINT;
  18657.     style: UINT;
  18658.     lpfnWndProc: TFNWndProc;
  18659.     cbClsExtra: Integer;
  18660.     cbWndExtra: Integer;
  18661.     hInstance: HINST;
  18662.     hIcon: HICON;
  18663.     hCursor: HCURSOR;
  18664.     hbrBackground: HBRUSH;
  18665.     lpszMenuName: PAnsiChar;
  18666.     lpszClassName: PAnsiChar;
  18667.     hIconSm: HICON;
  18668.   end;
  18669.   {$EXTERNALSYM tagWNDCLASSEXW}
  18670.   tagWNDCLASSEXW = packed record
  18671.     cbSize: UINT;
  18672.     style: UINT;
  18673.     lpfnWndProc: TFNWndProc;
  18674.     cbClsExtra: Integer;
  18675.     cbWndExtra: Integer;
  18676.     hInstance: HINST;
  18677.     hIcon: HICON;
  18678.     hCursor: HCURSOR;
  18679.     hbrBackground: HBRUSH;
  18680.     lpszMenuName: PWideChar;
  18681.     lpszClassName: PWideChar;
  18682.     hIconSm: HICON;
  18683.   end;
  18684.   {$EXTERNALSYM tagWNDCLASSEX}
  18685.   tagWNDCLASSEX = tagWNDCLASSEXA;
  18686.   TWndClassExA = tagWNDCLASSEXA;
  18687.   TWndClassExW = tagWNDCLASSEXW;
  18688.   TWndClassEx = TWndClassExA;
  18689.   {$EXTERNALSYM WNDCLASSEXA}
  18690.   WNDCLASSEXA = tagWNDCLASSEXA;
  18691.   {$EXTERNALSYM WNDCLASSEXW}
  18692.   WNDCLASSEXW = tagWNDCLASSEXW;
  18693.   {$EXTERNALSYM WNDCLASSEX}
  18694.   WNDCLASSEX = WNDCLASSEXA;
  18695.  
  18696.   PWndClassA = ^TWndClassA;
  18697.   PWndClassW = ^TWndClassW;
  18698.   PWndClass = PWndClassA;
  18699.   {$EXTERNALSYM tagWNDCLASSA}
  18700.   tagWNDCLASSA = packed record
  18701.     style: UINT;
  18702.     lpfnWndProc: TFNWndProc;
  18703.     cbClsExtra: Integer;
  18704.     cbWndExtra: Integer;
  18705.     hInstance: HINST;
  18706.     hIcon: HICON;
  18707.     hCursor: HCURSOR;
  18708.     hbrBackground: HBRUSH;
  18709.     lpszMenuName: PAnsiChar;
  18710.     lpszClassName: PAnsiChar;
  18711.   end;
  18712.   {$EXTERNALSYM tagWNDCLASSW}
  18713.   tagWNDCLASSW = packed record
  18714.     style: UINT;
  18715.     lpfnWndProc: TFNWndProc;
  18716.     cbClsExtra: Integer;
  18717.     cbWndExtra: Integer;
  18718.     hInstance: HINST;
  18719.     hIcon: HICON;
  18720.     hCursor: HCURSOR;
  18721.     hbrBackground: HBRUSH;
  18722.     lpszMenuName: PWideChar;
  18723.     lpszClassName: PWideChar;
  18724.   end;
  18725.   {$EXTERNALSYM tagWNDCLASS}
  18726.   tagWNDCLASS = tagWNDCLASSA;
  18727.   TWndClassA = tagWNDCLASSA;
  18728.   TWndClassW = tagWNDCLASSW;
  18729.   TWndClass = TWndClassA;
  18730.   {$EXTERNALSYM WNDCLASSA}
  18731.   WNDCLASSA = tagWNDCLASSA;
  18732.   {$EXTERNALSYM WNDCLASSW}
  18733.   WNDCLASSW = tagWNDCLASSW;
  18734.   {$EXTERNALSYM WNDCLASS}
  18735.   WNDCLASS = WNDCLASSA;
  18736.  
  18737. { Message structure }
  18738.   PMsg = ^TMsg;
  18739.   {$EXTERNALSYM tagMSG}
  18740.   tagMSG = packed record
  18741.     hwnd: HWND;
  18742.     message: UINT;
  18743.     wParam: WPARAM;
  18744.     lParam: LPARAM;
  18745.     time: DWORD;
  18746.     pt: TPoint;
  18747.   end;
  18748.   TMsg = tagMSG;
  18749.   {$EXTERNALSYM MSG}
  18750.   MSG = tagMSG;
  18751.  
  18752. function SmallPointToPoint(const P: TSmallPoint): TPoint;
  18753. function PointToSmallPoint(const P: TPoint): TSmallPoint;
  18754. {$EXTERNALSYM MakeWParam}
  18755. function MakeWParam(l, h: Word): WPARAM;
  18756. {$EXTERNALSYM MakeLParam}
  18757. function MakeLParam(l, h: Word): LPARAM;
  18758. {$EXTERNALSYM MakeLResult}
  18759. function MakeLResult(l, h: Word): LRESULT;
  18760.  
  18761.  
  18762. const
  18763. { Window field offsets for GetWindowLong() }
  18764.  
  18765.   {$EXTERNALSYM GWL_WNDPROC}
  18766.   GWL_WNDPROC = -4;
  18767.   {$EXTERNALSYM GWL_HINSTANCE}
  18768.   GWL_HINSTANCE = -6;
  18769.   {$EXTERNALSYM GWL_HWNDPARENT}
  18770.   GWL_HWNDPARENT = -8;
  18771.   {$EXTERNALSYM GWL_STYLE}
  18772.   GWL_STYLE = -16;
  18773.   {$EXTERNALSYM GWL_EXSTYLE}
  18774.   GWL_EXSTYLE = -20;
  18775.   {$EXTERNALSYM GWL_USERDATA}
  18776.   GWL_USERDATA = -21;
  18777.   {$EXTERNALSYM GWL_ID}
  18778.   GWL_ID = -12;
  18779.  
  18780.   { Class field offsets for GetClassLong() }
  18781.   {$EXTERNALSYM GCL_MENUNAME}
  18782.   GCL_MENUNAME = -8;
  18783.   {$EXTERNALSYM GCL_HBRBACKGROUND}
  18784.   GCL_HBRBACKGROUND = -10;
  18785.   {$EXTERNALSYM GCL_HCURSOR}
  18786.   GCL_HCURSOR = -12;
  18787.   {$EXTERNALSYM GCL_HICON}
  18788.   GCL_HICON = -14;
  18789.   {$EXTERNALSYM GCL_HMODULE}
  18790.   GCL_HMODULE = -16;
  18791.   {$EXTERNALSYM GCL_CBWNDEXTRA}
  18792.   GCL_CBWNDEXTRA = -18;
  18793.   {$EXTERNALSYM GCL_CBCLSEXTRA}
  18794.   GCL_CBCLSEXTRA = -20;
  18795.   {$EXTERNALSYM GCL_WNDPROC}
  18796.   GCL_WNDPROC = -24;
  18797.   {$EXTERNALSYM GCL_STYLE}
  18798.   GCL_STYLE = -26;
  18799.   {$EXTERNALSYM GCW_ATOM}
  18800.   GCW_ATOM = -32;
  18801.   {$EXTERNALSYM GCL_HICONSM}
  18802.   GCL_HICONSM = -34;
  18803.  
  18804. const
  18805.   { WM_ACTIVATE state values }
  18806.   {$EXTERNALSYM WA_INACTIVE}
  18807.   WA_INACTIVE = 0;
  18808.   {$EXTERNALSYM WA_ACTIVE}
  18809.   WA_ACTIVE = 1;
  18810.   {$EXTERNALSYM WA_CLICKACTIVE}
  18811.   WA_CLICKACTIVE = 2;
  18812.  
  18813. type
  18814.   { Struct pointed to by WM_GETMINMAXINFO lParam }
  18815.   PMinMaxInfo = ^TMinMaxInfo;
  18816.   {$EXTERNALSYM tagMINMAXINFO}
  18817.   tagMINMAXINFO = packed record
  18818.     ptReserved: TPoint;
  18819.     ptMaxSize: TPoint;
  18820.     ptMaxPosition: TPoint;
  18821.     ptMinTrackSize: TPoint;
  18822.     ptMaxTrackSize: TPoint;
  18823.   end;
  18824.   TMinMaxInfo = tagMINMAXINFO;
  18825.   {$EXTERNALSYM MINMAXINFO}
  18826.   MINMAXINFO = tagMINMAXINFO;
  18827.  
  18828. const
  18829.   { wParam for WM_POWER window message and DRV_POWER driver notification }
  18830.   {$EXTERNALSYM PWR_OK}
  18831.   PWR_OK = 1;
  18832.   {$EXTERNALSYM PWR_FAIL}
  18833.   PWR_FAIL = -1;
  18834.   {$EXTERNALSYM PWR_SUSPENDREQUEST}
  18835.   PWR_SUSPENDREQUEST = 1;
  18836.   {$EXTERNALSYM PWR_SUSPENDRESUME}
  18837.   PWR_SUSPENDRESUME = 2;
  18838.   {$EXTERNALSYM PWR_CRITICALRESUME}
  18839.   PWR_CRITICALRESUME = 3;
  18840.  
  18841. type
  18842.   { lParam of WM_COPYDATA message points to... }
  18843.   PCopyDataStruct = ^TCopyDataStruct;
  18844.   {$EXTERNALSYM tagCOPYDATASTRUCT}
  18845.   tagCOPYDATASTRUCT = packed record
  18846.     dwData: DWORD;
  18847.     cbData: DWORD;
  18848.     lpData: Pointer;
  18849.   end;
  18850.   TCopyDataStruct = tagCOPYDATASTRUCT;
  18851.   {$EXTERNALSYM COPYDATASTRUCT}
  18852.   COPYDATASTRUCT = tagCOPYDATASTRUCT;
  18853.  
  18854. const
  18855.   {$EXTERNALSYM NFR_ANSI}
  18856.   NFR_ANSI = 1;
  18857.   {$EXTERNALSYM NFR_UNICODE}
  18858.   NFR_UNICODE = 2;
  18859.   {$EXTERNALSYM NF_QUERY}
  18860.   NF_QUERY = 3;
  18861.   {$EXTERNALSYM NF_REQUERY}
  18862.   NF_REQUERY = 4;
  18863.  
  18864.   {$EXTERNALSYM WHEEL_DELTA}
  18865.   WHEEL_DELTA = 120;            { Value for rolling one detent }
  18866.   {$EXTERNALSYM WHEEL_PAGESCROLL}
  18867.   WHEEL_PAGESCROLL = MAXDWORD;  { Scroll one page }
  18868.  
  18869.   {$EXTERNALSYM MENULOOP_WINDOW}
  18870.   MENULOOP_WINDOW = 0;
  18871.   {$EXTERNALSYM MENULOOP_POPUP}
  18872.   MENULOOP_POPUP = 1;
  18873.  
  18874. type
  18875.   PMDINextMenu = ^TMDINextMenu;
  18876.   {$EXTERNALSYM tagMDINEXTMENU}
  18877.   tagMDINEXTMENU = packed record
  18878.     hmenuIn: HMENU;
  18879.     hmenuNext: HMENU;
  18880.     hwndNext: HWND;
  18881.   end;
  18882.   TMDINextMenu = tagMDINEXTMENU;
  18883.   {$EXTERNALSYM MDINEXTMENU}
  18884.   MDINEXTMENU = tagMDINEXTMENU;
  18885.  
  18886. const
  18887.   { LOWORD(wParam) values in WM_*UISTATE* }
  18888.   {$EXTERNALSYM UIS_SET}
  18889.   UIS_SET = 1;
  18890.   {$EXTERNALSYM UIS_CLEAR}
  18891.   UIS_CLEAR = 2;
  18892.   {$EXTERNALSYM UIS_INITIALIZE}
  18893.   UIS_INITIALIZE = 3;
  18894.  
  18895.   { HIWORD(wParam) values in WM_*UISTATE* }
  18896.   {$EXTERNALSYM UISF_HIDEFOCUS}
  18897.   UISF_HIDEFOCUS = $1;
  18898.   {$EXTERNALSYM UISF_HIDEACCEL}
  18899.   UISF_HIDEACCEL = $2;
  18900.  
  18901.  
  18902. const
  18903.   { wParam for WM_NOTIFYWOW message  }
  18904.  
  18905.   { wParam for WM_SIZING message  }
  18906.   {$EXTERNALSYM WMSZ_LEFT}
  18907.   WMSZ_LEFT = 1;
  18908.   {$EXTERNALSYM WMSZ_RIGHT}
  18909.   WMSZ_RIGHT = 2;
  18910.   {$EXTERNALSYM WMSZ_TOP}
  18911.   WMSZ_TOP = 3;
  18912.   {$EXTERNALSYM WMSZ_TOPLEFT}
  18913.   WMSZ_TOPLEFT = 4;
  18914.   {$EXTERNALSYM WMSZ_TOPRIGHT}
  18915.   WMSZ_TOPRIGHT = 5;
  18916.   {$EXTERNALSYM WMSZ_BOTTOM}
  18917.   WMSZ_BOTTOM = 6;
  18918.   {$EXTERNALSYM WMSZ_BOTTOMLEFT}
  18919.   WMSZ_BOTTOMLEFT = 7;
  18920.   {$EXTERNALSYM WMSZ_BOTTOMRIGHT}
  18921.   WMSZ_BOTTOMRIGHT = 8;
  18922.  
  18923.   { WM_SYNCTASK Commands }
  18924.   {$EXTERNALSYM ST_BEGINSWP}
  18925.   ST_BEGINSWP = 0;
  18926.   {$EXTERNALSYM ST_ENDSWP}
  18927.   ST_ENDSWP = 1;
  18928.  
  18929.   { WM_NCHITTEST and MOUSEHOOKSTRUCT Mouse Position Codes }
  18930.   {$EXTERNALSYM HTERROR}
  18931.   HTERROR = -2;
  18932.   {$EXTERNALSYM HTTRANSPARENT}
  18933.   HTTRANSPARENT = -1;
  18934.   {$EXTERNALSYM HTNOWHERE}
  18935.   HTNOWHERE = 0;
  18936.   {$EXTERNALSYM HTCLIENT}
  18937.   HTCLIENT = 1;
  18938.   {$EXTERNALSYM HTCAPTION}
  18939.   HTCAPTION = 2;
  18940.   {$EXTERNALSYM HTSYSMENU}
  18941.   HTSYSMENU = 3;
  18942.   {$EXTERNALSYM HTGROWBOX}
  18943.   HTGROWBOX = 4;
  18944.   {$EXTERNALSYM HTSIZE}
  18945.   HTSIZE = HTGROWBOX;
  18946.   {$EXTERNALSYM HTMENU}
  18947.   HTMENU = 5;
  18948.   {$EXTERNALSYM HTHSCROLL}
  18949.   HTHSCROLL = 6;
  18950.   {$EXTERNALSYM HTVSCROLL}
  18951.   HTVSCROLL = 7;
  18952.   {$EXTERNALSYM HTMINBUTTON}
  18953.   HTMINBUTTON = 8;
  18954.   {$EXTERNALSYM HTMAXBUTTON}
  18955.   HTMAXBUTTON = 9;
  18956.   {$EXTERNALSYM HTLEFT}
  18957.   HTLEFT = 10;
  18958.   {$EXTERNALSYM HTRIGHT}
  18959.   HTRIGHT = 11;
  18960.   {$EXTERNALSYM HTTOP}
  18961.   HTTOP = 12;
  18962.   {$EXTERNALSYM HTTOPLEFT}
  18963.   HTTOPLEFT = 13;
  18964.   {$EXTERNALSYM HTTOPRIGHT}
  18965.   HTTOPRIGHT = 14;
  18966.   {$EXTERNALSYM HTBOTTOM}
  18967.   HTBOTTOM = 15;
  18968.   {$EXTERNALSYM HTBOTTOMLEFT}
  18969.   HTBOTTOMLEFT = $10;
  18970.   {$EXTERNALSYM HTBOTTOMRIGHT}
  18971.   HTBOTTOMRIGHT = 17;
  18972.   {$EXTERNALSYM HTBORDER}
  18973.   HTBORDER = 18;
  18974.   {$EXTERNALSYM HTREDUCE}
  18975.   HTREDUCE = HTMINBUTTON;
  18976.   {$EXTERNALSYM HTZOOM}
  18977.   HTZOOM = HTMAXBUTTON;
  18978.   {$EXTERNALSYM HTSIZEFIRST}
  18979.   HTSIZEFIRST = HTLEFT;
  18980.   {$EXTERNALSYM HTSIZELAST}
  18981.   HTSIZELAST = HTBOTTOMRIGHT;
  18982.   {$EXTERNALSYM HTOBJECT}
  18983.   HTOBJECT = 19;
  18984.   {$EXTERNALSYM HTCLOSE}
  18985.   HTCLOSE = 20;
  18986.   {$EXTERNALSYM HTHELP}
  18987.   HTHELP = 21;
  18988.  
  18989.   { SendMessageTimeout values }
  18990.   {$EXTERNALSYM SMTO_NORMAL}
  18991.   SMTO_NORMAL = 0;
  18992.   {$EXTERNALSYM SMTO_BLOCK}
  18993.   SMTO_BLOCK = 1;
  18994.   {$EXTERNALSYM SMTO_ABORTIFHUNG}
  18995.   SMTO_ABORTIFHUNG = 2;
  18996.   {$EXTERNALSYM SMTO_NOTIMEOUTIFNOTHUNG}
  18997.   SMTO_NOTIMEOUTIFNOTHUNG = 8;
  18998.  
  18999.   { WM_MOUSEACTIVATE Return Codes }
  19000.   {$EXTERNALSYM MA_ACTIVATE}
  19001.   MA_ACTIVATE = 1;
  19002.   {$EXTERNALSYM MA_ACTIVATEANDEAT}
  19003.   MA_ACTIVATEANDEAT = 2;
  19004.   {$EXTERNALSYM MA_NOACTIVATE}
  19005.   MA_NOACTIVATE = 3;
  19006.   {$EXTERNALSYM MA_NOACTIVATEANDEAT}
  19007.   MA_NOACTIVATEANDEAT = 4;
  19008.  
  19009.   { WM_SETICON / WM_GETICON Type Codes }
  19010.   {$EXTERNALSYM ICON_SMALL}
  19011.   ICON_SMALL = 0;
  19012.   {$EXTERNALSYM ICON_BIG}
  19013.   ICON_BIG = 1;
  19014.  
  19015. {$EXTERNALSYM RegisterWindowMessageA}
  19016. function RegisterWindowMessageA(lpString: PAnsiChar): UINT; stdcall;
  19017. {$EXTERNALSYM RegisterWindowMessageW}
  19018. function RegisterWindowMessageW(lpString: PWideChar): UINT; stdcall;
  19019. {$EXTERNALSYM RegisterWindowMessage}
  19020. function RegisterWindowMessage(lpString: PChar): UINT; stdcall;
  19021.  
  19022. const
  19023.   { WM_SIZE message wParam values }
  19024.   {$EXTERNALSYM SIZE_RESTORED}
  19025.   SIZE_RESTORED = 0;
  19026.   {$EXTERNALSYM SIZE_MINIMIZED}
  19027.   SIZE_MINIMIZED = 1;
  19028.   {$EXTERNALSYM SIZE_MAXIMIZED}
  19029.   SIZE_MAXIMIZED = 2;
  19030.   {$EXTERNALSYM SIZE_MAXSHOW}
  19031.   SIZE_MAXSHOW = 3;
  19032.   {$EXTERNALSYM SIZE_MAXHIDE}
  19033.   SIZE_MAXHIDE = 4;
  19034.  
  19035.   { Obsolete constant names }
  19036.   {$EXTERNALSYM SIZENORMAL}
  19037.   SIZENORMAL = SIZE_RESTORED;
  19038.   {$EXTERNALSYM SIZEICONIC}
  19039.   SIZEICONIC = SIZE_MINIMIZED;
  19040.   {$EXTERNALSYM SIZEFULLSCREEN}
  19041.   SIZEFULLSCREEN = SIZE_MAXIMIZED;
  19042.   {$EXTERNALSYM SIZEZOOMSHOW}
  19043.   SIZEZOOMSHOW = SIZE_MAXSHOW;
  19044.   {$EXTERNALSYM SIZEZOOMHIDE}
  19045.   SIZEZOOMHIDE = SIZE_MAXHIDE;
  19046.  
  19047.  
  19048. type
  19049.   { WM_WINDOWPOSCHANGINGCHANGED struct pointed to by lParam }
  19050.   PWindowPos = ^TWindowPos;
  19051.   {$EXTERNALSYM tagWINDOWPOS}
  19052.   tagWINDOWPOS = packed record
  19053.     hwnd: HWND;
  19054.     hwndInsertAfter: HWND;
  19055.     x: Integer;
  19056.     y: Integer;
  19057.     cx: Integer;
  19058.     cy: Integer;
  19059.     flags: UINT;
  19060.   end;
  19061.   TWindowPos = tagWINDOWPOS;
  19062.   {$EXTERNALSYM WINDOWPOS}
  19063.   WINDOWPOS = tagWINDOWPOS;
  19064.  
  19065.   { WM_NCCALCSIZE parameter structure }
  19066.   PNCCalcSizeParams = ^TNCCalcSizeParams;
  19067.   {$EXTERNALSYM tagNCCALCSIZE_PARAMS}
  19068.   tagNCCALCSIZE_PARAMS = packed record
  19069.     rgrc: array[0..2] of TRect;
  19070.     lppos: PWindowPos;
  19071.   end;
  19072.   TNCCalcSizeParams = tagNCCALCSIZE_PARAMS;
  19073.   {$EXTERNALSYM NCCALCSIZE_PARAMS}
  19074.   NCCALCSIZE_PARAMS = tagNCCALCSIZE_PARAMS;
  19075.  
  19076.  
  19077. const
  19078.   { WM_NCCALCSIZE "window valid rect" return values }
  19079.   {$EXTERNALSYM WVR_ALIGNTOP}
  19080.   WVR_ALIGNTOP = $10;
  19081.   {$EXTERNALSYM WVR_ALIGNLEFT}
  19082.   WVR_ALIGNLEFT = $20;
  19083.   {$EXTERNALSYM WVR_ALIGNBOTTOM}
  19084.   WVR_ALIGNBOTTOM = $40;
  19085.   {$EXTERNALSYM WVR_ALIGNRIGHT}
  19086.   WVR_ALIGNRIGHT = $80;
  19087.   {$EXTERNALSYM WVR_HREDRAW}
  19088.   WVR_HREDRAW = $100;
  19089.   {$EXTERNALSYM WVR_VREDRAW}
  19090.   WVR_VREDRAW = $200;
  19091.   {$EXTERNALSYM WVR_REDRAW}
  19092.   WVR_REDRAW = (WVR_HREDRAW or WVR_VREDRAW);
  19093.   {$EXTERNALSYM WVR_VALIDRECTS}
  19094.   WVR_VALIDRECTS = $400;
  19095.  
  19096.   { Key State Masks for Mouse Messages }
  19097.   {$EXTERNALSYM MK_LBUTTON}
  19098.   MK_LBUTTON = 1;
  19099.   {$EXTERNALSYM MK_RBUTTON}
  19100.   MK_RBUTTON = 2;
  19101.   {$EXTERNALSYM MK_SHIFT}
  19102.   MK_SHIFT = 4;
  19103.   {$EXTERNALSYM MK_CONTROL}
  19104.   MK_CONTROL = 8;
  19105.   {$EXTERNALSYM MK_MBUTTON}
  19106.   MK_MBUTTON = $10;
  19107.  
  19108.   {$EXTERNALSYM TME_HOVER}
  19109.   TME_HOVER           = $00000001;
  19110.   {$EXTERNALSYM TME_LEAVE}
  19111.   TME_LEAVE           = $00000002;
  19112.   {$EXTERNALSYM TME_QUERY}
  19113.   TME_QUERY           = $40000000;
  19114.   {$EXTERNALSYM TME_CANCEL}
  19115.   TME_CANCEL          = DWORD($80000000);
  19116.  
  19117.   {$EXTERNALSYM HOVER_DEFAULT}
  19118.   HOVER_DEFAULT       = DWORD($FFFFFFFF);
  19119.  
  19120. type
  19121.   {$EXTERNALSYM PTrackMouseEvent}
  19122.   PTrackMouseEvent = ^TTrackMouseEvent;
  19123.   {$EXTERNALSYM tagTRACKMOUSEEVENT}
  19124.   tagTRACKMOUSEEVENT = record
  19125.     cbSize: DWORD;
  19126.     dwFlags: DWORD;
  19127.     hwndTrack: HWND;
  19128.     dwHoverTime: DWORD;
  19129.   end;
  19130.   TTrackMouseEvent = tagTRACKMOUSEEVENT;
  19131.   {$EXTERNALSYM TTrackMouseEvent}
  19132.  
  19133. {$EXTERNALSYM TrackMouseEvent}
  19134. function TrackMouseEvent(var EventTrack: TTrackMouseEvent): BOOL; stdcall;
  19135.  
  19136. const
  19137.   { Window Styles }
  19138.   {$EXTERNALSYM WS_OVERLAPPED}
  19139.   WS_OVERLAPPED = 0;
  19140.   {$EXTERNALSYM WS_POPUP}
  19141.   WS_POPUP = DWORD($80000000);
  19142.   {$EXTERNALSYM WS_CHILD}
  19143.   WS_CHILD = $40000000;
  19144.   {$EXTERNALSYM WS_MINIMIZE}
  19145.   WS_MINIMIZE = $20000000;
  19146.   {$EXTERNALSYM WS_VISIBLE}
  19147.   WS_VISIBLE = $10000000;
  19148.   {$EXTERNALSYM WS_DISABLED}
  19149.   WS_DISABLED = $8000000;
  19150.   {$EXTERNALSYM WS_CLIPSIBLINGS}
  19151.   WS_CLIPSIBLINGS = $4000000;
  19152.   {$EXTERNALSYM WS_CLIPCHILDREN}
  19153.   WS_CLIPCHILDREN = $2000000;
  19154.   {$EXTERNALSYM WS_MAXIMIZE}
  19155.   WS_MAXIMIZE = $1000000;
  19156.   {$EXTERNALSYM WS_CAPTION}
  19157.   WS_CAPTION = $C00000;      { WS_BORDER or WS_DLGFRAME  }
  19158.   {$EXTERNALSYM WS_BORDER}
  19159.   WS_BORDER = $800000;
  19160.   {$EXTERNALSYM WS_DLGFRAME}
  19161.   WS_DLGFRAME = $400000;
  19162.   {$EXTERNALSYM WS_VSCROLL}
  19163.   WS_VSCROLL = $200000;
  19164.   {$EXTERNALSYM WS_HSCROLL}
  19165.   WS_HSCROLL = $100000;
  19166.   {$EXTERNALSYM WS_SYSMENU}
  19167.   WS_SYSMENU = $80000;
  19168.   {$EXTERNALSYM WS_THICKFRAME}
  19169.   WS_THICKFRAME = $40000;
  19170.   {$EXTERNALSYM WS_GROUP}
  19171.   WS_GROUP = $20000;
  19172.   {$EXTERNALSYM WS_TABSTOP}
  19173.   WS_TABSTOP = $10000;
  19174.  
  19175.   {$EXTERNALSYM WS_MINIMIZEBOX}
  19176.   WS_MINIMIZEBOX = $20000;
  19177.   {$EXTERNALSYM WS_MAXIMIZEBOX}
  19178.   WS_MAXIMIZEBOX = $10000;
  19179.  
  19180.   {$EXTERNALSYM WS_TILED}
  19181.   WS_TILED = WS_OVERLAPPED;
  19182.   {$EXTERNALSYM WS_ICONIC}
  19183.   WS_ICONIC = WS_MINIMIZE;
  19184.   {$EXTERNALSYM WS_SIZEBOX}
  19185.   WS_SIZEBOX = WS_THICKFRAME;
  19186.  
  19187.   { Common Window Styles }
  19188.   {$EXTERNALSYM WS_OVERLAPPEDWINDOW}
  19189.   WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED or WS_CAPTION or WS_SYSMENU or
  19190.     WS_THICKFRAME or WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
  19191.   {$EXTERNALSYM WS_TILEDWINDOW}
  19192.   WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW;
  19193.   {$EXTERNALSYM WS_POPUPWINDOW}
  19194.   WS_POPUPWINDOW = (WS_POPUP or WS_BORDER or WS_SYSMENU);
  19195.   {$EXTERNALSYM WS_CHILDWINDOW}
  19196.   WS_CHILDWINDOW = (WS_CHILD);
  19197.  
  19198.   { Extended Window Styles }
  19199.   {$EXTERNALSYM WS_EX_DLGMODALFRAME}
  19200.   WS_EX_DLGMODALFRAME = 1;
  19201.   {$EXTERNALSYM WS_EX_NOPARENTNOTIFY}
  19202.   WS_EX_NOPARENTNOTIFY = 4;
  19203.   {$EXTERNALSYM WS_EX_TOPMOST}
  19204.   WS_EX_TOPMOST = 8;
  19205.   {$EXTERNALSYM WS_EX_ACCEPTFILES}
  19206.   WS_EX_ACCEPTFILES = $10;
  19207.   {$EXTERNALSYM WS_EX_TRANSPARENT}
  19208.   WS_EX_TRANSPARENT = $20;
  19209.   {$EXTERNALSYM WS_EX_MDICHILD}
  19210.   WS_EX_MDICHILD = $40;
  19211.   {$EXTERNALSYM WS_EX_TOOLWINDOW}
  19212.   WS_EX_TOOLWINDOW = $80;
  19213.   {$EXTERNALSYM WS_EX_WINDOWEDGE}
  19214.   WS_EX_WINDOWEDGE = $100;
  19215.   {$EXTERNALSYM WS_EX_CLIENTEDGE}
  19216.   WS_EX_CLIENTEDGE = $200;
  19217.   {$EXTERNALSYM WS_EX_CONTEXTHELP}
  19218.   WS_EX_CONTEXTHELP = $400;
  19219.  
  19220.   {$EXTERNALSYM WS_EX_RIGHT}
  19221.   WS_EX_RIGHT = $1000;
  19222.   {$EXTERNALSYM WS_EX_LEFT}
  19223.   WS_EX_LEFT = 0;
  19224.   {$EXTERNALSYM WS_EX_RTLREADING}
  19225.   WS_EX_RTLREADING = $2000;
  19226.   {$EXTERNALSYM WS_EX_LTRREADING}
  19227.   WS_EX_LTRREADING = 0;
  19228.   {$EXTERNALSYM WS_EX_LEFTSCROLLBAR}
  19229.   WS_EX_LEFTSCROLLBAR = $4000;
  19230.   {$EXTERNALSYM WS_EX_RIGHTSCROLLBAR}
  19231.   WS_EX_RIGHTSCROLLBAR = 0;
  19232.  
  19233.   {$EXTERNALSYM WS_EX_CONTROLPARENT}
  19234.   WS_EX_CONTROLPARENT = $10000;
  19235.   {$EXTERNALSYM WS_EX_STATICEDGE}
  19236.   WS_EX_STATICEDGE = $20000;
  19237.   {$EXTERNALSYM WS_EX_APPWINDOW}
  19238.   WS_EX_APPWINDOW = $40000;
  19239.   {$EXTERNALSYM WS_EX_OVERLAPPEDWINDOW}
  19240.   WS_EX_OVERLAPPEDWINDOW = (WS_EX_WINDOWEDGE or WS_EX_CLIENTEDGE);
  19241.   {$EXTERNALSYM WS_EX_PALETTEWINDOW}
  19242.   WS_EX_PALETTEWINDOW = (WS_EX_WINDOWEDGE or WS_EX_TOOLWINDOW or WS_EX_TOPMOST);
  19243.  
  19244.   { Class styles }
  19245.   {$EXTERNALSYM CS_VREDRAW}
  19246.   CS_VREDRAW = DWORD(1);
  19247.   {$EXTERNALSYM CS_HREDRAW}
  19248.   CS_HREDRAW = DWORD(2);
  19249.   {$EXTERNALSYM CS_KEYCVTWINDOW}
  19250.   CS_KEYCVTWINDOW = 4;
  19251.   {$EXTERNALSYM CS_DBLCLKS}
  19252.   CS_DBLCLKS = 8;
  19253.   {$EXTERNALSYM CS_OWNDC}
  19254.   CS_OWNDC = $20;
  19255.   {$EXTERNALSYM CS_CLASSDC}
  19256.   CS_CLASSDC = $40;
  19257.   {$EXTERNALSYM CS_PARENTDC}
  19258.   CS_PARENTDC = $80;
  19259.   {$EXTERNALSYM CS_NOKEYCVT}
  19260.   CS_NOKEYCVT = $100;
  19261.   {$EXTERNALSYM CS_NOCLOSE}
  19262.   CS_NOCLOSE = $200;
  19263.   {$EXTERNALSYM CS_SAVEBITS}
  19264.   CS_SAVEBITS = $800;
  19265.   {$EXTERNALSYM CS_BYTEALIGNCLIENT}
  19266.   CS_BYTEALIGNCLIENT = $1000;
  19267.   {$EXTERNALSYM CS_BYTEALIGNWINDOW}
  19268.   CS_BYTEALIGNWINDOW = $2000;
  19269.   {$EXTERNALSYM CS_GLOBALCLASS}
  19270.   CS_GLOBALCLASS = $4000;
  19271.  
  19272.   {$EXTERNALSYM CS_IME}
  19273.   CS_IME = $10000;
  19274.  
  19275.   { WM_PRINT flags }
  19276.   {$EXTERNALSYM PRF_CHECKVISIBLE}
  19277.   PRF_CHECKVISIBLE = 1;
  19278.   {$EXTERNALSYM PRF_NONCLIENT}
  19279.   PRF_NONCLIENT = 2;
  19280.   {$EXTERNALSYM PRF_CLIENT}
  19281.   PRF_CLIENT = 4;
  19282.   {$EXTERNALSYM PRF_ERASEBKGND}
  19283.   PRF_ERASEBKGND = 8;
  19284.   {$EXTERNALSYM PRF_CHILDREN}
  19285.   PRF_CHILDREN = $10;
  19286.   {$EXTERNALSYM PRF_OWNED}
  19287.   PRF_OWNED = $20;
  19288.  
  19289.   { 3D border styles }
  19290.   {$EXTERNALSYM BDR_RAISEDOUTER}
  19291.   BDR_RAISEDOUTER = 1;
  19292.   {$EXTERNALSYM BDR_SUNKENOUTER}
  19293.   BDR_SUNKENOUTER = 2;
  19294.   {$EXTERNALSYM BDR_RAISEDINNER}
  19295.   BDR_RAISEDINNER = 4;
  19296.   {$EXTERNALSYM BDR_SUNKENINNER}
  19297.   BDR_SUNKENINNER = 8;
  19298.  
  19299.   {$EXTERNALSYM BDR_OUTER}
  19300.   BDR_OUTER = 3;
  19301.   {$EXTERNALSYM BDR_INNER}
  19302.   BDR_INNER = 12;
  19303.   {$EXTERNALSYM BDR_RAISED}
  19304.   BDR_RAISED = 5;
  19305.   {$EXTERNALSYM BDR_SUNKEN}
  19306.   BDR_SUNKEN = 10;
  19307.  
  19308.   {$EXTERNALSYM EDGE_RAISED}
  19309.   EDGE_RAISED = (BDR_RAISEDOUTER or BDR_RAISEDINNER);
  19310.   {$EXTERNALSYM EDGE_SUNKEN}
  19311.   EDGE_SUNKEN = (BDR_SUNKENOUTER or BDR_SUNKENINNER);
  19312.   {$EXTERNALSYM EDGE_ETCHED}
  19313.   EDGE_ETCHED = (BDR_SUNKENOUTER or BDR_RAISEDINNER);
  19314.   {$EXTERNALSYM EDGE_BUMP}
  19315.   EDGE_BUMP = (BDR_RAISEDOUTER or BDR_SUNKENINNER);
  19316.  
  19317.   { Border flags }
  19318.   {$EXTERNALSYM BF_LEFT}
  19319.   BF_LEFT = 1;
  19320.   {$EXTERNALSYM BF_TOP}
  19321.   BF_TOP = 2;
  19322.   {$EXTERNALSYM BF_RIGHT}
  19323.   BF_RIGHT = 4;
  19324.   {$EXTERNALSYM BF_BOTTOM}
  19325.   BF_BOTTOM = 8;
  19326.  
  19327.   {$EXTERNALSYM BF_TOPLEFT}
  19328.   BF_TOPLEFT = (BF_TOP or BF_LEFT);
  19329.   {$EXTERNALSYM BF_TOPRIGHT}
  19330.   BF_TOPRIGHT = (BF_TOP or BF_RIGHT);
  19331.   {$EXTERNALSYM BF_BOTTOMLEFT}
  19332.   BF_BOTTOMLEFT = (BF_BOTTOM or BF_LEFT);
  19333.   {$EXTERNALSYM BF_BOTTOMRIGHT}
  19334.   BF_BOTTOMRIGHT = (BF_BOTTOM or BF_RIGHT);
  19335.   {$EXTERNALSYM BF_RECT}
  19336.   BF_RECT = (BF_LEFT or BF_TOP or BF_RIGHT or BF_BOTTOM);
  19337.  
  19338.   {$EXTERNALSYM BF_DIAGONAL}
  19339.   BF_DIAGONAL = $10;
  19340.  
  19341.   { For diagonal lines, the BF_RECT flags specify the end point of the}
  19342.   { vector bounded by the rectangle parameter.}
  19343.   {$EXTERNALSYM BF_DIAGONAL_ENDTOPRIGHT}
  19344.   BF_DIAGONAL_ENDTOPRIGHT = (BF_DIAGONAL or BF_TOP or BF_RIGHT);
  19345.   {$EXTERNALSYM BF_DIAGONAL_ENDTOPLEFT}
  19346.   BF_DIAGONAL_ENDTOPLEFT = (BF_DIAGONAL or BF_TOP or BF_LEFT);
  19347.   {$EXTERNALSYM BF_DIAGONAL_ENDBOTTOMLEFT}
  19348.   BF_DIAGONAL_ENDBOTTOMLEFT = (BF_DIAGONAL or BF_BOTTOM or BF_LEFT);
  19349.   {$EXTERNALSYM BF_DIAGONAL_ENDBOTTOMRIGHT}
  19350.   BF_DIAGONAL_ENDBOTTOMRIGHT = (BF_DIAGONAL or BF_BOTTOM or BF_RIGHT);
  19351.  
  19352.   {$EXTERNALSYM BF_MIDDLE}
  19353.   BF_MIDDLE = $800;   { Fill in the middle }
  19354.   {$EXTERNALSYM BF_SOFT}
  19355.   BF_SOFT = $1000;    { For softer buttons }
  19356.   {$EXTERNALSYM BF_ADJUST}
  19357.   BF_ADJUST = $2000;  { Calculate the space left over }
  19358.   {$EXTERNALSYM BF_FLAT}
  19359.   BF_FLAT = $4000;    { For flat rather than 3D borders }
  19360.   {$EXTERNALSYM BF_MONO}
  19361.   BF_MONO = $8000;    { For monochrome borders }
  19362.  
  19363. {$EXTERNALSYM DrawEdge}
  19364. function DrawEdge(hdc: HDC; var qrc: TRect; edge: UINT; grfFlags: UINT): BOOL; stdcall;
  19365.  
  19366. const
  19367.   { flags for DrawFrameControl }
  19368.   {$EXTERNALSYM DFC_CAPTION}
  19369.   DFC_CAPTION = 1;
  19370.   {$EXTERNALSYM DFC_MENU}
  19371.   DFC_MENU = 2;
  19372.   {$EXTERNALSYM DFC_SCROLL}
  19373.   DFC_SCROLL = 3;
  19374.   {$EXTERNALSYM DFC_BUTTON}
  19375.   DFC_BUTTON = 4;
  19376.   {$EXTERNALSYM DFC_POPUPMENU}
  19377.   DFC_POPUPMENU = 5;
  19378.  
  19379.   {$EXTERNALSYM DFCS_CAPTIONCLOSE}
  19380.   DFCS_CAPTIONCLOSE = 0;
  19381.   {$EXTERNALSYM DFCS_CAPTIONMIN}
  19382.   DFCS_CAPTIONMIN = 1;
  19383.   {$EXTERNALSYM DFCS_CAPTIONMAX}
  19384.   DFCS_CAPTIONMAX = 2;
  19385.   {$EXTERNALSYM DFCS_CAPTIONRESTORE}
  19386.   DFCS_CAPTIONRESTORE = 3;
  19387.   {$EXTERNALSYM DFCS_CAPTIONHELP}
  19388.   DFCS_CAPTIONHELP = 4;
  19389.  
  19390.   {$EXTERNALSYM DFCS_MENUARROW}
  19391.   DFCS_MENUARROW = 0;
  19392.   {$EXTERNALSYM DFCS_MENUCHECK}
  19393.   DFCS_MENUCHECK = 1;
  19394.   {$EXTERNALSYM DFCS_MENUBULLET}
  19395.   DFCS_MENUBULLET = 2;
  19396.   {$EXTERNALSYM DFCS_MENUARROWRIGHT}
  19397.   DFCS_MENUARROWRIGHT = 4;
  19398.  
  19399.   {$EXTERNALSYM DFCS_SCROLLUP}
  19400.   DFCS_SCROLLUP = 0;
  19401.   {$EXTERNALSYM DFCS_SCROLLDOWN}
  19402.   DFCS_SCROLLDOWN = 1;
  19403.   {$EXTERNALSYM DFCS_SCROLLLEFT}
  19404.   DFCS_SCROLLLEFT = 2;
  19405.   {$EXTERNALSYM DFCS_SCROLLRIGHT}
  19406.   DFCS_SCROLLRIGHT = 3;
  19407.   {$EXTERNALSYM DFCS_SCROLLCOMBOBOX}
  19408.   DFCS_SCROLLCOMBOBOX = 5;
  19409.   {$EXTERNALSYM DFCS_SCROLLSIZEGRIP}
  19410.   DFCS_SCROLLSIZEGRIP = 8;
  19411.   {$EXTERNALSYM DFCS_SCROLLSIZEGRIPRIGHT}
  19412.   DFCS_SCROLLSIZEGRIPRIGHT = $10;
  19413.  
  19414.   {$EXTERNALSYM DFCS_BUTTONCHECK}
  19415.   DFCS_BUTTONCHECK = 0;
  19416.   {$EXTERNALSYM DFCS_BUTTONRADIOIMAGE}
  19417.   DFCS_BUTTONRADIOIMAGE = 1;
  19418.   {$EXTERNALSYM DFCS_BUTTONRADIOMASK}
  19419.   DFCS_BUTTONRADIOMASK = 2;
  19420.   {$EXTERNALSYM DFCS_BUTTONRADIO}
  19421.   DFCS_BUTTONRADIO = 4;
  19422.   {$EXTERNALSYM DFCS_BUTTON3STATE}
  19423.   DFCS_BUTTON3STATE = 8;
  19424.   {$EXTERNALSYM DFCS_BUTTONPUSH}
  19425.   DFCS_BUTTONPUSH = $10;
  19426.  
  19427.   {$EXTERNALSYM DFCS_INACTIVE}
  19428.   DFCS_INACTIVE = $100;
  19429.   {$EXTERNALSYM DFCS_PUSHED}
  19430.   DFCS_PUSHED = $200;
  19431.   {$EXTERNALSYM DFCS_CHECKED}
  19432.   DFCS_CHECKED = $400;
  19433.   {$EXTERNALSYM DFCS_TRANSPARENT}
  19434.   DFCS_TRANSPARENT = $800;
  19435.   {$EXTERNALSYM DFCS_HOT}
  19436.   DFCS_HOT = $1000;
  19437.   {$EXTERNALSYM DFCS_ADJUSTRECT}
  19438.   DFCS_ADJUSTRECT = $2000;
  19439.   {$EXTERNALSYM DFCS_FLAT}
  19440.   DFCS_FLAT = $4000;
  19441.   {$EXTERNALSYM DFCS_MONO}
  19442.   DFCS_MONO = $8000;
  19443.  
  19444. {$EXTERNALSYM DrawFrameControl}
  19445. function DrawFrameControl(DC: HDC; const Rect: TRect; uType, uState: UINT): BOOL; stdcall;
  19446.  
  19447. const
  19448.   { flags for DrawCaption }
  19449.   {$EXTERNALSYM DC_ACTIVE}
  19450.   DC_ACTIVE = 1;
  19451.   {$EXTERNALSYM DC_SMALLCAP}
  19452.   DC_SMALLCAP = 2;
  19453.   {$EXTERNALSYM DC_ICON}
  19454.   DC_ICON = 4;
  19455.   {$EXTERNALSYM DC_TEXT}
  19456.   DC_TEXT = 8;
  19457.   {$EXTERNALSYM DC_INBUTTON}
  19458.   DC_INBUTTON = $10;
  19459.   {$EXTERNALSYM DC_GRADIENT}
  19460.   DC_GRADIENT = $20;
  19461.  
  19462. {!!! doesn't match help !!!}
  19463. {$EXTERNALSYM DrawCaption}
  19464. function DrawCaption(p1: HWND; p2: HDC; const p3: TRect; p4: UINT): BOOL; stdcall;
  19465.  
  19466. const
  19467.   {$EXTERNALSYM IDANI_OPEN}
  19468.   IDANI_OPEN = 1;
  19469.   {$EXTERNALSYM IDANI_CLOSE}
  19470.   IDANI_CLOSE = 2;
  19471.   {$EXTERNALSYM IDANI_CAPTION}
  19472.   IDANI_CAPTION = 3;
  19473.  
  19474. {$EXTERNALSYM DrawAnimatedRects}
  19475. function DrawAnimatedRects(hwnd: HWND; idAni: Integer; const lprcFrom, lprcTo: TRect): BOOL; stdcall;
  19476.  
  19477. const
  19478.   { Predefined Clipboard Formats }
  19479.   {$EXTERNALSYM CF_TEXT}
  19480.   CF_TEXT = 1;
  19481.   {$EXTERNALSYM CF_BITMAP}
  19482.   CF_BITMAP = 2;
  19483.   {$EXTERNALSYM CF_METAFILEPICT}
  19484.   CF_METAFILEPICT = 3;
  19485.   {$EXTERNALSYM CF_SYLK}
  19486.   CF_SYLK = 4;
  19487.   {$EXTERNALSYM CF_DIF}
  19488.   CF_DIF = 5;
  19489.   {$EXTERNALSYM CF_TIFF}
  19490.   CF_TIFF = 6;
  19491.   {$EXTERNALSYM CF_OEMTEXT}
  19492.   CF_OEMTEXT = 7;
  19493.   {$EXTERNALSYM CF_DIB}
  19494.   CF_DIB = 8;
  19495.   {$EXTERNALSYM CF_PALETTE}
  19496.   CF_PALETTE = 9;
  19497.   {$EXTERNALSYM CF_PENDATA}
  19498.   CF_PENDATA = 10;
  19499.   {$EXTERNALSYM CF_RIFF}
  19500.   CF_RIFF = 11;
  19501.   {$EXTERNALSYM CF_WAVE}
  19502.   CF_WAVE = 12;
  19503.   {$EXTERNALSYM CF_UNICODETEXT}
  19504.   CF_UNICODETEXT = 13;
  19505.   {$EXTERNALSYM CF_ENHMETAFILE}
  19506.   CF_ENHMETAFILE = 14;
  19507.   {$EXTERNALSYM CF_HDROP}
  19508.   CF_HDROP = 15;
  19509.   {$EXTERNALSYM CF_LOCALE}
  19510.   CF_LOCALE = $10;
  19511.   {$EXTERNALSYM CF_MAX}
  19512.   CF_MAX = 17;
  19513.  
  19514.   {$EXTERNALSYM CF_OWNERDISPLAY}
  19515.   CF_OWNERDISPLAY = 128;
  19516.   {$EXTERNALSYM CF_DSPTEXT}
  19517.   CF_DSPTEXT = 129;
  19518.   {$EXTERNALSYM CF_DSPBITMAP}
  19519.   CF_DSPBITMAP = 130;
  19520.   {$EXTERNALSYM CF_DSPMETAFILEPICT}
  19521.   CF_DSPMETAFILEPICT = 131;
  19522.   {$EXTERNALSYM CF_DSPENHMETAFILE}
  19523.   CF_DSPENHMETAFILE = 142;
  19524.  
  19525.   { "Private" formats don't get GlobalFree()'d }
  19526.   {$EXTERNALSYM CF_PRIVATEFIRST}
  19527.   CF_PRIVATEFIRST = $200;
  19528.   {$EXTERNALSYM CF_PRIVATELAST}
  19529.   CF_PRIVATELAST = 767;
  19530.  
  19531.   { "GDIOBJ" formats do get DeleteObject()'d }
  19532.   {$EXTERNALSYM CF_GDIOBJFIRST}
  19533.   CF_GDIOBJFIRST = 768;
  19534.   {$EXTERNALSYM CF_GDIOBJLAST}
  19535.   CF_GDIOBJLAST = 1023;
  19536.  
  19537.  
  19538.   { Defines for the fVirt field of the Accelerator table structure. }
  19539.   {$EXTERNALSYM FVIRTKEY}
  19540.   FVIRTKEY = 1;
  19541.   {$EXTERNALSYM FNOINVERT}
  19542.   FNOINVERT = 2;
  19543.   {$EXTERNALSYM FSHIFT}
  19544.   FSHIFT = 4;
  19545.   {$EXTERNALSYM FCONTROL}
  19546.   FCONTROL = 8;
  19547.   {$EXTERNALSYM FALT}
  19548.   FALT = $10;
  19549.  
  19550. type
  19551.   PAccel = ^TAccel;
  19552.   {$EXTERNALSYM tagACCEL}
  19553.   tagACCEL = packed record
  19554.     fVirt: Word;     { Also called the flags field }
  19555.     key: Word;
  19556.     cmd: Word;
  19557.   end;
  19558.   TAccel = tagACCEL;
  19559.   {$EXTERNALSYM ACCEL}
  19560.   ACCEL = tagACCEL;
  19561.  
  19562.   PPaintStruct = ^TPaintStruct;
  19563.   {$EXTERNALSYM tagPAINTSTRUCT}
  19564.   tagPAINTSTRUCT = packed record
  19565.     hdc: HDC;
  19566.     fErase: BOOL;
  19567.     rcPaint: TRect;
  19568.     fRestore: BOOL;
  19569.     fIncUpdate: BOOL;
  19570.     rgbReserved: array[0..31] of Byte;
  19571.   end;
  19572.   TPaintStruct = tagPAINTSTRUCT;
  19573.   {$EXTERNALSYM PAINTSTRUCT}
  19574.   PAINTSTRUCT = tagPAINTSTRUCT;
  19575.  
  19576.   PWindowPlacement = ^TWindowPlacement;
  19577.   {$EXTERNALSYM tagWINDOWPLACEMENT}
  19578.   tagWINDOWPLACEMENT = packed record
  19579.     length: UINT;
  19580.     flags: UINT;
  19581.     showCmd: UINT;
  19582.     ptMinPosition: TPoint;
  19583.     ptMaxPosition: TPoint;
  19584.     rcNormalPosition: TRect;
  19585.   end;
  19586.   TWindowPlacement = tagWINDOWPLACEMENT;
  19587.   {$EXTERNALSYM WINDOWPLACEMENT}
  19588.   WINDOWPLACEMENT = tagWINDOWPLACEMENT;
  19589.  
  19590. const
  19591.   {$EXTERNALSYM WPF_SETMINPOSITION}
  19592.   WPF_SETMINPOSITION = 1;
  19593.   {$EXTERNALSYM WPF_RESTORETOMAXIMIZED}
  19594.   WPF_RESTORETOMAXIMIZED = 2;
  19595.  
  19596. type
  19597.   PNMHdr = ^TNMHdr;
  19598.   {$EXTERNALSYM tagNMHDR}
  19599.   tagNMHDR = packed record
  19600.     hwndFrom: HWND;
  19601.     idFrom: UINT;
  19602.     code: Integer;     { NM_ code }
  19603.   end;
  19604.   TNMHdr = tagNMHDR;
  19605.   {$EXTERNALSYM NMHDR}
  19606.   NMHDR = tagNMHDR;
  19607.  
  19608.   PStyleStruct = ^TStyleStruct;
  19609.   {$EXTERNALSYM tagSTYLESTRUCT}
  19610.   tagSTYLESTRUCT = packed record
  19611.     styleOld: DWORD;
  19612.     styleNew: DWORD;
  19613.   end;
  19614.   TStyleStruct = tagSTYLESTRUCT;
  19615.   {$EXTERNALSYM STYLESTRUCT}
  19616.   STYLESTRUCT = tagSTYLESTRUCT;
  19617.  
  19618. const
  19619.   { Owner draw control types }
  19620.   {$EXTERNALSYM ODT_MENU}
  19621.   ODT_MENU = 1;
  19622.   {$EXTERNALSYM ODT_LISTBOX}
  19623.   ODT_LISTBOX = 2;
  19624.   {$EXTERNALSYM ODT_COMBOBOX}
  19625.   ODT_COMBOBOX = 3;
  19626.   {$EXTERNALSYM ODT_BUTTON}
  19627.   ODT_BUTTON = 4;
  19628.   {$EXTERNALSYM ODT_STATIC}
  19629.   ODT_STATIC = 5;
  19630.  
  19631.   { Owner draw actions }
  19632.   {$EXTERNALSYM ODA_DRAWENTIRE}
  19633.   ODA_DRAWENTIRE = 1;
  19634.   {$EXTERNALSYM ODA_SELECT}
  19635.   ODA_SELECT = 2;
  19636.   {$EXTERNALSYM ODA_FOCUS}
  19637.   ODA_FOCUS = 4;
  19638.  
  19639.   { Owner draw state }
  19640.   {$EXTERNALSYM ODS_SELECTED}
  19641.   ODS_SELECTED = 1;
  19642.   {$EXTERNALSYM ODS_GRAYED}
  19643.   ODS_GRAYED = 2;
  19644.   {$EXTERNALSYM ODS_DISABLED}
  19645.   ODS_DISABLED = 4;
  19646.   {$EXTERNALSYM ODS_CHECKED}
  19647.   ODS_CHECKED = 8;
  19648.   {$EXTERNALSYM ODS_FOCUS}
  19649.   ODS_FOCUS = $10;
  19650.   {$EXTERNALSYM ODS_DEFAULT}
  19651.   ODS_DEFAULT = $20;
  19652.   {$EXTERNALSYM ODS_COMBOBOXEDIT}
  19653.   ODS_COMBOBOXEDIT = $1000;
  19654.   {$EXTERNALSYM ODS_HOTLIGHT}
  19655.   ODS_HOTLIGHT = $40;
  19656.   {$EXTERNALSYM ODS_INACTIVE}
  19657.   ODS_INACTIVE = $80;
  19658.  
  19659. type  
  19660.   TOwnerDrawState = set of (odSelected, odGrayed, odDisabled, odChecked,
  19661.     odFocused, odDefault, odHotLight, odInactive, odNoAccel, odNoFocusRect,
  19662.     odReserved1, odReserved2, odComboBoxEdit);
  19663.  
  19664. type
  19665.   { for ownerdraw }
  19666.   PMeasureItemStruct = ^TMeasureItemStruct;
  19667.   {$EXTERNALSYM tagMEASUREITEMSTRUCT}
  19668.   tagMEASUREITEMSTRUCT = packed record
  19669.     CtlType: UINT;
  19670.     CtlID: UINT;
  19671.     itemID: UINT;
  19672.     itemWidth: UINT;
  19673.     itemHeight: UINT;
  19674.     itemData: DWORD;
  19675.   end;
  19676.   TMeasureItemStruct = tagMEASUREITEMSTRUCT;
  19677.   {$EXTERNALSYM MEASUREITEMSTRUCT}
  19678.   MEASUREITEMSTRUCT = tagMEASUREITEMSTRUCT;
  19679.  
  19680.   { for ownerdraw }
  19681.   PDrawItemStruct = ^TDrawItemStruct;
  19682.   {$EXTERNALSYM tagDRAWITEMSTRUCT}
  19683.   tagDRAWITEMSTRUCT = packed record
  19684.     CtlType: UINT;
  19685.     CtlID: UINT;
  19686.     itemID: UINT;
  19687.     itemAction: UINT;
  19688.     itemState: UINT;
  19689.     hwndItem: HWND;
  19690.     hDC: HDC;
  19691.     rcItem: TRect;
  19692.     itemData: DWORD;
  19693.   end;
  19694.   TDrawItemStruct = tagDRAWITEMSTRUCT;
  19695.   {$EXTERNALSYM DRAWITEMSTRUCT}
  19696.   DRAWITEMSTRUCT = tagDRAWITEMSTRUCT;
  19697.  
  19698.   { for ownerdraw }
  19699.   PDeleteItemStruct = ^TDeleteItemStruct;
  19700.   {$EXTERNALSYM tagDELETEITEMSTRUCT}
  19701.   tagDELETEITEMSTRUCT = packed record
  19702.     CtlType: UINT;
  19703.     CtlID: UINT;
  19704.     itemID: UINT;
  19705.     hwndItem: HWND;
  19706.     itemData: UINT;
  19707.   end;
  19708.   TDeleteItemStruct = tagDELETEITEMSTRUCT;
  19709.   {$EXTERNALSYM DELETEITEMSTRUCT}
  19710.   DELETEITEMSTRUCT = tagDELETEITEMSTRUCT;
  19711.  
  19712.   { for ownerdraw sorting }
  19713.   PCompareItemStruct = ^TCompareItemStruct;
  19714.   {$EXTERNALSYM tagCOMPAREITEMSTRUCT}
  19715.   tagCOMPAREITEMSTRUCT = packed record
  19716.     CtlType: UINT;
  19717.     CtlID: UINT;
  19718.     hwndItem: HWND;
  19719.     itemID1: UINT;
  19720.     itemData1: DWORD;
  19721.     itemID2: UINT;
  19722.     itemData2: DWORD;
  19723.     dwLocaleId: DWORD;
  19724.   end;
  19725.   TCompareItemStruct = tagCOMPAREITEMSTRUCT;
  19726.   {$EXTERNALSYM COMPAREITEMSTRUCT}
  19727.   COMPAREITEMSTRUCT = tagCOMPAREITEMSTRUCT;
  19728.  
  19729. { Message Function Templates }
  19730.  
  19731. {$EXTERNALSYM GetMessageA}
  19732. function GetMessageA(var lpMsg: TMsg; hWnd: HWND;
  19733.   wMsgFilterMin, wMsgFilterMax: UINT): BOOL; stdcall;
  19734. {$EXTERNALSYM GetMessageW}
  19735. function GetMessageW(var lpMsg: TMsg; hWnd: HWND;
  19736.   wMsgFilterMin, wMsgFilterMax: UINT): BOOL; stdcall;
  19737. {$EXTERNALSYM GetMessage}
  19738. function GetMessage(var lpMsg: TMsg; hWnd: HWND;
  19739.   wMsgFilterMin, wMsgFilterMax: UINT): BOOL; stdcall;
  19740. {$EXTERNALSYM DispatchMessageA}
  19741. function DispatchMessageA(const lpMsg: TMsg): Longint; stdcall;
  19742. {$EXTERNALSYM DispatchMessageW}
  19743. function DispatchMessageW(const lpMsg: TMsg): Longint; stdcall;
  19744. {$EXTERNALSYM DispatchMessage}
  19745. function DispatchMessage(const lpMsg: TMsg): Longint; stdcall;
  19746. {$EXTERNALSYM TranslateMessage}
  19747. function TranslateMessage(const lpMsg: TMsg): BOOL; stdcall;
  19748. {$EXTERNALSYM SetMessageQueue}
  19749. function SetMessageQueue(cMessagesMax: Integer): BOOL; stdcall;
  19750. {$EXTERNALSYM PeekMessageA}
  19751. function PeekMessageA(var lpMsg: TMsg; hWnd: HWND;
  19752.   wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;
  19753. {$EXTERNALSYM PeekMessageW}
  19754. function PeekMessageW(var lpMsg: TMsg; hWnd: HWND;
  19755.   wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;
  19756. {$EXTERNALSYM PeekMessage}
  19757. function PeekMessage(var lpMsg: TMsg; hWnd: HWND;
  19758.   wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;
  19759.  
  19760. const
  19761.   { PeekMessage() Options }
  19762.   {$EXTERNALSYM PM_NOREMOVE}
  19763.   PM_NOREMOVE = 0;
  19764.   {$EXTERNALSYM PM_REMOVE}
  19765.   PM_REMOVE = 1;
  19766.   {$EXTERNALSYM PM_NOYIELD}
  19767.   PM_NOYIELD = 2;
  19768.  
  19769. {$EXTERNALSYM RegisterHotKey}
  19770. function RegisterHotKey(hWnd: HWND; id: Integer; fsModifiers, vk: UINT): BOOL; stdcall;
  19771. {$EXTERNALSYM UnregisterHotKey}
  19772. function UnregisterHotKey(hWnd: HWND; id: Integer): BOOL; stdcall;
  19773.  
  19774. const
  19775.   {$EXTERNALSYM MOD_ALT}
  19776.   MOD_ALT = 1;
  19777.   {$EXTERNALSYM MOD_CONTROL}
  19778.   MOD_CONTROL = 2;
  19779.   {$EXTERNALSYM MOD_SHIFT}
  19780.   MOD_SHIFT = 4;
  19781.   {$EXTERNALSYM MOD_WIN}
  19782.   MOD_WIN = 8;
  19783.  
  19784.   {$EXTERNALSYM IDHOT_SNAPWINDOW}
  19785.   IDHOT_SNAPWINDOW = -1;    { SHIFT-PRINTSCRN  }
  19786.   {$EXTERNALSYM IDHOT_SNAPDESKTOP}
  19787.   IDHOT_SNAPDESKTOP = -2;   { PRINTSCRN        }
  19788.  
  19789.   {$EXTERNALSYM EW_RESTARTWINDOWS}
  19790.   EW_RESTARTWINDOWS        = $0042;
  19791.   {$EXTERNALSYM EW_REBOOTSYSTEM}
  19792.   EW_REBOOTSYSTEM          = $0043;
  19793.   {$EXTERNALSYM EW_EXITANDEXECAPP}
  19794.   EW_EXITANDEXECAPP        = $0044;
  19795.  
  19796.   {$EXTERNALSYM ENDSESSION_LOGOFF}
  19797.   ENDSESSION_LOGOFF        = DWORD($80000000);
  19798.  
  19799.   {$EXTERNALSYM EWX_LOGOFF}
  19800.   EWX_LOGOFF = 0;
  19801.   {$EXTERNALSYM EWX_SHUTDOWN}
  19802.   EWX_SHUTDOWN = 1;
  19803.   {$EXTERNALSYM EWX_REBOOT}
  19804.   EWX_REBOOT = 2;
  19805.   {$EXTERNALSYM EWX_FORCE}
  19806.   EWX_FORCE = 4;
  19807.   {$EXTERNALSYM EWX_POWEROFF}
  19808.   EWX_POWEROFF = 8;
  19809.   {$EXTERNALSYM EWX_FORCEIFHUNG}
  19810.   EWX_FORCEIFHUNG = $10;
  19811.  
  19812.  
  19813. {$EXTERNALSYM ExitWindows}
  19814. function ExitWindows(dwReserved: DWORD; Code: Word): BOOL;
  19815.  
  19816. {$EXTERNALSYM ExitWindowsEx}
  19817. function ExitWindowsEx(uFlags: UINT; dwReserved: DWORD): BOOL; stdcall;
  19818. {$EXTERNALSYM SwapMouseButton}
  19819. function SwapMouseButton(fSwap: BOOL): BOOL; stdcall;
  19820. {$EXTERNALSYM GetMessagePos}
  19821. function GetMessagePos: DWORD; stdcall;
  19822. {$EXTERNALSYM GetMessageTime}
  19823. function GetMessageTime: Longint; stdcall;
  19824. {$EXTERNALSYM GetMessageExtraInfo}
  19825. function GetMessageExtraInfo: Longint; stdcall;
  19826. {$EXTERNALSYM SetMessageExtraInfo}
  19827. function SetMessageExtraInfo(lParam: LPARAM): LPARAM; stdcall;
  19828.  
  19829. {$EXTERNALSYM SendMessageA}
  19830. function SendMessageA(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19831. {$EXTERNALSYM SendMessageW}
  19832. function SendMessageW(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19833. {$EXTERNALSYM SendMessage}
  19834. function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19835. {$EXTERNALSYM SendMessageTimeoutA}
  19836. function SendMessageTimeoutA(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  19837.   lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT; stdcall;
  19838. {$EXTERNALSYM SendMessageTimeoutW}
  19839. function SendMessageTimeoutW(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  19840.   lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT; stdcall;
  19841. {$EXTERNALSYM SendMessageTimeout}
  19842. function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  19843.   lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT; stdcall;
  19844. {$EXTERNALSYM SendNotifyMessageA}
  19845. function SendNotifyMessageA(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  19846.   lParam: LPARAM): BOOL; stdcall;
  19847. {$EXTERNALSYM SendNotifyMessageW}
  19848. function SendNotifyMessageW(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  19849.   lParam: LPARAM): BOOL; stdcall;
  19850. {$EXTERNALSYM SendNotifyMessage}
  19851. function SendNotifyMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  19852.   lParam: LPARAM): BOOL; stdcall;
  19853. {$EXTERNALSYM SendMessageCallbackA}
  19854. function SendMessageCallbackA(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  19855.   lParam: LPARAM; lpResultCallBack: TFNSendAsyncProc; dwData: DWORD): BOOL; stdcall;
  19856. {$EXTERNALSYM SendMessageCallbackW}
  19857. function SendMessageCallbackW(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  19858.   lParam: LPARAM; lpResultCallBack: TFNSendAsyncProc; dwData: DWORD): BOOL; stdcall;
  19859. {$EXTERNALSYM SendMessageCallback}
  19860. function SendMessageCallback(hWnd: HWND; Msg: UINT; wParam: WPARAM;
  19861.   lParam: LPARAM; lpResultCallBack: TFNSendAsyncProc; dwData: DWORD): BOOL; stdcall;
  19862. {$EXTERNALSYM BroadcastSystemMessageA}
  19863. function BroadcastSystemMessageA(Flags: DWORD; Recipients: PDWORD;
  19864.   uiMessage: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  19865. {$EXTERNALSYM BroadcastSystemMessageW}
  19866. function BroadcastSystemMessageW(Flags: DWORD; Recipients: PDWORD;
  19867.   uiMessage: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  19868. {$EXTERNALSYM BroadcastSystemMessage}
  19869. function BroadcastSystemMessage(Flags: DWORD; Recipients: PDWORD;
  19870.   uiMessage: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  19871.  
  19872. const
  19873.   { Broadcast Special Message Recipient list }
  19874.   {$EXTERNALSYM BSM_ALLCOMPONENTS}
  19875.   BSM_ALLCOMPONENTS = $00000000;
  19876.   {$EXTERNALSYM BSM_VXDS}
  19877.   BSM_VXDS = $00000001;
  19878.   {$EXTERNALSYM BSM_NETDRIVER}
  19879.   BSM_NETDRIVER = $00000002;
  19880.   {$EXTERNALSYM BSM_INSTALLABLEDRIVERS}
  19881.   BSM_INSTALLABLEDRIVERS = $00000004;
  19882.   {$EXTERNALSYM BSM_APPLICATIONS}
  19883.   BSM_APPLICATIONS = $00000008;
  19884.   {$EXTERNALSYM BSM_ALLDESKTOPS}
  19885.   BSM_ALLDESKTOPS = $00000010;
  19886.  
  19887.   { Broadcast Special Message Flags }
  19888.   {$EXTERNALSYM BSF_QUERY}
  19889.   BSF_QUERY = $00000001;
  19890.   {$EXTERNALSYM BSF_IGNORECURRENTTASK}
  19891.   BSF_IGNORECURRENTTASK = $00000002;
  19892.   {$EXTERNALSYM BSF_FLUSHDISK}
  19893.   BSF_FLUSHDISK = $00000004;
  19894.   {$EXTERNALSYM BSF_NOHANG}
  19895.   BSF_NOHANG = $00000008;
  19896.   {$EXTERNALSYM BSF_POSTMESSAGE}
  19897.   BSF_POSTMESSAGE = $00000010;
  19898.   {$EXTERNALSYM BSF_FORCEIFHUNG}
  19899.   BSF_FORCEIFHUNG = $00000020;
  19900.   {$EXTERNALSYM BSF_NOTIMEOUTIFNOTHUNG}
  19901.   BSF_NOTIMEOUTIFNOTHUNG = $00000040;
  19902.  
  19903. type
  19904.   PBroadcastSysMsg = ^TBroadcastSysMsg;
  19905. //  {$EXTERNALSYM tagBROADCASTSYSMSG}
  19906.   tagBROADCASTSYSMSG = packed record
  19907.     uiMessage: UINT;
  19908.     wParam: WPARAM;
  19909.     lParam: LPARAM;
  19910.   end;
  19911.   TBroadcastSysMsg = tagBROADCASTSYSMSG;
  19912. //  {$EXTERNALSYM BROADCASTSYSMSG}
  19913.   BROADCASTSYSMSG = tagBROADCASTSYSMSG;
  19914.  
  19915. const
  19916.   {$EXTERNALSYM DBWF_LPARAMPOINTER}
  19917.   DBWF_LPARAMPOINTER = $8000;
  19918.  
  19919.   {$EXTERNALSYM BROADCAST_QUERY_DENY}
  19920.   BROADCAST_QUERY_DENY = $424D5144;  { Return this value to deny a query. }
  19921.  
  19922. type
  19923.   {$EXTERNALSYM HDEVNOTIFY}
  19924.   HDEVNOTIFY = Pointer;
  19925.   {$EXTERNALSYM PHDEVNOTIFY}
  19926.   PHDEVNOTIFY = ^HDEVNOTIFY;
  19927.  
  19928. const
  19929.   {$EXTERNALSYM DEVICE_NOTIFY_WINDOW_HANDLE}
  19930.   DEVICE_NOTIFY_WINDOW_HANDLE = 0;
  19931.  
  19932. {$EXTERNALSYM RegisterDeviceNotificationA}
  19933. function RegisterDeviceNotificationA(hRecipient: THandle; NotificationFilter: Pointer; Flags: DWORD): HDEVNOTIFY; stdcall;
  19934. {$EXTERNALSYM RegisterDeviceNotificationW}
  19935. function RegisterDeviceNotificationW(hRecipient: THandle; NotificationFilter: Pointer; Flags: DWORD): HDEVNOTIFY; stdcall;
  19936. {$EXTERNALSYM RegisterDeviceNotification}
  19937. function RegisterDeviceNotification(hRecipient: THandle; NotificationFilter: Pointer; Flags: DWORD): HDEVNOTIFY; stdcall;
  19938. {$EXTERNALSYM UnregisterDeviceNotification}
  19939. function UnregisterDeviceNotification(Handle: HDEVNOTIFY): BOOL; stdcall;
  19940.  
  19941. {$EXTERNALSYM PostMessageA}
  19942. function PostMessageA(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  19943. {$EXTERNALSYM PostMessageW}
  19944. function PostMessageW(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  19945. {$EXTERNALSYM PostMessage}
  19946. function PostMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  19947. {$EXTERNALSYM PostThreadMessageA}
  19948. function PostThreadMessageA(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  19949. {$EXTERNALSYM PostThreadMessageW}
  19950. function PostThreadMessageW(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  19951. {$EXTERNALSYM PostThreadMessage}
  19952. function PostThreadMessage(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
  19953. {$EXTERNALSYM PostAppMessageA}
  19954. function PostAppMessageA(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL;
  19955. {$EXTERNALSYM PostAppMessageW}
  19956. function PostAppMessageW(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL;
  19957. {$EXTERNALSYM PostAppMessage}
  19958. function PostAppMessage(idThread: DWORD; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL;
  19959.  
  19960. const
  19961.   { Special HWND value for use with PostMessage() and SendMessage() }
  19962.   {$EXTERNALSYM HWND_BROADCAST}
  19963.   HWND_BROADCAST = $FFFF;
  19964.   wnd_Broadcast = HWND_BROADCAST;
  19965.  
  19966.   {$EXTERNALSYM HWND_MESSAGE}
  19967.   HWND_MESSAGE = -3;
  19968.   wnd_Message = HWND_MESSAGE;
  19969.  
  19970. {$EXTERNALSYM AttachThreadInput}
  19971. function AttachThreadInput(idAttach, idAttachTo: DWORD; fAttach: BOOL): BOOL; stdcall;
  19972. {$EXTERNALSYM ReplyMessage}
  19973. function ReplyMessage(lResult: LRESULT): BOOL; stdcall;
  19974. {$EXTERNALSYM WaitMessage}
  19975. function WaitMessage: BOOL; stdcall;
  19976. {$EXTERNALSYM WaitForInputIdle}
  19977. function WaitForInputIdle(hProcess: THandle; dwMilliseconds: DWORD): DWORD; stdcall;
  19978. {$EXTERNALSYM DefWindowProcA}
  19979. function DefWindowProcA(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19980. {$EXTERNALSYM DefWindowProcW}
  19981. function DefWindowProcW(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19982. {$EXTERNALSYM DefWindowProc}
  19983. function DefWindowProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19984. {$EXTERNALSYM CallWindowProcA}
  19985. function CallWindowProcA(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19986. {$EXTERNALSYM CallWindowProcW}
  19987. function CallWindowProcW(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19988. {$EXTERNALSYM CallWindowProc}
  19989. function CallWindowProc(lpPrevWndFunc: TFNWndProc; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  19990. {$EXTERNALSYM PostQuitMessage}
  19991. procedure PostQuitMessage(nExitCode: Integer); stdcall;
  19992. {$EXTERNALSYM InSendMessage}
  19993. function InSendMessage: BOOL; stdcall;
  19994. {$EXTERNALSYM InSendMessageEx}
  19995. function InSendMessageEx(lpReserved: Pointer): DWORD; stdcall;
  19996.  
  19997. const
  19998.   { InSendMessageEx return value }
  19999.   {$EXTERNALSYM ISMEX_NOSEND}
  20000.   ISMEX_NOSEND = 0;
  20001.   {$EXTERNALSYM ISMEX_SEND}
  20002.   ISMEX_SEND = 1;
  20003.   {$EXTERNALSYM ISMEX_NOTIFY}
  20004.   ISMEX_NOTIFY = 2;
  20005.   {$EXTERNALSYM ISMEX_CALLBACK}
  20006.   ISMEX_CALLBACK = 4;
  20007.   {$EXTERNALSYM ISMEX_REPLIED}
  20008.   ISMEX_REPLIED = 8;
  20009.  
  20010. {$EXTERNALSYM GetDoubleClickTime}
  20011. function GetDoubleClickTime: UINT; stdcall;
  20012. {$EXTERNALSYM SetDoubleClickTime}
  20013. function SetDoubleClickTime(Interval: UINT): BOOL; stdcall;
  20014. {$EXTERNALSYM RegisterClassA}
  20015. function RegisterClassA(const lpWndClass: TWndClassA): ATOM; stdcall;
  20016. {$EXTERNALSYM RegisterClassW}
  20017. function RegisterClassW(const lpWndClass: TWndClassW): ATOM; stdcall;
  20018. {$EXTERNALSYM RegisterClass}
  20019. function RegisterClass(const lpWndClass: TWndClass): ATOM; stdcall;
  20020. {$EXTERNALSYM UnregisterClassA}
  20021. function UnregisterClassA(lpClassName: PAnsiChar; hInstance: HINST): BOOL; stdcall;
  20022. {$EXTERNALSYM UnregisterClassW}
  20023. function UnregisterClassW(lpClassName: PWideChar; hInstance: HINST): BOOL; stdcall;
  20024. {$EXTERNALSYM UnregisterClass}
  20025. function UnregisterClass(lpClassName: PChar; hInstance: HINST): BOOL; stdcall;
  20026. {$EXTERNALSYM GetClassInfoA}
  20027. function GetClassInfoA(hInstance: HINST; lpClassName: PAnsiChar;
  20028.   var lpWndClass: TWndClassA): BOOL; stdcall;
  20029. {$EXTERNALSYM GetClassInfoW}
  20030. function GetClassInfoW(hInstance: HINST; lpClassName: PWideChar;
  20031.   var lpWndClass: TWndClassW): BOOL; stdcall;
  20032. {$EXTERNALSYM GetClassInfo}
  20033. function GetClassInfo(hInstance: HINST; lpClassName: PChar;
  20034.   var lpWndClass: TWndClass): BOOL; stdcall;
  20035. {$EXTERNALSYM RegisterClassExA}
  20036. function RegisterClassExA(const WndClass: TWndClassExA): ATOM; stdcall;
  20037. {$EXTERNALSYM RegisterClassExW}
  20038. function RegisterClassExW(const WndClass: TWndClassExW): ATOM; stdcall;
  20039. {$EXTERNALSYM RegisterClassEx}
  20040. function RegisterClassEx(const WndClass: TWndClassEx): ATOM; stdcall;
  20041. {$EXTERNALSYM GetClassInfoExA}
  20042. function GetClassInfoExA(Instance: HINST; Classname: PAnsiChar; var WndClass: TWndClassExA): BOOL; stdcall;
  20043. {$EXTERNALSYM GetClassInfoExW}
  20044. function GetClassInfoExW(Instance: HINST; Classname: PWideChar; var WndClass: TWndClassExW): BOOL; stdcall;
  20045. {$EXTERNALSYM GetClassInfoEx}
  20046. function GetClassInfoEx(Instance: HINST; Classname: PChar; var WndClass: TWndClassEx): BOOL; stdcall;
  20047.  
  20048. const
  20049.   {$EXTERNALSYM CW_USEDEFAULT}
  20050.   CW_USEDEFAULT = DWORD($80000000);
  20051.  
  20052.   { Special value for CreateWindow, et al. }
  20053.   {$EXTERNALSYM HWND_DESKTOP}
  20054.   HWND_DESKTOP = 0;
  20055.  
  20056. {$EXTERNALSYM CreateWindowExA}
  20057. function CreateWindowExA(dwExStyle: DWORD; lpClassName: PAnsiChar;
  20058.   lpWindowName: PAnsiChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  20059.   hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall;
  20060. {$EXTERNALSYM CreateWindowExW}
  20061. function CreateWindowExW(dwExStyle: DWORD; lpClassName: PWideChar;
  20062.   lpWindowName: PWideChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  20063.   hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall;
  20064. {$EXTERNALSYM CreateWindowEx}
  20065. function CreateWindowEx(dwExStyle: DWORD; lpClassName: PChar;
  20066.   lpWindowName: PChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  20067.   hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall;
  20068. {$EXTERNALSYM CreateWindowA}
  20069. function CreateWindowA(lpClassName: PAnsiChar; lpWindowName: PAnsiChar;
  20070.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer; hWndParent: HWND;
  20071.   hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;
  20072. {$EXTERNALSYM CreateWindowW}
  20073. function CreateWindowW(lpClassName: PWideChar; lpWindowName: PWideChar;
  20074.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer; hWndParent: HWND;
  20075.   hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;
  20076. {$EXTERNALSYM CreateWindow}
  20077. function CreateWindow(lpClassName: PChar; lpWindowName: PChar;
  20078.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer; hWndParent: HWND;
  20079.   hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;
  20080.  
  20081. {$EXTERNALSYM IsWindow}
  20082. function IsWindow(hWnd: HWND): BOOL; stdcall;
  20083. {$EXTERNALSYM IsMenu}
  20084. function IsMenu(hMenu: HMENU): BOOL; stdcall;
  20085. {$EXTERNALSYM IsChild}
  20086. function IsChild(hWndParent, hWnd: HWND): BOOL; stdcall;
  20087. {$EXTERNALSYM DestroyWindow}
  20088. function DestroyWindow(hWnd: HWND): BOOL; stdcall;
  20089. {$EXTERNALSYM ShowWindow}
  20090. function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; stdcall;
  20091. {$EXTERNALSYM AnimateWindow}
  20092. function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL; stdcall;
  20093. {$EXTERNALSYM ShowWindowAsync}
  20094. function ShowWindowAsync(hWnd: HWND; nCmdShow: Integer): BOOL; stdcall;
  20095. {$EXTERNALSYM FlashWindow}
  20096. function FlashWindow(hWnd: HWND; bInvert: BOOL): BOOL; stdcall;
  20097.  
  20098. type
  20099.   FLASHWINFO = record
  20100.     cbSize: UINT;
  20101.     hwnd: HWND;
  20102.     dwFlags: DWORD;
  20103.     uCount: UINT;
  20104.     dwTimeout: DWORD;
  20105.   end;
  20106.   {$EXTERNALSYM FLASHWINFO}
  20107.   PFLASHWINFO = ^FLASHWINFO;
  20108.   {$EXTERNALSYM PFLASHWINFO}
  20109.   TFlashWInfo = FLASHWINFO;
  20110.  
  20111. function FlashWindowEx(var pfwi: FLASHWINFO): BOOL; stdcall;
  20112. {$EXTERNALSYM FlashWindowEx}  
  20113.  
  20114. const
  20115.   {$EXTERNALSYM FLASHW_STOP}
  20116.   FLASHW_STOP = $0;
  20117.   {$EXTERNALSYM FLASHW_CAPTION}
  20118.   FLASHW_CAPTION = $1;
  20119.   {$EXTERNALSYM FLASHW_TRAY}
  20120.   FLASHW_TRAY = $2;
  20121.   {$EXTERNALSYM FLASHW_ALL}
  20122.   FLASHW_ALL = FLASHW_CAPTION or FLASHW_TRAY;
  20123.   {$EXTERNALSYM FLASHW_TIMER}
  20124.   FLASHW_TIMER = $4;
  20125.   {$EXTERNALSYM FLASHW_TIMERNOFG}
  20126.   FLASHW_TIMERNOFG = $C;
  20127.  
  20128. {$EXTERNALSYM ShowOwnedPopups}
  20129. function ShowOwnedPopups(hWnd: HWND; fShow: BOOL): BOOL; stdcall;
  20130. {$EXTERNALSYM OpenIcon}
  20131. function OpenIcon(hWnd: HWND): BOOL; stdcall;
  20132. {$EXTERNALSYM CloseWindow}
  20133. function CloseWindow(hWnd: HWND): BOOL; stdcall;
  20134. {$EXTERNALSYM MoveWindow}
  20135. function MoveWindow(hWnd: HWND; X, Y, nWidth, nHeight: Integer; bRepaint: BOOL): BOOL; stdcall;
  20136. {$EXTERNALSYM SetWindowPos}
  20137. function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND;
  20138.   X, Y, cx, cy: Integer; uFlags: UINT): BOOL; stdcall;
  20139. {$EXTERNALSYM GetWindowPlacement}
  20140. function GetWindowPlacement(hWnd: HWND; WindowPlacement: PWindowPlacement): BOOL; stdcall;
  20141. {$EXTERNALSYM SetWindowPlacement}
  20142. function SetWindowPlacement(hWnd: HWND; WindowPlacement: PWindowPlacement): BOOL; stdcall;
  20143. {$EXTERNALSYM BeginDeferWindowPos}
  20144. function BeginDeferWindowPos(nNumWindows: Integer): HDWP; stdcall;
  20145. {$EXTERNALSYM DeferWindowPos}
  20146. function DeferWindowPos(hWinPosInfo: HDWP; hWnd: HWND;
  20147.   hWndInsertAfter: HWND; x, y, cx, cy: Integer; uFlags: UINT): HDWP; stdcall;
  20148. {$EXTERNALSYM EndDeferWindowPos}
  20149. function EndDeferWindowPos(hWinPosInfo: HDWP): BOOL; stdcall;
  20150. {$EXTERNALSYM IsWindowVisible}
  20151. function IsWindowVisible(hWnd: HWND): BOOL; stdcall;
  20152. {$EXTERNALSYM IsIconic}
  20153. function IsIconic(hWnd: HWND): BOOL; stdcall;
  20154. {$EXTERNALSYM AnyPopup}
  20155. function AnyPopup: BOOL; stdcall;
  20156. {$EXTERNALSYM BringWindowToTop}
  20157. function BringWindowToTop(hWnd: HWND): BOOL; stdcall;
  20158. {$EXTERNALSYM IsZoomed}
  20159. function IsZoomed(hWnd: HWND): BOOL; stdcall;
  20160.  
  20161.  
  20162. const
  20163.   { SetWindowPos Flags }
  20164.   {$EXTERNALSYM SWP_NOSIZE}
  20165.   SWP_NOSIZE = 1;
  20166.   {$EXTERNALSYM SWP_NOMOVE}
  20167.   SWP_NOMOVE = 2;
  20168.   {$EXTERNALSYM SWP_NOZORDER}
  20169.   SWP_NOZORDER = 4;
  20170.   {$EXTERNALSYM SWP_NOREDRAW}
  20171.   SWP_NOREDRAW = 8;
  20172.   {$EXTERNALSYM SWP_NOACTIVATE}
  20173.   SWP_NOACTIVATE = $10;
  20174.   {$EXTERNALSYM SWP_FRAMECHANGED}
  20175.   SWP_FRAMECHANGED = $20;    { The frame changed: send WM_NCCALCSIZE }
  20176.   {$EXTERNALSYM SWP_SHOWWINDOW}
  20177.   SWP_SHOWWINDOW = $40;
  20178.   {$EXTERNALSYM SWP_HIDEWINDOW}
  20179.   SWP_HIDEWINDOW = $80;
  20180.   {$EXTERNALSYM SWP_NOCOPYBITS}
  20181.   SWP_NOCOPYBITS = $100;
  20182.   {$EXTERNALSYM SWP_NOOWNERZORDER}
  20183.   SWP_NOOWNERZORDER = $200;  { Don't do owner Z ordering }
  20184.   {$EXTERNALSYM SWP_NOSENDCHANGING}
  20185.   SWP_NOSENDCHANGING = $400;  { Don't send WM_WINDOWPOSCHANGING }
  20186.   {$EXTERNALSYM SWP_DRAWFRAME}
  20187.   SWP_DRAWFRAME = SWP_FRAMECHANGED;
  20188.   {$EXTERNALSYM SWP_NOREPOSITION}
  20189.   SWP_NOREPOSITION = SWP_NOOWNERZORDER;
  20190.   {$EXTERNALSYM SWP_DEFERERASE}
  20191.   SWP_DEFERERASE = $2000;
  20192.   {$EXTERNALSYM SWP_ASYNCWINDOWPOS}
  20193.   SWP_ASYNCWINDOWPOS = $4000;
  20194.  
  20195.   {$EXTERNALSYM HWND_TOP}
  20196.   HWND_TOP = 0;
  20197.   {$EXTERNALSYM HWND_BOTTOM}
  20198.   HWND_BOTTOM = 1;
  20199.   {$EXTERNALSYM HWND_TOPMOST}
  20200.   HWND_TOPMOST = HWND(-1);
  20201.   {$EXTERNALSYM HWND_NOTOPMOST}
  20202.   HWND_NOTOPMOST = HWND(-2);
  20203.  
  20204.  
  20205. type
  20206.   PDlgTemplate = ^TDlgTemplate;
  20207.   {$EXTERNALSYM DLGTEMPLATE}
  20208.   DLGTEMPLATE = packed record
  20209.     style: DWORD;
  20210.     dwExtendedStyle: DWORD;
  20211.     cdit: Word;
  20212.     x: SHORT;
  20213.     y: SHORT;
  20214.     cx: SHORT;
  20215.     cy: SHORT;
  20216.   end;
  20217.   TDlgTemplate = DLGTEMPLATE;
  20218.  
  20219.   { 32 bit Dialog item template. }
  20220.   PDlgItemTemplate = ^TDlgItemTemplate;
  20221.   {$EXTERNALSYM DLGITEMTEMPLATE}
  20222.   DLGITEMTEMPLATE = packed record
  20223.     style: DWORD;
  20224.     dwExtendedStyle: DWORD;
  20225.     x: SHORT;
  20226.     y: SHORT;
  20227.     cx: SHORT;
  20228.     cy: SHORT;
  20229.     id: Word;
  20230.   end;
  20231.   TDlgItemTemplate = DLGITEMTEMPLATE;
  20232.  
  20233. {$EXTERNALSYM CreateDialogParamA}
  20234. function CreateDialogParamA(hInstance: HINST; lpTemplateName: PAnsiChar;
  20235.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  20236. {$EXTERNALSYM CreateDialogParamW}
  20237. function CreateDialogParamW(hInstance: HINST; lpTemplateName: PWideChar;
  20238.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  20239. {$EXTERNALSYM CreateDialogParam}
  20240. function CreateDialogParam(hInstance: HINST; lpTemplateName: PChar;
  20241.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  20242. {$EXTERNALSYM CreateDialogIndirectParamA}
  20243. function CreateDialogIndirectParamA(hInstance: HINST; const lpTemplate: TDlgTemplate;
  20244.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  20245. {$EXTERNALSYM CreateDialogIndirectParamW}
  20246. function CreateDialogIndirectParamW(hInstance: HINST; const lpTemplate: TDlgTemplate;
  20247.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  20248. {$EXTERNALSYM CreateDialogIndirectParam}
  20249. function CreateDialogIndirectParam(hInstance: HINST; const lpTemplate: TDlgTemplate;
  20250.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND; stdcall;
  20251. {$EXTERNALSYM CreateDialogA}
  20252. function CreateDialogA(hInstance: HINST; lpTemplateName: PAnsiChar;
  20253.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  20254. {$EXTERNALSYM CreateDialogW}
  20255. function CreateDialogW(hInstance: HINST; lpTemplateName: PWideChar;
  20256.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  20257. {$EXTERNALSYM CreateDialog}
  20258. function CreateDialog(hInstance: HINST; lpTemplateName: PChar;
  20259.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  20260. {$EXTERNALSYM CreateDialogIndirectA}
  20261. function CreateDialogIndirectA(hInstance: HINST; const lpTemplate: TDlgTemplate;
  20262.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  20263. {$EXTERNALSYM CreateDialogIndirectW}
  20264. function CreateDialogIndirectW(hInstance: HINST; const lpTemplate: TDlgTemplate;
  20265.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  20266. {$EXTERNALSYM CreateDialogIndirect}
  20267. function CreateDialogIndirect(hInstance: HINST; const lpTemplate: TDlgTemplate;
  20268.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): HWND;
  20269. {$EXTERNALSYM DialogBoxParamA}
  20270. function DialogBoxParamA(hInstance: HINST; lpTemplateName: PAnsiChar;
  20271.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  20272. {$EXTERNALSYM DialogBoxParamW}
  20273. function DialogBoxParamW(hInstance: HINST; lpTemplateName: PWideChar;
  20274.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  20275. {$EXTERNALSYM DialogBoxParam}
  20276. function DialogBoxParam(hInstance: HINST; lpTemplateName: PChar;
  20277.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  20278. {$EXTERNALSYM DialogBoxIndirectParamA}
  20279. function DialogBoxIndirectParamA(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  20280.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  20281. {$EXTERNALSYM DialogBoxIndirectParamW}
  20282. function DialogBoxIndirectParamW(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  20283.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  20284. {$EXTERNALSYM DialogBoxIndirectParam}
  20285. function DialogBoxIndirectParam(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  20286.   hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Integer; stdcall;
  20287. {$EXTERNALSYM DialogBoxA}
  20288. function DialogBoxA(hInstance: HINST; lpTemplate: PAnsiChar;
  20289.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  20290. {$EXTERNALSYM DialogBoxW}
  20291. function DialogBoxW(hInstance: HINST; lpTemplate: PWideChar;
  20292.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  20293. {$EXTERNALSYM DialogBox}
  20294. function DialogBox(hInstance: HINST; lpTemplate: PChar;
  20295.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  20296. {$EXTERNALSYM DialogBoxIndirectA}
  20297. function DialogBoxIndirectA(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  20298.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  20299. {$EXTERNALSYM DialogBoxIndirectW}
  20300. function DialogBoxIndirectW(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  20301.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  20302. {$EXTERNALSYM DialogBoxIndirect}
  20303. function DialogBoxIndirect(hInstance: HINST; const lpDialogTemplate: TDlgTemplate;
  20304.   hWndParent: HWND; lpDialogFunc: TFNDlgProc): Integer;
  20305. {$EXTERNALSYM EndDialog}
  20306. function EndDialog(hDlg: HWND; nResult: Integer): BOOL; stdcall;
  20307. {$EXTERNALSYM GetDlgItem}
  20308. function GetDlgItem(hDlg: HWND; nIDDlgItem: Integer): HWND; stdcall;
  20309. {$EXTERNALSYM SetDlgItemInt}
  20310. function SetDlgItemInt(hDlg: HWND; nIDDlgItem: Integer; uValue: UINT; bSigned: BOOL): BOOL; stdcall;
  20311. {$EXTERNALSYM GetDlgItemInt}
  20312. function GetDlgItemInt(hDlg: HWND; nIDDlgItem: Integer;
  20313.   var lpTranslated: BOOL; bSigned: BOOL): UINT; stdcall;
  20314. {$EXTERNALSYM SetDlgItemTextA}
  20315. function SetDlgItemTextA(hDlg: HWND; nIDDlgItem: Integer; lpString: PAnsiChar): BOOL; stdcall;
  20316. {$EXTERNALSYM SetDlgItemTextW}
  20317. function SetDlgItemTextW(hDlg: HWND; nIDDlgItem: Integer; lpString: PWideChar): BOOL; stdcall;
  20318. {$EXTERNALSYM SetDlgItemText}
  20319. function SetDlgItemText(hDlg: HWND; nIDDlgItem: Integer; lpString: PChar): BOOL; stdcall;
  20320. {$EXTERNALSYM GetDlgItemTextA}
  20321. function GetDlgItemTextA(hDlg: HWND; nIDDlgItem: Integer;
  20322.   lpString: PAnsiChar; nMaxCount: Integer): UINT; stdcall;
  20323. {$EXTERNALSYM GetDlgItemTextW}
  20324. function GetDlgItemTextW(hDlg: HWND; nIDDlgItem: Integer;
  20325.   lpString: PWideChar; nMaxCount: Integer): UINT; stdcall;
  20326. {$EXTERNALSYM GetDlgItemText}
  20327. function GetDlgItemText(hDlg: HWND; nIDDlgItem: Integer;
  20328.   lpString: PChar; nMaxCount: Integer): UINT; stdcall;
  20329. {$EXTERNALSYM CheckDlgButton}
  20330. function CheckDlgButton(hDlg: HWND; nIDButton: Integer; uCheck: UINT): BOOL; stdcall;
  20331. {$EXTERNALSYM CheckRadioButton}
  20332. function CheckRadioButton(hDlg: HWND; nIDFirstButton, nIDLastButton, nIDCheckButton: Integer): BOOL; stdcall;
  20333. {$EXTERNALSYM IsDlgButtonChecked}
  20334. function IsDlgButtonChecked(hDlg: HWND; nIDButton: Integer): UINT; stdcall;
  20335. {$EXTERNALSYM SendDlgItemMessageA}
  20336. function SendDlgItemMessageA(hDlg: HWND; nIDDlgItem: Integer;
  20337.   Msg: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  20338. {$EXTERNALSYM SendDlgItemMessageW}
  20339. function SendDlgItemMessageW(hDlg: HWND; nIDDlgItem: Integer;
  20340.   Msg: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  20341. {$EXTERNALSYM SendDlgItemMessage}
  20342. function SendDlgItemMessage(hDlg: HWND; nIDDlgItem: Integer;
  20343.   Msg: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
  20344. {$EXTERNALSYM GetNextDlgGroupItem}
  20345. function GetNextDlgGroupItem(hDlg: HWND; hCtl: HWND; bPrevious: BOOL): HWND; stdcall;
  20346. {$EXTERNALSYM GetNextDlgTabItem}
  20347. function GetNextDlgTabItem(hDlg: HWND; hCtl: HWND; bPrevious: BOOL): HWND; stdcall;
  20348. {$EXTERNALSYM GetDlgCtrlID}
  20349. function GetDlgCtrlID(hWnd: HWND): Integer; stdcall;
  20350. {$EXTERNALSYM GetDialogBaseUnits}
  20351. function GetDialogBaseUnits: Longint; stdcall;
  20352. {$EXTERNALSYM DefDlgProcA}
  20353. function DefDlgProcA(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  20354. {$EXTERNALSYM DefDlgProcW}
  20355. function DefDlgProcW(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  20356. {$EXTERNALSYM DefDlgProc}
  20357. function DefDlgProc(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  20358.  
  20359. const
  20360.   { Window extra byted needed for private dialog classes. }
  20361.   {$EXTERNALSYM DLGWINDOWEXTRA}
  20362.   DLGWINDOWEXTRA = 30;
  20363.  
  20364. {$EXTERNALSYM CallMsgFilterA}
  20365. function CallMsgFilterA(var lpMsg: TMsg; nCode: Integer): BOOL; stdcall;
  20366. {$EXTERNALSYM CallMsgFilterW}
  20367. function CallMsgFilterW(var lpMsg: TMsg; nCode: Integer): BOOL; stdcall;
  20368. {$EXTERNALSYM CallMsgFilter}
  20369. function CallMsgFilter(var lpMsg: TMsg; nCode: Integer): BOOL; stdcall;
  20370.  
  20371. { Clipboard Manager Functions }
  20372.  
  20373. {$EXTERNALSYM OpenClipboard}
  20374. function OpenClipboard(hWndNewOwner: HWND): BOOL; stdcall;
  20375. {$EXTERNALSYM CloseClipboard}
  20376. function CloseClipboard: BOOL; stdcall;
  20377. {$EXTERNALSYM GetClipboardSequenceNumber}
  20378. function GetClipboardSequenceNumber: DWORD; stdcall;
  20379. {$EXTERNALSYM GetClipboardOwner}
  20380. function GetClipboardOwner: HWND; stdcall;
  20381. {$EXTERNALSYM SetClipboardViewer}
  20382. function SetClipboardViewer(hWndNewViewer: HWND): HWND; stdcall;
  20383. {$EXTERNALSYM GetClipboardViewer}
  20384. function GetClipboardViewer: HWND; stdcall;
  20385. {$EXTERNALSYM ChangeClipboardChain}
  20386. function ChangeClipboardChain(hWndRemove, hWndNewNext: HWND): BOOL; stdcall;
  20387. {$EXTERNALSYM SetClipboardData}
  20388. function SetClipboardData(uFormat: UINT; hMem: THandle): THandle; stdcall;
  20389. {$EXTERNALSYM GetClipboardData}
  20390. function GetClipboardData(uFormat: UINT): THandle; stdcall;
  20391. {$EXTERNALSYM RegisterClipboardFormatA}
  20392. function RegisterClipboardFormatA(lpszFormat: PAnsiChar): UINT; stdcall;
  20393. {$EXTERNALSYM RegisterClipboardFormatW}
  20394. function RegisterClipboardFormatW(lpszFormat: PWideChar): UINT; stdcall;
  20395. {$EXTERNALSYM RegisterClipboardFormat}
  20396. function RegisterClipboardFormat(lpszFormat: PChar): UINT; stdcall;
  20397. {$EXTERNALSYM CountClipboardFormats}
  20398. function CountClipboardFormats: Integer; stdcall;
  20399. {$EXTERNALSYM EnumClipboardFormats}
  20400. function EnumClipboardFormats(format: UINT): UINT; stdcall;
  20401. {$EXTERNALSYM GetClipboardFormatNameA}
  20402. function GetClipboardFormatNameA(format: UINT; lpszFormatName: PAnsiChar;
  20403.   cchMaxCount: Integer): Integer; stdcall;
  20404. {$EXTERNALSYM GetClipboardFormatNameW}
  20405. function GetClipboardFormatNameW(format: UINT; lpszFormatName: PWideChar;
  20406.   cchMaxCount: Integer): Integer; stdcall;
  20407. {$EXTERNALSYM GetClipboardFormatName}
  20408. function GetClipboardFormatName(format: UINT; lpszFormatName: PChar;
  20409.   cchMaxCount: Integer): Integer; stdcall;
  20410. {$EXTERNALSYM EmptyClipboard}
  20411. function EmptyClipboard: BOOL; stdcall;
  20412. {$EXTERNALSYM IsClipboardFormatAvailable}
  20413. function IsClipboardFormatAvailable(format: UINT): BOOL; stdcall;
  20414. {$EXTERNALSYM GetPriorityClipboardFormat}
  20415. function GetPriorityClipboardFormat(var paFormatPriorityList; cFormats: Integer): Integer; stdcall;
  20416. {$EXTERNALSYM GetOpenClipboardWindow}
  20417. function GetOpenClipboardWindow: HWND; stdcall;
  20418.  
  20419. { Character Translation Routines }
  20420.  
  20421. {$EXTERNALSYM CharToOemA}
  20422. function CharToOemA(lpszSrc: PAnsiChar; lpszDst: PAnsiChar): BOOL; stdcall;
  20423. {$EXTERNALSYM CharToOemW}
  20424. function CharToOemW(lpszSrc: PWideChar; lpszDst: PWideChar): BOOL; stdcall;
  20425. {$EXTERNALSYM CharToOem}
  20426. function CharToOem(lpszSrc: PChar; lpszDst: PChar): BOOL; stdcall;
  20427. {$EXTERNALSYM OemToCharA}
  20428. function OemToCharA(lpszSrc: PAnsiChar; lpszDst: PAnsiChar): BOOL; stdcall;
  20429. {$EXTERNALSYM OemToCharW}
  20430. function OemToCharW(lpszSrc: PWideChar; lpszDst: PWideChar): BOOL; stdcall;
  20431. {$EXTERNALSYM OemToChar}
  20432. function OemToChar(lpszSrc: PChar; lpszDst: PChar): BOOL; stdcall;
  20433. {$EXTERNALSYM CharToOemBuffA}
  20434. function CharToOemBuffA(lpszSrc: PAnsiChar; lpszDst: PAnsiChar; cchDstLength: DWORD): BOOL; stdcall;
  20435. {$EXTERNALSYM CharToOemBuffW}
  20436. function CharToOemBuffW(lpszSrc: PWideChar; lpszDst: PWideChar; cchDstLength: DWORD): BOOL; stdcall;
  20437. {$EXTERNALSYM CharToOemBuff}
  20438. function CharToOemBuff(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL; stdcall;
  20439. {$EXTERNALSYM OemToCharBuffA}
  20440. function OemToCharBuffA(lpszSrc: PAnsiChar; lpszDst: PAnsiChar; cchDstLength: DWORD): BOOL; stdcall;
  20441. {$EXTERNALSYM OemToCharBuffW}
  20442. function OemToCharBuffW(lpszSrc: PWideChar; lpszDst: PWideChar; cchDstLength: DWORD): BOOL; stdcall;
  20443. {$EXTERNALSYM OemToCharBuff}
  20444. function OemToCharBuff(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL; stdcall;
  20445. {$EXTERNALSYM CharUpperA}
  20446. function CharUpperA(lpsz: PAnsiChar): PAnsiChar; stdcall;
  20447. {$EXTERNALSYM CharUpperW}
  20448. function CharUpperW(lpsz: PWideChar): PWideChar; stdcall;
  20449. {$EXTERNALSYM CharUpper}
  20450. function CharUpper(lpsz: PChar): PChar; stdcall;
  20451. {$EXTERNALSYM CharUpperBuffA}
  20452. function CharUpperBuffA(lpsz: PAnsiChar; cchLength: DWORD): DWORD; stdcall;
  20453. {$EXTERNALSYM CharUpperBuffW}
  20454. function CharUpperBuffW(lpsz: PWideChar; cchLength: DWORD): DWORD; stdcall;
  20455. {$EXTERNALSYM CharUpperBuff}
  20456. function CharUpperBuff(lpsz: PChar; cchLength: DWORD): DWORD; stdcall;
  20457. {$EXTERNALSYM CharLowerA}
  20458. function CharLowerA(lpsz: PAnsiChar): PAnsiChar; stdcall;
  20459. {$EXTERNALSYM CharLowerW}
  20460. function CharLowerW(lpsz: PWideChar): PWideChar; stdcall;
  20461. {$EXTERNALSYM CharLower}
  20462. function CharLower(lpsz: PChar): PChar; stdcall;
  20463. {$EXTERNALSYM CharLowerBuffA}
  20464. function CharLowerBuffA(lpsz: PAnsiChar; cchLength: DWORD): DWORD; stdcall;
  20465. {$EXTERNALSYM CharLowerBuffW}
  20466. function CharLowerBuffW(lpsz: PWideChar; cchLength: DWORD): DWORD; stdcall;
  20467. {$EXTERNALSYM CharLowerBuff}
  20468. function CharLowerBuff(lpsz: PChar; cchLength: DWORD): DWORD; stdcall;
  20469. {$EXTERNALSYM CharNextA}
  20470. function CharNextA(lpsz: PAnsiChar): PAnsiChar; stdcall;
  20471. {$EXTERNALSYM CharNextW}
  20472. function CharNextW(lpsz: PWideChar): PWideChar; stdcall;
  20473. {$EXTERNALSYM CharNext}
  20474. function CharNext(lpsz: PChar): PChar; stdcall;
  20475. {$EXTERNALSYM CharPrevA}
  20476. function CharPrevA(lpszStart: PAnsiChar; lpszCurrent: PAnsiChar): PAnsiChar; stdcall;
  20477. {$EXTERNALSYM CharPrevW}
  20478. function CharPrevW(lpszStart: PWideChar; lpszCurrent: PWideChar): PWideChar; stdcall;
  20479. {$EXTERNALSYM CharPrev}
  20480. function CharPrev(lpszStart: PChar; lpszCurrent: PChar): PChar; stdcall;
  20481.  
  20482. {$EXTERNALSYM CharNextExA}
  20483. function CharNextExA(CodePage: Word; lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;
  20484. {$EXTERNALSYM CharNextEx}
  20485. function CharNextEx(CodePage: Word; lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;
  20486. {$EXTERNALSYM CharPrevEx}
  20487. function CharPrevEx(CodePage: Word; lpStart, lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;
  20488. {$EXTERNALSYM CharPrevExA}
  20489. function CharPrevExA(CodePage: Word; lpStart, lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;
  20490.  
  20491. { Compatibility defines for character translation routines }
  20492.  
  20493. {$EXTERNALSYM AnsiToOem}
  20494. function AnsiToOem(const lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL; stdcall;
  20495. {$EXTERNALSYM OemToAnsi}
  20496. function OemToAnsi(const lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL; stdcall;
  20497. {$EXTERNALSYM AnsiToOemBuff}
  20498. function AnsiToOemBuff(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;
  20499. {$EXTERNALSYM OemToAnsiBuff}
  20500. function OemToAnsiBuff(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;
  20501. {$EXTERNALSYM AnsiUpper}
  20502. function AnsiUpper(lpsz: LPSTR): LPSTR; stdcall;
  20503. {$EXTERNALSYM AnsiUpperBuff}
  20504. function AnsiUpperBuff(lpsz: LPSTR; cchLength: DWORD): DWORD; stdcall;
  20505. {$EXTERNALSYM AnsiLower}
  20506. function AnsiLower(lpsz: LPSTR): LPSTR; stdcall;
  20507. {$EXTERNALSYM AnsiLowerBuff}
  20508. function AnsiLowerBuff(lpsz: LPSTR; cchLength: DWORD): DWORD; stdcall;
  20509. {$EXTERNALSYM AnsiNext}
  20510. function AnsiNext(const lpsz: LPCSTR): LPSTR; stdcall;
  20511. {$EXTERNALSYM AnsiPrev}
  20512. function AnsiPrev(const lpszStart: LPCSTR; const lpszCurrent: LPCSTR): LPSTR; stdcall;
  20513.  
  20514. { Language dependent Routines }
  20515.  
  20516. {$EXTERNALSYM IsCharAlphaA}
  20517. function IsCharAlphaA(ch: AnsiChar): BOOL; stdcall;
  20518. {$EXTERNALSYM IsCharAlphaW}
  20519. function IsCharAlphaW(ch: WideChar): BOOL; stdcall;
  20520. {$EXTERNALSYM IsCharAlpha}
  20521. function IsCharAlpha(ch: Char): BOOL; stdcall;
  20522. {$EXTERNALSYM IsCharAlphaNumericA}
  20523. function IsCharAlphaNumericA(ch: AnsiChar): BOOL; stdcall;
  20524. {$EXTERNALSYM IsCharAlphaNumericW}
  20525. function IsCharAlphaNumericW(ch: WideChar): BOOL; stdcall;
  20526. {$EXTERNALSYM IsCharAlphaNumeric}
  20527. function IsCharAlphaNumeric(ch: Char): BOOL; stdcall;
  20528. {$EXTERNALSYM IsCharUpperA}
  20529. function IsCharUpperA(ch: AnsiChar): BOOL; stdcall;
  20530. {$EXTERNALSYM IsCharUpperW}
  20531. function IsCharUpperW(ch: WideChar): BOOL; stdcall;
  20532. {$EXTERNALSYM IsCharUpper}
  20533. function IsCharUpper(ch: Char): BOOL; stdcall;
  20534. {$EXTERNALSYM IsCharLowerA}
  20535. function IsCharLowerA(ch: AnsiChar): BOOL; stdcall;
  20536. {$EXTERNALSYM IsCharLowerW}
  20537. function IsCharLowerW(ch: WideChar): BOOL; stdcall;
  20538. {$EXTERNALSYM IsCharLower}
  20539. function IsCharLower(ch: Char): BOOL; stdcall;
  20540.  
  20541. {$EXTERNALSYM SetFocus}
  20542. function SetFocus(hWnd: HWND): HWND; stdcall;
  20543. {$EXTERNALSYM GetActiveWindow}
  20544. function GetActiveWindow: HWND; stdcall;
  20545. {$EXTERNALSYM GetFocus}
  20546. function GetFocus: HWND; stdcall;
  20547. {$EXTERNALSYM GetKBCodePage}
  20548. function GetKBCodePage: UINT; stdcall;
  20549. {$EXTERNALSYM GetKeyState}
  20550. function GetKeyState(nVirtKey: Integer): SHORT; stdcall;
  20551. {$EXTERNALSYM GetAsyncKeyState}
  20552. function GetAsyncKeyState(vKey: Integer): SHORT; stdcall;
  20553.  
  20554. type
  20555.   PKeyboardState = ^TKeyboardState;
  20556.   TKeyboardState = array[0..255] of Byte;
  20557.  
  20558. {$EXTERNALSYM GetKeyboardState}
  20559. function GetKeyboardState(var KeyState: TKeyboardState): BOOL; stdcall;
  20560. {$EXTERNALSYM SetKeyboardState}
  20561. function SetKeyboardState(var KeyState: TKeyboardState): BOOL; stdcall;
  20562. {$EXTERNALSYM GetKeyNameTextA}
  20563. function GetKeyNameTextA(lParam: Longint; lpString: PAnsiChar; nSize: Integer): Integer; stdcall;
  20564. {$EXTERNALSYM GetKeyNameTextW}
  20565. function GetKeyNameTextW(lParam: Longint; lpString: PWideChar; nSize: Integer): Integer; stdcall;
  20566. {$EXTERNALSYM GetKeyNameText}
  20567. function GetKeyNameText(lParam: Longint; lpString: PChar; nSize: Integer): Integer; stdcall;
  20568. {$EXTERNALSYM GetKeyboardType}
  20569. function GetKeyboardType(nTypeFlag: Integer): Integer; stdcall;
  20570. {$EXTERNALSYM ToAscii}
  20571. function ToAscii(uVirtKey, uScanCode: UINT; const KeyState: TKeyboardState;
  20572.   lpChar: PChar; uFlags: UINT): Integer; stdcall;
  20573. {$EXTERNALSYM ToAsciiEx}
  20574. function ToAsciiEx(uVirtKey: UINT; uScanCode: UINT; const KeyState: TKeyboardState;
  20575.   lpChar: PChar; uFlags: UINT; dwhkl: HKL): Integer; stdcall;
  20576. {$EXTERNALSYM ToUnicode}
  20577. function ToUnicode(wVirtKey, wScanCode: UINT; const KeyState: TKeyboardState;
  20578.   var pwszBuff; cchBuff: Integer; wFlags: UINT): Integer; stdcall;
  20579. {$EXTERNALSYM OemKeyScan}
  20580. function OemKeyScan(wOemChar: Word): DWORD; stdcall;
  20581.  
  20582. {$EXTERNALSYM VkKeyScanA}
  20583. function VkKeyScanA(ch: AnsiChar): SHORT; stdcall;
  20584. {$EXTERNALSYM VkKeyScanW}
  20585. function VkKeyScanW(ch: WideChar): SHORT; stdcall;
  20586. {$EXTERNALSYM VkKeyScan}
  20587. function VkKeyScan(ch: Char): SHORT; stdcall;
  20588. {$EXTERNALSYM VkKeyScanExA}
  20589. function VkKeyScanExA(ch: AnsiChar; dwhkl: HKL): SHORT; stdcall;
  20590. {$EXTERNALSYM VkKeyScanExW}
  20591. function VkKeyScanExW(ch: WideChar; dwhkl: HKL): SHORT; stdcall;
  20592. {$EXTERNALSYM VkKeyScanEx}
  20593. function VkKeyScanEx(ch: Char; dwhkl: HKL): SHORT; stdcall;
  20594.  
  20595. const
  20596.   {$EXTERNALSYM KEYEVENTF_EXTENDEDKEY}
  20597.   KEYEVENTF_EXTENDEDKEY = 1;
  20598.   {$EXTERNALSYM KEYEVENTF_KEYUP}
  20599.   KEYEVENTF_KEYUP = 2;
  20600.  
  20601. {$EXTERNALSYM keybd_event}
  20602. procedure keybd_event(bVk: Byte; bScan: Byte; dwFlags, dwExtraInfo: DWORD); stdcall;
  20603.  
  20604. const
  20605.   {$EXTERNALSYM MOUSEEVENTF_MOVE}
  20606.   MOUSEEVENTF_MOVE            = $0001; { mouse move }
  20607.   {$EXTERNALSYM MOUSEEVENTF_LEFTDOWN}
  20608.   MOUSEEVENTF_LEFTDOWN        = $0002; { left button down }
  20609.   {$EXTERNALSYM MOUSEEVENTF_LEFTUP}
  20610.   MOUSEEVENTF_LEFTUP          = $0004; { left button up }
  20611.   {$EXTERNALSYM MOUSEEVENTF_RIGHTDOWN}
  20612.   MOUSEEVENTF_RIGHTDOWN       = $0008; { right button down }
  20613.   {$EXTERNALSYM MOUSEEVENTF_RIGHTUP}
  20614.   MOUSEEVENTF_RIGHTUP         = $0010; { right button up }
  20615.   {$EXTERNALSYM MOUSEEVENTF_MIDDLEDOWN}
  20616.   MOUSEEVENTF_MIDDLEDOWN      = $0020; { middle button down }
  20617.   {$EXTERNALSYM MOUSEEVENTF_MIDDLEUP}
  20618.   MOUSEEVENTF_MIDDLEUP        = $0040; { middle button up }
  20619.   {$EXTERNALSYM MOUSEEVENTF_WHEEL}
  20620.   MOUSEEVENTF_WHEEL           = $0800; { wheel button rolled }
  20621.   {$EXTERNALSYM MOUSEEVENTF_ABSOLUTE}
  20622.   MOUSEEVENTF_ABSOLUTE        = $8000; { absolute move }
  20623.  
  20624. {$EXTERNALSYM mouse_event}
  20625. procedure mouse_event(dwFlags, dx, dy, dwData, dwExtraInfo: DWORD); stdcall;
  20626.  
  20627. type
  20628.   PMouseInput = ^TMouseInput;
  20629.   {$EXTERNALSYM tagMOUSEINPUT}
  20630.   tagMOUSEINPUT = packed record
  20631.     dx: Longint;
  20632.     dy: Longint;
  20633.     mouseData: DWORD;
  20634.     dwFlags: DWORD;
  20635.     time: DWORD;
  20636.     dwExtraInfo: DWORD;
  20637.   end;
  20638.   TMouseInput = tagMOUSEINPUT;
  20639.  
  20640.   PKeybdInput = ^TKeybdInput;
  20641.   {$EXTERNALSYM tagKEYBDINPUT}
  20642.   tagKEYBDINPUT = packed record
  20643.     wVk: WORD;
  20644.     wScan: WORD;
  20645.     dwFlags: DWORD;
  20646.     time: DWORD;
  20647.     dwExtraInfo: DWORD;
  20648.   end;
  20649.   TKeybdInput = tagKEYBDINPUT;
  20650.  
  20651.   PHardwareInput = ^THardwareInput;
  20652.   {$EXTERNALSYM tagHARDWAREINPUT}
  20653.   tagHARDWAREINPUT = packed record
  20654.     uMsg: DWORD;
  20655.     wParamL: WORD;
  20656.     wParamH: WORD;
  20657.   end;
  20658.   THardwareInput = tagHARDWAREINPUT;
  20659.  
  20660. const
  20661.   {$EXTERNALSYM INPUT_MOUSE}
  20662.   INPUT_MOUSE = 0;
  20663.   {$EXTERNALSYM INPUT_KEYBOARD}
  20664.   INPUT_KEYBOARD = 1;
  20665.   {$EXTERNALSYM INPUT_HARDWARE}
  20666.   INPUT_HARDWARE = 2;
  20667.  
  20668. type
  20669.   PInput = ^TInput;
  20670.   {$EXTERNALSYM tagINPUT}
  20671.   tagINPUT = packed record
  20672.     Itype: DWORD;
  20673.     case Integer of
  20674.       0: (mi: TMouseInput);
  20675.       1: (ki: TKeybdInput);
  20676.       2: (hi: THardwareInput);
  20677.   end;
  20678.   TInput = tagINPUT;
  20679.  
  20680. {$EXTERNALSYM SendInput}
  20681. function SendInput(cInputs: UINT; var pInputs: TInput; cbSize: Integer): UINT; stdcall;
  20682.  
  20683. type
  20684.   PLastInputInfo = ^TLastInputInfo;
  20685.   {$EXTERNALSYM tagLASTINPUTINFO}
  20686.   tagLASTINPUTINFO = packed record
  20687.     cbSize: UINT;
  20688.     dwTime: DWORD;
  20689.   end;
  20690.   TLastInputInfo = tagLASTINPUTINFO;
  20691.  
  20692. {$EXTERNALSYM GetLastInputInfo}
  20693. function GetLastInputInfo(var plii: TLastInputInfo): BOOL; stdcall;
  20694.  
  20695. {$EXTERNALSYM MapVirtualKeyA}
  20696. function MapVirtualKeyA(uCode, uMapType: UINT): UINT; stdcall;
  20697. {$EXTERNALSYM MapVirtualKeyW}
  20698. function MapVirtualKeyW(uCode, uMapType: UINT): UINT; stdcall;
  20699. {$EXTERNALSYM MapVirtualKey}
  20700. function MapVirtualKey(uCode, uMapType: UINT): UINT; stdcall;
  20701. {$EXTERNALSYM MapVirtualKeyExA}
  20702. function MapVirtualKeyExA(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;
  20703. {$EXTERNALSYM MapVirtualKeyExW}
  20704. function MapVirtualKeyExW(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;
  20705. {$EXTERNALSYM MapVirtualKeyEx}
  20706. function MapVirtualKeyEx(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;
  20707. {$EXTERNALSYM GetInputState}
  20708. function GetInputState: BOOL; stdcall;
  20709. {$EXTERNALSYM GetQueueStatus}
  20710. function GetQueueStatus(flags: UINT): DWORD; stdcall;
  20711. {$EXTERNALSYM GetCapture}
  20712. function GetCapture: HWND; stdcall;
  20713. {$EXTERNALSYM SetCapture}
  20714. function SetCapture(hWnd: HWND): HWND; stdcall;
  20715. {$EXTERNALSYM ReleaseCapture}
  20716. function ReleaseCapture: BOOL; stdcall;
  20717. {$EXTERNALSYM MsgWaitForMultipleObjects}
  20718. function MsgWaitForMultipleObjects(nCount: DWORD; var pHandles;
  20719.   fWaitAll: BOOL; dwMilliseconds, dwWakeMask: DWORD): DWORD; stdcall;
  20720. {$EXTERNALSYM MsgWaitForMultipleObjectsEx}
  20721. function MsgWaitForMultipleObjectsEx(nCount: DWORD; var pHandles;
  20722.   dwMilliseconds, dwWakeMask, dwFlags: DWORD): DWORD; stdcall;
  20723.  
  20724. const
  20725.   {$EXTERNALSYM MWMO_WAITALL}
  20726.   MWMO_WAITALL = $0001;
  20727.   {$EXTERNALSYM MWMO_ALERTABLE}
  20728.   MWMO_ALERTABLE = $0002;
  20729.  
  20730.   { Queue status flags for GetQueueStatus() and MsgWaitForMultipleObjects() }
  20731.   {$EXTERNALSYM QS_KEY}
  20732.   QS_KEY                  = $0001;
  20733.   {$EXTERNALSYM QS_MOUSEMOVE}
  20734.   QS_MOUSEMOVE            = $0002;
  20735.   {$EXTERNALSYM QS_MOUSEBUTTON}
  20736.   QS_MOUSEBUTTON          = $0004;
  20737.   {$EXTERNALSYM QS_POSTMESSAGE}
  20738.   QS_POSTMESSAGE          = $0008;
  20739.   {$EXTERNALSYM QS_TIMER}
  20740.   QS_TIMER                = $0010;
  20741.   {$EXTERNALSYM QS_PAINT}
  20742.   QS_PAINT                = $0020;
  20743.   {$EXTERNALSYM QS_SENDMESSAGE}
  20744.   QS_SENDMESSAGE          = $0040;
  20745.   {$EXTERNALSYM QS_HOTKEY}
  20746.   QS_HOTKEY               = $0080;
  20747.   {$EXTERNALSYM QS_ALLPOSTMESSAGE}
  20748.   QS_ALLPOSTMESSAGE       = $0100;
  20749.  
  20750.   {$EXTERNALSYM QS_MOUSE}
  20751.   QS_MOUSE = (QS_MOUSEMOVE or QS_MOUSEBUTTON);
  20752.   {$EXTERNALSYM QS_INPUT}
  20753.   QS_INPUT = (QS_MOUSE or QS_KEY);
  20754.   {$EXTERNALSYM QS_ALLEVENTS}
  20755.   QS_ALLEVENTS = (QS_INPUT or QS_POSTMESSAGE or QS_TIMER or QS_PAINT
  20756.     or QS_HOTKEY);
  20757.   {$EXTERNALSYM QS_ALLINPUT}
  20758.   QS_ALLINPUT = (QS_INPUT or QS_POSTMESSAGE or QS_TIMER or QS_PAINT
  20759.     or QS_HOTKEY or QS_SENDMESSAGE);
  20760.  
  20761.  
  20762. { Windows Functions }
  20763.  
  20764. {$EXTERNALSYM SetTimer}
  20765. function SetTimer(hWnd: HWND; nIDEvent, uElapse: UINT;
  20766.   lpTimerFunc: TFNTimerProc): UINT; stdcall;
  20767. {$EXTERNALSYM KillTimer}
  20768. function KillTimer(hWnd: HWND; uIDEvent: UINT): BOOL; stdcall;
  20769. {$EXTERNALSYM IsWindowUnicode}
  20770. function IsWindowUnicode(hWnd: HWND): BOOL; stdcall;
  20771. {$EXTERNALSYM EnableWindow}
  20772. function EnableWindow(hWnd: HWND; bEnable: BOOL): BOOL; stdcall;
  20773. {$EXTERNALSYM IsWindowEnabled}
  20774. function IsWindowEnabled(hWnd: HWND): BOOL; stdcall;
  20775. {$EXTERNALSYM LoadAcceleratorsA}
  20776. function LoadAcceleratorsA(hInstance: HINST; lpTableName: PAnsiChar): HACCEL; stdcall;
  20777. {$EXTERNALSYM LoadAcceleratorsW}
  20778. function LoadAcceleratorsW(hInstance: HINST; lpTableName: PWideChar): HACCEL; stdcall;
  20779. {$EXTERNALSYM LoadAccelerators}
  20780. function LoadAccelerators(hInstance: HINST; lpTableName: PChar): HACCEL; stdcall;
  20781. {$EXTERNALSYM CreateAcceleratorTableA}
  20782. function CreateAcceleratorTableA(var Accel; Count: Integer): HACCEL; stdcall;
  20783. {$EXTERNALSYM CreateAcceleratorTableW}
  20784. function CreateAcceleratorTableW(var Accel; Count: Integer): HACCEL; stdcall;
  20785. {$EXTERNALSYM CreateAcceleratorTable}
  20786. function CreateAcceleratorTable(var Accel; Count: Integer): HACCEL; stdcall;
  20787. {$EXTERNALSYM CopyAcceleratorTableA}
  20788. function CopyAcceleratorTableA(hAccelSrc: HACCEL; var lpAccelDst; cAccelEntries: Integer): Integer; stdcall;
  20789. {$EXTERNALSYM CopyAcceleratorTableW}
  20790. function CopyAcceleratorTableW(hAccelSrc: HACCEL; var lpAccelDst; cAccelEntries: Integer): Integer; stdcall;
  20791. {$EXTERNALSYM CopyAcceleratorTable}
  20792. function CopyAcceleratorTable(hAccelSrc: HACCEL; var lpAccelDst; cAccelEntries: Integer): Integer; stdcall;
  20793. {$EXTERNALSYM TranslateAcceleratorA}
  20794. function TranslateAcceleratorA(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; stdcall;
  20795. {$EXTERNALSYM TranslateAcceleratorW}
  20796. function TranslateAcceleratorW(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; stdcall;
  20797. {$EXTERNALSYM TranslateAccelerator}
  20798. function TranslateAccelerator(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; stdcall;
  20799. {$EXTERNALSYM DestroyAcceleratorTable}
  20800. function DestroyAcceleratorTable(hAccel: HACCEL): BOOL; stdcall;
  20801.  
  20802. const
  20803.   { GetSystemMetrics() codes }
  20804.   {$EXTERNALSYM SM_CXSCREEN}
  20805.   SM_CXSCREEN = 0;
  20806.   {$EXTERNALSYM SM_CYSCREEN}
  20807.   SM_CYSCREEN = 1;
  20808.   {$EXTERNALSYM SM_CXVSCROLL}
  20809.   SM_CXVSCROLL = 2;
  20810.   {$EXTERNALSYM SM_CYHSCROLL}
  20811.   SM_CYHSCROLL = 3;
  20812.   {$EXTERNALSYM SM_CYCAPTION}
  20813.   SM_CYCAPTION = 4;
  20814.   {$EXTERNALSYM SM_CXBORDER}
  20815.   SM_CXBORDER = 5;
  20816.   {$EXTERNALSYM SM_CYBORDER}
  20817.   SM_CYBORDER = 6;
  20818.   {$EXTERNALSYM SM_CXDLGFRAME}
  20819.   SM_CXDLGFRAME = 7;
  20820.   {$EXTERNALSYM SM_CYDLGFRAME}
  20821.   SM_CYDLGFRAME = 8;
  20822.   {$EXTERNALSYM SM_CYVTHUMB}
  20823.   SM_CYVTHUMB = 9;
  20824.   {$EXTERNALSYM SM_CXHTHUMB}
  20825.   SM_CXHTHUMB = 10;
  20826.   {$EXTERNALSYM SM_CXICON}
  20827.   SM_CXICON = 11;
  20828.   {$EXTERNALSYM SM_CYICON}
  20829.   SM_CYICON = 12;
  20830.   {$EXTERNALSYM SM_CXCURSOR}
  20831.   SM_CXCURSOR = 13;
  20832.   {$EXTERNALSYM SM_CYCURSOR}
  20833.   SM_CYCURSOR = 14;
  20834.   {$EXTERNALSYM SM_CYMENU}
  20835.   SM_CYMENU = 15;
  20836.   {$EXTERNALSYM SM_CXFULLSCREEN}
  20837.   SM_CXFULLSCREEN = $10;
  20838.   {$EXTERNALSYM SM_CYFULLSCREEN}
  20839.   SM_CYFULLSCREEN = 17;
  20840.   {$EXTERNALSYM SM_CYKANJIWINDOW}
  20841.   SM_CYKANJIWINDOW = 18;
  20842.   {$EXTERNALSYM SM_MOUSEPRESENT}
  20843.   SM_MOUSEPRESENT = 19;
  20844.   {$EXTERNALSYM SM_CYVSCROLL}
  20845.   SM_CYVSCROLL = 20;
  20846.   {$EXTERNALSYM SM_CXHSCROLL}
  20847.   SM_CXHSCROLL = 21;
  20848.   {$EXTERNALSYM SM_DEBUG}
  20849.   SM_DEBUG = 22;
  20850.   {$EXTERNALSYM SM_SWAPBUTTON}
  20851.   SM_SWAPBUTTON = 23;
  20852.   {$EXTERNALSYM SM_RESERVED1}
  20853.   SM_RESERVED1 = 24;
  20854.   {$EXTERNALSYM SM_RESERVED2}
  20855.   SM_RESERVED2 = 25;
  20856.   {$EXTERNALSYM SM_RESERVED3}
  20857.   SM_RESERVED3 = 26;
  20858.   {$EXTERNALSYM SM_RESERVED4}
  20859.   SM_RESERVED4 = 27;
  20860.   {$EXTERNALSYM SM_CXMIN}
  20861.   SM_CXMIN = 28;
  20862.   {$EXTERNALSYM SM_CYMIN}
  20863.   SM_CYMIN = 29;
  20864.   {$EXTERNALSYM SM_CXSIZE}
  20865.   SM_CXSIZE = 30;
  20866.   {$EXTERNALSYM SM_CYSIZE}
  20867.   SM_CYSIZE = 31;
  20868.   {$EXTERNALSYM SM_CXFRAME}
  20869.   SM_CXFRAME = $20;
  20870.   {$EXTERNALSYM SM_CYFRAME}
  20871.   SM_CYFRAME = 33;
  20872.   {$EXTERNALSYM SM_CXMINTRACK}
  20873.   SM_CXMINTRACK = 34;
  20874.   {$EXTERNALSYM SM_CYMINTRACK}
  20875.   SM_CYMINTRACK = 35;
  20876.   {$EXTERNALSYM SM_CXDOUBLECLK}
  20877.   SM_CXDOUBLECLK = 36;
  20878.   {$EXTERNALSYM SM_CYDOUBLECLK}
  20879.   SM_CYDOUBLECLK = 37;
  20880.   {$EXTERNALSYM SM_CXICONSPACING}
  20881.   SM_CXICONSPACING = 38;
  20882.   {$EXTERNALSYM SM_CYICONSPACING}
  20883.   SM_CYICONSPACING = 39;
  20884.   {$EXTERNALSYM SM_MENUDROPALIGNMENT}
  20885.   SM_MENUDROPALIGNMENT = 40;
  20886.   {$EXTERNALSYM SM_PENWINDOWS}
  20887.   SM_PENWINDOWS = 41;
  20888.   {$EXTERNALSYM SM_DBCSENABLED}
  20889.   SM_DBCSENABLED = 42;
  20890.   {$EXTERNALSYM SM_CMOUSEBUTTONS}
  20891.   SM_CMOUSEBUTTONS = 43;
  20892.  
  20893.   {$EXTERNALSYM SM_CXFIXEDFRAME}
  20894.   SM_CXFIXEDFRAME = SM_CXDLGFRAME; { win40 name change }
  20895.   {$EXTERNALSYM SM_CYFIXEDFRAME}
  20896.   SM_CYFIXEDFRAME = SM_CYDLGFRAME; { win40 name change }
  20897.   {$EXTERNALSYM SM_CXSIZEFRAME}
  20898.   SM_CXSIZEFRAME = SM_CXFRAME;     { win40 name change }
  20899.   {$EXTERNALSYM SM_CYSIZEFRAME}
  20900.   SM_CYSIZEFRAME = SM_CYFRAME;     { win40 name change }
  20901.  
  20902.   {$EXTERNALSYM SM_SECURE}
  20903.   SM_SECURE = 44;
  20904.   {$EXTERNALSYM SM_CXEDGE}
  20905.   SM_CXEDGE = 45;
  20906.   {$EXTERNALSYM SM_CYEDGE}
  20907.   SM_CYEDGE = 46;
  20908.   {$EXTERNALSYM SM_CXMINSPACING}
  20909.   SM_CXMINSPACING = 47;
  20910.   {$EXTERNALSYM SM_CYMINSPACING}
  20911.   SM_CYMINSPACING = 48;
  20912.   {$EXTERNALSYM SM_CXSMICON}
  20913.   SM_CXSMICON = 49;
  20914.   {$EXTERNALSYM SM_CYSMICON}
  20915.   SM_CYSMICON = 50;
  20916.   {$EXTERNALSYM SM_CYSMCAPTION}
  20917.   SM_CYSMCAPTION = 51;
  20918.   {$EXTERNALSYM SM_CXSMSIZE}
  20919.   SM_CXSMSIZE = 52;
  20920.   {$EXTERNALSYM SM_CYSMSIZE}
  20921.   SM_CYSMSIZE = 53;
  20922.   {$EXTERNALSYM SM_CXMENUSIZE}
  20923.   SM_CXMENUSIZE = 54;
  20924.   {$EXTERNALSYM SM_CYMENUSIZE}
  20925.   SM_CYMENUSIZE = 55;
  20926.   {$EXTERNALSYM SM_ARRANGE}
  20927.   SM_ARRANGE = 56;
  20928.   {$EXTERNALSYM SM_CXMINIMIZED}
  20929.   SM_CXMINIMIZED = 57;
  20930.   {$EXTERNALSYM SM_CYMINIMIZED}
  20931.   SM_CYMINIMIZED = 58;
  20932.   {$EXTERNALSYM SM_CXMAXTRACK}
  20933.   SM_CXMAXTRACK = 59;
  20934.   {$EXTERNALSYM SM_CYMAXTRACK}
  20935.   SM_CYMAXTRACK = 60;
  20936.   {$EXTERNALSYM SM_CXMAXIMIZED}
  20937.   SM_CXMAXIMIZED = 61;
  20938.   {$EXTERNALSYM SM_CYMAXIMIZED}
  20939.   SM_CYMAXIMIZED = 62;
  20940.   {$EXTERNALSYM SM_NETWORK}
  20941.   SM_NETWORK = 63;
  20942.   {$EXTERNALSYM SM_CLEANBOOT}
  20943.   SM_CLEANBOOT = 67;
  20944.   {$EXTERNALSYM SM_CXDRAG}
  20945.   SM_CXDRAG = 68;
  20946.   {$EXTERNALSYM SM_CYDRAG}
  20947.   SM_CYDRAG = 69;
  20948.   {$EXTERNALSYM SM_SHOWSOUNDS}
  20949.   SM_SHOWSOUNDS = 70;
  20950.   {$EXTERNALSYM SM_CXMENUCHECK}
  20951.   SM_CXMENUCHECK = 71;     { Use instead of GetMenuCheckMarkDimensions()! }
  20952.   {$EXTERNALSYM SM_CYMENUCHECK}
  20953.   SM_CYMENUCHECK = 72;
  20954.   {$EXTERNALSYM SM_SLOWMACHINE}
  20955.   SM_SLOWMACHINE = 73;
  20956.   {$EXTERNALSYM SM_MIDEASTENABLED}
  20957.   SM_MIDEASTENABLED = 74;
  20958.   {$EXTERNALSYM SM_MOUSEWHEELPRESENT}
  20959.   SM_MOUSEWHEELPRESENT = 75;
  20960.   {$EXTERNALSYM SM_CMETRICS}
  20961.   SM_CMETRICS = 76;
  20962.  
  20963. {$EXTERNALSYM GetSystemMetrics}
  20964. function GetSystemMetrics(nIndex: Integer): Integer; stdcall;
  20965. {$EXTERNALSYM LoadMenuA}
  20966. function LoadMenuA(hInstance: HINST; lpMenuName: PAnsiChar): HMENU; stdcall;
  20967. {$EXTERNALSYM LoadMenuW}
  20968. function LoadMenuW(hInstance: HINST; lpMenuName: PAnsiChar): HMENU; stdcall;
  20969. {$EXTERNALSYM LoadMenu}
  20970. function LoadMenu(hInstance: HINST; lpMenuName: PAnsiChar): HMENU; stdcall;
  20971. {$EXTERNALSYM LoadMenuIndirectA}
  20972. function LoadMenuIndirectA(lpMenuTemplate: Pointer): HMENU; stdcall;
  20973. {$EXTERNALSYM LoadMenuIndirectW}
  20974. function LoadMenuIndirectW(lpMenuTemplate: Pointer): HMENU; stdcall;
  20975. {$EXTERNALSYM LoadMenuIndirect}
  20976. function LoadMenuIndirect(lpMenuTemplate: Pointer): HMENU; stdcall;
  20977. {$EXTERNALSYM GetMenu}
  20978. function GetMenu(hWnd: HWND): HMENU; stdcall;
  20979. {$EXTERNALSYM SetMenu}
  20980. function SetMenu(hWnd: HWND; hMenu: HMENU): BOOL; stdcall;
  20981. {$EXTERNALSYM ChangeMenuA}
  20982. function ChangeMenuA(hMenu: HMENU; cmd: UINT; lpszNewItem: PAnsiChar;
  20983.   cmdInsert: UINT; flags: UINT): BOOL; stdcall;
  20984. {$EXTERNALSYM ChangeMenuW}
  20985. function ChangeMenuW(hMenu: HMENU; cmd: UINT; lpszNewItem: PWideChar;
  20986.   cmdInsert: UINT; flags: UINT): BOOL; stdcall;
  20987. {$EXTERNALSYM ChangeMenu}
  20988. function ChangeMenu(hMenu: HMENU; cmd: UINT; lpszNewItem: PChar;
  20989.   cmdInsert: UINT; flags: UINT): BOOL; stdcall;
  20990. {$EXTERNALSYM HiliteMenuItem}
  20991. function HiliteMenuItem(hWnd: HWND; hMenu: HMENU; uIDHiliteItem: UINT;
  20992.   uHilite: UINT): BOOL; stdcall;
  20993. {$EXTERNALSYM GetMenuStringA}
  20994. function GetMenuStringA(hMenu: HMENU; uIDItem: UINT; lpString: PAnsiChar;
  20995.   nMaxCount: Integer; uFlag: UINT): Integer; stdcall;
  20996. {$EXTERNALSYM GetMenuStringW}
  20997. function GetMenuStringW(hMenu: HMENU; uIDItem: UINT; lpString: PWideChar;
  20998.   nMaxCount: Integer; uFlag: UINT): Integer; stdcall;
  20999. {$EXTERNALSYM GetMenuString}
  21000. function GetMenuString(hMenu: HMENU; uIDItem: UINT; lpString: PChar;
  21001.   nMaxCount: Integer; uFlag: UINT): Integer; stdcall;
  21002. {$EXTERNALSYM GetMenuState}
  21003. function GetMenuState(hMenu: HMENU; uId, uFlags: UINT): UINT; stdcall;
  21004. {$EXTERNALSYM DrawMenuBar}
  21005. function DrawMenuBar(hWnd: HWND): BOOL; stdcall;
  21006. {$EXTERNALSYM GetSystemMenu}
  21007. function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; stdcall;
  21008. {$EXTERNALSYM CreateMenu}
  21009. function CreateMenu: HMENU; stdcall;
  21010. {$EXTERNALSYM CreatePopupMenu}
  21011. function CreatePopupMenu: HMENU; stdcall;
  21012. {$EXTERNALSYM DestroyMenu}
  21013. function DestroyMenu(hMenu: HMENU): BOOL; stdcall;
  21014. {$EXTERNALSYM CheckMenuItem}
  21015. function CheckMenuItem(hMenu: HMENU; uIDCheckItem, uCheck: UINT): DWORD; stdcall;
  21016. {$EXTERNALSYM EnableMenuItem}
  21017. function EnableMenuItem(hMenu: HMENU; uIDEnableItem, uEnable: UINT): BOOL; stdcall;
  21018. {$EXTERNALSYM GetSubMenu}
  21019. function GetSubMenu(hMenu: HMENU; nPos: Integer): HMENU; stdcall;
  21020. {$EXTERNALSYM GetMenuItemID}
  21021. function GetMenuItemID(hMenu: HMENU; nPos: Integer): UINT; stdcall;
  21022. {$EXTERNALSYM GetMenuItemCount}
  21023. function GetMenuItemCount(hMenu: HMENU): Integer; stdcall;
  21024. {$EXTERNALSYM InsertMenuA}
  21025. function InsertMenuA(hMenu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  21026.   lpNewItem: PAnsiChar): BOOL; stdcall;
  21027. {$EXTERNALSYM InsertMenuW}
  21028. function InsertMenuW(hMenu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  21029.   lpNewItem: PWideChar): BOOL; stdcall;
  21030. {$EXTERNALSYM InsertMenu}
  21031. function InsertMenu(hMenu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  21032.   lpNewItem: PChar): BOOL; stdcall;
  21033. {$EXTERNALSYM AppendMenuA}
  21034. function AppendMenuA(hMenu: HMENU; uFlags, uIDNewItem: UINT;
  21035.   lpNewItem: PAnsiChar): BOOL; stdcall;
  21036. {$EXTERNALSYM AppendMenuW}
  21037. function AppendMenuW(hMenu: HMENU; uFlags, uIDNewItem: UINT;
  21038.   lpNewItem: PWideChar): BOOL; stdcall;
  21039. {$EXTERNALSYM AppendMenu}
  21040. function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT;
  21041.   lpNewItem: PChar): BOOL; stdcall;
  21042. {$EXTERNALSYM ModifyMenuA}
  21043. function ModifyMenuA(hMnu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  21044.   lpNewItem: PAnsiChar): BOOL; stdcall;
  21045. {$EXTERNALSYM ModifyMenuW}
  21046. function ModifyMenuW(hMnu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  21047.   lpNewItem: PWideChar): BOOL; stdcall;
  21048. {$EXTERNALSYM ModifyMenu}
  21049. function ModifyMenu(hMnu: HMENU; uPosition, uFlags, uIDNewItem: UINT;
  21050.   lpNewItem: PChar): BOOL; stdcall;
  21051. {$EXTERNALSYM RemoveMenu}
  21052. function RemoveMenu(hMenu: HMENU; uPosition, uFlags: UINT): BOOL; stdcall;
  21053. {$EXTERNALSYM DeleteMenu}
  21054. function DeleteMenu(hMenu: HMENU; uPosition, uFlags: UINT): BOOL; stdcall;
  21055. {$EXTERNALSYM SetMenuItemBitmaps}
  21056. function SetMenuItemBitmaps(hMenu: HMENU; uPosition, uFlags: UINT;
  21057.   hBitmapUnchecked: HBITMAP; hBitmapChecked: HBITMAP): BOOL; stdcall;
  21058. {$EXTERNALSYM GetMenuCheckMarkDimensions}
  21059. function GetMenuCheckMarkDimensions: Longint; stdcall;
  21060. {$EXTERNALSYM TrackPopupMenu}
  21061. function TrackPopupMenu(hMenu: HMENU; uFlags: UINT; x, y, nReserved: Integer;
  21062.   hWnd: HWND; prcRect: PRect): BOOL; stdcall;
  21063.  
  21064.  
  21065. const
  21066.   { return codes for WM_MENUCHAR }
  21067.   {$EXTERNALSYM MNC_IGNORE}
  21068.   MNC_IGNORE = 0;
  21069.   {$EXTERNALSYM MNC_CLOSE}
  21070.   MNC_CLOSE = 1;
  21071.   {$EXTERNALSYM MNC_EXECUTE}
  21072.   MNC_EXECUTE = 2;
  21073.   {$EXTERNALSYM MNC_SELECT}
  21074.   MNC_SELECT = 3;
  21075.  
  21076. type
  21077.   PTPMParams = ^TTPMParams;
  21078.   {$EXTERNALSYM tagTPMPARAMS}
  21079.   tagTPMPARAMS = packed record
  21080.     cbSize: UINT;     { Size of structure }
  21081.     rcExclude: TRect; { Screen coordinates of rectangle to exclude when positioning }
  21082.   end;
  21083.   TTPMParams = tagTPMPARAMS;
  21084.   {$EXTERNALSYM TPMPARAMS}
  21085.   TPMPARAMS = tagTPMPARAMS;
  21086.  
  21087. {$EXTERNALSYM TrackPopupMenuEx}
  21088. function TrackPopupMenuEx(hMenu: HMENU; Flags: UINT; x, y: Integer;
  21089.   Wnd: HWND; TPMParams: PTPMParams): BOOL; stdcall;
  21090.  
  21091. const
  21092.   {$EXTERNALSYM MNS_NOCHECK}
  21093.   MNS_NOCHECK = $80000000;
  21094.   {$EXTERNALSYM MNS_MODELESS}
  21095.   MNS_MODELESS = $40000000;
  21096.   {$EXTERNALSYM MNS_DRAGDROP}
  21097.   MNS_DRAGDROP = $20000000;
  21098.   {$EXTERNALSYM MNS_AUTODISMISS}
  21099.   MNS_AUTODISMISS = $10000000;
  21100.   {$EXTERNALSYM MNS_NOTIFYBYPOS}
  21101.   MNS_NOTIFYBYPOS = $8000000;
  21102.   {$EXTERNALSYM MNS_CHECKORBMP}
  21103.   MNS_CHECKORBMP = $4000000;
  21104.  
  21105.   {$EXTERNALSYM MIM_MAXHEIGHT}
  21106.   MIM_MAXHEIGHT = 1;
  21107.   {$EXTERNALSYM MIM_BACKGROUND}
  21108.   MIM_BACKGROUND = 2;
  21109.   {$EXTERNALSYM MIM_HELPID}
  21110.   MIM_HELPID = 4;
  21111.   {$EXTERNALSYM MIM_MENUDATA}
  21112.   MIM_MENUDATA = 8;
  21113.   {$EXTERNALSYM MIM_STYLE}
  21114.   MIM_STYLE = $10;
  21115.   {$EXTERNALSYM MIM_APPLYTOSUBMENUS}
  21116.   MIM_APPLYTOSUBMENUS = $80000000;
  21117.  
  21118. type
  21119.   PMenuInfo = ^TMenuInfo;
  21120.   {$EXTERNALSYM tagMENUINFO}
  21121.   tagMENUINFO = packed record
  21122.     cbSize: DWORD;
  21123.     fMask: DWORD;
  21124.     dwStyle: DWORD;
  21125.     cyMax: UINT;
  21126.     hbrBack: HBRUSH;
  21127.     dwContextHelpID: DWORD;
  21128.     dwMenuData: DWORD;
  21129.   end;
  21130.   TMenuInfo = tagMENUINFO;
  21131.  
  21132. {$EXTERNALSYM GetMenuInfo}
  21133. function GetMenuInfo(hMenu: HMENU; var lpmi: TMenuInfo): BOOL; stdcall;
  21134. {$EXTERNALSYM SetMenuInfo}
  21135. function SetMenuInfo(hMenu: HMENU; const lpcmi: TMenuInfo): BOOL; stdcall;
  21136. {$EXTERNALSYM EndMenu}
  21137. function EndMenu: BOOL; stdcall;
  21138.  
  21139. const
  21140.   { WM_MENUDRAG return values }
  21141.   {$EXTERNALSYM MND_CONTINUE}
  21142.   MND_CONTINUE = 0;
  21143.   {$EXTERNALSYM MND_ENDMENU}
  21144.   MND_ENDMENU = 1;
  21145.  
  21146. type
  21147.   PMenuGetObjectInfo = ^TMenuGetObjectInfo;
  21148.   {$EXTERNALSYM tagMENUGETOBJECTINFO}
  21149.   tagMENUGETOBJECTINFO = packed record
  21150.     dwFlags: DWORD;
  21151.     uPos: UINT;
  21152.     hmenu: HMENU;
  21153.     riid: Pointer;
  21154.     pvObj: Pointer;
  21155.   end;
  21156.   TMenuGetObjectInfo = tagMENUGETOBJECTINFO;
  21157.  
  21158.  
  21159. const
  21160.   { MENUGETOBJECTINFO dwFlags values }
  21161.   {$EXTERNALSYM MNGOF_GAP}
  21162.   MNGOF_GAP = 3;
  21163.  
  21164.   { MENUGETOBJECT returns values }
  21165.   {$EXTERNALSYM MNGO_NOINTERFACE}
  21166.   MNGO_NOINTERFACE = 0;
  21167.   {$EXTERNALSYM MNGO_NOERROR}
  21168.   MNGO_NOERROR = 1;
  21169.  
  21170.   {$EXTERNALSYM MIIM_STATE}
  21171.   MIIM_STATE = 1;
  21172.   {$EXTERNALSYM MIIM_ID}
  21173.   MIIM_ID = 2;
  21174.   {$EXTERNALSYM MIIM_SUBMENU}
  21175.   MIIM_SUBMENU = 4;
  21176.   {$EXTERNALSYM MIIM_CHECKMARKS}
  21177.   MIIM_CHECKMARKS = 8;
  21178.   {$EXTERNALSYM MIIM_TYPE}
  21179.   MIIM_TYPE = $10;
  21180.   {$EXTERNALSYM MIIM_DATA}
  21181.   MIIM_DATA = $20;
  21182.   {$EXTERNALSYM MIIM_STRING}
  21183.   MIIM_STRING = $40;
  21184.   {$EXTERNALSYM MIIM_BITMAP}
  21185.   MIIM_BITMAP = $80;
  21186.   {$EXTERNALSYM MIIM_FTYPE}
  21187.   MIIM_FTYPE = $100;
  21188.  
  21189.   {$EXTERNALSYM HBMMENU_CALLBACK}
  21190.   HBMMENU_CALLBACK = -1;
  21191.   {$EXTERNALSYM HBMMENU_SYSTEM}
  21192.   HBMMENU_SYSTEM = 1;
  21193.   {$EXTERNALSYM HBMMENU_MBAR_RESTORE}
  21194.   HBMMENU_MBAR_RESTORE = 2;
  21195.   {$EXTERNALSYM HBMMENU_MBAR_MINIMIZE}
  21196.   HBMMENU_MBAR_MINIMIZE = 3;
  21197.   {$EXTERNALSYM HBMMENU_MBAR_CLOSE}
  21198.   HBMMENU_MBAR_CLOSE = 5;
  21199.   {$EXTERNALSYM HBMMENU_MBAR_CLOSE_D}
  21200.   HBMMENU_MBAR_CLOSE_D = 6;
  21201.   {$EXTERNALSYM HBMMENU_MBAR_MINIMIZE_D}
  21202.   HBMMENU_MBAR_MINIMIZE_D = 7;
  21203.   {$EXTERNALSYM HBMMENU_POPUP_CLOSE}
  21204.   HBMMENU_POPUP_CLOSE = 8;
  21205.   {$EXTERNALSYM HBMMENU_POPUP_RESTORE}
  21206.   HBMMENU_POPUP_RESTORE = 9;
  21207.   {$EXTERNALSYM HBMMENU_POPUP_MAXIMIZE}
  21208.   HBMMENU_POPUP_MAXIMIZE = 10;
  21209.   {$EXTERNALSYM HBMMENU_POPUP_MINIMIZE}
  21210.   HBMMENU_POPUP_MINIMIZE = 11;
  21211.  
  21212.  
  21213. type
  21214.   PMenuItemInfoA = ^TMenuItemInfoA;
  21215.   PMenuItemInfoW = ^TMenuItemInfoW;
  21216.   PMenuItemInfo = PMenuItemInfoA;
  21217.   {$EXTERNALSYM tagMENUITEMINFOA}
  21218.   tagMENUITEMINFOA = packed record
  21219.     cbSize: UINT;
  21220.     fMask: UINT;
  21221.     fType: UINT;             { used if MIIM_TYPE}
  21222.     fState: UINT;            { used if MIIM_STATE}
  21223.     wID: UINT;               { used if MIIM_ID}
  21224.     hSubMenu: HMENU;         { used if MIIM_SUBMENU}
  21225.     hbmpChecked: HBITMAP;    { used if MIIM_CHECKMARKS}
  21226.     hbmpUnchecked: HBITMAP;  { used if MIIM_CHECKMARKS}
  21227.     dwItemData: DWORD;       { used if MIIM_DATA}
  21228.     dwTypeData: PAnsiChar;      { used if MIIM_TYPE}
  21229.     cch: UINT;               { used if MIIM_TYPE}
  21230.     hbmpItem: HBITMAP;       { used if MIIM_BITMAP}
  21231.   end;
  21232.   {$EXTERNALSYM tagMENUITEMINFOW}
  21233.   tagMENUITEMINFOW = packed record
  21234.     cbSize: UINT;
  21235.     fMask: UINT;
  21236.     fType: UINT;             { used if MIIM_TYPE}
  21237.     fState: UINT;            { used if MIIM_STATE}
  21238.     wID: UINT;               { used if MIIM_ID}
  21239.     hSubMenu: HMENU;         { used if MIIM_SUBMENU}
  21240.     hbmpChecked: HBITMAP;    { used if MIIM_CHECKMARKS}
  21241.     hbmpUnchecked: HBITMAP;  { used if MIIM_CHECKMARKS}
  21242.     dwItemData: DWORD;       { used if MIIM_DATA}
  21243.     dwTypeData: PWideChar;      { used if MIIM_TYPE}
  21244.     cch: UINT;               { used if MIIM_TYPE}
  21245.     hbmpItem: HBITMAP;       { used if MIIM_BITMAP}
  21246.   end;
  21247.   {$EXTERNALSYM tagMENUITEMINFO}
  21248.   tagMENUITEMINFO = tagMENUITEMINFOA;
  21249.   TMenuItemInfoA = tagMENUITEMINFOA;
  21250.   TMenuItemInfoW = tagMENUITEMINFOW;
  21251.   TMenuItemInfo = TMenuItemInfoA;
  21252.   {$EXTERNALSYM MENUITEMINFOA}
  21253.   MENUITEMINFOA = tagMENUITEMINFOA;
  21254.   {$EXTERNALSYM MENUITEMINFOW}
  21255.   MENUITEMINFOW = tagMENUITEMINFOW;
  21256.   {$EXTERNALSYM MENUITEMINFO}
  21257.   MENUITEMINFO = MENUITEMINFOA;
  21258.  
  21259. {$EXTERNALSYM InsertMenuItemA}
  21260. function InsertMenuItemA(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfoA): BOOL; stdcall;
  21261. {$EXTERNALSYM InsertMenuItemW}
  21262. function InsertMenuItemW(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfoW): BOOL; stdcall;
  21263. {$EXTERNALSYM InsertMenuItem}
  21264. function InsertMenuItem(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfo): BOOL; stdcall;
  21265. {$EXTERNALSYM GetMenuItemInfoA}
  21266. function GetMenuItemInfoA(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfoA): BOOL; stdcall;
  21267. {$EXTERNALSYM GetMenuItemInfoW}
  21268. function GetMenuItemInfoW(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfoW): BOOL; stdcall;
  21269. {$EXTERNALSYM GetMenuItemInfo}
  21270. function GetMenuItemInfo(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfo): BOOL; stdcall;
  21271. {$EXTERNALSYM SetMenuItemInfoA}
  21272. function SetMenuItemInfoA(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfoA): BOOL; stdcall;
  21273. {$EXTERNALSYM SetMenuItemInfoW}
  21274. function SetMenuItemInfoW(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfoW): BOOL; stdcall;
  21275. {$EXTERNALSYM SetMenuItemInfo}
  21276. function SetMenuItemInfo(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfo): BOOL; stdcall;
  21277.  
  21278. const
  21279.   {$EXTERNALSYM GMDI_USEDISABLED}
  21280.   GMDI_USEDISABLED = 1;
  21281.   {$EXTERNALSYM GMDI_GOINTOPOPUPS}
  21282.   GMDI_GOINTOPOPUPS = 2;
  21283.  
  21284. {$EXTERNALSYM GetMenuDefaultItem}
  21285. function GetMenuDefaultItem(hMenu: HMENU; fByPos, gmdiFlags: UINT): UINT; stdcall;
  21286. {$EXTERNALSYM SetMenuDefaultItem}
  21287. function SetMenuDefaultItem(hMenu: HMENU; uItem, fByPos: UINT): BOOL; stdcall;
  21288. {$EXTERNALSYM GetMenuItemRect}
  21289. function GetMenuItemRect(hWnd: HWND; hMenu: HMENU; uItem: UINT;
  21290.   var lprcItem: TRect): BOOL; stdcall;
  21291. {$EXTERNALSYM MenuItemFromPoint}
  21292. function MenuItemFromPoint(hWnd: HWND; hMenu: HMENU; ptScreen: TPoint): BOOL; stdcall;
  21293.  
  21294. const
  21295.   { Flags for TrackPopupMenu }
  21296.   {$EXTERNALSYM TPM_LEFTBUTTON}
  21297.   TPM_LEFTBUTTON = 0;
  21298.   {$EXTERNALSYM TPM_RIGHTBUTTON}
  21299.   TPM_RIGHTBUTTON = 2;
  21300.   {$EXTERNALSYM TPM_LEFTALIGN}
  21301.   TPM_LEFTALIGN = 0;
  21302.   {$EXTERNALSYM TPM_CENTERALIGN}
  21303.   TPM_CENTERALIGN = 4;
  21304.   {$EXTERNALSYM TPM_RIGHTALIGN}
  21305.   TPM_RIGHTALIGN = 8;
  21306.   {$EXTERNALSYM TPM_TOPALIGN}
  21307.   TPM_TOPALIGN = 0;
  21308.   {$EXTERNALSYM TPM_VCENTERALIGN}
  21309.   TPM_VCENTERALIGN = $10;
  21310.   {$EXTERNALSYM TPM_BOTTOMALIGN}
  21311.   TPM_BOTTOMALIGN = $20;
  21312.  
  21313.   {$EXTERNALSYM TPM_HORIZONTAL}
  21314.   TPM_HORIZONTAL = 0;   { Horz alignment matters more }
  21315.   {$EXTERNALSYM TPM_VERTICAL}
  21316.   TPM_VERTICAL = $40;   { Vert alignment matters more }
  21317.   {$EXTERNALSYM TPM_NONOTIFY}
  21318.   TPM_NONOTIFY = $80;   { Don't send any notification msgs }
  21319.   {$EXTERNALSYM TPM_RETURNCMD}
  21320.   TPM_RETURNCMD = $100;
  21321.   {$EXTERNALSYM TPM_RECURSE}
  21322.   TPM_RECURSE = $1;
  21323.   {$EXTERNALSYM TPM_HORPOSANIMATION}
  21324.   TPM_HORPOSANIMATION = $0400;
  21325.   {$EXTERNALSYM TPM_HORNEGANIMATION}
  21326.   TPM_HORNEGANIMATION = $0800;
  21327.   {$EXTERNALSYM TPM_VERPOSANIMATION}
  21328.   TPM_VERPOSANIMATION = $1000;
  21329.   {$EXTERNALSYM TPM_VERNEGANIMATION}
  21330.   TPM_VERNEGANIMATION = $2000;
  21331.   {$EXTERNALSYM TPM_NOANIMATION}
  21332.   TPM_NOANIMATION     = $4000;
  21333.  
  21334.  
  21335. { Drag-and-drop support }
  21336.  
  21337. type
  21338.   PDropStruct = ^TDropStruct;
  21339.   {$EXTERNALSYM tagDROPSTRUCT}
  21340.   tagDROPSTRUCT = packed record
  21341.     hwndSource: HWND;
  21342.     hwndSink: HWND;
  21343.     wFmt: DWORD;
  21344.     dwData: DWORD;
  21345.     ptDrop: TPoint;
  21346.     dwControlData: DWORD;
  21347.   end;
  21348.   TDropStruct = tagDROPSTRUCT;
  21349.   {$EXTERNALSYM DROPSTRUCT}
  21350.   DROPSTRUCT = tagDROPSTRUCT;
  21351.  
  21352. const
  21353.   {$EXTERNALSYM DOF_EXECUTABLE}
  21354.   DOF_EXECUTABLE = 32769;
  21355.   {$EXTERNALSYM DOF_DOCUMENT}
  21356.   DOF_DOCUMENT = 32770;
  21357.   {$EXTERNALSYM DOF_DIRECTORY}
  21358.   DOF_DIRECTORY = 32771;
  21359.   {$EXTERNALSYM DOF_MULTIPLE}
  21360.   DOF_MULTIPLE = 32772;
  21361.   {$EXTERNALSYM DOF_PROGMAN}
  21362.   DOF_PROGMAN = 1;
  21363.   {$EXTERNALSYM DOF_SHELLDATA}
  21364.   DOF_SHELLDATA = 2;
  21365.  
  21366.   {$EXTERNALSYM DO_DROPFILE}
  21367.   DO_DROPFILE = $454C4946;
  21368.   {$EXTERNALSYM DO_PRINTFILE}
  21369.   DO_PRINTFILE = $544E5250;
  21370.  
  21371. {$EXTERNALSYM DragObject}
  21372. function DragObject(p1, p2: HWND; p3: UINT; p4: DWORD;
  21373.   p5: HICON): DWORD; stdcall;
  21374. {$EXTERNALSYM DragDetect}
  21375. function DragDetect(p1: HWND; p2: TPoint): BOOL; stdcall;
  21376. {$EXTERNALSYM DrawIcon}
  21377. function DrawIcon(hDC: HDC; X, Y: Integer; hIcon: HICON): BOOL; stdcall;
  21378.  
  21379. const
  21380.   { DrawText() Format Flags }
  21381.   {$EXTERNALSYM DT_TOP}
  21382.   DT_TOP = 0;
  21383.   {$EXTERNALSYM DT_LEFT}
  21384.   DT_LEFT = 0;
  21385.   {$EXTERNALSYM DT_CENTER}
  21386.   DT_CENTER = 1;
  21387.   {$EXTERNALSYM DT_RIGHT}
  21388.   DT_RIGHT = 2;
  21389.   {$EXTERNALSYM DT_VCENTER}
  21390.   DT_VCENTER = 4;
  21391.   {$EXTERNALSYM DT_BOTTOM}
  21392.   DT_BOTTOM = 8;
  21393.   {$EXTERNALSYM DT_WORDBREAK}
  21394.   DT_WORDBREAK = $10;
  21395.   {$EXTERNALSYM DT_SINGLELINE}
  21396.   DT_SINGLELINE = $20;
  21397.   {$EXTERNALSYM DT_EXPANDTABS}
  21398.   DT_EXPANDTABS = $40;
  21399.   {$EXTERNALSYM DT_TABSTOP}
  21400.   DT_TABSTOP = $80;
  21401.   {$EXTERNALSYM DT_NOCLIP}
  21402.   DT_NOCLIP = $100;
  21403.   {$EXTERNALSYM DT_EXTERNALLEADING}
  21404.   DT_EXTERNALLEADING = $200;
  21405.   {$EXTERNALSYM DT_CALCRECT}
  21406.   DT_CALCRECT = $400;
  21407.   {$EXTERNALSYM DT_NOPREFIX}
  21408.   DT_NOPREFIX = $800;
  21409.   {$EXTERNALSYM DT_INTERNAL}
  21410.   DT_INTERNAL = $1000;
  21411.   {$EXTERNALSYM DT_HIDEPREFIX}
  21412.   DT_HIDEPREFIX = $00100000;
  21413.   {$EXTERNALSYM DT_PREFIXONLY}
  21414.   DT_PREFIXONLY = $00200000;
  21415.  
  21416.   {$EXTERNALSYM DT_EDITCONTROL}
  21417.   DT_EDITCONTROL = $2000;
  21418.   {$EXTERNALSYM DT_PATH_ELLIPSIS}
  21419.   DT_PATH_ELLIPSIS = $4000;
  21420.   {$EXTERNALSYM DT_END_ELLIPSIS}
  21421.   DT_END_ELLIPSIS = $8000;
  21422.   {$EXTERNALSYM DT_MODIFYSTRING}
  21423.   DT_MODIFYSTRING = $10000;
  21424.   {$EXTERNALSYM DT_RTLREADING}
  21425.   DT_RTLREADING = $20000;
  21426.   {$EXTERNALSYM DT_WORD_ELLIPSIS}
  21427.   DT_WORD_ELLIPSIS = $40000;
  21428.  
  21429. type
  21430.   PDrawTextParams = ^TDrawTextParams;
  21431.   {$EXTERNALSYM tagDRAWTEXTPARAMS}
  21432.   tagDRAWTEXTPARAMS = packed record
  21433.     cbSize: UINT;
  21434.     iTabLength: Integer;
  21435.     iLeftMargin: Integer;
  21436.     iRightMargin: Integer;
  21437.     uiLengthDrawn: UINT;
  21438.   end;
  21439.   TDrawTextParams = tagDRAWTEXTPARAMS;
  21440.   {$EXTERNALSYM DRAWTEXTPARAMS}
  21441.   DRAWTEXTPARAMS = tagDRAWTEXTPARAMS;
  21442.  
  21443. {$EXTERNALSYM DrawTextA}
  21444. function DrawTextA(hDC: HDC; lpString: PAnsiChar; nCount: Integer;
  21445.   var lpRect: TRect; uFormat: UINT): Integer; stdcall;
  21446. {$EXTERNALSYM DrawTextW}
  21447. function DrawTextW(hDC: HDC; lpString: PWideChar; nCount: Integer;
  21448.   var lpRect: TRect; uFormat: UINT): Integer; stdcall;
  21449. {$EXTERNALSYM DrawText}
  21450. function DrawText(hDC: HDC; lpString: PChar; nCount: Integer;
  21451.   var lpRect: TRect; uFormat: UINT): Integer; stdcall;
  21452. {$EXTERNALSYM DrawTextExA}
  21453. function DrawTextExA(DC: HDC; lpchText: PAnsiChar; cchText: Integer; var p4: TRect;
  21454.   dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
  21455. {$EXTERNALSYM DrawTextExW}
  21456. function DrawTextExW(DC: HDC; lpchText: PWideChar; cchText: Integer; var p4: TRect;
  21457.   dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
  21458. {$EXTERNALSYM DrawTextEx}
  21459. function DrawTextEx(DC: HDC; lpchText: PChar; cchText: Integer; var p4: TRect;
  21460.   dwDTFormat: UINT; DTParams: PDrawTextParams): Integer; stdcall;
  21461. {$EXTERNALSYM GrayStringA}
  21462. function GrayStringA(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: TFNGrayStringProc;
  21463.   lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;
  21464. {$EXTERNALSYM GrayStringW}
  21465. function GrayStringW(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: TFNGrayStringProc;
  21466.   lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;
  21467. {$EXTERNALSYM GrayString}
  21468. function GrayString(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: TFNGrayStringProc;
  21469.   lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;
  21470.  
  21471.  
  21472. { Monolithic state-drawing routine }
  21473.  
  21474. const
  21475.   { Image type }
  21476.   {$EXTERNALSYM DST_COMPLEX}
  21477.   DST_COMPLEX = 0;
  21478.   {$EXTERNALSYM DST_TEXT}
  21479.   DST_TEXT = 1;
  21480.   {$EXTERNALSYM DST_PREFIXTEXT}
  21481.   DST_PREFIXTEXT = 2;
  21482.   {$EXTERNALSYM DST_ICON}
  21483.   DST_ICON = 3;
  21484.   {$EXTERNALSYM DST_BITMAP}
  21485.   DST_BITMAP = 4;
  21486.  
  21487.   { State type }
  21488.   {$EXTERNALSYM DSS_NORMAL}
  21489.   DSS_NORMAL = 0;
  21490.   {$EXTERNALSYM DSS_UNION}
  21491.   DSS_UNION = $10;     { Gray string appearance }
  21492.   {$EXTERNALSYM DSS_DISABLED}
  21493.   DSS_DISABLED = $20;
  21494.   {$EXTERNALSYM DSS_MONO}
  21495.   DSS_MONO = $80;
  21496.   {$EXTERNALSYM DSS_RIGHT}
  21497.   DSS_RIGHT = $8000;
  21498.  
  21499. {$EXTERNALSYM DrawStateA}
  21500. function DrawStateA(DC: HDC; p2: HBRUSH; p3: TFNDrawStateProc;
  21501.   p4: LPARAM; p5: WPARAM; p6, p7, p8, p9: Integer; p10: UINT): BOOL; stdcall;
  21502. {$EXTERNALSYM DrawStateW}
  21503. function DrawStateW(DC: HDC; p2: HBRUSH; p3: TFNDrawStateProc;
  21504.   p4: LPARAM; p5: WPARAM; p6, p7, p8, p9: Integer; p10: UINT): BOOL; stdcall;
  21505. {$EXTERNALSYM DrawState}
  21506. function DrawState(DC: HDC; p2: HBRUSH; p3: TFNDrawStateProc;
  21507.   p4: LPARAM; p5: WPARAM; p6, p7, p8, p9: Integer; p10: UINT): BOOL; stdcall;
  21508. {$EXTERNALSYM TabbedTextOutA}
  21509. function TabbedTextOutA(hDC: HDC; X, Y: Integer; lpString: PAnsiChar; nCount, nTabPositions: Integer;
  21510.   var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
  21511. {$EXTERNALSYM TabbedTextOutW}
  21512. function TabbedTextOutW(hDC: HDC; X, Y: Integer; lpString: PWideChar; nCount, nTabPositions: Integer;
  21513.   var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
  21514. {$EXTERNALSYM TabbedTextOut}
  21515. function TabbedTextOut(hDC: HDC; X, Y: Integer; lpString: PChar; nCount, nTabPositions: Integer;
  21516.   var lpnTabStopPositions; nTabOrigin: Integer): Longint; stdcall;
  21517. {$EXTERNALSYM GetTabbedTextExtentA}
  21518. function GetTabbedTextExtentA(hDC: HDC; lpString: PAnsiChar;
  21519.   nCount, nTabPositions: Integer; var lpnTabStopPositions): DWORD; stdcall;
  21520. {$EXTERNALSYM GetTabbedTextExtentW}
  21521. function GetTabbedTextExtentW(hDC: HDC; lpString: PWideChar;
  21522.   nCount, nTabPositions: Integer; var lpnTabStopPositions): DWORD; stdcall;
  21523. {$EXTERNALSYM GetTabbedTextExtent}
  21524. function GetTabbedTextExtent(hDC: HDC; lpString: PChar;
  21525.   nCount, nTabPositions: Integer; var lpnTabStopPositions): DWORD; stdcall;
  21526. {$EXTERNALSYM UpdateWindow}
  21527. function UpdateWindow(hWnd: HWND): BOOL; stdcall;
  21528. {$EXTERNALSYM SetActiveWindow}
  21529. function SetActiveWindow(hWnd: HWND): HWND; stdcall;
  21530. {$EXTERNALSYM GetForegroundWindow}
  21531. function GetForegroundWindow: HWND; stdcall;
  21532. {$EXTERNALSYM PaintDesktop}
  21533. function PaintDesktop(hdc: HDC): BOOL; stdcall;
  21534. {$EXTERNALSYM SetForegroundWindow}
  21535. function SetForegroundWindow(hWnd: HWND): BOOL; stdcall;
  21536. {$EXTERNALSYM WindowFromDC}
  21537. function WindowFromDC(hDC: HDC): HWND; stdcall;
  21538. {$EXTERNALSYM GetDC}
  21539. function GetDC(hWnd: HWND): HDC; stdcall;
  21540. {$EXTERNALSYM GetDCEx}
  21541. function GetDCEx(hWnd: HWND; hrgnClip: HRGN; flags: DWORD): HDC; stdcall;
  21542.  
  21543. const
  21544.   { GetDCEx() flags }
  21545.   {$EXTERNALSYM DCX_WINDOW}
  21546.   DCX_WINDOW = 1;
  21547.   {$EXTERNALSYM DCX_CACHE}
  21548.   DCX_CACHE = 2;
  21549.   {$EXTERNALSYM DCX_NORESETATTRS}
  21550.   DCX_NORESETATTRS = 4;
  21551.   {$EXTERNALSYM DCX_CLIPCHILDREN}
  21552.   DCX_CLIPCHILDREN = 8;
  21553.   {$EXTERNALSYM DCX_CLIPSIBLINGS}
  21554.   DCX_CLIPSIBLINGS = $10;
  21555.   {$EXTERNALSYM DCX_PARENTCLIP}
  21556.   DCX_PARENTCLIP = $20;
  21557.   {$EXTERNALSYM DCX_EXCLUDERGN}
  21558.   DCX_EXCLUDERGN = $40;
  21559.   {$EXTERNALSYM DCX_INTERSECTRGN}
  21560.   DCX_INTERSECTRGN = $80;
  21561.   {$EXTERNALSYM DCX_EXCLUDEUPDATE}
  21562.   DCX_EXCLUDEUPDATE = $100;
  21563.   {$EXTERNALSYM DCX_INTERSECTUPDATE}
  21564.   DCX_INTERSECTUPDATE = $200;
  21565.   {$EXTERNALSYM DCX_LOCKWINDOWUPDATE}
  21566.   DCX_LOCKWINDOWUPDATE = $400;
  21567.   {$EXTERNALSYM DCX_VALIDATE}
  21568.   DCX_VALIDATE = $200000;
  21569.  
  21570. {$EXTERNALSYM GetWindowDC}
  21571. function GetWindowDC(hWnd: HWND): HDC; stdcall;
  21572. {$EXTERNALSYM ReleaseDC}
  21573. function ReleaseDC(hWnd: HWND; hDC: HDC): Integer; stdcall;
  21574. {$EXTERNALSYM BeginPaint}
  21575. function BeginPaint(hWnd: HWND; var lpPaint: TPaintStruct): HDC; stdcall;
  21576. {$EXTERNALSYM EndPaint}
  21577. function EndPaint(hWnd: HWND; const lpPaint: TPaintStruct): BOOL; stdcall;
  21578. {$EXTERNALSYM GetUpdateRect}
  21579. function GetUpdateRect(hWnd: HWND; var lpRect: TRect; bErase: BOOL): BOOL; stdcall;
  21580. {$EXTERNALSYM GetUpdateRgn}
  21581. function GetUpdateRgn(hWnd: HWND; hRgn: HRGN; bErase: BOOL): Integer; stdcall;
  21582. {$EXTERNALSYM SetWindowRgn}
  21583. function SetWindowRgn(hWnd: HWND; hRgn: HRGN; bRedraw: BOOL): Integer; stdcall;
  21584. {$EXTERNALSYM GetWindowRgn}
  21585. function GetWindowRgn(hWnd: HWND; hRgn: HRGN): Integer; stdcall;
  21586. {$EXTERNALSYM ExcludeUpdateRgn}
  21587. function ExcludeUpdateRgn(hDC: HDC; hWnd: HWND): Integer; stdcall;
  21588. {$EXTERNALSYM InvalidateRect}
  21589. function InvalidateRect(hWnd: HWND; lpRect: PRect; bErase: BOOL): BOOL; stdcall;
  21590. {$EXTERNALSYM ValidateRect}
  21591. function ValidateRect(hWnd: HWND; lpRect: PRect): BOOL; stdcall;
  21592. {$EXTERNALSYM InvalidateRgn}
  21593. function InvalidateRgn(hWnd: HWND; hRgn: HRGN; bErase: BOOL): BOOL; stdcall;
  21594. {$EXTERNALSYM ValidateRgn}
  21595. function ValidateRgn(hWnd: HWND; hRgn: HRGN): BOOL; stdcall;
  21596. {$EXTERNALSYM RedrawWindow}
  21597. function RedrawWindow(hWnd: HWND; lprcUpdate: PRect; hrgnUpdate: HRGN; flags: UINT): BOOL; stdcall;
  21598.  
  21599. const
  21600.   { RedrawWindow() flags }
  21601.   {$EXTERNALSYM RDW_INVALIDATE}
  21602.   RDW_INVALIDATE = 1;
  21603.   {$EXTERNALSYM RDW_INTERNALPAINT}
  21604.   RDW_INTERNALPAINT = 2;
  21605.   {$EXTERNALSYM RDW_ERASE}
  21606.   RDW_ERASE = 4;
  21607.   {$EXTERNALSYM RDW_VALIDATE}
  21608.   RDW_VALIDATE = 8;
  21609.   {$EXTERNALSYM RDW_NOINTERNALPAINT}
  21610.   RDW_NOINTERNALPAINT = $10;
  21611.   {$EXTERNALSYM RDW_NOERASE}
  21612.   RDW_NOERASE = $20;
  21613.   {$EXTERNALSYM RDW_NOCHILDREN}
  21614.   RDW_NOCHILDREN = $40;
  21615.   {$EXTERNALSYM RDW_ALLCHILDREN}
  21616.   RDW_ALLCHILDREN = $80;
  21617.   {$EXTERNALSYM RDW_UPDATENOW}
  21618.   RDW_UPDATENOW = $100;
  21619.   {$EXTERNALSYM RDW_ERASENOW}
  21620.   RDW_ERASENOW = $200;
  21621.   {$EXTERNALSYM RDW_FRAME}
  21622.   RDW_FRAME = $400;
  21623.   {$EXTERNALSYM RDW_NOFRAME}
  21624.   RDW_NOFRAME = $800;
  21625.  
  21626.  
  21627. { LockWindowUpdate API }
  21628.  
  21629. {$EXTERNALSYM LockWindowUpdate}
  21630. function LockWindowUpdate(hWndLock: HWND): BOOL; stdcall;
  21631. {$EXTERNALSYM ScrollWindow}
  21632. function ScrollWindow(hWnd: HWND; XAmount, YAmount: Integer;
  21633.   Rect, ClipRect: PRect): BOOL; stdcall;
  21634. {$EXTERNALSYM ScrollDC}
  21635. function ScrollDC(DC: HDC; DX, DY: Integer; var Scroll, Clip: TRect; Rgn: HRGN;
  21636.   Update: PRect): BOOL; stdcall;
  21637. {$EXTERNALSYM ScrollWindowEx}
  21638. function ScrollWindowEx(hWnd: HWND; dx, dy: Integer;
  21639.   prcScroll, prcClip: PRect;
  21640.   hrgnUpdate: HRGN; prcUpdate: PRect; flags: UINT): BOOL; stdcall;
  21641.  
  21642. const
  21643.   {$EXTERNALSYM SW_SCROLLCHILDREN}
  21644.   SW_SCROLLCHILDREN = 1;  { Scroll children within lprcScroll. }
  21645.   {$EXTERNALSYM SW_INVALIDATE}
  21646.   SW_INVALIDATE = 2;      { Invalidate after scrolling }
  21647.   {$EXTERNALSYM SW_ERASE}
  21648.   SW_ERASE = 4;           { If SW_INVALIDATE, don't send WM_ERASEBACKGROUND }
  21649.   {$EXTERNALSYM SW_SMOOTHSCROLL}
  21650.   SW_SMOOTHSCROLL = $10;   { Use smooth scrolling }
  21651.  
  21652. {$EXTERNALSYM SetScrollPos}
  21653. function SetScrollPos(hWnd: HWND; nBar, nPos: Integer; bRedraw: BOOL): Integer; stdcall;
  21654. {$EXTERNALSYM GetScrollPos}
  21655. function GetScrollPos(hWnd: HWND; nBar: Integer): Integer; stdcall;
  21656. {$EXTERNALSYM SetScrollRange}
  21657. function SetScrollRange(hWnd: HWND; nBar, nMinPos, nMaxPos: Integer; bRedraw: BOOL): BOOL; stdcall;
  21658. {$EXTERNALSYM GetScrollRange}
  21659. function GetScrollRange(hWnd: HWND; nBar: Integer; var lpMinPos, lpMaxPos: Integer): BOOL; stdcall;
  21660. {$EXTERNALSYM ShowScrollBar}
  21661. function ShowScrollBar(hWnd: HWND; wBar: Integer; bShow: BOOL): BOOL; stdcall;
  21662. {$EXTERNALSYM EnableScrollBar}
  21663. function EnableScrollBar(hWnd: HWND; wSBflags, wArrows: UINT): BOOL; stdcall;
  21664.  
  21665.  
  21666. const
  21667.   { EnableScrollBar() flags }
  21668.   {$EXTERNALSYM ESB_ENABLE_BOTH}
  21669.   ESB_ENABLE_BOTH = 0;
  21670.   {$EXTERNALSYM ESB_DISABLE_BOTH}
  21671.   ESB_DISABLE_BOTH = 3;
  21672.   {$EXTERNALSYM ESB_DISABLE_LEFT}
  21673.   ESB_DISABLE_LEFT = 1;
  21674.   {$EXTERNALSYM ESB_DISABLE_RIGHT}
  21675.   ESB_DISABLE_RIGHT = 2;
  21676.   {$EXTERNALSYM ESB_DISABLE_UP}
  21677.   ESB_DISABLE_UP = 1;
  21678.   {$EXTERNALSYM ESB_DISABLE_DOWN}
  21679.   ESB_DISABLE_DOWN = 2;
  21680.   {$EXTERNALSYM ESB_DISABLE_LTUP}
  21681.   ESB_DISABLE_LTUP = ESB_DISABLE_LEFT;
  21682.   {$EXTERNALSYM ESB_DISABLE_RTDN}
  21683.   ESB_DISABLE_RTDN = ESB_DISABLE_RIGHT;
  21684.  
  21685. {$EXTERNALSYM SetPropA}
  21686. function SetPropA(hWnd: HWND; lpString: PAnsiChar; hData: THandle): BOOL; stdcall;
  21687. {$EXTERNALSYM SetPropW}
  21688. function SetPropW(hWnd: HWND; lpString: PWideChar; hData: THandle): BOOL; stdcall;
  21689. {$EXTERNALSYM SetProp}
  21690. function SetProp(hWnd: HWND; lpString: PChar; hData: THandle): BOOL; stdcall;
  21691. {$EXTERNALSYM GetPropA}
  21692. function GetPropA(hWnd: HWND; lpString: PAnsiChar): THandle; stdcall;
  21693. {$EXTERNALSYM GetPropW}
  21694. function GetPropW(hWnd: HWND; lpString: PWideChar): THandle; stdcall;
  21695. {$EXTERNALSYM GetProp}
  21696. function GetProp(hWnd: HWND; lpString: PChar): THandle; stdcall;
  21697. {$EXTERNALSYM RemovePropA}
  21698. function RemovePropA(hWnd: HWND; lpString: PAnsiChar): THandle; stdcall;
  21699. {$EXTERNALSYM RemovePropW}
  21700. function RemovePropW(hWnd: HWND; lpString: PWideChar): THandle; stdcall;
  21701. {$EXTERNALSYM RemoveProp}
  21702. function RemoveProp(hWnd: HWND; lpString: PChar): THandle; stdcall;
  21703. {$EXTERNALSYM EnumPropsExA}
  21704. function EnumPropsExA(hWnd: HWND; lpEnumFunc: TFNPropEnumProcEx; lParam: LPARAM): Integer; stdcall;
  21705. {$EXTERNALSYM EnumPropsExW}
  21706. function EnumPropsExW(hWnd: HWND; lpEnumFunc: TFNPropEnumProcEx; lParam: LPARAM): Integer; stdcall;
  21707. {$EXTERNALSYM EnumPropsEx}
  21708. function EnumPropsEx(hWnd: HWND; lpEnumFunc: TFNPropEnumProcEx; lParam: LPARAM): Integer; stdcall;
  21709. {$EXTERNALSYM EnumPropsA}
  21710. function EnumPropsA(hWnd: HWND; lpEnumFunc: TFNPropEnumProc): Integer; stdcall;
  21711. {$EXTERNALSYM EnumPropsW}
  21712. function EnumPropsW(hWnd: HWND; lpEnumFunc: TFNPropEnumProc): Integer; stdcall;
  21713. {$EXTERNALSYM EnumProps}
  21714. function EnumProps(hWnd: HWND; lpEnumFunc: TFNPropEnumProc): Integer; stdcall;
  21715. {$EXTERNALSYM SetWindowTextA}
  21716. function SetWindowTextA(hWnd: HWND; lpString: PAnsiChar): BOOL; stdcall;
  21717. {$EXTERNALSYM SetWindowTextW}
  21718. function SetWindowTextW(hWnd: HWND; lpString: PWideChar): BOOL; stdcall;
  21719. {$EXTERNALSYM SetWindowText}
  21720. function SetWindowText(hWnd: HWND; lpString: PChar): BOOL; stdcall;
  21721. {$EXTERNALSYM GetWindowTextA}
  21722. function GetWindowTextA(hWnd: HWND; lpString: PAnsiChar; nMaxCount: Integer): Integer; stdcall;
  21723. {$EXTERNALSYM GetWindowTextW}
  21724. function GetWindowTextW(hWnd: HWND; lpString: PWideChar; nMaxCount: Integer): Integer; stdcall;
  21725. {$EXTERNALSYM GetWindowText}
  21726. function GetWindowText(hWnd: HWND; lpString: PChar; nMaxCount: Integer): Integer; stdcall;
  21727. {$EXTERNALSYM GetWindowTextLengthA}
  21728. function GetWindowTextLengthA(hWnd: HWND): Integer; stdcall;
  21729. {$EXTERNALSYM GetWindowTextLengthW}
  21730. function GetWindowTextLengthW(hWnd: HWND): Integer; stdcall;
  21731. {$EXTERNALSYM GetWindowTextLength}
  21732. function GetWindowTextLength(hWnd: HWND): Integer; stdcall;
  21733.  
  21734. {$EXTERNALSYM GetClientRect}
  21735. function GetClientRect(hWnd: HWND; var lpRect: TRect): BOOL; stdcall;
  21736. {$EXTERNALSYM GetWindowRect}
  21737. function GetWindowRect(hWnd: HWND; var lpRect: TRect): BOOL; stdcall;
  21738. {$EXTERNALSYM AdjustWindowRect}
  21739. function AdjustWindowRect(var lpRect: TRect; dwStyle: DWORD; bMenu: BOOL): BOOL; stdcall;
  21740. {$EXTERNALSYM AdjustWindowRectEx}
  21741. function AdjustWindowRectEx(var lpRect: TRect; dwStyle: DWORD; bMenu: BOOL;
  21742.   dwExStyle: DWORD): BOOL; stdcall;
  21743.  
  21744. const
  21745.   {$EXTERNALSYM HELPINFO_WINDOW}
  21746.   HELPINFO_WINDOW = 1;
  21747.   {$EXTERNALSYM HELPINFO_MENUITEM}
  21748.   HELPINFO_MENUITEM = 2;
  21749. type
  21750.   PHelpInfo = ^THelpInfo;
  21751.   {$EXTERNALSYM tagHELPINFO}
  21752.   tagHELPINFO = packed record       { Structure pointed to by lParam of WM_HELP }
  21753.     cbSize: UINT;          { Size in bytes of this struct  }
  21754.     iContextType: Integer; { Either HELPINFO_WINDOW or HELPINFO_MENUITEM }
  21755.     iCtrlId: Integer;      { Control Id or a Menu item Id. }
  21756.     hItemHandle: THandle;  { hWnd of control or hMenu.     }
  21757.     dwContextId: DWORD;    { Context Id associated with this item }
  21758.     MousePos: TPoint;      { Mouse Position in screen co-ordinates }
  21759.   end;
  21760.   THelpInfo = tagHELPINFO;
  21761.   {$EXTERNALSYM HELPINFO}
  21762.   HELPINFO = tagHELPINFO;
  21763.  
  21764. {$EXTERNALSYM SetWindowContextHelpId}
  21765. function SetWindowContextHelpId(hWnd: HWND; HelpID: DWORD): BOOL; stdcall;
  21766. {$EXTERNALSYM GetWindowContextHelpId}
  21767. function GetWindowContextHelpId(hWnd: HWND): DWORD; stdcall;
  21768. {$EXTERNALSYM SetMenuContextHelpId}
  21769. function SetMenuContextHelpId(hMenu: HMENU; HelpID: DWORD): BOOL; stdcall;
  21770. {$EXTERNALSYM GetMenuContextHelpId}
  21771. function GetMenuContextHelpId(hMenu: HMENU): DWORD; stdcall;
  21772.  
  21773. const
  21774.   { MessageBox() Flags }
  21775.   {$EXTERNALSYM MB_OK}
  21776.   MB_OK = $00000000;
  21777.   {$EXTERNALSYM MB_OKCANCEL}
  21778.   MB_OKCANCEL = $00000001;
  21779.   {$EXTERNALSYM MB_ABORTRETRYIGNORE}
  21780.   MB_ABORTRETRYIGNORE = $00000002;
  21781.   {$EXTERNALSYM MB_YESNOCANCEL}
  21782.   MB_YESNOCANCEL = $00000003;
  21783.   {$EXTERNALSYM MB_YESNO}
  21784.   MB_YESNO = $00000004;
  21785.   {$EXTERNALSYM MB_RETRYCANCEL}
  21786.   MB_RETRYCANCEL = $00000005;
  21787.  
  21788.   {$EXTERNALSYM MB_ICONHAND}
  21789.   MB_ICONHAND = $00000010;
  21790.   {$EXTERNALSYM MB_ICONQUESTION}
  21791.   MB_ICONQUESTION = $00000020;
  21792.   {$EXTERNALSYM MB_ICONEXCLAMATION}
  21793.   MB_ICONEXCLAMATION = $00000030;
  21794.   {$EXTERNALSYM MB_ICONASTERISK}
  21795.   MB_ICONASTERISK = $00000040;
  21796.   {$EXTERNALSYM MB_USERICON}
  21797.   MB_USERICON = $00000080;
  21798.   {$EXTERNALSYM MB_ICONWARNING}
  21799.   MB_ICONWARNING                 = MB_ICONEXCLAMATION;
  21800.   {$EXTERNALSYM MB_ICONERROR}
  21801.   MB_ICONERROR                   = MB_ICONHAND;
  21802.   {$EXTERNALSYM MB_ICONINFORMATION}
  21803.   MB_ICONINFORMATION             = MB_ICONASTERISK;
  21804.   {$EXTERNALSYM MB_ICONSTOP}
  21805.   MB_ICONSTOP                    = MB_ICONHAND;
  21806.  
  21807.   {$EXTERNALSYM MB_DEFBUTTON1}
  21808.   MB_DEFBUTTON1 = $00000000;
  21809.   {$EXTERNALSYM MB_DEFBUTTON2}
  21810.   MB_DEFBUTTON2 = $00000100;
  21811.   {$EXTERNALSYM MB_DEFBUTTON3}
  21812.   MB_DEFBUTTON3 = $00000200;
  21813.   {$EXTERNALSYM MB_DEFBUTTON4}
  21814.   MB_DEFBUTTON4 = $00000300;
  21815.  
  21816.   {$EXTERNALSYM MB_APPLMODAL}
  21817.   MB_APPLMODAL = $00000000;
  21818.   {$EXTERNALSYM MB_SYSTEMMODAL}
  21819.   MB_SYSTEMMODAL = $00001000;
  21820.   {$EXTERNALSYM MB_TASKMODAL}
  21821.   MB_TASKMODAL = $00002000;
  21822.   {$EXTERNALSYM MB_HELP}
  21823.   MB_HELP = $00004000;                          { Help Button }
  21824.  
  21825.   {$EXTERNALSYM MB_NOFOCUS}
  21826.   MB_NOFOCUS = $00008000;
  21827.   {$EXTERNALSYM MB_SETFOREGROUND}
  21828.   MB_SETFOREGROUND = $00010000;
  21829.   {$EXTERNALSYM MB_DEFAULT_DESKTOP_ONLY}
  21830.   MB_DEFAULT_DESKTOP_ONLY = $00020000;
  21831.  
  21832.   {$EXTERNALSYM MB_TOPMOST}
  21833.   MB_TOPMOST = $00040000;
  21834.   {$EXTERNALSYM MB_RIGHT}
  21835.   MB_RIGHT = $00080000;
  21836.   {$EXTERNALSYM MB_RTLREADING}
  21837.   MB_RTLREADING = $00100000;
  21838.  
  21839.   {$EXTERNALSYM MB_SERVICE_NOTIFICATION}
  21840.   MB_SERVICE_NOTIFICATION = $00200000;
  21841.   {$EXTERNALSYM MB_SERVICE_NOTIFICATION_NT3X}
  21842.   MB_SERVICE_NOTIFICATION_NT3X = $00040000;
  21843.  
  21844.   {$EXTERNALSYM MB_TYPEMASK}
  21845.   MB_TYPEMASK = $0000000F;
  21846.   {$EXTERNALSYM MB_ICONMASK}
  21847.   MB_ICONMASK = $000000F0;
  21848.   {$EXTERNALSYM MB_DEFMASK}
  21849.   MB_DEFMASK = $00000F00;
  21850.   {$EXTERNALSYM MB_MODEMASK}
  21851.   MB_MODEMASK = $00003000;
  21852.   {$EXTERNALSYM MB_MISCMASK}
  21853.   MB_MISCMASK = $0000C000;
  21854.  
  21855.  
  21856. {$EXTERNALSYM MessageBoxA}
  21857. function MessageBoxA(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;
  21858. {$EXTERNALSYM MessageBoxW}
  21859. function MessageBoxW(hWnd: HWND; lpText, lpCaption: PWideChar; uType: UINT): Integer; stdcall;
  21860. {$EXTERNALSYM MessageBox}
  21861. function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;
  21862. {$EXTERNALSYM MessageBoxExA}
  21863. function MessageBoxExA(hWnd: HWND; lpText, lpCaption: PAnsiChar;
  21864.   uType: UINT; wLanguageId: Word): Integer; stdcall;
  21865. {$EXTERNALSYM MessageBoxExW}
  21866. function MessageBoxExW(hWnd: HWND; lpText, lpCaption: PWideChar;
  21867.   uType: UINT; wLanguageId: Word): Integer; stdcall;
  21868. {$EXTERNALSYM MessageBoxEx}
  21869. function MessageBoxEx(hWnd: HWND; lpText, lpCaption: PChar;
  21870.   uType: UINT; wLanguageId: Word): Integer; stdcall;
  21871.  
  21872. type
  21873.   TPRMsgBoxCallback = procedure(var lpHelpInfo: THelpInfo);
  21874.  
  21875.   PMsgBoxParamsA = ^TMsgBoxParamsA;
  21876.   PMsgBoxParamsW = ^TMsgBoxParamsW;
  21877.   PMsgBoxParams = PMsgBoxParamsA;
  21878.   {$EXTERNALSYM tagMSGBOXPARAMSA}
  21879.   tagMSGBOXPARAMSA = packed record
  21880.     cbSize: UINT;
  21881.     hwndOwner: HWND;
  21882.     hInstance: HINST;
  21883.     lpszText: PAnsiChar;
  21884.     lpszCaption: PAnsiChar;
  21885.     dwStyle: DWORD;
  21886.     lpszIcon: PAnsiChar;
  21887.     dwContextHelpId: DWORD;
  21888.     lpfnMsgBoxCallback: TPRMsgBoxCallback;
  21889.     dwLanguageId: DWORD;
  21890.   end;
  21891.   {$EXTERNALSYM tagMSGBOXPARAMSW}
  21892.   tagMSGBOXPARAMSW = packed record
  21893.     cbSize: UINT;
  21894.     hwndOwner: HWND;
  21895.     hInstance: HINST;
  21896.     lpszText: PWideChar;
  21897.     lpszCaption: PWideChar;
  21898.     dwStyle: DWORD;
  21899.     lpszIcon: PWideChar;
  21900.     dwContextHelpId: DWORD;
  21901.     lpfnMsgBoxCallback: TPRMsgBoxCallback;
  21902.     dwLanguageId: DWORD;
  21903.   end;
  21904.   {$EXTERNALSYM tagMSGBOXPARAMS}
  21905.   tagMSGBOXPARAMS = tagMSGBOXPARAMSA;
  21906.   TMsgBoxParamsA = tagMSGBOXPARAMSA;
  21907.   TMsgBoxParamsW = tagMSGBOXPARAMSW;
  21908.   TMsgBoxParams = TMsgBoxParamsA;
  21909.   {$EXTERNALSYM MSGBOXPARAMSA}
  21910.   MSGBOXPARAMSA = tagMSGBOXPARAMSA;
  21911.   {$EXTERNALSYM MSGBOXPARAMSW}
  21912.   MSGBOXPARAMSW = tagMSGBOXPARAMSW;
  21913.   {$EXTERNALSYM MSGBOXPARAMS}
  21914.   MSGBOXPARAMS = MSGBOXPARAMSA;
  21915.  
  21916. {$EXTERNALSYM MessageBoxIndirectA}
  21917. function MessageBoxIndirectA(const MsgBoxParams: TMsgBoxParamsA): BOOL; stdcall;
  21918. {$EXTERNALSYM MessageBoxIndirectW}
  21919. function MessageBoxIndirectW(const MsgBoxParams: TMsgBoxParamsW): BOOL; stdcall;
  21920. {$EXTERNALSYM MessageBoxIndirect}
  21921. function MessageBoxIndirect(const MsgBoxParams: TMsgBoxParams): BOOL; stdcall;
  21922.  
  21923. {$EXTERNALSYM MessageBeep}
  21924. function MessageBeep(uType: UINT): BOOL; stdcall;
  21925. {$EXTERNALSYM ShowCursor}
  21926. function ShowCursor(bShow: BOOL): Integer; stdcall;
  21927. {$EXTERNALSYM SetCursorPos}
  21928. function SetCursorPos(X, Y: Integer): BOOL; stdcall;
  21929. {$EXTERNALSYM SetCursor}
  21930. function SetCursor(hCursor: HICON): HCURSOR; stdcall;
  21931. {$EXTERNALSYM GetCursorPos}
  21932. function GetCursorPos(var lpPoint: TPoint): BOOL; stdcall;
  21933. {$EXTERNALSYM ClipCursor}
  21934. function ClipCursor(lpRect: PRect): BOOL; stdcall;
  21935. {$EXTERNALSYM GetClipCursor}
  21936. function GetClipCursor(var lpRect: TRect): BOOL; stdcall;
  21937. {$EXTERNALSYM GetCursor}
  21938. function GetCursor: HCURSOR; stdcall;
  21939. {$EXTERNALSYM CreateCaret}
  21940. function CreateCaret(hWnd: HWND; hBitmap: HBITMAP; nWidth, nHeight: Integer): BOOL; stdcall;
  21941. {$EXTERNALSYM GetCaretBlinkTime}
  21942. function GetCaretBlinkTime: UINT; stdcall;
  21943. {$EXTERNALSYM SetCaretBlinkTime}
  21944. function SetCaretBlinkTime(uMSeconds: UINT): BOOL; stdcall;
  21945. {$EXTERNALSYM DestroyCaret}
  21946. function DestroyCaret: BOOL; stdcall;
  21947. {$EXTERNALSYM HideCaret}
  21948. function HideCaret(hWnd: HWND): BOOL; stdcall;
  21949. {$EXTERNALSYM ShowCaret}
  21950. function ShowCaret(hWnd: HWND): BOOL; stdcall;
  21951. {$EXTERNALSYM SetCaretPos}
  21952. function SetCaretPos(X, Y: Integer): BOOL; stdcall;
  21953. {$EXTERNALSYM GetCaretPos}
  21954. function GetCaretPos(var lpPoint: TPoint): BOOL; stdcall;
  21955. {$EXTERNALSYM ClientToScreen}
  21956. function ClientToScreen(hWnd: HWND; var lpPoint: TPoint): BOOL; stdcall;
  21957. {$EXTERNALSYM ScreenToClient}
  21958. function ScreenToClient(hWnd: HWND; var lpPoint: TPoint): BOOL; stdcall;
  21959. {$EXTERNALSYM MapWindowPoints}
  21960. function MapWindowPoints(hWndFrom, hWndTo: HWND; var lpPoints; cPoints: UINT): Integer; stdcall;
  21961. {$EXTERNALSYM WindowFromPoint}
  21962. function WindowFromPoint(Point: TPoint): HWND; stdcall;
  21963. {$EXTERNALSYM ChildWindowFromPoint}
  21964. function ChildWindowFromPoint(hWndParent: HWND; Point: TPoint): HWND; stdcall;
  21965.  
  21966. const
  21967.   {$EXTERNALSYM CWP_ALL}
  21968.   CWP_ALL = 0;
  21969.   {$EXTERNALSYM CWP_SKIPINVISIBLE}
  21970.   CWP_SKIPINVISIBLE = 1;
  21971.   {$EXTERNALSYM CWP_SKIPDISABLED}
  21972.   CWP_SKIPDISABLED = 2;
  21973.   {$EXTERNALSYM CWP_SKIPTRANSPARENT}
  21974.   CWP_SKIPTRANSPARENT = 4;
  21975.  
  21976. {$EXTERNALSYM ChildWindowFromPointEx}
  21977. function ChildWindowFromPointEx(hWnd: HWND; Point: TPoint; Flags: UINT): HWND; stdcall;
  21978.  
  21979. const
  21980.   { Color Types }
  21981.   {$EXTERNALSYM CTLCOLOR_MSGBOX}
  21982.   CTLCOLOR_MSGBOX = 0;
  21983.   {$EXTERNALSYM CTLCOLOR_EDIT}
  21984.   CTLCOLOR_EDIT = 1;
  21985.   {$EXTERNALSYM CTLCOLOR_LISTBOX}
  21986.   CTLCOLOR_LISTBOX = 2;
  21987.   {$EXTERNALSYM CTLCOLOR_BTN}
  21988.   CTLCOLOR_BTN = 3;
  21989.   {$EXTERNALSYM CTLCOLOR_DLG}
  21990.   CTLCOLOR_DLG = 4;
  21991.   {$EXTERNALSYM CTLCOLOR_SCROLLBAR}
  21992.   CTLCOLOR_SCROLLBAR = 5;
  21993.   {$EXTERNALSYM CTLCOLOR_STATIC}
  21994.   CTLCOLOR_STATIC = 6;
  21995.   {$EXTERNALSYM CTLCOLOR_MAX}
  21996.   CTLCOLOR_MAX = 7;
  21997.  
  21998.   {$EXTERNALSYM COLOR_SCROLLBAR}
  21999.   COLOR_SCROLLBAR = 0;
  22000.   {$EXTERNALSYM COLOR_BACKGROUND}
  22001.   COLOR_BACKGROUND = 1;
  22002.   {$EXTERNALSYM COLOR_ACTIVECAPTION}
  22003.   COLOR_ACTIVECAPTION = 2;
  22004.   {$EXTERNALSYM COLOR_INACTIVECAPTION}
  22005.   COLOR_INACTIVECAPTION = 3;
  22006.   {$EXTERNALSYM COLOR_MENU}
  22007.   COLOR_MENU = 4;
  22008.   {$EXTERNALSYM COLOR_WINDOW}
  22009.   COLOR_WINDOW = 5;
  22010.   {$EXTERNALSYM COLOR_WINDOWFRAME}
  22011.   COLOR_WINDOWFRAME = 6;
  22012.   {$EXTERNALSYM COLOR_MENUTEXT}
  22013.   COLOR_MENUTEXT = 7;
  22014.   {$EXTERNALSYM COLOR_WINDOWTEXT}
  22015.   COLOR_WINDOWTEXT = 8;
  22016.   {$EXTERNALSYM COLOR_CAPTIONTEXT}
  22017.   COLOR_CAPTIONTEXT = 9;
  22018.   {$EXTERNALSYM COLOR_ACTIVEBORDER}
  22019.   COLOR_ACTIVEBORDER = 10;
  22020.   {$EXTERNALSYM COLOR_INACTIVEBORDER}
  22021.   COLOR_INACTIVEBORDER = 11;
  22022.   {$EXTERNALSYM COLOR_APPWORKSPACE}
  22023.   COLOR_APPWORKSPACE = 12;
  22024.   {$EXTERNALSYM COLOR_HIGHLIGHT}
  22025.   COLOR_HIGHLIGHT = 13;
  22026.   {$EXTERNALSYM COLOR_HIGHLIGHTTEXT}
  22027.   COLOR_HIGHLIGHTTEXT = 14;
  22028.   {$EXTERNALSYM COLOR_BTNFACE}
  22029.   COLOR_BTNFACE = 15;
  22030.   {$EXTERNALSYM COLOR_BTNSHADOW}
  22031.   COLOR_BTNSHADOW = $10;
  22032.   {$EXTERNALSYM COLOR_GRAYTEXT}
  22033.   COLOR_GRAYTEXT = 17;
  22034.   {$EXTERNALSYM COLOR_BTNTEXT}
  22035.   COLOR_BTNTEXT = 18;
  22036.   {$EXTERNALSYM COLOR_INACTIVECAPTIONTEXT}
  22037.   COLOR_INACTIVECAPTIONTEXT = 19;
  22038.   {$EXTERNALSYM COLOR_BTNHIGHLIGHT}
  22039.   COLOR_BTNHIGHLIGHT = 20;
  22040.  
  22041.   {$EXTERNALSYM COLOR_3DDKSHADOW}
  22042.   COLOR_3DDKSHADOW = 21;
  22043.   {$EXTERNALSYM COLOR_3DLIGHT}
  22044.   COLOR_3DLIGHT = 22;
  22045.   {$EXTERNALSYM COLOR_INFOTEXT}
  22046.   COLOR_INFOTEXT = 23;
  22047.   {$EXTERNALSYM COLOR_INFOBK}
  22048.   COLOR_INFOBK = 24;
  22049.   {$EXTERNALSYM COLOR_HOTLIGHT}
  22050.   COLOR_HOTLIGHT = 26;
  22051.   {$EXTERNALSYM COLOR_GRADIENTACTIVECAPTION}
  22052.   COLOR_GRADIENTACTIVECAPTION = 27;
  22053.   {$EXTERNALSYM COLOR_GRADIENTINACTIVECAPTION}
  22054.   COLOR_GRADIENTINACTIVECAPTION = 28;
  22055.   COLOR_ENDCOLORS = COLOR_GRADIENTINACTIVECAPTION;
  22056.   {$EXTERNALSYM COLOR_DESKTOP}
  22057.   COLOR_DESKTOP = COLOR_BACKGROUND;
  22058.   {$EXTERNALSYM COLOR_3DFACE}
  22059.   COLOR_3DFACE = COLOR_BTNFACE;
  22060.   {$EXTERNALSYM COLOR_3DSHADOW}
  22061.   COLOR_3DSHADOW = COLOR_BTNSHADOW;
  22062.   {$EXTERNALSYM COLOR_3DHIGHLIGHT}
  22063.   COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT;
  22064.   {$EXTERNALSYM COLOR_3DHILIGHT}
  22065.   COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT;
  22066.   {$EXTERNALSYM COLOR_BTNHILIGHT}
  22067.   COLOR_BTNHILIGHT = COLOR_BTNHIGHLIGHT;
  22068.  
  22069. {$EXTERNALSYM GetSysColor}
  22070. function GetSysColor(nIndex: Integer): DWORD; stdcall;
  22071. {$EXTERNALSYM GetSysColorBrush}
  22072. function GetSysColorBrush(nIndex: Integer): HBRUSH; stdcall;
  22073. {$EXTERNALSYM SetSysColors}
  22074. function SetSysColors(cElements: Integer; const lpaElements;
  22075.   const lpaRgbValues): BOOL; stdcall;
  22076. {$EXTERNALSYM DrawFocusRect}
  22077. function DrawFocusRect(hDC: HDC; const lprc: TRect): BOOL; stdcall;
  22078. {$EXTERNALSYM FillRect}
  22079. function FillRect(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
  22080. {$EXTERNALSYM FrameRect}
  22081. function FrameRect(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
  22082. {$EXTERNALSYM InvertRect}
  22083. function InvertRect(hDC: HDC; const lprc: TRect): BOOL; stdcall;
  22084. {$EXTERNALSYM SetRect}
  22085. function SetRect(var lprc: TRect; xLeft, yTop, xRight, yBottom: Integer): BOOL; stdcall;
  22086. {$EXTERNALSYM SetRectEmpty}
  22087. function SetRectEmpty(var lprc: TRect): BOOL; stdcall;
  22088. {$EXTERNALSYM CopyRect}
  22089. function CopyRect(var lprcDst: TRect; const lprcSrc: TRect): BOOL; stdcall;
  22090. {$EXTERNALSYM InflateRect}
  22091. function InflateRect(var lprc: TRect; dx, dy: Integer): BOOL; stdcall;
  22092. {$EXTERNALSYM IntersectRect}
  22093. function IntersectRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; stdcall;
  22094. {$EXTERNALSYM UnionRect}
  22095. function UnionRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; stdcall;
  22096. {$EXTERNALSYM SubtractRect}
  22097. function SubtractRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; stdcall;
  22098. {$EXTERNALSYM OffsetRect}
  22099. function OffsetRect(var lprc: TRect; dx, dy: Integer): BOOL; stdcall;
  22100. {$EXTERNALSYM IsRectEmpty}
  22101. function IsRectEmpty(const lprc: TRect): BOOL; stdcall;
  22102. {$EXTERNALSYM EqualRect}
  22103. function EqualRect(const lprc1, lprc2: TRect): BOOL; stdcall;
  22104. {$EXTERNALSYM PtInRect}
  22105. function PtInRect(const lprc: TRect; pt: TPoint): BOOL; stdcall;
  22106. {$EXTERNALSYM GetWindowWord}
  22107. function GetWindowWord(hWnd: HWND; nIndex: Integer): Word; stdcall;
  22108. {$EXTERNALSYM SetWindowWord}
  22109. function SetWindowWord(hWnd: HWND; nIndex: Integer; wNewWord: Word): Word; stdcall;
  22110. {$EXTERNALSYM GetWindowLongA}
  22111. function GetWindowLongA(hWnd: HWND; nIndex: Integer): Longint; stdcall;
  22112. {$EXTERNALSYM GetWindowLongW}
  22113. function GetWindowLongW(hWnd: HWND; nIndex: Integer): Longint; stdcall;
  22114. {$EXTERNALSYM GetWindowLong}
  22115. function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; stdcall;
  22116. {$EXTERNALSYM SetWindowLongA}
  22117. function SetWindowLongA(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall;
  22118. {$EXTERNALSYM SetWindowLongW}
  22119. function SetWindowLongW(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall;
  22120. {$EXTERNALSYM SetWindowLong}
  22121. function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall;
  22122. {$EXTERNALSYM GetClassWord}
  22123. function GetClassWord(hWnd: HWND; nIndex: Integer): Word; stdcall;
  22124. {$EXTERNALSYM SetClassWord}
  22125. function SetClassWord(hWnd: HWND; nIndex: Integer; wNewWord: Word): Word; stdcall;
  22126. {$EXTERNALSYM GetClassLongA}
  22127. function GetClassLongA(hWnd: HWND; nIndex: Integer): DWORD; stdcall;
  22128. {$EXTERNALSYM GetClassLongW}
  22129. function GetClassLongW(hWnd: HWND; nIndex: Integer): DWORD; stdcall;
  22130. {$EXTERNALSYM GetClassLong}
  22131. function GetClassLong(hWnd: HWND; nIndex: Integer): DWORD; stdcall;
  22132. {$EXTERNALSYM SetClassLongA}
  22133. function SetClassLongA(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): DWORD; stdcall;
  22134. {$EXTERNALSYM SetClassLongW}
  22135. function SetClassLongW(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): DWORD; stdcall;
  22136. {$EXTERNALSYM SetClassLong}
  22137. function SetClassLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): DWORD; stdcall;
  22138. {$EXTERNALSYM GetDesktopWindow}
  22139. function GetDesktopWindow: HWND; stdcall;
  22140. {$EXTERNALSYM GetParent}
  22141. function GetParent(hWnd: HWND): HWND; stdcall;
  22142. {$EXTERNALSYM SetParent}
  22143. function SetParent(hWndChild, hWndNewParent: HWND): HWND; stdcall;
  22144. {$EXTERNALSYM EnumChildWindows}
  22145. function EnumChildWindows(hWndParent: HWND; lpEnumFunc: TFNWndEnumProc;
  22146.   lParam: LPARAM): BOOL; stdcall;
  22147. {$EXTERNALSYM FindWindowA}
  22148. function FindWindowA(lpClassName, lpWindowName: PAnsiChar): HWND; stdcall;
  22149. {$EXTERNALSYM FindWindowW}
  22150. function FindWindowW(lpClassName, lpWindowName: PWideChar): HWND; stdcall;
  22151. {$EXTERNALSYM FindWindow}
  22152. function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;
  22153. {$EXTERNALSYM FindWindowExA}
  22154. function FindWindowExA(Parent, Child: HWND; ClassName, WindowName: PAnsiChar): HWND; stdcall;
  22155. {$EXTERNALSYM FindWindowExW}
  22156. function FindWindowExW(Parent, Child: HWND; ClassName, WindowName: PWideChar): HWND; stdcall;
  22157. {$EXTERNALSYM FindWindowEx}
  22158. function FindWindowEx(Parent, Child: HWND; ClassName, WindowName: PChar): HWND; stdcall;
  22159. {$EXTERNALSYM EnumWindows}
  22160. function EnumWindows(lpEnumFunc: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall;
  22161. {$EXTERNALSYM EnumThreadWindows}
  22162. function EnumThreadWindows(dwThreadId: DWORD; lpfn: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall;
  22163. {$EXTERNALSYM EnumTaskWindows}
  22164. function EnumTaskWindows(hTask: THandle; lpfn: FARPROC; lParam: LPARAM): BOOL;
  22165. {$EXTERNALSYM GetClassNameA}
  22166. function GetClassNameA(hWnd: HWND; lpClassName: PAnsiChar; nMaxCount: Integer): Integer; stdcall;
  22167. {$EXTERNALSYM GetClassNameW}
  22168. function GetClassNameW(hWnd: HWND; lpClassName: PWideChar; nMaxCount: Integer): Integer; stdcall;
  22169. {$EXTERNALSYM GetClassName}
  22170. function GetClassName(hWnd: HWND; lpClassName: PChar; nMaxCount: Integer): Integer; stdcall;
  22171. {$EXTERNALSYM GetTopWindow}
  22172. function GetTopWindow(hWnd: HWND): HWND; stdcall;
  22173. {$EXTERNALSYM GetNextWindow}
  22174. function GetNextWindow(hWnd: HWND; uCmd: UINT): HWND; stdcall;
  22175. {$EXTERNALSYM GetWindowThreadProcessId}
  22176. function GetWindowThreadProcessId(hWnd: HWND; lpdwProcessId: Pointer): DWORD; stdcall;
  22177. {$EXTERNALSYM GetWindowTask}
  22178. function GetWindowTask(hWnd: HWND): THandle;
  22179. {$EXTERNALSYM GetLastActivePopup}
  22180. function GetLastActivePopup(hWnd: HWND): HWND; stdcall;
  22181.  
  22182. const
  22183.   { GetWindow() Constants }
  22184.   {$EXTERNALSYM GW_HWNDFIRST}
  22185.   GW_HWNDFIRST = 0;
  22186.   {$EXTERNALSYM GW_HWNDLAST}
  22187.   GW_HWNDLAST = 1;
  22188.   {$EXTERNALSYM GW_HWNDNEXT}
  22189.   GW_HWNDNEXT = 2;
  22190.   {$EXTERNALSYM GW_HWNDPREV}
  22191.   GW_HWNDPREV = 3;
  22192.   {$EXTERNALSYM GW_OWNER}
  22193.   GW_OWNER = 4;
  22194.   {$EXTERNALSYM GW_CHILD}
  22195.   GW_CHILD = 5;
  22196.   {$EXTERNALSYM GW_MAX}
  22197.   GW_MAX = 5;
  22198.  
  22199. {$EXTERNALSYM GetWindow}
  22200. function GetWindow(hWnd: HWND; uCmd: UINT): HWND; stdcall;
  22201. {$EXTERNALSYM SetWindowsHookA}
  22202. function SetWindowsHookA(nFilterType: Integer; pfnFilterProc: TFNHookProc): HHOOK; stdcall;
  22203. {$EXTERNALSYM SetWindowsHookW}
  22204. function SetWindowsHookW(nFilterType: Integer; pfnFilterProc: TFNHookProc): HHOOK; stdcall;
  22205. {$EXTERNALSYM SetWindowsHook}
  22206. function SetWindowsHook(nFilterType: Integer; pfnFilterProc: TFNHookProc): HHOOK; stdcall;
  22207. {$EXTERNALSYM SetWindowsHookExA}
  22208. function SetWindowsHookExA(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD): HHOOK; stdcall;
  22209. {$EXTERNALSYM SetWindowsHookExW}
  22210. function SetWindowsHookExW(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD): HHOOK; stdcall;
  22211. {$EXTERNALSYM SetWindowsHookEx}
  22212. function SetWindowsHookEx(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD): HHOOK; stdcall;
  22213. {$EXTERNALSYM UnhookWindowsHook}
  22214. function UnhookWindowsHook(nCode: Integer; pfnFilterProc: TFNHookProc): BOOL; stdcall;
  22215. {$EXTERNALSYM UnhookWindowsHookEx}
  22216. function UnhookWindowsHookEx(hhk: HHOOK): BOOL; stdcall;
  22217. {$EXTERNALSYM CallNextHookEx}
  22218. function CallNextHookEx(hhk: HHOOK; nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  22219.  
  22220. { Macros for source-level compatibility with old functions. }
  22221.  
  22222. {$EXTERNALSYM DefHookProc}
  22223. function DefHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM; phhk: FARPROC): LRESULT;
  22224.  
  22225. const
  22226. { Menu flags for AddCheckEnableMenuItem() }
  22227.  
  22228.   {$EXTERNALSYM MF_INSERT}
  22229.   MF_INSERT = 0;
  22230.   {$EXTERNALSYM MF_CHANGE}
  22231.   MF_CHANGE = $80;
  22232.   {$EXTERNALSYM MF_APPEND}
  22233.   MF_APPEND = $100;
  22234.   {$EXTERNALSYM MF_DELETE}
  22235.   MF_DELETE = $200;
  22236.   {$EXTERNALSYM MF_REMOVE}
  22237.   MF_REMOVE = $1000;
  22238.  
  22239.   {$EXTERNALSYM MF_BYCOMMAND}
  22240.   MF_BYCOMMAND = 0;
  22241.   {$EXTERNALSYM MF_BYPOSITION}
  22242.   MF_BYPOSITION = $400;
  22243.  
  22244.   {$EXTERNALSYM MF_SEPARATOR}
  22245.   MF_SEPARATOR = $800;
  22246.  
  22247.   {$EXTERNALSYM MF_ENABLED}
  22248.   MF_ENABLED = 0;
  22249.   {$EXTERNALSYM MF_GRAYED}
  22250.   MF_GRAYED = 1;
  22251.   {$EXTERNALSYM MF_DISABLED}
  22252.   MF_DISABLED = 2;
  22253.  
  22254.   {$EXTERNALSYM MF_UNCHECKED}
  22255.   MF_UNCHECKED = 0;
  22256.   {$EXTERNALSYM MF_CHECKED}
  22257.   MF_CHECKED = 8;
  22258.   {$EXTERNALSYM MF_USECHECKBITMAPS}
  22259.   MF_USECHECKBITMAPS = $200;
  22260.  
  22261.   {$EXTERNALSYM MF_STRING}
  22262.   MF_STRING = 0;
  22263.   {$EXTERNALSYM MF_BITMAP}
  22264.   MF_BITMAP = 4;
  22265.   {$EXTERNALSYM MF_OWNERDRAW}
  22266.   MF_OWNERDRAW = $100;
  22267.  
  22268.   {$EXTERNALSYM MF_POPUP}
  22269.   MF_POPUP = $10;
  22270.   {$EXTERNALSYM MF_MENUBARBREAK}
  22271.   MF_MENUBARBREAK = $20;
  22272.   {$EXTERNALSYM MF_MENUBREAK}
  22273.   MF_MENUBREAK = $40;
  22274.  
  22275.   {$EXTERNALSYM MF_UNHILITE}
  22276.   MF_UNHILITE = 0;
  22277.   {$EXTERNALSYM MF_HILITE}
  22278.   MF_HILITE = $80;
  22279.  
  22280.   {$EXTERNALSYM MF_DEFAULT}
  22281.   MF_DEFAULT = $1000;
  22282.   {$EXTERNALSYM MF_SYSMENU}
  22283.   MF_SYSMENU = $2000;
  22284.   {$EXTERNALSYM MF_HELP}
  22285.   MF_HELP = $4000;
  22286.   {$EXTERNALSYM MF_RIGHTJUSTIFY}
  22287.   MF_RIGHTJUSTIFY = $4000;
  22288.  
  22289.   {$EXTERNALSYM MF_MOUSESELECT}
  22290.   MF_MOUSESELECT = $8000;
  22291.   {$EXTERNALSYM MF_END}
  22292.   MF_END = $80;            { Obsolete -- only used by old RES files }
  22293.  
  22294.   {$EXTERNALSYM MFT_STRING}
  22295.   MFT_STRING = MF_STRING;
  22296.   {$EXTERNALSYM MFT_BITMAP}
  22297.   MFT_BITMAP = MF_BITMAP;
  22298.   {$EXTERNALSYM MFT_MENUBARBREAK}
  22299.   MFT_MENUBARBREAK = MF_MENUBARBREAK;
  22300.   {$EXTERNALSYM MFT_MENUBREAK}
  22301.   MFT_MENUBREAK = MF_MENUBREAK;
  22302.   {$EXTERNALSYM MFT_OWNERDRAW}
  22303.   MFT_OWNERDRAW = MF_OWNERDRAW;
  22304.   {$EXTERNALSYM MFT_RADIOCHECK}
  22305.   MFT_RADIOCHECK = $200;
  22306.   {$EXTERNALSYM MFT_SEPARATOR}
  22307.   MFT_SEPARATOR = MF_SEPARATOR;
  22308.   {$EXTERNALSYM MFT_RIGHTORDER}
  22309.   MFT_RIGHTORDER = $2000;
  22310.   {$EXTERNALSYM MFT_RIGHTJUSTIFY}
  22311.   MFT_RIGHTJUSTIFY = MF_RIGHTJUSTIFY;
  22312.  
  22313.   { Menu flags for AddCheckEnableMenuItem() }
  22314.   {$EXTERNALSYM MFS_GRAYED}
  22315.   MFS_GRAYED = 3;
  22316.   {$EXTERNALSYM MFS_DISABLED}
  22317.   MFS_DISABLED = MFS_GRAYED;
  22318.   {$EXTERNALSYM MFS_CHECKED}
  22319.   MFS_CHECKED = MF_CHECKED;
  22320.   {$EXTERNALSYM MFS_HILITE}
  22321.   MFS_HILITE = MF_HILITE;
  22322.   {$EXTERNALSYM MFS_ENABLED}
  22323.   MFS_ENABLED = MF_ENABLED;
  22324.   {$EXTERNALSYM MFS_UNCHECKED}
  22325.   MFS_UNCHECKED = MF_UNCHECKED;
  22326.   {$EXTERNALSYM MFS_UNHILITE}
  22327.   MFS_UNHILITE = MF_UNHILITE;
  22328.   {$EXTERNALSYM MFS_DEFAULT}
  22329.   MFS_DEFAULT = MF_DEFAULT;
  22330.  
  22331.   {$EXTERNALSYM MFS_MASK}
  22332.   MFS_MASK = $108B;
  22333.   {$EXTERNALSYM MFS_HOTTRACKDRAWN}
  22334.   MFS_HOTTRACKDRAWN = $10000000;
  22335.   {$EXTERNALSYM MFS_CACHEDBMP}
  22336.   MFS_CACHEDBMP = $20000000;
  22337.   {$EXTERNALSYM MFS_BOTTOMGAPDROP}
  22338.   MFS_BOTTOMGAPDROP = $40000000;
  22339.   {$EXTERNALSYM MFS_TOPGAPDROP}
  22340.   MFS_TOPGAPDROP = $80000000;
  22341.   {$EXTERNALSYM MFS_GAPDROP}
  22342.   MFS_GAPDROP = $C0000000;
  22343.  
  22344. {$EXTERNALSYM CheckMenuRadioItem}
  22345. function CheckMenuRadioItem(hMenu: HMENU; First, Last, Check, Flags: UINT): BOOL; stdcall;
  22346.  
  22347. type
  22348.   { Menu item resource format }
  22349.   PMenuItemTemplateHeader = ^TMenuItemTemplateHeader;
  22350.   {$EXTERNALSYM MENUITEMTEMPLATEHEADER}
  22351.   MENUITEMTEMPLATEHEADER = packed record
  22352.     versionNumber: Word;
  22353.     offset: Word;
  22354.   end;
  22355.   TMenuItemTemplateHeader = MENUITEMTEMPLATEHEADER;
  22356.  
  22357.   PMenuItemTemplate = ^TMenuItemTemplate;
  22358.   {$EXTERNALSYM MENUITEMTEMPLATE}
  22359.   MENUITEMTEMPLATE = packed record {Version 0}
  22360.     mtOption: Word;
  22361.     mtID: Word;
  22362.     mtString: array[0..0] of WCHAR;
  22363.   end;
  22364.   TMenuItemTemplate = MENUITEMTEMPLATE;
  22365.  
  22366.  
  22367. const
  22368.   { System Menu Command Values }
  22369.   {$EXTERNALSYM SC_SIZE}
  22370.   SC_SIZE = 61440;
  22371.   {$EXTERNALSYM SC_MOVE}
  22372.   SC_MOVE = 61456;
  22373.   {$EXTERNALSYM SC_MINIMIZE}
  22374.   SC_MINIMIZE = 61472;
  22375.   {$EXTERNALSYM SC_MAXIMIZE}
  22376.   SC_MAXIMIZE = 61488;
  22377.   {$EXTERNALSYM SC_NEXTWINDOW}
  22378.   SC_NEXTWINDOW = 61504;
  22379.   {$EXTERNALSYM SC_PREVWINDOW}
  22380.   SC_PREVWINDOW = 61520;
  22381.   {$EXTERNALSYM SC_CLOSE}
  22382.   SC_CLOSE = 61536;
  22383.   {$EXTERNALSYM SC_VSCROLL}
  22384.   SC_VSCROLL = 61552;
  22385.   {$EXTERNALSYM SC_HSCROLL}
  22386.   SC_HSCROLL = 61568;
  22387.   {$EXTERNALSYM SC_MOUSEMENU}
  22388.   SC_MOUSEMENU = 61584;
  22389.   {$EXTERNALSYM SC_KEYMENU}
  22390.   SC_KEYMENU = 61696;
  22391.   {$EXTERNALSYM SC_ARRANGE}
  22392.   SC_ARRANGE = 61712;
  22393.   {$EXTERNALSYM SC_RESTORE}
  22394.   SC_RESTORE = 61728;
  22395.   {$EXTERNALSYM SC_TASKLIST}
  22396.   SC_TASKLIST = 61744;
  22397.   {$EXTERNALSYM SC_SCREENSAVE}
  22398.   SC_SCREENSAVE = 61760;
  22399.   {$EXTERNALSYM SC_HOTKEY}
  22400.   SC_HOTKEY = 61776;
  22401.   {$EXTERNALSYM SC_DEFAULT}
  22402.   SC_DEFAULT = 61792;
  22403.   {$EXTERNALSYM SC_MONITORPOWER}
  22404.   SC_MONITORPOWER = 61808;
  22405.   {$EXTERNALSYM SC_CONTEXTHELP}
  22406.   SC_CONTEXTHELP = 61824;
  22407.   {$EXTERNALSYM SC_SEPARATOR}
  22408.   SC_SEPARATOR = 61455;
  22409.  
  22410.   { Obsolete names }
  22411.   {$EXTERNALSYM SC_ICON}
  22412.   SC_ICON = SC_MINIMIZE;
  22413.   {$EXTERNALSYM SC_ZOOM}
  22414.   SC_ZOOM = SC_MAXIMIZE;
  22415.  
  22416. { Resource Loading Routines }
  22417.  
  22418. {$EXTERNALSYM LoadBitmapA}
  22419. function LoadBitmapA(hInstance: HINST; lpBitmapName: PAnsiChar): HBITMAP; stdcall;
  22420. {$EXTERNALSYM LoadBitmapW}
  22421. function LoadBitmapW(hInstance: HINST; lpBitmapName: PAnsiChar): HBITMAP; stdcall;
  22422. {$EXTERNALSYM LoadBitmap}
  22423. function LoadBitmap(hInstance: HINST; lpBitmapName: PAnsiChar): HBITMAP; stdcall;
  22424. {$EXTERNALSYM LoadCursorA}
  22425. function LoadCursorA(hInstance: HINST; lpCursorName: PAnsiChar): HCURSOR; stdcall;
  22426. {$EXTERNALSYM LoadCursorW}
  22427. function LoadCursorW(hInstance: HINST; lpCursorName: PAnsiChar): HCURSOR; stdcall;
  22428. {$EXTERNALSYM LoadCursor}
  22429. function LoadCursor(hInstance: HINST; lpCursorName: PAnsiChar): HCURSOR; stdcall;
  22430. {$EXTERNALSYM LoadCursorFromFileA}
  22431. function LoadCursorFromFileA(lpFileName: PAnsiChar): HCURSOR; stdcall;
  22432. {$EXTERNALSYM LoadCursorFromFileW}
  22433. function LoadCursorFromFileW(lpFileName: PAnsiChar): HCURSOR; stdcall;
  22434. {$EXTERNALSYM LoadCursorFromFile}
  22435. function LoadCursorFromFile(lpFileName: PAnsiChar): HCURSOR; stdcall;
  22436. {$EXTERNALSYM CreateCursor}
  22437. function CreateCursor(hInst: HINST; xHotSpot, yHotSpot, nWidth, nHeight: Integer;
  22438.   pvANDPlaneter, pvXORPlane: Pointer): HCURSOR; stdcall;
  22439. {$EXTERNALSYM DestroyCursor}
  22440. function DestroyCursor(hCursor: HICON): BOOL; stdcall;
  22441.  
  22442. const
  22443.   { Standard Cursor IDs }
  22444.   {$EXTERNALSYM IDC_ARROW}
  22445.   IDC_ARROW = MakeIntResource(32512);
  22446.   {$EXTERNALSYM IDC_IBEAM}
  22447.   IDC_IBEAM = MakeIntResource(32513);
  22448.   {$EXTERNALSYM IDC_WAIT}
  22449.   IDC_WAIT = MakeIntResource(32514);
  22450.   {$EXTERNALSYM IDC_CROSS}
  22451.   IDC_CROSS = MakeIntResource(32515);
  22452.   {$EXTERNALSYM IDC_UPARROW}
  22453.   IDC_UPARROW = MakeIntResource(32516);
  22454.   {$EXTERNALSYM IDC_SIZE}
  22455.   IDC_SIZE = MakeIntResource(32640);
  22456.   {$EXTERNALSYM IDC_ICON}
  22457.   IDC_ICON = MakeIntResource(32641);
  22458.   {$EXTERNALSYM IDC_SIZENWSE}
  22459.   IDC_SIZENWSE = MakeIntResource(32642);
  22460.   {$EXTERNALSYM IDC_SIZENESW}
  22461.   IDC_SIZENESW = MakeIntResource(32643);
  22462.   {$EXTERNALSYM IDC_SIZEWE}
  22463.   IDC_SIZEWE = MakeIntResource(32644);
  22464.   {$EXTERNALSYM IDC_SIZENS}
  22465.   IDC_SIZENS = MakeIntResource(32645);
  22466.   {$EXTERNALSYM IDC_SIZEALL}
  22467.   IDC_SIZEALL = MakeIntResource(32646);
  22468.   {$EXTERNALSYM IDC_NO}
  22469.   IDC_NO = MakeIntResource(32648);
  22470.   {$EXTERNALSYM IDC_HAND}
  22471.   IDC_HAND = MakeIntResource(32649);
  22472.   {$EXTERNALSYM IDC_APPSTARTING}
  22473.   IDC_APPSTARTING = MakeIntResource(32650);
  22474.   {$EXTERNALSYM IDC_HELP}
  22475.   IDC_HELP = MakeIntResource(32651);
  22476.  
  22477. {$EXTERNALSYM SetSystemCursor}
  22478. function SetSystemCursor(hcur: HICON; id: DWORD): BOOL; stdcall;
  22479.  
  22480. type
  22481.   PIconInfo = ^TIconInfo;
  22482.   {$EXTERNALSYM _ICONINFO}
  22483.   _ICONINFO = packed record
  22484.     fIcon: BOOL;
  22485.     xHotspot: DWORD;
  22486.     yHotspot: DWORD;
  22487.     hbmMask: HBITMAP;
  22488.     hbmColor: HBITMAP;
  22489.   end;
  22490.   TIconInfo = _ICONINFO;
  22491.   {$EXTERNALSYM ICONINFO}
  22492.   ICONINFO = _ICONINFO;
  22493.  
  22494. {$EXTERNALSYM LoadIconA}
  22495. function LoadIconA(hInstance: HINST; lpIconName: PAnsiChar): HICON; stdcall;
  22496. {$EXTERNALSYM LoadIconW}
  22497. function LoadIconW(hInstance: HINST; lpIconName: PWideChar): HICON; stdcall;
  22498. {$EXTERNALSYM LoadIcon}
  22499. function LoadIcon(hInstance: HINST; lpIconName: PChar): HICON; stdcall;
  22500. {$EXTERNALSYM CreateIcon}
  22501. function CreateIcon(hInstance: HINST; nWidth, nHeight: Integer;
  22502.   cPlanes, cBitsPixel: Byte; lpbANDbits, lpbXORbits: Pointer): HICON; stdcall;
  22503. {$EXTERNALSYM DestroyIcon}
  22504. function DestroyIcon(hIcon: HICON): BOOL; stdcall;
  22505. {$EXTERNALSYM LookupIconIdFromDirectory}
  22506. function LookupIconIdFromDirectory(presbits: PByte; fIcon: BOOL): Integer; stdcall;
  22507. {$EXTERNALSYM LookupIconIdFromDirectoryEx}
  22508. function LookupIconIdFromDirectoryEx(presbits: PByte; fIcon: BOOL;
  22509.   cxDesired, cyDesired: Integer; Flags: UINT): Integer; stdcall;
  22510. {$EXTERNALSYM CreateIconFromResource}
  22511. function CreateIconFromResource(presbits: PByte; dwResSize: DWORD;
  22512.   fIcon: BOOL; dwVer: DWORD): HICON; stdcall;
  22513. {$EXTERNALSYM CreateIconFromResourceEx}
  22514. function CreateIconFromResourceEx(presbits: PByte; dwResSize: DWORD;
  22515.   fIcon: BOOL; dwVer: DWORD; cxDesired, cyDesired: Integer; Flags: UINT): HICON; stdcall;
  22516.  
  22517.  
  22518. type
  22519.   { IconCursor header }
  22520.   PCursorShape = ^TCursorShape;
  22521.   {$EXTERNALSYM tagCURSORSHAPE}
  22522.   tagCURSORSHAPE = record
  22523.     xHotSpot: Integer;
  22524.     yHotSpot: Integer;
  22525.     cx: Integer;
  22526.     cy: Integer;
  22527.     cbWidth: Integer;
  22528.     Planes: Byte;
  22529.     BitsPixel: Byte;
  22530.   end;
  22531.   TCursorShape = tagCURSORSHAPE;
  22532.   {$EXTERNALSYM CURSORSHAPE}
  22533.   CURSORSHAPE = tagCURSORSHAPE;
  22534.  
  22535. const
  22536.   {$EXTERNALSYM IMAGE_BITMAP}
  22537.   IMAGE_BITMAP = 0;
  22538.   {$EXTERNALSYM IMAGE_ICON}
  22539.   IMAGE_ICON = 1;
  22540.   {$EXTERNALSYM IMAGE_CURSOR}
  22541.   IMAGE_CURSOR = 2;
  22542.   {$EXTERNALSYM IMAGE_ENHMETAFILE}
  22543.   IMAGE_ENHMETAFILE = 3;
  22544.  
  22545.   {$EXTERNALSYM LR_DEFAULTCOLOR}
  22546.   LR_DEFAULTCOLOR = $0000;
  22547.   {$EXTERNALSYM LR_MONOCHROME}
  22548.   LR_MONOCHROME = $0001;
  22549.   {$EXTERNALSYM LR_COLOR}
  22550.   LR_COLOR = $0002;
  22551.   {$EXTERNALSYM LR_COPYRETURNORG}
  22552.   LR_COPYRETURNORG = $0004;
  22553.   {$EXTERNALSYM LR_COPYDELETEORG}
  22554.   LR_COPYDELETEORG = $0008;
  22555.   {$EXTERNALSYM LR_LOADFROMFILE}
  22556.   LR_LOADFROMFILE = $0010;
  22557.   {$EXTERNALSYM LR_LOADTRANSPARENT}
  22558.   LR_LOADTRANSPARENT = $0020;
  22559.   {$EXTERNALSYM LR_DEFAULTSIZE}
  22560.   LR_DEFAULTSIZE = $0040;
  22561.   {$EXTERNALSYM LR_VGACOLOR}
  22562.   LR_VGACOLOR = $0080;
  22563.   {$EXTERNALSYM LR_LOADMAP3DCOLORS}
  22564.   LR_LOADMAP3DCOLORS = $1000;
  22565.   {$EXTERNALSYM LR_CREATEDIBSECTION}
  22566.   LR_CREATEDIBSECTION = $2000;
  22567.   {$EXTERNALSYM LR_COPYFROMRESOURCE}
  22568.   LR_COPYFROMRESOURCE = $4000;
  22569.   {$EXTERNALSYM LR_SHARED}
  22570.   LR_SHARED = $8000;
  22571.  
  22572. {$EXTERNALSYM LoadImageA}
  22573. function LoadImageA(hInst: HINST; ImageName: PAnsiChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;
  22574. {$EXTERNALSYM LoadImageW}
  22575. function LoadImageW(hInst: HINST; ImageName: PWideChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;
  22576. {$EXTERNALSYM LoadImage}
  22577. function LoadImage(hInst: HINST; ImageName: PChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;
  22578. {$EXTERNALSYM CopyImage}
  22579. function CopyImage(hImage: THandle; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;
  22580.  
  22581. const
  22582.   {$EXTERNALSYM DI_MASK}
  22583.   DI_MASK = 1;
  22584.   {$EXTERNALSYM DI_IMAGE}
  22585.   DI_IMAGE = 2;
  22586.   {$EXTERNALSYM DI_NORMAL}
  22587.   DI_NORMAL = 3;
  22588.   {$EXTERNALSYM DI_COMPAT}
  22589.   DI_COMPAT = 4;
  22590.   {$EXTERNALSYM DI_DEFAULTSIZE}
  22591.   DI_DEFAULTSIZE = 8;
  22592.  
  22593. {$EXTERNALSYM DrawIconEx}
  22594. function DrawIconEx(hdc: HDC; xLeft, yTop: Integer; hIcon: HICON;
  22595.   cxWidth, cyWidth: Integer; istepIfAniCur: UINT;
  22596.   hbrFlickerFreeDraw: HBRUSH; diFlags: UINT): BOOL; stdcall;
  22597. {$EXTERNALSYM CreateIconIndirect}
  22598. function CreateIconIndirect(var piconinfo: TIconInfo): HICON; stdcall;
  22599. {$EXTERNALSYM CopyIcon}
  22600. function CopyIcon(hIcon: HICON): HICON; stdcall;
  22601. {$EXTERNALSYM GetIconInfo}
  22602. function GetIconInfo(hIcon: HICON; var piconinfo: TIconInfo): BOOL; stdcall;
  22603.  
  22604. const
  22605.   {$EXTERNALSYM OBM_CLOSE}
  22606.   OBM_CLOSE               = 32754;
  22607.   {$EXTERNALSYM OBM_UPARROW}
  22608.   OBM_UPARROW             = 32753;
  22609.   {$EXTERNALSYM OBM_DNARROW}
  22610.   OBM_DNARROW             = 32752;
  22611.   {$EXTERNALSYM OBM_RGARROW}
  22612.   OBM_RGARROW             = 32751;
  22613.   {$EXTERNALSYM OBM_LFARROW}
  22614.   OBM_LFARROW             = 32750;
  22615.   {$EXTERNALSYM OBM_REDUCE}
  22616.   OBM_REDUCE              = 32749;
  22617.   {$EXTERNALSYM OBM_ZOOM}
  22618.   OBM_ZOOM                = 32748;
  22619.   {$EXTERNALSYM OBM_RESTORE}
  22620.   OBM_RESTORE             = 32747;
  22621.   {$EXTERNALSYM OBM_REDUCED}
  22622.   OBM_REDUCED             = 32746;
  22623.   {$EXTERNALSYM OBM_ZOOMD}
  22624.   OBM_ZOOMD               = 32745;
  22625.   {$EXTERNALSYM OBM_RESTORED}
  22626.   OBM_RESTORED            = 32744;
  22627.   {$EXTERNALSYM OBM_UPARROWD}
  22628.   OBM_UPARROWD            = 32743;
  22629.   {$EXTERNALSYM OBM_DNARROWD}
  22630.   OBM_DNARROWD            = 32742;
  22631.   {$EXTERNALSYM OBM_RGARROWD}
  22632.   OBM_RGARROWD            = 32741;
  22633.   {$EXTERNALSYM OBM_LFARROWD}
  22634.   OBM_LFARROWD            = 32740;
  22635.   {$EXTERNALSYM OBM_MNARROW}
  22636.   OBM_MNARROW             = 32739;
  22637.   {$EXTERNALSYM OBM_COMBO}
  22638.   OBM_COMBO               = 32738;
  22639.   {$EXTERNALSYM OBM_UPARROWI}
  22640.   OBM_UPARROWI            = 32737;
  22641.   {$EXTERNALSYM OBM_DNARROWI}
  22642.   OBM_DNARROWI            = 32736;
  22643.   {$EXTERNALSYM OBM_RGARROWI}
  22644.   OBM_RGARROWI            = 32735;
  22645.   {$EXTERNALSYM OBM_LFARROWI}
  22646.   OBM_LFARROWI            = 32734;
  22647.  
  22648.   {$EXTERNALSYM OBM_OLD_CLOSE}
  22649.   OBM_OLD_CLOSE           = 32767;
  22650.   {$EXTERNALSYM OBM_SIZE}
  22651.   OBM_SIZE                = 32766;
  22652.   {$EXTERNALSYM OBM_OLD_UPARROW}
  22653.   OBM_OLD_UPARROW         = 32765;
  22654.   {$EXTERNALSYM OBM_OLD_DNARROW}
  22655.   OBM_OLD_DNARROW         = 32764;
  22656.   {$EXTERNALSYM OBM_OLD_RGARROW}
  22657.   OBM_OLD_RGARROW         = 32763;
  22658.   {$EXTERNALSYM OBM_OLD_LFARROW}
  22659.   OBM_OLD_LFARROW         = 32762;
  22660.   {$EXTERNALSYM OBM_BTSIZE}
  22661.   OBM_BTSIZE              = 32761;
  22662.   {$EXTERNALSYM OBM_CHECK}
  22663.   OBM_CHECK               = 32760;
  22664.   {$EXTERNALSYM OBM_CHECKBOXES}
  22665.   OBM_CHECKBOXES          = 32759;
  22666.   {$EXTERNALSYM OBM_BTNCORNERS}
  22667.   OBM_BTNCORNERS          = 32758;
  22668.   {$EXTERNALSYM OBM_OLD_REDUCE}
  22669.   OBM_OLD_REDUCE          = 32757;
  22670.   {$EXTERNALSYM OBM_OLD_ZOOM}
  22671.   OBM_OLD_ZOOM            = 32756;
  22672.   {$EXTERNALSYM OBM_OLD_RESTORE}
  22673.   OBM_OLD_RESTORE         = 32755;
  22674.  
  22675.   {$EXTERNALSYM OCR_NORMAL}
  22676.   OCR_NORMAL              = 32512;
  22677.   {$EXTERNALSYM OCR_IBEAM}
  22678.   OCR_IBEAM               = 32513;
  22679.   {$EXTERNALSYM OCR_WAIT}
  22680.   OCR_WAIT                = 32514;
  22681.   {$EXTERNALSYM OCR_CROSS}
  22682.   OCR_CROSS               = 32515;
  22683.   {$EXTERNALSYM OCR_UP}
  22684.   OCR_UP                  = 32516;
  22685.   {$EXTERNALSYM OCR_SIZE}
  22686.   OCR_SIZE                = 32640;  { OBSOLETE: use OCR_SIZEALL }
  22687.   {$EXTERNALSYM OCR_ICON}
  22688.   OCR_ICON                = 32641;  { OBSOLETE: use OCR_NORMAL }
  22689.   {$EXTERNALSYM OCR_SIZENWSE}
  22690.   OCR_SIZENWSE            = 32642;
  22691.   {$EXTERNALSYM OCR_SIZENESW}
  22692.   OCR_SIZENESW            = 32643;
  22693.   {$EXTERNALSYM OCR_SIZEWE}
  22694.   OCR_SIZEWE              = 32644;
  22695.   {$EXTERNALSYM OCR_SIZENS}
  22696.   OCR_SIZENS              = 32645;
  22697.   {$EXTERNALSYM OCR_SIZEALL}
  22698.   OCR_SIZEALL             = 32646;
  22699.   {$EXTERNALSYM OCR_ICOCUR}
  22700.   OCR_ICOCUR              = 32647;  { OBSOLETE: use OIC_WINLOGO }
  22701.   {$EXTERNALSYM OCR_NO}
  22702.   OCR_NO                  = 32648;
  22703.   {$EXTERNALSYM OCR_HAND}
  22704.   OCR_HAND                  = 32649;
  22705.   {$EXTERNALSYM OCR_APPSTARTING}
  22706.   OCR_APPSTARTING         = 32650;
  22707.  
  22708.   {$EXTERNALSYM OIC_SAMPLE}
  22709.   OIC_SAMPLE              = 32512;
  22710.   {$EXTERNALSYM OIC_HAND}
  22711.   OIC_HAND                = 32513;
  22712.   {$EXTERNALSYM OIC_QUES}
  22713.   OIC_QUES                = 32514;
  22714.   {$EXTERNALSYM OIC_BANG}
  22715.   OIC_BANG                = 32515;
  22716.   {$EXTERNALSYM OIC_NOTE}
  22717.   OIC_NOTE                = 32516;
  22718.   {$EXTERNALSYM OIC_WINLOGO}
  22719.   OIC_WINLOGO             = 32517;
  22720.   {$EXTERNALSYM OIC_WARNING}
  22721.   OIC_WARNING             = OIC_BANG;
  22722.   {$EXTERNALSYM OIC_ERROR}
  22723.   OIC_ERROR               = OIC_HAND;
  22724.   {$EXTERNALSYM OIC_INFORMATION}
  22725.   OIC_INFORMATION         = OIC_NOTE;
  22726.  
  22727.   {$EXTERNALSYM RES_ICON}
  22728.   RES_ICON = 1;
  22729.   {$EXTERNALSYM RES_CURSOR}
  22730.   RES_CURSOR = 2;
  22731.  
  22732.   { The ordinal number for the entry point of language drivers. }
  22733.   {$EXTERNALSYM ORD_LANGDRIVER}
  22734.   ORD_LANGDRIVER = 1;
  22735.  
  22736.   { Standard Icon IDs }
  22737.   {$EXTERNALSYM IDI_APPLICATION}
  22738.   IDI_APPLICATION = MakeIntResource(32512);
  22739.   {$EXTERNALSYM IDI_HAND}
  22740.   IDI_HAND = MakeIntResource(32513);
  22741.   {$EXTERNALSYM IDI_QUESTION}
  22742.   IDI_QUESTION = MakeIntResource(32514);
  22743.   {$EXTERNALSYM IDI_EXCLAMATION}
  22744.   IDI_EXCLAMATION = MakeIntResource(32515);
  22745.   {$EXTERNALSYM IDI_ASTERISK}
  22746.   IDI_ASTERISK = MakeIntResource(32516);
  22747.   {$EXTERNALSYM IDI_WINLOGO}
  22748.   IDI_WINLOGO = MakeIntResource(32517);
  22749.   {$EXTERNALSYM IDI_WARNING}
  22750.   IDI_WARNING = IDI_EXCLAMATION;
  22751.   {$EXTERNALSYM IDI_ERROR}
  22752.   IDI_ERROR = IDI_HAND;
  22753.   {$EXTERNALSYM IDI_INFORMATION}
  22754.   IDI_INFORMATION = IDI_ASTERISK;
  22755.  
  22756. {$EXTERNALSYM LoadStringA}
  22757. function LoadStringA(hInstance: HINST; uID: UINT; lpBuffer: PAnsiChar; nBufferMax: Integer): Integer; stdcall;
  22758. {$EXTERNALSYM LoadStringW}
  22759. function LoadStringW(hInstance: HINST; uID: UINT; lpBuffer: PWideChar; nBufferMax: Integer): Integer; stdcall;
  22760. {$EXTERNALSYM LoadString}
  22761. function LoadString(hInstance: HINST; uID: UINT; lpBuffer: PChar; nBufferMax: Integer): Integer; stdcall;
  22762.  
  22763. const
  22764.   { Dialog Box Command IDs }
  22765.   {$EXTERNALSYM IDOK}
  22766.   IDOK = 1;          ID_OK = IDOK;
  22767.   {$EXTERNALSYM IDCANCEL}
  22768.   IDCANCEL = 2;      ID_CANCEL = IDCANCEL;
  22769.   {$EXTERNALSYM IDABORT}
  22770.   IDABORT = 3;       ID_ABORT = IDABORT;
  22771.   {$EXTERNALSYM IDRETRY}
  22772.   IDRETRY = 4;       ID_RETRY = IDRETRY;
  22773.   {$EXTERNALSYM IDIGNORE}
  22774.   IDIGNORE = 5;      ID_IGNORE = IDIGNORE;
  22775.   {$EXTERNALSYM IDYES}
  22776.   IDYES = 6;         ID_YES = IDYES;
  22777.   {$EXTERNALSYM IDNO}
  22778.   IDNO = 7;          ID_NO = IDNO;
  22779.   {$EXTERNALSYM IDCLOSE}
  22780.   IDCLOSE = 8;       ID_CLOSE = IDCLOSE;
  22781.   {$EXTERNALSYM IDHELP}
  22782.   IDHELP = 9;        ID_HELP = IDHELP;
  22783.  
  22784.  
  22785. { Control Manager Structures and Definitions }
  22786.  
  22787.   { Edit Control Styles }
  22788.   {$EXTERNALSYM ES_LEFT}
  22789.   ES_LEFT = 0;
  22790.   {$EXTERNALSYM ES_CENTER}
  22791.   ES_CENTER = 1;
  22792.   {$EXTERNALSYM ES_RIGHT}
  22793.   ES_RIGHT = 2;
  22794.   {$EXTERNALSYM ES_MULTILINE}
  22795.   ES_MULTILINE = 4;
  22796.   {$EXTERNALSYM ES_UPPERCASE}
  22797.   ES_UPPERCASE = 8;
  22798.   {$EXTERNALSYM ES_LOWERCASE}
  22799.   ES_LOWERCASE = $10;
  22800.   {$EXTERNALSYM ES_PASSWORD}
  22801.   ES_PASSWORD = $20;
  22802.   {$EXTERNALSYM ES_AUTOVSCROLL}
  22803.   ES_AUTOVSCROLL = $40;
  22804.   {$EXTERNALSYM ES_AUTOHSCROLL}
  22805.   ES_AUTOHSCROLL = $80;
  22806.   {$EXTERNALSYM ES_NOHIDESEL}
  22807.   ES_NOHIDESEL = $100;
  22808.   {$EXTERNALSYM ES_OEMCONVERT}
  22809.   ES_OEMCONVERT = $400;
  22810.   {$EXTERNALSYM ES_READONLY}
  22811.   ES_READONLY = $800;
  22812.   {$EXTERNALSYM ES_WANTRETURN}
  22813.   ES_WANTRETURN = $1000;
  22814.   {$EXTERNALSYM ES_NUMBER}
  22815.   ES_NUMBER = $2000;
  22816.  
  22817.   { Edit control EM_SETMARGIN parameters }
  22818.   {$EXTERNALSYM EC_LEFTMARGIN}
  22819.   EC_LEFTMARGIN = 1;
  22820.   {$EXTERNALSYM EC_RIGHTMARGIN}
  22821.   EC_RIGHTMARGIN = 2;
  22822.   {$EXTERNALSYM EC_USEFONTINFO}
  22823.   EC_USEFONTINFO = 65535;
  22824.  
  22825.   { wParam of EM_GET/SETIMESTATUS }
  22826.   {$EXTERNALSYM EMSIS_COMPOSITIONSTRING}
  22827.   EMSIS_COMPOSITIONSTRING = 1;
  22828.  
  22829.   { lParam for EMSIS_COMPOSITIONSTRING }
  22830.   {$EXTERNALSYM EIMES_GETCOMPSTRATONCE}
  22831.   EIMES_GETCOMPSTRATONCE = 1;
  22832.   {$EXTERNALSYM EIMES_CANCELCOMPSTRINGFOCUS}
  22833.   EIMES_CANCELCOMPSTRINGFOCUS = 2;
  22834.   {$EXTERNALSYM EIMES_COMPLETECOMPSTRKILLFOCUS}
  22835.   EIMES_COMPLETECOMPSTRKILLFOCUS = 4;
  22836.  
  22837.   { TFNEditWordBreakProc code values }
  22838.   {$EXTERNALSYM WB_LEFT}
  22839.   WB_LEFT = 0;
  22840.   {$EXTERNALSYM WB_RIGHT}
  22841.   WB_RIGHT = 1;
  22842.   {$EXTERNALSYM WB_ISDELIMITER}
  22843.   WB_ISDELIMITER = 2;
  22844.  
  22845.   { Button Control Styles }
  22846.   {$EXTERNALSYM BS_PUSHBUTTON}
  22847.   BS_PUSHBUTTON = 0;
  22848.   {$EXTERNALSYM BS_DEFPUSHBUTTON}
  22849.   BS_DEFPUSHBUTTON = 1;
  22850.   {$EXTERNALSYM BS_CHECKBOX}
  22851.   BS_CHECKBOX = 2;
  22852.   {$EXTERNALSYM BS_AUTOCHECKBOX}
  22853.   BS_AUTOCHECKBOX = 3;
  22854.   {$EXTERNALSYM BS_RADIOBUTTON}
  22855.   BS_RADIOBUTTON = 4;
  22856.   {$EXTERNALSYM BS_3STATE}
  22857.   BS_3STATE = 5;
  22858.   {$EXTERNALSYM BS_AUTO3STATE}
  22859.   BS_AUTO3STATE = 6;
  22860.   {$EXTERNALSYM BS_GROUPBOX}
  22861.   BS_GROUPBOX = 7;
  22862.   {$EXTERNALSYM BS_USERBUTTON}
  22863.   BS_USERBUTTON = 8;
  22864.   {$EXTERNALSYM BS_AUTORADIOBUTTON}
  22865.   BS_AUTORADIOBUTTON = 9;
  22866.   {$EXTERNALSYM BS_OWNERDRAW}
  22867.   BS_OWNERDRAW = 11;
  22868.   {$EXTERNALSYM BS_LEFTTEXT}
  22869.   BS_LEFTTEXT = $20;
  22870.   {$EXTERNALSYM BS_TEXT}
  22871.   BS_TEXT = 0;
  22872.   {$EXTERNALSYM BS_ICON}
  22873.   BS_ICON = $40;
  22874.   {$EXTERNALSYM BS_BITMAP}
  22875.   BS_BITMAP = $80;
  22876.   {$EXTERNALSYM BS_LEFT}
  22877.   BS_LEFT = $100;
  22878.   {$EXTERNALSYM BS_RIGHT}
  22879.   BS_RIGHT = $200;
  22880.   {$EXTERNALSYM BS_CENTER}
  22881.   BS_CENTER = 768;
  22882.   {$EXTERNALSYM BS_TOP}
  22883.   BS_TOP = $400;
  22884.   {$EXTERNALSYM BS_BOTTOM}
  22885.   BS_BOTTOM = $800;
  22886.   {$EXTERNALSYM BS_VCENTER}
  22887.   BS_VCENTER = 3072;
  22888.   {$EXTERNALSYM BS_PUSHLIKE}
  22889.   BS_PUSHLIKE = $1000;
  22890.   {$EXTERNALSYM BS_MULTILINE}
  22891.   BS_MULTILINE = $2000;
  22892.   {$EXTERNALSYM BS_NOTIFY}
  22893.   BS_NOTIFY = $4000;
  22894.   {$EXTERNALSYM BS_FLAT}
  22895.   BS_FLAT = $8000;
  22896.   {$EXTERNALSYM BS_RIGHTBUTTON}
  22897.   BS_RIGHTBUTTON = BS_LEFTTEXT;
  22898.  
  22899.   {$EXTERNALSYM BST_UNCHECKED}
  22900.   BST_UNCHECKED = 0;
  22901.   {$EXTERNALSYM BST_CHECKED}
  22902.   BST_CHECKED = 1;
  22903.   {$EXTERNALSYM BST_INDETERMINATE}
  22904.   BST_INDETERMINATE = 2;
  22905.   {$EXTERNALSYM BST_PUSHED}
  22906.   BST_PUSHED = 4;
  22907.   {$EXTERNALSYM BST_FOCUS}
  22908.   BST_FOCUS = 8;
  22909.  
  22910.   { Static Control Constants }
  22911.   {$EXTERNALSYM SS_LEFT}
  22912.   SS_LEFT = 0;
  22913.   {$EXTERNALSYM SS_CENTER}
  22914.   SS_CENTER = 1;
  22915.   {$EXTERNALSYM SS_RIGHT}
  22916.   SS_RIGHT = 2;
  22917.   {$EXTERNALSYM SS_ICON}
  22918.   SS_ICON = 3;
  22919.   {$EXTERNALSYM SS_BLACKRECT}
  22920.   SS_BLACKRECT = 4;
  22921.   {$EXTERNALSYM SS_GRAYRECT}
  22922.   SS_GRAYRECT = 5;
  22923.   {$EXTERNALSYM SS_WHITERECT}
  22924.   SS_WHITERECT = 6;
  22925.   {$EXTERNALSYM SS_BLACKFRAME}
  22926.   SS_BLACKFRAME = 7;
  22927.   {$EXTERNALSYM SS_GRAYFRAME}
  22928.   SS_GRAYFRAME = 8;
  22929.   {$EXTERNALSYM SS_WHITEFRAME}
  22930.   SS_WHITEFRAME = 9;
  22931.   {$EXTERNALSYM SS_USERITEM}
  22932.   SS_USERITEM = 10;
  22933.   {$EXTERNALSYM SS_SIMPLE}
  22934.   SS_SIMPLE = 11;
  22935.   {$EXTERNALSYM SS_LEFTNOWORDWRAP}
  22936.   SS_LEFTNOWORDWRAP = 12;
  22937.   {$EXTERNALSYM SS_BITMAP}
  22938.   SS_BITMAP = 14;
  22939.   {$EXTERNALSYM SS_OWNERDRAW}
  22940.   SS_OWNERDRAW = 13;
  22941.   {$EXTERNALSYM SS_ENHMETAFILE}
  22942.   SS_ENHMETAFILE = 15;
  22943.   {$EXTERNALSYM SS_ETCHEDHORZ}
  22944.   SS_ETCHEDHORZ = $10;
  22945.   {$EXTERNALSYM SS_ETCHEDVERT}
  22946.   SS_ETCHEDVERT = 17;
  22947.   {$EXTERNALSYM SS_ETCHEDFRAME}
  22948.   SS_ETCHEDFRAME = 18;
  22949.   {$EXTERNALSYM SS_TYPEMASK}
  22950.   SS_TYPEMASK = 31;
  22951.   {$EXTERNALSYM SS_NOPREFIX}
  22952.   SS_NOPREFIX = $80;      { Don't do "&" character translation }
  22953.   {$EXTERNALSYM SS_NOTIFY}
  22954.   SS_NOTIFY = $100;
  22955.   {$EXTERNALSYM SS_CENTERIMAGE}
  22956.   SS_CENTERIMAGE = $200;
  22957.   {$EXTERNALSYM SS_RIGHTJUST}
  22958.   SS_RIGHTJUST = $400;
  22959.   {$EXTERNALSYM SS_REALSIZEIMAGE}
  22960.   SS_REALSIZEIMAGE = $800;
  22961.   {$EXTERNALSYM SS_SUNKEN}
  22962.   SS_SUNKEN = $1000;
  22963.   {$EXTERNALSYM SS_ENDELLIPSIS}
  22964.   SS_ENDELLIPSIS =  $4000;
  22965.   {$EXTERNALSYM SS_PATHELLIPSIS}
  22966.   SS_PATHELLIPSIS = $8000;
  22967.   {$EXTERNALSYM SS_WORDELLIPSIS}
  22968.   SS_WORDELLIPSIS = $C000;
  22969.   {$EXTERNALSYM SS_ELLIPSISMASK}
  22970.   SS_ELLIPSISMASK = $C000;
  22971.  
  22972.   { Static Control Mesages }
  22973.   {$EXTERNALSYM STM_SETICON}
  22974.   STM_SETICON = 368;
  22975.   {$EXTERNALSYM STM_GETICON}
  22976.   STM_GETICON = 369;
  22977.   {$EXTERNALSYM STM_SETIMAGE}
  22978.   STM_SETIMAGE = 370;
  22979.   {$EXTERNALSYM STM_GETIMAGE}
  22980.   STM_GETIMAGE = 371;
  22981.   {$EXTERNALSYM STN_CLICKED}
  22982.   STN_CLICKED = 0;
  22983.   {$EXTERNALSYM STN_DBLCLK}
  22984.   STN_DBLCLK = 1;
  22985.   {$EXTERNALSYM STN_ENABLE}
  22986.   STN_ENABLE = 2;
  22987.   {$EXTERNALSYM STN_DISABLE}
  22988.   STN_DISABLE = 3;
  22989.   {$EXTERNALSYM STM_MSGMAX}
  22990.   STM_MSGMAX = 372;
  22991.  
  22992.   { Dialog window class }
  22993.   {$EXTERNALSYM WC_DIALOG}
  22994.   WC_DIALOG = MakeIntAtom($8002);
  22995.  
  22996.   { GetSetWindowWordLong offsets for use with WC_DIALOG windows }
  22997.   {$EXTERNALSYM DWL_MSGRESULT}
  22998.   DWL_MSGRESULT = 0;
  22999.   {$EXTERNALSYM DWL_DLGPROC}
  23000.   DWL_DLGPROC = 4;
  23001.   {$EXTERNALSYM DWL_USER}
  23002.   DWL_USER = 8;
  23003.  
  23004. { Dialog Manager Routines }
  23005.  
  23006. {$EXTERNALSYM IsDialogMessageA}
  23007. function IsDialogMessageA(hDlg: HWND; var lpMsg: TMsg): BOOL; stdcall;
  23008. {$EXTERNALSYM IsDialogMessageW}
  23009. function IsDialogMessageW(hDlg: HWND; var lpMsg: TMsg): BOOL; stdcall;
  23010. {$EXTERNALSYM IsDialogMessage}
  23011. function IsDialogMessage(hDlg: HWND; var lpMsg: TMsg): BOOL; stdcall;
  23012. {$EXTERNALSYM MapDialogRect}
  23013. function MapDialogRect(hDlg: HWND; var lpRect: TRect): BOOL; stdcall;
  23014. {$EXTERNALSYM DlgDirListA}
  23015. function DlgDirListA(hDlg: HWND; lpPathSpec: PAnsiChar;
  23016.   nIDListBox, nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;
  23017. {$EXTERNALSYM DlgDirListW}
  23018. function DlgDirListW(hDlg: HWND; lpPathSpec: PWideChar;
  23019.   nIDListBox, nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;
  23020. {$EXTERNALSYM DlgDirList}
  23021. function DlgDirList(hDlg: HWND; lpPathSpec: PChar;
  23022.   nIDListBox, nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;
  23023.  
  23024. const
  23025.   { DlgDirList, DlgDirListComboBox flags values }
  23026.   {$EXTERNALSYM DDL_READWRITE}
  23027.   DDL_READWRITE = 0;
  23028.   {$EXTERNALSYM DDL_READONLY}
  23029.   DDL_READONLY = 1;
  23030.   {$EXTERNALSYM DDL_HIDDEN}
  23031.   DDL_HIDDEN = 2;
  23032.   {$EXTERNALSYM DDL_SYSTEM}
  23033.   DDL_SYSTEM = 4;
  23034.   {$EXTERNALSYM DDL_DIRECTORY}
  23035.   DDL_DIRECTORY = $10;
  23036.   {$EXTERNALSYM DDL_ARCHIVE}
  23037.   DDL_ARCHIVE = $20;
  23038.  
  23039.   {$EXTERNALSYM DDL_POSTMSGS}
  23040.   DDL_POSTMSGS = $2000;
  23041.   {$EXTERNALSYM DDL_DRIVES}
  23042.   DDL_DRIVES = $4000;
  23043.   {$EXTERNALSYM DDL_EXCLUSIVE}
  23044.   DDL_EXCLUSIVE = $8000;
  23045.  
  23046. {$EXTERNALSYM DlgDirSelectExA}
  23047. function DlgDirSelectExA(hDlg: HWND; lpString: PAnsiChar; nCount, nIDListBox: Integer): BOOL; stdcall;
  23048. {$EXTERNALSYM DlgDirSelectExW}
  23049. function DlgDirSelectExW(hDlg: HWND; lpString: PWideChar; nCount, nIDListBox: Integer): BOOL; stdcall;
  23050. {$EXTERNALSYM DlgDirSelectEx}
  23051. function DlgDirSelectEx(hDlg: HWND; lpString: PChar; nCount, nIDListBox: Integer): BOOL; stdcall;
  23052. {$EXTERNALSYM DlgDirListComboBoxA}
  23053. function DlgDirListComboBoxA(hDlg: HWND; lpPathSpec: PAnsiChar;
  23054.   nIDComboBox, nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;
  23055. {$EXTERNALSYM DlgDirListComboBoxW}
  23056. function DlgDirListComboBoxW(hDlg: HWND; lpPathSpec: PWideChar;
  23057.   nIDComboBox, nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;
  23058. {$EXTERNALSYM DlgDirListComboBox}
  23059. function DlgDirListComboBox(hDlg: HWND; lpPathSpec: PChar;
  23060.   nIDComboBox, nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;
  23061. {$EXTERNALSYM DlgDirSelectComboBoxExA}
  23062. function DlgDirSelectComboBoxExA(hDlg: HWND; lpString: PAnsiChar;
  23063.   nCount, nIDComboBox: Integer): BOOL; stdcall;
  23064. {$EXTERNALSYM DlgDirSelectComboBoxExW}
  23065. function DlgDirSelectComboBoxExW(hDlg: HWND; lpString: PWideChar;
  23066.   nCount, nIDComboBox: Integer): BOOL; stdcall;
  23067. {$EXTERNALSYM DlgDirSelectComboBoxEx}
  23068. function DlgDirSelectComboBoxEx(hDlg: HWND; lpString: PChar;
  23069.   nCount, nIDComboBox: Integer): BOOL; stdcall;
  23070.  
  23071. const
  23072.   { Dialog Styles }
  23073.   {$EXTERNALSYM DS_ABSALIGN}
  23074.   DS_ABSALIGN = 1;
  23075.   {$EXTERNALSYM DS_SYSMODAL}
  23076.   DS_SYSMODAL = 2;
  23077.   {$EXTERNALSYM DS_LOCALEDIT}
  23078.   DS_LOCALEDIT = $20;         { Edit items get Local storage. }
  23079.   {$EXTERNALSYM DS_SETFONT}
  23080.   DS_SETFONT = $40;           { User specified font for Dlg controls }
  23081.   {$EXTERNALSYM DS_MODALFRAME}
  23082.   DS_MODALFRAME = $80;        { Can be combined with WS_CAPTION  }
  23083.   {$EXTERNALSYM DS_NOIDLEMSG}
  23084.   DS_NOIDLEMSG = $100;        { WM_ENTERIDLE message will not be sent }
  23085.   {$EXTERNALSYM DS_SETFOREGROUND}
  23086.   DS_SETFOREGROUND = $200;    { not in win3.1 }
  23087.  
  23088.   {$EXTERNALSYM DS_3DLOOK}
  23089.   DS_3DLOOK = 4;
  23090.   {$EXTERNALSYM DS_FIXEDSYS}
  23091.   DS_FIXEDSYS = 8;
  23092.   {$EXTERNALSYM DS_NOFAILCREATE}
  23093.   DS_NOFAILCREATE = $10;
  23094.   {$EXTERNALSYM DS_CONTROL}
  23095.   DS_CONTROL = $400;
  23096.   {$EXTERNALSYM DS_CENTER}
  23097.   DS_CENTER = $800;
  23098.   {$EXTERNALSYM DS_CENTERMOUSE}
  23099.   DS_CENTERMOUSE = $1000;
  23100.   {$EXTERNALSYM DS_CONTEXTHELP}
  23101.   DS_CONTEXTHELP = $2000;
  23102.  
  23103.   {$EXTERNALSYM PSI_SETACTIVE}
  23104.   PSI_SETACTIVE = 1;
  23105.   {$EXTERNALSYM PSI_KILLACTIVE}
  23106.   PSI_KILLACTIVE = 2;
  23107.   {$EXTERNALSYM PSI_APPLY}
  23108.   PSI_APPLY = 3;
  23109.   {$EXTERNALSYM PSI_RESET}
  23110.   PSI_RESET = 4;
  23111.   {$EXTERNALSYM PSI_HASHELP}
  23112.   PSI_HASHELP = 5;
  23113.   {$EXTERNALSYM PSI_HELP}
  23114.   PSI_HELP = 6;
  23115.  
  23116.   {$EXTERNALSYM PSI_CHANGED}
  23117.   PSI_CHANGED = 1;
  23118.   {$EXTERNALSYM PSI_GUISTART}
  23119.   PSI_GUISTART = 2;
  23120.   {$EXTERNALSYM PSI_REBOOT}
  23121.   PSI_REBOOT = 3;
  23122.   {$EXTERNALSYM PSI_GETSIBLINGS}
  23123.   PSI_GETSIBLINGS = 4;
  23124.  
  23125.   { Returned in HiWord() of DM_GETDEFID result if msg is supported }
  23126.   {$EXTERNALSYM DC_HASDEFID}
  23127.   DC_HASDEFID = 21323;
  23128.  
  23129.   { Dialog Codes }
  23130.   {$EXTERNALSYM DLGC_WANTARROWS}
  23131.   DLGC_WANTARROWS = 1;         { Control wants arrow keys         }
  23132.   {$EXTERNALSYM DLGC_WANTTAB}
  23133.   DLGC_WANTTAB = 2;            { Control wants tab keys           }
  23134.   {$EXTERNALSYM DLGC_WANTALLKEYS}
  23135.   DLGC_WANTALLKEYS = 4;        { Control wants all keys           }
  23136.   {$EXTERNALSYM DLGC_WANTMESSAGE}
  23137.   DLGC_WANTMESSAGE = 4;        { Pass message to control          }
  23138.   {$EXTERNALSYM DLGC_HASSETSEL}
  23139.   DLGC_HASSETSEL = 8;          { Understands EM_SETSEL message    }
  23140.   {$EXTERNALSYM DLGC_DEFPUSHBUTTON}
  23141.   DLGC_DEFPUSHBUTTON = $10;    { Default pushbutton               }
  23142.   {$EXTERNALSYM DLGC_UNDEFPUSHBUTTON}
  23143.   DLGC_UNDEFPUSHBUTTON = $20;  { Non-default pushbutton           }
  23144.   {$EXTERNALSYM DLGC_RADIOBUTTON}
  23145.   DLGC_RADIOBUTTON = $40;      { Radio button                     }
  23146.   {$EXTERNALSYM DLGC_WANTCHARS}
  23147.   DLGC_WANTCHARS = $80;        { Want WM_CHAR messages            }
  23148.   {$EXTERNALSYM DLGC_STATIC}
  23149.   DLGC_STATIC = $100;          { Static item: don't include       }
  23150.   {$EXTERNALSYM DLGC_BUTTON}
  23151.   DLGC_BUTTON = $2000;         { Button item: can be checked      }
  23152.   {$EXTERNALSYM LB_CTLCODE}
  23153.   LB_CTLCODE = 0;
  23154.  
  23155.   { Listbox Return Values }
  23156.   {$EXTERNALSYM LB_OKAY}
  23157.   LB_OKAY = 0;
  23158.   {$EXTERNALSYM LB_ERR}
  23159.   LB_ERR = -1;
  23160.   {$EXTERNALSYM LB_ERRSPACE}
  23161.   LB_ERRSPACE = -2;
  23162.  
  23163.   { Listbox Styles }
  23164.   {$EXTERNALSYM LBS_NOTIFY}
  23165.   LBS_NOTIFY = 1;
  23166.   {$EXTERNALSYM LBS_SORT}
  23167.   LBS_SORT = 2;
  23168.   {$EXTERNALSYM LBS_NOREDRAW}
  23169.   LBS_NOREDRAW = 4;
  23170.   {$EXTERNALSYM LBS_MULTIPLESEL}
  23171.   LBS_MULTIPLESEL = 8;
  23172.   {$EXTERNALSYM LBS_OWNERDRAWFIXED}
  23173.   LBS_OWNERDRAWFIXED = $10;
  23174.   {$EXTERNALSYM LBS_OWNERDRAWVARIABLE}
  23175.   LBS_OWNERDRAWVARIABLE = $20;
  23176.   {$EXTERNALSYM LBS_HASSTRINGS}
  23177.   LBS_HASSTRINGS = $40;
  23178.   {$EXTERNALSYM LBS_USETABSTOPS}
  23179.   LBS_USETABSTOPS = $80;
  23180.   {$EXTERNALSYM LBS_NOINTEGRALHEIGHT}
  23181.   LBS_NOINTEGRALHEIGHT = $100;
  23182.   {$EXTERNALSYM LBS_MULTICOLUMN}
  23183.   LBS_MULTICOLUMN = $200;
  23184.   {$EXTERNALSYM LBS_WANTKEYBOARDINPUT}
  23185.   LBS_WANTKEYBOARDINPUT = $400;
  23186.   {$EXTERNALSYM LBS_EXTENDEDSEL}
  23187.   LBS_EXTENDEDSEL = $800;
  23188.   {$EXTERNALSYM LBS_DISABLENOSCROLL}
  23189.   LBS_DISABLENOSCROLL = $1000;
  23190.   {$EXTERNALSYM LBS_NODATA}
  23191.   LBS_NODATA = $2000;
  23192.   {$EXTERNALSYM LBS_NOSEL}
  23193.   LBS_NOSEL = $4000;
  23194.   {$EXTERNALSYM LBS_STANDARD}
  23195.   LBS_STANDARD = (LBS_NOTIFY or LBS_SORT or WS_VSCROLL or WS_BORDER);
  23196.  
  23197.   { Combo Box return Values }
  23198.   {$EXTERNALSYM CB_OKAY}
  23199.   CB_OKAY = 0;
  23200.   {$EXTERNALSYM CB_ERR}
  23201.   CB_ERR = -1;
  23202.   {$EXTERNALSYM CB_ERRSPACE}
  23203.   CB_ERRSPACE = -2;
  23204.  
  23205.   { Combo Box styles }
  23206.   {$EXTERNALSYM CBS_SIMPLE}
  23207.   CBS_SIMPLE = 1;
  23208.   {$EXTERNALSYM CBS_DROPDOWN}
  23209.   CBS_DROPDOWN = 2;
  23210.   {$EXTERNALSYM CBS_DROPDOWNLIST}
  23211.   CBS_DROPDOWNLIST = 3;
  23212.   {$EXTERNALSYM CBS_OWNERDRAWFIXED}
  23213.   CBS_OWNERDRAWFIXED = $10;
  23214.   {$EXTERNALSYM CBS_OWNERDRAWVARIABLE}
  23215.   CBS_OWNERDRAWVARIABLE = $20;
  23216.   {$EXTERNALSYM CBS_AUTOHSCROLL}
  23217.   CBS_AUTOHSCROLL = $40;
  23218.   {$EXTERNALSYM CBS_OEMCONVERT}
  23219.   CBS_OEMCONVERT = $80;
  23220.   {$EXTERNALSYM CBS_SORT}
  23221.   CBS_SORT = $100;
  23222.   {$EXTERNALSYM CBS_HASSTRINGS}
  23223.   CBS_HASSTRINGS = $200;
  23224.   {$EXTERNALSYM CBS_NOINTEGRALHEIGHT}
  23225.   CBS_NOINTEGRALHEIGHT = $400;
  23226.   {$EXTERNALSYM CBS_DISABLENOSCROLL}
  23227.   CBS_DISABLENOSCROLL = $800;
  23228.   {$EXTERNALSYM CBS_UPPERCASE}
  23229.   CBS_UPPERCASE = $2000;
  23230.   {$EXTERNALSYM CBS_LOWERCASE}
  23231.   CBS_LOWERCASE = $4000;
  23232.  
  23233.   { Scroll Bar Styles }
  23234.   {$EXTERNALSYM SBS_HORZ}
  23235.   SBS_HORZ = 0;
  23236.   {$EXTERNALSYM SBS_VERT}
  23237.   SBS_VERT = 1;
  23238.   {$EXTERNALSYM SBS_TOPALIGN}
  23239.   SBS_TOPALIGN = 2;
  23240.   {$EXTERNALSYM SBS_LEFTALIGN}
  23241.   SBS_LEFTALIGN = 2;
  23242.   {$EXTERNALSYM SBS_BOTTOMALIGN}
  23243.   SBS_BOTTOMALIGN = 4;
  23244.   {$EXTERNALSYM SBS_RIGHTALIGN}
  23245.   SBS_RIGHTALIGN = 4;
  23246.   {$EXTERNALSYM SBS_SIZEBOXTOPLEFTALIGN}
  23247.   SBS_SIZEBOXTOPLEFTALIGN = 2;
  23248.   {$EXTERNALSYM SBS_SIZEBOXBOTTOMRIGHTALIGN}
  23249.   SBS_SIZEBOXBOTTOMRIGHTALIGN = 4;
  23250.   {$EXTERNALSYM SBS_SIZEBOX}
  23251.   SBS_SIZEBOX = 8;
  23252.   {$EXTERNALSYM SBS_SIZEGRIP}
  23253.   SBS_SIZEGRIP = $10;
  23254.  
  23255.   {$EXTERNALSYM SIF_RANGE}
  23256.   SIF_RANGE = 1;
  23257.   {$EXTERNALSYM SIF_PAGE}
  23258.   SIF_PAGE = 2;
  23259.   {$EXTERNALSYM SIF_POS}
  23260.   SIF_POS = 4;
  23261.   {$EXTERNALSYM SIF_DISABLENOSCROLL}
  23262.   SIF_DISABLENOSCROLL = 8;
  23263.   {$EXTERNALSYM SIF_TRACKPOS}
  23264.   SIF_TRACKPOS = $10;
  23265.   {$EXTERNALSYM SIF_ALL}
  23266.   SIF_ALL = (SIF_RANGE or SIF_PAGE or SIF_POS or SIF_TRACKPOS);
  23267.  
  23268. type
  23269.   {$EXTERNALSYM tagSCROLLINFO}
  23270.   tagSCROLLINFO = packed record
  23271.     cbSize: UINT;
  23272.     fMask: UINT;
  23273.     nMin: Integer;
  23274.     nMax: Integer;
  23275.     nPage: UINT;
  23276.     nPos: Integer;
  23277.     nTrackPos: Integer;
  23278.   end;
  23279.   PScrollInfo = ^TScrollInfo;
  23280.   TScrollInfo = tagSCROLLINFO;
  23281.   {$EXTERNALSYM SCROLLINFO}
  23282.   SCROLLINFO = tagSCROLLINFO;
  23283.  
  23284. {$EXTERNALSYM SetScrollInfo}
  23285. function SetScrollInfo(hWnd: HWND; BarFlag: Integer; const ScrollInfo: TScrollInfo; Redraw: BOOL): Integer; stdcall;
  23286. {$EXTERNALSYM GetScrollInfo}
  23287. function GetScrollInfo(hWnd: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): BOOL; stdcall;
  23288.  
  23289.  
  23290. const
  23291.   { MDI client style bits }
  23292.   {$EXTERNALSYM MDIS_ALLCHILDSTYLES}
  23293.   MDIS_ALLCHILDSTYLES = 1;
  23294.  
  23295.   { wParam Flags for WM_MDITILE and WM_MDICASCADE messages. }
  23296.   {$EXTERNALSYM MDITILE_VERTICAL}
  23297.   MDITILE_VERTICAL = 0;       { not in win3.1  }
  23298.   {$EXTERNALSYM MDITILE_HORIZONTAL}
  23299.   MDITILE_HORIZONTAL = 1;     { not in win3.1  }
  23300.   {$EXTERNALSYM MDITILE_SKIPDISABLED}
  23301.   MDITILE_SKIPDISABLED = 2;   { not in win3.1  }
  23302.  
  23303. type
  23304.   PMDICreateStructA = ^TMDICreateStructA;
  23305.   PMDICreateStructW = ^TMDICreateStructW;
  23306.   PMDICreateStruct = PMDICreateStructA;
  23307.   {$EXTERNALSYM tagMDICREATESTRUCTA}
  23308.   tagMDICREATESTRUCTA = packed record
  23309.     szClass: PAnsiChar;
  23310.     szTitle: PAnsiChar;
  23311.     hOwner: THandle;
  23312.     x: Integer;
  23313.     y: Integer;
  23314.     cx: Integer;
  23315.     cy: Integer;
  23316.     style: DWORD;
  23317.     lParam: LPARAM;  { app-defined stuff }
  23318.   end;
  23319.   {$EXTERNALSYM tagMDICREATESTRUCTW}
  23320.   tagMDICREATESTRUCTW = packed record
  23321.     szClass: PWideChar;
  23322.     szTitle: PWideChar;
  23323.     hOwner: THandle;
  23324.     x: Integer;
  23325.     y: Integer;
  23326.     cx: Integer;
  23327.     cy: Integer;
  23328.     style: DWORD;
  23329.     lParam: LPARAM;  { app-defined stuff }
  23330.   end;
  23331.   {$EXTERNALSYM tagMDICREATESTRUCT}
  23332.   tagMDICREATESTRUCT = tagMDICREATESTRUCTA;
  23333.   TMDICreateStructA = tagMDICREATESTRUCTA;
  23334.   TMDICreateStructW = tagMDICREATESTRUCTW;
  23335.   TMDICreateStruct = TMDICreateStructA;
  23336.   {$EXTERNALSYM MDICREATESTRUCTA}
  23337.   MDICREATESTRUCTA = tagMDICREATESTRUCTA;
  23338.   {$EXTERNALSYM MDICREATESTRUCTW}
  23339.   MDICREATESTRUCTW = tagMDICREATESTRUCTW;
  23340.   {$EXTERNALSYM MDICREATESTRUCT}
  23341.   MDICREATESTRUCT = MDICREATESTRUCTA;
  23342.  
  23343.   PClientCreateStruct = ^TClientCreateStruct;
  23344.   {$EXTERNALSYM tagCLIENTCREATESTRUCT}
  23345.   tagCLIENTCREATESTRUCT = packed record
  23346.     hWindowMenu: THandle;
  23347.     idFirstChild: UINT;
  23348.   end;
  23349.   TClientCreateStruct = tagCLIENTCREATESTRUCT;
  23350.   {$EXTERNALSYM CLIENTCREATESTRUCT}
  23351.   CLIENTCREATESTRUCT = tagCLIENTCREATESTRUCT;
  23352.  
  23353. {$EXTERNALSYM DefFrameProcA}
  23354. function DefFrameProcA(hWnd, hWndMDIClient: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  23355. {$EXTERNALSYM DefFrameProcW}
  23356. function DefFrameProcW(hWnd, hWndMDIClient: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  23357. {$EXTERNALSYM DefFrameProc}
  23358. function DefFrameProc(hWnd, hWndMDIClient: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  23359. {$EXTERNALSYM DefMDIChildProcA}
  23360. function DefMDIChildProcA(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  23361. {$EXTERNALSYM DefMDIChildProcW}
  23362. function DefMDIChildProcW(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  23363. {$EXTERNALSYM DefMDIChildProc}
  23364. function DefMDIChildProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  23365. {$EXTERNALSYM TranslateMDISysAccel}
  23366. function TranslateMDISysAccel(hWndClient: HWND; const lpMsg: TMsg): BOOL; stdcall;
  23367. {$EXTERNALSYM ArrangeIconicWindows}
  23368. function ArrangeIconicWindows(hWnd: HWND): UINT; stdcall;
  23369. {$EXTERNALSYM CreateMDIWindowA}
  23370. function CreateMDIWindowA(lpClassName, lpWindowName: PAnsiChar;
  23371.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  23372.   hWndParent: HWND; hInstance: HINST; lParam: LPARAM): HWND; stdcall;
  23373. {$EXTERNALSYM CreateMDIWindowW}
  23374. function CreateMDIWindowW(lpClassName, lpWindowName: PWideChar;
  23375.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  23376.   hWndParent: HWND; hInstance: HINST; lParam: LPARAM): HWND; stdcall;
  23377. {$EXTERNALSYM CreateMDIWindow}
  23378. function CreateMDIWindow(lpClassName, lpWindowName: PChar;
  23379.   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  23380.   hWndParent: HWND; hInstance: HINST; lParam: LPARAM): HWND; stdcall;
  23381. {$EXTERNALSYM TileWindows}
  23382. function TileWindows(hwndParent: HWND; wHow: UINT; lpRect: PRect; cKids: UINT; lpKids: Pointer): Word; stdcall;
  23383. {$EXTERNALSYM CascadeWindows}
  23384. function CascadeWindows(hwndParent: HWND; wHow: UINT; lpRect: PRect; cKids: UINT; lpKids: Pointer): Word; stdcall;
  23385.  
  23386.  
  23387. { IME class support }
  23388.  
  23389. const
  23390.   { wParam for WM_IME_CONTROL (removed from 4.0 SDK) }
  23391.   {$EXTERNALSYM IMC_GETCANDIDATEPOS}
  23392.   IMC_GETCANDIDATEPOS = 7;
  23393.   {$EXTERNALSYM IMC_SETCANDIDATEPOS}
  23394.   IMC_SETCANDIDATEPOS = 8;
  23395.   {$EXTERNALSYM IMC_GETCOMPOSITIONFONT}
  23396.   IMC_GETCOMPOSITIONFONT = 9;
  23397.   {$EXTERNALSYM IMC_SETCOMPOSITIONFONT}
  23398.   IMC_SETCOMPOSITIONFONT = $0A;
  23399.   {$EXTERNALSYM IMC_GETCOMPOSITIONWINDOW}
  23400.   IMC_GETCOMPOSITIONWINDOW = $0B;
  23401.   {$EXTERNALSYM IMC_SETCOMPOSITIONWINDOW}
  23402.   IMC_SETCOMPOSITIONWINDOW = $0C;
  23403.   {$EXTERNALSYM IMC_GETSTATUSWINDOWPOS}
  23404.   IMC_GETSTATUSWINDOWPOS = $0F;
  23405.   {$EXTERNALSYM IMC_SETSTATUSWINDOWPOS}
  23406.   IMC_SETSTATUSWINDOWPOS = $10;
  23407.   {$EXTERNALSYM IMC_CLOSESTATUSWINDOW}
  23408.   IMC_CLOSESTATUSWINDOW = $21;
  23409.   {$EXTERNALSYM IMC_OPENSTATUSWINDOW}
  23410.   IMC_OPENSTATUSWINDOW = $22;
  23411.  
  23412.   { wParam of report message WM_IME_NOTIFY (removed from 4.0 SDK) }
  23413.   {$EXTERNALSYM IMN_CLOSESTATUSWINDOW}
  23414.   IMN_CLOSESTATUSWINDOW = 1;
  23415.   {$EXTERNALSYM IMN_OPENSTATUSWINDOW}
  23416.   IMN_OPENSTATUSWINDOW = 2;
  23417.   {$EXTERNALSYM IMN_CHANGECANDIDATE}
  23418.   IMN_CHANGECANDIDATE = 3;
  23419.   {$EXTERNALSYM IMN_CLOSECANDIDATE}
  23420.   IMN_CLOSECANDIDATE = 4;
  23421.   {$EXTERNALSYM IMN_OPENCANDIDATE}
  23422.   IMN_OPENCANDIDATE = 5;
  23423.   {$EXTERNALSYM IMN_SETCONVERSIONMODE}
  23424.   IMN_SETCONVERSIONMODE = 6;
  23425.   {$EXTERNALSYM IMN_SETSENTENCEMODE}
  23426.   IMN_SETSENTENCEMODE = 7;
  23427.   {$EXTERNALSYM IMN_SETOPENSTATUS}
  23428.   IMN_SETOPENSTATUS = 8;
  23429.   {$EXTERNALSYM IMN_SETCANDIDATEPOS}
  23430.   IMN_SETCANDIDATEPOS = 9;
  23431.   {$EXTERNALSYM IMN_SETCOMPOSITIONFONT}
  23432.   IMN_SETCOMPOSITIONFONT = 10;
  23433.   {$EXTERNALSYM IMN_SETCOMPOSITIONWINDOW}
  23434.   IMN_SETCOMPOSITIONWINDOW = 11;
  23435.   {$EXTERNALSYM IMN_SETSTATUSWINDOWPOS}
  23436.   IMN_SETSTATUSWINDOWPOS = 12;
  23437.   {$EXTERNALSYM IMN_GUIDELINE}
  23438.   IMN_GUIDELINE = 13;
  23439.   {$EXTERNALSYM IMN_PRIVATE}
  23440.   IMN_PRIVATE = 14;
  23441.  
  23442. { Help support }
  23443.  
  23444. type
  23445.   {$EXTERNALSYM HELPPOLY}
  23446.   HELPPOLY = DWORD;
  23447.   PMultiKeyHelpA = ^TMultiKeyHelpA;
  23448.   PMultiKeyHelpW = ^TMultiKeyHelpW;
  23449.   PMultiKeyHelp = PMultiKeyHelpA;
  23450.   {$EXTERNALSYM tagMULTIKEYHELPA}
  23451.   tagMULTIKEYHELPA = record
  23452.     mkSize: DWORD;
  23453.     mkKeylist: AnsiChar;
  23454.     szKeyphrase: array[0..0] of AnsiChar;
  23455.   end;
  23456.   {$EXTERNALSYM tagMULTIKEYHELPW}
  23457.   tagMULTIKEYHELPW = record
  23458.     mkSize: DWORD;
  23459.     mkKeylist: WideChar;
  23460.     szKeyphrase: array[0..0] of WideChar;
  23461.   end;
  23462.   {$EXTERNALSYM tagMULTIKEYHELP}
  23463.   tagMULTIKEYHELP = tagMULTIKEYHELPA;
  23464.   TMultiKeyHelpA = tagMULTIKEYHELPA;
  23465.   TMultiKeyHelpW = tagMULTIKEYHELPW;
  23466.   TMultiKeyHelp = TMultiKeyHelpA;
  23467.   {$EXTERNALSYM MULTIKEYHELPA}
  23468.   MULTIKEYHELPA = tagMULTIKEYHELPA;
  23469.   {$EXTERNALSYM MULTIKEYHELPW}
  23470.   MULTIKEYHELPW = tagMULTIKEYHELPW;
  23471.   {$EXTERNALSYM MULTIKEYHELP}
  23472.   MULTIKEYHELP = MULTIKEYHELPA;
  23473.  
  23474.   PHelpWinInfoA = ^THelpWinInfoA;
  23475.   PHelpWinInfoW = ^THelpWinInfoW;
  23476.   PHelpWinInfo = PHelpWinInfoA;
  23477.   {$EXTERNALSYM tagHELPWININFOA}
  23478.   tagHELPWININFOA = record
  23479.     wStructSize: Integer;
  23480.     x: Integer;
  23481.     y: Integer;
  23482.     dx: Integer;
  23483.     dy: Integer;
  23484.     wMax: Integer;
  23485.     rgchMember: array[0..1] of AnsiChar;
  23486.   end;
  23487.   {$EXTERNALSYM tagHELPWININFOW}
  23488.   tagHELPWININFOW = record
  23489.     wStructSize: Integer;
  23490.     x: Integer;
  23491.     y: Integer;
  23492.     dx: Integer;
  23493.     dy: Integer;
  23494.     wMax: Integer;
  23495.     rgchMember: array[0..1] of WideChar;
  23496.   end;
  23497.   {$EXTERNALSYM tagHELPWININFO}
  23498.   tagHELPWININFO = tagHELPWININFOA;
  23499.   THelpWinInfoA = tagHELPWININFOA;
  23500.   THelpWinInfoW = tagHELPWININFOW;
  23501.   THelpWinInfo = THelpWinInfoA;
  23502.   {$EXTERNALSYM HELPWININFOA}
  23503.   HELPWININFOA = tagHELPWININFOA;
  23504.   {$EXTERNALSYM HELPWININFOW}
  23505.   HELPWININFOW = tagHELPWININFOW;
  23506.   {$EXTERNALSYM HELPWININFO}
  23507.   HELPWININFO = HELPWININFOA;
  23508.  
  23509. const
  23510.   { Commands to pass to WinHelp() }
  23511.   {$EXTERNALSYM HELP_CONTEXT}
  23512.   HELP_CONTEXT = 1;       { Display topic in ulTopic  }
  23513.   {$EXTERNALSYM HELP_QUIT}
  23514.   HELP_QUIT = 2;          { Terminate help  }
  23515.   {$EXTERNALSYM HELP_INDEX}
  23516.   HELP_INDEX = 3;         { Display index  }
  23517.   {$EXTERNALSYM HELP_CONTENTS}
  23518.   HELP_CONTENTS = 3;
  23519.   {$EXTERNALSYM HELP_HELPONHELP}
  23520.   HELP_HELPONHELP = 4;    { Display help on using help  }
  23521.   {$EXTERNALSYM HELP_SETINDEX}
  23522.   HELP_SETINDEX = 5;      { Set current Index for multi index help  }
  23523.   {$EXTERNALSYM HELP_SETCONTENTS}
  23524.   HELP_SETCONTENTS = 5;
  23525.   {$EXTERNALSYM HELP_CONTEXTPOPUP}
  23526.   HELP_CONTEXTPOPUP = 8;
  23527.   {$EXTERNALSYM HELP_FORCEFILE}
  23528.   HELP_FORCEFILE = 9;
  23529.   {$EXTERNALSYM HELP_KEY}
  23530.   HELP_KEY = 257;         { Display topic for keyword in offabData  }
  23531.   {$EXTERNALSYM HELP_COMMAND}
  23532.   HELP_COMMAND = 258;
  23533.   {$EXTERNALSYM HELP_PARTIALKEY}
  23534.   HELP_PARTIALKEY = 261;
  23535.   {$EXTERNALSYM HELP_MULTIKEY}
  23536.   HELP_MULTIKEY = 513;
  23537.   {$EXTERNALSYM HELP_SETWINPOS}
  23538.   HELP_SETWINPOS = 515;
  23539.   {$EXTERNALSYM HELP_CONTEXTMENU}
  23540.   HELP_CONTEXTMENU = 10;
  23541.   {$EXTERNALSYM HELP_FINDER}
  23542.   HELP_FINDER = 11;
  23543.   {$EXTERNALSYM HELP_WM_HELP}
  23544.   HELP_WM_HELP = 12;
  23545.   {$EXTERNALSYM HELP_SETPOPUP_POS}
  23546.   HELP_SETPOPUP_POS = 13;
  23547.  
  23548.   {$EXTERNALSYM HELP_TCARD}
  23549.   HELP_TCARD = $8000;
  23550.   {$EXTERNALSYM HELP_TCARD_DATA}
  23551.   HELP_TCARD_DATA = $10;
  23552.   {$EXTERNALSYM HELP_TCARD_OTHER_CALLER}
  23553.   HELP_TCARD_OTHER_CALLER = 17;
  23554.  
  23555.   { These are in winhelp.h in Win95. }
  23556.   {$EXTERNALSYM IDH_NO_HELP}
  23557.   IDH_NO_HELP = 28440;
  23558.   {$EXTERNALSYM IDH_MISSING_CONTEXT}
  23559.   IDH_MISSING_CONTEXT = 28441;      { Control doesn't have matching help context }
  23560.   {$EXTERNALSYM IDH_GENERIC_HELP_BUTTON}
  23561.   IDH_GENERIC_HELP_BUTTON = 28442;  { Property sheet help button }
  23562.   {$EXTERNALSYM IDH_OK}
  23563.   IDH_OK = 28443;
  23564.   {$EXTERNALSYM IDH_CANCEL}
  23565.   IDH_CANCEL = 28444;
  23566.   {$EXTERNALSYM IDH_HELP}
  23567.   IDH_HELP = 28445;
  23568.  
  23569. {$EXTERNALSYM WinHelpA}
  23570. function WinHelpA(hWndMain: HWND; lpszHelp: PAnsiChar; uCommand: UINT; dwData: DWORD): BOOL; stdcall;
  23571. {$EXTERNALSYM WinHelpW}
  23572. function WinHelpW(hWndMain: HWND; lpszHelp: PWideChar; uCommand: UINT; dwData: DWORD): BOOL; stdcall;
  23573. {$EXTERNALSYM WinHelp}
  23574. function WinHelp(hWndMain: HWND; lpszHelp: PChar; uCommand: UINT; dwData: DWORD): BOOL; stdcall;
  23575.  
  23576. const
  23577.   {$EXTERNALSYM GR_GDIOBJECTS}
  23578.   GR_GDIOBJECTS = 0;    { Count of GDI objects }
  23579.   {$EXTERNALSYM GR_USEROBJECTS}
  23580.   GR_USEROBJECTS = 1;    { Count of USER objects }
  23581.  
  23582. {$EXTERNALSYM GetGuiResources}
  23583. function GetGuiResources(hProcess: THandle; uiFlags: DWORD): DWORD; stdcall;
  23584.  
  23585. const
  23586.   { Parameter for SystemParametersInfo() }
  23587.   {$EXTERNALSYM SPI_GETBEEP}
  23588.   SPI_GETBEEP = 1;
  23589.   {$EXTERNALSYM SPI_SETBEEP}
  23590.   SPI_SETBEEP = 2;
  23591.   {$EXTERNALSYM SPI_GETMOUSE}
  23592.   SPI_GETMOUSE = 3;
  23593.   {$EXTERNALSYM SPI_SETMOUSE}
  23594.   SPI_SETMOUSE = 4;
  23595.   {$EXTERNALSYM SPI_GETBORDER}
  23596.   SPI_GETBORDER = 5;
  23597.   {$EXTERNALSYM SPI_SETBORDER}
  23598.   SPI_SETBORDER = 6;
  23599.   {$EXTERNALSYM SPI_GETKEYBOARDSPEED}
  23600.   SPI_GETKEYBOARDSPEED = 10;
  23601.   {$EXTERNALSYM SPI_SETKEYBOARDSPEED}
  23602.   SPI_SETKEYBOARDSPEED = 11;
  23603.   {$EXTERNALSYM SPI_LANGDRIVER}
  23604.   SPI_LANGDRIVER = 12;
  23605.   {$EXTERNALSYM SPI_ICONHORIZONTALSPACING}
  23606.   SPI_ICONHORIZONTALSPACING = 13;
  23607.   {$EXTERNALSYM SPI_GETSCREENSAVETIMEOUT}
  23608.   SPI_GETSCREENSAVETIMEOUT = 14;
  23609.   {$EXTERNALSYM SPI_SETSCREENSAVETIMEOUT}
  23610.   SPI_SETSCREENSAVETIMEOUT = 15;
  23611.   {$EXTERNALSYM SPI_GETSCREENSAVEACTIVE}
  23612.   SPI_GETSCREENSAVEACTIVE = $10;
  23613.   {$EXTERNALSYM SPI_SETSCREENSAVEACTIVE}
  23614.   SPI_SETSCREENSAVEACTIVE = 17;
  23615.   {$EXTERNALSYM SPI_GETGRIDGRANULARITY}
  23616.   SPI_GETGRIDGRANULARITY = 18;
  23617.   {$EXTERNALSYM SPI_SETGRIDGRANULARITY}
  23618.   SPI_SETGRIDGRANULARITY = 19;
  23619.   {$EXTERNALSYM SPI_SETDESKWALLPAPER}
  23620.   SPI_SETDESKWALLPAPER = 20;
  23621.   {$EXTERNALSYM SPI_SETDESKPATTERN}
  23622.   SPI_SETDESKPATTERN = 21;
  23623.   {$EXTERNALSYM SPI_GETKEYBOARDDELAY}
  23624.   SPI_GETKEYBOARDDELAY = 22;
  23625.   {$EXTERNALSYM SPI_SETKEYBOARDDELAY}
  23626.   SPI_SETKEYBOARDDELAY = 23;
  23627.   {$EXTERNALSYM SPI_ICONVERTICALSPACING}
  23628.   SPI_ICONVERTICALSPACING = 24;
  23629.   {$EXTERNALSYM SPI_GETICONTITLEWRAP}
  23630.   SPI_GETICONTITLEWRAP = 25;
  23631.   {$EXTERNALSYM SPI_SETICONTITLEWRAP}
  23632.   SPI_SETICONTITLEWRAP = 26;
  23633.   {$EXTERNALSYM SPI_GETMENUDROPALIGNMENT}
  23634.   SPI_GETMENUDROPALIGNMENT = 27;
  23635.   {$EXTERNALSYM SPI_SETMENUDROPALIGNMENT}
  23636.   SPI_SETMENUDROPALIGNMENT = 28;
  23637.   {$EXTERNALSYM SPI_SETDOUBLECLKWIDTH}
  23638.   SPI_SETDOUBLECLKWIDTH = 29;
  23639.   {$EXTERNALSYM SPI_SETDOUBLECLKHEIGHT}
  23640.   SPI_SETDOUBLECLKHEIGHT = 30;
  23641.   {$EXTERNALSYM SPI_GETICONTITLELOGFONT}
  23642.   SPI_GETICONTITLELOGFONT = 31;
  23643.   {$EXTERNALSYM SPI_SETDOUBLECLICKTIME}
  23644.   SPI_SETDOUBLECLICKTIME = $20;
  23645.   {$EXTERNALSYM SPI_SETMOUSEBUTTONSWAP}
  23646.   SPI_SETMOUSEBUTTONSWAP = 33;
  23647.   {$EXTERNALSYM SPI_SETICONTITLELOGFONT}
  23648.   SPI_SETICONTITLELOGFONT = 34;
  23649.   {$EXTERNALSYM SPI_GETFASTTASKSWITCH}
  23650.   SPI_GETFASTTASKSWITCH = 35;
  23651.   {$EXTERNALSYM SPI_SETFASTTASKSWITCH}
  23652.   SPI_SETFASTTASKSWITCH = 36;
  23653.   {$EXTERNALSYM SPI_SETDRAGFULLWINDOWS}
  23654.   SPI_SETDRAGFULLWINDOWS = 37;
  23655.   {$EXTERNALSYM SPI_GETDRAGFULLWINDOWS}
  23656.   SPI_GETDRAGFULLWINDOWS = 38;
  23657.   {$EXTERNALSYM SPI_GETNONCLIENTMETRICS}
  23658.   SPI_GETNONCLIENTMETRICS = 41;
  23659.   {$EXTERNALSYM SPI_SETNONCLIENTMETRICS}
  23660.   SPI_SETNONCLIENTMETRICS = 42;
  23661.   {$EXTERNALSYM SPI_GETMINIMIZEDMETRICS}
  23662.   SPI_GETMINIMIZEDMETRICS = 43;
  23663.   {$EXTERNALSYM SPI_SETMINIMIZEDMETRICS}
  23664.   SPI_SETMINIMIZEDMETRICS = 44;
  23665.   {$EXTERNALSYM SPI_GETICONMETRICS}
  23666.   SPI_GETICONMETRICS = 45;
  23667.   {$EXTERNALSYM SPI_SETICONMETRICS}
  23668.   SPI_SETICONMETRICS = 46;
  23669.   {$EXTERNALSYM SPI_SETWORKAREA}
  23670.   SPI_SETWORKAREA = 47;
  23671.   {$EXTERNALSYM SPI_GETWORKAREA}
  23672.   SPI_GETWORKAREA = 48;
  23673.   {$EXTERNALSYM SPI_SETPENWINDOWS}
  23674.   SPI_SETPENWINDOWS = 49;
  23675.  
  23676.   {$EXTERNALSYM SPI_GETHIGHCONTRAST}
  23677.   SPI_GETHIGHCONTRAST = 66;
  23678.   {$EXTERNALSYM SPI_SETHIGHCONTRAST}
  23679.   SPI_SETHIGHCONTRAST = 67;
  23680.   {$EXTERNALSYM SPI_GETKEYBOARDPREF}
  23681.   SPI_GETKEYBOARDPREF = 68;
  23682.   {$EXTERNALSYM SPI_SETKEYBOARDPREF}
  23683.   SPI_SETKEYBOARDPREF = 69;
  23684.   {$EXTERNALSYM SPI_GETSCREENREADER}
  23685.   SPI_GETSCREENREADER = 70;
  23686.   {$EXTERNALSYM SPI_SETSCREENREADER}
  23687.   SPI_SETSCREENREADER = 71;
  23688.   {$EXTERNALSYM SPI_GETANIMATION}
  23689.   SPI_GETANIMATION = 72;
  23690.   {$EXTERNALSYM SPI_SETANIMATION}
  23691.   SPI_SETANIMATION = 73;
  23692.   {$EXTERNALSYM SPI_GETFONTSMOOTHING}
  23693.   SPI_GETFONTSMOOTHING = 74;
  23694.   {$EXTERNALSYM SPI_SETFONTSMOOTHING}
  23695.   SPI_SETFONTSMOOTHING = 75;
  23696.   {$EXTERNALSYM SPI_SETDRAGWIDTH}
  23697.   SPI_SETDRAGWIDTH = 76;
  23698.   {$EXTERNALSYM SPI_SETDRAGHEIGHT}
  23699.   SPI_SETDRAGHEIGHT = 77;
  23700.   {$EXTERNALSYM SPI_SETHANDHELD}
  23701.   SPI_SETHANDHELD = 78;
  23702.   {$EXTERNALSYM SPI_GETLOWPOWERTIMEOUT}
  23703.   SPI_GETLOWPOWERTIMEOUT = 79;
  23704.   {$EXTERNALSYM SPI_GETPOWEROFFTIMEOUT}
  23705.   SPI_GETPOWEROFFTIMEOUT = 80;
  23706.   {$EXTERNALSYM SPI_SETLOWPOWERTIMEOUT}
  23707.   SPI_SETLOWPOWERTIMEOUT = 81;
  23708.   {$EXTERNALSYM SPI_SETPOWEROFFTIMEOUT}
  23709.   SPI_SETPOWEROFFTIMEOUT = 82;
  23710.   {$EXTERNALSYM SPI_GETLOWPOWERACTIVE}
  23711.   SPI_GETLOWPOWERACTIVE = 83;
  23712.   {$EXTERNALSYM SPI_GETPOWEROFFACTIVE}
  23713.   SPI_GETPOWEROFFACTIVE = 84;
  23714.   {$EXTERNALSYM SPI_SETLOWPOWERACTIVE}
  23715.   SPI_SETLOWPOWERACTIVE = 85;
  23716.   {$EXTERNALSYM SPI_SETPOWEROFFACTIVE}
  23717.   SPI_SETPOWEROFFACTIVE = 86;
  23718.   {$EXTERNALSYM SPI_SETCURSORS}
  23719.   SPI_SETCURSORS = 87;
  23720.   {$EXTERNALSYM SPI_SETICONS}
  23721.   SPI_SETICONS = 88;
  23722.   {$EXTERNALSYM SPI_GETDEFAULTINPUTLANG}
  23723.   SPI_GETDEFAULTINPUTLANG = 89;
  23724.   {$EXTERNALSYM SPI_SETDEFAULTINPUTLANG}
  23725.   SPI_SETDEFAULTINPUTLANG = 90;
  23726.   {$EXTERNALSYM SPI_SETLANGTOGGLE}
  23727.   SPI_SETLANGTOGGLE = 91;
  23728.   {$EXTERNALSYM SPI_GETWINDOWSEXTENSION}
  23729.   SPI_GETWINDOWSEXTENSION = 92;
  23730.   {$EXTERNALSYM SPI_SETMOUSETRAILS}
  23731.   SPI_SETMOUSETRAILS = 93;
  23732.   {$EXTERNALSYM SPI_GETMOUSETRAILS}
  23733.   SPI_GETMOUSETRAILS = 94;
  23734.   {$EXTERNALSYM SPI_SCREENSAVERRUNNING}
  23735.   SPI_SCREENSAVERRUNNING = 97;
  23736.   {$EXTERNALSYM SPI_GETFILTERKEYS}
  23737.   SPI_GETFILTERKEYS = 50;
  23738.   {$EXTERNALSYM SPI_SETFILTERKEYS}
  23739.   SPI_SETFILTERKEYS = 51;
  23740.   {$EXTERNALSYM SPI_GETTOGGLEKEYS}
  23741.   SPI_GETTOGGLEKEYS = 52;
  23742.   {$EXTERNALSYM SPI_SETTOGGLEKEYS}
  23743.   SPI_SETTOGGLEKEYS = 53;
  23744.   {$EXTERNALSYM SPI_GETMOUSEKEYS}
  23745.   SPI_GETMOUSEKEYS = 54;
  23746.   {$EXTERNALSYM SPI_SETMOUSEKEYS}
  23747.   SPI_SETMOUSEKEYS = 55;
  23748.   {$EXTERNALSYM SPI_GETSHOWSOUNDS}
  23749.   SPI_GETSHOWSOUNDS = 56;
  23750.   {$EXTERNALSYM SPI_SETSHOWSOUNDS}
  23751.   SPI_SETSHOWSOUNDS = 57;
  23752.   {$EXTERNALSYM SPI_GETSTICKYKEYS}
  23753.   SPI_GETSTICKYKEYS = 58;
  23754.   {$EXTERNALSYM SPI_SETSTICKYKEYS}
  23755.   SPI_SETSTICKYKEYS = 59;
  23756.   {$EXTERNALSYM SPI_GETACCESSTIMEOUT}
  23757.   SPI_GETACCESSTIMEOUT = 60;
  23758.   {$EXTERNALSYM SPI_SETACCESSTIMEOUT}
  23759.   SPI_SETACCESSTIMEOUT = 61;
  23760.   {$EXTERNALSYM SPI_GETSERIALKEYS}
  23761.   SPI_GETSERIALKEYS = 62;
  23762.   {$EXTERNALSYM SPI_SETSERIALKEYS}
  23763.   SPI_SETSERIALKEYS = 63;
  23764.   {$EXTERNALSYM SPI_GETSOUNDSENTRY}
  23765.   SPI_GETSOUNDSENTRY = 64;
  23766.   {$EXTERNALSYM SPI_SETSOUNDSENTRY}
  23767.   SPI_SETSOUNDSENTRY = 65;
  23768.  
  23769.   {$EXTERNALSYM SPI_GETSNAPTODEFBUTTON}
  23770.   SPI_GETSNAPTODEFBUTTON = 95;
  23771.   {$EXTERNALSYM SPI_SETSNAPTODEFBUTTON}
  23772.   SPI_SETSNAPTODEFBUTTON = 96;
  23773.   {$EXTERNALSYM SPI_GETMOUSEHOVERWIDTH}
  23774.   SPI_GETMOUSEHOVERWIDTH = 98;
  23775.   {$EXTERNALSYM SPI_SETMOUSEHOVERWIDTH}
  23776.   SPI_SETMOUSEHOVERWIDTH = 99;
  23777.   {$EXTERNALSYM SPI_GETMOUSEHOVERHEIGHT}
  23778.   SPI_GETMOUSEHOVERHEIGHT = 100;
  23779.   {$EXTERNALSYM SPI_SETMOUSEHOVERHEIGHT}
  23780.   SPI_SETMOUSEHOVERHEIGHT = 101;
  23781.   {$EXTERNALSYM SPI_GETMOUSEHOVERTIME}
  23782.   SPI_GETMOUSEHOVERTIME = 102;
  23783.   {$EXTERNALSYM SPI_SETMOUSEHOVERTIME}
  23784.   SPI_SETMOUSEHOVERTIME = 103;
  23785.   {$EXTERNALSYM SPI_GETWHEELSCROLLLINES}
  23786.   SPI_GETWHEELSCROLLLINES = 104;
  23787.   {$EXTERNALSYM SPI_SETWHEELSCROLLLINES}
  23788.   SPI_SETWHEELSCROLLLINES = 105;         // For Win95 and WinNT3.51,
  23789.                                          // Mswheel broadcasts the message
  23790.                                          // WM_SETTINGCHANGE (equivalent to
  23791.                                          // WM_WININICHANGE) when the scroll
  23792.                                          // lines has changed.  Applications
  23793.                                          // will recieve the WM_SETTINGCHANGE
  23794.                                          // message with the wParam set to
  23795.                                          // SPI_SETWHEELSCROLLLINES.  When
  23796.                                          // this message is recieved the
  23797.                                          // application should query Mswheel for
  23798.                                          // the new setting.
  23799.   {$EXTERNALSYM SPI_GETSHOWIMEUI}
  23800.   SPI_GETSHOWIMEUI = 110;
  23801.   {$EXTERNALSYM SPI_SETSHOWIMEUI}
  23802.   SPI_SETSHOWIMEUI = 111;
  23803.   {$EXTERNALSYM SPI_GETMOUSESPEED}
  23804.   SPI_GETMOUSESPEED = 112;
  23805.   {$EXTERNALSYM SPI_SETMOUSESPEED}
  23806.   SPI_SETMOUSESPEED = 113;
  23807.   {$EXTERNALSYM SPI_GETSCREENSAVERRUNNING}
  23808.   SPI_GETSCREENSAVERRUNNING = 114;
  23809.  
  23810.   {$EXTERNALSYM SPI_GETACTIVEWINDOWTRACKING}
  23811.   SPI_GETACTIVEWINDOWTRACKING = $1000;
  23812.   {$EXTERNALSYM SPI_SETACTIVEWINDOWTRACKING}
  23813.   SPI_SETACTIVEWINDOWTRACKING = $1001;
  23814.   {$EXTERNALSYM SPI_GETMENUANIMATION}
  23815.   SPI_GETMENUANIMATION = $1002;
  23816.   {$EXTERNALSYM SPI_SETMENUANIMATION}
  23817.   SPI_SETMENUANIMATION = $1003;
  23818.   {$EXTERNALSYM SPI_GETCOMBOBOXANIMATION}
  23819.   SPI_GETCOMBOBOXANIMATION = $1004;
  23820.   {$EXTERNALSYM SPI_SETCOMBOBOXANIMATION}
  23821.   SPI_SETCOMBOBOXANIMATION = $1005;
  23822.   {$EXTERNALSYM SPI_GETLISTBOXSMOOTHSCROLLING}
  23823.   SPI_GETLISTBOXSMOOTHSCROLLING = $1006;
  23824.   {$EXTERNALSYM SPI_SETLISTBOXSMOOTHSCROLLING}
  23825.   SPI_SETLISTBOXSMOOTHSCROLLING = $1007;
  23826.   {$EXTERNALSYM SPI_GETGRADIENTCAPTIONS}
  23827.   SPI_GETGRADIENTCAPTIONS = $1008;
  23828.   {$EXTERNALSYM SPI_SETGRADIENTCAPTIONS}
  23829.   SPI_SETGRADIENTCAPTIONS = $1009;
  23830.   {$EXTERNALSYM SPI_GETMENUUNDERLINES}
  23831.   SPI_GETMENUUNDERLINES = $100A;
  23832.   {$EXTERNALSYM SPI_SETMENUUNDERLINES}
  23833.   SPI_SETMENUUNDERLINES = $100B;
  23834.   {$EXTERNALSYM SPI_GETACTIVEWNDTRKZORDER}
  23835.   SPI_GETACTIVEWNDTRKZORDER = $100C;
  23836.   {$EXTERNALSYM SPI_SETACTIVEWNDTRKZORDER}
  23837.   SPI_SETACTIVEWNDTRKZORDER = $100D;
  23838.   {$EXTERNALSYM SPI_GETHOTTRACKING}
  23839.   SPI_GETHOTTRACKING = $100E;
  23840.   {$EXTERNALSYM SPI_SETHOTTRACKING}
  23841.   SPI_SETHOTTRACKING = $100F;
  23842.   {$EXTERNALSYM SPI_GETFOREGROUNDLOCKTIMEOUT}
  23843.   SPI_GETFOREGROUNDLOCKTIMEOUT = $2000;
  23844.   {$EXTERNALSYM SPI_SETFOREGROUNDLOCKTIMEOUT}
  23845.   SPI_SETFOREGROUNDLOCKTIMEOUT = $2001;
  23846.   {$EXTERNALSYM SPI_GETACTIVEWNDTRKTIMEOUT}
  23847.   SPI_GETACTIVEWNDTRKTIMEOUT = $2002;
  23848.   {$EXTERNALSYM SPI_SETACTIVEWNDTRKTIMEOUT}
  23849.   SPI_SETACTIVEWNDTRKTIMEOUT = $2003;
  23850.   {$EXTERNALSYM SPI_GETFOREGROUNDFLASHCOUNT}
  23851.   SPI_GETFOREGROUNDFLASHCOUNT = $2004;
  23852.   {$EXTERNALSYM SPI_SETFOREGROUNDFLASHCOUNT}
  23853.   SPI_SETFOREGROUNDFLASHCOUNT = $2005;
  23854.  
  23855.   { Flags }
  23856.   {$EXTERNALSYM SPIF_UPDATEINIFILE}
  23857.   SPIF_UPDATEINIFILE = 1;
  23858.   {$EXTERNALSYM SPIF_SENDWININICHANGE}
  23859.   SPIF_SENDWININICHANGE = 2;
  23860.   {$EXTERNALSYM SPIF_SENDCHANGE}
  23861.   SPIF_SENDCHANGE = SPIF_SENDWININICHANGE;
  23862.  
  23863.   {$EXTERNALSYM METRICS_USEDEFAULT}
  23864.   METRICS_USEDEFAULT = LongWord(-1);
  23865.  
  23866. type
  23867.   PNonClientMetricsA = ^TNonClientMetricsA;
  23868.   PNonClientMetricsW = ^TNonClientMetricsW;
  23869.   PNonClientMetrics = PNonClientMetricsA;
  23870.   {$EXTERNALSYM tagNONCLIENTMETRICSA}
  23871.   tagNONCLIENTMETRICSA = packed record
  23872.     cbSize: UINT;
  23873.     iBorderWidth: Integer;
  23874.     iScrollWidth: Integer;
  23875.     iScrollHeight: Integer;
  23876.     iCaptionWidth: Integer;
  23877.     iCaptionHeight: Integer;
  23878.     lfCaptionFont: TLogFontA;
  23879.     iSmCaptionWidth: Integer;
  23880.     iSmCaptionHeight: Integer;
  23881.     lfSmCaptionFont: TLogFontA;
  23882.     iMenuWidth: Integer;
  23883.     iMenuHeight: Integer;
  23884.     lfMenuFont: TLogFontA;
  23885.     lfStatusFont: TLogFontA;
  23886.     lfMessageFont: TLogFontA;
  23887.   end;
  23888.   {$EXTERNALSYM tagNONCLIENTMETRICSW}
  23889.   tagNONCLIENTMETRICSW = packed record
  23890.     cbSize: UINT;
  23891.     iBorderWidth: Integer;
  23892.     iScrollWidth: Integer;
  23893.     iScrollHeight: Integer;
  23894.     iCaptionWidth: Integer;
  23895.     iCaptionHeight: Integer;
  23896.     lfCaptionFont: TLogFontW;
  23897.     iSmCaptionWidth: Integer;
  23898.     iSmCaptionHeight: Integer;
  23899.     lfSmCaptionFont: TLogFontW;
  23900.     iMenuWidth: Integer;
  23901.     iMenuHeight: Integer;
  23902.     lfMenuFont: TLogFontW;
  23903.     lfStatusFont: TLogFontW;
  23904.     lfMessageFont: TLogFontW;
  23905.   end;
  23906.   {$EXTERNALSYM tagNONCLIENTMETRICS}
  23907.   tagNONCLIENTMETRICS = tagNONCLIENTMETRICSA;
  23908.   TNonClientMetricsA = tagNONCLIENTMETRICSA;
  23909.   TNonClientMetricsW = tagNONCLIENTMETRICSW;
  23910.   TNonClientMetrics = TNonClientMetricsA;
  23911.   {$EXTERNALSYM NONCLIENTMETRICSA}
  23912.   NONCLIENTMETRICSA = tagNONCLIENTMETRICSA;
  23913.   {$EXTERNALSYM NONCLIENTMETRICSW}
  23914.   NONCLIENTMETRICSW = tagNONCLIENTMETRICSW;
  23915.   {$EXTERNALSYM NONCLIENTMETRICS}
  23916.   NONCLIENTMETRICS = NONCLIENTMETRICSA;
  23917.  
  23918. const
  23919.   {$EXTERNALSYM ARW_BOTTOMLEFT}
  23920.   ARW_BOTTOMLEFT = 0;
  23921.   {$EXTERNALSYM ARW_BOTTOMRIGHT}
  23922.   ARW_BOTTOMRIGHT = 1;
  23923.   {$EXTERNALSYM ARW_TOPLEFT}
  23924.   ARW_TOPLEFT = 2;
  23925.   {$EXTERNALSYM ARW_TOPRIGHT}
  23926.   ARW_TOPRIGHT = 3;
  23927.   {$EXTERNALSYM ARW_STARTMASK}
  23928.   ARW_STARTMASK = 3;
  23929.   {$EXTERNALSYM ARW_STARTRIGHT}
  23930.   ARW_STARTRIGHT = 1;
  23931.   {$EXTERNALSYM ARW_STARTTOP}
  23932.   ARW_STARTTOP = 2;
  23933.  
  23934.   {$EXTERNALSYM ARW_LEFT}
  23935.   ARW_LEFT = 0;
  23936.   {$EXTERNALSYM ARW_RIGHT}
  23937.   ARW_RIGHT = 0;
  23938.   {$EXTERNALSYM ARW_UP}
  23939.   ARW_UP = 4;
  23940.   {$EXTERNALSYM ARW_DOWN}
  23941.   ARW_DOWN = 4;
  23942.   {$EXTERNALSYM ARW_HIDE}
  23943.   ARW_HIDE = 8;
  23944.   {$EXTERNALSYM ARW_VALID}
  23945.   ARW_VALID = 15;
  23946.  
  23947. type
  23948.   PMinimizedMetrics = ^TMinimizedMetrics;
  23949.   {$EXTERNALSYM tagMINIMIZEDMETRICS}
  23950.   tagMINIMIZEDMETRICS = packed record
  23951.     cbSize: UINT;
  23952.     iWidth: Integer;
  23953.     iHorzGap: Integer;
  23954.     iVertGap: Integer;
  23955.     iArrange: Integer;
  23956.   end;
  23957.   TMinimizedMetrics = tagMINIMIZEDMETRICS;
  23958.   {$EXTERNALSYM MINIMIZEDMETRICS}
  23959.   MINIMIZEDMETRICS = tagMINIMIZEDMETRICS;
  23960.  
  23961.   PIconMetricsA = ^TIconMetricsA;
  23962.   PIconMetricsW = ^TIconMetricsW;
  23963.   PIconMetrics = PIconMetricsA;
  23964.   {$EXTERNALSYM tagICONMETRICSA}
  23965.   tagICONMETRICSA = packed record
  23966.     cbSize: UINT;
  23967.     iHorzSpacing: Integer;
  23968.     iVertSpacing: Integer;
  23969.     iTitleWrap: Integer;
  23970.     lfFont: TLogFontA;
  23971.   end;
  23972.   {$EXTERNALSYM tagICONMETRICSW}
  23973.   tagICONMETRICSW = packed record
  23974.     cbSize: UINT;
  23975.     iHorzSpacing: Integer;
  23976.     iVertSpacing: Integer;
  23977.     iTitleWrap: Integer;
  23978.     lfFont: TLogFontW;
  23979.   end;
  23980.   {$EXTERNALSYM tagICONMETRICS}
  23981.   tagICONMETRICS = tagICONMETRICSA;
  23982.   TIconMetricsA = tagICONMETRICSA;
  23983.   TIconMetricsW = tagICONMETRICSW;
  23984.   TIconMetrics = TIconMetricsA;
  23985.   {$EXTERNALSYM ICONMETRICSA}
  23986.   ICONMETRICSA = tagICONMETRICSA;
  23987.   {$EXTERNALSYM ICONMETRICSW}
  23988.   ICONMETRICSW = tagICONMETRICSW;
  23989.   {$EXTERNALSYM ICONMETRICS}
  23990.   ICONMETRICS = ICONMETRICSA;
  23991.  
  23992.   PAnimationInfo = ^TAnimationInfo;
  23993.   {$EXTERNALSYM tagANIMATIONINFO}
  23994.   tagANIMATIONINFO = packed record
  23995.     cbSize: UINT;
  23996.     iMinAnimate: Integer;
  23997.   end;
  23998.   TAnimationInfo = tagANIMATIONINFO;
  23999.   {$EXTERNALSYM ANIMATIONINFO}
  24000.   ANIMATIONINFO = tagANIMATIONINFO;
  24001.  
  24002.  
  24003. type
  24004.   PSerialKeysA = ^TSerialKeysA;
  24005.   PSerialKeysW = ^TSerialKeysW;
  24006.   PSerialKeys = PSerialKeysA;
  24007.   {$EXTERNALSYM tagSERIALKEYSA}
  24008.   tagSERIALKEYSA = packed record
  24009.     cbSize: UINT;
  24010.     dwFlags: DWORD;
  24011.     lpszActivePort: PAnsiChar;
  24012.     lpszPort: PAnsiChar;
  24013.     iBaudRate: UINT;
  24014.     iPortState: UINT;
  24015.     iActive: UINT;
  24016.   end;
  24017.   {$EXTERNALSYM tagSERIALKEYSW}
  24018.   tagSERIALKEYSW = packed record
  24019.     cbSize: UINT;
  24020.     dwFlags: DWORD;
  24021.     lpszActivePort: PWideChar;
  24022.     lpszPort: PWideChar;
  24023.     iBaudRate: UINT;
  24024.     iPortState: UINT;
  24025.     iActive: UINT;
  24026.   end;
  24027.   {$EXTERNALSYM tagSERIALKEYS}
  24028.   tagSERIALKEYS = tagSERIALKEYSA;
  24029.   TSerialKeysA = tagSERIALKEYSA;
  24030.   TSerialKeysW = tagSERIALKEYSW;
  24031.   TSerialKeys = TSerialKeysA;
  24032.   {$EXTERNALSYM SERIALKEYSA}
  24033.   SERIALKEYSA = tagSERIALKEYSA;
  24034.   {$EXTERNALSYM SERIALKEYSW}
  24035.   SERIALKEYSW = tagSERIALKEYSW;
  24036.   {$EXTERNALSYM SERIALKEYS}
  24037.   SERIALKEYS = SERIALKEYSA;
  24038.  
  24039. const
  24040.   { flags for SERIALKEYS dwFlags field }
  24041.   {$EXTERNALSYM SERKF_SERIALKEYSON}
  24042.   SERKF_SERIALKEYSON = 1;
  24043.   {$EXTERNALSYM SERKF_AVAILABLE}
  24044.   SERKF_AVAILABLE = 2;
  24045.   {$EXTERNALSYM SERKF_INDICATOR}
  24046.   SERKF_INDICATOR = 4;
  24047.  
  24048. type
  24049.   PHighContrastA = ^THighContrastA;
  24050.   PHighContrastW = ^THighContrastW;
  24051.   PHighContrast = PHighContrastA;
  24052.   {$EXTERNALSYM tagHIGHCONTRASTA}
  24053.   tagHIGHCONTRASTA = packed record
  24054.     cbSize: UINT;
  24055.     dwFlags: DWORD;
  24056.     lpszDefaultScheme: PAnsiChar;
  24057.   end;
  24058.   {$EXTERNALSYM tagHIGHCONTRASTW}
  24059.   tagHIGHCONTRASTW = packed record
  24060.     cbSize: UINT;
  24061.     dwFlags: DWORD;
  24062.     lpszDefaultScheme: PWideChar;
  24063.   end;
  24064.   {$EXTERNALSYM tagHIGHCONTRAST}
  24065.   tagHIGHCONTRAST = tagHIGHCONTRASTA;
  24066.   THighContrastA = tagHIGHCONTRASTA;
  24067.   THighContrastW = tagHIGHCONTRASTW;
  24068.   THighContrast = THighContrastA;
  24069.   {$EXTERNALSYM HIGHCONTRASTA}
  24070.   HIGHCONTRASTA = tagHIGHCONTRASTA;
  24071.   {$EXTERNALSYM HIGHCONTRASTW}
  24072.   HIGHCONTRASTW = tagHIGHCONTRASTW;
  24073.   {$EXTERNALSYM HIGHCONTRAST}
  24074.   HIGHCONTRAST = HIGHCONTRASTA;
  24075.  
  24076.  
  24077. const
  24078.   { flags for HIGHCONTRAST dwFlags field }
  24079.   {$EXTERNALSYM HCF_HIGHCONTRASTON}
  24080.   HCF_HIGHCONTRASTON      = $00000001;
  24081.   {$EXTERNALSYM HCF_AVAILABLE}
  24082.   HCF_AVAILABLE           = $00000002;
  24083.   {$EXTERNALSYM HCF_HOTKEYACTIVE}
  24084.   HCF_HOTKEYACTIVE        = $00000004;
  24085.   {$EXTERNALSYM HCF_CONFIRMHOTKEY}
  24086.   HCF_CONFIRMHOTKEY       = $00000008;
  24087.   {$EXTERNALSYM HCF_HOTKEYSOUND}
  24088.   HCF_HOTKEYSOUND         = $00000010;
  24089.   {$EXTERNALSYM HCF_INDICATOR}
  24090.   HCF_INDICATOR           = $00000020;
  24091.   {$EXTERNALSYM HCF_HOTKEYAVAILABLE}
  24092.   HCF_HOTKEYAVAILABLE     = $00000040;
  24093.  
  24094.   { Flags for ChangeDisplaySettings }
  24095.   {$EXTERNALSYM CDS_UPDATEREGISTRY}
  24096.   CDS_UPDATEREGISTRY      = $00000001;
  24097.   {$EXTERNALSYM CDS_TEST}
  24098.   CDS_TEST                = $00000002;
  24099.   {$EXTERNALSYM CDS_FULLSCREEN}
  24100.   CDS_FULLSCREEN          = $00000004;
  24101.   {$EXTERNALSYM CDS_GLOBAL}
  24102.   CDS_GLOBAL              = $00000008;
  24103.   {$EXTERNALSYM CDS_SET_PRIMARY}
  24104.   CDS_SET_PRIMARY         = $00000010;
  24105.   {$EXTERNALSYM CDS_RESET}
  24106.   CDS_RESET               = $40000000;
  24107.   {$EXTERNALSYM CDS_SETRECT}
  24108.   CDS_SETRECT             = $20000000;
  24109.   {$EXTERNALSYM CDS_NORESET}
  24110.   CDS_NORESET             = $10000000;
  24111.  
  24112.   { Return values for ChangeDisplaySettings }
  24113.   {$EXTERNALSYM DISP_CHANGE_SUCCESSFUL}
  24114.   DISP_CHANGE_SUCCESSFUL           = 0;
  24115.   {$EXTERNALSYM DISP_CHANGE_RESTART}
  24116.   DISP_CHANGE_RESTART              = 1;
  24117.   {$EXTERNALSYM DISP_CHANGE_FAILED}
  24118.   DISP_CHANGE_FAILED              = -1;
  24119.   {$EXTERNALSYM DISP_CHANGE_BADMODE}
  24120.   DISP_CHANGE_BADMODE             = -2;
  24121.   {$EXTERNALSYM DISP_CHANGE_NOTUPDATED}
  24122.   DISP_CHANGE_NOTUPDATED          = -3;
  24123.   {$EXTERNALSYM DISP_CHANGE_BADFLAGS}
  24124.   DISP_CHANGE_BADFLAGS            = -4;
  24125.   {$EXTERNALSYM DISP_CHANGE_BADPARAM}
  24126.   DISP_CHANGE_BADPARAM            = -5;
  24127.  
  24128.  
  24129. {$EXTERNALSYM ChangeDisplaySettingsA}
  24130. function ChangeDisplaySettingsA(var lpDevMode: TDeviceModeA; dwFlags: DWORD): Longint; stdcall;
  24131. {$EXTERNALSYM ChangeDisplaySettingsW}
  24132. function ChangeDisplaySettingsW(var lpDevMode: TDeviceModeW; dwFlags: DWORD): Longint; stdcall;
  24133. {$EXTERNALSYM ChangeDisplaySettings}
  24134. function ChangeDisplaySettings(var lpDevMode: TDeviceMode; dwFlags: DWORD): Longint; stdcall;
  24135. {$EXTERNALSYM ChangeDisplaySettingsExA}
  24136. function ChangeDisplaySettingsExA(lpszDeviceName: PAnsiChar; var lpDevMode: TDeviceModeA;
  24137.         wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint; stdcall;
  24138. {$EXTERNALSYM ChangeDisplaySettingsExW}
  24139. function ChangeDisplaySettingsExW(lpszDeviceName: PWideChar; var lpDevMode: TDeviceModeW;
  24140.         wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint; stdcall;
  24141. {$EXTERNALSYM ChangeDisplaySettingsEx}
  24142. function ChangeDisplaySettingsEx(lpszDeviceName: PChar; var lpDevMode: TDeviceMode;
  24143.         wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint; stdcall;
  24144. {$EXTERNALSYM EnumDisplaySettingsA}
  24145. function EnumDisplaySettingsA(lpszDeviceName: PAnsiChar; iModeNum: DWORD;
  24146.   var lpDevMode: TDeviceModeA): BOOL; stdcall;
  24147. {$EXTERNALSYM EnumDisplaySettingsW}
  24148. function EnumDisplaySettingsW(lpszDeviceName: PWideChar; iModeNum: DWORD;
  24149.   var lpDevMode: TDeviceModeW): BOOL; stdcall;
  24150. {$EXTERNALSYM EnumDisplaySettings}
  24151. function EnumDisplaySettings(lpszDeviceName: PChar; iModeNum: DWORD;
  24152.   var lpDevMode: TDeviceMode): BOOL; stdcall;
  24153. {#END}
  24154. {$EXTERNALSYM EnumDisplayDevicesA}
  24155. function EnumDisplayDevicesA(Unused: Pointer; iDevNum: DWORD;
  24156.   var lpDisplayDevice: TDisplayDeviceA; dwFlags: DWORD): BOOL; stdcall;
  24157. {$EXTERNALSYM EnumDisplayDevicesW}
  24158. function EnumDisplayDevicesW(Unused: Pointer; iDevNum: DWORD;
  24159.   var lpDisplayDevice: TDisplayDeviceW; dwFlags: DWORD): BOOL; stdcall;
  24160. {$EXTERNALSYM EnumDisplayDevices}
  24161. function EnumDisplayDevices(Unused: Pointer; iDevNum: DWORD;
  24162.   var lpDisplayDevice: TDisplayDevice; dwFlags: DWORD): BOOL; stdcall;
  24163. {$EXTERNALSYM SystemParametersInfoA}
  24164. function SystemParametersInfoA(uiAction, uiParam: UINT;
  24165.   pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;
  24166. {$EXTERNALSYM SystemParametersInfoW}
  24167. function SystemParametersInfoW(uiAction, uiParam: UINT;
  24168.   pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;
  24169. {$EXTERNALSYM SystemParametersInfo}
  24170. function SystemParametersInfo(uiAction, uiParam: UINT;
  24171.   pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;
  24172.  
  24173. type
  24174.   { Accessibility support }
  24175.   PFilterKeys = ^TFilterKeys;
  24176.   {$EXTERNALSYM tagFILTERKEYS}
  24177.   tagFILTERKEYS = packed record
  24178.     cbSize: UINT;
  24179.     dwFlags: DWORD;
  24180.     iWaitMSec: DWORD;       { Acceptance Delay}
  24181.     iDelayMSec: DWORD;      { Delay Until Repeat}
  24182.     iRepeatMSec: DWORD;     { Repeat Rate}
  24183.     iBounceMSec: DWORD;     { Debounce Time}
  24184.   end;
  24185.   TFilterKeys = tagFILTERKEYS;
  24186.   {$EXTERNALSYM FILTERKEYS}
  24187.   FILTERKEYS = tagFILTERKEYS;
  24188.  
  24189.  
  24190. const
  24191.   { TFilterKeys dwFlags field }
  24192.   {$EXTERNALSYM FKF_FILTERKEYSON}
  24193.   FKF_FILTERKEYSON = 1;
  24194.   {$EXTERNALSYM FKF_AVAILABLE}
  24195.   FKF_AVAILABLE = 2;
  24196.   {$EXTERNALSYM FKF_HOTKEYACTIVE}
  24197.   FKF_HOTKEYACTIVE = 4;
  24198.   {$EXTERNALSYM FKF_CONFIRMHOTKEY}
  24199.   FKF_CONFIRMHOTKEY = 8;
  24200.   {$EXTERNALSYM FKF_HOTKEYSOUND}
  24201.   FKF_HOTKEYSOUND = $10;
  24202.   {$EXTERNALSYM FKF_INDICATOR}
  24203.   FKF_INDICATOR = $20;
  24204.   {$EXTERNALSYM FKF_CLICKON}
  24205.   FKF_CLICKON = $40;
  24206.  
  24207. type
  24208.   PStickyKeys = ^TStickyKeys;
  24209.   {$EXTERNALSYM tagSTICKYKEYS}
  24210.   tagSTICKYKEYS = packed record
  24211.     cbSize: UINT;
  24212.     dwFlags: DWORD;
  24213.   end;
  24214.   TStickyKeys = tagSTICKYKEYS;
  24215.   {$EXTERNALSYM STICKYKEYS}
  24216.   STICKYKEYS = tagSTICKYKEYS;
  24217.  
  24218. const
  24219.   { TStickyKeys dwFlags field }
  24220.   {$EXTERNALSYM SKF_STICKYKEYSON}
  24221.   SKF_STICKYKEYSON = 1;
  24222.   {$EXTERNALSYM SKF_AVAILABLE}
  24223.   SKF_AVAILABLE = 2;
  24224.   {$EXTERNALSYM SKF_HOTKEYACTIVE}
  24225.   SKF_HOTKEYACTIVE = 4;
  24226.   {$EXTERNALSYM SKF_CONFIRMHOTKEY}
  24227.   SKF_CONFIRMHOTKEY = 8;
  24228.   {$EXTERNALSYM SKF_HOTKEYSOUND}
  24229.   SKF_HOTKEYSOUND = $10;
  24230.   {$EXTERNALSYM SKF_INDICATOR}
  24231.   SKF_INDICATOR = $20;
  24232.   {$EXTERNALSYM SKF_AUDIBLEFEEDBACK}
  24233.   SKF_AUDIBLEFEEDBACK = $40;
  24234.   {$EXTERNALSYM SKF_TRISTATE}
  24235.   SKF_TRISTATE = $80;
  24236.   {$EXTERNALSYM SKF_TWOKEYSOFF}
  24237.   SKF_TWOKEYSOFF = $100;
  24238.   {$EXTERNALSYM SKF_LALTLATCHED}
  24239.   SKF_LALTLATCHED = $10000000;
  24240.   {$EXTERNALSYM SKF_LCTLLATCHED}
  24241.   SKF_LCTLLATCHED = $04000000;
  24242.   {$EXTERNALSYM SKF_LSHIFTLATCHED}
  24243.   SKF_LSHIFTLATCHED = $01000000;
  24244.   {$EXTERNALSYM SKF_RALTLATCHED }
  24245.   SKF_RALTLATCHED = $20000000;
  24246.   {$EXTERNALSYM SKF_RCTLLATCHED}
  24247.   SKF_RCTLLATCHED = $08000000;
  24248.   {$EXTERNALSYM SKF_RSHIFTLATCHED}
  24249.   SKF_RSHIFTLATCHED = $02000000;
  24250.   {$EXTERNALSYM SKF_LWINLATCHED}
  24251.   SKF_LWINLATCHED = $40000000;
  24252.   {$EXTERNALSYM SKF_RWINLATCHED}
  24253.   SKF_RWINLATCHED = $80000000;
  24254.   {$EXTERNALSYM SKF_LALTLOCKED}
  24255.   SKF_LALTLOCKED = $00100000;
  24256.   {$EXTERNALSYM SKF_LCTLLOCKED}
  24257.   SKF_LCTLLOCKED = $00040000;
  24258.   {$EXTERNALSYM SKF_LSHIFTLOCKED}
  24259.   SKF_LSHIFTLOCKED = $00010000;
  24260.   {$EXTERNALSYM SKF_RALTLOCKED}
  24261.   SKF_RALTLOCKED = $00200000;
  24262.   {$EXTERNALSYM SKF_RCTLLOCKED}
  24263.   SKF_RCTLLOCKED = $00080000;
  24264.   {$EXTERNALSYM SKF_RSHIFTLOCKED}
  24265.   SKF_RSHIFTLOCKED = $00020000;
  24266.   {$EXTERNALSYM SKF_LWINLOCKED}
  24267.   SKF_LWINLOCKED = $00400000;
  24268.   {$EXTERNALSYM SKF_RWINLOCKED}
  24269.   SKF_RWINLOCKED = $00800000;
  24270.  
  24271. type
  24272.   PMouseKeys = ^TMouseKeys;
  24273.   {$EXTERNALSYM tagMOUSEKEYS}
  24274.   tagMOUSEKEYS = packed record
  24275.     cbSize: UINT;
  24276.     dwFlags: DWORD;
  24277.     iMaxSpeed: DWORD;
  24278.     iTimeToMaxSpeed: DWORD;
  24279.     iCtrlSpeed: DWORD;
  24280.     dwReserved1: DWORD;
  24281.     dwReserved2: DWORD;
  24282.   end;
  24283.   TMouseKeys = tagMOUSEKEYS;
  24284.   {$EXTERNALSYM MOUSEKEYS}
  24285.   MOUSEKEYS = tagMOUSEKEYS;
  24286.  
  24287. const
  24288.   { TMouseKeys dwFlags field }
  24289.   {$EXTERNALSYM MKF_MOUSEKEYSON}
  24290.   MKF_MOUSEKEYSON = 1;
  24291.   {$EXTERNALSYM MKF_AVAILABLE}
  24292.   MKF_AVAILABLE = 2;
  24293.   {$EXTERNALSYM MKF_HOTKEYACTIVE}
  24294.   MKF_HOTKEYACTIVE = 4;
  24295.   {$EXTERNALSYM MKF_CONFIRMHOTKEY}
  24296.   MKF_CONFIRMHOTKEY = 8;
  24297.   {$EXTERNALSYM MKF_HOTKEYSOUND}
  24298.   MKF_HOTKEYSOUND = $10;
  24299.   {$EXTERNALSYM MKF_INDICATOR}
  24300.   MKF_INDICATOR = $20;
  24301.   {$EXTERNALSYM MKF_MODIFIERS}
  24302.   MKF_MODIFIERS = $40;
  24303.   {$EXTERNALSYM MKF_REPLACENUMBERS}
  24304.   MKF_REPLACENUMBERS = $80;
  24305.   {$EXTERNALSYM MKF_LEFTBUTTONSEL}
  24306.   MKF_LEFTBUTTONSEL = $10000000;
  24307.   {$EXTERNALSYM MKF_RIGHTBUTTONSEL}
  24308.   MKF_RIGHTBUTTONSEL = $20000000;
  24309.   {$EXTERNALSYM MKF_LEFTBUTTONDOWN}
  24310.   MKF_LEFTBUTTONDOWN = $01000000;
  24311.   {$EXTERNALSYM MKF_RIGHTBUTTONDOWN}
  24312.   MKF_RIGHTBUTTONDOWN = $02000000;
  24313.   {$EXTERNALSYM MKF_MOUSEMODE}
  24314.   MKF_MOUSEMODE = $80000000;
  24315.  
  24316. type
  24317.   PAccessTimeout = ^TAccessTimeout;
  24318.   {$EXTERNALSYM tagACCESSTIMEOUT}
  24319.   tagACCESSTIMEOUT = packed record
  24320.     cbSize: UINT;
  24321.     dwFlags: DWORD;
  24322.     iTimeOutMSec: DWORD;
  24323.   end;
  24324.   TAccessTimeout = tagACCESSTIMEOUT;
  24325.   {$EXTERNALSYM ACCESSTIMEOUT}
  24326.   ACCESSTIMEOUT = tagACCESSTIMEOUT;
  24327.  
  24328. const
  24329.   { TAccessTimeout dwFlags field }
  24330.   {$EXTERNALSYM ATF_TIMEOUTON}
  24331.   ATF_TIMEOUTON = 1;
  24332.   {$EXTERNALSYM ATF_ONOFFFEEDBACK}
  24333.   ATF_ONOFFFEEDBACK = 2;
  24334.  
  24335.   { values for TSoundsEntry iFSGrafEffect field }
  24336.   {$EXTERNALSYM SSGF_NONE}
  24337.   SSGF_NONE = 0;
  24338.   {$EXTERNALSYM SSGF_DISPLAY}
  24339.   SSGF_DISPLAY = 3;
  24340.  
  24341.   { values for TSoundsEntry iFSTextEffect field }
  24342.   {$EXTERNALSYM SSTF_NONE}
  24343.   SSTF_NONE = 0;
  24344.   {$EXTERNALSYM SSTF_CHARS}
  24345.   SSTF_CHARS = 1;
  24346.   {$EXTERNALSYM SSTF_BORDER}
  24347.   SSTF_BORDER = 2;
  24348.   {$EXTERNALSYM SSTF_DISPLAY}
  24349.   SSTF_DISPLAY = 3;
  24350.  
  24351.   { values for TSoundsEntry iWindowsEffect field }
  24352.   {$EXTERNALSYM SSWF_NONE}
  24353.   SSWF_NONE = 0;
  24354.   {$EXTERNALSYM SSWF_TITLE}
  24355.   SSWF_TITLE = 1;
  24356.   {$EXTERNALSYM SSWF_WINDOW}
  24357.   SSWF_WINDOW = 2;
  24358.   {$EXTERNALSYM SSWF_DISPLAY}
  24359.   SSWF_DISPLAY = 3;
  24360.   {$EXTERNALSYM SSWF_CUSTOM}
  24361.   SSWF_CUSTOM = 4;
  24362.  
  24363. type
  24364.   PSoundsEntryA = ^TSoundsEntryA;
  24365.   PSoundsEntryW = ^TSoundsEntryW;
  24366.   PSoundsEntry = PSoundsEntryA;
  24367.   {$EXTERNALSYM tagSOUNDSENTRYA}
  24368.   tagSOUNDSENTRYA = packed record
  24369.     cbSize: UINT;
  24370.     dwFlags: DWORD;
  24371.     iFSTextEffect: DWORD;
  24372.     iFSTextEffectMSec: DWORD;
  24373.     iFSTextEffectColorBits: DWORD;
  24374.     iFSGrafEffect: DWORD;
  24375.     iFSGrafEffectMSec: DWORD;
  24376.     iFSGrafEffectColor: DWORD;
  24377.     iWindowsEffect: DWORD;
  24378.     iWindowsEffectMSec: DWORD;
  24379.     lpszWindowsEffectDLL: PAnsiChar;
  24380.     iWindowsEffectOrdinal: DWORD;
  24381.   end;
  24382.   {$EXTERNALSYM tagSOUNDSENTRYW}
  24383.   tagSOUNDSENTRYW = packed record
  24384.     cbSize: UINT;
  24385.     dwFlags: DWORD;
  24386.     iFSTextEffect: DWORD;
  24387.     iFSTextEffectMSec: DWORD;
  24388.     iFSTextEffectColorBits: DWORD;
  24389.     iFSGrafEffect: DWORD;
  24390.     iFSGrafEffectMSec: DWORD;
  24391.     iFSGrafEffectColor: DWORD;
  24392.     iWindowsEffect: DWORD;
  24393.     iWindowsEffectMSec: DWORD;
  24394.     lpszWindowsEffectDLL: PWideChar;
  24395.     iWindowsEffectOrdinal: DWORD;
  24396.   end;
  24397.   {$EXTERNALSYM tagSOUNDSENTRY}
  24398.   tagSOUNDSENTRY = tagSOUNDSENTRYA;
  24399.   TSoundsEntryA = tagSOUNDSENTRYA;
  24400.   TSoundsEntryW = tagSOUNDSENTRYW;
  24401.   TSoundsEntry = TSoundsEntryA;
  24402.   {$EXTERNALSYM SOUNDSENTRYA}
  24403.   SOUNDSENTRYA = tagSOUNDSENTRYA;
  24404.   {$EXTERNALSYM SOUNDSENTRYW}
  24405.   SOUNDSENTRYW = tagSOUNDSENTRYW;
  24406.   {$EXTERNALSYM SOUNDSENTRY}
  24407.   SOUNDSENTRY = SOUNDSENTRYA;
  24408.  
  24409. const
  24410.   { SOUNDSENTRY dwFlags field }
  24411.   {$EXTERNALSYM SSF_SOUNDSENTRYON}
  24412.   SSF_SOUNDSENTRYON = 1;
  24413.   {$EXTERNALSYM SSF_AVAILABLE}
  24414.   SSF_AVAILABLE = 2;
  24415.   {$EXTERNALSYM SSF_INDICATOR}
  24416.   SSF_INDICATOR = 4;
  24417.  
  24418.  
  24419. type
  24420.   PToggleKeys = ^TToggleKeys;
  24421.   {$EXTERNALSYM tagTOGGLEKEYS}
  24422.   tagTOGGLEKEYS = packed record
  24423.     cbSize: UINT;
  24424.     dwFlags: DWORD;
  24425.   end;
  24426.   TToggleKeys = tagTOGGLEKEYS;
  24427.   {$EXTERNALSYM TOGGLEKEYS}
  24428.   TOGGLEKEYS = tagTOGGLEKEYS;
  24429.  
  24430. const
  24431.   { TToggleKeys dwFlags field }
  24432.   {$EXTERNALSYM TKF_TOGGLEKEYSON}
  24433.   TKF_TOGGLEKEYSON = 1;
  24434.   {$EXTERNALSYM TKF_AVAILABLE}
  24435.   TKF_AVAILABLE = 2;
  24436.   {$EXTERNALSYM TKF_HOTKEYACTIVE}
  24437.   TKF_HOTKEYACTIVE = 4;
  24438.   {$EXTERNALSYM TKF_CONFIRMHOTKEY}
  24439.   TKF_CONFIRMHOTKEY = 8;
  24440.   {$EXTERNALSYM TKF_HOTKEYSOUND}
  24441.   TKF_HOTKEYSOUND = $10;
  24442.   {$EXTERNALSYM TKF_INDICATOR}
  24443.   TKF_INDICATOR = $20;
  24444.  
  24445. {$EXTERNALSYM SetDebugErrorLevel}
  24446. procedure SetDebugErrorLevel(dwLevel: DWORD); stdcall;
  24447.  
  24448. const
  24449.   { SetLastErrorEx() types. }
  24450.   {$EXTERNALSYM SLE_ERROR}
  24451.   SLE_ERROR = 1;
  24452.   {$EXTERNALSYM SLE_MINORERROR}
  24453.   SLE_MINORERROR = 2;
  24454.   {$EXTERNALSYM SLE_WARNING}
  24455.   SLE_WARNING = 3;
  24456.  
  24457. {$EXTERNALSYM SetLastErrorEx}
  24458. procedure SetLastErrorEx(dwErrCode, dwType: DWORD); stdcall;
  24459.  
  24460.  
  24461. { WinEvents - Active Accessibility hooks }
  24462. {$EXTERNALSYM NotifyWinEvent}
  24463. procedure NotifyWinEvent(event: DWORD; hwnd: HWND; idObject, idChild: Longint);
  24464.  
  24465. type
  24466.   {$EXTERNALSYM TFNWinEventProc}
  24467.     TFNWinEventProc = procedure (hWinEventHook: THandle; event: DWORD;
  24468.     hwnd: HWND; idObject, idChild: Longint; idEventThread, dwmsEventTime: DWORD); stdcall;
  24469.  
  24470. const
  24471.   {$EXTERNALSYM CHILDID_SELF}
  24472.   CHILDID_SELF = 0;
  24473.   {$EXTERNALSYM INDEXID_OBJECT}
  24474.   INDEXID_OBJECT = 0;
  24475.   {$EXTERNALSYM INDEXID_CONTAINER}
  24476.   INDEXID_CONTAINER = 0;
  24477.  
  24478.   { Reserved IDs for system objects}
  24479.   {$EXTERNALSYM OBJID_WINDOW}
  24480.   OBJID_WINDOW = $00000000;
  24481.   {$EXTERNALSYM OBJID_SYSMENU}
  24482.   OBJID_SYSMENU = $FFFFFFFF;
  24483.   {$EXTERNALSYM OBJID_TITLEBAR}
  24484.   OBJID_TITLEBAR = $FFFFFFFE;
  24485.   {$EXTERNALSYM OBJID_MENU}
  24486.   OBJID_MENU = $FFFFFFFD;
  24487.   {$EXTERNALSYM OBJID_CLIENT}
  24488.   OBJID_CLIENT = $FFFFFFFC;
  24489.   {$EXTERNALSYM OBJID_VSCROLL}
  24490.   OBJID_VSCROLL = $FFFFFFFB;
  24491.   {$EXTERNALSYM OBJID_HSCROLL}
  24492.   OBJID_HSCROLL = $FFFFFFFA;
  24493.   {$EXTERNALSYM OBJID_SIZEGRIP}
  24494.   OBJID_SIZEGRIP = $FFFFFFF9;
  24495.   {$EXTERNALSYM OBJID_CARET}
  24496.   OBJID_CARET = $FFFFFFF8;
  24497.   {$EXTERNALSYM OBJID_CURSOR}
  24498.   OBJID_CURSOR = $FFFFFFF7;
  24499.   {$EXTERNALSYM OBJID_ALERT}
  24500.   OBJID_ALERT = $FFFFFFF6;
  24501.   {$EXTERNALSYM OBJID_SOUND}
  24502.   OBJID_SOUND = $FFFFFFF5;
  24503.  
  24504.   { EVENT DEFINITION }
  24505.   {$EXTERNALSYM EVENT_MIN}
  24506.   EVENT_MIN = $00000001;
  24507.   {$EXTERNALSYM EVENT_MAX}
  24508.   EVENT_MAX = $7FFFFFFF;
  24509.  
  24510.   {$EXTERNALSYM EVENT_SYSTEM_SOUND}
  24511.   EVENT_SYSTEM_SOUND = $0001;
  24512.   {$EXTERNALSYM EVENT_SYSTEM_ALERT}
  24513.   EVENT_SYSTEM_ALERT = $0002;
  24514.   {$EXTERNALSYM EVENT_SYSTEM_FOREGROUND}
  24515.   EVENT_SYSTEM_FOREGROUND = $0003;
  24516.   {$EXTERNALSYM EVENT_SYSTEM_MENUSTART}
  24517.   EVENT_SYSTEM_MENUSTART = $0004;
  24518.   {$EXTERNALSYM EVENT_SYSTEM_MENUEND}
  24519.   EVENT_SYSTEM_MENUEND = $0005;
  24520.   {$EXTERNALSYM EVENT_SYSTEM_MENUPOPUPSTART}
  24521.   EVENT_SYSTEM_MENUPOPUPSTART  = $0006;
  24522.   {$EXTERNALSYM EVENT_SYSTEM_MENUPOPUPEND}
  24523.   EVENT_SYSTEM_MENUPOPUPEND    = $0007;
  24524.   {$EXTERNALSYM EVENT_SYSTEM_CAPTURESTART}
  24525.   EVENT_SYSTEM_CAPTURESTART    = $0008;
  24526.   {$EXTERNALSYM EVENT_SYSTEM_CAPTUREEND}
  24527.   EVENT_SYSTEM_CAPTUREEND      = $0009;
  24528.   {$EXTERNALSYM EVENT_SYSTEM_MOVESIZESTART}
  24529.   EVENT_SYSTEM_MOVESIZESTART   = $000A;
  24530.   {$EXTERNALSYM EVENT_SYSTEM_MOVESIZEEND}
  24531.   EVENT_SYSTEM_MOVESIZEEND     = $000B;
  24532.   {$EXTERNALSYM EVENT_SYSTEM_CONTEXTHELPSTART}
  24533.   EVENT_SYSTEM_CONTEXTHELPSTART= $000C;
  24534.   {$EXTERNALSYM EVENT_SYSTEM_CONTEXTHELPEND}
  24535.   EVENT_SYSTEM_CONTEXTHELPEND  = $000D;
  24536.   {$EXTERNALSYM EVENT_SYSTEM_DRAGDROPSTART}
  24537.   EVENT_SYSTEM_DRAGDROPSTART   = $000E;
  24538.   {$EXTERNALSYM EVENT_SYSTEM_DRAGDROPEND}
  24539.   EVENT_SYSTEM_DRAGDROPEND     = $000F;
  24540.   {$EXTERNALSYM EVENT_SYSTEM_DIALOGSTART}
  24541.   EVENT_SYSTEM_DIALOGSTART     = $0010;
  24542.   {$EXTERNALSYM EVENT_SYSTEM_DIALOGEND}
  24543.   EVENT_SYSTEM_DIALOGEND       = $0011;
  24544.   {$EXTERNALSYM EVENT_SYSTEM_SCROLLINGSTART}
  24545.   EVENT_SYSTEM_SCROLLINGSTART  = $0012;
  24546.   {$EXTERNALSYM EVENT_SYSTEM_SCROLLINGEND}
  24547.   EVENT_SYSTEM_SCROLLINGEND    = $0013;
  24548.   {$EXTERNALSYM EVENT_SYSTEM_SWITCHSTART}
  24549.   EVENT_SYSTEM_SWITCHSTART     = $0014;
  24550.   {$EXTERNALSYM EVENT_SYSTEM_SWITCHEND}
  24551.   EVENT_SYSTEM_SWITCHEND       = $0015;
  24552.   {$EXTERNALSYM EVENT_SYSTEM_MINIMIZESTART}
  24553.   EVENT_SYSTEM_MINIMIZESTART   = $0016;
  24554.   {$EXTERNALSYM EVENT_SYSTEM_MINIMIZEEND}
  24555.   EVENT_SYSTEM_MINIMIZEEND     = $0017;
  24556.   {$EXTERNALSYM EVENT_OBJECT_CREATE}
  24557.   EVENT_OBJECT_CREATE              = $8000;  { hwnd + ID + idChild is created item }
  24558.   {$EXTERNALSYM EVENT_OBJECT_DESTROY}
  24559.   EVENT_OBJECT_DESTROY             = $8001;  { hwnd + ID + idChild is destroyed item }
  24560.   {$EXTERNALSYM EVENT_OBJECT_SHOW}
  24561.   EVENT_OBJECT_SHOW                = $8002;  { hwnd + ID + idChild is shown item }
  24562.   {$EXTERNALSYM EVENT_OBJECT_HIDE}
  24563.   EVENT_OBJECT_HIDE                = $8003;  { hwnd + ID + idChild is hidden item }
  24564.   {$EXTERNALSYM EVENT_OBJECT_REORDER}
  24565.   EVENT_OBJECT_REORDER             = $8004;  { hwnd + ID + idChild is parent of zordering children }
  24566.   {$EXTERNALSYM EVENT_OBJECT_FOCUS}
  24567.   EVENT_OBJECT_FOCUS               = $8005;  { hwnd + ID + idChild is focused item }
  24568.   {$EXTERNALSYM EVENT_OBJECT_SELECTION}
  24569.   EVENT_OBJECT_SELECTION           = $8006;  { hwnd + ID + idChild is selected item (if only one), or idChild is OBJID_WINDOW if complex }
  24570.   {$EXTERNALSYM EVENT_OBJECT_SELECTIONADD}
  24571.   EVENT_OBJECT_SELECTIONADD        = $8007;  { hwnd + ID + idChild is item added }
  24572.   {$EXTERNALSYM EVENT_OBJECT_SELECTIONREMOVE}
  24573.   EVENT_OBJECT_SELECTIONREMOVE     = $8008;  { hwnd + ID + idChild is item removed }
  24574.   {$EXTERNALSYM EVENT_OBJECT_SELECTIONWITHIN}
  24575.   EVENT_OBJECT_SELECTIONWITHIN     = $8009;  { hwnd + ID + idChild is parent of changed selected items }
  24576.   {$EXTERNALSYM EVENT_OBJECT_STATECHANGE}
  24577.   EVENT_OBJECT_STATECHANGE         = $800A;  { hwnd + ID + idChild is item w/ state change }
  24578.   {$EXTERNALSYM EVENT_OBJECT_LOCATIONCHANGE}
  24579.   EVENT_OBJECT_LOCATIONCHANGE      = $800B;  { hwnd + ID + idChild is moved/sized item }
  24580.   {$EXTERNALSYM EVENT_OBJECT_NAMECHANGE}
  24581.   EVENT_OBJECT_NAMECHANGE          = $800C;  { hwnd + ID + idChild is item w/ name change }
  24582.   {$EXTERNALSYM EVENT_OBJECT_DESCRIPTIONCHANGE}
  24583.   EVENT_OBJECT_DESCRIPTIONCHANGE   = $800D;  { hwnd + ID + idChild is item w/ desc change }
  24584.   {$EXTERNALSYM EVENT_OBJECT_VALUECHANGE}
  24585.   EVENT_OBJECT_VALUECHANGE         = $800E;  { hwnd + ID + idChild is item w/ value change }
  24586.   {$EXTERNALSYM EVENT_OBJECT_PARENTCHANGE}
  24587.   EVENT_OBJECT_PARENTCHANGE        = $800F;  { hwnd + ID + idChild is item w/ new parent }
  24588.   {$EXTERNALSYM EVENT_OBJECT_HELPCHANGE}
  24589.   EVENT_OBJECT_HELPCHANGE          = $8010;  { hwnd + ID + idChild is item w/ help change }
  24590.   {$EXTERNALSYM EVENT_OBJECT_DEFACTIONCHANGE}
  24591.   EVENT_OBJECT_DEFACTIONCHANGE     = $8011;  { hwnd + ID + idChild is item w/ def action change }
  24592.   {$EXTERNALSYM EVENT_OBJECT_ACCELERATORCHANGE}
  24593.   EVENT_OBJECT_ACCELERATORCHANGE   = $8012;  { hwnd + ID + idChild is item w/ keybd accel change }
  24594.   {$EXTERNALSYM SOUND_SYSTEM_STARTUP}
  24595.   SOUND_SYSTEM_STARTUP           = 1;
  24596.   {$EXTERNALSYM SOUND_SYSTEM_SHUTDOWN}
  24597.   SOUND_SYSTEM_SHUTDOWN          = 2;
  24598.   {$EXTERNALSYM SOUND_SYSTEM_BEEP}
  24599.   SOUND_SYSTEM_BEEP              = 3;
  24600.   {$EXTERNALSYM SOUND_SYSTEM_ERROR}
  24601.   SOUND_SYSTEM_ERROR             = 4;
  24602.   {$EXTERNALSYM SOUND_SYSTEM_QUESTION}
  24603.   SOUND_SYSTEM_QUESTION          = 5;
  24604.   {$EXTERNALSYM SOUND_SYSTEM_WARNING}
  24605.   SOUND_SYSTEM_WARNING           = 6;
  24606.   {$EXTERNALSYM SOUND_SYSTEM_INFORMATION}
  24607.   SOUND_SYSTEM_INFORMATION       = 7;
  24608.   {$EXTERNALSYM SOUND_SYSTEM_MAXIMIZE}
  24609.   SOUND_SYSTEM_MAXIMIZE          = 8;
  24610.   {$EXTERNALSYM SOUND_SYSTEM_MINIMIZE}
  24611.   SOUND_SYSTEM_MINIMIZE          = 9;
  24612.   {$EXTERNALSYM SOUND_SYSTEM_RESTOREUP}
  24613.   SOUND_SYSTEM_RESTOREUP         = 10;
  24614.   {$EXTERNALSYM SOUND_SYSTEM_RESTOREDOWN}
  24615.   SOUND_SYSTEM_RESTOREDOWN       = 11;
  24616.   {$EXTERNALSYM SOUND_SYSTEM_APPSTART}
  24617.   SOUND_SYSTEM_APPSTART          = 12;
  24618.   {$EXTERNALSYM SOUND_SYSTEM_FAULT}
  24619.   SOUND_SYSTEM_FAULT             = 13;
  24620.   {$EXTERNALSYM SOUND_SYSTEM_APPEND}
  24621.   SOUND_SYSTEM_APPEND            = 14;
  24622.   {$EXTERNALSYM SOUND_SYSTEM_MENUCOMMAND}
  24623.   SOUND_SYSTEM_MENUCOMMAND       = 15;
  24624.   {$EXTERNALSYM SOUND_SYSTEM_MENUPOPUP}
  24625.   SOUND_SYSTEM_MENUPOPUP         = 16;
  24626.   {$EXTERNALSYM CSOUND_SYSTEM}
  24627.   CSOUND_SYSTEM                  = 16;
  24628.   {$EXTERNALSYM ALERT_SYSTEM_INFORMATIONAL}
  24629.   ALERT_SYSTEM_INFORMATIONAL     = 1;       { MB_INFORMATION }
  24630.   {$EXTERNALSYM ALERT_SYSTEM_WARNING}
  24631.   ALERT_SYSTEM_WARNING           = 2;       { MB_WARNING }
  24632.   {$EXTERNALSYM ALERT_SYSTEM_ERROR}
  24633.   ALERT_SYSTEM_ERROR             = 3;       { MB_ERROR }
  24634.   {$EXTERNALSYM ALERT_SYSTEM_QUERY}
  24635.   ALERT_SYSTEM_QUERY             = 4;       { MB_QUESTION }
  24636.   {$EXTERNALSYM ALERT_SYSTEM_CRITICAL}
  24637.   ALERT_SYSTEM_CRITICAL          = 5;       { HardSysErrBox }
  24638.   {$EXTERNALSYM CALERT_SYSTEM}
  24639.   CALERT_SYSTEM                  = 6;
  24640.  
  24641. function SetWinEventHook (eventMin, eventMax: DWORD; hmodWinEventProc: HMODULE;
  24642.   pfnWinEventProc: TFNWinEventProc; idProcess, idThread, dwFlags: DWORD): THandle; stdcall;
  24643. {$EXTERNALSYM SetWinEventHook}
  24644.  
  24645. function UnhookWinEvent(hWinEventHook: THandle): BOOL; stdcall;
  24646. {$EXTERNALSYM UnhookWinEvent}
  24647.  
  24648. const
  24649.   { dwFlags for SetWinEventHook }
  24650.   {$EXTERNALSYM WINEVENT_OUTOFCONTEXT}
  24651.   WINEVENT_OUTOFCONTEXT  = $0000;  { Events are ASYNC }
  24652.   {$EXTERNALSYM WINEVENT_SKIPOWNTHREAD}
  24653.   WINEVENT_SKIPOWNTHREAD = $0001;  { Don't call back for events on installer's thread }
  24654.   {$EXTERNALSYM WINEVENT_SKIPOWNPROCESS}
  24655.   WINEVENT_SKIPOWNPROCESS = $0002;  { Don't call back for events on installer's process }
  24656.   {$EXTERNALSYM WINEVENT_INCONTEXT}
  24657.   WINEVENT_INCONTEXT = $0004;  { Events are SYNC, this causes your dll to be injected into every process }
  24658.  
  24659. type
  24660.   PGUIThreadInfo = ^TGUIThreadInfo;
  24661.   {$EXTERNALSYM tagGUITHREADINFO}
  24662.   tagGUITHREADINFO = packed record
  24663.     cbSize: DWORD;
  24664.     flags: DWORD;
  24665.     hwndActive: HWND;
  24666.     hwndFocus: HWND;
  24667.     hwndCapture: HWND;
  24668.     hwndMenuOwner: HWND;
  24669.     hwndMoveSize: HWND;
  24670.     hwndCaret: HWND;
  24671.     rcCaret: TRect;
  24672.   end;
  24673.   TGUIThreadInfo = tagGUITHREADINFO;
  24674.  
  24675. const
  24676.   {$EXTERNALSYM GUI_CARETBLINKING}
  24677.   GUI_CARETBLINKING  = $00000001;
  24678.   {$EXTERNALSYM GUI_INMOVESIZE}
  24679.   GUI_INMOVESIZE     = $00000002;
  24680.   {$EXTERNALSYM GUI_INMENUMODE}
  24681.   GUI_INMENUMODE     = $00000004;
  24682.   {$EXTERNALSYM GUI_SYSTEMMENUMODE}
  24683.   GUI_SYSTEMMENUMODE = $00000008;
  24684.   {$EXTERNALSYM GUI_POPUPMENUMODE}
  24685.   GUI_POPUPMENUMODE  = $00000010;
  24686.  
  24687. {$EXTERNALSYM GetGUIThreadInfo}
  24688. function GetGUIThreadInfo (idThread: DWORD; var pgui: TGUIThreadinfo): BOOL; stdcall;
  24689.  
  24690. {$EXTERNALSYM GetWindowModuleFileNameA}
  24691. function GetWindowModuleFileNameA(hwnd: HWND; pszFileName: PAnsiChar; cchFileNameMax: UINT): UINT; stdcall;
  24692. {$EXTERNALSYM GetWindowModuleFileNameW}
  24693. function GetWindowModuleFileNameW(hwnd: HWND; pszFileName: PAnsiChar; cchFileNameMax: UINT): UINT; stdcall;
  24694. {$EXTERNALSYM GetWindowModuleFileName}
  24695. function GetWindowModuleFileName(hwnd: HWND; pszFileName: PAnsiChar; cchFileNameMax: UINT): UINT; stdcall;
  24696.  
  24697. const
  24698.   {$EXTERNALSYM STATE_SYSTEM_UNAVAILABLE}
  24699.   STATE_SYSTEM_UNAVAILABLE     = $00000001;  { Disabled }
  24700.   {$EXTERNALSYM STATE_SYSTEM_SELECTED}
  24701.   STATE_SYSTEM_SELECTED        = $00000002;
  24702.   {$EXTERNALSYM STATE_SYSTEM_FOCUSED}
  24703.   STATE_SYSTEM_FOCUSED         = $00000004;
  24704.   {$EXTERNALSYM STATE_SYSTEM_PRESSED}
  24705.   STATE_SYSTEM_PRESSED         = $00000008;
  24706.   {$EXTERNALSYM STATE_SYSTEM_CHECKED}
  24707.   STATE_SYSTEM_CHECKED         = $00000010;
  24708.   {$EXTERNALSYM STATE_SYSTEM_MIXED}
  24709.   STATE_SYSTEM_MIXED           = $00000020;  { 3-state checkbox or toolbar button }
  24710.   {$EXTERNALSYM STATE_SYSTEM_READONLY}
  24711.   STATE_SYSTEM_READONLY        = $00000040;
  24712.   {$EXTERNALSYM STATE_SYSTEM_HOTTRACKED}
  24713.   STATE_SYSTEM_HOTTRACKED      = $00000080;
  24714.   {$EXTERNALSYM STATE_SYSTEM_DEFAULT}
  24715.   STATE_SYSTEM_DEFAULT         = $00000100;
  24716.   {$EXTERNALSYM STATE_SYSTEM_EXPANDED}
  24717.   STATE_SYSTEM_EXPANDED        = $00000200;
  24718.   {$EXTERNALSYM STATE_SYSTEM_COLLAPSED}
  24719.   STATE_SYSTEM_COLLAPSED       = $00000400;
  24720.   {$EXTERNALSYM STATE_SYSTEM_BUSY}
  24721.   STATE_SYSTEM_BUSY            = $00000800;
  24722.   {$EXTERNALSYM STATE_SYSTEM_FLOATING}
  24723.   STATE_SYSTEM_FLOATING        = $00001000;  { Children "owned" not "contained" by parent }
  24724.   {$EXTERNALSYM STATE_SYSTEM_MARQUEED}
  24725.   STATE_SYSTEM_MARQUEED        = $00002000;
  24726.   {$EXTERNALSYM STATE_SYSTEM_ANIMATED}
  24727.   STATE_SYSTEM_ANIMATED        = $00004000;
  24728.   {$EXTERNALSYM STATE_SYSTEM_INVISIBLE}
  24729.   STATE_SYSTEM_INVISIBLE       = $00008000;
  24730.   {$EXTERNALSYM STATE_SYSTEM_OFFSCREEN}
  24731.   STATE_SYSTEM_OFFSCREEN       = $00010000;
  24732.   {$EXTERNALSYM STATE_SYSTEM_SIZEABLE}
  24733.   STATE_SYSTEM_SIZEABLE        = $00020000;
  24734.   {$EXTERNALSYM STATE_SYSTEM_MOVEABLE}
  24735.   STATE_SYSTEM_MOVEABLE        = $00040000;
  24736.   {$EXTERNALSYM STATE_SYSTEM_SELFVOICING}
  24737.   STATE_SYSTEM_SELFVOICING     = $00080000;
  24738.   {$EXTERNALSYM STATE_SYSTEM_FOCUSABLE}
  24739.   STATE_SYSTEM_FOCUSABLE       = $00100000;
  24740.   {$EXTERNALSYM STATE_SYSTEM_SELECTABLE}
  24741.   STATE_SYSTEM_SELECTABLE      = $00200000;
  24742.   {$EXTERNALSYM STATE_SYSTEM_LINKED}
  24743.   STATE_SYSTEM_LINKED          = $00400000;
  24744.   {$EXTERNALSYM STATE_SYSTEM_TRAVERSED}
  24745.   STATE_SYSTEM_TRAVERSED       = $00800000;
  24746.   {$EXTERNALSYM STATE_SYSTEM_MULTISELECTABLE}
  24747.   STATE_SYSTEM_MULTISELECTABLE = $01000000;  { Supports multiple selection }
  24748.   {$EXTERNALSYM STATE_SYSTEM_EXTSELECTABLE}
  24749.   STATE_SYSTEM_EXTSELECTABLE   = $02000000;  { Supports extended selection }
  24750.   {$EXTERNALSYM STATE_SYSTEM_ALERT_LOW}
  24751.   STATE_SYSTEM_ALERT_LOW       = $04000000;  { This information is of low priority }
  24752.   {$EXTERNALSYM STATE_SYSTEM_ALERT_MEDIUM}
  24753.   STATE_SYSTEM_ALERT_MEDIUM    = $08000000;  { This information is of medium priority }
  24754.   {$EXTERNALSYM STATE_SYSTEM_ALERT_HIGH}
  24755.   STATE_SYSTEM_ALERT_HIGH      = $10000000;  { This information is of high priority }
  24756.   {$EXTERNALSYM STATE_SYSTEM_VALID}
  24757.   STATE_SYSTEM_VALID           = $1FFFFFFF;
  24758.  
  24759.   {$EXTERNALSYM CCHILDREN_TITLEBAR}
  24760.   CCHILDREN_TITLEBAR           =   5;
  24761.   {$EXTERNALSYM CCHILDREN_SCROLLBAR}
  24762.   CCHILDREN_SCROLLBAR          =   5;
  24763.  
  24764. type
  24765.   { Information about the global cursor. }
  24766.   PCursorInfo = ^TCursorInfo;
  24767.   {$EXTERNALSYM tagCURSORINFO}
  24768.   tagCURSORINFO = packed record
  24769.     cbSize: DWORD;
  24770.     flags: DWORD;
  24771.     hCursor: HCURSOR;
  24772.     ptScreenPos: TPoint;
  24773.   end;
  24774.   TCursorInfo = tagCURSORINFO;
  24775.  
  24776. const
  24777.   {$EXTERNALSYM CURSOR_SHOWING}
  24778.   CURSOR_SHOWING = $00000001;
  24779.  
  24780. {$EXTERNALSYM GetCursorInfo}
  24781. function GetCursorInfo(var pci: TCursorInfo): BOOL; stdcall;
  24782.  
  24783. type
  24784.   { Window information snapshot }
  24785.   PWindowInfo = ^TWindowInfo;
  24786.   {$EXTERNALSYM tagWINDOWINFO}
  24787.   tagWINDOWINFO = packed record
  24788.     cbSize: DWORD;
  24789.     rcWindow: TRect;
  24790.     rcClient: TRect;
  24791.     dwStyle: DWORD;
  24792.     dwExStyle: DWORD;
  24793.     dwOtherStuff: DWORD;
  24794.     cxWindowBorders: UINT;
  24795.     cyWindowBorders: UINT;
  24796.     atomWindowType: TAtom;
  24797.     wCreatorVersion: WORD;
  24798.   end;
  24799.   TWindowInfo = tagWINDOWINFO;
  24800.  
  24801. const
  24802.   {$EXTERNALSYM WS_ACTIVECAPTION}
  24803.   WS_ACTIVECAPTION = $0001;
  24804.  
  24805. {$EXTERNALSYM GetWindowInfo}
  24806. function GetWindowInfo(hwnd: HWND; var pwi: TWindowInfo): BOOL; stdcall;
  24807.  
  24808. type
  24809.   { Titlebar information. }
  24810.   PTitleBarInfo = ^TTitleBarInfo;
  24811.   {$EXTERNALSYM tagTITLEBARINFO}
  24812.   tagTITLEBARINFO = packed record
  24813.     cbSize: DWORD;
  24814.     rcTitleBar: TRect;
  24815.     rgstate: array [0..CCHILDREN_TITLEBAR] of DWORD;
  24816.   end;
  24817.   TTitleBarInfo = tagTITLEBARINFO;
  24818.  
  24819. {$EXTERNALSYM GetTitleBarInfo}
  24820. function GetTitleBarInfo(hwnd: HWND; var pti: TTitleBarInfo): BOOL; stdcall;
  24821.  
  24822. type
  24823.   { Menubar information }
  24824.   PMenuBarInfo = ^TMenuBarInfo;
  24825.   {$EXTERNALSYM tagMENUBARINFO}
  24826.   tagMENUBARINFO = packed record
  24827.     cbSize: DWORD;
  24828.     rcBar: TRect;        { rect of bar, popup, item }
  24829.     hMenu: HMENU;        { real menu handle of bar, popup }
  24830.     hwndMenu: HWND;      { hwnd of item submenu if one }
  24831. {    fBarFocused:1: BOOL;} { bar, popup has the focus }
  24832. {    fFocused:1: BOOL; }  { item has the focus }
  24833.     FocusedBits: BYTE;
  24834.   end;
  24835.   TMenuBarInfo = tagMENUBARINFO;
  24836.  
  24837. {$EXTERNALSYM GetMenuBarInfo}
  24838. function GetMenuBarInfo(hend: HWND; idObject, idItem: Longint;
  24839.   var pmbi: TMenuBarInfo): BOOL; stdcall;
  24840.  
  24841. type
  24842.   { Scrollbar information }
  24843.   PScrollBarInfo = ^TScrollBarInfo;
  24844.   {$EXTERNALSYM tagSCROLLBARINFO}
  24845.   tagSCROLLBARINFO = packed record
  24846.     cbSize: DWORD;
  24847.     rcScrollBar: TRect;
  24848.     dxyLineButton: Integer;
  24849.     xyThumbTop: Integer;
  24850.     xyThumbBottom: Integer;
  24851.     bogus: Integer;
  24852.     rgstate: array[0..CCHILDREN_SCROLLBAR] of DWORD;
  24853.   end;
  24854.   TScrollBarInfo = tagSCROLLBARINFO;
  24855.  
  24856. {$EXTERNALSYM GetScrollBarInfo}
  24857. Function GetScrollBarInfo(hwnd: HWND; idObject: Longint;
  24858.   var psbi: TScrollBarInfo): BOOL; stdcall;
  24859.  
  24860. type
  24861.   { Combobox information }
  24862.   PComboBoxInfo = ^TComboBoxInfo;
  24863.   {$EXTERNALSYM tagCOMBOBOXINFO}
  24864.   tagCOMBOBOXINFO = packed record
  24865.     cbSize: DWORD;
  24866.     rcItem: TRect;
  24867.     rcButton: TRect;
  24868.     stateButton: DWORD;
  24869.     hwndCombo: HWND;
  24870.     hwndItem: HWND;
  24871.     hwndList: HWND;
  24872.   end;
  24873.   TComboBoxInfo = tagCOMBOBOXINFO;
  24874.  
  24875. {$EXTERNALSYM GetComboBoxInfo}
  24876. Function GetComboBoxInfo(hwndCombo: HWND; var pcbi: TComboBoxInfo): BOOL; stdcall;
  24877.  
  24878. const
  24879.   { The "real" ancestor window }
  24880.   {$EXTERNALSYM GA_MIC}
  24881.   GA_MIC       =   1;
  24882.   {$EXTERNALSYM GA_PARENT}
  24883.   GA_PARENT    =   1;
  24884.   {$EXTERNALSYM GA_ROOT}
  24885.   GA_ROOT      =   2;
  24886.   {$EXTERNALSYM GA_ROOTOWNER}
  24887.   GA_ROOTOWNER =   3;
  24888.   {$EXTERNALSYM GA_MAC}
  24889.   GA_MAC       =   4;
  24890.  
  24891. {$EXTERNALSYM GetAncestor}
  24892. FUNCTION GetAncestor(hwnd: HWND; gaFlags: UINT): HWND; stdcall;
  24893.  
  24894. {$EXTERNALSYM RealChildWindowFromPoint}
  24895. FUNCTION RealChildWindowFromPoint(hwndParent: HWND; ptParentClientCoords: TPoint): HWND; stdcall;
  24896.  
  24897. {$EXTERNALSYM RealGetWindowClassA}
  24898. function RealGetWindowClassA(hwnd: HWND; pszType: PAnsiChar; cchType: UINT): UINT; stdcall;
  24899. {$EXTERNALSYM RealGetWindowClassW}
  24900. function RealGetWindowClassW(hwnd: HWND; pszType: PWideChar; cchType: UINT): UINT; stdcall;
  24901. {$EXTERNALSYM RealGetWindowClass}
  24902. function RealGetWindowClass(hwnd: HWND; pszType: PChar; cchType: UINT): UINT; stdcall;
  24903.  
  24904. type
  24905.   { Alt-Tab Switch window information. }
  24906.   PAltTabInfo = ^TAltTabInfo;
  24907.   {$EXTERNALSYM tagALTTABINFO}
  24908.   tagALTTABINFO = packed record
  24909.     cbSize: DWORD;
  24910.     cItems: Integer;
  24911.     cColumns: Integer;
  24912.     cRows: Integer;
  24913.     iColFocus: Integer;
  24914.     iRowFocus: Integer;
  24915.     cxItem: Integer;
  24916.     cyItem: Integer;
  24917.     ptStart: TPoint;
  24918.   end;
  24919.   TAltTabInfo = tagALTTABINFO;
  24920.  
  24921. {$EXTERNALSYM GetAltTabInfoA}
  24922. function GetAltTabInfoA(hwnd: HWND; iItem: Integer; var pati: TAltTabInfo;
  24923.   pszItemText: PAnsiChar; cchItemText: UINT): BOOL; stdcall;
  24924. {$EXTERNALSYM GetAltTabInfoW}
  24925. function GetAltTabInfoW(hwnd: HWND; iItem: Integer; var pati: TAltTabInfo;
  24926.   pszItemText: PWideChar; cchItemText: UINT): BOOL; stdcall;
  24927. {$EXTERNALSYM GetAltTabInfo}
  24928. function GetAltTabInfo(hwnd: HWND; iItem: Integer; var pati: TAltTabInfo;
  24929.   pszItemText: PChar; cchItemText: UINT): BOOL; stdcall;
  24930.  
  24931. { Listbox information. Returns the number of items per row. }
  24932. {$EXTERNALSYM GetListBoxInfo}
  24933. function GetListBoxInfo(hwnd: HWND): DWORD; stdcall;
  24934. {$EXTERNALSYM LockWorkStation}
  24935. function LockWorkStation: BOOL; stdcall;
  24936. {$EXTERNALSYM UserHandleGrantAccess}
  24937. function UserHandleGrantAccess(hUserHandle, hJob: THandle): BOOL; stdcall;
  24938.  
  24939. { Translated from WINNLS.H }
  24940.  
  24941. const
  24942.  
  24943. { String Length Maximums. }
  24944.  
  24945.   {$EXTERNALSYM MAX_LEADBYTES}
  24946.   MAX_LEADBYTES = 12; { 5 ranges, 2 bytes ea., 0 term. }
  24947.   {$EXTERNALSYM MAX_DEFAULTCHAR}
  24948.   MAX_DEFAULTCHAR = 2; { single or double byte }
  24949.  
  24950. { MBCS and Unicode Translation Flags. }
  24951.  
  24952.   {$EXTERNALSYM MB_PRECOMPOSED}
  24953.   MB_PRECOMPOSED = 1; { use precomposed chars }
  24954.   {$EXTERNALSYM MB_COMPOSITE}
  24955.   MB_COMPOSITE = 2; { use composite chars }
  24956.   {$EXTERNALSYM MB_USEGLYPHCHARS}
  24957.   MB_USEGLYPHCHARS = 4; { use glyph chars, not ctrl chars }
  24958.  
  24959.   {$EXTERNALSYM WC_DEFAULTCHECK}
  24960.   WC_DEFAULTCHECK = $100; { check for default char }
  24961.   {$EXTERNALSYM WC_COMPOSITECHECK}
  24962.   WC_COMPOSITECHECK = $200; { convert composite to precomposed }
  24963.   {$EXTERNALSYM WC_DISCARDNS}
  24964.   WC_DISCARDNS = $10; { discard non-spacing chars }
  24965.   {$EXTERNALSYM WC_SEPCHARS}
  24966.   WC_SEPCHARS = $20; { generate separate chars }
  24967.   {$EXTERNALSYM WC_DEFAULTCHAR}
  24968.   WC_DEFAULTCHAR = $40; { replace w default char }
  24969.  
  24970. { Character Type Flags. }
  24971.  
  24972.   {$EXTERNALSYM CT_CTYPE1}
  24973.   CT_CTYPE1 = 1; { ctype 1 information }
  24974.   {$EXTERNALSYM CT_CTYPE2}
  24975.   CT_CTYPE2 = 2; { ctype 2 information }
  24976.   {$EXTERNALSYM CT_CTYPE3}
  24977.   CT_CTYPE3 = 4; { ctype 3 information }
  24978.  
  24979. { CType 1 Flag Bits. }
  24980.  
  24981.   {$EXTERNALSYM C1_UPPER}
  24982.   C1_UPPER = 1; { upper case }
  24983.   {$EXTERNALSYM C1_LOWER}
  24984.   C1_LOWER = 2; { lower case }
  24985.   {$EXTERNALSYM C1_DIGIT}
  24986.   C1_DIGIT = 4; { decimal digits }
  24987.   {$EXTERNALSYM C1_SPACE}
  24988.   C1_SPACE = 8; { spacing characters }
  24989.   {$EXTERNALSYM C1_PUNCT}
  24990.   C1_PUNCT = $10; { punctuation characters }
  24991.   {$EXTERNALSYM C1_CNTRL}
  24992.   C1_CNTRL = $20; { control characters }
  24993.   {$EXTERNALSYM C1_BLANK}
  24994.   C1_BLANK = $40; { blank characters }
  24995.   {$EXTERNALSYM C1_XDIGIT}
  24996.   C1_XDIGIT = $80; { other digits }
  24997.   {$EXTERNALSYM C1_ALPHA}
  24998.   C1_ALPHA = $100; { any letter }
  24999.  
  25000. { CType 2 Flag Bits. }
  25001.  
  25002.   {$EXTERNALSYM C2_LEFTTORIGHT}
  25003.   C2_LEFTTORIGHT = 1; { left to right }
  25004.   {$EXTERNALSYM C2_RIGHTTOLEFT}
  25005.   C2_RIGHTTOLEFT = 2; { right to left }
  25006.   {$EXTERNALSYM C2_EUROPENUMBER}
  25007.   C2_EUROPENUMBER = 3; { European number, digit }
  25008.   {$EXTERNALSYM C2_EUROPESEPARATOR}
  25009.   C2_EUROPESEPARATOR = 4; { European numeric separator }
  25010.   {$EXTERNALSYM C2_EUROPETERMINATOR}
  25011.   C2_EUROPETERMINATOR = 5; { European numeric terminator }
  25012.   {$EXTERNALSYM C2_ARABICNUMBER}
  25013.   C2_ARABICNUMBER = 6; { Arabic number }
  25014.   {$EXTERNALSYM C2_COMMONSEPARATOR}
  25015.   C2_COMMONSEPARATOR = 7; { common numeric separator }
  25016.   {$EXTERNALSYM C2_BLOCKSEPARATOR}
  25017.   C2_BLOCKSEPARATOR = 8; { block separator }
  25018.   {$EXTERNALSYM C2_SEGMENTSEPARATOR}
  25019.   C2_SEGMENTSEPARATOR = 9; { segment separator }
  25020.   {$EXTERNALSYM C2_WHITESPACE}
  25021.   C2_WHITESPACE = 10; { white space }
  25022.   {$EXTERNALSYM C2_OTHERNEUTRAL}
  25023.   C2_OTHERNEUTRAL = 11; { other neutrals }
  25024.   {$EXTERNALSYM C2_NOTAPPLICABLE}
  25025.   C2_NOTAPPLICABLE = 0; { no implicit directionality }
  25026.  
  25027. { CType 3 Flag Bits. }
  25028.  
  25029.   {$EXTERNALSYM C3_NONSPACING}
  25030.   C3_NONSPACING = 1; { nonspacing character }
  25031.   {$EXTERNALSYM C3_DIACRITIC}
  25032.   C3_DIACRITIC = 2; { diacritic mark }
  25033.   {$EXTERNALSYM C3_VOWELMARK}
  25034.   C3_VOWELMARK = 4; { vowel mark }
  25035.   {$EXTERNALSYM C3_SYMBOL}
  25036.   C3_SYMBOL = 8; { symbols }
  25037.   {$EXTERNALSYM C3_KATAKANA}
  25038.   C3_KATAKANA = $0010; { katakana character }
  25039.   {$EXTERNALSYM C3_HIRAGANA}
  25040.   C3_HIRAGANA = $0020; { hiragana character }
  25041.   {$EXTERNALSYM C3_HALFWIDTH}
  25042.   C3_HALFWIDTH = $0040; { half width character }
  25043.   {$EXTERNALSYM C3_FULLWIDTH}
  25044.   C3_FULLWIDTH = $0080; { full width character }
  25045.   {$EXTERNALSYM C3_IDEOGRAPH}
  25046.   C3_IDEOGRAPH = $0100; { ideographic character }
  25047.   {$EXTERNALSYM C3_KASHIDA}
  25048.   C3_KASHIDA = $0200; { Arabic kashida character }
  25049.   {$EXTERNALSYM C3_LEXICAL}
  25050.   C3_LEXICAL = $0400; { lexical character }
  25051.   {$EXTERNALSYM C3_ALPHA}
  25052.   C3_ALPHA = $8000; { any linguistic char (C1_ALPHA) }
  25053.   {$EXTERNALSYM C3_NOTAPPLICABLE}
  25054.   C3_NOTAPPLICABLE = 0; { ctype 3 is not applicable }
  25055.  
  25056. { String Flags. }
  25057.  
  25058.   {$EXTERNALSYM NORM_IGNORECASE}
  25059.   NORM_IGNORECASE = 1; { ignore case }
  25060.   {$EXTERNALSYM NORM_IGNORENONSPACE}
  25061.   NORM_IGNORENONSPACE = 2; { ignore nonspacing chars }
  25062.   {$EXTERNALSYM NORM_IGNORESYMBOLS}
  25063.   NORM_IGNORESYMBOLS = 4; { ignore symbols }
  25064.   {$EXTERNALSYM NORM_IGNOREKANATYPE}
  25065.   NORM_IGNOREKANATYPE = $10000;
  25066.   {$EXTERNALSYM NORM_IGNOREWIDTH}
  25067.   NORM_IGNOREWIDTH = $20000;
  25068.  
  25069. { Locale Independent Mapping Flags. }
  25070.  
  25071.   {$EXTERNALSYM MAP_FOLDCZONE}
  25072.   MAP_FOLDCZONE = $10; { fold compatibility zone chars }
  25073.   {$EXTERNALSYM MAP_PRECOMPOSED}
  25074.   MAP_PRECOMPOSED = $20; { convert to precomposed chars }
  25075.   {$EXTERNALSYM MAP_COMPOSITE}
  25076.   MAP_COMPOSITE = $40; { convert to composite chars }
  25077.   {$EXTERNALSYM MAP_FOLDDIGITS}
  25078.   MAP_FOLDDIGITS = $80; { all digits to ASCII 0-9 }
  25079.  
  25080. { Locale Dependent Mapping Flags. }
  25081.  
  25082.   {$EXTERNALSYM LCMAP_LOWERCASE}
  25083.   LCMAP_LOWERCASE = $00000100;              { lower case letters }
  25084.   {$EXTERNALSYM LCMAP_UPPERCASE}
  25085.   LCMAP_UPPERCASE = $00000200;              { upper case letters }
  25086.   {$EXTERNALSYM LCMAP_SORTKEY}
  25087.   LCMAP_SORTKEY = $00000400;                { WC sort key (normalize) }
  25088.   {$EXTERNALSYM LCMAP_BYTEREV}
  25089.   LCMAP_BYTEREV = $00000800;                { byte reversal }
  25090.  
  25091.   {$EXTERNALSYM LCMAP_HIRAGANA}
  25092.   LCMAP_HIRAGANA = $00100000;               { map katakana to hiragana }
  25093.   {$EXTERNALSYM LCMAP_KATAKANA}
  25094.   LCMAP_KATAKANA = $00200000;               { map hiragana to katakana }
  25095.   {$EXTERNALSYM LCMAP_HALFWIDTH}
  25096.   LCMAP_HALFWIDTH = $00400000;              { map double byte to single byte }
  25097.   {$EXTERNALSYM LCMAP_FULLWIDTH}
  25098.   LCMAP_FULLWIDTH = $00800000;              { map single byte to double byte }
  25099.  
  25100.   {$EXTERNALSYM LCMAP_LINGUISTIC_CASING}
  25101.   LCMAP_LINGUISTIC_CASING = $01000000;      { use linguistic rules for casing }
  25102.  
  25103.   {$EXTERNALSYM LCMAP_SIMPLIFIED_CHINESE}
  25104.   LCMAP_SIMPLIFIED_CHINESE      = $02000000;  { map traditional chinese to simplified chinese }
  25105.   {$EXTERNALSYM LCMAP_TRADITIONAL_CHINESE}
  25106.   LCMAP_TRADITIONAL_CHINESE     = $04000000;  { map simplified chinese to traditional chinese }
  25107.  
  25108. { Locale Enumeration Flags. }
  25109.  
  25110.   {$EXTERNALSYM LCID_INSTALLED}
  25111.   LCID_INSTALLED          = $00000001;  { installed locale ids }
  25112.   {$EXTERNALSYM LCID_SUPPORTED}
  25113.   LCID_SUPPORTED          = $00000002;  { supported locale ids }
  25114.  
  25115. { Code Page Enumeration Flags. }
  25116.  
  25117.   {$EXTERNALSYM CP_INSTALLED}
  25118.   CP_INSTALLED            = $00000001;  { installed code page ids }
  25119.   {$EXTERNALSYM CP_SUPPORTED}
  25120.   CP_SUPPORTED            = $00000002;  { supported code page ids }
  25121.  
  25122.  
  25123. { Sorting Flags.
  25124.  
  25125.      WORD Sort:    culturally correct sort
  25126.                    hyphen and apostrophe are special cased
  25127.                    example: "coop" and "co-op" will sort together in a list
  25128.  
  25129.                          co_op     <-------  underscore (symbol)
  25130.                          coat
  25131.                          comb
  25132.                          coop
  25133.                          co-op     <-------  hyphen (punctuation)
  25134.                          cork
  25135.                          went
  25136.                          were
  25137.                          we're     <-------  apostrophe (punctuation)
  25138.  
  25139.  
  25140.      STRING Sort:  hyphen and apostrophe will sort with all other symbols
  25141.  
  25142.                          co-op     <-------  hyphen (punctuation)
  25143.                          co_op     <-------  underscore (symbol)
  25144.                          coat
  25145.                          comb
  25146.                          coop
  25147.                          cork
  25148.                          we're     <-------  apostrophe (punctuation)
  25149.                          went
  25150.                          were
  25151.  }
  25152.  
  25153.   {$EXTERNALSYM SORT_STRINGSORT}
  25154.   SORT_STRINGSORT = $1000; { use string sort method }
  25155.  
  25156. { Code Page Default Values. }
  25157.  
  25158.   {$EXTERNALSYM CP_ACP}
  25159.   CP_ACP                   = 0;             { default to ANSI code page }
  25160.   {$EXTERNALSYM CP_OEMCP}
  25161.   CP_OEMCP                 = 1;             { default to OEM  code page }
  25162.   {$EXTERNALSYM CP_MACCP}
  25163.   CP_MACCP                 = 2;             { default to MAC  code page }
  25164.  
  25165.   {$EXTERNALSYM CP_UTF7}
  25166.   CP_UTF7                  = 65000;         { UTF-7 translation }
  25167.   {$EXTERNALSYM CP_UTF8}
  25168.   CP_UTF8                  = 65001;         { UTF-8 translation }
  25169.  
  25170. { Country Codes. }
  25171.  
  25172.   {$EXTERNALSYM CTRY_DEFAULT}
  25173.   CTRY_DEFAULT = 0;
  25174.   {$EXTERNALSYM CTRY_AUSTRALIA}
  25175.   CTRY_AUSTRALIA = 61; { Australia }
  25176.   {$EXTERNALSYM CTRY_AUSTRIA}
  25177.   CTRY_AUSTRIA = 43; { Austria }
  25178.   {$EXTERNALSYM CTRY_BELGIUM}
  25179.   CTRY_BELGIUM = $20; { Belgium }
  25180.   {$EXTERNALSYM CTRY_BRAZIL}
  25181.   CTRY_BRAZIL = 55; { Brazil }
  25182.   {$EXTERNALSYM CTRY_CANADA}
  25183.   CTRY_CANADA = 2; { Canada }
  25184.   {$EXTERNALSYM CTRY_DENMARK}
  25185.   CTRY_DENMARK = 45; { Denmark }
  25186.   {$EXTERNALSYM CTRY_FINLAND}
  25187.   CTRY_FINLAND = 358; { Finland }
  25188.   {$EXTERNALSYM CTRY_FRANCE}
  25189.   CTRY_FRANCE = 33; { France }
  25190.   {$EXTERNALSYM CTRY_GERMANY}
  25191.   CTRY_GERMANY = 49; { Germany }
  25192.   {$EXTERNALSYM CTRY_ICELAND}
  25193.   CTRY_ICELAND = 354; { Iceland }
  25194.   {$EXTERNALSYM CTRY_IRELAND}
  25195.   CTRY_IRELAND = 353; { Ireland }
  25196.   {$EXTERNALSYM CTRY_ITALY}
  25197.   CTRY_ITALY = 39; { Italy }
  25198.   {$EXTERNALSYM CTRY_JAPAN}
  25199.   CTRY_JAPAN = 81; { Japan }
  25200.   {$EXTERNALSYM CTRY_MEXICO}
  25201.   CTRY_MEXICO = 52; { Mexico }
  25202.   {$EXTERNALSYM CTRY_NETHERLANDS}
  25203.   CTRY_NETHERLANDS = 31; { Netherlands }
  25204.   {$EXTERNALSYM CTRY_NEW_ZEALAND}
  25205.   CTRY_NEW_ZEALAND = $40; { New Zealand }
  25206.   {$EXTERNALSYM CTRY_NORWAY}
  25207.   CTRY_NORWAY = 47; { Norway }
  25208.   {$EXTERNALSYM CTRY_PORTUGAL}
  25209.   CTRY_PORTUGAL = 351; { Portugal }
  25210.   {$EXTERNALSYM CTRY_PRCHINA}
  25211.   CTRY_PRCHINA = 86; { PR China }
  25212.   {$EXTERNALSYM CTRY_SOUTH_KOREA}
  25213.   CTRY_SOUTH_KOREA = 82; { South Korea }
  25214.   {$EXTERNALSYM CTRY_SPAIN}
  25215.   CTRY_SPAIN = 34; { Spain }
  25216.   {$EXTERNALSYM CTRY_SWEDEN}
  25217.   CTRY_SWEDEN = 46; { Sweden }
  25218.   {$EXTERNALSYM CTRY_SWITZERLAND}
  25219.   CTRY_SWITZERLAND = 41; { Switzerland }
  25220.   {$EXTERNALSYM CTRY_TAIWAN}
  25221.   CTRY_TAIWAN = 886; { Taiwan }
  25222.   {$EXTERNALSYM CTRY_UNITED_KINGDOM}
  25223.   CTRY_UNITED_KINGDOM = 44; { United Kingdom }
  25224.   {$EXTERNALSYM CTRY_UNITED_STATES}
  25225.   CTRY_UNITED_STATES = 1; { United States }
  25226.  
  25227. { Locale Types.
  25228.   These types are used for the GetLocaleInfoW NLS API routine. }
  25229.  
  25230. { LOCALE_NOUSEROVERRIDE is also used in GetTimeFormatW and GetDateFormatW. }
  25231.  
  25232.   {$EXTERNALSYM LOCALE_NOUSEROVERRIDE}
  25233.   LOCALE_NOUSEROVERRIDE           = DWORD($80000000);   { do not use user overrides }
  25234.   {$EXTERNALSYM LOCALE_USE_CP_ACP}
  25235.   LOCALE_USE_CP_ACP               = $40000000;   { use the system ACP }
  25236.  
  25237.   {$EXTERNALSYM LOCALE_ILANGUAGE}
  25238.   LOCALE_ILANGUAGE                = $00000001;   { language id }
  25239.   {$EXTERNALSYM LOCALE_SLANGUAGE}
  25240.   LOCALE_SLANGUAGE                = $00000002;   { localized name of language }
  25241.   {$EXTERNALSYM LOCALE_SENGLANGUAGE}
  25242.   LOCALE_SENGLANGUAGE             = $00001001;   { English name of language }
  25243.   {$EXTERNALSYM LOCALE_SABBREVLANGNAME}
  25244.   LOCALE_SABBREVLANGNAME          = $00000003;   { abbreviated language name }
  25245.   {$EXTERNALSYM LOCALE_SNATIVELANGNAME}
  25246.   LOCALE_SNATIVELANGNAME          = $00000004;   { native name of language }
  25247.  
  25248.   {$EXTERNALSYM LOCALE_ICOUNTRY}
  25249.   LOCALE_ICOUNTRY                 = $00000005;   { country code }
  25250.   {$EXTERNALSYM LOCALE_SCOUNTRY}
  25251.   LOCALE_SCOUNTRY                 = $00000006;   { localized name of country }
  25252.   {$EXTERNALSYM LOCALE_SENGCOUNTRY}
  25253.   LOCALE_SENGCOUNTRY              = $00001002;   { English name of country }
  25254.   {$EXTERNALSYM LOCALE_SABBREVCTRYNAME}
  25255.   LOCALE_SABBREVCTRYNAME          = $00000007;   { abbreviated country name }
  25256.   {$EXTERNALSYM LOCALE_SNATIVECTRYNAME}
  25257.   LOCALE_SNATIVECTRYNAME          = $00000008;   { native name of country }
  25258.  
  25259.   {$EXTERNALSYM LOCALE_IDEFAULTLANGUAGE}
  25260.   LOCALE_IDEFAULTLANGUAGE         = $00000009;   { default language id }
  25261.   {$EXTERNALSYM LOCALE_IDEFAULTCOUNTRY}
  25262.   LOCALE_IDEFAULTCOUNTRY          = $0000000A;   { default country code }
  25263.   {$EXTERNALSYM LOCALE_IDEFAULTCODEPAGE}
  25264.   LOCALE_IDEFAULTCODEPAGE         = $0000000B;   { default oem code page }
  25265.   {$EXTERNALSYM LOCALE_IDEFAULTANSICODEPAGE}
  25266.   LOCALE_IDEFAULTANSICODEPAGE     = $00001004;   { default ansi code page }
  25267.   {$EXTERNALSYM LOCALE_IDEFAULTMACCODEPAGE}
  25268.   LOCALE_IDEFAULTMACCODEPAGE      = $00001011;   { default mac code page }
  25269.  
  25270.   {$EXTERNALSYM LOCALE_SLIST}
  25271.   LOCALE_SLIST                    = $0000000C;   { list item separator }
  25272.   {$EXTERNALSYM LOCALE_IMEASURE}
  25273.   LOCALE_IMEASURE                 = $0000000D;   { 0 = metric, 1 = US }
  25274.  
  25275.   {$EXTERNALSYM LOCALE_SDECIMAL}
  25276.   LOCALE_SDECIMAL                 = $0000000E;   { decimal separator }
  25277.   {$EXTERNALSYM LOCALE_STHOUSAND}
  25278.   LOCALE_STHOUSAND                = $0000000F;   { thousand separator }
  25279.   {$EXTERNALSYM LOCALE_SGROUPING}
  25280.   LOCALE_SGROUPING                = $00000010;   { digit grouping }
  25281.   {$EXTERNALSYM LOCALE_IDIGITS}
  25282.   LOCALE_IDIGITS                  = $00000011;   { number of fractional digits }
  25283.   {$EXTERNALSYM LOCALE_ILZERO}
  25284.   LOCALE_ILZERO                   = $00000012;   { leading zeros for decimal }
  25285.   {$EXTERNALSYM LOCALE_INEGNUMBER}
  25286.   LOCALE_INEGNUMBER               = $00001010;   { negative number mode }
  25287.   {$EXTERNALSYM LOCALE_SNATIVEDIGITS}
  25288.   LOCALE_SNATIVEDIGITS            = $00000013;   { native ascii 0-9 }
  25289.  
  25290.   {$EXTERNALSYM LOCALE_SCURRENCY}
  25291.   LOCALE_SCURRENCY                = $00000014;   { local monetary symbol }
  25292.   {$EXTERNALSYM LOCALE_SINTLSYMBOL}
  25293.   LOCALE_SINTLSYMBOL              = $00000015;   { intl monetary symbol }
  25294.   {$EXTERNALSYM LOCALE_SMONDECIMALSEP}
  25295.   LOCALE_SMONDECIMALSEP           = $00000016;   { monetary decimal separator }
  25296.   {$EXTERNALSYM LOCALE_SMONTHOUSANDSEP}
  25297.   LOCALE_SMONTHOUSANDSEP          = $00000017;   { monetary thousand separator }
  25298.   {$EXTERNALSYM LOCALE_SMONGROUPING}
  25299.   LOCALE_SMONGROUPING             = $00000018;   { monetary grouping }
  25300.   {$EXTERNALSYM LOCALE_ICURRDIGITS}
  25301.   LOCALE_ICURRDIGITS              = $00000019;   { # local monetary digits }
  25302.   {$EXTERNALSYM LOCALE_IINTLCURRDIGITS}
  25303.   LOCALE_IINTLCURRDIGITS          = $0000001A;   { # intl monetary digits }
  25304.   {$EXTERNALSYM LOCALE_ICURRENCY}
  25305.   LOCALE_ICURRENCY                = $0000001B;   { positive currency mode }
  25306.   {$EXTERNALSYM LOCALE_INEGCURR}
  25307.   LOCALE_INEGCURR                 = $0000001C;   { negative currency mode }
  25308.  
  25309.   {$EXTERNALSYM LOCALE_SDATE}
  25310.   LOCALE_SDATE                    = $0000001D;   { date separator }
  25311.   {$EXTERNALSYM LOCALE_STIME}
  25312.   LOCALE_STIME                    = $0000001E;   { time separator }
  25313.   {$EXTERNALSYM LOCALE_SSHORTDATE}
  25314.   LOCALE_SSHORTDATE               = $0000001F;   { short date format string }
  25315.   {$EXTERNALSYM LOCALE_SLONGDATE}
  25316.   LOCALE_SLONGDATE                = $00000020;   { long date format string }
  25317.   {$EXTERNALSYM LOCALE_STIMEFORMAT}
  25318.   LOCALE_STIMEFORMAT              = $00001003;   { time format string }
  25319.   {$EXTERNALSYM LOCALE_IDATE}
  25320.   LOCALE_IDATE                    = $00000021;   { short date format ordering }
  25321.   {$EXTERNALSYM LOCALE_ILDATE}
  25322.   LOCALE_ILDATE                   = $00000022;   { long date format ordering }
  25323.   {$EXTERNALSYM LOCALE_ITIME}
  25324.   LOCALE_ITIME                    = $00000023;   { time format specifier }
  25325.   {$EXTERNALSYM LOCALE_ITIMEMARKPOSN}
  25326.   LOCALE_ITIMEMARKPOSN            = $00001005;   { time marker position }
  25327.   {$EXTERNALSYM LOCALE_ICENTURY}
  25328.   LOCALE_ICENTURY                 = $00000024;   { century format specifier (short date) }
  25329.   {$EXTERNALSYM LOCALE_ITLZERO}
  25330.   LOCALE_ITLZERO                  = $00000025;   { leading zeros in time field }
  25331.   {$EXTERNALSYM LOCALE_IDAYLZERO}
  25332.   LOCALE_IDAYLZERO                = $00000026;   { leading zeros in day field (short date) }
  25333.   {$EXTERNALSYM LOCALE_IMONLZERO}
  25334.   LOCALE_IMONLZERO                = $00000027;   { leading zeros in month field (short date) }
  25335.   {$EXTERNALSYM LOCALE_S1159}
  25336.   LOCALE_S1159                    = $00000028;   { AM designator }
  25337.   {$EXTERNALSYM LOCALE_S2359}
  25338.   LOCALE_S2359                    = $00000029;   { PM designator }
  25339.  
  25340.   {$EXTERNALSYM LOCALE_ICALENDARTYPE}
  25341.   LOCALE_ICALENDARTYPE            = $00001009;   { type of calendar specifier }
  25342.   {$EXTERNALSYM LOCALE_IOPTIONALCALENDAR}
  25343.   LOCALE_IOPTIONALCALENDAR        = $0000100B;   { additional calendar types specifier }
  25344.   {$EXTERNALSYM LOCALE_IFIRSTDAYOFWEEK}
  25345.   LOCALE_IFIRSTDAYOFWEEK          = $0000100C;   { first day of week specifier }
  25346.   {$EXTERNALSYM LOCALE_IFIRSTWEEKOFYEAR}
  25347.   LOCALE_IFIRSTWEEKOFYEAR         = $0000100D;   { first week of year specifier }
  25348.  
  25349.   {$EXTERNALSYM LOCALE_SDAYNAME1}
  25350.   LOCALE_SDAYNAME1                = $0000002A;   { long name for Monday }
  25351.   {$EXTERNALSYM LOCALE_SDAYNAME2}
  25352.   LOCALE_SDAYNAME2                = $0000002B;   { long name for Tuesday }
  25353.   {$EXTERNALSYM LOCALE_SDAYNAME3}
  25354.   LOCALE_SDAYNAME3                = $0000002C;   { long name for Wednesday }
  25355.   {$EXTERNALSYM LOCALE_SDAYNAME4}
  25356.   LOCALE_SDAYNAME4                = $0000002D;   { long name for Thursday }
  25357.   {$EXTERNALSYM LOCALE_SDAYNAME5}
  25358.   LOCALE_SDAYNAME5                = $0000002E;   { long name for Friday }
  25359.   {$EXTERNALSYM LOCALE_SDAYNAME6}
  25360.   LOCALE_SDAYNAME6                = $0000002F;   { long name for Saturday }
  25361.   {$EXTERNALSYM LOCALE_SDAYNAME7}
  25362.   LOCALE_SDAYNAME7                = $00000030;   { long name for Sunday }
  25363.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME1}
  25364.   LOCALE_SABBREVDAYNAME1          = $00000031;   { abbreviated name for Monday }
  25365.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME2}
  25366.   LOCALE_SABBREVDAYNAME2          = $00000032;   { abbreviated name for Tuesday }
  25367.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME3}
  25368.   LOCALE_SABBREVDAYNAME3          = $00000033;   { abbreviated name for Wednesday }
  25369.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME4}
  25370.   LOCALE_SABBREVDAYNAME4          = $00000034;   { abbreviated name for Thursday }
  25371.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME5}
  25372.   LOCALE_SABBREVDAYNAME5          = $00000035;   { abbreviated name for Friday }
  25373.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME6}
  25374.   LOCALE_SABBREVDAYNAME6          = $00000036;   { abbreviated name for Saturday }
  25375.   {$EXTERNALSYM LOCALE_SABBREVDAYNAME7}
  25376.   LOCALE_SABBREVDAYNAME7          = $00000037;   { abbreviated name for Sunday }
  25377.   {$EXTERNALSYM LOCALE_SMONTHNAME1}
  25378.   LOCALE_SMONTHNAME1              = $00000038;   { long name for January }
  25379.   {$EXTERNALSYM LOCALE_SMONTHNAME2}
  25380.   LOCALE_SMONTHNAME2              = $00000039;   { long name for February }
  25381.   {$EXTERNALSYM LOCALE_SMONTHNAME3}
  25382.   LOCALE_SMONTHNAME3              = $0000003A;   { long name for March }
  25383.   {$EXTERNALSYM LOCALE_SMONTHNAME4}
  25384.   LOCALE_SMONTHNAME4              = $0000003B;   { long name for April }
  25385.   {$EXTERNALSYM LOCALE_SMONTHNAME5}
  25386.   LOCALE_SMONTHNAME5              = $0000003C;   { long name for May }
  25387.   {$EXTERNALSYM LOCALE_SMONTHNAME6}
  25388.   LOCALE_SMONTHNAME6              = $0000003D;   { long name for June }
  25389.   {$EXTERNALSYM LOCALE_SMONTHNAME7}
  25390.   LOCALE_SMONTHNAME7              = $0000003E;   { long name for July }
  25391.   {$EXTERNALSYM LOCALE_SMONTHNAME8}
  25392.   LOCALE_SMONTHNAME8              = $0000003F;   { long name for August }
  25393.   {$EXTERNALSYM LOCALE_SMONTHNAME9}
  25394.   LOCALE_SMONTHNAME9              = $00000040;   { long name for September }
  25395.   {$EXTERNALSYM LOCALE_SMONTHNAME10}
  25396.   LOCALE_SMONTHNAME10             = $00000041;   { long name for October }
  25397.   {$EXTERNALSYM LOCALE_SMONTHNAME11}
  25398.   LOCALE_SMONTHNAME11             = $00000042;   { long name for November }
  25399.   {$EXTERNALSYM LOCALE_SMONTHNAME12}
  25400.   LOCALE_SMONTHNAME12             = $00000043;   { long name for December }
  25401.   {$EXTERNALSYM LOCALE_SMONTHNAME13}
  25402.   LOCALE_SMONTHNAME13             = $0000100E;   { long name for 13th month (if exists) }
  25403.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME1}
  25404.   LOCALE_SABBREVMONTHNAME1        = $00000044;   { abbreviated name for January }
  25405.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME2}
  25406.   LOCALE_SABBREVMONTHNAME2        = $00000045;   { abbreviated name for February }
  25407.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME3}
  25408.   LOCALE_SABBREVMONTHNAME3        = $00000046;   { abbreviated name for March }
  25409.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME4}
  25410.   LOCALE_SABBREVMONTHNAME4        = $00000047;   { abbreviated name for April }
  25411.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME5}
  25412.   LOCALE_SABBREVMONTHNAME5        = $00000048;   { abbreviated name for May }
  25413.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME6}
  25414.   LOCALE_SABBREVMONTHNAME6        = $00000049;   { abbreviated name for June }
  25415.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME7}
  25416.   LOCALE_SABBREVMONTHNAME7        = $0000004A;   { abbreviated name for July }
  25417.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME8}
  25418.   LOCALE_SABBREVMONTHNAME8        = $0000004B;   { abbreviated name for August }
  25419.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME9}
  25420.   LOCALE_SABBREVMONTHNAME9        = $0000004C;   { abbreviated name for September }
  25421.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME10}
  25422.   LOCALE_SABBREVMONTHNAME10       = $0000004D;   { abbreviated name for October }
  25423.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME11}
  25424.   LOCALE_SABBREVMONTHNAME11       = $0000004E;   { abbreviated name for November }
  25425.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME12}
  25426.   LOCALE_SABBREVMONTHNAME12       = $0000004F;   { abbreviated name for December }
  25427.   {$EXTERNALSYM LOCALE_SABBREVMONTHNAME13}
  25428.   LOCALE_SABBREVMONTHNAME13       = $0000100F;   { abbreviated name for 13th month (if exists) }
  25429.  
  25430.   {$EXTERNALSYM LOCALE_SPOSITIVESIGN}
  25431.   LOCALE_SPOSITIVESIGN            = $00000050;   { positive sign }
  25432.   {$EXTERNALSYM LOCALE_SNEGATIVESIGN}
  25433.   LOCALE_SNEGATIVESIGN            = $00000051;   { negative sign }
  25434.   {$EXTERNALSYM LOCALE_IPOSSIGNPOSN}
  25435.   LOCALE_IPOSSIGNPOSN             = $00000052;   { positive sign position }
  25436.   {$EXTERNALSYM LOCALE_INEGSIGNPOSN}
  25437.   LOCALE_INEGSIGNPOSN             = $00000053;   { negative sign position }
  25438.   {$EXTERNALSYM LOCALE_IPOSSYMPRECEDES}
  25439.   LOCALE_IPOSSYMPRECEDES          = $00000054;   { mon sym precedes pos amt }
  25440.   {$EXTERNALSYM LOCALE_IPOSSEPBYSPACE}
  25441.   LOCALE_IPOSSEPBYSPACE           = $00000055;   { mon sym sep by space from pos amt }
  25442.   {$EXTERNALSYM LOCALE_INEGSYMPRECEDES}
  25443.   LOCALE_INEGSYMPRECEDES          = $00000056;   { mon sym precedes neg amt }
  25444.   {$EXTERNALSYM LOCALE_INEGSEPBYSPACE}
  25445.   LOCALE_INEGSEPBYSPACE           = $00000057;   { mon sym sep by space from neg amt }
  25446.  
  25447.   {$EXTERNALSYM LOCALE_FONTSIGNATURE}
  25448.   LOCALE_FONTSIGNATURE            = $00000058;   { font signature }
  25449.   {$EXTERNALSYM LOCALE_SISO639LANGNAME}
  25450.   LOCALE_SISO639LANGNAME          = $00000059;   { ISO abbreviated language name }
  25451.   {$EXTERNALSYM LOCALE_SISO3166CTRYNAME}
  25452.   LOCALE_SISO3166CTRYNAME         = $0000005A;   { ISO abbreviated country name }
  25453.  
  25454. { Time Flags for GetTimeFormatW. }
  25455.  
  25456.   {$EXTERNALSYM TIME_NOMINUTESORSECONDS}
  25457.   TIME_NOMINUTESORSECONDS = 1; { do not use minutes or seconds }
  25458.   {$EXTERNALSYM TIME_NOSECONDS}
  25459.   TIME_NOSECONDS = 2; { do not use seconds }
  25460.   {$EXTERNALSYM TIME_NOTIMEMARKER}
  25461.   TIME_NOTIMEMARKER = 4; { do not use time marker }
  25462.   {$EXTERNALSYM TIME_FORCE24HOURFORMAT}
  25463.   TIME_FORCE24HOURFORMAT = 8; { always use 24 hour format }
  25464.  
  25465. { Date Flags for GetDateFormatW. }
  25466.  
  25467.   {$EXTERNALSYM DATE_SHORTDATE}
  25468.   DATE_SHORTDATE = 1; { use short date picture }
  25469.   {$EXTERNALSYM DATE_LONGDATE}
  25470.   DATE_LONGDATE = 2; { use long date picture }
  25471.   {$EXTERNALSYM DATE_USE_ALT_CALENDAR}
  25472.   DATE_USE_ALT_CALENDAR = 4;   { use alternate calendar (if any) }
  25473.  
  25474. { Calendar Types.
  25475.   These types are used for the GetALTCalendarInfoW NLS API routine. }
  25476.  
  25477.   {$EXTERNALSYM CAL_ICALINTVALUE}
  25478.   CAL_ICALINTVALUE = 1;   { calendar type }
  25479.   {$EXTERNALSYM CAL_SCALNAME}
  25480.   CAL_SCALNAME = 2;   { native name of calendar }
  25481.   {$EXTERNALSYM CAL_IYEAROFFSETRANGE}
  25482.   CAL_IYEAROFFSETRANGE = 3;   { starting years of eras }
  25483.   {$EXTERNALSYM CAL_SERASTRING}
  25484.   CAL_SERASTRING = 4;   { era name for IYearOffsetRanges }
  25485.   {$EXTERNALSYM CAL_SSHORTDATE}
  25486.   CAL_SSHORTDATE = 5;   { short date format string }
  25487.   {$EXTERNALSYM CAL_SLONGDATE}
  25488.   CAL_SLONGDATE = 6;   { long date format string }
  25489.   {$EXTERNALSYM CAL_SDAYNAME1}
  25490.   CAL_SDAYNAME1 = 7;   { native name for Monday }
  25491.   {$EXTERNALSYM CAL_SDAYNAME2}
  25492.   CAL_SDAYNAME2 = 8;   { native name for Tuesday }
  25493.   {$EXTERNALSYM CAL_SDAYNAME3}
  25494.   CAL_SDAYNAME3 = 9;   { native name for Wednesday }
  25495.   {$EXTERNALSYM CAL_SDAYNAME4}
  25496.   CAL_SDAYNAME4 = 10;   { native name for Thursday }
  25497.   {$EXTERNALSYM CAL_SDAYNAME5}
  25498.   CAL_SDAYNAME5 = 11;   { native name for Friday }
  25499.   {$EXTERNALSYM CAL_SDAYNAME6}
  25500.   CAL_SDAYNAME6 = 12;   { native name for Saturday }
  25501.   {$EXTERNALSYM CAL_SDAYNAME7}
  25502.   CAL_SDAYNAME7 = 13;   { native name for Sunday }
  25503.   {$EXTERNALSYM CAL_SABBREVDAYNAME1}
  25504.   CAL_SABBREVDAYNAME1 = 14;   { abbreviated name for Monday }
  25505.   {$EXTERNALSYM CAL_SABBREVDAYNAME2}
  25506.   CAL_SABBREVDAYNAME2 = 15;   { abbreviated name for Tuesday }
  25507.   {$EXTERNALSYM CAL_SABBREVDAYNAME3}
  25508.   CAL_SABBREVDAYNAME3 = $10;   { abbreviated name for Wednesday }
  25509.   {$EXTERNALSYM CAL_SABBREVDAYNAME4}
  25510.   CAL_SABBREVDAYNAME4 = 17;   { abbreviated name for Thursday }
  25511.   {$EXTERNALSYM CAL_SABBREVDAYNAME5}
  25512.   CAL_SABBREVDAYNAME5 = 18;   { abbreviated name for Friday }
  25513.   {$EXTERNALSYM CAL_SABBREVDAYNAME6}
  25514.   CAL_SABBREVDAYNAME6 = 19;   { abbreviated name for Saturday }
  25515.   {$EXTERNALSYM CAL_SABBREVDAYNAME7}
  25516.   CAL_SABBREVDAYNAME7 = 20;   { abbreviated name for Sunday }
  25517.   {$EXTERNALSYM CAL_SMONTHNAME1}
  25518.   CAL_SMONTHNAME1 = 21;   { native name for January }
  25519.   {$EXTERNALSYM CAL_SMONTHNAME2}
  25520.   CAL_SMONTHNAME2 = 22;   { native name for February }
  25521.   {$EXTERNALSYM CAL_SMONTHNAME3}
  25522.   CAL_SMONTHNAME3 = 23;   { native name for March }
  25523.   {$EXTERNALSYM CAL_SMONTHNAME4}
  25524.   CAL_SMONTHNAME4 = 24;   { native name for April }
  25525.   {$EXTERNALSYM CAL_SMONTHNAME5}
  25526.   CAL_SMONTHNAME5 = 25;   { native name for May }
  25527.   {$EXTERNALSYM CAL_SMONTHNAME6}
  25528.   CAL_SMONTHNAME6 = 26;   { native name for June }
  25529.   {$EXTERNALSYM CAL_SMONTHNAME7}
  25530.   CAL_SMONTHNAME7 = 27;   { native name for July }
  25531.   {$EXTERNALSYM CAL_SMONTHNAME8}
  25532.   CAL_SMONTHNAME8 = 28;   { native name for August }
  25533.   {$EXTERNALSYM CAL_SMONTHNAME9}
  25534.   CAL_SMONTHNAME9 = 29;   { native name for September }
  25535.   {$EXTERNALSYM CAL_SMONTHNAME10}
  25536.   CAL_SMONTHNAME10 = 30;   { native name for October }
  25537.   {$EXTERNALSYM CAL_SMONTHNAME11}
  25538.   CAL_SMONTHNAME11 = 31;   { native name for November }
  25539.   {$EXTERNALSYM CAL_SMONTHNAME12}
  25540.   CAL_SMONTHNAME12 = $20;   { native name for December }
  25541.   {$EXTERNALSYM CAL_SMONTHNAME13}
  25542.   CAL_SMONTHNAME13 = 33;   { native name for 13th month (if any) }
  25543.   {$EXTERNALSYM CAL_SABBREVMONTHNAME1}
  25544.   CAL_SABBREVMONTHNAME1 = 34;   { abbreviated name for January }
  25545.   {$EXTERNALSYM CAL_SABBREVMONTHNAME2}
  25546.   CAL_SABBREVMONTHNAME2 = 35;   { abbreviated name for February }
  25547.   {$EXTERNALSYM CAL_SABBREVMONTHNAME3}
  25548.   CAL_SABBREVMONTHNAME3 = 36;   { abbreviated name for March }
  25549.   {$EXTERNALSYM CAL_SABBREVMONTHNAME4}
  25550.   CAL_SABBREVMONTHNAME4 = 37;   { abbreviated name for April }
  25551.   {$EXTERNALSYM CAL_SABBREVMONTHNAME5}
  25552.   CAL_SABBREVMONTHNAME5 = 38;   { abbreviated name for May }
  25553.   {$EXTERNALSYM CAL_SABBREVMONTHNAME6}
  25554.   CAL_SABBREVMONTHNAME6 = 39;   { abbreviated name for June }
  25555.   {$EXTERNALSYM CAL_SABBREVMONTHNAME7}
  25556.   CAL_SABBREVMONTHNAME7 = 40;   { abbreviated name for July }
  25557.   {$EXTERNALSYM CAL_SABBREVMONTHNAME8}
  25558.   CAL_SABBREVMONTHNAME8 = 41;   { abbreviated name for August }
  25559.   {$EXTERNALSYM CAL_SABBREVMONTHNAME9}
  25560.   CAL_SABBREVMONTHNAME9 = 42;   { abbreviated name for September }
  25561.   {$EXTERNALSYM CAL_SABBREVMONTHNAME10}
  25562.   CAL_SABBREVMONTHNAME10 = 43;   { abbreviated name for October }
  25563.   {$EXTERNALSYM CAL_SABBREVMONTHNAME11}
  25564.   CAL_SABBREVMONTHNAME11 = 44;   { abbreviated name for November }
  25565.   {$EXTERNALSYM CAL_SABBREVMONTHNAME12}
  25566.   CAL_SABBREVMONTHNAME12 = 45;   { abbreviated name for December }
  25567.   {$EXTERNALSYM CAL_SABBREVMONTHNAME13}
  25568.   CAL_SABBREVMONTHNAME13 = 46;   { abbreviated name for 13th month (if any) }
  25569.  
  25570. { Calendar Enumeration Value. }
  25571.  
  25572.   {$EXTERNALSYM ENUM_ALL_CALENDARS}
  25573.   ENUM_ALL_CALENDARS = DWORD($FFFFFFFF);   { enumerate all calendars }
  25574.  
  25575. { Calendar ID Values. }
  25576.  
  25577.   {$EXTERNALSYM CAL_GREGORIAN}
  25578.   CAL_GREGORIAN = 1;           { Gregorian (localized) calendar }
  25579.   {$EXTERNALSYM CAL_GREGORIAN_US}
  25580.   CAL_GREGORIAN_US = 2;        { Gregorian (U.S.) calendar }
  25581.   {$EXTERNALSYM CAL_JAPAN}
  25582.   CAL_JAPAN = 3;               { Japanese Emperor Era calendar }
  25583.   {$EXTERNALSYM CAL_TAIWAN}
  25584.   CAL_TAIWAN = 4;              { Republic of China Era calendar }
  25585.   {$EXTERNALSYM CAL_KOREA}
  25586.   CAL_KOREA = 5;               { Korean Tangun Era calendar }
  25587.   {$EXTERNALSYM CAL_HIJRI}
  25588.   CAL_HIJRI = 6;               { Hijri (Arabic Lunar) calendar }
  25589.   {$EXTERNALSYM CAL_THAI}
  25590.   CAL_THAI = 7;                { Thai calendar }
  25591.   {$EXTERNALSYM CAL_HEBREW}
  25592.   CAL_HEBREW = 8;              { Hebrew calendar }
  25593.  
  25594.  
  25595. type
  25596.   {$EXTERNALSYM LCTYPE}
  25597.   LCTYPE = DWORD;   { Locale type constant. }
  25598.   {$EXTERNALSYM CALTYPE}
  25599.   CALTYPE = DWORD;  { Calendar type constant. }
  25600.   {$EXTERNALSYM CALID}
  25601.   CALID = DWORD;    { Calendar ID. }
  25602.  
  25603.   PCPInfo = ^TCPInfo;
  25604.   {$EXTERNALSYM _cpinfo}
  25605.   _cpinfo = record
  25606.     MaxCharSize: UINT;                       { max length (bytes) of a char }
  25607.     DefaultChar: array[0..MAX_DEFAULTCHAR - 1] of Byte; { default character }
  25608.     LeadByte: array[0..MAX_LEADBYTES - 1] of Byte;      { lead byte ranges }
  25609.   end;
  25610.   TCPInfo = _cpinfo;
  25611.   {$EXTERNALSYM CPINFO}
  25612.   CPINFO = _cpinfo;
  25613.  
  25614. type
  25615.   PNumberFmtA = ^TNumberFmtA;
  25616.   PNumberFmtW = ^TNumberFmtW;
  25617.   PNumberFmt = PNumberFmtA;
  25618.   {$EXTERNALSYM _numberfmtA}
  25619.   _numberfmtA = packed record
  25620.     NumDigits: UINT;        { number of decimal digits }
  25621.     LeadingZero: UINT;      { if leading zero in decimal fields }
  25622.     Grouping: UINT;         { group size left of decimal }
  25623.     lpDecimalSep: PAnsiChar;   { ptr to decimal separator string }
  25624.     lpThousandSep: PAnsiChar;  { ptr to thousand separator string }
  25625.     NegativeOrder: UINT;    { negative number ordering }
  25626.   end;
  25627.   {$EXTERNALSYM _numberfmtW}
  25628.   _numberfmtW = packed record
  25629.     NumDigits: UINT;        { number of decimal digits }
  25630.     LeadingZero: UINT;      { if leading zero in decimal fields }
  25631.     Grouping: UINT;         { group size left of decimal }
  25632.     lpDecimalSep: PWideChar;   { ptr to decimal separator string }
  25633.     lpThousandSep: PWideChar;  { ptr to thousand separator string }
  25634.     NegativeOrder: UINT;    { negative number ordering }
  25635.   end;
  25636.   {$EXTERNALSYM _numberfmt}
  25637.   _numberfmt = _numberfmtA;
  25638.   TNumberFmtA = _numberfmtA;
  25639.   TNumberFmtW = _numberfmtW;
  25640.   TNumberFmt = TNumberFmtA;
  25641.   {$EXTERNALSYM NUMBERFMTA}
  25642.   NUMBERFMTA = _numberfmtA;
  25643.   {$EXTERNALSYM NUMBERFMTW}
  25644.   NUMBERFMTW = _numberfmtW;
  25645.   {$EXTERNALSYM NUMBERFMT}
  25646.   NUMBERFMT = NUMBERFMTA;
  25647.  
  25648.   PCurrencyFmtA = ^TCurrencyFmtA;
  25649.   PCurrencyFmtW = ^TCurrencyFmtW;
  25650.   PCurrencyFmt = PCurrencyFmtA;
  25651.   {$EXTERNALSYM _currencyfmtA}
  25652.   _currencyfmtA = packed record
  25653.     NumDigits: UINT;           { number of decimal digits }
  25654.     LeadingZero: UINT;         { if leading zero in decimal fields }
  25655.     Grouping: UINT;            { group size left of decimal }
  25656.     lpDecimalSep: PAnsiChar;      { ptr to decimal separator string }
  25657.     lpThousandSep: PAnsiChar;     { ptr to thousand separator string }
  25658.     NegativeOrder: UINT;       { negative currency ordering }
  25659.     PositiveOrder: UINT;       { positive currency ordering }
  25660.     lpCurrencySymbol: PAnsiChar;  { ptr to currency symbol string }
  25661.   end;
  25662.   {$EXTERNALSYM _currencyfmtW}
  25663.   _currencyfmtW = packed record
  25664.     NumDigits: UINT;           { number of decimal digits }
  25665.     LeadingZero: UINT;         { if leading zero in decimal fields }
  25666.     Grouping: UINT;            { group size left of decimal }
  25667.     lpDecimalSep: PWideChar;      { ptr to decimal separator string }
  25668.     lpThousandSep: PWideChar;     { ptr to thousand separator string }
  25669.     NegativeOrder: UINT;       { negative currency ordering }
  25670.     PositiveOrder: UINT;       { positive currency ordering }
  25671.     lpCurrencySymbol: PWideChar;  { ptr to currency symbol string }
  25672.   end;
  25673.   {$EXTERNALSYM _currencyfmt}
  25674.   _currencyfmt = _currencyfmtA;
  25675.   TCurrencyFmtA = _currencyfmtA;
  25676.   TCurrencyFmtW = _currencyfmtW;
  25677.   TCurrencyFmt = TCurrencyFmtA;
  25678.   {$EXTERNALSYM CURRENCYFMTA}
  25679.   CURRENCYFMTA = _currencyfmtA;
  25680.   {$EXTERNALSYM CURRENCYFMTW}
  25681.   CURRENCYFMTW = _currencyfmtW;
  25682.   {$EXTERNALSYM CURRENCYFMT}
  25683.   CURRENCYFMT = CURRENCYFMTA;
  25684.  
  25685. { Enumeration function constants. }
  25686.  
  25687.  
  25688.  
  25689.  
  25690.  
  25691.  
  25692.  
  25693.   TFNLocaleEnumProc = TFarProc;
  25694.   TFNCodepageEnumProc = TFarProc;
  25695.   TFNDateFmtEnumProc = TFarProc;
  25696.   TFNTimeFmtEnumProc = TFarProc;
  25697.   TFNCalInfoEnumProc = TFarProc;
  25698.  
  25699.  
  25700. { Code Page Dependent APIs. }
  25701.  
  25702. {$EXTERNALSYM IsValidCodePage}
  25703. function IsValidCodePage(CodePage: UINT): BOOL; stdcall;
  25704. {$EXTERNALSYM GetACP}
  25705. function GetACP: UINT; stdcall;
  25706. {$EXTERNALSYM GetOEMCP}
  25707. function GetOEMCP: UINT; stdcall;
  25708. {$EXTERNALSYM GetCPInfo}
  25709. function GetCPInfo(CodePage: UINT; var lpCPInfo: TCPInfo): BOOL; stdcall;
  25710. {$EXTERNALSYM IsDBCSLeadByte}
  25711. function IsDBCSLeadByte(TestChar: Byte): BOOL; stdcall;
  25712. {$EXTERNALSYM IsDBCSLeadByteEx}
  25713. function IsDBCSLeadByteEx(CodePage: UINT; TestChar: Byte): BOOL; stdcall;
  25714. {$EXTERNALSYM MultiByteToWideChar}
  25715. function MultiByteToWideChar(CodePage: UINT; dwFlags: DWORD;
  25716.   const lpMultiByteStr: LPCSTR; cchMultiByte: Integer;
  25717.   lpWideCharStr: LPWSTR; cchWideChar: Integer): Integer; stdcall;
  25718. {$EXTERNALSYM WideCharToMultiByte}
  25719. function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD;
  25720.   lpWideCharStr: LPWSTR; cchWideChar: Integer; lpMultiByteStr: LPSTR;
  25721.   cchMultiByte: Integer; lpDefaultChar: LPCSTR; lpUsedDefaultChar: PBOOL): Integer; stdcall;
  25722.  
  25723. { Locale Dependent APIs. }
  25724.  
  25725. {$EXTERNALSYM CompareStringA}
  25726. function CompareStringA(Locale: LCID; dwCmpFlags: DWORD; lpString1: PAnsiChar;
  25727.   cchCount1: Integer; lpString2: PAnsiChar; cchCount2: Integer): Integer; stdcall;
  25728. {$EXTERNALSYM CompareStringW}
  25729. function CompareStringW(Locale: LCID; dwCmpFlags: DWORD; lpString1: PWideChar;
  25730.   cchCount1: Integer; lpString2: PWideChar; cchCount2: Integer): Integer; stdcall;
  25731. {$EXTERNALSYM CompareString}
  25732. function CompareString(Locale: LCID; dwCmpFlags: DWORD; lpString1: PChar;
  25733.   cchCount1: Integer; lpString2: PChar; cchCount2: Integer): Integer; stdcall;
  25734. {$EXTERNALSYM LCMapStringA}
  25735. function LCMapStringA(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PAnsiChar;
  25736.   cchSrc: Integer; lpDestStr: PAnsiChar; cchDest: Integer): Integer; stdcall;
  25737. {$EXTERNALSYM LCMapStringW}
  25738. function LCMapStringW(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PWideChar;
  25739.   cchSrc: Integer; lpDestStr: PWideChar; cchDest: Integer): Integer; stdcall;
  25740. {$EXTERNALSYM LCMapString}
  25741. function LCMapString(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PChar;
  25742.   cchSrc: Integer; lpDestStr: PChar; cchDest: Integer): Integer; stdcall;
  25743. {$EXTERNALSYM GetLocaleInfoA}
  25744. function GetLocaleInfoA(Locale: LCID; LCType: LCTYPE; lpLCData: PAnsiChar; cchData: Integer): Integer; stdcall;
  25745. {$EXTERNALSYM GetLocaleInfoW}
  25746. function GetLocaleInfoW(Locale: LCID; LCType: LCTYPE; lpLCData: PWideChar; cchData: Integer): Integer; stdcall;
  25747. {$EXTERNALSYM GetLocaleInfo}
  25748. function GetLocaleInfo(Locale: LCID; LCType: LCTYPE; lpLCData: PChar; cchData: Integer): Integer; stdcall;
  25749. {$EXTERNALSYM SetLocaleInfoA}
  25750. function SetLocaleInfoA(Locale: LCID; LCType: LCTYPE; lpLCData: PAnsiChar): BOOL; stdcall;
  25751. {$EXTERNALSYM SetLocaleInfoW}
  25752. function SetLocaleInfoW(Locale: LCID; LCType: LCTYPE; lpLCData: PWideChar): BOOL; stdcall;
  25753. {$EXTERNALSYM SetLocaleInfo}
  25754. function SetLocaleInfo(Locale: LCID; LCType: LCTYPE; lpLCData: PChar): BOOL; stdcall;
  25755. {$EXTERNALSYM GetTimeFormatA}
  25756. function GetTimeFormatA(Locale: LCID; dwFlags: DWORD; lpTime: PSystemTime;
  25757.   lpFormat: PAnsiChar; lpTimeStr: PAnsiChar; cchTime: Integer): Integer; stdcall;
  25758. {$EXTERNALSYM GetTimeFormatW}
  25759. function GetTimeFormatW(Locale: LCID; dwFlags: DWORD; lpTime: PSystemTime;
  25760.   lpFormat: PWideChar; lpTimeStr: PWideChar; cchTime: Integer): Integer; stdcall;
  25761. {$EXTERNALSYM GetTimeFormat}
  25762. function GetTimeFormat(Locale: LCID; dwFlags: DWORD; lpTime: PSystemTime;
  25763.   lpFormat: PChar; lpTimeStr: PChar; cchTime: Integer): Integer; stdcall;
  25764. {$EXTERNALSYM GetDateFormatA}
  25765. function GetDateFormatA(Locale: LCID; dwFlags: DWORD; lpDate: PSystemTime;
  25766.   lpFormat: PAnsiChar; lpDateStr: PAnsiChar; cchDate: Integer): Integer; stdcall;
  25767. {$EXTERNALSYM GetDateFormatW}
  25768. function GetDateFormatW(Locale: LCID; dwFlags: DWORD; lpDate: PSystemTime;
  25769.   lpFormat: PWideChar; lpDateStr: PWideChar; cchDate: Integer): Integer; stdcall;
  25770. {$EXTERNALSYM GetDateFormat}
  25771. function GetDateFormat(Locale: LCID; dwFlags: DWORD; lpDate: PSystemTime;
  25772.   lpFormat: PChar; lpDateStr: PChar; cchDate: Integer): Integer; stdcall;
  25773. {$EXTERNALSYM GetNumberFormatA}
  25774. function GetNumberFormatA(Locale: LCID; dwFlags: DWORD; lpValue: PAnsiChar;
  25775.   lpFormat: PNumberFmtA; lpNumberStr: PAnsiChar; cchNumber: Integer): Integer; stdcall;
  25776. {$EXTERNALSYM GetNumberFormatW}
  25777. function GetNumberFormatW(Locale: LCID; dwFlags: DWORD; lpValue: PWideChar;
  25778.   lpFormat: PNumberFmtW; lpNumberStr: PWideChar; cchNumber: Integer): Integer; stdcall;
  25779. {$EXTERNALSYM GetNumberFormat}
  25780. function GetNumberFormat(Locale: LCID; dwFlags: DWORD; lpValue: PChar;
  25781.   lpFormat: PNumberFmt; lpNumberStr: PChar; cchNumber: Integer): Integer; stdcall;
  25782. {$EXTERNALSYM GetCurrencyFormatA}
  25783. function GetCurrencyFormatA(Locale: LCID; dwFlags: DWORD; lpValue: PAnsiChar;
  25784.   lpFormat: PCurrencyFmtA; lpCurrencyStr: PAnsiChar; cchCurrency: Integer): Integer; stdcall;
  25785. {$EXTERNALSYM GetCurrencyFormatW}
  25786. function GetCurrencyFormatW(Locale: LCID; dwFlags: DWORD; lpValue: PWideChar;
  25787.   lpFormat: PCurrencyFmtW; lpCurrencyStr: PWideChar; cchCurrency: Integer): Integer; stdcall;
  25788. {$EXTERNALSYM GetCurrencyFormat}
  25789. function GetCurrencyFormat(Locale: LCID; dwFlags: DWORD; lpValue: PChar;
  25790.   lpFormat: PCurrencyFmt; lpCurrencyStr: PChar; cchCurrency: Integer): Integer; stdcall;
  25791. {$EXTERNALSYM EnumCalendarInfoA}
  25792. function EnumCalendarInfoA(lpCalInfoEnumProc: TFNCalInfoEnumProc; Locale: LCID;
  25793.   Calendar: CALID; CalType: CALTYPE): BOOL; stdcall;
  25794. {$EXTERNALSYM EnumCalendarInfoW}
  25795. function EnumCalendarInfoW(lpCalInfoEnumProc: TFNCalInfoEnumProc; Locale: LCID;
  25796.   Calendar: CALID; CalType: CALTYPE): BOOL; stdcall;
  25797. {$EXTERNALSYM EnumCalendarInfo}
  25798. function EnumCalendarInfo(lpCalInfoEnumProc: TFNCalInfoEnumProc; Locale: LCID;
  25799.   Calendar: CALID; CalType: CALTYPE): BOOL; stdcall;
  25800. {$EXTERNALSYM EnumTimeFormatsA}
  25801. function EnumTimeFormatsA(lpTimeFmtEnumProc: TFNTimeFmtEnumProc;
  25802.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  25803. {$EXTERNALSYM EnumTimeFormatsW}
  25804. function EnumTimeFormatsW(lpTimeFmtEnumProc: TFNTimeFmtEnumProc;
  25805.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  25806. {$EXTERNALSYM EnumTimeFormats}
  25807. function EnumTimeFormats(lpTimeFmtEnumProc: TFNTimeFmtEnumProc;
  25808.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  25809. {$EXTERNALSYM EnumDateFormatsA}
  25810. function EnumDateFormatsA(lpDateFmtEnumProc: TFNDateFmtEnumProc;
  25811.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  25812. {$EXTERNALSYM EnumDateFormatsW}
  25813. function EnumDateFormatsW(lpDateFmtEnumProc: TFNDateFmtEnumProc;
  25814.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  25815. {$EXTERNALSYM EnumDateFormats}
  25816. function EnumDateFormats(lpDateFmtEnumProc: TFNDateFmtEnumProc;
  25817.   Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  25818. {$EXTERNALSYM IsValidLocale}
  25819. function IsValidLocale(Locale: LCID; dwFlags: DWORD): BOOL; stdcall;
  25820. {$EXTERNALSYM ConvertDefaultLocale}
  25821. function ConvertDefaultLocale(Locale: LCID): LCID; stdcall;
  25822. {$EXTERNALSYM GetThreadLocale}
  25823. function GetThreadLocale: LCID; stdcall;
  25824. {$EXTERNALSYM SetThreadLocale}
  25825. function SetThreadLocale(Locale: LCID): BOOL; stdcall;
  25826. {$EXTERNALSYM GetSystemDefaultLangID}
  25827. function GetSystemDefaultLangID: LANGID; stdcall;
  25828. {$EXTERNALSYM GetUserDefaultLangID}
  25829. function GetUserDefaultLangID: LANGID; stdcall;
  25830. {$EXTERNALSYM GetSystemDefaultLCID}
  25831. function GetSystemDefaultLCID: LCID; stdcall;
  25832. {$EXTERNALSYM GetUserDefaultLCID}
  25833. function GetUserDefaultLCID: LCID; stdcall;
  25834.  
  25835. { Locale Independent APIs. }
  25836.  
  25837. {$EXTERNALSYM GetStringTypeExA}
  25838. function GetStringTypeExA(Locale: LCID; dwInfoType: DWORD;
  25839.   lpSrcStr: PAnsiChar; cchSrc: Integer; var lpCharType): BOOL; stdcall;
  25840. {$EXTERNALSYM GetStringTypeExW}
  25841. function GetStringTypeExW(Locale: LCID; dwInfoType: DWORD;
  25842.   lpSrcStr: PWideChar; cchSrc: Integer; var lpCharType): BOOL; stdcall;
  25843. {$EXTERNALSYM GetStringTypeEx}
  25844. function GetStringTypeEx(Locale: LCID; dwInfoType: DWORD;
  25845.   lpSrcStr: PChar; cchSrc: Integer; var lpCharType): BOOL; stdcall;
  25846.  
  25847. {  NOTE: The parameters for GetStringTypeA and GetStringTypeW are
  25848.          NOT the same.  The W version was shipped in NT 3.1.  The
  25849.          A version was then shipped in 16-bit OLE with the wrong
  25850.          parameters (ported from Win95).  To be compatible, we
  25851.          must break the relationship between the A and W versions
  25852.          of GetStringType.  There will be NO function call for the
  25853.          generic GetStringType.
  25854.  
  25855.          GetStringTypeEx (above) should be used instead. }
  25856.  
  25857. {$EXTERNALSYM GetStringTypeA}
  25858. function GetStringTypeA(Locale: LCID; dwInfoType: DWORD; const lpSrcStr: LPCSTR; cchSrc: BOOL; var lpCharType: Word): BOOL;
  25859. {$EXTERNALSYM GetStringTypeW}
  25860. function GetStringTypeW(dwInfoType: DWORD; const lpSrcStr: WCHAR; cchSrc: BOOL; var lpCharType: Word): BOOL;
  25861.  
  25862. {$EXTERNALSYM FoldStringA}
  25863. function FoldStringA(dwMapFlags: DWORD; lpSrcStr: PAnsiChar; cchSrc: Integer;
  25864.   lpDestStr: PAnsiChar; cchDest: Integer): Integer; stdcall;
  25865. {$EXTERNALSYM FoldStringW}
  25866. function FoldStringW(dwMapFlags: DWORD; lpSrcStr: PWideChar; cchSrc: Integer;
  25867.   lpDestStr: PWideChar; cchDest: Integer): Integer; stdcall;
  25868. {$EXTERNALSYM FoldString}
  25869. function FoldString(dwMapFlags: DWORD; lpSrcStr: PChar; cchSrc: Integer;
  25870.   lpDestStr: PChar; cchDest: Integer): Integer; stdcall;
  25871. {$EXTERNALSYM EnumSystemLocalesA}
  25872. function EnumSystemLocalesA(lpLocaleEnumProc: TFNLocaleEnumProc; dwFlags: DWORD): BOOL; stdcall;
  25873. {$EXTERNALSYM EnumSystemLocalesW}
  25874. function EnumSystemLocalesW(lpLocaleEnumProc: TFNLocaleEnumProc; dwFlags: DWORD): BOOL; stdcall;
  25875. {$EXTERNALSYM EnumSystemLocales}
  25876. function EnumSystemLocales(lpLocaleEnumProc: TFNLocaleEnumProc; dwFlags: DWORD): BOOL; stdcall;
  25877. {$EXTERNALSYM EnumSystemCodePagesA}
  25878. function EnumSystemCodePagesA(lpCodePageEnumProc: TFNCodepageEnumProc; dwFlags: DWORD): BOOL; stdcall;
  25879. {$EXTERNALSYM EnumSystemCodePagesW}
  25880. function EnumSystemCodePagesW(lpCodePageEnumProc: TFNCodepageEnumProc; dwFlags: DWORD): BOOL; stdcall;
  25881. {$EXTERNALSYM EnumSystemCodePages}
  25882. function EnumSystemCodePages(lpCodePageEnumProc: TFNCodepageEnumProc; dwFlags: DWORD): BOOL; stdcall;
  25883.  
  25884.  
  25885. { Translated from WINCON.H }
  25886.  
  25887. { This module contains the public data structures, data types,
  25888.     and procedures exported by the NT console subsystem. }
  25889.  
  25890. type
  25891.   PCoord = ^TCoord;
  25892.   {$EXTERNALSYM _COORD}
  25893.   _COORD = packed record
  25894.     X: SHORT;
  25895.     Y: SHORT;
  25896.   end;
  25897.   TCoord = _COORD;
  25898.   {$EXTERNALSYM COORD}
  25899.   COORD = _COORD;
  25900.  
  25901.   PSmallRect = ^TSmallRect;
  25902.   {$EXTERNALSYM _SMALL_RECT}
  25903.   _SMALL_RECT = packed record
  25904.     Left: SHORT;
  25905.     Top: SHORT;
  25906.     Right: SHORT;
  25907.     Bottom: SHORT;
  25908.   end;
  25909.   TSmallRect = _SMALL_RECT;
  25910.   {$EXTERNALSYM SMALL_RECT}
  25911.   SMALL_RECT = _SMALL_RECT;
  25912.  
  25913.   PKeyEventRecord = ^TKeyEventRecord;
  25914.   {$EXTERNALSYM _KEY_EVENT_RECORD}
  25915.   _KEY_EVENT_RECORD = packed record
  25916.     bKeyDown: BOOL;
  25917.     wRepeatCount: Word;
  25918.     wVirtualKeyCode: Word;
  25919.     wVirtualScanCode: Word;
  25920.     case Integer of
  25921.       0: (
  25922.         UnicodeChar: WCHAR;
  25923.         dwControlKeyState: DWORD);
  25924.       1: (
  25925.         AsciiChar: CHAR);
  25926.   end;
  25927.   TKeyEventRecord = _KEY_EVENT_RECORD;
  25928.   {$EXTERNALSYM KEY_EVENT_RECORD}
  25929.   KEY_EVENT_RECORD = _KEY_EVENT_RECORD;
  25930.  
  25931. const
  25932. { ControlKeyState flags }
  25933.  
  25934.   {$EXTERNALSYM RIGHT_ALT_PRESSED}
  25935.   RIGHT_ALT_PRESSED = 1;     { the right alt key is pressed. }
  25936.   {$EXTERNALSYM LEFT_ALT_PRESSED}
  25937.   LEFT_ALT_PRESSED = 2;     { the left alt key is pressed. }
  25938.   {$EXTERNALSYM RIGHT_CTRL_PRESSED}
  25939.   RIGHT_CTRL_PRESSED = 4;     { the right ctrl key is pressed. }
  25940.   {$EXTERNALSYM LEFT_CTRL_PRESSED}
  25941.   LEFT_CTRL_PRESSED = 8;     { the left ctrl key is pressed. }
  25942.   {$EXTERNALSYM SHIFT_PRESSED}
  25943.   SHIFT_PRESSED = $10;     { the shift key is pressed. }
  25944.   {$EXTERNALSYM NUMLOCK_ON}
  25945.   NUMLOCK_ON = $20;     { the numlock light is on. }
  25946.   {$EXTERNALSYM SCROLLLOCK_ON}
  25947.   SCROLLLOCK_ON = $40;     { the scrolllock light is on. }
  25948.   {$EXTERNALSYM CAPSLOCK_ON}
  25949.   CAPSLOCK_ON = $80;     { the capslock light is on. }
  25950.   {$EXTERNALSYM ENHANCED_KEY}
  25951.   ENHANCED_KEY = $100;     { the key is enhanced. }
  25952.  
  25953. type
  25954.   PMouseEventRecord = ^TMouseEventRecord;
  25955.   {$EXTERNALSYM _MOUSE_EVENT_RECORD}
  25956.   _MOUSE_EVENT_RECORD = packed record
  25957.     dwMousePosition: TCoord;
  25958.     dwButtonState: DWORD;
  25959.     dwControlKeyState: DWORD;
  25960.     dwEventFlags: DWORD;
  25961.   end;
  25962.   TMouseEventRecord = _MOUSE_EVENT_RECORD;
  25963.   {$EXTERNALSYM MOUSE_EVENT_RECORD}
  25964.   MOUSE_EVENT_RECORD = _MOUSE_EVENT_RECORD;
  25965.  
  25966. const
  25967. { ButtonState flags }
  25968.  
  25969.   {$EXTERNALSYM FROM_LEFT_1ST_BUTTON_PRESSED}
  25970.   FROM_LEFT_1ST_BUTTON_PRESSED = 1;
  25971.   {$EXTERNALSYM RIGHTMOST_BUTTON_PRESSED}
  25972.   RIGHTMOST_BUTTON_PRESSED = 2;
  25973.   {$EXTERNALSYM FROM_LEFT_2ND_BUTTON_PRESSED}
  25974.   FROM_LEFT_2ND_BUTTON_PRESSED = 4;
  25975.   {$EXTERNALSYM FROM_LEFT_3RD_BUTTON_PRESSED}
  25976.   FROM_LEFT_3RD_BUTTON_PRESSED = 8;
  25977.   {$EXTERNALSYM FROM_LEFT_4TH_BUTTON_PRESSED}
  25978.   FROM_LEFT_4TH_BUTTON_PRESSED = $10;
  25979.  
  25980. { EventFlags }
  25981.  
  25982.   {$EXTERNALSYM MOUSE_MOVED}
  25983.   MOUSE_MOVED = 1;
  25984.   {$EXTERNALSYM DOUBLE_CLICK}
  25985.   DOUBLE_CLICK = 2;
  25986.  
  25987. type
  25988.   PWindowBufferSizeRecord = ^TWindowBufferSizeRecord;
  25989.   {$EXTERNALSYM _WINDOW_BUFFER_SIZE_RECORD}
  25990.   _WINDOW_BUFFER_SIZE_RECORD = packed record
  25991.     dwSize: TCoord;
  25992.   end;
  25993.   TWindowBufferSizeRecord = _WINDOW_BUFFER_SIZE_RECORD;
  25994.   {$EXTERNALSYM WINDOW_BUFFER_SIZE_RECORD}
  25995.   WINDOW_BUFFER_SIZE_RECORD = _WINDOW_BUFFER_SIZE_RECORD;
  25996.  
  25997.   PMenuEventRecord = ^TMenuEventRecord;
  25998.   {$EXTERNALSYM _MENU_EVENT_RECORD}
  25999.   _MENU_EVENT_RECORD = packed record
  26000.     dwCommandId: UINT;
  26001.   end;
  26002.   TMenuEventRecord = _MENU_EVENT_RECORD;
  26003.   {$EXTERNALSYM MENU_EVENT_RECORD}
  26004.   MENU_EVENT_RECORD = _MENU_EVENT_RECORD;
  26005.  
  26006.   PFocusEventRecord = ^TFocusEventRecord;
  26007.   {$EXTERNALSYM _FOCUS_EVENT_RECORD}
  26008.   _FOCUS_EVENT_RECORD = packed record
  26009.     bSetFocus: BOOL;
  26010.   end;
  26011.   TFocusEventRecord = _FOCUS_EVENT_RECORD;
  26012.   {$EXTERNALSYM FOCUS_EVENT_RECORD}
  26013.   FOCUS_EVENT_RECORD = _FOCUS_EVENT_RECORD;
  26014.  
  26015.   PInputRecord = ^TInputRecord;
  26016.   {$EXTERNALSYM _INPUT_RECORD}
  26017.   _INPUT_RECORD = record
  26018.     EventType: Word;
  26019.     Reserved: Word;
  26020.     Event: Record case Integer of
  26021.       0: (KeyEvent: TKeyEventRecord);
  26022.       1: (MouseEvent: TMouseEventRecord);
  26023.       2: (WindowBufferSizeEvent: TWindowBufferSizeRecord);
  26024.       3: (MenuEvent: TMenuEventRecord);
  26025.       4: (FocusEvent: TFocusEventRecord);
  26026.     end;
  26027.   end;
  26028.   TInputRecord = _INPUT_RECORD;
  26029.   {$EXTERNALSYM INPUT_RECORD}
  26030.   INPUT_RECORD = _INPUT_RECORD;
  26031.  
  26032.  
  26033. const
  26034. {  EventType flags: }
  26035.  
  26036.   {$EXTERNALSYM KEY_EVENT}
  26037.   KEY_EVENT = 1;       { Event contains key event record}
  26038.   _MOUSE_EVENT = 2;  { Renamed }   { Event contains mouse event record }
  26039.   {$EXTERNALSYM WINDOW_BUFFER_SIZE_EVENT}
  26040.   WINDOW_BUFFER_SIZE_EVENT = 4;  { Event contains window change event record }
  26041.   {$EXTERNALSYM MENU_EVENT}
  26042.   MENU_EVENT = 8;     { Event contains menu event record }
  26043.   {$EXTERNALSYM FOCUS_EVENT}
  26044.   FOCUS_EVENT = $10;  { event contains focus change }
  26045.  
  26046. type
  26047.   PCharInfo = ^TCharInfo;
  26048.   {$EXTERNALSYM _CHAR_INFO}
  26049.   _CHAR_INFO = record
  26050.     case Integer of
  26051.       0: (
  26052.         UnicodeChar: WCHAR;
  26053.         Attributes: Word);
  26054.       1: (
  26055.         AsciiChar: CHAR);
  26056.   end;
  26057.   TCharInfo = _CHAR_INFO;
  26058.   {$EXTERNALSYM CHAR_INFO}
  26059.   CHAR_INFO = _CHAR_INFO;
  26060.  
  26061. const
  26062. { Attributes flags:}
  26063.  
  26064.   {$EXTERNALSYM FOREGROUND_BLUE}
  26065.   FOREGROUND_BLUE = 1;    { text color contains blue.}
  26066.   {$EXTERNALSYM FOREGROUND_GREEN}
  26067.   FOREGROUND_GREEN = 2;     { text color contains green. }
  26068.   {$EXTERNALSYM FOREGROUND_RED}
  26069.   FOREGROUND_RED = 4;     { text color contains red. }
  26070.   {$EXTERNALSYM FOREGROUND_INTENSITY}
  26071.   FOREGROUND_INTENSITY = 8;     { text color is intensified. }
  26072.   {$EXTERNALSYM BACKGROUND_BLUE}
  26073.   BACKGROUND_BLUE = $10;     { background color contains blue. }
  26074.   {$EXTERNALSYM BACKGROUND_GREEN}
  26075.   BACKGROUND_GREEN = $20;     { background color contains green. }
  26076.   {$EXTERNALSYM BACKGROUND_RED}
  26077.   BACKGROUND_RED = $40;     { background color contains red. }
  26078.   {$EXTERNALSYM BACKGROUND_INTENSITY}
  26079.   BACKGROUND_INTENSITY = $80;     { background color is intensified. }
  26080.  
  26081. type
  26082.   PConsoleScreenBufferInfo = ^TConsoleScreenBufferInfo;
  26083.   {$EXTERNALSYM _CONSOLE_SCREEN_BUFFER_INFO}
  26084.   _CONSOLE_SCREEN_BUFFER_INFO = packed record
  26085.     dwSize: TCoord;
  26086.     dwCursorPosition: TCoord;
  26087.     wAttributes: Word;
  26088.     srWindow: TSmallRect;
  26089.     dwMaximumWindowSize: TCoord;
  26090.   end;
  26091.   TConsoleScreenBufferInfo = _CONSOLE_SCREEN_BUFFER_INFO;
  26092.   {$EXTERNALSYM CONSOLE_SCREEN_BUFFER_INFO}
  26093.   CONSOLE_SCREEN_BUFFER_INFO = _CONSOLE_SCREEN_BUFFER_INFO;
  26094.  
  26095.   PConsoleCursorInfo = ^TConsoleCursorInfo;
  26096.   {$EXTERNALSYM _CONSOLE_CURSOR_INFO}
  26097.   _CONSOLE_CURSOR_INFO = packed record
  26098.     dwSize: DWORD;
  26099.     bVisible: BOOL;
  26100.   end;
  26101.   TConsoleCursorInfo = _CONSOLE_CURSOR_INFO;
  26102.   {$EXTERNALSYM CONSOLE_CURSOR_INFO}
  26103.   CONSOLE_CURSOR_INFO = _CONSOLE_CURSOR_INFO;
  26104.  
  26105.  
  26106.  
  26107.   TFNHandlerRoutine = TFarProc;
  26108.  
  26109. const
  26110.   {$EXTERNALSYM CTRL_C_EVENT}
  26111.   CTRL_C_EVENT = 0;
  26112.   {$EXTERNALSYM CTRL_BREAK_EVENT}
  26113.   CTRL_BREAK_EVENT = 1;
  26114.   {$EXTERNALSYM CTRL_CLOSE_EVENT}
  26115.   CTRL_CLOSE_EVENT = 2;
  26116.   { 3 is reserved! }
  26117.   { 4 is reserved! }
  26118.  
  26119.   {$EXTERNALSYM CTRL_LOGOFF_EVENT}
  26120.   CTRL_LOGOFF_EVENT = 5;
  26121.   {$EXTERNALSYM CTRL_SHUTDOWN_EVENT}
  26122.   CTRL_SHUTDOWN_EVENT = 6;
  26123.   {$EXTERNALSYM ENABLE_PROCESSED_INPUT}
  26124.   ENABLE_PROCESSED_INPUT = 1;     {  Input Mode flags: }
  26125.   {$EXTERNALSYM ENABLE_LINE_INPUT}
  26126.   ENABLE_LINE_INPUT = 2;
  26127.   {$EXTERNALSYM ENABLE_ECHO_INPUT}
  26128.   ENABLE_ECHO_INPUT = 4;
  26129.   {$EXTERNALSYM ENABLE_WINDOW_INPUT}
  26130.   ENABLE_WINDOW_INPUT = 8;
  26131.   {$EXTERNALSYM ENABLE_MOUSE_INPUT}
  26132.   ENABLE_MOUSE_INPUT = $10;
  26133.   {$EXTERNALSYM ENABLE_PROCESSED_OUTPUT}
  26134.   ENABLE_PROCESSED_OUTPUT = 1;     { Output Mode flags: }
  26135.   {$EXTERNALSYM ENABLE_WRAP_AT_EOL_OUTPUT}
  26136.   ENABLE_WRAP_AT_EOL_OUTPUT = 2;
  26137.  
  26138. { direct API definitions. }
  26139. {$EXTERNALSYM PeekConsoleInputA}
  26140. function PeekConsoleInputA(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  26141.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  26142. {$EXTERNALSYM PeekConsoleInputW}
  26143. function PeekConsoleInputW(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  26144.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  26145. {$EXTERNALSYM PeekConsoleInput}
  26146. function PeekConsoleInput(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  26147.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  26148. {$EXTERNALSYM ReadConsoleInputA}
  26149. function ReadConsoleInputA(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  26150.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  26151. {$EXTERNALSYM ReadConsoleInputW}
  26152. function ReadConsoleInputW(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  26153.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  26154. {$EXTERNALSYM ReadConsoleInput}
  26155. function ReadConsoleInput(hConsoleInput: THandle; var lpBuffer: TInputRecord;
  26156.   nLength: DWORD; var lpNumberOfEventsRead: DWORD): BOOL; stdcall;
  26157. {$EXTERNALSYM WriteConsoleInputA}
  26158. function WriteConsoleInputA(hConsoleInput: THandle; const lpBuffer: TInputRecord;
  26159.   nLength: DWORD; var lpNumberOfEventsWritten: DWORD): BOOL; stdcall;
  26160. {$EXTERNALSYM WriteConsoleInputW}
  26161. function WriteConsoleInputW(hConsoleInput: THandle; const lpBuffer: TInputRecord;
  26162.   nLength: DWORD; var lpNumberOfEventsWritten: DWORD): BOOL; stdcall;
  26163. {$EXTERNALSYM WriteConsoleInput}
  26164. function WriteConsoleInput(hConsoleInput: THandle; const lpBuffer: TInputRecord;
  26165.   nLength: DWORD; var lpNumberOfEventsWritten: DWORD): BOOL; stdcall;
  26166. {$EXTERNALSYM ReadConsoleOutputA}
  26167. function ReadConsoleOutputA(hConsoleOutput: THandle; lpBuffer: Pointer;
  26168.   dwBufferSize, dwBufferCoord: TCoord; var lpReadRegion: TSmallRect): BOOL; stdcall;
  26169. {$EXTERNALSYM ReadConsoleOutputW}
  26170. function ReadConsoleOutputW(hConsoleOutput: THandle; lpBuffer: Pointer;
  26171.   dwBufferSize, dwBufferCoord: TCoord; var lpReadRegion: TSmallRect): BOOL; stdcall;
  26172. {$EXTERNALSYM ReadConsoleOutput}
  26173. function ReadConsoleOutput(hConsoleOutput: THandle; lpBuffer: Pointer;
  26174.   dwBufferSize, dwBufferCoord: TCoord; var lpReadRegion: TSmallRect): BOOL; stdcall;
  26175. {$EXTERNALSYM WriteConsoleOutputA}
  26176. function WriteConsoleOutputA(hConsoleOutput: THandle; lpBuffer: Pointer;
  26177.   dwBufferSize, dwBufferCoord: TCoord; var lpWriteRegion: TSmallRect): BOOL; stdcall;
  26178. {$EXTERNALSYM WriteConsoleOutputW}
  26179. function WriteConsoleOutputW(hConsoleOutput: THandle; lpBuffer: Pointer;
  26180.   dwBufferSize, dwBufferCoord: TCoord; var lpWriteRegion: TSmallRect): BOOL; stdcall;
  26181. {$EXTERNALSYM WriteConsoleOutput}
  26182. function WriteConsoleOutput(hConsoleOutput: THandle; lpBuffer: Pointer;
  26183.   dwBufferSize, dwBufferCoord: TCoord; var lpWriteRegion: TSmallRect): BOOL; stdcall;
  26184. {$EXTERNALSYM ReadConsoleOutputCharacterA}
  26185. function ReadConsoleOutputCharacterA(hConsoleOutput: THandle; lpCharacter: PAnsiChar;
  26186.   nLength: DWORD; dwReadCoord: TCoord; var lpNumberOfCharsRead: DWORD): BOOL; stdcall;
  26187. {$EXTERNALSYM ReadConsoleOutputCharacterW}
  26188. function ReadConsoleOutputCharacterW(hConsoleOutput: THandle; lpCharacter: PAnsiChar;
  26189.   nLength: DWORD; dwReadCoord: TCoord; var lpNumberOfCharsRead: DWORD): BOOL; stdcall;
  26190. {$EXTERNALSYM ReadConsoleOutputCharacter}
  26191. function ReadConsoleOutputCharacter(hConsoleOutput: THandle; lpCharacter: PAnsiChar;
  26192.   nLength: DWORD; dwReadCoord: TCoord; var lpNumberOfCharsRead: DWORD): BOOL; stdcall;
  26193. {$EXTERNALSYM ReadConsoleOutputAttribute}
  26194. function ReadConsoleOutputAttribute(hConsoleOutput: THandle; lpAttribute: Pointer;
  26195.   nLength: DWORD; dwReadCoord: TCoord; var lpNumberOfAttrsRead: DWORD): BOOL; stdcall;
  26196. {$EXTERNALSYM WriteConsoleOutputCharacterA}
  26197. function WriteConsoleOutputCharacterA(hConsoleOutput: THandle;lpCharacter: PAnsiChar;
  26198.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  26199. {$EXTERNALSYM WriteConsoleOutputCharacterW}
  26200. function WriteConsoleOutputCharacterW(hConsoleOutput: THandle;lpCharacter: PWideChar;
  26201.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  26202. {$EXTERNALSYM WriteConsoleOutputCharacter}
  26203. function WriteConsoleOutputCharacter(hConsoleOutput: THandle;lpCharacter: PChar;
  26204.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  26205. {$EXTERNALSYM WriteConsoleOutputAttribute}
  26206. function WriteConsoleOutputAttribute(hConsoleOutput: THandle; lpAttribute: Pointer;
  26207.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfAttrsWritten: DWORD): BOOL; stdcall;
  26208. {$EXTERNALSYM FillConsoleOutputCharacterA}
  26209. function FillConsoleOutputCharacterA(hConsoleOutput: THandle; cCharacter: AnsiChar;
  26210.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  26211. {$EXTERNALSYM FillConsoleOutputCharacterW}
  26212. function FillConsoleOutputCharacterW(hConsoleOutput: THandle; cCharacter: WideChar;
  26213.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  26214. {$EXTERNALSYM FillConsoleOutputCharacter}
  26215. function FillConsoleOutputCharacter(hConsoleOutput: THandle; cCharacter: Char;
  26216.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfCharsWritten: DWORD): BOOL; stdcall;
  26217. {$EXTERNALSYM FillConsoleOutputAttribute}
  26218. function FillConsoleOutputAttribute(hConsoleOutput: THandle; wAttribute: Word;
  26219.   nLength: DWORD; dwWriteCoord: TCoord; var lpNumberOfAttrsWritten: DWORD): BOOL; stdcall;
  26220. {$EXTERNALSYM GetConsoleMode}
  26221. function GetConsoleMode(hConsoleHandle: THandle; var lpMode: DWORD): BOOL; stdcall;
  26222. {$EXTERNALSYM GetNumberOfConsoleInputEvents}
  26223. function GetNumberOfConsoleInputEvents(hConsoleInput: THandle;
  26224.   var lpNumberOfEvents: DWORD): BOOL; stdcall;
  26225. {$EXTERNALSYM GetConsoleScreenBufferInfo}
  26226. function GetConsoleScreenBufferInfo(hConsoleOutput: THandle;
  26227.   var lpConsoleScreenBufferInfo: TConsoleScreenBufferInfo): BOOL; stdcall;
  26228. {$EXTERNALSYM GetLargestConsoleWindowSize}
  26229. function GetLargestConsoleWindowSize(hConsoleOutput: THandle): TCoord; stdcall;
  26230. {$EXTERNALSYM GetConsoleCursorInfo}
  26231. function GetConsoleCursorInfo(hConsoleOutput: THandle;
  26232.   var lpConsoleCursorInfo: TConsoleCursorInfo): BOOL; stdcall;
  26233. {$EXTERNALSYM GetNumberOfConsoleMouseButtons}
  26234. function GetNumberOfConsoleMouseButtons(var lpNumberOfMouseButtons: DWORD): BOOL; stdcall;
  26235. {$EXTERNALSYM SetConsoleMode}
  26236. function SetConsoleMode(hConsoleHandle: THandle; dwMode: DWORD): BOOL; stdcall;
  26237. {$EXTERNALSYM SetConsoleActiveScreenBuffer}
  26238. function SetConsoleActiveScreenBuffer(hConsoleOutput: THandle): BOOL; stdcall;
  26239. {$EXTERNALSYM FlushConsoleInputBuffer}
  26240. function FlushConsoleInputBuffer(hConsoleInput: THandle): BOOL; stdcall;
  26241. {$EXTERNALSYM SetConsoleScreenBufferSize}
  26242. function SetConsoleScreenBufferSize(hConsoleOutput: THandle; dwSize: TCoord): BOOL; stdcall;
  26243. {$EXTERNALSYM SetConsoleCursorPosition}
  26244. function SetConsoleCursorPosition(hConsoleOutput: THandle; dwCursorPosition: TCoord): BOOL; stdcall;
  26245. {$EXTERNALSYM SetConsoleCursorInfo}
  26246. function SetConsoleCursorInfo(hConsoleOutput: THandle;
  26247.   const lpConsoleCursorInfo: TConsoleCursorInfo): BOOL; stdcall;
  26248. {$EXTERNALSYM ScrollConsoleScreenBufferA}
  26249. function ScrollConsoleScreenBufferA(hConsoleOutput: THandle;
  26250.   const lpScrollRectangle: TSmallRect; lpClipRectangle: PSmallRect;
  26251.   dwDestinationOrigin: TCoord; var lpFill: TCharInfo): BOOL; stdcall;
  26252. {$EXTERNALSYM ScrollConsoleScreenBufferW}
  26253. function ScrollConsoleScreenBufferW(hConsoleOutput: THandle;
  26254.   const lpScrollRectangle: TSmallRect; lpClipRectangle: PSmallRect;
  26255.   dwDestinationOrigin: TCoord; var lpFill: TCharInfo): BOOL; stdcall;
  26256. {$EXTERNALSYM ScrollConsoleScreenBuffer}
  26257. function ScrollConsoleScreenBuffer(hConsoleOutput: THandle;
  26258.   const lpScrollRectangle: TSmallRect; lpClipRectangle: PSmallRect;
  26259.   dwDestinationOrigin: TCoord; var lpFill: TCharInfo): BOOL; stdcall;
  26260. {$EXTERNALSYM SetConsoleWindowInfo}
  26261. function SetConsoleWindowInfo(hConsoleOutput: THandle; bAbsolute: BOOL;
  26262.   const lpConsoleWindow: TSmallRect): BOOL; stdcall;
  26263. {$EXTERNALSYM SetConsoleTextAttribute}
  26264. function SetConsoleTextAttribute(hConsoleOutput: THandle; wAttributes: Word): BOOL; stdcall;
  26265. {$EXTERNALSYM SetConsoleCtrlHandler}
  26266. function SetConsoleCtrlHandler(HandlerRoutine: TFNHandlerRoutine; Add: BOOL): BOOL; stdcall;
  26267. {$EXTERNALSYM GenerateConsoleCtrlEvent}
  26268. function GenerateConsoleCtrlEvent(dwCtrlEvent: DWORD; dwProcessGroupId: DWORD): BOOL; stdcall;
  26269. {$EXTERNALSYM AllocConsole}
  26270. function AllocConsole: BOOL; stdcall;
  26271. {$EXTERNALSYM FreeConsole}
  26272. function FreeConsole: BOOL; stdcall;
  26273. {$EXTERNALSYM GetConsoleTitleA}
  26274. function GetConsoleTitleA(lpConsoleTitle: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  26275. {$EXTERNALSYM GetConsoleTitleW}
  26276. function GetConsoleTitleW(lpConsoleTitle: PWideChar; nSize: DWORD): DWORD; stdcall;
  26277. {$EXTERNALSYM GetConsoleTitle}
  26278. function GetConsoleTitle(lpConsoleTitle: PChar; nSize: DWORD): DWORD; stdcall;
  26279. {$EXTERNALSYM SetConsoleTitleA}
  26280. function SetConsoleTitleA(lpConsoleTitle: PAnsiChar): BOOL; stdcall;
  26281. {$EXTERNALSYM SetConsoleTitleW}
  26282. function SetConsoleTitleW(lpConsoleTitle: PWideChar): BOOL; stdcall;
  26283. {$EXTERNALSYM SetConsoleTitle}
  26284. function SetConsoleTitle(lpConsoleTitle: PChar): BOOL; stdcall;
  26285. {$EXTERNALSYM ReadConsoleA}
  26286. function ReadConsoleA(hConsoleInput: THandle; lpBuffer: Pointer;
  26287.   nNumberOfCharsToRead: DWORD; var lpNumberOfCharsRead: DWORD; lpReserved: Pointer): BOOL; stdcall;
  26288. {$EXTERNALSYM ReadConsoleW}
  26289. function ReadConsoleW(hConsoleInput: THandle; lpBuffer: Pointer;
  26290.   nNumberOfCharsToRead: DWORD; var lpNumberOfCharsRead: DWORD; lpReserved: Pointer): BOOL; stdcall;
  26291. {$EXTERNALSYM ReadConsole}
  26292. function ReadConsole(hConsoleInput: THandle; lpBuffer: Pointer;
  26293.   nNumberOfCharsToRead: DWORD; var lpNumberOfCharsRead: DWORD; lpReserved: Pointer): BOOL; stdcall;
  26294. {$EXTERNALSYM WriteConsoleA}
  26295. function WriteConsoleA(hConsoleOutput: THandle; const lpBuffer: Pointer;
  26296.   nNumberOfCharsToWrite: DWORD; var lpNumberOfCharsWritten: DWORD; lpReserved: Pointer): BOOL; stdcall;
  26297. {$EXTERNALSYM WriteConsoleW}
  26298. function WriteConsoleW(hConsoleOutput: THandle; const lpBuffer: Pointer;
  26299.   nNumberOfCharsToWrite: DWORD; var lpNumberOfCharsWritten: DWORD; lpReserved: Pointer): BOOL; stdcall;
  26300. {$EXTERNALSYM WriteConsole}
  26301. function WriteConsole(hConsoleOutput: THandle; const lpBuffer: Pointer;
  26302.   nNumberOfCharsToWrite: DWORD; var lpNumberOfCharsWritten: DWORD; lpReserved: Pointer): BOOL; stdcall;
  26303.  
  26304. const
  26305.   {$EXTERNALSYM CONSOLE_TEXTMODE_BUFFER}
  26306.   CONSOLE_TEXTMODE_BUFFER = 1;
  26307.  
  26308. {$EXTERNALSYM CreateConsoleScreenBuffer}
  26309. function CreateConsoleScreenBuffer(dwDesiredAccess, dwShareMode: DWORD;
  26310.   lpSecurityAttributes: PSecurityAttributes; dwFlags: DWORD; lpScreenBufferData: Pointer): THandle; stdcall;
  26311. {$EXTERNALSYM GetConsoleCP}
  26312. function GetConsoleCP: UINT; stdcall;
  26313. {$EXTERNALSYM SetConsoleCP}
  26314. function SetConsoleCP(wCodePageID: UINT): BOOL; stdcall;
  26315. {$EXTERNALSYM GetConsoleOutputCP}
  26316. function GetConsoleOutputCP: UINT; stdcall;
  26317. {$EXTERNALSYM SetConsoleOutputCP}
  26318. function SetConsoleOutputCP(wCodePageID: UINT): BOOL; stdcall;
  26319.  
  26320.  
  26321. { Translated from WINVER.H }
  26322.  
  26323. { Version management functions, types, and definitions
  26324.   Include file for VER.DLL.  This library is designed to allow version
  26325.   stamping of Windows executable files and of special .VER files for
  26326.   DOS executable files. }
  26327.  
  26328. const
  26329. { Symbols }
  26330.  
  26331.   {$EXTERNALSYM VS_FILE_INFO}
  26332.   VS_FILE_INFO = RT_VERSION;
  26333.   {$EXTERNALSYM VS_VERSION_INFO}
  26334.   VS_VERSION_INFO = 1;
  26335.   {$EXTERNALSYM VS_USER_DEFINED}
  26336.   VS_USER_DEFINED = 100;
  26337.  
  26338. { VS_VERSION.dwFileFlags }
  26339.  
  26340.   {$EXTERNALSYM VS_FFI_SIGNATURE}
  26341.   VS_FFI_SIGNATURE = DWORD($FEEF04BD);
  26342.   {$EXTERNALSYM VS_FFI_STRUCVERSION}
  26343.   VS_FFI_STRUCVERSION = $10000;
  26344.   {$EXTERNALSYM VS_FFI_FILEFLAGSMASK}
  26345.   VS_FFI_FILEFLAGSMASK = 63;
  26346.  
  26347. { VS_VERSION.dwFileFlags }
  26348.  
  26349.   {$EXTERNALSYM VS_FF_DEBUG}
  26350.   VS_FF_DEBUG = 1;
  26351.   {$EXTERNALSYM VS_FF_PRERELEASE}
  26352.   VS_FF_PRERELEASE = 2;
  26353.   {$EXTERNALSYM VS_FF_PATCHED}
  26354.   VS_FF_PATCHED = 4;
  26355.   {$EXTERNALSYM VS_FF_PRIVATEBUILD}
  26356.   VS_FF_PRIVATEBUILD = 8;
  26357.   {$EXTERNALSYM VS_FF_INFOINFERRED}
  26358.   VS_FF_INFOINFERRED = $10;
  26359.   {$EXTERNALSYM VS_FF_SPECIALBUILD}
  26360.   VS_FF_SPECIALBUILD = $20;
  26361.  
  26362. { VS_VERSION.dwFileOS }
  26363.  
  26364.   {$EXTERNALSYM VOS_UNKNOWN}
  26365.   VOS_UNKNOWN = 0;
  26366.   {$EXTERNALSYM VOS_DOS}
  26367.   VOS_DOS = $10000;
  26368.   {$EXTERNALSYM VOS_OS216}
  26369.   VOS_OS216 = $20000;
  26370.   {$EXTERNALSYM VOS_OS232}
  26371.   VOS_OS232 = $30000;
  26372.   {$EXTERNALSYM VOS_NT}
  26373.   VOS_NT = $40000;
  26374.  
  26375.   {$EXTERNALSYM VOS__BASE}
  26376.   VOS__BASE = 0;
  26377.   {$EXTERNALSYM VOS__WINDOWS16}
  26378.   VOS__WINDOWS16 = 1;
  26379.   {$EXTERNALSYM VOS__PM16}
  26380.   VOS__PM16 = 2;
  26381.   {$EXTERNALSYM VOS__PM32}
  26382.   VOS__PM32 = 3;
  26383.   {$EXTERNALSYM VOS__WINDOWS32}
  26384.   VOS__WINDOWS32 = 4;
  26385.  
  26386.   {$EXTERNALSYM VOS_DOS_WINDOWS16}
  26387.   VOS_DOS_WINDOWS16 = $10001;
  26388.   {$EXTERNALSYM VOS_DOS_WINDOWS32}
  26389.   VOS_DOS_WINDOWS32 = $10004;
  26390.   {$EXTERNALSYM VOS_OS216_PM16}
  26391.   VOS_OS216_PM16 = $20002;
  26392.   {$EXTERNALSYM VOS_OS232_PM32}
  26393.   VOS_OS232_PM32 = $30003;
  26394.   {$EXTERNALSYM VOS_NT_WINDOWS32}
  26395.   VOS_NT_WINDOWS32 = $40004;
  26396.  
  26397. { VS_VERSION.dwFileType }
  26398.  
  26399.   {$EXTERNALSYM VFT_UNKNOWN}
  26400.   VFT_UNKNOWN = 0;
  26401.   {$EXTERNALSYM VFT_APP}
  26402.   VFT_APP = 1;
  26403.   {$EXTERNALSYM VFT_DLL}
  26404.   VFT_DLL = 2;
  26405.   {$EXTERNALSYM VFT_DRV}
  26406.   VFT_DRV = 3;
  26407.   {$EXTERNALSYM VFT_FONT}
  26408.   VFT_FONT = 4;
  26409.   {$EXTERNALSYM VFT_VXD}
  26410.   VFT_VXD = 5;
  26411.   {$EXTERNALSYM VFT_STATIC_LIB}
  26412.   VFT_STATIC_LIB = 7;
  26413.  
  26414. { VS_VERSION.dwFileSubtype for VFT_WINDOWS_DRV }
  26415.  
  26416.   {$EXTERNALSYM VFT2_UNKNOWN}
  26417.   VFT2_UNKNOWN = 0;
  26418.   {$EXTERNALSYM VFT2_DRV_PRINTER}
  26419.   VFT2_DRV_PRINTER = 1;
  26420.   {$EXTERNALSYM VFT2_DRV_KEYBOARD}
  26421.   VFT2_DRV_KEYBOARD = 2;
  26422.   {$EXTERNALSYM VFT2_DRV_LANGUAGE}
  26423.   VFT2_DRV_LANGUAGE = 3;
  26424.   {$EXTERNALSYM VFT2_DRV_DISPLAY}
  26425.   VFT2_DRV_DISPLAY = 4;
  26426.   {$EXTERNALSYM VFT2_DRV_MOUSE}
  26427.   VFT2_DRV_MOUSE = 5;
  26428.   {$EXTERNALSYM VFT2_DRV_NETWORK}
  26429.   VFT2_DRV_NETWORK = 6;
  26430.   {$EXTERNALSYM VFT2_DRV_SYSTEM}
  26431.   VFT2_DRV_SYSTEM = 7;
  26432.   {$EXTERNALSYM VFT2_DRV_INSTALLABLE}
  26433.   VFT2_DRV_INSTALLABLE = 8;
  26434.   {$EXTERNALSYM VFT2_DRV_SOUND}
  26435.   VFT2_DRV_SOUND = 9;
  26436.   {$EXTERNALSYM VFT2_DRV_COMM}
  26437.   VFT2_DRV_COMM = 10;
  26438.  
  26439. { VS_VERSION.dwFileSubtype for VFT_WINDOWS_FONT }
  26440.  
  26441.   {$EXTERNALSYM VFT2_FONT_RASTER}
  26442.   VFT2_FONT_RASTER = 1;
  26443.   {$EXTERNALSYM VFT2_FONT_VECTOR}
  26444.   VFT2_FONT_VECTOR = 2;
  26445.   {$EXTERNALSYM VFT2_FONT_TRUETYPE}
  26446.   VFT2_FONT_TRUETYPE = 3;
  26447.  
  26448. { VerFindFile() flags }
  26449.  
  26450.   {$EXTERNALSYM VFFF_ISSHAREDFILE}
  26451.   VFFF_ISSHAREDFILE = 1;
  26452.  
  26453.   {$EXTERNALSYM VFF_CURNEDEST}
  26454.   VFF_CURNEDEST = 1;
  26455.   {$EXTERNALSYM VFF_FILEINUSE}
  26456.   VFF_FILEINUSE = 2;
  26457.   {$EXTERNALSYM VFF_BUFFTOOSMALL}
  26458.   VFF_BUFFTOOSMALL = 4;
  26459.  
  26460. { VerInstallFile() flags }
  26461.  
  26462.   {$EXTERNALSYM VIFF_FORCEINSTALL}
  26463.   VIFF_FORCEINSTALL = 1;
  26464.   {$EXTERNALSYM VIFF_DONTDELETEOLD}
  26465.   VIFF_DONTDELETEOLD = 2;
  26466.  
  26467.   {$EXTERNALSYM VIF_TEMPFILE}
  26468.   VIF_TEMPFILE = 1;
  26469.   {$EXTERNALSYM VIF_MISMATCH}
  26470.   VIF_MISMATCH = 2;
  26471.   {$EXTERNALSYM VIF_SRCOLD}
  26472.   VIF_SRCOLD = 4;
  26473.  
  26474.   {$EXTERNALSYM VIF_DIFFLANG}
  26475.   VIF_DIFFLANG = 8;
  26476.   {$EXTERNALSYM VIF_DIFFCODEPG}
  26477.   VIF_DIFFCODEPG = $10;
  26478.   {$EXTERNALSYM VIF_DIFFTYPE}
  26479.   VIF_DIFFTYPE = $20;
  26480.  
  26481.   {$EXTERNALSYM VIF_WRITEPROT}
  26482.   VIF_WRITEPROT = $40;
  26483.   {$EXTERNALSYM VIF_FILEINUSE}
  26484.   VIF_FILEINUSE = $80;
  26485.   {$EXTERNALSYM VIF_OUTOFSPACE}
  26486.   VIF_OUTOFSPACE = $100;
  26487.   {$EXTERNALSYM VIF_ACCESSVIOLATION}
  26488.   VIF_ACCESSVIOLATION = $200;
  26489.   {$EXTERNALSYM VIF_SHARINGVIOLATION}
  26490.   VIF_SHARINGVIOLATION = $400;
  26491.   {$EXTERNALSYM VIF_CANNOTCREATE}
  26492.   VIF_CANNOTCREATE = $800;
  26493.   {$EXTERNALSYM VIF_CANNOTDELETE}
  26494.   VIF_CANNOTDELETE = $1000;
  26495.   {$EXTERNALSYM VIF_CANNOTRENAME}
  26496.   VIF_CANNOTRENAME = $2000;
  26497.   {$EXTERNALSYM VIF_CANNOTDELETECUR}
  26498.   VIF_CANNOTDELETECUR = $4000;
  26499.   {$EXTERNALSYM VIF_OUTOFMEMORY}
  26500.   VIF_OUTOFMEMORY = $8000;
  26501.  
  26502.   {$EXTERNALSYM VIF_CANNOTREADSRC}
  26503.   VIF_CANNOTREADSRC = $10000;
  26504.   {$EXTERNALSYM VIF_CANNOTREADDST}
  26505.   VIF_CANNOTREADDST = $20000;
  26506.  
  26507.   {$EXTERNALSYM VIF_BUFFTOOSMALL}
  26508.   VIF_BUFFTOOSMALL = $40000;
  26509.  
  26510. type
  26511.   PVSFixedFileInfo = ^TVSFixedFileInfo;
  26512.   {$EXTERNALSYM tagVS_FIXEDFILEINFO}
  26513.   tagVS_FIXEDFILEINFO = packed record
  26514.     dwSignature: DWORD;        { e.g. $feef04bd }
  26515.     dwStrucVersion: DWORD;     { e.g. $00000042 = "0.42" }
  26516.     dwFileVersionMS: DWORD;    { e.g. $00030075 = "3.75" }
  26517.     dwFileVersionLS: DWORD;    { e.g. $00000031 = "0.31" }
  26518.     dwProductVersionMS: DWORD; { e.g. $00030010 = "3.10" }
  26519.     dwProductVersionLS: DWORD; { e.g. $00000031 = "0.31" }
  26520.     dwFileFlagsMask: DWORD;    { = $3F for version "0.42" }
  26521.     dwFileFlags: DWORD;        { e.g. VFF_DEBUG | VFF_PRERELEASE }
  26522.     dwFileOS: DWORD;           { e.g. VOS_DOS_WINDOWS16 }
  26523.     dwFileType: DWORD;         { e.g. VFT_DRIVER }
  26524.     dwFileSubtype: DWORD;      { e.g. VFT2_DRV_KEYBOARD }
  26525.     dwFileDateMS: DWORD;       { e.g. 0 }
  26526.     dwFileDateLS: DWORD;       { e.g. 0 }
  26527.   end;
  26528.   TVSFixedFileInfo = tagVS_FIXEDFILEINFO;
  26529.   {$EXTERNALSYM VS_FIXEDFILEINFO}
  26530.   VS_FIXEDFILEINFO = tagVS_FIXEDFILEINFO;
  26531.  
  26532. {$EXTERNALSYM VerFindFileA}
  26533. function VerFindFileA(uFlags: DWORD; szFileName, szWinDir, szAppDir, szCurDir: PAnsiChar;
  26534.   var lpuCurDirLen: UINT; szDestDir: PAnsiChar; var lpuDestDirLen: UINT): DWORD; stdcall;
  26535. {$EXTERNALSYM VerFindFileW}
  26536. function VerFindFileW(uFlags: DWORD; szFileName, szWinDir, szAppDir, szCurDir: PWideChar;
  26537.   var lpuCurDirLen: UINT; szDestDir: PWideChar; var lpuDestDirLen: UINT): DWORD; stdcall;
  26538. {$EXTERNALSYM VerFindFile}
  26539. function VerFindFile(uFlags: DWORD; szFileName, szWinDir, szAppDir, szCurDir: PChar;
  26540.   var lpuCurDirLen: UINT; szDestDir: PChar; var lpuDestDirLen: UINT): DWORD; stdcall;
  26541. {$EXTERNALSYM VerInstallFileA}
  26542. function VerInstallFileA(uFlags: DWORD;
  26543.   szSrcFileName, szDestFileName, szSrcDir, szDestDir, szCurDir, szTmpFile: PAnsiChar;
  26544.   var lpuTmpFileLen: UINT): DWORD; stdcall;
  26545. {$EXTERNALSYM VerInstallFileW}
  26546. function VerInstallFileW(uFlags: DWORD;
  26547.   szSrcFileName, szDestFileName, szSrcDir, szDestDir, szCurDir, szTmpFile: PWideChar;
  26548.   var lpuTmpFileLen: UINT): DWORD; stdcall;
  26549. {$EXTERNALSYM VerInstallFile}
  26550. function VerInstallFile(uFlags: DWORD;
  26551.   szSrcFileName, szDestFileName, szSrcDir, szDestDir, szCurDir, szTmpFile: PChar;
  26552.   var lpuTmpFileLen: UINT): DWORD; stdcall;
  26553.  
  26554. {$EXTERNALSYM GetFileVersionInfoSizeA}
  26555. function GetFileVersionInfoSizeA(lptstrFilename: PAnsiChar; var lpdwHandle: DWORD): DWORD; stdcall;
  26556. {$EXTERNALSYM GetFileVersionInfoSizeW}
  26557. function GetFileVersionInfoSizeW(lptstrFilename: PWideChar; var lpdwHandle: DWORD): DWORD; stdcall;
  26558. {$EXTERNALSYM GetFileVersionInfoSize}
  26559. function GetFileVersionInfoSize(lptstrFilename: PChar; var lpdwHandle: DWORD): DWORD; stdcall;
  26560. {$EXTERNALSYM GetFileVersionInfoA}
  26561. function GetFileVersionInfoA(lptstrFilename: PAnsiChar; dwHandle, dwLen: DWORD;
  26562.   lpData: Pointer): BOOL; stdcall;
  26563. {$EXTERNALSYM GetFileVersionInfoW}
  26564. function GetFileVersionInfoW(lptstrFilename: PWideChar; dwHandle, dwLen: DWORD;
  26565.   lpData: Pointer): BOOL; stdcall;
  26566. {$EXTERNALSYM GetFileVersionInfo}
  26567. function GetFileVersionInfo(lptstrFilename: PChar; dwHandle, dwLen: DWORD;
  26568.   lpData: Pointer): BOOL; stdcall;
  26569. {$EXTERNALSYM VerLanguageNameA}
  26570. function VerLanguageNameA(wLang: DWORD; szLang: PAnsiChar; nSize: DWORD): DWORD; stdcall;
  26571. {$EXTERNALSYM VerLanguageNameW}
  26572. function VerLanguageNameW(wLang: DWORD; szLang: PWideChar; nSize: DWORD): DWORD; stdcall;
  26573. {$EXTERNALSYM VerLanguageName}
  26574. function VerLanguageName(wLang: DWORD; szLang: PChar; nSize: DWORD): DWORD; stdcall;
  26575. {$EXTERNALSYM VerQueryValueA}
  26576. function VerQueryValueA(pBlock: Pointer; lpSubBlock: PAnsiChar;
  26577.   var lplpBuffer: Pointer; var puLen: UINT): BOOL; stdcall;
  26578. {$EXTERNALSYM VerQueryValueW}
  26579. function VerQueryValueW(pBlock: Pointer; lpSubBlock: PWideChar;
  26580.   var lplpBuffer: Pointer; var puLen: UINT): BOOL; stdcall;
  26581. {$EXTERNALSYM VerQueryValue}
  26582. function VerQueryValue(pBlock: Pointer; lpSubBlock: PChar;
  26583.   var lplpBuffer: Pointer; var puLen: UINT): BOOL; stdcall;
  26584.  
  26585.  
  26586. { Translated from WINREG.H }
  26587.  
  26588. { This module contains the function prototypes and constant, type and
  26589.    structure definitions for the Windows 32-Bit Registry API. }
  26590.  
  26591. type
  26592.   {$EXTERNALSYM REGSAM}
  26593.   REGSAM = ACCESS_MASK;  { Requested Key access mask type. }
  26594.  
  26595.  
  26596.  
  26597.  
  26598.  
  26599.  
  26600.  
  26601.   {$EXTERNALSYM HKEY}
  26602.   HKEY = type LongWord;
  26603.   PHKEY = ^HKEY;
  26604.  
  26605. const
  26606. { Reserved Key Handles. }
  26607.  
  26608.   {$EXTERNALSYM HKEY_CLASSES_ROOT}
  26609.   HKEY_CLASSES_ROOT     = DWORD($80000000);
  26610.   {$EXTERNALSYM HKEY_CURRENT_USER}
  26611.   HKEY_CURRENT_USER     = DWORD($80000001);
  26612.   {$EXTERNALSYM HKEY_LOCAL_MACHINE}
  26613.   HKEY_LOCAL_MACHINE    = DWORD($80000002);
  26614.   {$EXTERNALSYM HKEY_USERS}
  26615.   HKEY_USERS            = DWORD($80000003);
  26616.   {$EXTERNALSYM HKEY_PERFORMANCE_DATA}
  26617.   HKEY_PERFORMANCE_DATA = DWORD($80000004);
  26618.   {$EXTERNALSYM HKEY_CURRENT_CONFIG}
  26619.   HKEY_CURRENT_CONFIG   = DWORD($80000005);
  26620.   {$EXTERNALSYM HKEY_DYN_DATA}
  26621.   HKEY_DYN_DATA         = DWORD($80000006);
  26622.  
  26623.  
  26624.   {$EXTERNALSYM PROVIDER_KEEPS_VALUE_LENGTH}
  26625.   PROVIDER_KEEPS_VALUE_LENGTH = 1;
  26626.  
  26627. type
  26628.   PValContext = ^TValContext;
  26629.   {$EXTERNALSYM val_context}
  26630.   val_context = packed record
  26631.     valuelen: Integer;       { the total length of this value }
  26632.     value_context: Pointer;  { provider's context }
  26633.     val_buff_ptr: Pointer;   { where in the ouput buffer the value is }
  26634.   end;
  26635.   TValContext = val_context;
  26636.  
  26637.  
  26638. type
  26639. { Provider supplied value/context.}
  26640.   PPValueA = ^TPValueA;
  26641.   PPValueW = ^TPValueW;
  26642.   PPValue = PPValueA;
  26643.   {$EXTERNALSYM pvalueA}
  26644.   pvalueA = packed record
  26645.     pv_valuename: PAnsiChar;           { The value name pointer }
  26646.     pv_valuelen: BOOL;
  26647.     pv_value_context: Pointer;
  26648.     pv_type: DWORD;
  26649.   end;
  26650.   {$EXTERNALSYM pvalueW}
  26651.   pvalueW = packed record
  26652.     pv_valuename: PWideChar;           { The value name pointer }
  26653.     pv_valuelen: BOOL;
  26654.     pv_value_context: Pointer;
  26655.     pv_type: DWORD;
  26656.   end;
  26657.   {$EXTERNALSYM pvalue}
  26658.   pvalue = pvalueA;
  26659.   TPValueA = pvalueA;
  26660.   TPValueW = pvalueW;
  26661.   TPValue = TPValueA;
  26662.  
  26663.  
  26664.  
  26665.  
  26666.  
  26667.   TFNQueryHandler = TFarProc;
  26668.   PFNQueryHandler = ^TFNQueryHandler;
  26669.  
  26670.   PProviderInfo = ^TProviderInfo;
  26671.   {$EXTERNALSYM provider_info}
  26672.   provider_info = packed record
  26673.     pi_R0_1val: PFNQueryHandler;
  26674.     pi_R0_allvals: PFNQueryHandler;
  26675.     pi_R3_1val: PFNQueryHandler;
  26676.     pi_R3_allvals: PFNQueryHandler;
  26677.     pi_flags: DWORD;              { capability flags (none defined yet). }
  26678.     pi_key_context: Pointer;
  26679.   end;
  26680.   TProviderInfo = provider_info;
  26681.   {$EXTERNALSYM REG_PROVIDER}
  26682.   REG_PROVIDER = provider_info;
  26683.   TRegProvider = TProviderInfo;
  26684.   PProvider = PProviderInfo;
  26685.  
  26686.   PValueEntA = ^TValueEntA;
  26687.   PValueEntW = ^TValueEntW;
  26688.   PValueEnt = PValueEntA;
  26689.   {$EXTERNALSYM value_entA}
  26690.   value_entA = packed record
  26691.     ve_valuename: PAnsiChar;
  26692.     ve_valuelen: DWORD;
  26693.     ve_valueptr: DWORD;
  26694.     ve_type: DWORD;
  26695.   end;
  26696.   {$EXTERNALSYM value_entW}
  26697.   value_entW = packed record
  26698.     ve_valuename: PWideChar;
  26699.     ve_valuelen: DWORD;
  26700.     ve_valueptr: DWORD;
  26701.     ve_type: DWORD;
  26702.   end;
  26703.   {$EXTERNALSYM value_ent}
  26704.   value_ent = value_entA;
  26705.   TValueEntA = value_entA;
  26706.   TValueEntW = value_entW;
  26707.   TValueEnt = TValueEntA;
  26708.   {$EXTERNALSYM VALENTA}
  26709.   VALENTA = value_entA;
  26710.   {$EXTERNALSYM VALENTW}
  26711.   VALENTW = value_entW;
  26712.   {$EXTERNALSYM VALENT}
  26713.   VALENT = VALENTA;
  26714.   TValEnt = TValueEnt;
  26715.   PValEnt = PValueEnt;
  26716.  
  26717.  
  26718. { Default values for parameters that do not exist in the Win 3.1
  26719.   compatible APIs. }
  26720.  
  26721. {$EXTERNALSYM RegCloseKey}
  26722. function RegCloseKey(hKey: HKEY): Longint; stdcall;
  26723.  
  26724. {$EXTERNALSYM RegConnectRegistryA}
  26725. function RegConnectRegistryA(lpMachineName: PAnsiChar; hKey: HKEY;
  26726.   var phkResult: HKEY): Longint; stdcall;
  26727. {$EXTERNALSYM RegConnectRegistryW}
  26728. function RegConnectRegistryW(lpMachineName: PWideChar; hKey: HKEY;
  26729.   var phkResult: HKEY): Longint; stdcall;
  26730. {$EXTERNALSYM RegConnectRegistry}
  26731. function RegConnectRegistry(lpMachineName: PChar; hKey: HKEY;
  26732.   var phkResult: HKEY): Longint; stdcall;
  26733. {$EXTERNALSYM RegCreateKeyA}
  26734. function RegCreateKeyA(hKey: HKEY; lpSubKey: PAnsiChar;
  26735.   var phkResult: HKEY): Longint; stdcall;
  26736. {$EXTERNALSYM RegCreateKeyW}
  26737. function RegCreateKeyW(hKey: HKEY; lpSubKey: PWideChar;
  26738.   var phkResult: HKEY): Longint; stdcall;
  26739. {$EXTERNALSYM RegCreateKey}
  26740. function RegCreateKey(hKey: HKEY; lpSubKey: PChar;
  26741.   var phkResult: HKEY): Longint; stdcall;
  26742. {$EXTERNALSYM RegCreateKeyExA}
  26743. function RegCreateKeyExA(hKey: HKEY; lpSubKey: PAnsiChar;
  26744.   Reserved: DWORD; lpClass: PAnsiChar; dwOptions: DWORD; samDesired: REGSAM;
  26745.   lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY;
  26746.   lpdwDisposition: PDWORD): Longint; stdcall;
  26747. {$EXTERNALSYM RegCreateKeyExW}
  26748. function RegCreateKeyExW(hKey: HKEY; lpSubKey: PWideChar;
  26749.   Reserved: DWORD; lpClass: PWideChar; dwOptions: DWORD; samDesired: REGSAM;
  26750.   lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY;
  26751.   lpdwDisposition: PDWORD): Longint; stdcall;
  26752. {$EXTERNALSYM RegCreateKeyEx}
  26753. function RegCreateKeyEx(hKey: HKEY; lpSubKey: PChar;
  26754.   Reserved: DWORD; lpClass: PChar; dwOptions: DWORD; samDesired: REGSAM;
  26755.   lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY;
  26756.   lpdwDisposition: PDWORD): Longint; stdcall;
  26757. {$EXTERNALSYM RegDeleteKeyA}
  26758. function RegDeleteKeyA(hKey: HKEY; lpSubKey: PAnsiChar): Longint; stdcall;
  26759. {$EXTERNALSYM RegDeleteKeyW}
  26760. function RegDeleteKeyW(hKey: HKEY; lpSubKey: PWideChar): Longint; stdcall;
  26761. {$EXTERNALSYM RegDeleteKey}
  26762. function RegDeleteKey(hKey: HKEY; lpSubKey: PChar): Longint; stdcall;
  26763. {$EXTERNALSYM RegDeleteValueA}
  26764. function RegDeleteValueA(hKey: HKEY; lpValueName: PAnsiChar): Longint; stdcall;
  26765. {$EXTERNALSYM RegDeleteValueW}
  26766. function RegDeleteValueW(hKey: HKEY; lpValueName: PWideChar): Longint; stdcall;
  26767. {$EXTERNALSYM RegDeleteValue}
  26768. function RegDeleteValue(hKey: HKEY; lpValueName: PChar): Longint; stdcall;
  26769. {$EXTERNALSYM RegEnumKeyA}
  26770. function RegEnumKeyA(hKey: HKEY; dwIndex: DWORD; lpName: PAnsiChar; cbName: DWORD): Longint; stdcall;
  26771. {$EXTERNALSYM RegEnumKeyW}
  26772. function RegEnumKeyW(hKey: HKEY; dwIndex: DWORD; lpName: PWideChar; cbName: DWORD): Longint; stdcall;
  26773. {$EXTERNALSYM RegEnumKey}
  26774. function RegEnumKey(hKey: HKEY; dwIndex: DWORD; lpName: PChar; cbName: DWORD): Longint; stdcall;
  26775. {$EXTERNALSYM RegEnumKeyExA}
  26776. function RegEnumKeyExA(hKey: HKEY; dwIndex: DWORD; lpName: PAnsiChar;
  26777.   var lpcbName: DWORD; lpReserved: Pointer; lpClass: PAnsiChar;
  26778.   lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; stdcall;
  26779. {$EXTERNALSYM RegEnumKeyExW}
  26780. function RegEnumKeyExW(hKey: HKEY; dwIndex: DWORD; lpName: PWideChar;
  26781.   var lpcbName: DWORD; lpReserved: Pointer; lpClass: PWideChar;
  26782.   lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; stdcall;
  26783. {$EXTERNALSYM RegEnumKeyEx}
  26784. function RegEnumKeyEx(hKey: HKEY; dwIndex: DWORD; lpName: PChar;
  26785.   var lpcbName: DWORD; lpReserved: Pointer; lpClass: PChar;
  26786.   lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; stdcall;
  26787. {$EXTERNALSYM RegEnumValueA}
  26788. function RegEnumValueA(hKey: HKEY; dwIndex: DWORD; lpValueName: PChar;
  26789.   var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD;
  26790.   lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  26791. {$EXTERNALSYM RegEnumValueW}
  26792. function RegEnumValueW(hKey: HKEY; dwIndex: DWORD; lpValueName: PChar;
  26793.   var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD;
  26794.   lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  26795. {$EXTERNALSYM RegEnumValue}
  26796. function RegEnumValue(hKey: HKEY; dwIndex: DWORD; lpValueName: PChar;
  26797.   var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD;
  26798.   lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  26799. {$EXTERNALSYM RegFlushKey}
  26800. function RegFlushKey(hKey: HKEY): Longint; stdcall;
  26801. {$EXTERNALSYM RegGetKeySecurity}
  26802. function RegGetKeySecurity(hKey: HKEY; SecurityInformation: SECURITY_INFORMATION;
  26803.   pSecurityDescriptor: PSecurityDescriptor; var lpcbSecurityDescriptor: DWORD): Longint; stdcall;
  26804. {$EXTERNALSYM RegLoadKeyA}
  26805. function RegLoadKeyA(hKey: HKEY; lpSubKey, lpFile: PAnsiChar): Longint; stdcall;
  26806. {$EXTERNALSYM RegLoadKeyW}
  26807. function RegLoadKeyW(hKey: HKEY; lpSubKey, lpFile: PWideChar): Longint; stdcall;
  26808. {$EXTERNALSYM RegLoadKey}
  26809. function RegLoadKey(hKey: HKEY; lpSubKey, lpFile: PChar): Longint; stdcall;
  26810. {$EXTERNALSYM RegNotifyChangeKeyValue}
  26811. function RegNotifyChangeKeyValue(hKey: HKEY; bWatchSubtree: BOOL;
  26812.   dwNotifyFilter: DWORD; hEvent: THandle; fAsynchronus: BOOL): Longint; stdcall;
  26813. {$EXTERNALSYM RegOpenKeyA}
  26814. function RegOpenKeyA(hKey: HKEY; lpSubKey: PAnsiChar; var phkResult: HKEY): Longint; stdcall;
  26815. {$EXTERNALSYM RegOpenKeyW}
  26816. function RegOpenKeyW(hKey: HKEY; lpSubKey: PWideChar; var phkResult: HKEY): Longint; stdcall;
  26817. {$EXTERNALSYM RegOpenKey}
  26818. function RegOpenKey(hKey: HKEY; lpSubKey: PChar; var phkResult: HKEY): Longint; stdcall;
  26819. {$EXTERNALSYM RegOpenKeyExA}
  26820. function RegOpenKeyExA(hKey: HKEY; lpSubKey: PAnsiChar;
  26821.   ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; stdcall;
  26822. {$EXTERNALSYM RegOpenKeyExW}
  26823. function RegOpenKeyExW(hKey: HKEY; lpSubKey: PWideChar;
  26824.   ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; stdcall;
  26825. {$EXTERNALSYM RegOpenKeyEx}
  26826. function RegOpenKeyEx(hKey: HKEY; lpSubKey: PChar;
  26827.   ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; stdcall;
  26828. {$EXTERNALSYM RegQueryInfoKeyA}
  26829. function RegQueryInfoKeyA(hKey: HKEY; lpClass: PChar;
  26830.   lpcbClass: PDWORD; lpReserved: Pointer;
  26831.   lpcSubKeys, lpcbMaxSubKeyLen, lpcbMaxClassLen, lpcValues,
  26832.   lpcbMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor: PDWORD;
  26833.   lpftLastWriteTime: PFileTime): Longint; stdcall;
  26834. {$EXTERNALSYM RegQueryInfoKeyW}
  26835. function RegQueryInfoKeyW(hKey: HKEY; lpClass: PChar;
  26836.   lpcbClass: PDWORD; lpReserved: Pointer;
  26837.   lpcSubKeys, lpcbMaxSubKeyLen, lpcbMaxClassLen, lpcValues,
  26838.   lpcbMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor: PDWORD;
  26839.   lpftLastWriteTime: PFileTime): Longint; stdcall;
  26840. {$EXTERNALSYM RegQueryInfoKey}
  26841. function RegQueryInfoKey(hKey: HKEY; lpClass: PChar;
  26842.   lpcbClass: PDWORD; lpReserved: Pointer;
  26843.   lpcSubKeys, lpcbMaxSubKeyLen, lpcbMaxClassLen, lpcValues,
  26844.   lpcbMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor: PDWORD;
  26845.   lpftLastWriteTime: PFileTime): Longint; stdcall;
  26846. {$EXTERNALSYM RegQueryValueA}
  26847. function RegQueryValueA(hKey: HKEY; lpSubKey: PAnsiChar;
  26848.   lpValue: PAnsiChar; var lpcbValue: Longint): Longint; stdcall;
  26849. {$EXTERNALSYM RegQueryValueW}
  26850. function RegQueryValueW(hKey: HKEY; lpSubKey: PWideChar;
  26851.   lpValue: PWideChar; var lpcbValue: Longint): Longint; stdcall;
  26852. {$EXTERNALSYM RegQueryValue}
  26853. function RegQueryValue(hKey: HKEY; lpSubKey: PChar;
  26854.   lpValue: PChar; var lpcbValue: Longint): Longint; stdcall;
  26855. {$EXTERNALSYM RegQueryMultipleValuesA}
  26856. function RegQueryMultipleValuesA(hKey: HKEY; var ValList;
  26857.   NumVals: DWORD; lpValueBuf: PAnsiChar; var ldwTotsize: DWORD): Longint; stdcall;
  26858. {$EXTERNALSYM RegQueryMultipleValuesW}
  26859. function RegQueryMultipleValuesW(hKey: HKEY; var ValList;
  26860.   NumVals: DWORD; lpValueBuf: PWideChar; var ldwTotsize: DWORD): Longint; stdcall;
  26861. {$EXTERNALSYM RegQueryMultipleValues}
  26862. function RegQueryMultipleValues(hKey: HKEY; var ValList;
  26863.   NumVals: DWORD; lpValueBuf: PChar; var ldwTotsize: DWORD): Longint; stdcall;
  26864. {$EXTERNALSYM RegQueryValueExA}
  26865. function RegQueryValueExA(hKey: HKEY; lpValueName: PAnsiChar;
  26866.   lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  26867. {$EXTERNALSYM RegQueryValueExW}
  26868. function RegQueryValueExW(hKey: HKEY; lpValueName: PWideChar;
  26869.   lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  26870. {$EXTERNALSYM RegQueryValueEx}
  26871. function RegQueryValueEx(hKey: HKEY; lpValueName: PChar;
  26872.   lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
  26873. {$EXTERNALSYM RegReplaceKeyA}
  26874. function RegReplaceKeyA(hKey: HKEY; lpSubKey: PAnsiChar;
  26875.    lpNewFile: PAnsiChar; lpOldFile: PAnsiChar): Longint; stdcall;
  26876. {$EXTERNALSYM RegReplaceKeyW}
  26877. function RegReplaceKeyW(hKey: HKEY; lpSubKey: PWideChar;
  26878.    lpNewFile: PWideChar; lpOldFile: PWideChar): Longint; stdcall;
  26879. {$EXTERNALSYM RegReplaceKey}
  26880. function RegReplaceKey(hKey: HKEY; lpSubKey: PChar;
  26881.    lpNewFile: PChar; lpOldFile: PChar): Longint; stdcall;
  26882. {$EXTERNALSYM RegRestoreKeyA}
  26883. function RegRestoreKeyA(hKey: HKEY; lpFile: PAnsiChar; dwFlags: DWORD): Longint; stdcall;
  26884. {$EXTERNALSYM RegRestoreKeyW}
  26885. function RegRestoreKeyW(hKey: HKEY; lpFile: PWideChar; dwFlags: DWORD): Longint; stdcall;
  26886. {$EXTERNALSYM RegRestoreKey}
  26887. function RegRestoreKey(hKey: HKEY; lpFile: PChar; dwFlags: DWORD): Longint; stdcall;
  26888. {$EXTERNALSYM RegSaveKeyA}
  26889. function RegSaveKeyA(hKey: HKEY; lpFile: PAnsiChar;
  26890.   lpSecurityAttributes: PSecurityAttributes): Longint; stdcall;
  26891. {$EXTERNALSYM RegSaveKeyW}
  26892. function RegSaveKeyW(hKey: HKEY; lpFile: PWideChar;
  26893.   lpSecurityAttributes: PSecurityAttributes): Longint; stdcall;
  26894. {$EXTERNALSYM RegSaveKey}
  26895. function RegSaveKey(hKey: HKEY; lpFile: PChar;
  26896.   lpSecurityAttributes: PSecurityAttributes): Longint; stdcall;
  26897. {$EXTERNALSYM RegSetKeySecurity}
  26898. function RegSetKeySecurity(hKey: HKEY; SecurityInformation: SECURITY_INFORMATION;
  26899.   pSecurityDescriptor: PSECURITY_DESCRIPTOR): Longint; stdcall;
  26900. {$EXTERNALSYM RegSetValueA}
  26901. function RegSetValueA(hKey: HKEY; lpSubKey: PAnsiChar;
  26902.   dwType: DWORD; lpData: PAnsiChar; cbData: DWORD): Longint; stdcall;
  26903. {$EXTERNALSYM RegSetValueW}
  26904. function RegSetValueW(hKey: HKEY; lpSubKey: PWideChar;
  26905.   dwType: DWORD; lpData: PWideChar; cbData: DWORD): Longint; stdcall;
  26906. {$EXTERNALSYM RegSetValue}
  26907. function RegSetValue(hKey: HKEY; lpSubKey: PChar;
  26908.   dwType: DWORD; lpData: PChar; cbData: DWORD): Longint; stdcall;
  26909. {$EXTERNALSYM RegSetValueExA}
  26910. function RegSetValueExA(hKey: HKEY; lpValueName: PAnsiChar;
  26911.   Reserved: DWORD; dwType: DWORD; lpData: Pointer; cbData: DWORD): Longint; stdcall;
  26912. {$EXTERNALSYM RegSetValueExW}
  26913. function RegSetValueExW(hKey: HKEY; lpValueName: PWideChar;
  26914.   Reserved: DWORD; dwType: DWORD; lpData: Pointer; cbData: DWORD): Longint; stdcall;
  26915. {$EXTERNALSYM RegSetValueEx}
  26916. function RegSetValueEx(hKey: HKEY; lpValueName: PChar;
  26917.   Reserved: DWORD; dwType: DWORD; lpData: Pointer; cbData: DWORD): Longint; stdcall;
  26918. {$EXTERNALSYM RegUnLoadKeyA}
  26919. function RegUnLoadKeyA(hKey: HKEY; lpSubKey: PAnsiChar): Longint; stdcall;
  26920. {$EXTERNALSYM RegUnLoadKeyW}
  26921. function RegUnLoadKeyW(hKey: HKEY; lpSubKey: PWideChar): Longint; stdcall;
  26922. {$EXTERNALSYM RegUnLoadKey}
  26923. function RegUnLoadKey(hKey: HKEY; lpSubKey: PChar): Longint; stdcall;
  26924.  
  26925. { Remoteable System Shutdown APIs }
  26926.  
  26927. {$EXTERNALSYM InitiateSystemShutdownA}
  26928. function InitiateSystemShutdownA(lpMachineName, lpMessage: PAnsiChar;
  26929.   dwTimeout: DWORD; bForceAppsClosed, bRebootAfterShutdown: BOOL): BOOL; stdcall;
  26930. {$EXTERNALSYM InitiateSystemShutdownW}
  26931. function InitiateSystemShutdownW(lpMachineName, lpMessage: PWideChar;
  26932.   dwTimeout: DWORD; bForceAppsClosed, bRebootAfterShutdown: BOOL): BOOL; stdcall;
  26933. {$EXTERNALSYM InitiateSystemShutdown}
  26934. function InitiateSystemShutdown(lpMachineName, lpMessage: PChar;
  26935.   dwTimeout: DWORD; bForceAppsClosed, bRebootAfterShutdown: BOOL): BOOL; stdcall;
  26936. {$EXTERNALSYM AbortSystemShutdownA}
  26937. function AbortSystemShutdownA(lpMachineName: PAnsiChar): BOOL; stdcall;
  26938. {$EXTERNALSYM AbortSystemShutdownW}
  26939. function AbortSystemShutdownW(lpMachineName: PWideChar): BOOL; stdcall;
  26940. {$EXTERNALSYM AbortSystemShutdown}
  26941. function AbortSystemShutdown(lpMachineName: PChar): BOOL; stdcall;
  26942.  
  26943.  
  26944. { Translated from WINNETWK.H }
  26945.  
  26946. const
  26947. { Network types }
  26948.  
  26949.   {$EXTERNALSYM WNNC_NET_MSNET}
  26950.   WNNC_NET_MSNET              = $00010000;
  26951.   {$EXTERNALSYM WNNC_NET_LANMAN}
  26952.   WNNC_NET_LANMAN             = $00020000;
  26953.   {$EXTERNALSYM WNNC_NET_NETWARE}
  26954.   WNNC_NET_NETWARE            = $00030000;
  26955.   {$EXTERNALSYM WNNC_NET_VINES}
  26956.   WNNC_NET_VINES              = $00040000;
  26957.   {$EXTERNALSYM WNNC_NET_10NET}
  26958.   WNNC_NET_10NET              = $00050000;
  26959.   {$EXTERNALSYM WNNC_NET_LOCUS}
  26960.   WNNC_NET_LOCUS              = $00060000;
  26961.   {$EXTERNALSYM WNNC_NET_SUN_PC_NFS}
  26962.   WNNC_NET_SUN_PC_NFS         = $00070000;
  26963.   {$EXTERNALSYM WNNC_NET_LANSTEP}
  26964.   WNNC_NET_LANSTEP            = $00080000;
  26965.   {$EXTERNALSYM WNNC_NET_9TILES}
  26966.   WNNC_NET_9TILES             = $00090000;
  26967.   {$EXTERNALSYM WNNC_NET_LANTASTIC}
  26968.   WNNC_NET_LANTASTIC          = $000A0000;
  26969.   {$EXTERNALSYM WNNC_NET_AS400}
  26970.   WNNC_NET_AS400              = $000B0000;
  26971.   {$EXTERNALSYM WNNC_NET_FTP_NFS}
  26972.   WNNC_NET_FTP_NFS            = $000C0000;
  26973.   {$EXTERNALSYM WNNC_NET_PATHWORKS}
  26974.   WNNC_NET_PATHWORKS          = $000D0000;
  26975.   {$EXTERNALSYM WNNC_NET_LIFENET}
  26976.   WNNC_NET_LIFENET            = $000E0000;
  26977.   {$EXTERNALSYM WNNC_NET_POWERLAN}
  26978.   WNNC_NET_POWERLAN           = $000F0000;
  26979.   {$EXTERNALSYM WNNC_NET_BWNFS}
  26980.   WNNC_NET_BWNFS              = $00100000;
  26981.   {$EXTERNALSYM WNNC_NET_COGENT}
  26982.   WNNC_NET_COGENT             = $00110000;
  26983.   {$EXTERNALSYM WNNC_NET_FARALLON}
  26984.   WNNC_NET_FARALLON           = $00120000;
  26985.   {$EXTERNALSYM WNNC_NET_APPLETALK}
  26986.   WNNC_NET_APPLETALK          = $00130000;
  26987.   {$EXTERNALSYM WNNC_NET_INTERGRAPH}
  26988.   WNNC_NET_INTERGRAPH         = $00140000;
  26989.   {$EXTERNALSYM WNNC_NET_SYMFONET}
  26990.   WNNC_NET_SYMFONET           = $00150000;
  26991.   {$EXTERNALSYM WNNC_NET_CLEARCASE}
  26992.   WNNC_NET_CLEARCASE          = $00160000;
  26993.  
  26994. { Network Resources. }
  26995.  
  26996.   {$EXTERNALSYM RESOURCE_CONNECTED}
  26997.   RESOURCE_CONNECTED = 1;
  26998.   {$EXTERNALSYM RESOURCE_GLOBALNET}
  26999.   RESOURCE_GLOBALNET = 2;
  27000.   {$EXTERNALSYM RESOURCE_REMEMBERED}
  27001.   RESOURCE_REMEMBERED = 3;
  27002.   {$EXTERNALSYM RESOURCE_RECENT}
  27003.   RESOURCE_RECENT = 4;
  27004.   {$EXTERNALSYM RESOURCE_CONTEXT}
  27005.   RESOURCE_CONTEXT = 5;
  27006.  
  27007.   {$EXTERNALSYM RESOURCETYPE_ANY}
  27008.   RESOURCETYPE_ANY = 0;
  27009.   {$EXTERNALSYM RESOURCETYPE_DISK}
  27010.   RESOURCETYPE_DISK = 1;
  27011.   {$EXTERNALSYM RESOURCETYPE_PRINT}
  27012.   RESOURCETYPE_PRINT = 2;
  27013.   {$EXTERNALSYM RESOURCETYPE_RESERVED}
  27014.   RESOURCETYPE_RESERVED = 8;
  27015.   {$EXTERNALSYM RESOURCETYPE_UNKNOWN}
  27016.   RESOURCETYPE_UNKNOWN = DWORD($FFFFFFFF);
  27017.  
  27018.   {$EXTERNALSYM RESOURCEUSAGE_CONNECTABLE}
  27019.   RESOURCEUSAGE_CONNECTABLE = 1;
  27020.   {$EXTERNALSYM RESOURCEUSAGE_CONTAINER}
  27021.   RESOURCEUSAGE_CONTAINER = 2;
  27022.   {$EXTERNALSYM RESOURCEUSAGE_NOLOCALDEVICE}
  27023.   RESOURCEUSAGE_NOLOCALDEVICE = 4;
  27024.   {$EXTERNALSYM RESOURCEUSAGE_SIBLING}
  27025.   RESOURCEUSAGE_SIBLING = 8;
  27026.  
  27027.   {$EXTERNALSYM RESOURCEUSAGE_ATTACHED}
  27028.   RESOURCEUSAGE_ATTACHED = $00000010;
  27029.   {$EXTERNALSYM RESOURCEUSAGE_ALL}
  27030.   RESOURCEUSAGE_ALL = (RESOURCEUSAGE_CONNECTABLE or RESOURCEUSAGE_CONTAINER or RESOURCEUSAGE_ATTACHED);
  27031.   {$EXTERNALSYM RESOURCEUSAGE_RESERVED}
  27032.   RESOURCEUSAGE_RESERVED = DWORD($80000000);
  27033.  
  27034.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_GENERIC}
  27035.   RESOURCEDISPLAYTYPE_GENERIC            = $00000000;
  27036.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_DOMAIN}
  27037.   RESOURCEDISPLAYTYPE_DOMAIN             = $00000001;
  27038.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_SERVER}
  27039.   RESOURCEDISPLAYTYPE_SERVER             = $00000002;
  27040.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_SHARE}
  27041.   RESOURCEDISPLAYTYPE_SHARE              = $00000003;
  27042.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_FILE}
  27043.   RESOURCEDISPLAYTYPE_FILE               = $00000004;
  27044.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_GROUP}
  27045.   RESOURCEDISPLAYTYPE_GROUP              = $00000005;
  27046.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_NETWORK}
  27047.   RESOURCEDISPLAYTYPE_NETWORK            = $00000006;
  27048.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_ROOT}
  27049.   RESOURCEDISPLAYTYPE_ROOT               = $00000007;
  27050.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_SHAREADMIN}
  27051.   RESOURCEDISPLAYTYPE_SHAREADMIN         = $00000008;
  27052.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_DIRECTORY}
  27053.   RESOURCEDISPLAYTYPE_DIRECTORY          = $00000009;
  27054.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_TREE}
  27055.   RESOURCEDISPLAYTYPE_TREE               = $0000000A;
  27056.   {$EXTERNALSYM RESOURCEDISPLAYTYPE_NDSCONTAINER}
  27057.   RESOURCEDISPLAYTYPE_NDSCONTAINER       = $0000000B;
  27058.  
  27059. type
  27060.   PNetResourceA = ^TNetResourceA;
  27061.   PNetResourceW = ^TNetResourceW;
  27062.   PNetResource = PNetResourceA;
  27063.   {$EXTERNALSYM _NETRESOURCEA}
  27064.   _NETRESOURCEA = packed record
  27065.     dwScope: DWORD;
  27066.     dwType: DWORD;
  27067.     dwDisplayType: DWORD;
  27068.     dwUsage: DWORD;
  27069.     lpLocalName: PAnsiChar;
  27070.     lpRemoteName: PAnsiChar;
  27071.     lpComment: PAnsiChar;
  27072.     lpProvider: PAnsiChar;
  27073.   end;
  27074.   {$EXTERNALSYM _NETRESOURCEW}
  27075.   _NETRESOURCEW = packed record
  27076.     dwScope: DWORD;
  27077.     dwType: DWORD;
  27078.     dwDisplayType: DWORD;
  27079.     dwUsage: DWORD;
  27080.     lpLocalName: PWideChar;
  27081.     lpRemoteName: PWideChar;
  27082.     lpComment: PWideChar;
  27083.     lpProvider: PWideChar;
  27084.   end;
  27085.   {$EXTERNALSYM _NETRESOURCE}
  27086.   _NETRESOURCE = _NETRESOURCEA;
  27087.   TNetResourceA = _NETRESOURCEA;
  27088.   TNetResourceW = _NETRESOURCEW;
  27089.   TNetResource = TNetResourceA;
  27090.   {$EXTERNALSYM NETRESOURCEA}
  27091.   NETRESOURCEA = _NETRESOURCEA;
  27092.   {$EXTERNALSYM NETRESOURCEW}
  27093.   NETRESOURCEW = _NETRESOURCEW;
  27094.   {$EXTERNALSYM NETRESOURCE}
  27095.   NETRESOURCE = NETRESOURCEA;
  27096.  
  27097. const
  27098. { Network Connections. }
  27099.  
  27100.   {$EXTERNALSYM NETPROPERTY_PERSISTENT}
  27101.   NETPROPERTY_PERSISTENT = 1;
  27102.  
  27103.   {$EXTERNALSYM CONNECT_UPDATE_PROFILE}
  27104.   CONNECT_UPDATE_PROFILE          = $00000001;
  27105.   {$EXTERNALSYM CONNECT_UPDATE_RECENT}
  27106.   CONNECT_UPDATE_RECENT           = $00000002;
  27107.   {$EXTERNALSYM CONNECT_TEMPORARY}
  27108.   CONNECT_TEMPORARY               = $00000004;
  27109.   {$EXTERNALSYM CONNECT_INTERACTIVE}
  27110.   CONNECT_INTERACTIVE             = $00000008;
  27111.   {$EXTERNALSYM CONNECT_PROMPT}
  27112.   CONNECT_PROMPT                  = $00000010;
  27113.   {$EXTERNALSYM CONNECT_NEED_DRIVE}
  27114.   CONNECT_NEED_DRIVE              = $00000020;
  27115.   {$EXTERNALSYM CONNECT_REFCOUNT}
  27116.   CONNECT_REFCOUNT                = $00000040;
  27117.   {$EXTERNALSYM CONNECT_REDIRECT}
  27118.   CONNECT_REDIRECT                = $00000080;
  27119.   {$EXTERNALSYM CONNECT_LOCALDRIVE}
  27120.   CONNECT_LOCALDRIVE              = $00000100;
  27121.   {$EXTERNALSYM CONNECT_CURRENT_MEDIA}
  27122.   CONNECT_CURRENT_MEDIA           = $00000200;
  27123.   {$EXTERNALSYM CONNECT_DEFERRED}
  27124.   CONNECT_DEFERRED                = $00000400;
  27125.   {$EXTERNALSYM CONNECT_RESERVED}
  27126.   CONNECT_RESERVED                = DWORD($FF000000);
  27127.  
  27128. {$EXTERNALSYM WNetAddConnectionA}
  27129. function WNetAddConnectionA(lpRemoteName, lpPassword, lpLocalName: PAnsiChar): DWORD; stdcall;
  27130. {$EXTERNALSYM WNetAddConnectionW}
  27131. function WNetAddConnectionW(lpRemoteName, lpPassword, lpLocalName: PWideChar): DWORD; stdcall;
  27132. {$EXTERNALSYM WNetAddConnection}
  27133. function WNetAddConnection(lpRemoteName, lpPassword, lpLocalName: PChar): DWORD; stdcall;
  27134. {$EXTERNALSYM WNetAddConnection2A}
  27135. function WNetAddConnection2A(var lpNetResource: TNetResourceA;
  27136.   lpPassword, lpUserName: PAnsiChar; dwFlags: DWORD): DWORD; stdcall;
  27137. {$EXTERNALSYM WNetAddConnection2W}
  27138. function WNetAddConnection2W(var lpNetResource: TNetResourceW;
  27139.   lpPassword, lpUserName: PWideChar; dwFlags: DWORD): DWORD; stdcall;
  27140. {$EXTERNALSYM WNetAddConnection2}
  27141. function WNetAddConnection2(var lpNetResource: TNetResource;
  27142.   lpPassword, lpUserName: PChar; dwFlags: DWORD): DWORD; stdcall;
  27143. {$EXTERNALSYM WNetAddConnection3A}
  27144. function WNetAddConnection3A(hwndOwner: HWND; var lpNetResource: TNetResourceA;
  27145.   lpPassword, lpUserName: PAnsiChar; dwFlags: DWORD): DWORD; stdcall;
  27146. {$EXTERNALSYM WNetAddConnection3W}
  27147. function WNetAddConnection3W(hwndOwner: HWND; var lpNetResource: TNetResourceW;
  27148.   lpPassword, lpUserName: PWideChar; dwFlags: DWORD): DWORD; stdcall;
  27149. {$EXTERNALSYM WNetAddConnection3}
  27150. function WNetAddConnection3(hwndOwner: HWND; var lpNetResource: TNetResource;
  27151.   lpPassword, lpUserName: PChar; dwFlags: DWORD): DWORD; stdcall;
  27152. {$EXTERNALSYM WNetCancelConnectionA}
  27153. function WNetCancelConnectionA(lpName: PAnsiChar; fForce: BOOL): DWORD; stdcall;
  27154. {$EXTERNALSYM WNetCancelConnectionW}
  27155. function WNetCancelConnectionW(lpName: PWideChar; fForce: BOOL): DWORD; stdcall;
  27156. {$EXTERNALSYM WNetCancelConnection}
  27157. function WNetCancelConnection(lpName: PChar; fForce: BOOL): DWORD; stdcall;
  27158. {$EXTERNALSYM WNetCancelConnection2A}
  27159. function WNetCancelConnection2A(lpName: PAnsiChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
  27160. {$EXTERNALSYM WNetCancelConnection2W}
  27161. function WNetCancelConnection2W(lpName: PWideChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
  27162. {$EXTERNALSYM WNetCancelConnection2}
  27163. function WNetCancelConnection2(lpName: PChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
  27164. {$EXTERNALSYM WNetGetConnectionA}
  27165. function WNetGetConnectionA(lpLocalName: PAnsiChar;
  27166.   lpRemoteName: PAnsiChar; var lpnLength: DWORD): DWORD; stdcall;
  27167. {$EXTERNALSYM WNetGetConnectionW}
  27168. function WNetGetConnectionW(lpLocalName: PWideChar;
  27169.   lpRemoteName: PWideChar; var lpnLength: DWORD): DWORD; stdcall;
  27170. {$EXTERNALSYM WNetGetConnection}
  27171. function WNetGetConnection(lpLocalName: PChar;
  27172.   lpRemoteName: PChar; var lpnLength: DWORD): DWORD; stdcall;
  27173. {$EXTERNALSYM WNetUseConnectionA}
  27174. function WNetUseConnectionA(hwndOwner: HWND;
  27175.   var lpNetResource: TNetResourceA; lpUserID: PAnsiChar;
  27176.   lpPassword: PAnsiChar; dwFlags: DWORD; lpAccessName: PAnsiChar;
  27177.   var lpBufferSize: DWORD; var lpResult: DWORD): DWORD; stdcall;
  27178. {$EXTERNALSYM WNetUseConnectionW}
  27179. function WNetUseConnectionW(hwndOwner: HWND;
  27180.   var lpNetResource: TNetResourceW; lpUserID: PWideChar;
  27181.   lpPassword: PWideChar; dwFlags: DWORD; lpAccessName: PWideChar;
  27182.   var lpBufferSize: DWORD; var lpResult: DWORD): DWORD; stdcall;
  27183. {$EXTERNALSYM WNetUseConnection}
  27184. function WNetUseConnection(hwndOwner: HWND;
  27185.   var lpNetResource: TNetResource; lpUserID: PChar;
  27186.   lpPassword: PChar; dwFlags: DWORD; lpAccessName: PChar;
  27187.   var lpBufferSize: DWORD; var lpResult: DWORD): DWORD; stdcall;
  27188. {$EXTERNALSYM WNetSetConnectionA}
  27189. function WNetSetConnectionA(lpName: PAnsiChar; dwProperties: DWORD; pvValues: Pointer): DWORD; stdcall;
  27190. {$EXTERNALSYM WNetSetConnectionW}
  27191. function WNetSetConnectionW(lpName: PWideChar; dwProperties: DWORD; pvValues: Pointer): DWORD; stdcall;
  27192. {$EXTERNALSYM WNetSetConnection}
  27193. function WNetSetConnection(lpName: PChar; dwProperties: DWORD; pvValues: Pointer): DWORD; stdcall;
  27194.  
  27195. { Network Connection Dialogs. }
  27196.  
  27197. {$EXTERNALSYM WNetConnectionDialog}
  27198. function WNetConnectionDialog(hwnd: HWND; dwType: DWORD): DWORD; stdcall;
  27199. {$EXTERNALSYM WNetDisconnectDialog}
  27200. function WNetDisconnectDialog(hwnd: HWND; dwType: DWORD): DWORD; stdcall;
  27201.  
  27202. type
  27203.   PConnectDlgStruct = ^TConnectDlgStruct;
  27204.   {$EXTERNALSYM _CONNECTDLGSTRUCTA}
  27205.   _CONNECTDLGSTRUCTA = packed record
  27206.     cbStructure: DWORD;          { size of this structure in bytes }
  27207.     hwndOwner: HWND;             { owner window for the dialog }
  27208.     lpConnRes: PNetResource;     { Requested Resource info    }
  27209.     dwFlags: DWORD;              { flags (see below) }
  27210.     dwDevNum: DWORD;             { number of devices connected to }
  27211.   end;
  27212.   TConnectDlgStruct = _CONNECTDLGSTRUCTA;
  27213.   {$EXTERNALSYM CONNECTDLGSTRUCT}
  27214.   CONNECTDLGSTRUCT = _CONNECTDLGSTRUCTA;
  27215.  
  27216. const
  27217.   {$EXTERNALSYM CONNDLG_RO_PATH}
  27218.   CONNDLG_RO_PATH = 1;    { Resource path should be read-only     }
  27219.   {$EXTERNALSYM CONNDLG_CONN_POINT}
  27220.   CONNDLG_CONN_POINT = 2; { Netware -style movable connection point enabled  }
  27221.   {$EXTERNALSYM CONNDLG_USE_MRU}
  27222.   CONNDLG_USE_MRU = 4;    { Use MRU combobox   }
  27223.   {$EXTERNALSYM CONNDLG_HIDE_BOX}
  27224.   CONNDLG_HIDE_BOX = 8;   { Hide persistent connect checkbox   }
  27225.  
  27226.   { NOTE:  Set at most ONE of the below flags.  If neither flag is set,
  27227.            then the persistence is set to whatever the user chose during
  27228.            a previous connection }
  27229.  
  27230.   {$EXTERNALSYM CONNDLG_PERSIST}
  27231.   CONNDLG_PERSIST = $10;       { Force persistent connection  }
  27232.   {$EXTERNALSYM CONNDLG_NOT_PERSIST}
  27233.   CONNDLG_NOT_PERSIST = $20;   { Force connection NOT persistent  }
  27234.  
  27235. {$EXTERNALSYM WNetConnectionDialog1A}
  27236. function WNetConnectionDialog1A(var lpConnDlgStruct: TConnectDlgStruct): DWORD; stdcall;
  27237. {$EXTERNALSYM WNetConnectionDialog1W}
  27238. function WNetConnectionDialog1W(var lpConnDlgStruct: TConnectDlgStruct): DWORD; stdcall;
  27239. {$EXTERNALSYM WNetConnectionDialog1}
  27240. function WNetConnectionDialog1(var lpConnDlgStruct: TConnectDlgStruct): DWORD; stdcall;
  27241.  
  27242. type
  27243.   PDiscDlgStructA = ^TDiscDlgStructA;
  27244.   PDiscDlgStructW = ^TDiscDlgStructW;
  27245.   PDiscDlgStruct = PDiscDlgStructA;
  27246.   {$EXTERNALSYM _DISCDLGSTRUCTA}
  27247.   _DISCDLGSTRUCTA = packed record
  27248.     cbStructure: DWORD;       { size of this structure in bytes }
  27249.     hwndOwner: HWND;          { owner window for the dialog }
  27250.     lpLocalName: PAnsiChar;       { local device name }
  27251.     lpRemoteName: PAnsiChar;      { network resource name }
  27252.     dwFlags: DWORD;
  27253.   end;
  27254.   {$EXTERNALSYM _DISCDLGSTRUCTW}
  27255.   _DISCDLGSTRUCTW = packed record
  27256.     cbStructure: DWORD;       { size of this structure in bytes }
  27257.     hwndOwner: HWND;          { owner window for the dialog }
  27258.     lpLocalName: PWideChar;       { local device name }
  27259.     lpRemoteName: PWideChar;      { network resource name }
  27260.     dwFlags: DWORD;
  27261.   end;
  27262.   {$EXTERNALSYM _DISCDLGSTRUCT}
  27263.   _DISCDLGSTRUCT = _DISCDLGSTRUCTA;
  27264.   TDiscDlgStructA = _DISCDLGSTRUCTA;
  27265.   TDiscDlgStructW = _DISCDLGSTRUCTW;
  27266.   TDiscDlgStruct = TDiscDlgStructA;
  27267.   {$EXTERNALSYM DISCDLGSTRUCTA}
  27268.   DISCDLGSTRUCTA = _DISCDLGSTRUCTA;
  27269.   {$EXTERNALSYM DISCDLGSTRUCTW}
  27270.   DISCDLGSTRUCTW = _DISCDLGSTRUCTW;
  27271.   {$EXTERNALSYM DISCDLGSTRUCT}
  27272.   DISCDLGSTRUCT = DISCDLGSTRUCTA;
  27273.  
  27274. const
  27275.   {$EXTERNALSYM DISC_UPDATE_PROFILE}
  27276.   DISC_UPDATE_PROFILE = 1;
  27277.   {$EXTERNALSYM DISC_NO_FORCE}
  27278.   DISC_NO_FORCE = $40;
  27279.  
  27280. {$EXTERNALSYM WNetDisconnectDialog1A}
  27281. function WNetDisconnectDialog1A(var lpConnDlgStruct: TDiscDlgStructA): DWORD; stdcall;
  27282. {$EXTERNALSYM WNetDisconnectDialog1W}
  27283. function WNetDisconnectDialog1W(var lpConnDlgStruct: TDiscDlgStructW): DWORD; stdcall;
  27284. {$EXTERNALSYM WNetDisconnectDialog1}
  27285. function WNetDisconnectDialog1(var lpConnDlgStruct: TDiscDlgStruct): DWORD; stdcall;
  27286.  
  27287. { Network Browsing. }
  27288.  
  27289. {$EXTERNALSYM WNetOpenEnumA}
  27290. function WNetOpenEnumA(dwScope, dwType, dwUsage: DWORD;
  27291.   lpNetResource: PNetResourceA; var lphEnum: THandle): DWORD; stdcall;
  27292. {$EXTERNALSYM WNetOpenEnumW}
  27293. function WNetOpenEnumW(dwScope, dwType, dwUsage: DWORD;
  27294.   lpNetResource: PNetResourceW; var lphEnum: THandle): DWORD; stdcall;
  27295. {$EXTERNALSYM WNetOpenEnum}
  27296. function WNetOpenEnum(dwScope, dwType, dwUsage: DWORD;
  27297.   lpNetResource: PNetResource; var lphEnum: THandle): DWORD; stdcall;
  27298. {$EXTERNALSYM WNetEnumResourceA}
  27299. function WNetEnumResourceA(hEnum: THandle; var lpcCount: DWORD;
  27300.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  27301. {$EXTERNALSYM WNetEnumResourceW}
  27302. function WNetEnumResourceW(hEnum: THandle; var lpcCount: DWORD;
  27303.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  27304. {$EXTERNALSYM WNetEnumResource}
  27305. function WNetEnumResource(hEnum: THandle; var lpcCount: DWORD;
  27306.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  27307. {$EXTERNALSYM WNetCloseEnum}
  27308. function WNetCloseEnum(hEnum: THandle): DWORD; stdcall;
  27309. {$EXTERNALSYM WNetGetResourceParentA}
  27310. function WNetGetResourceParentA(lpNetResource: PNetResourceA;
  27311.   lpBuffer: Pointer; var cbBuffer: DWORD): DWORD; stdcall;
  27312. {$EXTERNALSYM WNetGetResourceParentW}
  27313. function WNetGetResourceParentW(lpNetResource: PNetResourceW;
  27314.   lpBuffer: Pointer; var cbBuffer: DWORD): DWORD; stdcall;
  27315. {$EXTERNALSYM WNetGetResourceParent}
  27316. function WNetGetResourceParent(lpNetResource: PNetResource;
  27317.   lpBuffer: Pointer; var cbBuffer: DWORD): DWORD; stdcall;
  27318.  
  27319. const
  27320. { Universal Naming. }
  27321.  
  27322.   {$EXTERNALSYM UNIVERSAL_NAME_INFO_LEVEL}
  27323.   UNIVERSAL_NAME_INFO_LEVEL = 1;
  27324.   {$EXTERNALSYM REMOTE_NAME_INFO_LEVEL}
  27325.   REMOTE_NAME_INFO_LEVEL = 2;
  27326.  
  27327. type
  27328.   PUniversalNameInfoA = ^TUniversalNameInfoA;
  27329.   PUniversalNameInfoW = ^TUniversalNameInfoW;
  27330.   PUniversalNameInfo = PUniversalNameInfoA;
  27331.   {$EXTERNALSYM _UNIVERSAL_NAME_INFOA}
  27332.   _UNIVERSAL_NAME_INFOA = packed record
  27333.     lpUniversalName: PAnsiChar;
  27334.   end;
  27335.   {$EXTERNALSYM _UNIVERSAL_NAME_INFOW}
  27336.   _UNIVERSAL_NAME_INFOW = packed record
  27337.     lpUniversalName: PWideChar;
  27338.   end;
  27339.   {$EXTERNALSYM _UNIVERSAL_NAME_INFO}
  27340.   _UNIVERSAL_NAME_INFO = _UNIVERSAL_NAME_INFOA;
  27341.   TUniversalNameInfoA = _UNIVERSAL_NAME_INFOA;
  27342.   TUniversalNameInfoW = _UNIVERSAL_NAME_INFOW;
  27343.   TUniversalNameInfo = TUniversalNameInfoA;
  27344.   {$EXTERNALSYM UNIVERSAL_NAME_INFOA}
  27345.   UNIVERSAL_NAME_INFOA = _UNIVERSAL_NAME_INFOA;
  27346.   {$EXTERNALSYM UNIVERSAL_NAME_INFOW}
  27347.   UNIVERSAL_NAME_INFOW = _UNIVERSAL_NAME_INFOW;
  27348.   {$EXTERNALSYM UNIVERSAL_NAME_INFO}
  27349.   UNIVERSAL_NAME_INFO = UNIVERSAL_NAME_INFOA;
  27350.  
  27351.   PRemoteNameInfoA = ^TRemoteNameInfoA;
  27352.   PRemoteNameInfoW = ^TRemoteNameInfoW;
  27353.   PRemoteNameInfo = PRemoteNameInfoA;
  27354.   {$EXTERNALSYM _REMOTE_NAME_INFOA}
  27355.   _REMOTE_NAME_INFOA = packed record
  27356.     lpUniversalName: PAnsiChar;
  27357.     lpConnectionName: PAnsiChar;
  27358.     lpRemainingPath: PAnsiChar;
  27359.   end;
  27360.   {$EXTERNALSYM _REMOTE_NAME_INFOW}
  27361.   _REMOTE_NAME_INFOW = packed record
  27362.     lpUniversalName: PWideChar;
  27363.     lpConnectionName: PWideChar;
  27364.     lpRemainingPath: PWideChar;
  27365.   end;
  27366.   {$EXTERNALSYM _REMOTE_NAME_INFO}
  27367.   _REMOTE_NAME_INFO = _REMOTE_NAME_INFOA;
  27368.   TRemoteNameInfoA = _REMOTE_NAME_INFOA;
  27369.   TRemoteNameInfoW = _REMOTE_NAME_INFOW;
  27370.   TRemoteNameInfo = TRemoteNameInfoA;
  27371.   {$EXTERNALSYM REMOTE_NAME_INFOA}
  27372.   REMOTE_NAME_INFOA = _REMOTE_NAME_INFOA;
  27373.   {$EXTERNALSYM REMOTE_NAME_INFOW}
  27374.   REMOTE_NAME_INFOW = _REMOTE_NAME_INFOW;
  27375.   {$EXTERNALSYM REMOTE_NAME_INFO}
  27376.   REMOTE_NAME_INFO = REMOTE_NAME_INFOA;
  27377.  
  27378. {$EXTERNALSYM WNetGetUniversalNameA}
  27379. function WNetGetUniversalNameA(lpLocalPath: PAnsiChar; dwInfoLevel: DWORD;
  27380.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  27381. {$EXTERNALSYM WNetGetUniversalNameW}
  27382. function WNetGetUniversalNameW(lpLocalPath: PWideChar; dwInfoLevel: DWORD;
  27383.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  27384. {$EXTERNALSYM WNetGetUniversalName}
  27385. function WNetGetUniversalName(lpLocalPath: PChar; dwInfoLevel: DWORD;
  27386.   lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
  27387.  
  27388. { Authentication and Logon/Logoff }
  27389.  
  27390. {$EXTERNALSYM WNetGetUserA}
  27391. function WNetGetUserA(lpName: PAnsiChar; lpUserName: PAnsiChar; var lpnLength: DWORD): DWORD; stdcall;
  27392. {$EXTERNALSYM WNetGetUserW}
  27393. function WNetGetUserW(lpName: PWideChar; lpUserName: PWideChar; var lpnLength: DWORD): DWORD; stdcall;
  27394. {$EXTERNALSYM WNetGetUser}
  27395. function WNetGetUser(lpName: PChar; lpUserName: PChar; var lpnLength: DWORD): DWORD; stdcall;
  27396.  
  27397. const
  27398.   {$EXTERNALSYM WNFMT_MULTILINE}
  27399.   WNFMT_MULTILINE = 1;
  27400.   {$EXTERNALSYM WNFMT_ABBREVIATED}
  27401.   WNFMT_ABBREVIATED = 2;
  27402.   {$EXTERNALSYM WNFMT_INENUM}
  27403.   WNFMT_INENUM = $10;
  27404.   {$EXTERNALSYM WNFMT_CONNECTION}
  27405.   WNFMT_CONNECTION = $20;
  27406.  
  27407. {$EXTERNALSYM WNetGetProviderNameA}
  27408. function WNetGetProviderNameA(dwNetType: DWORD; lpProviderName: PAnsiChar;
  27409.   var lpBufferSize: DWORD): DWORD; stdcall;
  27410. {$EXTERNALSYM WNetGetProviderNameW}
  27411. function WNetGetProviderNameW(dwNetType: DWORD; lpProviderName: PWideChar;
  27412.   var lpBufferSize: DWORD): DWORD; stdcall;
  27413. {$EXTERNALSYM WNetGetProviderName}
  27414. function WNetGetProviderName(dwNetType: DWORD; lpProviderName: PChar;
  27415.   var lpBufferSize: DWORD): DWORD; stdcall;
  27416.  
  27417. type
  27418.   PNetInfoStruct = ^TNetInfoStruct;
  27419.   {$EXTERNALSYM _NETINFOSTRUCT}
  27420.   _NETINFOSTRUCT = record
  27421.     cbStructure: DWORD;
  27422.     dwProviderVersion: DWORD;
  27423.     dwStatus: DWORD;
  27424.     dwCharacteristics: DWORD;
  27425.     dwHandle: DWORD;
  27426.     wNetType: Word;
  27427.     dwPrinters: DWORD;
  27428.     dwDrives: DWORD;
  27429.   end;
  27430.   TNetInfoStruct = _NETINFOSTRUCT;
  27431.   {$EXTERNALSYM NETINFOSTRUCT}
  27432.   NETINFOSTRUCT = _NETINFOSTRUCT;
  27433.  
  27434. const
  27435.   {$EXTERNALSYM NETINFO_DLL16}
  27436.   NETINFO_DLL16 = 1;      { Provider running as 16 bit Winnet Driver  }
  27437.   {$EXTERNALSYM NETINFO_DISKRED}
  27438.   NETINFO_DISKRED = 4;    { Provider requires disk redirections to connect  }
  27439.   {$EXTERNALSYM NETINFO_PRINTERRED}
  27440.   NETINFO_PRINTERRED = 8; { Provider requires printer redirections to connect  }
  27441.  
  27442. {$EXTERNALSYM WNetGetNetworkInformationA}
  27443. function WNetGetNetworkInformationA(lpProvider: PAnsiChar;
  27444.   var lpNetInfoStruct: TNetInfoStruct): DWORD; stdcall;
  27445. {$EXTERNALSYM WNetGetNetworkInformationW}
  27446. function WNetGetNetworkInformationW(lpProvider: PWideChar;
  27447.   var lpNetInfoStruct: TNetInfoStruct): DWORD; stdcall;
  27448. {$EXTERNALSYM WNetGetNetworkInformation}
  27449. function WNetGetNetworkInformation(lpProvider: PChar;
  27450.   var lpNetInfoStruct: TNetInfoStruct): DWORD; stdcall;
  27451.  
  27452. type
  27453. { User Profiles }
  27454.  
  27455.  
  27456.  
  27457.  
  27458.  
  27459.   TFNGetProfilePath = TFarProc;
  27460.   TFNReconcileProfile = TFarProc;
  27461.  
  27462.  
  27463. const
  27464.   {$EXTERNALSYM RP_LOGON}
  27465.   RP_LOGON = 1;    { if set, do for logon, else for logoff }
  27466.   {$EXTERNALSYM RP_INIFILE}
  27467.   RP_INIFILE = 2;  { if set, reconcile .INI file, else reg. hive }
  27468.  
  27469. type
  27470. { Policies }
  27471.  
  27472.  
  27473.  
  27474.  
  27475.   TFNProcessPolicies = TFarProc;
  27476.  
  27477. const
  27478.   {$EXTERNALSYM PP_DISPLAYERRORS}
  27479.   PP_DISPLAYERRORS = 1;  { if set, display error messages, else fail silently if error }
  27480.  
  27481. { Error handling }
  27482.  
  27483. {$EXTERNALSYM WNetGetLastErrorA}
  27484. function WNetGetLastErrorA(var lpError: DWORD; lpErrorBuf: PAnsiChar;
  27485.   nErrorBufSize: DWORD; lpNameBuf: PAnsiChar; nNameBufSize: DWORD): DWORD; stdcall;
  27486. {$EXTERNALSYM WNetGetLastErrorW}
  27487. function WNetGetLastErrorW(var lpError: DWORD; lpErrorBuf: PWideChar;
  27488.   nErrorBufSize: DWORD; lpNameBuf: PWideChar; nNameBufSize: DWORD): DWORD; stdcall;
  27489. {$EXTERNALSYM WNetGetLastError}
  27490. function WNetGetLastError(var lpError: DWORD; lpErrorBuf: PChar;
  27491.   nErrorBufSize: DWORD; lpNameBuf: PChar; nNameBufSize: DWORD): DWORD; stdcall;
  27492.  
  27493.  
  27494. const
  27495. { STATUS CODES }
  27496. { General }
  27497.  
  27498.   {$EXTERNALSYM WN_SUCCESS}
  27499.   WN_SUCCESS = NO_ERROR;
  27500.   {$EXTERNALSYM WN_NO_ERROR}
  27501.   WN_NO_ERROR = NO_ERROR;
  27502.   {$EXTERNALSYM WN_NOT_SUPPORTED}
  27503.   WN_NOT_SUPPORTED = ERROR_NOT_SUPPORTED;
  27504.   {$EXTERNALSYM WN_CANCEL}
  27505.   WN_CANCEL = ERROR_CANCELLED;
  27506.   {$EXTERNALSYM WN_RETRY}
  27507.   WN_RETRY = ERROR_RETRY;
  27508.   {$EXTERNALSYM WN_NET_ERROR}
  27509.   WN_NET_ERROR = ERROR_UNEXP_NET_ERR;
  27510.   {$EXTERNALSYM WN_MORE_DATA}
  27511.   WN_MORE_DATA = ERROR_MORE_DATA;
  27512.   {$EXTERNALSYM WN_BAD_POINTER}
  27513.   WN_BAD_POINTER = ERROR_INVALID_ADDRESS;
  27514.   {$EXTERNALSYM WN_BAD_VALUE}
  27515.   WN_BAD_VALUE = ERROR_INVALID_PARAMETER;
  27516.   {$EXTERNALSYM WN_BAD_USER}
  27517.   WN_BAD_USER = ERROR_BAD_USERNAME;
  27518.   {$EXTERNALSYM WN_BAD_PASSWORD}
  27519.   WN_BAD_PASSWORD = ERROR_INVALID_PASSWORD;
  27520.   {$EXTERNALSYM WN_ACCESS_DENIED}
  27521.   WN_ACCESS_DENIED = ERROR_ACCESS_DENIED;
  27522.   {$EXTERNALSYM WN_FUNCTION_BUSY}
  27523.   WN_FUNCTION_BUSY = ERROR_BUSY;
  27524.   {$EXTERNALSYM WN_WINDOWS_ERROR}
  27525.   WN_WINDOWS_ERROR = ERROR_UNEXP_NET_ERR;
  27526.   {$EXTERNALSYM WN_OUT_OF_MEMORY}
  27527.   WN_OUT_OF_MEMORY = ERROR_NOT_ENOUGH_MEMORY;
  27528.   {$EXTERNALSYM WN_NO_NETWORK}
  27529.   WN_NO_NETWORK = ERROR_NO_NETWORK;
  27530.   {$EXTERNALSYM WN_EXTENDED_ERROR}
  27531.   WN_EXTENDED_ERROR = ERROR_EXTENDED_ERROR;
  27532.   {$EXTERNALSYM WN_BAD_LEVEL}
  27533.   WN_BAD_LEVEL = ERROR_INVALID_LEVEL;
  27534.   {$EXTERNALSYM WN_BAD_HANDLE}
  27535.   WN_BAD_HANDLE = ERROR_INVALID_HANDLE;
  27536.   {$EXTERNALSYM WN_NOT_INITIALIZING}
  27537.   WN_NOT_INITIALIZING = ERROR_ALREADY_INITIALIZED;
  27538.   {$EXTERNALSYM WN_NO_MORE_DEVICES}
  27539.   WN_NO_MORE_DEVICES = ERROR_NO_MORE_DEVICES;
  27540.  
  27541. { Connection }
  27542.  
  27543.   {$EXTERNALSYM WN_NOT_CONNECTED}
  27544.   WN_NOT_CONNECTED = ERROR_NOT_CONNECTED;
  27545.   {$EXTERNALSYM WN_OPEN_FILES}
  27546.   WN_OPEN_FILES = ERROR_OPEN_FILES;
  27547.   {$EXTERNALSYM WN_DEVICE_IN_USE}
  27548.   WN_DEVICE_IN_USE = ERROR_DEVICE_IN_USE;
  27549.   {$EXTERNALSYM WN_BAD_NETNAME}
  27550.   WN_BAD_NETNAME = ERROR_BAD_NET_NAME;
  27551.   {$EXTERNALSYM WN_BAD_LOCALNAME}
  27552.   WN_BAD_LOCALNAME = ERROR_BAD_DEVICE;
  27553.   {$EXTERNALSYM WN_ALREADY_CONNECTED}
  27554.   WN_ALREADY_CONNECTED = ERROR_ALREADY_ASSIGNED;
  27555.   {$EXTERNALSYM WN_DEVICE_ERROR}
  27556.   WN_DEVICE_ERROR = ERROR_GEN_FAILURE;
  27557.   {$EXTERNALSYM WN_CONNECTION_CLOSED}
  27558.   WN_CONNECTION_CLOSED = ERROR_CONNECTION_UNAVAIL;
  27559.   {$EXTERNALSYM WN_NO_NET_OR_BAD_PATH}
  27560.   WN_NO_NET_OR_BAD_PATH = ERROR_NO_NET_OR_BAD_PATH;
  27561.   {$EXTERNALSYM WN_BAD_PROVIDER}
  27562.   WN_BAD_PROVIDER = ERROR_BAD_PROVIDER;
  27563.   {$EXTERNALSYM WN_CANNOT_OPEN_PROFILE}
  27564.   WN_CANNOT_OPEN_PROFILE = ERROR_CANNOT_OPEN_PROFILE;
  27565.   {$EXTERNALSYM WN_BAD_PROFILE}
  27566.   WN_BAD_PROFILE = ERROR_BAD_PROFILE;
  27567.   {$EXTERNALSYM WN_BAD_DEV_TYPE}
  27568.   WN_BAD_DEV_TYPE = ERROR_BAD_DEV_TYPE;
  27569.   {$EXTERNALSYM WN_DEVICE_ALREADY_REMEMBERED}
  27570.   WN_DEVICE_ALREADY_REMEMBERED = ERROR_DEVICE_ALREADY_REMEMBERED;
  27571.  
  27572. { Enumeration }
  27573.  
  27574.   {$EXTERNALSYM WN_NO_MORE_ENTRIES}
  27575.   WN_NO_MORE_ENTRIES = ERROR_NO_MORE_ITEMS;
  27576.   {$EXTERNALSYM WN_NOT_CONTAINER}
  27577.   WN_NOT_CONTAINER = ERROR_NOT_CONTAINER;
  27578.  
  27579. { Authentication }
  27580.  
  27581.   {$EXTERNALSYM WN_NOT_AUTHENTICATED}
  27582.   WN_NOT_AUTHENTICATED = ERROR_NOT_AUTHENTICATED;
  27583.   {$EXTERNALSYM WN_NOT_LOGGED_ON}
  27584.   WN_NOT_LOGGED_ON = ERROR_NOT_LOGGED_ON;
  27585.   {$EXTERNALSYM WN_NOT_VALIDATED}
  27586.   WN_NOT_VALIDATED = ERROR_NO_LOGON_SERVERS;
  27587.  
  27588. type
  27589. { For Shell }
  27590.   PNetConnectInfoStruct = ^TNetConnectInfoStruct;
  27591.   {$EXTERNALSYM _NETCONNECTINFOSTRUCT}
  27592.   _NETCONNECTINFOSTRUCT = packed record
  27593.     cbStructure: DWORD;
  27594.     dwFlags: DWORD;
  27595.     dwSpeed: DWORD;
  27596.     dwDelay: DWORD;
  27597.     dwOptDataSize: DWORD;
  27598.   end;
  27599.   TNetConnectInfoStruct = _NETCONNECTINFOSTRUCT;
  27600.   {$EXTERNALSYM NETCONNECTINFOSTRUCT}
  27601.   NETCONNECTINFOSTRUCT = _NETCONNECTINFOSTRUCT;
  27602.  
  27603. const
  27604.   {$EXTERNALSYM WNCON_FORNETCARD}
  27605.   WNCON_FORNETCARD = 1;
  27606.   {$EXTERNALSYM WNCON_NOTROUTED}
  27607.   WNCON_NOTROUTED = 2;
  27608.   {$EXTERNALSYM WNCON_SLOWLINK}
  27609.   WNCON_SLOWLINK = 4;
  27610.   {$EXTERNALSYM WNCON_DYNAMIC}
  27611.   WNCON_DYNAMIC = 8;
  27612.  
  27613. {$EXTERNALSYM MultinetGetConnectionPerformanceA}
  27614. function MultinetGetConnectionPerformanceA(lpNetResource: PNetResourceA;
  27615.   lpNetConnectInfoStruc: PNetConnectInfoStruct): DWORD; stdcall;
  27616. {$EXTERNALSYM MultinetGetConnectionPerformanceW}
  27617. function MultinetGetConnectionPerformanceW(lpNetResource: PNetResourceW;
  27618.   lpNetConnectInfoStruc: PNetConnectInfoStruct): DWORD; stdcall;
  27619. {$EXTERNALSYM MultinetGetConnectionPerformance}
  27620. function MultinetGetConnectionPerformance(lpNetResource: PNetResource;
  27621.   lpNetConnectInfoStruc: PNetConnectInfoStruct): DWORD; stdcall;
  27622.  
  27623. { Translated from DDE.H }
  27624.  
  27625. const
  27626.   {$EXTERNALSYM WM_DDE_FIRST}
  27627.   WM_DDE_FIRST      = $03E0;
  27628.   {$EXTERNALSYM WM_DDE_INITIATE}
  27629.   WM_DDE_INITIATE   = WM_DDE_FIRST;
  27630.   {$EXTERNALSYM WM_DDE_TERMINATE}
  27631.   WM_DDE_TERMINATE  = WM_DDE_FIRST+1;
  27632.   {$EXTERNALSYM WM_DDE_ADVISE}
  27633.   WM_DDE_ADVISE     = WM_DDE_FIRST+2;
  27634.   {$EXTERNALSYM WM_DDE_UNADVISE}
  27635.   WM_DDE_UNADVISE   = WM_DDE_FIRST+3;
  27636.   {$EXTERNALSYM WM_DDE_ACK}
  27637.   WM_DDE_ACK        = WM_DDE_FIRST+4;
  27638.   {$EXTERNALSYM WM_DDE_DATA}
  27639.   WM_DDE_DATA       = WM_DDE_FIRST+5;
  27640.   {$EXTERNALSYM WM_DDE_REQUEST}
  27641.   WM_DDE_REQUEST    = WM_DDE_FIRST+6;
  27642.   {$EXTERNALSYM WM_DDE_POKE}
  27643.   WM_DDE_POKE       = WM_DDE_FIRST+7;
  27644.   {$EXTERNALSYM WM_DDE_EXECUTE}
  27645.   WM_DDE_EXECUTE    = WM_DDE_FIRST+8;
  27646.   {$EXTERNALSYM WM_DDE_LAST}
  27647.   WM_DDE_LAST       = WM_DDE_FIRST+8;
  27648.  
  27649. { Constants used for a WM_DDE_ACK message sent in responce to a WM_DDE_DATA
  27650.   WM_DDE_REQUEST, WM_DDE_POKE, WM_DDE_ADVISE, or WM_DDE_UNADVISE message.
  27651.   For example
  27652.     if lParam and dde_Ack <> 0 then ...
  27653. }
  27654.  
  27655. type
  27656.   PDDEAck = ^TDDEAck;
  27657.   {$EXTERNALSYM DDEACK}
  27658.   DDEACK = packed record
  27659. (*
  27660.     unsigned bAppReturnCode:8,
  27661.              reserved:6,
  27662.              fBusy:1,
  27663.              fAck:1;
  27664. *)
  27665.     Flags: Word;
  27666.   end;
  27667.   TDDEAck = DDEACK;
  27668.  
  27669. const
  27670.   dde_AppReturnCode = $00FF;
  27671.   dde_Busy          = $4000;
  27672.   dde_Ack           = $8000;
  27673.  
  27674. { Record for the  WM_DDE_ADVISE Options parameter (LoWord(lParam)) }
  27675.  
  27676. type
  27677.   PDDEAdvise = ^TDDEAdvise;
  27678.   {$EXTERNALSYM DDEADVISE}
  27679.   DDEADVISE = packed record
  27680. (*
  27681.     unsigned reserved:14,
  27682.              fDeferUpd:1,
  27683.              fAckReq:1;
  27684. *)
  27685.     Flags: Word;
  27686.     cfFormat: SmallInt;
  27687.   end;
  27688.   TDDEAdvise = DDEADVISE;
  27689.  
  27690. const
  27691.   dde_DeferUpd     = $4000;
  27692.   dde_AckReq       = $8000;
  27693.  
  27694. { Record for the hData parameter of a WM_DDE_DATA message (LoWord(lParam)).
  27695.   The actual size of this record depends on the size of the Value
  27696.   array. }
  27697.  
  27698. type
  27699.   PDDEData = ^TDDEData;
  27700.   {$EXTERNALSYM DDEDATA}
  27701.   DDEDATA = packed record
  27702. (*  unsigned unused:12,
  27703.              fResponse:1,
  27704.              fRelease:1,
  27705.              reserved:1,
  27706.              fAckReq:1;
  27707. *)
  27708.     Flags: Word;
  27709.     cfFormat: SmallInt;
  27710.     Value: array[0..0] of Byte;
  27711.     Reserved: array[0..0] of Byte;
  27712.   end;
  27713.   TDDEData = DDEDATA;
  27714.  
  27715. const
  27716.   dde_Response = $1000;
  27717.   dde_Release  = $2000;
  27718.  
  27719. { Record for the hData parameter of the WM_DDE_POKE record (LoWord(lParam)).
  27720.   The actual size of this record depends on the size of the Value array. }
  27721.  
  27722. type
  27723.   PDDEPoke = ^TDDEPoke;
  27724.   {$EXTERNALSYM DDEPOKE}
  27725.   DDEPOKE = packed record
  27726. (*  unsigned unused:13,
  27727.              fRelease:1,
  27728.              fReserved:2;
  27729. *)
  27730.     Flags: Word;
  27731.     cfFormat: SmallInt;
  27732.     Value: array[0..0] of Byte;
  27733.     Reserved: array[0..0] of Byte;
  27734.   end;
  27735.   TDDEPoke = DDEPOKE;
  27736.  
  27737. { DDE Security }
  27738.  
  27739. {$EXTERNALSYM DdeSetQualityOfService}
  27740. function DdeSetQualityOfService(hWndClient: HWnd; const pqosNew: TSecurityQualityOfService;
  27741.   pqosPrev: PSecurityQualityOfService): BOOL; stdcall;
  27742. {$EXTERNALSYM ImpersonateDdeClientWindow}
  27743. function ImpersonateDdeClientWindow(hWndClient: HWnd; hWndServer: HWnd): BOOL; stdcall;
  27744.  
  27745. { DDE message packing APIs }
  27746. {$EXTERNALSYM PackDDElParam}
  27747. function PackDDElParam(msg: UINT; uiLo: UINT; uiHi: UINT): Longint; stdcall;
  27748. {$EXTERNALSYM UnpackDDElParam}
  27749. function UnpackDDElParam(msg: UINT; lParam: Longint; puiLo: PUINT; puiHi: PUINT): BOOL; stdcall;
  27750. {$EXTERNALSYM FreeDDElParam}
  27751. function FreeDDElParam(msg: UINT; lParam: Longint): BOOL; stdcall;
  27752. {$EXTERNALSYM ReuseDDElParam}
  27753. function ReuseDDElParam(lParam: Longint; msgIn: UINT; msgOut: UINT; uiLo: UINT; uiHi: UINT): Longint; stdcall;
  27754.  
  27755. { From zmouse.h }
  27756.  
  27757. { Client Appplication (API) Defines for Wheel rolling }
  27758.  
  27759. const
  27760.   // Apps need to call RegisterWindowMessage using the constant below to
  27761.   // get the message number that is sent to the foreground window
  27762.   // when a wheel roll occurs
  27763.   {$EXTERNALSYM MSH_MOUSEWHEEL}
  27764.   MSH_MOUSEWHEEL   = 'MSWHEEL_ROLLMSG';
  27765.    // wParam = wheel rotation expressed in multiples of WHEEL_DELTA
  27766.    // lParam is the mouse coordinates
  27767.  
  27768. { Client Appplication (API) Defines for
  27769.    *  determining if wheel support active
  27770.    *  determining # of Scroll Lines }
  27771.  
  27772.   // Class name for MSWHEEL.EXE's invisible window
  27773.   // use FindWindow to get hwnd to MSWHEEL
  27774.   {$EXTERNALSYM MOUSEZ_CLASSNAME}
  27775.   MOUSEZ_CLASSNAME = 'MouseZ';            // wheel window class
  27776.   {$EXTERNALSYM MOUSEZ_TITLE}
  27777.   MOUSEZ_TITLE     = 'Magellan MSWHEEL';  // wheel window title
  27778.  
  27779.   {$EXTERNALSYM MSH_WHEELMODULE_CLASS}
  27780.   MSH_WHEELMODULE_CLASS = MOUSEZ_CLASSNAME;
  27781.   {$EXTERNALSYM MSH_WHEELMODULE_TITLE}
  27782.   MSH_WHEELMODULE_TITLE = MOUSEZ_TITLE;
  27783.  
  27784. // Apps need to call RegisterWindowMessage using the constants
  27785. // below to get the message numbers for:
  27786. // 1) the message that can be sent to the MSWHEEL window to
  27787. //    query if wheel support is active (MSH_WHEELSUPPORT)>
  27788. // 2) the message to query for the number of scroll lines
  27789. //    (MSH_SCROLL_LINES)
  27790. //
  27791. // To send a message to MSWheel window, use FindWindow with the #defines
  27792. // for CLASS and TITLE above.  If FindWindow fails to find the MSWHEEL
  27793. // window or the return from SendMessage is false, then Wheel support
  27794. // is not currently available.
  27795.  
  27796.   // MSH_WHEELSUPPORT
  27797.   //    wParam - not used
  27798.   //    lParam - not used
  27799.   //    returns BOOL - TRUE if wheel support is active, FALSE otherwise
  27800.   {$EXTERNALSYM MSH_WHEELSUPPORT}
  27801.   MSH_WHEELSUPPORT = 'MSH_WHEELSUPPORT_MSG';  // name of msg to send
  27802.                                               // to query for wheel support
  27803.   // MSH_SCROLL_LINES
  27804.   //    wParam - not used
  27805.   //    lParam - not used
  27806.   //    returns int  - number of lines to scroll on a wheel roll
  27807.   {$EXTERNALSYM MSH_SCROLL_LINES}
  27808.   MSH_SCROLL_LINES = 'MSH_SCROLL_LINES_MSG';
  27809.  
  27810. (*********************************************************************
  27811. * FUNCTION: HwndMsWheel
  27812. * Purpose : Get a reference to MSWheel Window, the registered messages,
  27813. *           wheel support active setting, and number of scrollLines
  27814. * Params  : puiMsh_MsgMouseWheel - UINT to contain returned registered wheel message
  27815. *           puiMsh_Msg3DSupport - UINT to contain wheel support registered message
  27816. *           puiMsh_MsgScrollLines - UINT to contain Scroll lines registered message
  27817. *           pf3DSupport - BOOL to contain returned flag for wheel support active
  27818. *           piScrollLines - Integer to contain returned scroll lines
  27819. * Returns : HWND handle to the MsWheel window
  27820. * Note    : The return value for pf3DSupport and piScrollLines is dependant
  27821. *           on the POINT32 module.  If POINT32 module is not running then
  27822. *           the values returned for these parameters will be
  27823. *           FALSE and 3, respectively.
  27824. *********************************************************************)
  27825. {$EXTERNALSYM HwndMSWheel}
  27826. function HwndMSWheel(var puiMsh_MsgMouseWheel, puiMsh_Msg3DSupport,
  27827.   puiMsh_MsgScrollLines: UINT; var pf3DSupport: BOOL;
  27828.   var piScrollLines: Integer): HWND;
  27829.  
  27830. const
  27831.   advapi32  = 'advapi32.dll';
  27832.   kernel32  = 'kernel32.dll';
  27833.   mpr       = 'mpr.dll';
  27834.   {$EXTERNALSYM version}
  27835.   version   = 'version.dll';
  27836.   comctl32  = 'comctl32.dll';
  27837.   gdi32     = 'gdi32.dll';
  27838.   opengl32  = 'opengl32.dll';
  27839.   user32    = 'user32.dll';
  27840.   wintrust  = 'wintrust.dll';
  27841.   msimg32   = 'msimg32.dll';
  27842.  
  27843. implementation
  27844.  
  27845. { Externals from advapi32.dll }
  27846.  
  27847. function AbortSystemShutdownA; external advapi32 name 'AbortSystemShutdownA';
  27848. function AbortSystemShutdownW; external advapi32 name 'AbortSystemShutdownW';
  27849. function AbortSystemShutdown; external advapi32 name 'AbortSystemShutdownA';
  27850. function AccessCheck; external advapi32 name 'AccessCheck';
  27851. function AccessCheckAndAuditAlarmA; external advapi32 name 'AccessCheckAndAuditAlarmA';
  27852. function AccessCheckAndAuditAlarmW; external advapi32 name 'AccessCheckAndAuditAlarmW';
  27853. function AccessCheckAndAuditAlarm; external advapi32 name 'AccessCheckAndAuditAlarmA';
  27854. function AccessCheckByType; external advapi32 name 'AccessCheckByType';
  27855. function AccessCheckByTypeAndAuditAlarmA; external advapi32 name 'AccessCheckByTypeAndAuditAlarmA';
  27856. function AccessCheckByTypeAndAuditAlarmW; external advapi32 name 'AccessCheckByTypeAndAuditAlarmW';
  27857. function AccessCheckByTypeAndAuditAlarm; external advapi32 name 'AccessCheckByTypeAndAuditAlarmA';
  27858. function AccessCheckByTypeResultList; external advapi32 name 'AccessCheckByTypeResultList';
  27859. function AccessCheckByTypeResultListAndAuditAlarmA; external advapi32 name 'AccessCheckByTypeResultListAndAuditAlarmA';
  27860. function AccessCheckByTypeResultListAndAuditAlarmW; external advapi32 name 'AccessCheckByTypeResultListAndAuditAlarmW';
  27861. function AccessCheckByTypeResultListAndAuditAlarm; external advapi32 name 'AccessCheckByTypeResultListAndAuditAlarmA';
  27862. function AddAccessAllowedAce; external advapi32 name 'AddAccessAllowedAce';
  27863. function AddAccessAllowedAceEx; external advapi32 name 'AddAccessAllowedAceEx';
  27864. function AddAccessAllowedObjectAce; external advapi32 name 'AddAccessAllowedObjectAce';
  27865. function AddAccessDeniedAce; external advapi32 name 'AddAccessDeniedAce';
  27866. function AddAccessDeniedObjectAce; external advapi32 name 'AddAccessDeniedObjectAce';
  27867. function AddAccessDeniedAceEx; external advapi32 name 'AddAccessDeniedAceEx';
  27868. function AddAce; external advapi32 name 'AddAce';
  27869. function AddAuditAccessAce; external advapi32 name 'AddAuditAccessAce';
  27870. function AddAuditAccessAceEx; external advapi32 name 'AddAuditAccessAceEx';
  27871. function AddAuditAccessObjectAce; external advapi32 name 'AddAuditAccessObjectAce';
  27872. function AdjustTokenGroups; external advapi32 name 'AdjustTokenGroups';
  27873. function AdjustTokenPrivileges(TokenHandle: THandle; DisableAllPrivileges: BOOL;
  27874.   const NewState: TTokenPrivileges; BufferLength: DWORD;
  27875.   var PreviousState: TTokenPrivileges; var ReturnLength: DWORD): BOOL; external advapi32 name 'AdjustTokenPrivileges';
  27876. function AdjustTokenPrivileges(TokenHandle: THandle; DisableAllPrivileges: BOOL;
  27877.   const NewState: TTokenPrivileges; BufferLength: DWORD;
  27878.   PreviousState: PTokenPrivileges; var ReturnLength: DWORD): BOOL; external advapi32 name 'AdjustTokenPrivileges';
  27879. function AllocateAndInitializeSid; external advapi32 name 'AllocateAndInitializeSid';
  27880. function AllocateLocallyUniqueId; external advapi32 name 'AllocateLocallyUniqueId';
  27881. function AreAllAccessesGranted; external advapi32 name 'AreAllAccessesGranted';
  27882. function AreAnyAccessesGranted; external advapi32 name 'AreAnyAccessesGranted';
  27883. function BackupEventLogA; external advapi32 name 'BackupEventLogA';
  27884. function BackupEventLogW; external advapi32 name 'BackupEventLogW';
  27885. function BackupEventLog; external advapi32 name 'BackupEventLogA';
  27886. function ClearEventLogA; external advapi32 name 'ClearEventLogA';
  27887. function ClearEventLogW; external advapi32 name 'ClearEventLogW';
  27888. function ClearEventLog; external advapi32 name 'ClearEventLogA';
  27889. function CloseEventLog; external advapi32 name 'CloseEventLog';
  27890. function ConvertToAutoInheritPrivateObjectSecurity; external advapi32 name 'ConvertToAutoInheritPrivateObjectSecurity';
  27891. function CopySid; external advapi32 name 'CopySid';
  27892. function CreatePrivateObjectSecurity; external advapi32 name 'CreatePrivateObjectSecurity';
  27893. function CreatePrivateObjectSecurityEx; external advapi32 name 'CreatePrivateObjectSecurityEx';
  27894. function CreateProcessAsUserA; external advapi32 name 'CreateProcessAsUserA';
  27895. function CreateProcessAsUserW; external advapi32 name 'CreateProcessAsUserW';
  27896. function CreateProcessAsUser; external advapi32 name 'CreateProcessAsUserA';
  27897. function DeleteAce; external advapi32 name 'DeleteAce';
  27898. function DeregisterEventSource; external advapi32 name 'DeregisterEventSource';
  27899. function DestroyPrivateObjectSecurity; external advapi32 name 'DestroyPrivateObjectSecurity';
  27900. function DuplicateToken; external advapi32 name 'DuplicateToken';
  27901. function DuplicateTokenEx; external advapi32 name 'DuplicateTokenEx';
  27902. function EqualPrefixSid; external advapi32 name 'EqualPrefixSid';
  27903. function EqualSid; external advapi32 name 'EqualSid';
  27904. function FindFirstFreeAce; external advapi32 name 'FindFirstFreeAce';
  27905. function FreeSid; external advapi32 name 'FreeSid';
  27906. function GetAce; external advapi32 name 'GetAce';
  27907. function GetAclInformation; external advapi32 name 'GetAclInformation';
  27908. function GetCurrentHwProfileA; external advapi32 name 'GetCurrentHwProfileA';
  27909. function GetCurrentHwProfileW; external advapi32 name 'GetCurrentHwProfileW';
  27910. function GetCurrentHwProfile; external advapi32 name 'GetCurrentHwProfileA';
  27911. function GetFileSecurityA; external advapi32 name 'GetFileSecurityA';
  27912. function GetFileSecurityW; external advapi32 name 'GetFileSecurityW';
  27913. function GetFileSecurity; external advapi32 name 'GetFileSecurityA';
  27914. function GetKernelObjectSecurity; external advapi32 name 'GetKernelObjectSecurity';
  27915. function GetLengthSid; external advapi32 name 'GetLengthSid';
  27916. function GetNumberOfEventLogRecords; external advapi32 name 'GetNumberOfEventLogRecords';
  27917. function GetOldestEventLogRecord; external advapi32 name 'GetOldestEventLogRecord';
  27918. function GetPrivateObjectSecurity; external advapi32 name 'GetPrivateObjectSecurity';
  27919. function GetSecurityDescriptorControl; external advapi32 name 'GetSecurityDescriptorControl';
  27920. function GetSecurityDescriptorDacl; external advapi32 name 'GetSecurityDescriptorDacl';
  27921. function GetSecurityDescriptorGroup; external advapi32 name 'GetSecurityDescriptorGroup';
  27922. function GetSecurityDescriptorLength; external advapi32 name 'GetSecurityDescriptorLength';
  27923. function GetSecurityDescriptorOwner; external advapi32 name 'GetSecurityDescriptorOwner';
  27924. function GetSecurityDescriptorSacl; external advapi32 name 'GetSecurityDescriptorSacl';
  27925. function GetSidIdentifierAuthority; external advapi32 name 'GetSidIdentifierAuthority';
  27926. function GetSidLengthRequired; external advapi32 name 'GetSidLengthRequired';
  27927. function GetSidSubAuthority; external advapi32 name 'GetSidSubAuthority';
  27928. function GetSidSubAuthorityCount; external advapi32 name 'GetSidSubAuthorityCount';
  27929. function GetTokenInformation; external advapi32 name 'GetTokenInformation';
  27930. function GetUserNameA; external advapi32 name 'GetUserNameA';
  27931. function GetUserNameW; external advapi32 name 'GetUserNameW';
  27932. function GetUserName; external advapi32 name 'GetUserNameA';
  27933. function ImpersonateLoggedOnUser; external advapi32 name 'ImpersonateLoggedOnUser';
  27934. function ImpersonateNamedPipeClient; external advapi32 name 'ImpersonateNamedPipeClient';
  27935. function ImpersonateSelf; external advapi32 name 'ImpersonateSelf';
  27936. function InitializeAcl; external advapi32 name 'InitializeAcl';
  27937. function InitializeSecurityDescriptor; external advapi32 name 'InitializeSecurityDescriptor';
  27938. function InitializeSid; external advapi32 name 'InitializeSid';
  27939. function InitiateSystemShutdownA; external advapi32 name 'InitiateSystemShutdownA';
  27940. function InitiateSystemShutdownW; external advapi32 name 'InitiateSystemShutdownW';
  27941. function InitiateSystemShutdown; external advapi32 name 'InitiateSystemShutdownA';
  27942. function IsTextUnicode; external advapi32 name 'IsTextUnicode';
  27943. function IsValidAcl; external advapi32 name 'IsValidAcl';
  27944. function IsValidSecurityDescriptor; external advapi32 name 'IsValidSecurityDescriptor';
  27945. function IsValidSid; external advapi32 name 'IsValidSid';
  27946. function LogonUserA; external advapi32 name 'LogonUserA';
  27947. function LogonUserW; external advapi32 name 'LogonUserW';
  27948. function LogonUser; external advapi32 name 'LogonUserA';
  27949. function LookupAccountNameA; external advapi32 name 'LookupAccountNameA';
  27950. function LookupAccountNameW; external advapi32 name 'LookupAccountNameW';
  27951. function LookupAccountName; external advapi32 name 'LookupAccountNameA';
  27952. function LookupAccountSidA; external advapi32 name 'LookupAccountSidA';
  27953. function LookupAccountSidW; external advapi32 name 'LookupAccountSidW';
  27954. function LookupAccountSid; external advapi32 name 'LookupAccountSidA';
  27955. function LookupPrivilegeDisplayNameA; external advapi32 name 'LookupPrivilegeDisplayNameA';
  27956. function LookupPrivilegeDisplayNameW; external advapi32 name 'LookupPrivilegeDisplayNameW';
  27957. function LookupPrivilegeDisplayName; external advapi32 name 'LookupPrivilegeDisplayNameA';
  27958. function LookupPrivilegeNameA; external advapi32 name 'LookupPrivilegeNameA';
  27959. function LookupPrivilegeNameW; external advapi32 name 'LookupPrivilegeNameW';
  27960. function LookupPrivilegeName; external advapi32 name 'LookupPrivilegeNameA';
  27961. function LookupPrivilegeValueA; external advapi32 name 'LookupPrivilegeValueA';
  27962. function LookupPrivilegeValueW; external advapi32 name 'LookupPrivilegeValueW';
  27963. function LookupPrivilegeValue; external advapi32 name 'LookupPrivilegeValueA';
  27964. function MakeAbsoluteSD; external advapi32 name 'MakeAbsoluteSD';
  27965. function MakeSelfRelativeSD; external advapi32 name 'MakeSelfRelativeSD';
  27966. procedure MapGenericMask; external advapi32 name 'MapGenericMask';
  27967. function NotifyChangeEventLog; external advapi32 name 'NotifyChangeEventLog';
  27968. function ObjectCloseAuditAlarmA; external advapi32 name 'ObjectCloseAuditAlarmA';
  27969. function ObjectCloseAuditAlarmW; external advapi32 name 'ObjectCloseAuditAlarmW';
  27970. function ObjectCloseAuditAlarm; external advapi32 name 'ObjectCloseAuditAlarmA';
  27971. function ObjectDeleteAuditAlarmA; external advapi32 name 'ObjectDeleteAuditAlarmA';
  27972. function ObjectDeleteAuditAlarmW; external advapi32 name 'ObjectDeleteAuditAlarmW';
  27973. function ObjectDeleteAuditAlarm; external advapi32 name 'ObjectDeleteAuditAlarmA';
  27974. function ObjectOpenAuditAlarmA; external advapi32 name 'ObjectOpenAuditAlarmA';
  27975. function ObjectOpenAuditAlarmW; external advapi32 name 'ObjectOpenAuditAlarmW';
  27976. function ObjectOpenAuditAlarm; external advapi32 name 'ObjectOpenAuditAlarmA';
  27977. function ObjectPrivilegeAuditAlarmA; external advapi32 name 'ObjectPrivilegeAuditAlarmA';
  27978. function ObjectPrivilegeAuditAlarmW; external advapi32 name 'ObjectPrivilegeAuditAlarmW';
  27979. function ObjectPrivilegeAuditAlarm; external advapi32 name 'ObjectPrivilegeAuditAlarmA';
  27980. function OpenBackupEventLogA; external advapi32 name 'OpenBackupEventLogA';
  27981. function OpenBackupEventLogW; external advapi32 name 'OpenBackupEventLogW';
  27982. function OpenBackupEventLog; external advapi32 name 'OpenBackupEventLogA';
  27983. function OpenEventLogA; external advapi32 name 'OpenEventLogA';
  27984. function OpenEventLogW; external advapi32 name 'OpenEventLogW';
  27985. function OpenEventLog; external advapi32 name 'OpenEventLogA';
  27986. function OpenProcessToken; external advapi32 name 'OpenProcessToken';
  27987. function OpenThreadToken; external advapi32 name 'OpenThreadToken';
  27988. function PrivilegeCheck; external advapi32 name 'PrivilegeCheck';
  27989. function PrivilegedServiceAuditAlarmA; external advapi32 name 'PrivilegedServiceAuditAlarmA';
  27990. function PrivilegedServiceAuditAlarmW; external advapi32 name 'PrivilegedServiceAuditAlarmW';
  27991. function PrivilegedServiceAuditAlarm; external advapi32 name 'PrivilegedServiceAuditAlarmA';
  27992. function ReadEventLogA; external advapi32 name 'ReadEventLogA';
  27993. function ReadEventLogW; external advapi32 name 'ReadEventLogW';
  27994. function ReadEventLog; external advapi32 name 'ReadEventLogA';
  27995. function RegCloseKey; external advapi32 name 'RegCloseKey';
  27996. function RegConnectRegistryA; external advapi32 name 'RegConnectRegistryA';
  27997. function RegConnectRegistryW; external advapi32 name 'RegConnectRegistryW';
  27998. function RegConnectRegistry; external advapi32 name 'RegConnectRegistryA';
  27999. function RegCreateKeyA; external advapi32 name 'RegCreateKeyA';
  28000. function RegCreateKeyW; external advapi32 name 'RegCreateKeyW';
  28001. function RegCreateKey; external advapi32 name 'RegCreateKeyA';
  28002. function RegCreateKeyExA; external advapi32 name 'RegCreateKeyExA';
  28003. function RegCreateKeyExW; external advapi32 name 'RegCreateKeyExW';
  28004. function RegCreateKeyEx; external advapi32 name 'RegCreateKeyExA';
  28005. function RegDeleteKeyA; external advapi32 name 'RegDeleteKeyA';
  28006. function RegDeleteKeyW; external advapi32 name 'RegDeleteKeyW';
  28007. function RegDeleteKey; external advapi32 name 'RegDeleteKeyA';
  28008. function RegDeleteValueA; external advapi32 name 'RegDeleteValueA';
  28009. function RegDeleteValueW; external advapi32 name 'RegDeleteValueW';
  28010. function RegDeleteValue; external advapi32 name 'RegDeleteValueA';
  28011. function RegEnumKeyExA; external advapi32 name 'RegEnumKeyExA';
  28012. function RegEnumKeyExW; external advapi32 name 'RegEnumKeyExW';
  28013. function RegEnumKeyEx; external advapi32 name 'RegEnumKeyExA';
  28014. function RegEnumKeyA; external advapi32 name 'RegEnumKeyA';
  28015. function RegEnumKeyW; external advapi32 name 'RegEnumKeyW';
  28016. function RegEnumKey; external advapi32 name 'RegEnumKeyA';
  28017. function RegEnumValueA; external advapi32 name 'RegEnumValueA';
  28018. function RegEnumValueW; external advapi32 name 'RegEnumValueW';
  28019. function RegEnumValue; external advapi32 name 'RegEnumValueA';
  28020. function RegFlushKey; external advapi32 name 'RegFlushKey';
  28021. function RegGetKeySecurity; external advapi32 name 'RegGetKeySecurity';
  28022. function RegLoadKeyA; external advapi32 name 'RegLoadKeyA';
  28023. function RegLoadKeyW; external advapi32 name 'RegLoadKeyW';
  28024. function RegLoadKey; external advapi32 name 'RegLoadKeyA';
  28025. function RegNotifyChangeKeyValue; external advapi32 name 'RegNotifyChangeKeyValue';
  28026. function RegOpenKeyA; external advapi32 name 'RegOpenKeyA';
  28027. function RegOpenKeyW; external advapi32 name 'RegOpenKeyW';
  28028. function RegOpenKey; external advapi32 name 'RegOpenKeyA';
  28029. function RegOpenKeyExA; external advapi32 name 'RegOpenKeyExA';
  28030. function RegOpenKeyExW; external advapi32 name 'RegOpenKeyExW';
  28031. function RegOpenKeyEx; external advapi32 name 'RegOpenKeyExA';
  28032. function RegQueryInfoKeyA; external advapi32 name 'RegQueryInfoKeyA';
  28033. function RegQueryInfoKeyW; external advapi32 name 'RegQueryInfoKeyW';
  28034. function RegQueryInfoKey; external advapi32 name 'RegQueryInfoKeyA';
  28035. function RegQueryMultipleValuesA; external advapi32 name 'RegQueryMultipleValuesA';
  28036. function RegQueryMultipleValuesW; external advapi32 name 'RegQueryMultipleValuesW';
  28037. function RegQueryMultipleValues; external advapi32 name 'RegQueryMultipleValuesA';
  28038. function RegQueryValueA; external advapi32 name 'RegQueryValueA';
  28039. function RegQueryValueW; external advapi32 name 'RegQueryValueW';
  28040. function RegQueryValue; external advapi32 name 'RegQueryValueA';
  28041. function RegQueryValueExA; external advapi32 name 'RegQueryValueExA';
  28042. function RegQueryValueExW; external advapi32 name 'RegQueryValueExW';
  28043. function RegQueryValueEx; external advapi32 name 'RegQueryValueExA';
  28044. function RegReplaceKeyA; external advapi32 name 'RegReplaceKeyA';
  28045. function RegReplaceKeyW; external advapi32 name 'RegReplaceKeyW';
  28046. function RegReplaceKey; external advapi32 name 'RegReplaceKeyA';
  28047. function RegRestoreKeyA; external advapi32 name 'RegRestoreKeyA';
  28048. function RegRestoreKeyW; external advapi32 name 'RegRestoreKeyW';
  28049. function RegRestoreKey; external advapi32 name 'RegRestoreKeyA';
  28050. function RegSaveKeyA; external advapi32 name 'RegSaveKeyA';
  28051. function RegSaveKeyW; external advapi32 name 'RegSaveKeyW';
  28052. function RegSaveKey; external advapi32 name 'RegSaveKeyA';
  28053. function RegSetKeySecurity; external advapi32 name 'RegSetKeySecurity';
  28054. function RegSetValueA; external advapi32 name 'RegSetValueA';
  28055. function RegSetValueW; external advapi32 name 'RegSetValueW';
  28056. function RegSetValue; external advapi32 name 'RegSetValueA';
  28057. function RegSetValueExA; external advapi32 name 'RegSetValueExA';
  28058. function RegSetValueExW; external advapi32 name 'RegSetValueExW';
  28059. function RegSetValueEx; external advapi32 name 'RegSetValueExA';
  28060. function RegUnLoadKeyA; external advapi32 name 'RegUnLoadKeyA';
  28061. function RegUnLoadKeyW; external advapi32 name 'RegUnLoadKeyW';
  28062. function RegUnLoadKey; external advapi32 name 'RegUnLoadKeyA';
  28063. function RegisterEventSourceA; external advapi32 name 'RegisterEventSourceA';
  28064. function RegisterEventSourceW; external advapi32 name 'RegisterEventSourceW';
  28065. function RegisterEventSource; external advapi32 name 'RegisterEventSourceA';
  28066. function ReportEventA; external advapi32 name 'ReportEventA';
  28067. function ReportEventW; external advapi32 name 'ReportEventW';
  28068. function ReportEvent; external advapi32 name 'ReportEventA';
  28069. function RevertToSelf; external advapi32 name 'RevertToSelf';
  28070. function SetAclInformation; external advapi32 name 'SetAclInformation';
  28071. function SetFileSecurityA; external advapi32 name 'SetFileSecurityA';
  28072. function SetFileSecurityW; external advapi32 name 'SetFileSecurityW';
  28073. function SetFileSecurity; external advapi32 name 'SetFileSecurityA';
  28074. function SetKernelObjectSecurity; external advapi32 name 'SetKernelObjectSecurity';
  28075. function SetPrivateObjectSecurity; external advapi32 name 'SetPrivateObjectSecurity';
  28076. function SetPrivateObjectSecurityEx; external advapi32 name 'SetPrivateObjectSecurityEx';
  28077. function SetSecurityDescriptorControl; external advapi32 name 'SetSecurityDescriptorControl';
  28078. function SetSecurityDescriptorDacl; external advapi32 name 'SetSecurityDescriptorDacl';
  28079. function SetSecurityDescriptorGroup; external advapi32 name 'SetSecurityDescriptorGroup';
  28080. function SetSecurityDescriptorOwner; external advapi32 name 'SetSecurityDescriptorOwner';
  28081. function SetSecurityDescriptorSacl; external advapi32 name 'SetSecurityDescriptorSacl';
  28082. function SetThreadToken; external advapi32 name 'SetThreadToken';
  28083. function SetTokenInformation; external advapi32 name 'SetTokenInformation';
  28084.  
  28085. { Externals from imaghlp.dll }
  28086.  
  28087. { !!! these fuctions are not yet available in this dll
  28088. function WinSubmitCertificate; external imaghlp name 'WinSubmitCertificate';
  28089. function WinVerifyTrust; external imaghlp name 'WinVerifyTrust'; }
  28090.  
  28091. { Externals from kernel32.dll }
  28092.  
  28093. function AddAtomA; external kernel32 name 'AddAtomA';
  28094. function AddAtomW; external kernel32 name 'AddAtomW';
  28095. function AddAtom; external kernel32 name 'AddAtomA';
  28096. function AllocConsole; external kernel32 name 'AllocConsole';
  28097. function AreFileApisANSI; external kernel32 name 'AreFileApisANSI';
  28098. function BackupRead; external kernel32 name 'BackupRead';
  28099. function BackupSeek; external kernel32 name 'BackupSeek';
  28100. function BackupWrite; external kernel32 name 'BackupWrite';
  28101. function Beep; external kernel32 name 'Beep';
  28102. function BeginUpdateResourceA; external kernel32 name 'BeginUpdateResourceA';
  28103. function BeginUpdateResourceW; external kernel32 name 'BeginUpdateResourceW';
  28104. function BeginUpdateResource; external kernel32 name 'BeginUpdateResourceA';
  28105. function BuildCommDCBA; external kernel32 name 'BuildCommDCBA';
  28106. function BuildCommDCBW; external kernel32 name 'BuildCommDCBW';
  28107. function BuildCommDCB; external kernel32 name 'BuildCommDCBA';
  28108. function BuildCommDCBAndTimeoutsA; external kernel32 name 'BuildCommDCBAndTimeoutsA';
  28109. function BuildCommDCBAndTimeoutsW; external kernel32 name 'BuildCommDCBAndTimeoutsW';
  28110. function BuildCommDCBAndTimeouts; external kernel32 name 'BuildCommDCBAndTimeoutsA';
  28111. function CallNamedPipeA; external kernel32 name 'CallNamedPipeA';
  28112. function CallNamedPipeW; external kernel32 name 'CallNamedPipeW';
  28113. function CallNamedPipe; external kernel32 name 'CallNamedPipeA';
  28114. function CancelIo; external kernel32 name 'CancelIo';
  28115. function CancelWaitableTimer; external kernel32 name 'CancelWaitableTimer';
  28116. function ClearCommBreak; external kernel32 name 'ClearCommBreak';
  28117. function ClearCommError; external kernel32 name 'ClearCommError';
  28118. function CloseHandle; external kernel32 name 'CloseHandle';
  28119. procedure CloseRaw; external kernel32 name 'CloseRaw';
  28120. function CommConfigDialogA; external kernel32 name 'CommConfigDialogA';
  28121. function CommConfigDialogW; external kernel32 name 'CommConfigDialogW';
  28122. function CommConfigDialog; external kernel32 name 'CommConfigDialogA';
  28123. function CompareFileTime; external kernel32 name 'CompareFileTime';
  28124. function CompareStringA; external kernel32 name 'CompareStringA';
  28125. function CompareStringW; external kernel32 name 'CompareStringW';
  28126. function CompareString; external kernel32 name 'CompareStringA';
  28127. function ConnectNamedPipe; external kernel32 name 'ConnectNamedPipe';
  28128. function ContinueDebugEvent; external kernel32 name 'ContinueDebugEvent';
  28129. function ConvertThreadToFiber; external kernel32 name 'ConvertThreadToFiber';
  28130. function ConvertDefaultLocale; external kernel32 name 'ConvertDefaultLocale';
  28131. function CopyFileA; external kernel32 name 'CopyFileA';
  28132. function CopyFileExA; external kernel32 name 'CopyFileExA';
  28133. function CopyFileW; external kernel32 name 'CopyFileW';
  28134. function CopyFileExW; external kernel32 name 'CopyFileExW';
  28135. function CopyFile; external kernel32 name 'CopyFileA';
  28136. function CopyFileEx; external kernel32 name 'CopyFileExA';
  28137. function CreateConsoleScreenBuffer; external kernel32 name 'CreateConsoleScreenBuffer';
  28138. function CreateDirectoryA; external kernel32 name 'CreateDirectoryA';
  28139. function CreateDirectoryW; external kernel32 name 'CreateDirectoryW';
  28140. function CreateDirectory; external kernel32 name 'CreateDirectoryA';
  28141. function CreateDirectoryExA; external kernel32 name 'CreateDirectoryExA';
  28142. function CreateDirectoryExW; external kernel32 name 'CreateDirectoryExW';
  28143. function CreateDirectoryEx; external kernel32 name 'CreateDirectoryExA';
  28144. function CreateEventA; external kernel32 name 'CreateEventA';
  28145. function CreateEventW; external kernel32 name 'CreateEventW';
  28146. function CreateEvent; external kernel32 name 'CreateEventA';
  28147. function CreateFiber; external kernel32 name 'CreateFiber';
  28148. function CreateFileA; external kernel32 name 'CreateFileA';
  28149. function CreateFileW; external kernel32 name 'CreateFileW';
  28150. function CreateFile; external kernel32 name 'CreateFileA';
  28151. function CreateFileMappingA; external kernel32 name 'CreateFileMappingA';
  28152. function CreateFileMappingW; external kernel32 name 'CreateFileMappingW';
  28153. function CreateFileMapping; external kernel32 name 'CreateFileMappingA';
  28154. function CreateHardLinkA; external kernel32 name 'CreateHardLinkA';
  28155. function CreateHardLinkW; external kernel32 name 'CreateHardLinkW';
  28156. function CreateHardLink; external kernel32 name 'CreateHardLinkA';
  28157. function CreateIoCompletionPort; external kernel32 name 'CreateIoCompletionPort';
  28158. function CreateMailslotA; external kernel32 name 'CreateMailslotA';
  28159. function CreateMailslotW; external kernel32 name 'CreateMailslotW';
  28160. function CreateMailslot; external kernel32 name 'CreateMailslotA';
  28161. function CreateMutexA; external kernel32 name 'CreateMutexA';
  28162. function CreateMutexW; external kernel32 name 'CreateMutexW';
  28163. function CreateMutex; external kernel32 name 'CreateMutexA';
  28164. function CreateNamedPipeA; external kernel32 name 'CreateNamedPipeA';
  28165. function CreateNamedPipeW; external kernel32 name 'CreateNamedPipeW';
  28166. function CreateNamedPipe; external kernel32 name 'CreateNamedPipeA';
  28167. function CreatePipe; external kernel32 name 'CreatePipe';
  28168. function CreateProcessA; external kernel32 name 'CreateProcessA';
  28169. function CreateProcessW; external kernel32 name 'CreateProcessW';
  28170. function CreateProcess; external kernel32 name 'CreateProcessA';
  28171. function CreateRemoteThread; external kernel32 name 'CreateRemoteThread';
  28172. function CreateSemaphoreA; external kernel32 name 'CreateSemaphoreA';
  28173. function CreateSemaphoreW; external kernel32 name 'CreateSemaphoreW';
  28174. function CreateSemaphore; external kernel32 name 'CreateSemaphoreA';
  28175. function CreateTapePartition; external kernel32 name 'CreateTapePartition';
  28176. function CreateThread; external kernel32 name 'CreateThread';
  28177. function CreateWaitableTimerA; external kernel32 name 'CreateWaitableTimerA';
  28178. function CreateWaitableTimerW; external kernel32 name 'CreateWaitableTimerW';
  28179. function CreateWaitableTimer; external kernel32 name 'CreateWaitableTimerA';
  28180. function DecryptFileA; external kernel32 name 'DecryptFileA';
  28181. function DecryptFileW; external kernel32 name 'DecryptFileW';
  28182. function DecryptFile; external kernel32 name 'DecryptFile';
  28183. function DebugActiveProcess; external kernel32 name 'DebugActiveProcess';
  28184. procedure DebugBreak; external kernel32 name 'DebugBreak';
  28185. function DefineDosDeviceA; external kernel32 name 'DefineDosDeviceA';
  28186. function DefineDosDeviceW; external kernel32 name 'DefineDosDeviceW';
  28187. function DefineDosDevice; external kernel32 name 'DefineDosDeviceA';
  28188. function DeleteAtom; external kernel32 name 'DeleteAtom';
  28189. procedure DeleteCriticalSection; external kernel32 name 'DeleteCriticalSection';
  28190. function DeleteFiber; external kernel32 name 'DeleteFiber';
  28191. function DeleteFileA; external kernel32 name 'DeleteFileA';
  28192. function DeleteFileW; external kernel32 name 'DeleteFileW';
  28193. function DeleteFile; external kernel32 name 'DeleteFileA';
  28194. function DeviceIoControl; external kernel32 name 'DeviceIoControl';
  28195. function DisableThreadLibraryCalls; external kernel32 name 'DisableThreadLibraryCalls';
  28196. function DisconnectNamedPipe; external kernel32 name 'DisconnectNamedPipe';
  28197. function DosDateTimeToFileTime; external kernel32 name 'DosDateTimeToFileTime';
  28198. function DuplicateHandle; external kernel32 name 'DuplicateHandle';
  28199. function EncryptFileA; external kernel32 name 'EncryptFileA';
  28200. function EncryptFileW; external kernel32 name 'EncryptFileW';
  28201. function EncryptFile; external kernel32 name 'EncryptFile';
  28202. function EndUpdateResourceA; external kernel32 name 'EndUpdateResourceA';
  28203. function EndUpdateResourceW; external kernel32 name 'EndUpdateResourceW';
  28204. function EndUpdateResource; external kernel32 name 'EndUpdateResourceA';
  28205. procedure EnterCriticalSection; external kernel32 name 'EnterCriticalSection';
  28206. function EnumCalendarInfoA; external kernel32 name 'EnumCalendarInfoA';
  28207. function EnumCalendarInfoW; external kernel32 name 'EnumCalendarInfoW';
  28208. function EnumCalendarInfo; external kernel32 name 'EnumCalendarInfoA';
  28209. function EnumDateFormatsA; external kernel32 name 'EnumDateFormatsA';
  28210. function EnumDateFormatsW; external kernel32 name 'EnumDateFormatsW';
  28211. function EnumDateFormats; external kernel32 name 'EnumDateFormatsA';
  28212. function EnumResourceLanguagesA; external kernel32 name 'EnumResourceLanguagesA';
  28213. function EnumResourceLanguagesW; external kernel32 name 'EnumResourceLanguagesW';
  28214. function EnumResourceLanguages; external kernel32 name 'EnumResourceLanguagesA';
  28215. function EnumResourceNamesA; external kernel32 name 'EnumResourceNamesA';
  28216. function EnumResourceNamesW; external kernel32 name 'EnumResourceNamesW';
  28217. function EnumResourceNames; external kernel32 name 'EnumResourceNamesA';
  28218. function EnumResourceTypesA; external kernel32 name 'EnumResourceTypesA';
  28219. function EnumResourceTypesW; external kernel32 name 'EnumResourceTypesW';
  28220. function EnumResourceTypes; external kernel32 name 'EnumResourceTypesA';
  28221. function EnumSystemCodePagesA; external kernel32 name 'EnumSystemCodePagesA';
  28222. function EnumSystemCodePagesW; external kernel32 name 'EnumSystemCodePagesW';
  28223. function EnumSystemCodePages; external kernel32 name 'EnumSystemCodePagesA';
  28224. function EnumSystemLocalesA; external kernel32 name 'EnumSystemLocalesA';
  28225. function EnumSystemLocalesW; external kernel32 name 'EnumSystemLocalesW';
  28226. function EnumSystemLocales; external kernel32 name 'EnumSystemLocalesA';
  28227. function EnumTimeFormatsA; external kernel32 name 'EnumTimeFormatsA';
  28228. function EnumTimeFormatsW; external kernel32 name 'EnumTimeFormatsW';
  28229. function EnumTimeFormats; external kernel32 name 'EnumTimeFormatsA';
  28230. function EraseTape; external kernel32 name 'EraseTape';
  28231. function EscapeCommFunction; external kernel32 name 'EscapeCommFunction';
  28232. procedure ExitProcess; external kernel32 name 'ExitProcess';
  28233. procedure ExitThread; external kernel32 name 'ExitThread';
  28234. function ExpandEnvironmentStringsA; external kernel32 name 'ExpandEnvironmentStringsA';
  28235. function ExpandEnvironmentStringsW; external kernel32 name 'ExpandEnvironmentStringsW';
  28236. function ExpandEnvironmentStrings; external kernel32 name 'ExpandEnvironmentStringsA';
  28237. procedure FatalAppExitA; external kernel32 name 'FatalAppExitA';
  28238. procedure FatalAppExitW; external kernel32 name 'FatalAppExitW';
  28239. procedure FatalAppExit; external kernel32 name 'FatalAppExitA';
  28240. procedure FatalExit; external kernel32 name 'FatalExit';
  28241. function FileTimeToDosDateTime; external kernel32 name 'FileTimeToDosDateTime';
  28242. function FileTimeToLocalFileTime; external kernel32 name 'FileTimeToLocalFileTime';
  28243. function FileTimeToSystemTime; external kernel32 name 'FileTimeToSystemTime';
  28244. function FillConsoleOutputAttribute; external kernel32 name 'FillConsoleOutputAttribute';
  28245. function FillConsoleOutputCharacterA; external kernel32 name 'FillConsoleOutputCharacterA';
  28246. function FillConsoleOutputCharacterW; external kernel32 name 'FillConsoleOutputCharacterW';
  28247. function FillConsoleOutputCharacter; external kernel32 name 'FillConsoleOutputCharacterA';
  28248. function FindAtomA; external kernel32 name 'FindAtomA';
  28249. function FindAtomW; external kernel32 name 'FindAtomW';
  28250. function FindAtom; external kernel32 name 'FindAtomA';
  28251. function FindClose; external kernel32 name 'FindClose';
  28252. function FindCloseChangeNotification; external kernel32 name 'FindCloseChangeNotification';
  28253. function FindFirstChangeNotificationA; external kernel32 name 'FindFirstChangeNotificationA';
  28254. function FindFirstChangeNotificationW; external kernel32 name 'FindFirstChangeNotificationW';
  28255. function FindFirstChangeNotification; external kernel32 name 'FindFirstChangeNotificationA';
  28256. function FindFirstFileA; external kernel32 name 'FindFirstFileA';
  28257. function FindFirstFileExA; external kernel32 name 'FindFirstFileExA';
  28258. function FindFirstFileW; external kernel32 name 'FindFirstFileW';
  28259. function FindFirstFileExW; external kernel32 name 'FindFirstFileExW';
  28260. function FindFirstFile; external kernel32 name 'FindFirstFileA';
  28261. function FindFirstFileEx; external kernel32 name 'FindFirstFileExA';
  28262. function FindNextChangeNotification; external kernel32 name 'FindNextChangeNotification';
  28263. function FindNextFileA; external kernel32 name 'FindNextFileA';
  28264. function FindNextFileW; external kernel32 name 'FindNextFileW';
  28265. function FindNextFile; external kernel32 name 'FindNextFileA';
  28266. function FindResourceA; external kernel32 name 'FindResourceA';
  28267. function FindResourceW; external kernel32 name 'FindResourceW';
  28268. function FindResource; external kernel32 name 'FindResourceA';
  28269. function FindResourceExA; external kernel32 name 'FindResourceExA';
  28270. function FindResourceExW; external kernel32 name 'FindResourceExW';
  28271. function FindResourceEx; external kernel32 name 'FindResourceExA';
  28272. function FlushConsoleInputBuffer; external kernel32 name 'FlushConsoleInputBuffer';
  28273. function FlushFileBuffers; external kernel32 name 'FlushFileBuffers';
  28274. function FlushInstructionCache; external kernel32 name 'FlushInstructionCache';
  28275. function FlushViewOfFile; external kernel32 name 'FlushViewOfFile';
  28276. function FoldStringA; external kernel32 name 'FoldStringA';
  28277. function FoldStringW; external kernel32 name 'FoldStringW';
  28278. function FoldString; external kernel32 name 'FoldStringA';
  28279. function FormatMessageA; external kernel32 name 'FormatMessageA';
  28280. function FormatMessageW; external kernel32 name 'FormatMessageW';
  28281. function FormatMessage; external kernel32 name 'FormatMessageA';
  28282. function FreeConsole; external kernel32 name 'FreeConsole';
  28283. function FreeEnvironmentStringsA; external kernel32 name 'FreeEnvironmentStringsA';
  28284. function FreeEnvironmentStringsW; external kernel32 name 'FreeEnvironmentStringsW';
  28285. function FreeEnvironmentStrings; external kernel32 name 'FreeEnvironmentStringsA';
  28286. function FreeLibrary; external kernel32 name 'FreeLibrary';
  28287. procedure FreeLibraryAndExitThread; external kernel32 name 'FreeLibraryAndExitThread';
  28288. function InterlockedCompareExchange; external kernel32 name 'InterlockedCompareExchange';
  28289. function InterlockedDecrement; external kernel32 name 'InterlockedDecrement';
  28290. function InterlockedExchange; external kernel32 name 'InterlockedExchange';
  28291. function InterlockedExchangeAdd; external kernel32 name 'InterlockedExchangeAdd';
  28292. function InterlockedIncrement; external kernel32 name 'InterlockedIncrement';
  28293. function FreeResource; external kernel32 name 'FreeResource';
  28294. function GenerateConsoleCtrlEvent; external kernel32 name 'GenerateConsoleCtrlEvent';
  28295. function GetACP; external kernel32 name 'GetACP';
  28296. function GetAtomNameA; external kernel32 name 'GetAtomNameA';
  28297. function GetAtomNameW; external kernel32 name 'GetAtomNameW';
  28298. function GetAtomName; external kernel32 name 'GetAtomNameA';
  28299. function GetBinaryTypeA; external kernel32 name 'GetBinaryTypeA';
  28300. function GetBinaryTypeW; external kernel32 name 'GetBinaryTypeW';
  28301. function GetBinaryType; external kernel32 name 'GetBinaryTypeA';
  28302. function GetCPInfo; external kernel32 name 'GetCPInfo';
  28303. function GetCommandLineA; external kernel32 name 'GetCommandLineA';
  28304. function GetCommandLineW; external kernel32 name 'GetCommandLineW';
  28305. function GetCommandLine; external kernel32 name 'GetCommandLineA';
  28306. function GetCommConfig; external kernel32 name 'GetCommConfig';
  28307. function GetCommMask; external kernel32 name 'GetCommMask';
  28308. function GetCommModemStatus; external kernel32 name 'GetCommModemStatus';
  28309. function GetCommProperties; external kernel32 name 'GetCommProperties';
  28310. function GetCommState; external kernel32 name 'GetCommState';
  28311. function GetCommTimeouts; external kernel32 name 'GetCommTimeouts';
  28312. function GetCompressedFileSizeA; external kernel32 name 'GetCompressedFileSizeA';
  28313. function GetCompressedFileSizeW; external kernel32 name 'GetCompressedFileSizeW';
  28314. function GetCompressedFileSize; external kernel32 name 'GetCompressedFileSizeA';
  28315. function GetComputerNameA; external kernel32 name 'GetComputerNameA';
  28316. function GetComputerNameW; external kernel32 name 'GetComputerNameW';
  28317. function GetComputerName; external kernel32 name 'GetComputerNameA';
  28318. function GetConsoleCP; external kernel32 name 'GetConsoleCP';
  28319. function GetConsoleCursorInfo; external kernel32 name 'GetConsoleCursorInfo';
  28320. function GetConsoleMode; external kernel32 name 'GetConsoleMode';
  28321. function GetConsoleOutputCP; external kernel32 name 'GetConsoleOutputCP';
  28322. function GetConsoleScreenBufferInfo; external kernel32 name 'GetConsoleScreenBufferInfo';
  28323. function GetConsoleTitleA; external kernel32 name 'GetConsoleTitleA';
  28324. function GetConsoleTitleW; external kernel32 name 'GetConsoleTitleW';
  28325. function GetConsoleTitle; external kernel32 name 'GetConsoleTitleA';
  28326. function GetCurrencyFormatA; external kernel32 name 'GetCurrencyFormatA';
  28327. function GetCurrencyFormatW; external kernel32 name 'GetCurrencyFormatW';
  28328. function GetCurrencyFormat; external kernel32 name 'GetCurrencyFormatA';
  28329. function GetCurrentDirectoryA; external kernel32 name 'GetCurrentDirectoryA';
  28330. function GetCurrentDirectoryW; external kernel32 name 'GetCurrentDirectoryW';
  28331. function GetCurrentDirectory; external kernel32 name 'GetCurrentDirectoryA';
  28332. function GetCurrentProcess; external kernel32 name 'GetCurrentProcess';
  28333. function GetCurrentProcessId; external kernel32 name 'GetCurrentProcessId';
  28334. function GetCurrentThread; external kernel32 name 'GetCurrentThread';
  28335. function GetCurrentThreadId; external kernel32 name 'GetCurrentThreadId';
  28336. function GetDateFormatA; external kernel32 name 'GetDateFormatA';
  28337. function GetDateFormatW; external kernel32 name 'GetDateFormatW';
  28338. function GetDateFormat; external kernel32 name 'GetDateFormatA';
  28339. function GetDefaultCommConfigA; external kernel32 name 'GetDefaultCommConfigA';
  28340. function GetDefaultCommConfigW; external kernel32 name 'GetDefaultCommConfigW';
  28341. function GetDefaultCommConfig; external kernel32 name 'GetDefaultCommConfigA';
  28342. function GetDiskFreeSpaceA; external kernel32 name 'GetDiskFreeSpaceA';
  28343. function GetDiskFreeSpaceW; external kernel32 name 'GetDiskFreeSpaceW';
  28344. function GetDiskFreeSpace; external kernel32 name 'GetDiskFreeSpaceA';
  28345. function GetDiskFreeSpaceExA; external kernel32 name 'GetDiskFreeSpaceExA';
  28346. function GetDiskFreeSpaceExW; external kernel32 name 'GetDiskFreeSpaceExW';
  28347. function GetDiskFreeSpaceEx; external kernel32 name 'GetDiskFreeSpaceExA';
  28348. function GetDriveTypeA; external kernel32 name 'GetDriveTypeA';
  28349. function GetDriveTypeW; external kernel32 name 'GetDriveTypeW';
  28350. function GetDriveType; external kernel32 name 'GetDriveTypeA';
  28351. function GetEnvironmentStringsA; external kernel32 name 'GetEnvironmentStringsA';
  28352. function GetEnvironmentStringsW; external kernel32 name 'GetEnvironmentStringsW';
  28353. function GetEnvironmentStrings; external kernel32 name 'GetEnvironmentStringsA';
  28354. function GetEnvironmentVariableA; external kernel32 name 'GetEnvironmentVariableA';
  28355. function GetEnvironmentVariableW; external kernel32 name 'GetEnvironmentVariableW';
  28356. function GetEnvironmentVariable; external kernel32 name 'GetEnvironmentVariableA';
  28357. function GetExitCodeProcess; external kernel32 name 'GetExitCodeProcess';
  28358. function GetExitCodeThread; external kernel32 name 'GetExitCodeThread';
  28359. function GetFileAttributesA; external kernel32 name 'GetFileAttributesA';
  28360. function GetFileAttributesW; external kernel32 name 'GetFileAttributesW';
  28361. function GetFileAttributes; external kernel32 name 'GetFileAttributesA';
  28362. function GetFileAttributesExA; external kernel32 name 'GetFileAttributesExA';
  28363. function GetFileAttributesExW; external kernel32 name 'GetFileAttributesExW';
  28364. function GetFileAttributesEx; external kernel32 name 'GetFileAttributesExA';
  28365. function GetFileInformationByHandle; external kernel32 name 'GetFileInformationByHandle';
  28366. function GetFileSize; external kernel32 name 'GetFileSize';
  28367. function GetFileTime; external kernel32 name 'GetFileTime';
  28368. function GetFileType; external kernel32 name 'GetFileType';
  28369. function GetFullPathNameA; external kernel32 name 'GetFullPathNameA';
  28370. function GetFullPathNameW; external kernel32 name 'GetFullPathNameW';
  28371. function GetFullPathName; external kernel32 name 'GetFullPathNameA';
  28372. function GetHandleInformation; external kernel32 name 'GetHandleInformation';
  28373. function GetLargestConsoleWindowSize; external kernel32 name 'GetLargestConsoleWindowSize';
  28374. function GetLastError; external kernel32 name 'GetLastError';
  28375. procedure GetLocalTime; external kernel32 name 'GetLocalTime';
  28376. function GetLocaleInfoA; external kernel32 name 'GetLocaleInfoA';
  28377. function GetLocaleInfoW; external kernel32 name 'GetLocaleInfoW';
  28378. function GetLocaleInfo; external kernel32 name 'GetLocaleInfoA';
  28379. function GetLogicalDriveStringsA; external kernel32 name 'GetLogicalDriveStringsA';
  28380. function GetLogicalDriveStringsW; external kernel32 name 'GetLogicalDriveStringsW';
  28381. function GetLogicalDriveStrings; external kernel32 name 'GetLogicalDriveStringsA';
  28382. function GetLogicalDrives; external kernel32 name 'GetLogicalDrives';
  28383. function GetMailslotInfo; external kernel32 name 'GetMailslotInfo';
  28384. function GetModuleFileNameA; external kernel32 name 'GetModuleFileNameA';
  28385. function GetModuleFileNameW; external kernel32 name 'GetModuleFileNameW';
  28386. function GetModuleFileName; external kernel32 name 'GetModuleFileNameA';
  28387. function GetModuleHandleA; external kernel32 name 'GetModuleHandleA';
  28388. function GetModuleHandleW; external kernel32 name 'GetModuleHandleW';
  28389. function GetModuleHandle; external kernel32 name 'GetModuleHandleA';
  28390. function GetNamedPipeHandleStateA; external kernel32 name 'GetNamedPipeHandleStateA';
  28391. function GetNamedPipeHandleStateW; external kernel32 name 'GetNamedPipeHandleStateW';
  28392. function GetNamedPipeHandleState; external kernel32 name 'GetNamedPipeHandleStateA';
  28393. function GetNamedPipeInfo; external kernel32 name 'GetNamedPipeInfo';
  28394. function GetNumberFormatA; external kernel32 name 'GetNumberFormatA';
  28395. function GetNumberFormatW; external kernel32 name 'GetNumberFormatW';
  28396. function GetNumberFormat; external kernel32 name 'GetNumberFormatA';
  28397. function GetNumberOfConsoleInputEvents; external kernel32 name 'GetNumberOfConsoleInputEvents';
  28398. function GetNumberOfConsoleMouseButtons; external kernel32 name 'GetNumberOfConsoleMouseButtons';
  28399. function GetOEMCP; external kernel32 name 'GetOEMCP';
  28400. function GetOverlappedResult; external kernel32 name 'GetOverlappedResult';
  28401. function GetPriorityClass; external kernel32 name 'GetPriorityClass';
  28402. function GetPrivateProfileIntA; external kernel32 name 'GetPrivateProfileIntA';
  28403. function GetPrivateProfileIntW; external kernel32 name 'GetPrivateProfileIntW';
  28404. function GetPrivateProfileInt; external kernel32 name 'GetPrivateProfileIntA';
  28405. function GetPrivateProfileSectionA; external kernel32 name 'GetPrivateProfileSectionA';
  28406. function GetPrivateProfileSectionW; external kernel32 name 'GetPrivateProfileSectionW';
  28407. function GetPrivateProfileSection; external kernel32 name 'GetPrivateProfileSectionA';
  28408. function GetPrivateProfileSectionNamesA; external kernel32 name 'GetPrivateProfileSectionNamesA';
  28409. function GetPrivateProfileSectionNamesW; external kernel32 name 'GetPrivateProfileSectionNamesW';
  28410. function GetPrivateProfileSectionNames; external kernel32 name 'GetPrivateProfileSectionNamesA';
  28411. function GetPrivateProfileStringA; external kernel32 name 'GetPrivateProfileStringA';
  28412. function GetPrivateProfileStringW; external kernel32 name 'GetPrivateProfileStringW';
  28413. function GetPrivateProfileString; external kernel32 name 'GetPrivateProfileStringA';
  28414. function GetProcAddress; external kernel32 name 'GetProcAddress';
  28415. function GetProcessAffinityMask; external kernel32 name 'GetProcessAffinityMask';
  28416. function GetProcessHeap; external kernel32 name 'GetProcessHeap';
  28417. function GetProcessHeaps; external kernel32 name 'GetProcessHeaps';
  28418. function GetProcessPriorityBoost; external kernel32 name 'GetProcessPriorityBoost';
  28419. function GetProcessShutdownParameters; external kernel32 name 'GetProcessShutdownParameters';
  28420. function GetProcessTimes; external kernel32 name 'GetProcessTimes';
  28421. function GetProcessVersion; external kernel32 name 'GetProcessVersion';
  28422. function GetProcessWorkingSetSize; external kernel32 name 'GetProcessWorkingSetSize';
  28423. function GetProfileIntA; external kernel32 name 'GetProfileIntA';
  28424. function GetProfileIntW; external kernel32 name 'GetProfileIntW';
  28425. function GetProfileInt; external kernel32 name 'GetProfileIntA';
  28426. function GetProfileSectionA; external kernel32 name 'GetProfileSectionA';
  28427. function GetProfileSectionW; external kernel32 name 'GetProfileSectionW';
  28428. function GetProfileSection; external kernel32 name 'GetProfileSectionA';
  28429. function GetProfileStringA; external kernel32 name 'GetProfileStringA';
  28430. function GetProfileStringW; external kernel32 name 'GetProfileStringW';
  28431. function GetProfileString; external kernel32 name 'GetProfileStringA';
  28432. function GetQueuedCompletionStatus; external kernel32 name 'GetQueuedCompletionStatus';
  28433. function GetShortPathNameA; external kernel32 name 'GetShortPathNameA';
  28434. function GetShortPathNameW; external kernel32 name 'GetShortPathNameW';
  28435. function GetShortPathName; external kernel32 name 'GetShortPathNameA';
  28436. procedure GetStartupInfoA; external kernel32 name 'GetStartupInfoA';
  28437. procedure GetStartupInfoW; external kernel32 name 'GetStartupInfoW';
  28438. procedure GetStartupInfo; external kernel32 name 'GetStartupInfoA';
  28439. function GetStdHandle; external kernel32 name 'GetStdHandle';
  28440. function GetStringTypeExA; external kernel32 name 'GetStringTypeExA';
  28441. function GetStringTypeExW; external kernel32 name 'GetStringTypeExW';
  28442. function GetStringTypeEx; external kernel32 name 'GetStringTypeExA';
  28443. function GetStringTypeA; external kernel32 name 'GetStringTypeA';
  28444. function GetStringTypeW; external kernel32 name 'GetStringTypeW';
  28445. function GetSystemDefaultLCID; external kernel32 name 'GetSystemDefaultLCID';
  28446. function GetSystemDefaultLangID; external kernel32 name 'GetSystemDefaultLangID';
  28447. function GetSystemDirectoryA; external kernel32 name 'GetSystemDirectoryA';
  28448. function GetSystemDirectoryW; external kernel32 name 'GetSystemDirectoryW';
  28449. function GetSystemDirectory; external kernel32 name 'GetSystemDirectoryA';
  28450. procedure GetSystemInfo; external kernel32 name 'GetSystemInfo';
  28451. function GetSystemPowerStatus; external kernel32 name 'GetSystemPowerStatus';
  28452. procedure GetSystemTime; external kernel32 name 'GetSystemTime';
  28453. procedure GetSystemTimeAsFileTime; external kernel32 name 'GetSystemTimeAsFileTime';
  28454. function GetSystemTimeAdjustment; external kernel32 name 'GetSystemTimeAdjustment';
  28455. function GetTapeParameters; external kernel32 name 'GetTapeParameters';
  28456. function GetTapePosition; external kernel32 name 'GetTapePosition';
  28457. function GetTapeStatus; external kernel32 name 'GetTapeStatus';
  28458. function GetTempFileNameA; external kernel32 name 'GetTempFileNameA';
  28459. function GetTempFileNameW; external kernel32 name 'GetTempFileNameW';
  28460. function GetTempFileName; external kernel32 name 'GetTempFileNameA';
  28461. function GetTempPathA; external kernel32 name 'GetTempPathA';
  28462. function GetTempPathW; external kernel32 name 'GetTempPathW';
  28463. function GetTempPath; external kerne