source: trunk/src/oleaut32/oleaut32.cpp@ 1034

Last change on this file since 1034 was 1034, checked in by davidr, 26 years ago

Patched version number for VB6 runtime.

File size: 1.5 KB
Line 
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 */
29UINT 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}
Note: See TracBrowser for help on using the repository browser.