oleaut32/tests: Fix tmarshal tests on win9x.

c81b2b2c · Detlef Riekenberg · Alexandre Julliard · a7794bcb · c81b2b2c
Commit c81b2b2c authored Jul 21, 2008 by Detlef Riekenberg Committed by Alexandre Julliard Jul 21, 2008
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

tmarshal.c dlls/oleaut32/tests/tmarshal.c +3 -1

No files found.
--- a/dlls/oleaut32/tests/tmarshal.c
+++ b/dlls/oleaut32/tests/tmarshal.c
@@ -701,10 +701,12 @@ typedef struct KindaEnum
 static HRESULT register_current_module_typelib(void)
 {
    WCHAR path[MAX_PATH];
+    CHAR pathA[MAX_PATH];
    HRESULT hr;
    ITypeLib *typelib;

-    GetModuleFileNameW(NULL, path, MAX_PATH);
+    GetModuleFileNameA(NULL, pathA, MAX_PATH);
+    MultiByteToWideChar(CP_ACP, 0, pathA, -1, path, MAX_PATH);

    hr = LoadTypeLib(path, &typelib);
    if (SUCCEEDED(hr))