mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
* remove packed from some jedi structures to improve 64-bit compatibility.
closes bug #40100
This commit is contained in:
marcoonthegit
parent
6b5b8e8b8c
commit
d0093b019d
@ -183,7 +183,7 @@ type
|
||||
|
||||
POBJECTS_AND_SID = ^OBJECTS_AND_SID;
|
||||
{$EXTERNALSYM POBJECTS_AND_SID}
|
||||
_OBJECTS_AND_SID = packed record
|
||||
_OBJECTS_AND_SID = record
|
||||
ObjectsPresent: DWORD;
|
||||
ObjectTypeGuid: GUID;
|
||||
InheritedObjectTypeGuid: GUID;
|
||||
@ -197,7 +197,7 @@ type
|
||||
|
||||
POBJECTS_AND_NAME_A = ^OBJECTS_AND_NAME_A;
|
||||
{$EXTERNALSYM POBJECTS_AND_NAME_A}
|
||||
_OBJECTS_AND_NAME_A = packed record
|
||||
_OBJECTS_AND_NAME_A = record
|
||||
ObjectsPresent: DWORD;
|
||||
ObjectType: SE_OBJECT_TYPE;
|
||||
ObjectTypeName: LPSTR;
|
||||
@ -212,7 +212,7 @@ type
|
||||
|
||||
POBJECTS_AND_NAME_W = ^OBJECTS_AND_NAME_W;
|
||||
{$EXTERNALSYM POBJECTS_AND_NAME_W}
|
||||
_OBJECTS_AND_NAME_W = packed record
|
||||
_OBJECTS_AND_NAME_W = record
|
||||
ObjectsPresent: DWORD;
|
||||
ObjectType: SE_OBJECT_TYPE;
|
||||
ObjectTypeName: LPWSTR;
|
||||
@ -255,7 +255,7 @@ type
|
||||
|
||||
PTRUSTEE_A = ^TRUSTEE_A;
|
||||
{$EXTERNALSYM PTRUSTEE_A}
|
||||
_TRUSTEE_A = packed record
|
||||
_TRUSTEE_A = record
|
||||
pMultipleTrustee: PTRUSTEE_A;
|
||||
MultipleTrusteeOperation: MULTIPLE_TRUSTEE_OPERATION;
|
||||
TrusteeForm: TRUSTEE_FORM;
|
||||
@ -274,7 +274,7 @@ type
|
||||
|
||||
PTRUSTEE_W = ^TRUSTEE_W;
|
||||
{$EXTERNALSYM PTRUSTEE_W}
|
||||
_TRUSTEE_W = packed record
|
||||
_TRUSTEE_W = record
|
||||
pMultipleTrustee: PTRUSTEE_W;
|
||||
MultipleTrusteeOperation: MULTIPLE_TRUSTEE_OPERATION;
|
||||
TrusteeForm: TRUSTEE_FORM;
|
||||
@ -421,7 +421,7 @@ const
|
||||
type
|
||||
PEXPLICIT_ACCESS_A = ^EXPLICIT_ACCESS_A;
|
||||
{$EXTERNALSYM PEXPLICIT_ACCESS_A}
|
||||
_EXPLICIT_ACCESS_A = packed record
|
||||
_EXPLICIT_ACCESS_A = record
|
||||
grfAccessPermissions: DWORD;
|
||||
grfAccessMode: ACCESS_MODE;
|
||||
grfInheritance: DWORD;
|
||||
@ -439,7 +439,7 @@ type
|
||||
|
||||
PEXPLICIT_ACCESS_W = ^EXPLICIT_ACCESS_W;
|
||||
{$EXTERNALSYM PEXPLICIT_ACCESS_W}
|
||||
_EXPLICIT_ACCESS_W = packed record
|
||||
_EXPLICIT_ACCESS_W = record
|
||||
grfAccessPermissions: DWORD;
|
||||
grfAccessMode: ACCESS_MODE;
|
||||
grfInheritance: DWORD;
|
||||
@ -526,7 +526,7 @@ type
|
||||
|
||||
PACTRL_ACCESS_ENTRYA = ^ACTRL_ACCESS_ENTRYA;
|
||||
{$EXTERNALSYM PACTRL_ACCESS_ENTRYA}
|
||||
_ACTRL_ACCESS_ENTRYA = packed record
|
||||
_ACTRL_ACCESS_ENTRYA = record
|
||||
Trustee: TRUSTEE_A;
|
||||
fAccessFlags: ULONG;
|
||||
Access: ACCESS_RIGHTS;
|
||||
@ -546,7 +546,7 @@ type
|
||||
|
||||
PACTRL_ACCESS_ENTRYW = ^ACTRL_ACCESS_ENTRYW;
|
||||
{$EXTERNALSYM PACTRL_ACCESS_ENTRYW}
|
||||
_ACTRL_ACCESS_ENTRYW = packed record
|
||||
_ACTRL_ACCESS_ENTRYW = record
|
||||
Trustee: TRUSTEE_W;
|
||||
fAccessFlags: ULONG;
|
||||
Access: ACCESS_RIGHTS;
|
||||
@ -578,7 +578,7 @@ type
|
||||
|
||||
PACTRL_ACCESS_ENTRY_LISTA = ^ACTRL_ACCESS_ENTRY_LISTA;
|
||||
{$EXTERNALSYM PACTRL_ACCESS_ENTRY_LISTA}
|
||||
_ACTRL_ACCESS_ENTRY_LISTA = packed record
|
||||
_ACTRL_ACCESS_ENTRY_LISTA = record
|
||||
cEntries: ULONG;
|
||||
pAccessList: PACTRL_ACCESS_ENTRYA;
|
||||
end;
|
||||
@ -590,7 +590,7 @@ type
|
||||
|
||||
PACTRL_ACCESS_ENTRY_LISTW = ^ACTRL_ACCESS_ENTRY_LISTW;
|
||||
{$EXTERNALSYM PACTRL_ACCESS_ENTRY_LISTW}
|
||||
_ACTRL_ACCESS_ENTRY_LISTW = packed record
|
||||
_ACTRL_ACCESS_ENTRY_LISTW = record
|
||||
cEntries: ULONG;
|
||||
pAccessList: PACTRL_ACCESS_ENTRYW;
|
||||
end;
|
||||
@ -618,7 +618,7 @@ type
|
||||
|
||||
PACTRL_PROPERTY_ENTRYA = ^ACTRL_PROPERTY_ENTRYA;
|
||||
{$EXTERNALSYM PACTRL_PROPERTY_ENTRYA}
|
||||
_ACTRL_PROPERTY_ENTRYA = packed record
|
||||
_ACTRL_PROPERTY_ENTRYA = record
|
||||
lpProperty: LPSTR;
|
||||
pAccessEntryList: PACTRL_ACCESS_ENTRY_LISTA;
|
||||
fListFlags: ULONG;
|
||||
@ -631,7 +631,7 @@ type
|
||||
|
||||
PACTRL_PROPERTY_ENTRYW = ^ACTRL_PROPERTY_ENTRYW;
|
||||
{$EXTERNALSYM PACTRL_PROPERTY_ENTRYW}
|
||||
_ACTRL_PROPERTY_ENTRYW = packed record
|
||||
_ACTRL_PROPERTY_ENTRYW = record
|
||||
lpProperty: LPWSTR;
|
||||
pAccessEntryList: PACTRL_ACCESS_ENTRY_LISTW;
|
||||
fListFlags: ULONG;
|
||||
@ -659,7 +659,7 @@ type
|
||||
{$ENDIF UNICODE}
|
||||
|
||||
PActrlAlistA = ^TActrlAlistA;
|
||||
_ACTRL_ALISTA = packed record
|
||||
_ACTRL_ALISTA = record
|
||||
cEntries: ULONG;
|
||||
pPropertyAccessList: PACTRL_PROPERTY_ENTRYA;
|
||||
end;
|
||||
@ -675,7 +675,7 @@ type
|
||||
TActrlAlistA = _ACTRL_ALISTA;
|
||||
|
||||
PActrlAlistW = ^TActrlAlistW;
|
||||
_ACTRL_ALISTW = packed record
|
||||
_ACTRL_ALISTW = record
|
||||
cEntries: ULONG;
|
||||
pPropertyAccessList: PACTRL_PROPERTY_ENTRYW;
|
||||
end;
|
||||
@ -737,7 +737,7 @@ const
|
||||
type
|
||||
PTRUSTEE_ACCESSA = ^TRUSTEE_ACCESSA;
|
||||
{$EXTERNALSYM PTRUSTEE_ACCESSA}
|
||||
_TRUSTEE_ACCESSA = packed record
|
||||
_TRUSTEE_ACCESSA = record
|
||||
lpProperty: LPSTR;
|
||||
Access: ACCESS_RIGHTS;
|
||||
fAccessFlags: ULONG;
|
||||
@ -751,7 +751,7 @@ type
|
||||
|
||||
PTRUSTEE_ACCESSW = ^TRUSTEE_ACCESSW;
|
||||
{$EXTERNALSYM PTRUSTEE_ACCESSW}
|
||||
_TRUSTEE_ACCESSW = packed record
|
||||
_TRUSTEE_ACCESSW = record
|
||||
lpProperty: LPWSTR;
|
||||
Access: ACCESS_RIGHTS;
|
||||
fAccessFlags: ULONG;
|
||||
@ -1011,7 +1011,7 @@ const
|
||||
type
|
||||
PACTRL_OVERLAPPED = ^ACTRL_OVERLAPPED;
|
||||
{$EXTERNALSYM PACTRL_OVERLAPPED}
|
||||
_ACTRL_OVERLAPPED = packed record
|
||||
_ACTRL_OVERLAPPED = record
|
||||
//union {
|
||||
Provider: PVOID;
|
||||
// ULONG Reserved1;
|
||||
@ -1027,7 +1027,7 @@ type
|
||||
|
||||
PACTRL_ACCESS_INFOA = ^ACTRL_ACCESS_INFOA;
|
||||
{$EXTERNALSYM PACTRL_ACCESS_INFOA}
|
||||
_ACTRL_ACCESS_INFOA = packed record
|
||||
_ACTRL_ACCESS_INFOA = record
|
||||
fAccessPermission: ULONG;
|
||||
lpAccessPermissionName: LPSTR;
|
||||
end;
|
||||
@ -1039,7 +1039,7 @@ type
|
||||
|
||||
PACTRL_ACCESS_INFOW = ^ACTRL_ACCESS_INFOW;
|
||||
{$EXTERNALSYM PACTRL_ACCESS_INFOW}
|
||||
_ACTRL_ACCESS_INFOW = packed record
|
||||
_ACTRL_ACCESS_INFOW = record
|
||||
fAccessPermission: ULONG;
|
||||
lpAccessPermissionName: LPWSTR;
|
||||
end;
|
||||
@ -1067,7 +1067,7 @@ type
|
||||
|
||||
PACTRL_CONTROL_INFOA = ^ACTRL_CONTROL_INFOA;
|
||||
{$EXTERNALSYM PACTRL_CONTROL_INFOA}
|
||||
_ACTRL_CONTROL_INFOA = packed record
|
||||
_ACTRL_CONTROL_INFOA = record
|
||||
lpControlId: LPSTR;
|
||||
lpControlName: LPSTR;
|
||||
end;
|
||||
@ -1079,7 +1079,7 @@ type
|
||||
|
||||
PACTRL_CONTROL_INFOW = ^ACTRL_CONTROL_INFOW;
|
||||
{$EXTERNALSYM PACTRL_CONTROL_INFOW}
|
||||
_ACTRL_CONTROL_INFOW = packed record
|
||||
_ACTRL_CONTROL_INFOW = record
|
||||
lpControlId: LPWSTR;
|
||||
lpControlName: LPWSTR;
|
||||
end;
|
||||
|
||||
@ -471,7 +471,7 @@ type
|
||||
|
||||
PPropVariant = ^TPropVariant;
|
||||
|
||||
CAUB = packed record
|
||||
CAUB = record
|
||||
cElems: ULONG;
|
||||
pElems: PByte;
|
||||
end;
|
||||
@ -479,7 +479,7 @@ type
|
||||
PCAUB = ^TCAUB;
|
||||
TCAUB = CAUB;
|
||||
|
||||
CAI = packed record
|
||||
CAI = record
|
||||
cElems: ULONG;
|
||||
pElems: PShortInt;
|
||||
end;
|
||||
@ -487,7 +487,7 @@ type
|
||||
PCAI = ^TCAI;
|
||||
TCAI = CAI;
|
||||
|
||||
CAUI = packed record
|
||||
CAUI = record
|
||||
cElems: ULONG;
|
||||
pElems: PWord;
|
||||
end;
|
||||
@ -495,7 +495,7 @@ type
|
||||
PCAUI = ^TCAUI;
|
||||
TCAUI = CAUI;
|
||||
|
||||
CAL = packed record
|
||||
CAL = record
|
||||
cElems: ULONG;
|
||||
pElems: PLongint;
|
||||
end;
|
||||
@ -503,7 +503,7 @@ type
|
||||
PCAL = ^TCAL;
|
||||
TCAL = CAL;
|
||||
|
||||
CAUL = packed record
|
||||
CAUL = record
|
||||
cElems: ULONG;
|
||||
pElems: PULONG;
|
||||
end;
|
||||
@ -511,7 +511,7 @@ type
|
||||
PCAUL = ^TCAUL;
|
||||
TCAUL = CAUL;
|
||||
|
||||
CAFLT = packed record
|
||||
CAFLT = record
|
||||
cElems: ULONG;
|
||||
pElems: PSingle;
|
||||
end;
|
||||
@ -519,7 +519,7 @@ type
|
||||
PCAFLT = ^TCAFLT;
|
||||
TCAFLT = CAFLT;
|
||||
|
||||
CADBL = packed record
|
||||
CADBL = record
|
||||
cElems: ULONG;
|
||||
pElems: PDouble;
|
||||
end;
|
||||
@ -527,7 +527,7 @@ type
|
||||
PCADBL = ^TCADBL;
|
||||
TCADBL = CADBL;
|
||||
|
||||
CACY = packed record
|
||||
CACY = record
|
||||
cElems: ULONG;
|
||||
pElems: PCurrency;
|
||||
end;
|
||||
@ -535,7 +535,7 @@ type
|
||||
PCACY = ^TCACY;
|
||||
TCACY = CACY;
|
||||
|
||||
CADATE = packed record
|
||||
CADATE = record
|
||||
cElems: ULONG;
|
||||
pElems: POleDate;
|
||||
end;
|
||||
@ -543,7 +543,7 @@ type
|
||||
PCADATE = ^TCADATE;
|
||||
TCADATE = CADATE;
|
||||
|
||||
CABSTR = packed record
|
||||
CABSTR = record
|
||||
cElems: ULONG;
|
||||
pElems: PBSTR;
|
||||
end;
|
||||
@ -551,7 +551,7 @@ type
|
||||
PCABSTR = ^TCABSTR;
|
||||
TCABSTR = CABSTR;
|
||||
|
||||
CABOOL = packed record
|
||||
CABOOL = record
|
||||
cElems: ULONG;
|
||||
pElems: POleBool;
|
||||
end;
|
||||
@ -559,7 +559,7 @@ type
|
||||
PCABOOL = ^TCABOOL;
|
||||
TCABOOL = CABOOL;
|
||||
|
||||
CASCODE = packed record
|
||||
CASCODE = record
|
||||
cElems: ULONG;
|
||||
pElems: PSCODE;
|
||||
end;
|
||||
@ -567,7 +567,7 @@ type
|
||||
PCASCODE = ^TCASCODE;
|
||||
TCASCODE = CASCODE;
|
||||
|
||||
CAPROPVARIANT = packed record
|
||||
CAPROPVARIANT = record
|
||||
cElems: ULONG;
|
||||
pElems: PPropVariant;
|
||||
end;
|
||||
@ -575,7 +575,7 @@ type
|
||||
PCAPROPVARIANT = ^TCAPROPVARIANT;
|
||||
TCAPROPVARIANT = CAPROPVARIANT;
|
||||
|
||||
CAH = packed record
|
||||
CAH = record
|
||||
cElems: ULONG;
|
||||
pElems: PLargeInteger;
|
||||
end;
|
||||
@ -583,7 +583,7 @@ type
|
||||
PCAH = ^TCAH;
|
||||
TCAH = CAH;
|
||||
|
||||
CAUH = packed record
|
||||
CAUH = record
|
||||
cElems: ULONG;
|
||||
pElems: PULargeInteger;
|
||||
end;
|
||||
@ -591,7 +591,7 @@ type
|
||||
PCAUH = ^TCAUH;
|
||||
TCAUH = CAUH;
|
||||
|
||||
CALPSTR = packed record
|
||||
CALPSTR = record
|
||||
cElems: ULONG;
|
||||
pElems: PLPSTR;
|
||||
end;
|
||||
@ -599,7 +599,7 @@ type
|
||||
PCALPSTR = ^TCALPSTR;
|
||||
TCALPSTR = CALPSTR;
|
||||
|
||||
CALPWSTR = packed record
|
||||
CALPWSTR = record
|
||||
cElems: ULONG;
|
||||
pElems: PLPWSTR;
|
||||
end;
|
||||
@ -607,7 +607,7 @@ type
|
||||
PCALPWSTR = ^TCALPWSTR;
|
||||
TCALPWSTR = CALPWSTR;
|
||||
|
||||
CAFILETIME = packed record
|
||||
CAFILETIME = record
|
||||
cElems: ULONG;
|
||||
pElems: PFileTime;
|
||||
end;
|
||||
@ -615,7 +615,7 @@ type
|
||||
PCAFILETIME = ^TCAFILETIME;
|
||||
TCAFILETIME = CAFILETIME;
|
||||
|
||||
CACLIPDATA = packed record
|
||||
CACLIPDATA = record
|
||||
cElems: ULONG;
|
||||
pElems: PClipData;
|
||||
end;
|
||||
@ -623,7 +623,7 @@ type
|
||||
PCACLIPDATA = ^TCACLIPDATA;
|
||||
TCACLIPDATA = CACLIPDATA;
|
||||
|
||||
CACLSID = packed record
|
||||
CACLSID = record
|
||||
cElems: ULONG;
|
||||
pElems: PCLSID;
|
||||
end;
|
||||
@ -631,7 +631,7 @@ type
|
||||
PCACLSID = ^TCACLSID;
|
||||
TCACLSID = CACLSID;
|
||||
|
||||
PROPVARIANT = packed record
|
||||
PROPVARIANT = record
|
||||
vt: TVarType;
|
||||
wReserved1: Word;
|
||||
wReserved2: Word;
|
||||
@ -684,7 +684,7 @@ type
|
||||
{$EXTERNALSYM PROPVARIANT}
|
||||
TPropVariant = PROPVARIANT;
|
||||
|
||||
PROPSPEC = packed record
|
||||
PROPSPEC = record
|
||||
ulKind: ULONG;
|
||||
case Integer of
|
||||
0: (propid: TPropID);
|
||||
@ -703,7 +703,7 @@ type
|
||||
PStatPropStg = ^TStatPropStg;
|
||||
TStatPropStg = STATPROPSTG;
|
||||
|
||||
STATPROPSETSTG = packed record
|
||||
STATPROPSETSTG = record
|
||||
fmtid: TFmtID;
|
||||
clsid: TClsID;
|
||||
grfFlags: DWORD;
|
||||
|
||||
@ -963,14 +963,14 @@ type
|
||||
|
||||
ADSTYPEENUM = __MIDL___MIDL_itf_ads_0000_0001;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0002 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0002 = record
|
||||
dwLength: LongWord;
|
||||
lpValue: ^Byte;
|
||||
end;
|
||||
|
||||
ADS_OCTET_STRING = __MIDL___MIDL_itf_ads_0000_0002;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0003 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0003 = record
|
||||
dwLength: LongWord;
|
||||
lpValue: ^Byte;
|
||||
end;
|
||||
@ -980,7 +980,7 @@ type
|
||||
|
||||
{$IFNDEF JWA_INCLUDEMODE}
|
||||
|
||||
_SYSTEMTIME = packed record
|
||||
_SYSTEMTIME = record
|
||||
wYear: Word;
|
||||
wMonth: Word;
|
||||
wDayOfWeek: Word;
|
||||
@ -991,20 +991,20 @@ type
|
||||
wMilliseconds: Word;
|
||||
end;
|
||||
|
||||
_LARGE_INTEGER = packed record
|
||||
_LARGE_INTEGER = record
|
||||
QuadPart: Int64;
|
||||
end;
|
||||
|
||||
{$ENDIF JWA_INCLUDEMODE}
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0004 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0004 = record
|
||||
dwLength: LongWord;
|
||||
lpValue: ^Byte;
|
||||
end;
|
||||
|
||||
ADS_PROV_SPECIFIC = __MIDL___MIDL_itf_ads_0000_0004;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0005 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0005 = record
|
||||
Type_: LongWord;
|
||||
VolumeName: PWideChar;
|
||||
Path: PWideChar;
|
||||
@ -1012,27 +1012,27 @@ type
|
||||
|
||||
ADS_PATH = __MIDL___MIDL_itf_ads_0000_0005;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0006 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0006 = record
|
||||
PostalAddress: array[0..5] of PWideChar;
|
||||
end;
|
||||
|
||||
ADS_POSTALADDRESS = __MIDL___MIDL_itf_ads_0000_0006;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0007 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0007 = record
|
||||
WholeSeconds: LongWord;
|
||||
EventID: LongWord;
|
||||
end;
|
||||
|
||||
ADS_TIMESTAMP = __MIDL___MIDL_itf_ads_0000_0007;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0008 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0008 = record
|
||||
RemoteID: LongWord;
|
||||
ObjectName: PWideChar;
|
||||
end;
|
||||
|
||||
ADS_BACKLINK = __MIDL___MIDL_itf_ads_0000_0008;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0009 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0009 = record
|
||||
ObjectName: PWideChar;
|
||||
Level: LongWord;
|
||||
Interval: LongWord;
|
||||
@ -1040,14 +1040,14 @@ type
|
||||
|
||||
ADS_TYPEDNAME = __MIDL___MIDL_itf_ads_0000_0009;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0010 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0010 = record
|
||||
ObjectName: PWideChar;
|
||||
Amount: LongWord;
|
||||
end;
|
||||
|
||||
ADS_HOLD = __MIDL___MIDL_itf_ads_0000_0010;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0011 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0011 = record
|
||||
AddressType: LongWord;
|
||||
AddressLength: LongWord;
|
||||
Address: ^Byte;
|
||||
@ -1055,7 +1055,7 @@ type
|
||||
|
||||
ADS_NETADDRESS = __MIDL___MIDL_itf_ads_0000_0011;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0012 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0012 = record
|
||||
ServerName: PWideChar;
|
||||
ReplicaType: LongWord;
|
||||
ReplicaNumber: LongWord;
|
||||
@ -1065,7 +1065,7 @@ type
|
||||
|
||||
ADS_REPLICAPOINTER = __MIDL___MIDL_itf_ads_0000_0012;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0013 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0013 = record
|
||||
TelephoneNumber: PWideChar;
|
||||
NumberOfBits: LongWord;
|
||||
Parameters: ^Byte;
|
||||
@ -1073,14 +1073,14 @@ type
|
||||
|
||||
ADS_FAXNUMBER = __MIDL___MIDL_itf_ads_0000_0013;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0014 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0014 = record
|
||||
Address: PWideChar;
|
||||
Type_: LongWord;
|
||||
end;
|
||||
|
||||
ADS_EMAIL = __MIDL___MIDL_itf_ads_0000_0014;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0015 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0015 = record
|
||||
dwLength: LongWord;
|
||||
lpBinaryValue: ^Byte;
|
||||
pszDNString: PWideChar;
|
||||
@ -1088,19 +1088,19 @@ type
|
||||
|
||||
ADS_DN_WITH_BINARY = __MIDL___MIDL_itf_ads_0000_0015;
|
||||
|
||||
__MIDL___MIDL_itf_ads_0000_0016 = packed record
|
||||
__MIDL___MIDL_itf_ads_0000_0016 = record
|
||||
pszStringValue: PWideChar;
|
||||
pszDNString: PWideChar;
|
||||
end;
|
||||
|
||||
ADS_DN_WITH_STRING = __MIDL___MIDL_itf_ads_0000_0016;
|
||||
|
||||
_ADS_CASEIGNORE_LIST = packed record
|
||||
_ADS_CASEIGNORE_LIST = record
|
||||
Next: PUserType1;
|
||||
String_: PWideChar;
|
||||
end;
|
||||
|
||||
_ADS_OCTET_LIST = packed record
|
||||
_ADS_OCTET_LIST = record
|
||||
Next: PUserType2;
|
||||
Length: LongWord;
|
||||
Data: ^Byte;
|
||||
@ -1139,7 +1139,7 @@ type
|
||||
|
||||
ADS_AUTHENTICATION_ENUM = __MIDL___MIDL_itf_ads_0000_0018;
|
||||
|
||||
_ads_object_info = packed record
|
||||
_ads_object_info = record
|
||||
pszRDN: PWideChar;
|
||||
pszObjectDN: PWideChar;
|
||||
pszParentDN: PWideChar;
|
||||
@ -1155,12 +1155,12 @@ type
|
||||
ADS_CHASE_REFERRALS_ENUM = __MIDL___MIDL_itf_ads_0000_0024;
|
||||
ADS_SEARCHPREF_ENUM = __MIDL___MIDL_itf_ads_0000_0025;
|
||||
|
||||
_adsvalue = packed record
|
||||
_adsvalue = record
|
||||
dwType: ADSTYPEENUM;
|
||||
__MIDL_0010: __MIDL___MIDL_itf_ads_0000_0017;
|
||||
end;
|
||||
|
||||
ads_search_column = packed record
|
||||
ads_search_column = record
|
||||
pszAttrName: PWideChar;
|
||||
dwADsType: ADSTYPEENUM;
|
||||
pADsValues: ^_adsvalue;
|
||||
@ -1168,7 +1168,7 @@ type
|
||||
hReserved: Pointer;
|
||||
end;
|
||||
|
||||
_ads_attr_def = packed record
|
||||
_ads_attr_def = record
|
||||
pszAttrName: PWideChar;
|
||||
dwADsType: ADSTYPEENUM;
|
||||
dwMinRange: LongWord;
|
||||
@ -1176,7 +1176,7 @@ type
|
||||
fMultiValued: Integer;
|
||||
end;
|
||||
|
||||
_ads_sortkey = packed record
|
||||
_ads_sortkey = record
|
||||
pszAttrType: PWideChar;
|
||||
pszReserved: PWideChar;
|
||||
fReverseorder: Shortint;
|
||||
@ -1191,12 +1191,12 @@ type
|
||||
2: (hreftype: LongWord);
|
||||
end;
|
||||
|
||||
tagTYPEDESC = packed record
|
||||
tagTYPEDESC = record
|
||||
__MIDL_0008: __MIDL_IOleAutomationTypes_0005;
|
||||
vt: Word;
|
||||
end;
|
||||
|
||||
tagSAFEARRAYBOUND = packed record
|
||||
tagSAFEARRAYBOUND = record
|
||||
cElements: LongWord;
|
||||
lLbound: Integer;
|
||||
end;
|
||||
@ -1205,7 +1205,7 @@ type
|
||||
ULONG_PTR = PtrUint;
|
||||
{$ENDIF JWA_INCLUDEMODE}
|
||||
|
||||
tagIDLDESC = packed record
|
||||
tagIDLDESC = record
|
||||
dwReserved: ULONG_PTR;
|
||||
wIDLFlags: Word;
|
||||
end;
|
||||
@ -1214,22 +1214,22 @@ type
|
||||
DWORD = LongWord;
|
||||
{$ENDIF JWA_INCLUDEMODE}
|
||||
|
||||
tagPARAMDESCEX = packed record
|
||||
tagPARAMDESCEX = record
|
||||
cBytes: LongWord;
|
||||
varDefaultValue: OleVariant;
|
||||
end;
|
||||
|
||||
tagPARAMDESC = packed record
|
||||
tagPARAMDESC = record
|
||||
pparamdescex: ^tagPARAMDESCEX;
|
||||
wParamFlags: Word;
|
||||
end;
|
||||
|
||||
tagELEMDESC = packed record
|
||||
tagELEMDESC = record
|
||||
tdesc: tagTYPEDESC;
|
||||
paramdesc: tagPARAMDESC;
|
||||
end;
|
||||
|
||||
tagFUNCDESC = packed record
|
||||
tagFUNCDESC = record
|
||||
memid: Integer;
|
||||
lprgscode: ^SCODE;
|
||||
lprgelemdescParam: ^tagELEMDESC;
|
||||
@ -1250,7 +1250,7 @@ type
|
||||
1: (lpvarValue: ^OleVariant);
|
||||
end;
|
||||
|
||||
tagVARDESC = packed record
|
||||
tagVARDESC = record
|
||||
memid: Integer;
|
||||
lpstrSchema: PWideChar;
|
||||
__MIDL_0009: __MIDL_IOleAutomationTypes_0006;
|
||||
@ -1259,7 +1259,7 @@ type
|
||||
varkind: tagVARKIND;
|
||||
end;
|
||||
|
||||
tagTLIBATTR = packed record
|
||||
tagTLIBATTR = record
|
||||
GUID: TGUID;
|
||||
lcid: LongWord;
|
||||
syskind: tagSYSKIND;
|
||||
@ -1285,7 +1285,7 @@ type
|
||||
ADS_DISPLAY_ENUM = __MIDL___MIDL_itf_ads_0164_0003;
|
||||
ADS_ESCAPE_MODE_ENUM = __MIDL___MIDL_itf_ads_0164_0004;
|
||||
|
||||
_ads_attr_info = packed record
|
||||
_ads_attr_info = record
|
||||
pszAttrName: PWideChar;
|
||||
dwControlCode: LongWord;
|
||||
dwADsType: ADSTYPEENUM;
|
||||
@ -1293,13 +1293,13 @@ type
|
||||
dwNumValues: LongWord;
|
||||
end;
|
||||
|
||||
ads_searchpref_info = packed record
|
||||
ads_searchpref_info = record
|
||||
dwSearchPref: ADS_SEARCHPREF_ENUM;
|
||||
vValue: _adsvalue;
|
||||
dwStatus: ADS_STATUSENUM;
|
||||
end;
|
||||
|
||||
_ads_class_def = packed record
|
||||
_ads_class_def = record
|
||||
pszClassName: PWideChar;
|
||||
dwMandatoryAttrs: LongWord;
|
||||
ppszMandatoryAttrs: ^PWideChar;
|
||||
@ -1312,7 +1312,7 @@ type
|
||||
fIsContainer: Integer;
|
||||
end;
|
||||
|
||||
tagTYPEATTR = packed record
|
||||
tagTYPEATTR = record
|
||||
GUID: TGUID;
|
||||
lcid: LongWord;
|
||||
dwReserved: LongWord;
|
||||
@ -1333,7 +1333,7 @@ type
|
||||
idldescType: tagIDLDESC;
|
||||
end;
|
||||
|
||||
tagARRAYDESC = packed record
|
||||
tagARRAYDESC = record
|
||||
tdescElem: tagTYPEDESC;
|
||||
cDims: Word;
|
||||
rgbounds: ^tagSAFEARRAYBOUND;
|
||||
|
||||
@ -128,7 +128,7 @@ type
|
||||
|
||||
LPCPLINFO = ^CPLINFO;
|
||||
{$EXTERNALSYM LPCPLINFO}
|
||||
tagCPLINFO = packed record
|
||||
tagCPLINFO = record
|
||||
idIcon: Integer; // icon resource id, provided by CPlApplet()
|
||||
idName: Integer; // name string res. id, provided by CPlApplet()
|
||||
idInfo: Integer; // info string res. id, provided by CPlApplet()
|
||||
@ -143,7 +143,7 @@ type
|
||||
|
||||
LPNEWCPLINFOA = ^NEWCPLINFOA;
|
||||
{$EXTERNALSYM LPNEWCPLINFOA}
|
||||
tagNEWCPLINFOA = packed record
|
||||
tagNEWCPLINFOA = record
|
||||
dwSize: DWORD; // similar to the commdlg
|
||||
dwFlags: DWORD;
|
||||
dwHelpContext: DWORD; // help context to use
|
||||
@ -161,7 +161,7 @@ type
|
||||
|
||||
LPNEWCPLINFOW = ^NEWCPLINFOW;
|
||||
{$EXTERNALSYM LPNEWCPLINFOW}
|
||||
tagNEWCPLINFOW = packed record
|
||||
tagNEWCPLINFOW = record
|
||||
dwSize: DWORD; // similar to the commdlg
|
||||
dwFlags: DWORD;
|
||||
dwHelpContext: DWORD; // help context to use
|
||||
|
||||
@ -72,7 +72,7 @@ type
|
||||
// Used by command HH_GET_LAST_ERROR
|
||||
// You must call SysFreeString(xx.description) to free BSTR
|
||||
|
||||
tagHH_LAST_ERROR = packed record
|
||||
tagHH_LAST_ERROR = record
|
||||
cbStruct: Integer; // sizeof this structure
|
||||
hr: HRESULT; // Specifies the last error code.
|
||||
description: PWideChar; // (BSTR) Specifies a Unicode string containing a description of the error.
|
||||
|
||||
@ -394,7 +394,7 @@ const
|
||||
|
||||
type
|
||||
PHHLastError = ^THHLastError;
|
||||
tagHH_LAST_ERROR = packed record
|
||||
tagHH_LAST_ERROR = record
|
||||
cbStruct: INT; // size of this structure
|
||||
hr: HRESULT; // the last error code.
|
||||
description: LPWSTR; // a description of the error (unicode string - BSTR).
|
||||
@ -402,7 +402,7 @@ type
|
||||
THHLastError = tagHH_LAST_ERROR;
|
||||
|
||||
PHHNNotify = ^THHNNotify;
|
||||
tagHHN_NOTIFY = packed record
|
||||
tagHHN_NOTIFY = record
|
||||
hdr: NMHDR;
|
||||
pszUrl: PCSTR; // multibyte null-terminated string
|
||||
end;
|
||||
@ -412,7 +412,7 @@ type
|
||||
THHNNotify = tagHHN_NOTIFY;
|
||||
|
||||
PHHPopup = ^THHPopup;
|
||||
tagHH_POPUP = packed record
|
||||
tagHH_POPUP = record
|
||||
cbStruct: Integer; // sizeof this structure
|
||||
hinst_: HINST; // instance handle for string resource
|
||||
idString: UINT; // string resource id, or text id if pszFile is specified in HtmlHelp call
|
||||
@ -429,7 +429,7 @@ type
|
||||
THHPopup = tagHH_POPUP;
|
||||
|
||||
PHHAKLink = ^THHAKLink;
|
||||
tagHH_AKLINK = packed record
|
||||
tagHH_AKLINK = record
|
||||
cbStruct: Integer; // sizeof this structure
|
||||
fReserved: BOOL; // must be FALSE (really!)
|
||||
pszKeywords: LPCTSTR; // semi-colon separated keywords
|
||||
@ -477,7 +477,7 @@ const
|
||||
|
||||
type
|
||||
PHHEnumIT = ^THHEnumIT;
|
||||
tagHH_ENUM_IT = packed record
|
||||
tagHH_ENUM_IT = record
|
||||
cbStruct: Integer; // size of this structure
|
||||
iType: Integer; // the type of the information type ie. Inclusive, Exclusive, or Hidden
|
||||
pszCatName: LPCSTR; // Set to the name of the Category to enumerate the info types in a category; else NULL
|
||||
@ -492,7 +492,7 @@ type
|
||||
THHEnumIT = tagHH_ENUM_IT;
|
||||
|
||||
PHHEnumCat = ^THHEnumCat;
|
||||
tagHH_ENUM_CAT = packed record
|
||||
tagHH_ENUM_CAT = record
|
||||
cbStruct: Integer; // size of this structure
|
||||
pszCatName: LPCSTR; // volitile pointer to the category name
|
||||
pszCatDescription: LPCSTR; // volitile pointer to the category description
|
||||
@ -505,7 +505,7 @@ type
|
||||
THHEnumCat = tagHH_ENUM_CAT;
|
||||
|
||||
PHHSetInfoType = ^THHSetInfoType;
|
||||
tagHH_SET_INFOTYPE = packed record
|
||||
tagHH_SET_INFOTYPE = record
|
||||
cbStruct: Integer; // the size of this structure
|
||||
pszCatName: LPCSTR; // the name of the category, if any, the InfoType is a member of.
|
||||
pszInfoTypeName: LPCSTR; // the name of the info type to add to the filter
|
||||
@ -571,7 +571,7 @@ const
|
||||
|
||||
type
|
||||
PHHFtsQuery = ^THHFtsQuery;
|
||||
tagHH_FTS_QUERY = packed record
|
||||
tagHH_FTS_QUERY = record
|
||||
cbStruct: Integer; // Sizeof structure in bytes.
|
||||
fUniCodeStrings: BOOL; // TRUE if all strings are unicode.
|
||||
pszSearchQuery: LPCTSTR; // String containing the search query.
|
||||
@ -587,7 +587,7 @@ type
|
||||
THHFtsQuery = tagHH_FTS_QUERY;
|
||||
|
||||
PHHWinType = ^THHWinType;
|
||||
tagHH_WINTYPE = packed record
|
||||
tagHH_WINTYPE = record
|
||||
cbStruct: Integer; // IN: size of this structure including all Information Types
|
||||
fUniCodeStrings: BOOL; // IN/OUT: TRUE if all strings are in UNICODE
|
||||
pszType: LPCTSTR; // IN/OUT: Name of a type of window
|
||||
@ -693,7 +693,7 @@ const
|
||||
|
||||
type
|
||||
PHHNTrack = ^THHNTrack;
|
||||
tagHHNTRACK = packed record
|
||||
tagHHNTRACK = record
|
||||
hdr: NMHDR;
|
||||
pszCurUrl: PCSTR; // Multi-byte, null-terminated string
|
||||
idAction: Integer; // HHACT_ value
|
||||
|
||||
@ -2217,7 +2217,7 @@ const
|
||||
//
|
||||
|
||||
type
|
||||
_DSKTLSYSTEMTIME = packed record
|
||||
_DSKTLSYSTEMTIME = record
|
||||
wYear: WORD;
|
||||
wMonth: WORD;
|
||||
wDayOfWeek: WORD;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user