1 | /* $Id: oleaut32.cpp,v 1.4 1999-09-24 21:55:24 davidr Exp $ */
|
---|
2 | /*
|
---|
3 | * OLEAUT32
|
---|
4 | *
|
---|
5 | * Copyright 1999 Sander van Leeuwen (OS/2 Port 990815)
|
---|
6 | *
|
---|
7 | * Based on Wine code: (ole\compobj.c)
|
---|
8 | *
|
---|
9 | * Copyright 1995 Martin von Loewis
|
---|
10 | * Copyright 1998 Justin Bradford
|
---|
11 | * Copyright 1999 Francis Beaudet
|
---|
12 | * Copyright 1999 Sylvain St-Germain
|
---|
13 | *
|
---|
14 | * Project Odin Software License can be found in LICENSE.TXT
|
---|
15 | *
|
---|
16 | * TODO: OaBuildVersion has to be changed (as well as GetVersion in kernel32)
|
---|
17 | */
|
---|
18 |
|
---|
19 | #include "oleaut32.h"
|
---|
20 | #ifdef DEBUG
|
---|
21 | #define DEBUG_RUNTIME
|
---|
22 | #endif
|
---|
23 |
|
---|
24 | #include <debugdefs.h>
|
---|
25 |
|
---|
26 | /***********************************************************************
|
---|
27 | * OaBuildVersion [OLEAUT32.170]
|
---|
28 | */
|
---|
29 | UINT WINAPI OaBuildVersion()
|
---|
30 | {
|
---|
31 | #if 1
|
---|
32 | dprintf(("OLEAUT32: OaBuildVersion"));
|
---|
33 | // Patched DJR 22/9/99 for VB6 runtime.
|
---|
34 | return 0x1E0101;
|
---|
35 | #else
|
---|
36 | WINDOWS_VERSION ver = VERSION_GetVersion();
|
---|
37 |
|
---|
38 | FIXME("Please report to a.mohr@mailto.de if you get version error messages !\n");
|
---|
39 | switch(VersionData[ver].getVersion32)
|
---|
40 | {
|
---|
41 | case 0x80000a03: /* Win 3.1 */
|
---|
42 | return 0x140fd1; /* from Win32s 1.1e */
|
---|
43 | case 0xc0000004: /* Win 95 */
|
---|
44 | case 0xc0000a04: /* Win 98: verified same as Win95 */
|
---|
45 | return 0x1e10a9; /* some older version: 0x0a0bd3 */
|
---|
46 | case 0x04213303: /* NT 3.51 */
|
---|
47 | FIXME("NT 3.51 version value unknown !\n");
|
---|
48 | return 0x1e10a9; /* value borrowed from Win95 */
|
---|
49 | case 0x05650004: /* NT 4.0 */
|
---|
50 | return 0x141016;
|
---|
51 | default:
|
---|
52 | return 0x0;
|
---|
53 | }
|
---|
54 | #endif
|
---|
55 | }
|
---|