123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561 |
- const
- MAX_PROFILE_LEN = 80;
- MM_MAX_AXES_NAMELEN = 16;
- MM_MAX_NUMAXES = 16;
- HW_PROFILE_GUIDLEN = 39;
-
- type
- HDEVNOTIFY = Pointer;
- PHDEVNOTIFY = ^HDEVNOTIFY;
-
- _GET_FILEEX_INFO_LEVELS = (GetFileExInfoStandard, GetFileExMaxInfoLevel);
- TGetFileExInfoLevels = _GET_FILEEX_INFO_LEVELS;
- GET_FILEEX_INFO_LEVELS = _GET_FILEEX_INFO_LEVELS;
-
- _FINDEX_INFO_LEVELS = (FindExInfoStandard, FindExInfoMaxInfoLevel);
- TFindexInfoLevels = _FINDEX_INFO_LEVELS;
- FINDEX_INFO_LEVELS = _FINDEX_INFO_LEVELS;
-
- _FINDEX_SEARCH_OPS = (FindExSearchNameMatch, FindExSearchLimitToDirectories,
- FindExSearchLimitToDevices, FindExSearchMaxSearchOp);
- TFindexSearchOps = _FINDEX_SEARCH_OPS;
- FINDEX_SEARCH_OPS = _FINDEX_SEARCH_OPS;
-
- TFNPropEnumProc = TFarProc;
- TFNPropEnumProcEx = TFarProc;
- TFNEditWordBreakProc = TFarProc;
- TFNNameEnumProc = TFarProc;
- TFNWinStaEnumProc = TFNNameEnumProc;
- TFNDeskTopEnumProc = TFNNameEnumProc;
- TFNWndProc = TFarProc;
- TFNDlgProc = TFarProc;
- TFNTimerProc = TFarProc;
- TFNGrayStringProc = TFarProc;
- TFNWndEnumProc = TFarProc;
- TFNSendAsyncProc = TFarProc;
- TFNDrawStateProc = TFarProc;
- TFNOldFontEnumProcW = TFarProc;
- TFNGObjEnumProc = TFarProc;
- TFNLineDDAProc = TFarProc;
- TFNFontEnumProcW = TFarProc;
- TFNProgressRoutine = TFarProc;
- TFNLocaleEnumProc = TFarProc;
- TFNCodepageEnumProc = TFarProc;
- TFNDateFmtEnumProc = TFarProc;
- TFNTimeFmtEnumProc = TFarProc;
- TFNCalInfoEnumProc = TFarProc;
- TFNICMEnumProc = TFarProc;
-
- MakeIntAtomW = PWideChar;
-
- PRecoveryAgentInformationW = ^TRecoveryAgentInformationW;
- _RECOVERY_AGENT_INFORMATIONW = record
- NextEntryOffset: DWORD;
- AgentNameLength: DWORD;
- AgentInformation: array[0..0] of CHAR;
- end;
- TRecoveryAgentInformationW = _RECOVERY_AGENT_INFORMATIONW;
- RECOVERY_AGENT_INFORMATIONW = _RECOVERY_AGENT_INFORMATIONW;
-
- PWin32FindDataW = ^TWin32FindDataW;
- _WIN32_FIND_DATAW = record
- dwFileAttributes: DWORD;
- ftCreationTime: TFileTime;
- ftLastAccessTime: TFileTime;
- ftLastWriteTime: TFileTime;
- nFileSizeHigh: DWORD;
- nFileSizeLow: DWORD;
- dwReserved0: DWORD;
- dwReserved1: DWORD;
- cFileName: array[0..MAX_PATH - 1] of WideChar;
- cAlternateFileName: array[0..13] of WideChar;
- end;
- TWin32FindDataW = _WIN32_FIND_DATAW;
- WIN32_FIND_DATAW = _WIN32_FIND_DATAW;
-
- PHWProfileInfoW = ^THWProfileInfoW;
- tagHW_PROFILE_INFOW = packed record
- dwDockInfo: DWORD;
- szHwProfileGuid: packed array[0..HW_PROFILE_GUIDLEN-1] of WideChar;
- szHwProfileName: packed array[0..MAX_PROFILE_LEN-1] of WideChar;
- end;
- THWProfileInfoW = tagHW_PROFILE_INFOW;
- HW_PROFILE_INFOW = tagHW_PROFILE_INFOW;
-
- PLogColorSpaceW = ^TLogColorSpaceW;
- tagLOGCOLORSPACEW = packed record
- lcsSignature: DWORD;
- lcsVersion: DWORD;
- lcsSize: DWORD;
- lcsCSType: LCSCSTYPE;
- lcsIntent: LCSGAMUTMATCH;
- lcsEndpoints: TCIEXYZTriple;
- lcsGammaRed: DWORD;
- lcsGammaGreen: DWORD;
- lcsGammaBlue: DWORD;
- lcsFilename: array[0..259] of WideChar;
- end;
- TLogColorSpaceW = tagLOGCOLORSPACEW;
- LOGCOLORSPACEW = tagLOGCOLORSPACEW;
-
- PNewTextMetricW = ^TNewTextMetricW;
- tagNEWTEXTMETRICW = record
- tmHeight: Longint;
- tmAscent: Longint;
- tmDescent: Longint;
- tmInternalLeading: Longint;
- tmExternalLeading: Longint;
- tmAveCharWidth: Longint;
- tmMaxCharWidth: Longint;
- tmWeight: Longint;
- tmOverhang: Longint;
- tmDigitizedAspectX: Longint;
- tmDigitizedAspectY: Longint;
- tmFirstChar: WideChar;
- tmLastChar: WideChar;
- tmDefaultChar: WideChar;
- tmBreakChar: WideChar;
- tmItalic: Byte;
- tmUnderlined: Byte;
- tmStruckOut: Byte;
- tmPitchAndFamily: Byte;
- tmCharSet: Byte;
- ntmFlags: DWORD;
- ntmSizeEM: UINT;
- ntmCellHeight: UINT;
- ntmAvgWidth: UINT;
- end;
- TNewTextMetricW = tagNEWTEXTMETRICW;
- NEWTEXTMETRICW = tagNEWTEXTMETRICW;
-
- PNewTextMetricExW = ^TNewTextMetricExW;
- tagNEWTEXTMETRICEXW = packed record
- ntmTm: TNewTextMetricW;
- ntmFontSig: TFontSignature;
- end;
- TNewTextMetricExW = tagNEWTEXTMETRICEXW;
- NEWTEXTMETRICEXW = tagNEWTEXTMETRICEXW;
-
- PEnumLogFontW = ^TEnumLogFontW;
- tagENUMLOGFONTW = packed record
- elfLogFont: TLogFontW;
- elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;
- elfStyle: array[0..LF_FACESIZE - 1] of WideChar;
- end;
- TEnumLogFontW = tagENUMLOGFONTW;
- ENUMLOGFONTW = tagENUMLOGFONTW;
-
- PEnumLogFontExW = ^TEnumLogFontExW;
- tagENUMLOGFONTEXW = packed record
- elfLogFont: TLogFontW;
- elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;
- elfStyle: array[0..LF_FACESIZE - 1] of WideChar;
- elfScript: array[0..LF_FACESIZE - 1] of WideChar;
- end;
- TEnumLogFontExW = tagENUMLOGFONTEXW;
- ENUMLOGFONTEXW = tagENUMLOGFONTEXW;
-
- PExtLogFontW = ^TExtLogFontW;
- tagEXTLOGFONTW = record
- elfLogFont: TLogFontW;
- elfFullName: array[0..LF_FULLFACESIZE - 1] of WideChar;
- elfStyle: array[0..LF_FACESIZE - 1] of WideChar;
- elfVersion: DWORD; { 0 for the first release of NT }
- elfStyleSize: DWORD;
- elfMatch: DWORD;
- elfReserved: DWORD;
- elfVendorId: array[0..ELF_VENDOR_SIZE - 1] of Byte;
- elfCulture: DWORD; { 0 for Latin }
- elfPanose: TPanose;
- end;
- TExtLogFontW = tagEXTLOGFONTW;
- EXTLOGFONTW = tagEXTLOGFONTW;
-
- PDisplayDeviceW = ^TDisplayDeviceW;
- _DISPLAY_DEVICEW = packed record
- cb: DWORD;
- DeviceName: array[0..31] of WideChar;
- DeviceString: array[0..127] of WideChar;
- StateFlags: DWORD;
- end;
- TDisplayDeviceW = _DISPLAY_DEVICEW;
-
- POutlineTextmetricW = ^TOutlineTextmetricW;
- _OUTLINETEXTMETRICW = record
- otmSize: UINT;
- otmTextMetrics: TTextMetricW;
- otmFiller: Byte;
- otmPanoseNumber: TPanose;
- otmfsSelection: UINT;
- otmfsType: UINT;
- otmsCharSlopeRise: Integer;
- otmsCharSlopeRun: Integer;
- otmItalicAngle: Integer;
- otmEMSquare: UINT;
- otmAscent: Integer;
- otmDescent: Integer;
- otmLineGap: UINT;
- otmsCapEmHeight: UINT;
- otmsXHeight: UINT;
- otmrcFontBox: TRect;
- otmMacAscent: Integer;
- otmMacDescent: Integer;
- otmMacLineGap: UINT;
- otmusMinimumPPEM: UINT;
- otmptSubscriptSize: TPoint;
- otmptSubscriptOffset: TPoint;
- otmptSuperscriptSize: TPoint;
- otmptSuperscriptOffset: TPoint;
- otmsStrikeoutSize: UINT;
- otmsStrikeoutPosition: Integer;
- otmsUnderscoreSize: Integer;
- otmsUnderscorePosition: Integer;
- otmpFamilyName: PWideChar;
- otmpFaceName: PWideChar;
- otmpStyleName: PWideChar;
- otmpFullName: PWideChar;
- end;
- TOutlineTextmetricW = _OUTLINETEXTMETRICW;
- OUTLINETEXTMETRICW = _OUTLINETEXTMETRICW;
-
- PPolyTextW = ^TPolyTextW;
- tagPOLYTEXTW = packed record
- x: Integer;
- y: Integer;
- n: UINT;
- PAnsiChar: PWideChar;
- uiFlags: UINT;
- rcl: TRect;
- pdx: PINT;
- end;
- TPolyTextW = tagPOLYTEXTW;
- POLYTEXTW = tagPOLYTEXTW;
-
- PGCPResultsW = ^TGCPResultsW;
- tagGCP_RESULTSW = packed record
- lStructSize: DWORD;
- lpOutString: PWideChar;
- lpOrder: PUINT;
- lpDx: PINT;
- lpCaretPos: PINT;
- lpClass: PWideChar;
- lpGlyphs: PUINT;
- nGlyphs: UINT;
- nMaxFit: Integer;
- end;
- TGCPResultsW = tagGCP_RESULTSW;
- GCP_RESULTSW = tagGCP_RESULTSW;
-
- PAxisInfoW = ^TAxisInfoW;
- tagAXISINFOW = packed record
- axMinValue: Longint;
- axMaxValue: Longint;
- axAxisName: array[0..MM_MAX_AXES_NAMELEN-1] of WideChar;
- end;
- TAxisInfoW = tagAXISINFOW;
- PAxesListW = ^TAxesListW;
- tagAXESLISTW = packed record
- axlReserved: DWORD;
- axlNumAxes: DWORD;
- axlAxisInfo: array[0..MM_MAX_NUMAXES-1] of TAxisInfoW;
- end;
- TAxesListW = tagAXESLISTW;
-
- PDesignVector = ^TDesignVector;
- tagDESIGNVECTOR = packed record
- dvReserved: DWORD;
- dvNumAxes: DWORD;
- dvValues: array[0..MM_MAX_NUMAXES-1] of Longint;
- end;
- TDesignVector = tagDESIGNVECTOR;
-
- PEnumLogFontExDVW = ^TEnumLogFontExDVW;
- tagENUMLOGFONTEXDVW = packed record
- elfEnumLogfontEx: TEnumLogFontExW;
- elfDesignVector: TDesignVector;
- end;
- TEnumLogFontExDVW = tagENUMLOGFONTEXDVW;
-
- PEnumTextMetricW = ^TEnumTextMetricW;
- tagENUMTEXTMETRICW = packed record
- etmNewTextMetricEx: TNewTextMetricExW;
- etmAxesList: TAxesListW;
- end;
- TEnumTextMetricW = tagENUMTEXTMETRICW;
-
- PDocInfoW = ^TDocInfoW;
- _DOCINFOW = packed record
- cbSize: Integer;
- lpszDocName: PWideChar;
- lpszOutput: PWideChar;
- lpszDatatype: PWideChar;
- fwType: DWORD;
- end;
- TDocInfoW = _DOCINFOW;
- DOCINFOW = _DOCINFOW;
-
- PCreateStructW = ^TCreateStructW;
- tagCREATESTRUCTW = packed record
- lpCreateParams: Pointer;
- hInstance: HINST;
- hMenu: HMENU;
- hwndParent: HWND;
- cy: Integer;
- cx: Integer;
- y: Integer;
- x: Integer;
- style: Longint;
- lpszName: PWideChar;
- lpszClass: PWideChar;
- dwExStyle: DWORD;
- end;
- TCreateStructW = tagCREATESTRUCTW;
- CREATESTRUCTW = tagCREATESTRUCTW;
-
- TPRMsgBoxCallback = procedure(var lpHelpInfo: THelpInfo);
- PMsgBoxParamsW = ^TMsgBoxParamsW;
- tagMSGBOXPARAMSW = packed record
- cbSize: UINT;
- hwndOwner: HWND;
- hInstance: HINST;
- lpszText: PWideChar;
- lpszCaption: PWideChar;
- dwStyle: DWORD;
- lpszIcon: PWideChar;
- dwContextHelpId: DWORD;
- lpfnMsgBoxCallback: TPRMsgBoxCallback;
- dwLanguageId: DWORD;
- end;
- TMsgBoxParamsW = tagMSGBOXPARAMSW;
- MSGBOXPARAMSW = tagMSGBOXPARAMSW;
-
- PMDICreateStructW = ^TMDICreateStructW;
- tagMDICREATESTRUCTW = packed record
- szClass: PWideChar;
- szTitle: PWideChar;
- hOwner: THandle;
- x: Integer;
- y: Integer;
- cx: Integer;
- cy: Integer;
- style: DWORD;
- lParam: LPARAM; { app-defined stuff }
- end;
- TMDICreateStructW = tagMDICREATESTRUCTW;
- MDICREATESTRUCTW = tagMDICREATESTRUCTW;
-
- PMultiKeyHelpW = ^TMultiKeyHelpW;
- tagMULTIKEYHELPW = record
- mkSize: DWORD;
- mkKeylist: WideChar;
- szKeyphrase: array[0..0] of WideChar;
- end;
- TMultiKeyHelpW = tagMULTIKEYHELPW;
- MULTIKEYHELPW = tagMULTIKEYHELPW;
-
- PHelpWinInfoW = ^THelpWinInfoW;
- tagHELPWININFOW = record
- wStructSize: Integer;
- x: Integer;
- y: Integer;
- dx: Integer;
- dy: Integer;
- wMax: Integer;
- rgchMember: array[0..1] of WideChar;
- end;
- THelpWinInfoW = tagHELPWININFOW;
- HELPWININFOW = tagHELPWININFOW;
-
- PNonClientMetricsW = ^TNonClientMetricsW;
- tagNONCLIENTMETRICSW = packed record
- cbSize: UINT;
- iBorderWidth: Integer;
- iScrollWidth: Integer;
- iScrollHeight: Integer;
- iCaptionWidth: Integer;
- iCaptionHeight: Integer;
- lfCaptionFont: TLogFontW;
- iSmCaptionWidth: Integer;
- iSmCaptionHeight: Integer;
- lfSmCaptionFont: TLogFontW;
- iMenuWidth: Integer;
- iMenuHeight: Integer;
- lfMenuFont: TLogFontW;
- lfStatusFont: TLogFontW;
- lfMessageFont: TLogFontW;
- end;
- TNonClientMetricsW = tagNONCLIENTMETRICSW;
- NONCLIENTMETRICSW = tagNONCLIENTMETRICSW;
-
- PIconMetricsW = ^TIconMetricsW;
- tagICONMETRICSW = packed record
- cbSize: UINT;
- iHorzSpacing: Integer;
- iVertSpacing: Integer;
- iTitleWrap: Integer;
- lfFont: TLogFontW;
- end;
- TIconMetricsW = tagICONMETRICSW;
- ICONMETRICSW = tagICONMETRICSW;
-
- PSerialKeysW = ^TSerialKeysW;
- tagSERIALKEYSW = packed record
- cbSize: UINT;
- dwFlags: DWORD;
- lpszActivePort: PWideChar;
- lpszPort: PWideChar;
- iBaudRate: UINT;
- iPortState: UINT;
- iActive: UINT;
- end;
- TSerialKeysW = tagSERIALKEYSW;
- SERIALKEYSW = tagSERIALKEYSW;
-
- PHighContrastW = ^THighContrastW;
- tagHIGHCONTRASTW = packed record
- cbSize: UINT;
- dwFlags: DWORD;
- lpszDefaultScheme: PWideChar;
- end;
- THighContrastW = tagHIGHCONTRASTW;
- HIGHCONTRASTW = tagHIGHCONTRASTW;
-
- PSoundsEntryW = ^TSoundsEntryW;
- tagSOUNDSENTRYW = packed record
- cbSize: UINT;
- dwFlags: DWORD;
- iFSTextEffect: DWORD;
- iFSTextEffectMSec: DWORD;
- iFSTextEffectColorBits: DWORD;
- iFSGrafEffect: DWORD;
- iFSGrafEffectMSec: DWORD;
- iFSGrafEffectColor: DWORD;
- iWindowsEffect: DWORD;
- iWindowsEffectMSec: DWORD;
- lpszWindowsEffectDLL: PWideChar;
- iWindowsEffectOrdinal: DWORD;
- end;
- TSoundsEntryW = tagSOUNDSENTRYW;
- SOUNDSENTRYW = tagSOUNDSENTRYW;
-
- PNumberFmtW = ^TNumberFmtW;
- _numberfmtW = packed record
- NumDigits: UINT; { number of decimal digits }
- LeadingZero: UINT; { if leading zero in decimal fields }
- Grouping: UINT; { group size left of decimal }
- lpDecimalSep: PWideChar; { ptr to decimal separator string }
- lpThousandSep: PWideChar; { ptr to thousand separator string }
- NegativeOrder: UINT; { negative number ordering }
- end;
- TNumberFmtW = _numberfmtW;
- NUMBERFMTW = _numberfmtW;
-
- PCurrencyFmtW = ^TCurrencyFmtW;
- _currencyfmtW = packed record
- NumDigits: UINT; { number of decimal digits }
- LeadingZero: UINT; { if leading zero in decimal fields }
- Grouping: UINT; { group size left of decimal }
- lpDecimalSep: PWideChar; { ptr to decimal separator string }
- lpThousandSep: PWideChar; { ptr to thousand separator string }
- NegativeOrder: UINT; { negative currency ordering }
- PositiveOrder: UINT; { positive currency ordering }
- lpCurrencySymbol: PWideChar; { ptr to currency symbol string }
- end;
- TCurrencyFmtW = _currencyfmtW;
- CURRENCYFMTW = _currencyfmtW;
-
- PPValueW = ^TPValueW;
- pvalueW = packed record
- pv_valuename: PWideChar; { The value name pointer }
- pv_valuelen: BOOL;
- pv_value_context: Pointer;
- pv_type: DWORD;
- end;
- TPValueW = pvalueW;
-
- PValueEntW = ^TValueEntW;
- value_entW = packed record
- ve_valuename: PWideChar;
- ve_valuelen: DWORD;
- ve_valueptr: DWORD;
- ve_type: DWORD;
- end;
- TValueEntW = value_entW;
- VALENTW = value_entW;
-
- PNetResourceW = ^TNetResourceW;
- _NETRESOURCEW = packed record
- dwScope: DWORD;
- dwType: DWORD;
- dwDisplayType: DWORD;
- dwUsage: DWORD;
- lpLocalName: PWideChar;
- lpRemoteName: PWideChar;
- lpComment: PWideChar;
- lpProvider: PWideChar;
- end;
- TNetResourceW = _NETRESOURCEW;
- NETRESOURCEW = _NETRESOURCEW;
-
- PDiscDlgStructW = ^TDiscDlgStructW;
- _DISCDLGSTRUCTW = packed record
- cbStructure: DWORD; { size of this structure in bytes }
- hwndOwner: HWND; { owner window for the dialog }
- lpLocalName: PWideChar; { local device name }
- lpRemoteName: PWideChar; { network resource name }
- dwFlags: DWORD;
- end;
- TDiscDlgStructW = _DISCDLGSTRUCTW;
- DISCDLGSTRUCTW = _DISCDLGSTRUCTW;
-
- PUniversalNameInfoW = ^TUniversalNameInfoW;
- _UNIVERSAL_NAME_INFOW = packed record
- lpUniversalName: PWideChar;
- end;
- TUniversalNameInfoW = _UNIVERSAL_NAME_INFOW;
- UNIVERSAL_NAME_INFOW = _UNIVERSAL_NAME_INFOW;
-
- PRemoteNameInfoW = ^TRemoteNameInfoW;
- _REMOTE_NAME_INFOW = packed record
- lpUniversalName: PWideChar;
- lpConnectionName: PWideChar;
- lpRemainingPath: PWideChar;
- end;
- TRemoteNameInfoW = _REMOTE_NAME_INFOW;
- REMOTE_NAME_INFOW = _REMOTE_NAME_INFOW;
-
- PAltTabInfo = ^TAltTabInfo;
- tagALTTABINFO = packed record
- cbSize: DWORD;
- cItems: Integer;
- cColumns: Integer;
- cRows: Integer;
- iColFocus: Integer;
- iRowFocus: Integer;
- cxItem: Integer;
- cyItem: Integer;
- ptStart: TPoint;
- end;
- TAltTabInfo = tagALTTABINFO;
-
- PMenuItemInfoW = ^TMenuItemInfoW;
- tagMENUITEMINFOW = packed record
- cbSize: UINT;
- fMask: UINT;
- fType: UINT; { used if MIIM_TYPE}
- fState: UINT; { used if MIIM_STATE}
- wID: UINT; { used if MIIM_ID}
- hSubMenu: HMENU; { used if MIIM_SUBMENU}
- hbmpChecked: HBITMAP; { used if MIIM_CHECKMARKS}
- hbmpUnchecked: HBITMAP; { used if MIIM_CHECKMARKS}
- dwItemData: DWORD; { used if MIIM_DATA}
- dwTypeData: PWideChar; { used if MIIM_TYPE}
- cch: UINT; { used if MIIM_TYPE}
- hbmpItem: HBITMAP; { used if MIIM_BITMAP}
- end;
- TMenuItemInfoW = tagMENUITEMINFOW;
- MENUITEMINFOW = tagMENUITEMINFOW;
-
- PMenuItemInfo = PMenuItemInfoW;
- TMenuItemInfo = TMenuItemInfoW;
- MENUITEMINFO = MENUITEMINFOW;
|