+ Some fixes to wince api units by Vasil Maximov.

git-svn-id: trunk@11905 -
This commit is contained in:
yury 2008-10-17 10:41:46 +00:00
parent 14b5b6b9f2
commit a6bff5f077
12 changed files with 1536 additions and 1418 deletions

View File

@ -363,10 +363,10 @@ const
SIP_STATUS_UNAVAILABLE = 0;
SIP_STATUS_AVAILABLE = 1;
SIPF_OFF = $00000000;
SIPF_ON = $00000001;
SIPF_DOCKED = $00000002;
SIPF_LOCKED = $00000004;
SIPF_OFF = $00000000;
SIPF_ON = $00000001;
SIPF_DOCKED = $00000002;
SIPF_LOCKED = $00000004;
{Supported system parameters}
SPI_SETCOMPLETIONINFO = 223;

View File

@ -1,3 +1,16 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
********************************************************************** }
//
// Module Name:
//
@ -710,4 +723,4 @@ function ConnMgrMapConRef(e:ConnMgrConRefTypeEnum; // @parm Specify type
implementation
end.
end.

View File

@ -1,3 +1,16 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
********************************************************************** }
//
// Module Name:
//
@ -92,7 +105,7 @@ const
DEVFLAGS_NOLOAD = $00000004; // Don't load Dll
DEVFLAGS_NAKEDENTRIES = $00000008; // Entry points don't have Prefix prepended
DEVFLAGS_BOOTPHASE_1 = $00001000; // This driver only load at system phase 1
DEVFLAGS_IRQ_EXCLUSIVE = $00000100; // This driver only can be load when it has exclusive access for IRQ.
DEVFLAGS_IRQ_EXCLUSIVE = $00000100; // This driver only can be load when it has exclusive access for IRQ.
DEVFLAGS_TRUSTEDCALLERONLY = $00010000; // This driver only can be opened by trusted application.
//
@ -224,4 +237,4 @@ const
implementation
end.
end.

View File

@ -1,3 +1,16 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
********************************************************************** }
//
// Module Name:
//
@ -57,4 +70,4 @@ function QueryPolicy(dwPolicyId:DWORD; pdwPolicyValue:PDWORD):HRESULT; external
implementation
end.
end.

View File

@ -1,3 +1,16 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
********************************************************************** }
//
// Module Name:
//

View File

@ -1,3 +1,16 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
********************************************************************** }
//
// Module Name:mmsystem.h -- Include file for Multimedia API's
//
@ -1865,4 +1878,4 @@ end;
{$ENDIF MMNOMIDI}
end.
end.

View File

@ -1,3 +1,16 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2008 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
********************************************************************** }
// -----------------------------------------------------------------------------
//
// msacm.h Audio Compression Manager Public Header File
@ -1166,4 +1179,4 @@ begin
end;
// - End of module: msacmdrv.h
end.
end.

File diff suppressed because it is too large Load Diff

View File

@ -409,31 +409,6 @@
485 QAUnhookWindowsJournalHook
2F2 QueryAPISetID
91 Random
1FC RasDeleteEntry
207 RasDevConfigDialogEditW
1F3 RasDial
1FE RasEnumConnections
203 RasEnumDevicesW
1F6 RasEnumEntries
1FF RasGetConnectStatus
206 RasGetDispPhoneNumW
20A RasGetEapConnectionData
208 RasGetEapUserData
200 RasGetEntryDevConfig
1F7 RasGetEntryDialParams
1F9 RasGetEntryProperties
205 RasGetLinkStatistics
204 RasGetProjectionInfoW
1F5 RasHangUp
1F4 RasHangup
202 RasIOControl
1FD RasRenameEntry
20B RasSetEapConnectionData
209 RasSetEapUserData
201 RasSetEntryDevConfig
1F8 RasSetEntryDialParams
1FA RasSetEntryProperties
1FB RasValidateEntryName
181 ReadFileWithSeek
3C0 ReadRegistryFromOEM
1BE RectangleAnimation

