61 lines
1.2 KiB
C++
61 lines
1.2 KiB
C++
//+---------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
// Copyright (C) Microsoft Corporation, 1992 - 1994.
|
|
//
|
|
// File: triv.cxx
|
|
//
|
|
// Contents: Trivial thunking test
|
|
//
|
|
// History: 24-Feb-94 DrewB Created
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <windows.h>
|
|
#include <compobj.h>
|
|
#include <storage.h>
|
|
|
|
void DbgOut(char *fmt, ...)
|
|
{
|
|
va_list args;
|
|
char str[80];
|
|
|
|
va_start(args, fmt);
|
|
wvsprintf(str, fmt, args);
|
|
OutputDebugString(str);
|
|
va_end(args);
|
|
}
|
|
|
|
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
|
|
LPSTR lpszCmdLine, int nCmdShow)
|
|
{
|
|
HRESULT hr;
|
|
IStorage FAR *pstg;
|
|
|
|
hr = CoInitialize(NULL);
|
|
if (FAILED(GetScode(hr)))
|
|
{
|
|
DbgOut("CoInitialize failed, 0x%08lX\n", hr);
|
|
}
|
|
else
|
|
{
|
|
hr = StgCreateDocfile("test.dfl", STGM_DIRECT | STGM_READWRITE |
|
|
STGM_SHARE_EXCLUSIVE | STGM_CREATE, 0, &pstg);
|
|
if (FAILED(GetScode(hr)))
|
|
{
|
|
DbgOut("StgCreateDocfile failed, 0x%08lX\n", hr);
|
|
}
|
|
else
|
|
{
|
|
pstg->Release();
|
|
}
|
|
|
|
CoUninitialize();
|
|
}
|
|
|
|
return TRUE;
|
|
}
|