source: trunk/Include/wtypes.ab@ 505

Last change on this file since 505 was 303, checked in by イグトランス (egtra), 17 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.