source: trunk/ab5.0/ablib/src/wtypes.ab @ 560

Last change on this file since 560 was 303, checked in by イグトランス (egtra), 15 years ago

フルコンパイルでのミスあぶり出し。註:修正は全て@300や@301以前に行われた。

File size: 11.5 KB
Line 
1'wtypes.ab
2
3Type RemHGLOBAL
4    fNullHGlobal As Long
5    cbData As DWord
6    data[1] As Byte
7End Type
8
9Type RemHMETAFILEPICT
10    mm As Long
11    xExt As Long
12    yExt As Long
13    cbData As DWord
14    data[1] As Byte
15End Type
16
17Type RemHENHMETAFILE
18    cbData As DWord
19    data[1] As Byte
20End Type
21
22Type RemHBITMAP
23    cbData As DWord
24    data[1] As Byte
25End Type
26
27Type RemHPALETTE
28    cbData As DWord
29    data[1] As Byte
30End Type
31
32Type RemBRUSH
33    cbData As DWord
34    data[1] As Byte
35End Type
36
37'HANDLE
38'HMODULE
39'HINSTANCE
40'HTASK
41'HKEY
42'HDESK
43TypeDef HMF = HANDLE
44TypeDef HEMF = HANDLE
45'HPEN
46'HRSRC
47'HSTR
48'HWINSTA
49'HKL
50'HGDIOBJ
51TypeDef HDWP = HANDLE
52
53'HFILE
54
55TypeDef OLECHAR = WCHAR
56TypeDef LPOLESTR = *OLECHAR
57TypeDef LPCOLESTR = LPOLESTR
58
59Type COAUTHIDENTITY
60    User As *Word
61    UserLength As DWord
62    Domain As *Word
63    DomainLength As DWord
64    Password As *Word
65    PasswordLength As DWord
66    Flags As DWord
67End Type
68
69Type COAUTHINFO
70    dwAuthnSvc As DWord
71    dwAuthzSvc As DWord
72    pwszServerPrincName As LPWSTR
73    dwAuthnLevel As DWord
74    dwImpersonationLevel As DWord
75    pAuthIdentityData As *COAUTHIDENTITY
76    dwCapabilities As DWord
77End Type
78
79TypeDef SCODE = Long
80
81'HRESULT
82
83'OBJECTID
84
85Const Enum MEMCTX
86    MEMCTX_TASK = 1
87    MEMCTX_SHARED = 2
88    MEMCTX_MACSYSTEM = 3
89    MEMCTX_UNKNOWN = -1
90    MEMCTX_SAME = -2
91End Enum
92
93Const ROTFLAGS_REGISTRATIONKEEPSALIVE = &h1
94Const ROTFLAGS_ALLOWANYCLIENT = &h2
95Const ROTREGFLAGS_ALLOWANYCLIENT = &h1
96Const ROT_COMPARE_MAX = 2048
97Const DCOMSCM_ACTIVATION_USE_ALL_AUTHNSERVICES = &h1
98Const DCOMSCM_ACTIVATION_DISALLOW_UNSECURE_CALL = &h2
99Const DCOMSCM_RESOLVE_USE_ALL_AUTHNSERVICES = &h4
100Const DCOMSCM_RESOLVE_DISALLOW_UNSECURE_CALL = &h8
101Const DCOMSCM_PING_USE_MID_AUTHNSERVICE = &h10
102Const DCOMSCM_PING_DISALLOW_UNSECURE_CALL = &h20
103
104Const Enum CLSCTX
105    CLSCTX_INPROC_SERVER = &h1
106    CLSCTX_INPROC_HANDLER = &h2
107    CLSCTX_LOCAL_SERVER = &h4
108    CLSCTX_INPROC_SERVER16 = &h8
109    CLSCTX_REMOTE_SERVER = &h10
110    CLSCTX_INPROC_HANDLER16 = &h20
111    CLSCTX_RESERVED1 = &h40
112    CLSCTX_RESERVED2 = &h80
113    CLSCTX_RESERVED3 = &h100
114    CLSCTX_RESERVED4 = &h200
115    CLSCTX_NO_CODE_DOWNLOAD = &h400
116    CLSCTX_RESERVED5 = &h800
117    CLSCTX_NO_CUSTOM_MARSHAL = &h1000
118    CLSCTX_ENABLE_CODE_DOWNLOAD = &h2000
119    CLSCTX_NO_FAILURE_LOG = &h4000
120    CLSCTX_DISABLE_AAA = &h8000
121    CLSCTX_ENABLE_AAA = &h10000
122    CLSCTX_FROM_DEFAULT_CONTEXT = &h20000
123    CLSCTX_ACTIVATE_32_BIT_SERVER = &h40000
124    CLSCTX_ACTIVATE_64_BIT_SERVER = &h80000
125    CLSCTX_ENABLE_CLOAKING = &h100000
126    CLSCTX_PS_DLL = &h80000000
127End Enum
128
129Const CLSCTX_VALID_MASK = (
130    CLSCTX_INPROC_SERVER Or _
131    CLSCTX_INPROC_HANDLER Or _
132    CLSCTX_LOCAL_SERVER Or _
133    CLSCTX_INPROC_SERVER16 Or _
134    CLSCTX_REMOTE_SERVER Or _
135    CLSCTX_NO_CODE_DOWNLOAD Or _
136    CLSCTX_NO_CUSTOM_MARSHAL Or _
137    CLSCTX_ENABLE_CODE_DOWNLOAD Or _
138    CLSCTX_NO_FAILURE_LOG Or _
139    CLSCTX_DISABLE_AAA Or _
140    CLSCTX_ENABLE_AAA Or _
141    CLSCTX_FROM_DEFAULT_CONTEXT Or _
142    CLSCTX_ACTIVATE_32_BIT_SERVER Or _
143    CLSCTX_ACTIVATE_64_BIT_SERVER Or _
144    CLSCTX_ENABLE_CLOAKING Or _
145    CLSCTX_PS_DLL)
146
147Const Enum MSHLFLAGS
148    MSHLFLAGS_NORMAL = 0
149    MSHLFLAGS_TABLESTRONG = 1
150    MSHLFLAGS_TABLEWEAK = 2
151    MSHLFLAGS_NOPING = 4
152    MSHLFLAGS_RESERVED1 = 8
153    MSHLFLAGS_RESERVED2 = 16
154    MSHLFLAGS_RESERVED3 = 32
155    MSHLFLAGS_RESERVED4 = 64
156End Enum
157
158Const Enum MSHCTX
159    MSHCTX_LOCAL = 0
160    MSHCTX_NOSHAREDMEM = 1
161    MSHCTX_DIFFERENTMACHINE = 2
162    MSHCTX_INPROC = 3
163    MSHCTX_CROSSCTX = 4
164End Enum
165
166Const Enum DVASPECT
167    DVASPECT_CONTENT = 1
168    DVASPECT_THUMBNAIL = 2
169    DVASPECT_ICON = 4
170    DVASPECT_DOCPRINT = 8
171End Enum
172
173Const Enum STGC
174    STGC_DEFAULT = 0
175    STGC_OVERWRITE = 1
176    STGC_ONLYIFCURRENT = 2
177    STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE = 4
178    STGC_CONSOLIDATE = 8
179End Enum
180
181Const Enum STGMOVE
182    STGMOVE_MOVE = 0
183    STGMOVE_COPY = 1
184    STGMOVE_SHALLOWCOPY = 2
185End Enum
186
187Const Enum STATFLAG
188    STATFLAG_DEFAULT = 0
189    STATFLAG_NONAME = 1
190    STATFLAG_NOOPEN = 2
191End Enum
192
193TypeDef HCONTEXT = /* [context_handle] */ VoidPtr
194
195'LCID
196'LANGID
197
198Type BYTE_BLOB
199    clSize As DWord
200    abData[0] As Byte
201End Type
202
203TypeDef UP_BYTE_BLOB = /* [unique] */ *BYTE_BLOB
204
205Type WORD_BLOB
206    clSize As DWord
207    asData[0] As Word
208End Type
209
210TypeDef UP_WORD_BLOB = /* [unique] */ *WORD_BLOB
211
212Type DWORD_BLOB
213    clSize As DWord
214    alData[0] As DWord
215End Type
216
217TypeDef UP_DWORD_BLOB = /* [unique] */ *DWORD_BLOB
218
219Type FLAGGED_BYTE_BLOB
220    fFlags As DWord
221    clSize As DWord
222    abData[0] As Byte
223End Type
224
225TypeDef UP_FLAGGED_BYTE_BLOB = /* [unique] */ *FLAGGED_BYTE_BLOB
226
227Type FLAGGED_WORD_BLOB
228    fFlags As DWord
229    clSize As DWord
230    asData[0] As Word
231End Type
232
233TypeDef UP_FLAGGED_WORD_BLOB = /* [unique] */ *FLAGGED_WORD_BLOB
234
235Type BYTE_SIZEDARR
236    clSize As DWord
237    pData As *Byte
238End Type
239
240Type WORD_SIZEDARR
241    clSize As DWord
242    pData As *Word
243End Type
244
245Type DWORD_SIZEDARR
246    clSize As DWord
247    pData As *DWord
248End Type
249
250Type HYPER_SIZEDARR
251    clSize As DWord
252    pData As *QWord
253End Type
254
255Const WDT_INPROC_CALL = &h48746457
256Const WDT_REMOTE_CALL = &h52746457
257Const WDT_INPROC64_CALL = &h50746457
258
259Type userCLIPFORMAT
260    fContext As Long
261    'u As Union
262        'dwValue As DWord
263        pwszName As *WCHAR
264    'End Union
265End Type
266
267TypeDef wireCLIPFORMAT = /* [unique] */ *userCLIPFORMAT
268TypeDef CLIPFORMAT = /* [wire_marshal] */ WORD
269
270Type GDI_NONREMOTE
271    fContext As Long
272    'u As Union
273        'hInproc As Long
274        hRemote As *DWORD_BLOB
275    'End Union
276End Type
277
278Type userHGLOBAL
279    fContext As Long
280    'u As Union
281        'hInproc As Long
282        'hRemote As *FLAGGED_BYTE_BLOB
283        hInproc64 As Int64
284    'End Union
285End Type
286
287TypeDef wireHGLOBAL = /* [unique] */ *userHGLOBAL
288
289Type userHMETAFILE
290    fContext As Long
291    'u As Union
292        'hInproc As Long
293        'hRemote As *BYTE_BLOB
294        hInproc64 As Int64
295    'End Union
296End Type
297
298Type remoteMETAFILEPICT
299    mm As Long
300    xExt As Long
301    yExt As Long
302End Type
303
304Type userHMETAFILEPICT
305    fContext As Long
306    'u As Union
307        'hInproc As Long
308        'hRemote As *remoteMETAFILEPICT
309        hInproc64 As Int64
310    'End Union
311End Type
312
313Type userHENHMETAFILE
314    fContext As Long
315    'u As Union
316        'hInproc As Long
317        'hRemote As *BYTE_BLOB
318        hInproc64 As Int64
319    'End Union
320End Type
321
322Type userBITMAP
323    bmType As Long
324    bmWidth As Long
325    bmHeight As Long
326    bmWidthBytes As Long
327    bmPlanes As Word
328    bmBitsPixel As Word
329    cbSize As DWord
330    pBuffer[1] As Byte
331End Type
332
333Type userHBITMAP
334    fContext As Long
335    'u As Union
336        'hInproc As Long
337        'hRemote As *userBITMAP
338        hInproc64 As Int64
339    'End Union
340End Type
341
342Type userHPALETTE
343    fContext As Long
344    'u As Union
345        'hInproc As Long
346        'hRemote As *LOGPALETTE
347        hInproc64 As Int64
348    'End Union
349End Type
350
351Type RemotableHandle
352    fContext As Long
353    'u As Union
354        'hInproc As Long
355        hRemote As Long
356    'End Union
357End Type
358
359TypeDef wireHWND = /* [unique] */ *RemotableHandle
360TypeDef wireHMENU = /* [unique] */ *RemotableHandle
361TypeDef wireHACCEL = /* [unique] */ *RemotableHandle
362TypeDef wireHBRUSH = /* [unique] */ *RemotableHandle
363TypeDef wireHFONT = /* [unique] */ *RemotableHandle
364TypeDef wireHDC = /* [unique] */ *RemotableHandle
365TypeDef wireHICON = /* [unique] */ *RemotableHandle
366TypeDef wireHRGN = /* [unique] */ *RemotableHandle
367TypeDef wireHBITMAP = /* [unique] */ *RemotableHandle
368TypeDef wireHPALETTE = /* [unique] */ *RemotableHandle
369TypeDef wireHENHMETAFILE = /* [unique] */ *RemotableHandle
370TypeDef wireHMETAFILE = /* [unique] */ *RemotableHandle
371TypeDef wireHMETAFILEPICT = /* [unique] */ *RemotableHandle
372TypeDef HMETAFILEPICT = /* [wire_marshal] */ VoidPtr
373
374'extern RPC_IF_HANDLE IWinTypes_v0_1_c_ifspec;
375'extern RPC_IF_HANDLE IWinTypes_v0_1_s_ifspec;
376
377/* interface __MIDL_itf_wtypes_0000_0001 */
378/* [local] */
379
380TypeDef DATE = Double
381
382TypeDef CY = Int64
383'Type /*Class*/ CY ' WTypes.ab
384'Public
385'   int64 As Int64
386/*
387    Function Lo() As DWord
388        Return GetDWord(VarPtr(int64))
389    End Function
390
391    Sub Lo(lo As DWord)
392        SetDWord(VarPtr(int64), lo)
393    End Sub
394
395    Function Hi() As Long
396        Return GetDWord(VarPtr(int64) + SizeOf (DWord)) As Long
397    End Function
398
399    Sub Lo(lo As Long)
400        SetDWord(VarPtr(int64) + SizeOf (DWord, lo As DWord))
401    End Sub
402*/
403'End Type'Class
404
405TypeDef LPCY = *CY
406
407Type /*Class*/ DECIMAL 'WTypes.ab
408'Public
409    wReserved As Word
410    signscale As Word
411    Hi32 As DWord
412    Lo64 As QWord
413/*
414    Function scale() As Byte
415        Return GetByte(VarPtr(signscale))
416    End Function
417
418    Sub scale(s As Byte)
419        SetByte(VarPtr(signscale), s)
420    End Sub
421
422    Function sign() As Byte
423        Return GetByte(VarPtr(signscale) + SizeOf (Byte))
424    End Function
425
426    Sub sign(s As Byte)
427        SetByte(VarPtr(signscale) + SizeOf (Byte), s)
428    End Sub
429
430    Function Lo32() As DWord
431        Return GetDWord(VarPtr(Lo64) As *DWord)
432    End Function
433
434    Sub Lo32(l As DWord)
435        SetDWord(VarPtr(Lo64) As *DWord, l)
436    End Sub
437
438    Function Mid32() As DWord
439        Return GetDWord(VarPtr(Lo64) As *DWord)
440    End Function
441
442    Sub Mid32(m As DWord)
443        SetDWord(VarPtr(Lo64) As *DWord + SizeOf (DWord), m)
444    End Sub
445*/
446End Type ' Class
447
448Const DECIMAL_NEG = (&h80 As Byte) 'WTypes.ab
449'DECIMAL_SETZERO(dec)
450TypeDef LPDECIMAL = *DECIMAL
451
452TypeDef wireBSTR = /* [unique] */ *FLAGGED_WORD_BLOB
453TypeDef BSTR = /* [wire_marshal] */ *OLECHAR
454TypeDef LPBSTR = *BSTR
455
456TypeDef VARIANT_BOOL = Integer
457
458'BOOLEAN
459
460Type BSTRBLOB
461    cbSize As DWord
462    pData As *Byte
463End Type
464
465TypeDef LPBSTRBLOB = *BSTRBLOB
466
467Const VARIANT_TRUE = (-1 As VARIANT_BOOL) ' WTypes.ab
468Const VARIANT_FALSE = (0 As VARIANT_BOOL) ' WTypes.ab
469
470'Type BLOB
471'TypeDef LPBLOB
472
473Type CLIPDATA
474    cbSize As DWord
475    ulClipFmt As Long
476    pClipData As *Byte
477End Type
478
479Const CBPCLIPDATA(clipdata) =  ((clipdata).cbSize - SizeOf ((clipdata).ulClipFmt))
480TypeDef VARTYPE = Word
481Const Enum VARENUM 'WTypes.idl
482    VT_EMPTY    = 0
483    VT_NULL = 1
484    VT_I2   = 2
485    VT_I4   = 3
486    VT_R4   = 4
487    VT_R8   = 5
488    VT_CY   = 6
489    VT_DATE = 7
490    VT_BSTR = 8
491    VT_DISPATCH = 9
492    VT_ERROR    = 10
493    VT_BOOL = 11
494    VT_VARIANT  = 12
495    VT_UNKNOWN  = 13
496    VT_DECIMAL  = 14
497    VT_I1   = 16
498    VT_UI1  = 17
499    VT_UI2  = 18
500    VT_UI4  = 19
501    VT_I8   = 20
502    VT_UI8  = 21
503    VT_INT  = 22
504    VT_UINT = 23
505    VT_VOID = 24
506    VT_HRESULT  = 25
507    VT_PTR  = 26
508    VT_SAFEARRAY    = 27
509    VT_CARRAY   = 28
510    VT_USERDEFINED  = 29
511    VT_LPSTR    = 30
512    VT_LPWSTR   = 31
513    VT_RECORD   = 36
514    VT_INT_PTR  = 37
515    VT_UINT_PTR = 38
516    VT_FILETIME = 64
517    VT_BLOB = 65
518    VT_STREAM   = 66
519    VT_STORAGE  = 67
520    VT_STREAMED_OBJECT  = 68
521    VT_STORED_OBJECT    = 69
522    VT_BLOB_OBJECT  = 70
523    VT_CF   = 71
524    VT_CLSID    = 72
525    VT_VERSIONED_STREAM = 73
526    VT_BSTR_BLOB    = &hfff
527    VT_VECTOR   = &h1000
528    VT_ARRAY    = &h2000
529    VT_BYREF    = &h4000
530    VT_RESERVED = &h8000
531    VT_ILLEGAL  = &hffff
532    VT_ILLEGALMASKED    = &hfff
533    VT_TYPEMASK = &hfff
534End Enum
535
536Type PROPERTYKEY
537    fmtid As GUID
538    pid As DWord
539End Type
540
541'SID_IDENTIFIER_AUTHORITY
542'PSID_IDENTIFIER_AUTHORITY
543
544'SID
545'PSID
546
547'SID_AND_ATTRIBUTES
548'PSID_AND_ATTRIBUTES
549
550Type CSPLATFORM
551    dwPlatformId As DWord
552    dwVersionHi As DWord
553    dwVersionLo As DWord
554    dwProcessorArch As DWord
555End Type
556
557Type QUERYCONTEXT
558    dwContext As DWord
559    latform As CSPLATFORM
560    Locale As LCID
561    dwVersionHi As DWord
562    dwVersionLo As DWord
563End Type
564
565/* [v1_enum] */ Const Enum TYSPEC
566    TYSPEC_CLSID = 0
567    TYSPEC_FILEEXT = 1
568    TYSPEC_MIMETYPE = 2
569    TYSPEC_FILENAME = 3
570    TYSPEC_PROGID = 4
571    TYSPEC_PACKAGENAME = 5
572    TYSPEC_OBJECTID = 6
573End Enum
574
575/* [public] */ Type uCLSSPEC
576    tyspec As DWord
577    /* [switch_type] */ 'tagged_union As Union
578        'clsid As CLSID
579        'pFileExt As LPOLESTR
580        'pMimeType As LPOLESTR
581        'pProgId As LPOLESTR
582        'pFileName As LPOLESTR
583        'ByName As Type
584            'pPackageName As LPOLESTR
585            'PolicyId As GUID
586        'End Type
587        'ByObjectId As Type
588            ObjectId As GUID
589            PolicyId As GUID
590        'End Type
591'   End Union
592End Type
593
594'extern RPC_IF_HANDLE __MIDL_itf_wtypes_0000_0001_v0_0_c_ifspec
595'extern RPC_IF_HANDLE __MIDL_itf_wtypes_0000_0001_v0_0_s_ifspec
Note: See TracBrowser for help on using the repository browser.