View File

@ -667,7 +667,7 @@
WS_BORDER = $800000;
WS_CAPTION = $c00000;
WS_CHILD = $40000000;
WS_CHILDWINDOW = $40000000;
{ WS_CHILDWINDOW = $40000000; // Not declared in WinCE }
WS_CLIPCHILDREN = $2000000;
WS_CLIPSIBLINGS = $4000000;
WS_DISABLED = $8000000;
@ -684,6 +684,7 @@
WS_THICKFRAME = $40000;
WS_VISIBLE = $10000000;
WS_VSCROLL = $200000;
BS_3STATE = $5;
BS_AUTO3STATE = $6;
BS_AUTOCHECKBOX = $3;
@ -704,12 +705,13 @@
BS_PUSHLIKE = $1000;
BS_RADIOBUTTON = $4;
BS_RIGHT = $200;
BS_RIGHTBUTTON = $20;
BS_RIGHTBUTTON = BS_LEFTTEXT;
BS_TEXT = 0;
BS_TOP = $400;
BS_USERBUTTON = $8;
{ BS_USERBUTTON = $8; // Unsupported under WinCE. }
BS_VCENTER = $c00;
BS_FLAT = $8000;
{ BS_FLAT = $8000; // Unsupported under WinCE. }
CBS_AUTOHSCROLL = $40;
CBS_DISABLENOSCROLL = $800;
CBS_DROPDOWN = $2;
@ -718,11 +720,23 @@
CBS_LOWERCASE = $4000;
CBS_NOINTEGRALHEIGHT = $400;
CBS_OEMCONVERT = $80;
CBS_OWNERDRAWFIXED = $10;
CBS_OWNERDRAWVARIABLE = $20;
CBS_SIMPLE = $1;
{ CBS_OWNERDRAWFIXED = $10; // Unsupported under WinCE. }
{ CBS_OWNERDRAWVARIABLE = $20; // Unsupported under WinCE. }
{ CBS_SIMPLE = $1; // Unsupported under WinCE. }
CBS_SORT = $100;
CBS_UPPERCASE = $2000;
{ Extended combo box styles }
CBS_EX_CONSTSTRINGDATA = $00000002;
{ If you specify the CBS_EX_CONSTSTRINGDATA style when the application
inserts a string into the list part of a combo box, the combo box
stores the pointer passed to it by the application rather than copying
the string. This saves RAM resources when you have a large table of
strings in ROM that you want to insert into a combo box. }
{ Edit Control Styles }
ES_AUTOHSCROLL = $80;
ES_AUTOVSCROLL = $40;
ES_CENTER = $1;
@ -737,6 +751,9 @@
ES_RIGHT = $2;
ES_UPPERCASE = $8;
ES_WANTRETURN = $1000;
ES_COMBOBOX = $0200; { Indicates that the edit control is part of a combo box. }
{ List box styles }
LBS_DISABLENOSCROLL = $1000;
LBS_EXTENDEDSEL = $800;
LBS_HASSTRINGS = $40;
@ -750,90 +767,106 @@
LBS_OWNERDRAWFIXED = $10;
LBS_OWNERDRAWVARIABLE = $20;
LBS_SORT = $2;
LBS_STANDARD = $a00003;
// LBS_STANDARD = $a00003;
LBS_USETABSTOPS = $80;
LBS_WANTKEYBOARDINPUT = $400;
SBS_BOTTOMALIGN = $4;
LBS_STANDARD = LBS_NOTIFY or LBS_SORT or WS_VSCROLL or WS_BORDER;
{ Extended list box styles }
LBS_EX_CONSTSTRINGDATA = $00000002;
{ Windows CE supports the LBS_EX_CONSTSTRINGDATA style that saves RAM
resources when you have a large table of strings in ROM that you want
to insert into a list box. }
{ Scroll bar styles }
{ SBS_BOTTOMALIGN = $4; // Unsupported under WinCE. }
SBS_HORZ = 0;
SBS_LEFTALIGN = $2;
SBS_RIGHTALIGN = $4;
SBS_SIZEBOX = $8;
SBS_SIZEBOXBOTTOMRIGHTALIGN = $4;
SBS_SIZEBOXTOPLEFTALIGN = $2;
SBS_SIZEGRIP = $10;
SBS_TOPALIGN = $2;
{ SBS_LEFTALIGN = $2; // Unsupported under WinCE. }
{ SBS_RIGHTALIGN = $4; // Unsupported under WinCE. }
{ SBS_SIZEBOX = $8; // Unsupported under WinCE. }
{ SBS_SIZEBOXBOTTOMRIGHTALIGN = $4; // Unsupported under WinCE. }
{ SBS_SIZEBOXTOPLEFTALIGN = $2; // Unsupported under WinCE. }
{ SBS_SIZEGRIP = $10; // Unsupported under WinCE. }
{ SBS_TOPALIGN = $2; // Unsupported under WinCE. }
SBS_VERT = $1;
{ Static control styles }
SS_BITMAP = $e;
SS_BLACKFRAME = $7;
SS_BLACKRECT = $4;
{ SS_BLACKFRAME = $7; // Unsupported under WinCE. }
{ SS_BLACKRECT = $4; // Unsupported under WinCE. }
SS_CENTER = $1;
SS_CENTERIMAGE = $200;
SS_ENHMETAFILE = $f;
SS_ETCHEDFRAME = $12;
SS_ETCHEDHORZ = $10;
SS_ETCHEDVERT = $11;
SS_GRAYFRAME = $8;
SS_GRAYRECT = $5;
{ SS_ENHMETAFILE = $f; // Unsupported under WinCE. }
{ SS_ETCHEDFRAME = $12; // Unsupported under WinCE. }
{ SS_ETCHEDHORZ = $10; // Unsupported under WinCE. }
{ SS_ETCHEDVERT = $11; // Unsupported under WinCE. }
{ SS_GRAYFRAME = $8; // Unsupported under WinCE. }
{ SS_GRAYRECT = $5; // Unsupported under WinCE. }
SS_ICON = $3;
SS_LEFT = 0;
SS_LEFTNOWORDWRAP = $c;
SS_NOPREFIX = $80;
SS_NOTIFY = $100;
SS_OWNERDRAW = $d;
SS_REALSIZEIMAGE = $800;
{ SS_OWNERDRAW = $d; // Unsupported under WinCE. }
{ SS_REALSIZEIMAGE = $800; // Unsupported under WinCE. }
SS_RIGHT = $2;
SS_RIGHTJUST = $400;
SS_SIMPLE = $b;
SS_SUNKEN = $1000;
SS_USERITEM = $a;
SS_WHITEFRAME = $9;
SS_WHITERECT = $6;
{ SS_RIGHTJUST = $400; // Unsupported under WinCE. }
{ SS_SIMPLE = $b; // Unsupported under WinCE. }
{ SS_SUNKEN = $1000; // Unsupported under WinCE. }
{ SS_USERITEM = $a; // Unsupported under WinCE. }
{ SS_WHITEFRAME = $9; // Unsupported under WinCE. }
{ SS_WHITERECT = $6; // Unsupported under WinCE. }
{ Dialog styles }
DS_ABSALIGN = $1;
DS_SYSMODAL = $2;
{ DS_ABSALIGN = $1; // Unsupported under WinCE. }
{ DS_SYSMODAL = $2; // Unsupported under WinCE. }
DS_3DLOOK = $4;
DS_FIXEDSYS = $8;
DS_NOFAILCREATE = $10;
DS_LOCALEDIT = $20;
DS_SETFONT = $40;
DS_MODALFRAME = $80;
DS_NOIDLEMSG = $100;
DS_SETFOREGROUND = $200;
{ DS_FIXEDSYS = $8; // Unsupported under WinCE. }
{ DS_NOFAILCREATE = $10; // Unsupported under WinCE. }
DS_LOCALEDIT = $20; { Edit items get Local storage. }
DS_SETFONT = $40; { User specified font for Dlg controls. }
DS_MODALFRAME = $80; { Can be combined with WS_CAPTION. }
{ DS_NOIDLEMSG = $100; // Unsupported under WinCE. }
DS_SETFOREGROUND = $200; { not in Windows 3.1 }
DS_CONTROL = $400;
DS_CENTER = $800;
DS_CENTERMOUSE = $1000;
DS_CONTEXTHELP = $2000;
DS_NOCLOSEBTN = $4000;
{ DS_CENTERMOUSE = $1000; // Unsupported under WinCE. }
{ DS_CONTEXTHELP = $2000; // Unsupported under WinCE. }
DS_NOCLOSEBTN = $4000;
{ CreateWindowEx }
WS_EX_LEFT = 0;
WS_EX_LTRREADING = 0;
WS_EX_RIGHTSCROLLBAR = 0;
{ WS_EX_LEFT = 0; // Not declared. }
{ WS_EX_LTRREADING = 0; // Not declared. }
{ WS_EX_RIGHTSCROLLBAR = 0; // Not declared. }
WS_EX_DLGMODALFRAME = $1;
WS_EX_NOPARENTNOTIFY = $4;
{ WS_EX_NOPARENTNOTIFY = $4; // Unsupported under WinCE. }
WS_EX_TOPMOST = $8;
WS_EX_ACCEPTFILES = $10;
WS_EX_TRANSPARENT = $20;
WS_EX_MDICHILD = $40;
{ WS_EX_ACCEPTFILES = $10; // Unsupported under WinCE. }
{ WS_EX_TRANSPARENT = $20; // Unsupported under WinCE. }
{ WS_EX_MDICHILD = $40; // Unsupported under WinCE. }
WS_EX_TOOLWINDOW = $80;
WS_EX_PALETTEWINDOW = $188;
{ WS_EX_PALETTEWINDOW = $188; // Unsupported under WinCE. }
WS_EX_WINDOWEDGE = $100;
WS_EX_CLIENTEDGE = $200;
WS_EX_OVERLAPPEDWINDOW = $300;
WS_EX_OVERLAPPEDWINDOW = WS_EX_WINDOWEDGE or WS_EX_CLIENTEDGE;
WS_EX_CONTEXTHELP = $400;
WS_EX_RIGHT = $1000;
WS_EX_RTLREADING = $2000;
WS_EX_LEFTSCROLLBAR = $4000;
WS_EX_CONTROLPARENT = $10000;
{ WS_EX_CONTROLPARENT = $10000; // Unsupported under WinCE. }
WS_EX_STATICEDGE = $20000;
WS_EX_APPWINDOW = $40000;
WS_EX_NOANIMATION = $4000000;
{ WS_EX_APPWINDOW = $40000; // Unsupported under WinCE. }
WS_EX_NOANIMATION = $4000000;
WS_EX_NOACTIVATE = $8000000;
WS_EX_INK = $10000000;
WS_EX_ABOVESTARTUP = $20000000;
WS_EX_INK = $10000000;
WS_EX_ABOVESTARTUP = $20000000;
WS_EX_NODRAG = $40000000;
WS_EX_CAPTIONOKBTN = $80000000;
WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children
WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring
{ CreateWindowStation }
WINSTA_ACCESSCLIPBOARD = $4;
WINSTA_ACCESSGLOBALATOMS = $20;
@ -1191,13 +1224,13 @@
{STARTDOC = 10; conflicts with AbortDoc function }
cSTARTDOC = 10;
{ EscapeCommFunction }
CLRDTR = 6; //winbase
CLRRTS = 4; //winbase
SETDTR = 5; //winbase
SETRTS = 3; //winbase
SETXOFF = 1; //winbase
SETXON = 2; //winbase
SETBREAK = 8; //winbase
CLRDTR = 6; //winbase
CLRRTS = 4; //winbase
SETDTR = 5; //winbase
SETRTS = 3; //winbase
SETXOFF = 1; //winbase
SETXON = 2; //winbase
SETBREAK = 8; //winbase
CLRBREAK = 9; //winbase
// Some CE devices share a UART between an IRDA port and a serial port.
// These escape functions allow control over the mode.
@ -1567,12 +1600,13 @@
QS_SENDMESSAGE = 64;
QS_TIMER = 16;
{ GetScrollInfo, SetScrollInfo }
SIF_ALL = 23;
{ SIF_ALL = 23; }
SIF_PAGE = 2;
SIF_POS = 4;
SIF_RANGE = 1;
SIF_DISABLENOSCROLL = 8;
SIF_TRACKPOS = $10;
SIF_ALL = SIF_RANGE or SIF_PAGE or SIF_POS or SIF_TRACKPOS;
{ GetStdHandle }
@ -1677,7 +1711,7 @@
COLOR_STATICTEXT =26 or SYS_COLOR_INDEX_FLAG;
COLOR_GRADIENTACTIVECAPTION =27 or SYS_COLOR_INDEX_FLAG;
COLOR_GRADIENTINACTIVECAPTION =28 or SYS_COLOR_INDEX_FLAG;
C_SYS_COLOR_TYPES =29;
C_SYS_COLOR_TYPES =29;
COLOR_DESKTOP =COLOR_BACKGROUND;
COLOR_3DFACE =COLOR_BTNFACE;
@ -1835,11 +1869,11 @@
LMEM_DISCARDABLE = $0F00; //**** Ignored ****/
LMEM_VALID_FLAGS = $0F72;
LMEM_INVALID_HANDLE = $8000;
LMEM_DDESHARE = $0000; //**** Ignored ****/
LMEM_LOWER = $0000; //**** Ignored ****/
LMEM_NOT_BANKED = $0000; //**** Ignored ****/
LMEM_NOTIFY = $0000; //**** Ignored ****/
LMEM_SHARE = $0000; //**** Ignored ****/
LMEM_DDESHARE = $0000; //**** Ignored ****/
LMEM_LOWER = $0000; //**** Ignored ****/
LMEM_NOT_BANKED = $0000; //**** Ignored ****/
LMEM_NOTIFY = $0000; //**** Ignored ****/
LMEM_SHARE = $0000; //**** Ignored ****/
LPTR = LMEM_FIXED or LMEM_ZEROINIT;
LHND = LMEM_MOVEABLE or LMEM_ZEROINIT;
NONZEROLHND = LMEM_MOVEABLE;
@ -2699,13 +2733,13 @@
SH_LAST_NOTIFY = 16; // Last set notified on Thread/Process Termination
SH_GDI = 16;
SH_WMGR = 17;
SH_WNET = 18; // WNet APIs for network redirector
SH_WNET = 18; // WNet APIs for network redirector
SH_COMM = 19; // Communications not "COM"
SH_FILESYS_APIS = 20; // File system APIS
SH_SHELL = 21;
SH_DEVMGR_APIS = 22; // File system device manager
SH_TAPI = 23;
SH_PATCHER = 24;
SH_TAPI = 23;
SH_PATCHER = 24;
SH_SERVICES = 26;
SH_LASTRESERVED = 26;
@ -3641,20 +3675,20 @@
LPSTR_TEXTCALLBACKA = LPSTR(-(1));
{$ifdef UNICODE}
{$ifdef UNICODE}
{const this is a function in fact !!
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;}
LPSTR_TEXTCALLBACK = LPWSTR(-(1));
{$else}
{$else}
{const
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA; }
{const
LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA; }
LPSTR_TEXTCALLBACK =LPSTR(-(1));
{$endif}
{$endif}
{ LV_ITEM structure }
{ LV_ITEM structure }
const
LVIF_TEXT = 1;
@ -5077,6 +5111,7 @@ PROCESSOR_ARM_V4TFP_INSTRUCTION PROCESSOR_ARM_V4TFP_INSTRUCTION
LB_ERRSPACE = -(2);
LB_OKAY = 0;
{ CB_DIR message }
CB_OKAY = 0;
CB_ERR = -(1);
CB_ERRSPACE = -(2);
{ WM_IME_CONTROL message }
@ -5611,7 +5646,7 @@ PROCESSOR_ARM_V4TFP_INSTRUCTION PROCESSOR_ARM_V4TFP_INSTRUCTION
// The following flags control the contents of the CONTEXT structure.
//
CONTEXT_SH3 = $00000040;
CONTEXT_SH4 = $000000c0; // CONTEXT_SH3 | 0x80 - must contain the SH3 bits
CONTEXT_SH4 = $000000c0; // CONTEXT_SH3 | 0x80 - must contain the SH3 bits
{$ifdef SH3}
CONTEXT_CONTROL = CONTEXT_SH3 or $00000001;
@ -5619,7 +5654,7 @@ PROCESSOR_ARM_V4TFP_INSTRUCTION PROCESSOR_ARM_V4TFP_INSTRUCTION
CONTEXT_DEBUG_REGISTERS = CONTEXT_SH3 or $00000008;
CONTEXT_DSP_REGISTERS = CONTEXT_SH3 or $00000010;
CONTEXT_FULL = CONTEXT_CONTROL or CONTEXT_INTEGER or CONTEXT_DEBUG_REGISTERS or CONTEXT_DSP_REGISTERS;
{$else} // SH4
{$else} // SH4
CONTEXT_CONTROL = CONTEXT_SH4 or $00000001;
CONTEXT_INTEGER = CONTEXT_SH4 or $00000002;
CONTEXT_DEBUG_REGISTERS = CONTEXT_SH4 or $00000008;
@ -5659,7 +5694,7 @@ PROCESSOR_ARM_V4TFP_INSTRUCTION PROCESSOR_ARM_V4TFP_INSTRUCTION
// Specific OEM extentions
PF_ARM_INTEL_XSCALE = $80010001;
PF_ARM_INTEL_XSCALE = $80010001;
PF_ARM_INTEL_PMU = $80010002;
PF_ARM_INTEL_WMMX = $80010003;

View File

@ -126,6 +126,7 @@
CB_SETLOCALE = 345;
CB_SETTOPINDEX = 348;
CB_SHOWDROPDOWN = 335;
CB_GETCOMBOBOXINFO = $0162;
{ Combo Box notifications }
CBN_CLOSEUP = 8;
CBN_DBLCLK = 2;

View File

@ -849,6 +849,22 @@
TCOLORMAP = COLORMAP;
PCOLORMAP = ^COLORMAP;
{*
* Combo Box Structures
*}
tagCOMBOBOXINFO = record
cbSize:DWORD;
rcItem:RECT;
rcButton:RECT;
stateButton:DWORD; // Currently unsupported on CE
hwndCombo:HWND;
hwndItem:HWND;
hwndList:HWND;
end;
COMBOBOXINFO = tagCOMBOBOXINFO;
PCOMBOBOXINFO = ^tagCOMBOBOXINFO;
LPCOMBOBOXINFO = ^tagCOMBOBOXINFO;
DCB = record
DCBlength : DWORD;
BaudRate : DWORD;
@ -7644,7 +7660,7 @@ type
tagBSTRBLOB = record
cbsize : ULONG;
pdata : pbyte;
pdata : pbyte;
end;
BSTRBLOB=TagBSTRBlob;
TBSTRBLOB=BSTRBLOB;