home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C Programming Starter Kit 2.0
/
SamsPublishing-CProgrammingStarterKit-v2.0-Win31.iso
/
bc45
/
oct_dll.pak
/
DLLRUN.CPP
next >
Wrap
C/C++ Source or Header
|
1997-07-23
|
4KB
|
95 lines
//----------------------------------------------------------------------------
// ObjectConnections - (C) Copyright 1994 by Borland International
// Simple EXE to load and run a DLL server
//----------------------------------------------------------------------------
#define STRICT
#include <windows.h>
#include <shellapi.h>
#include <ole2.h>
#define _IFUNC STDMETHODCALLTYPE
typedef HRESULT STDAPICALLTYPE (*TDllGetClassObject)(const GUID far& clsid,
const GUID far& iid,
void far* far* retObj);
class TDummy : public IUnknown {
HRESULT _IFUNC QueryInterface(const GUID far& iid, void far* far* pif)
{*pif = 0; return iid==IID_NULL ? NOERROR : ResultFromScode(E_NOINTERFACE);}
unsigned long _IFUNC AddRef() {return 1;}
unsigned long _IFUNC Release(){return 0;}
};
int PASCAL
WinMain(HINSTANCE/*hInst*/, HINSTANCE/*prev*/, char far* cmdLine, int/*show*/)
{
char* error = 0;
const int guidChars = 38;
const int guidKeySize = sizeof("CLSID\\")-1;
char guidBuf[guidKeySize + guidChars + 1] = "CLSID\\";
const int pathSize = 260;
char path[pathSize];
long guidBufSize = guidChars + 1;
long pathBufSize = pathSize;
long rstat;
HKEY key;
if (!cmdLine || !cmdLine[0]) {
cmdLine = "Error";
error = "Command line must have DLL ProgId";
} else if (::RegOpenKey(HKEY_CLASSES_ROOT, cmdLine, &key) != ERROR_SUCCESS) {
error = "ProgId not found in Registry";
} else {
rstat = ::RegQueryValue(key, "CLSID", guidBuf+guidKeySize, &guidBufSize);
::RegCloseKey(key);
if (rstat != ERROR_SUCCESS ||
::RegOpenKey(HKEY_CLASSES_ROOT, guidBuf, &key) != ERROR_SUCCESS) {
error = "CLSID not found in Registry";
} else {
rstat = ::RegQueryValue(key, "InprocServer", path, &pathBufSize);
::RegCloseKey(key);
if (rstat != ERROR_SUCCESS) {
error = "No InprocServer specified in Registry";
} else {
::OleInitialize(0);
HINSTANCE hLib = ::LoadLibrary(path);
if (hLib < HINSTANCE_ERROR) {
error = "Could not load library";
} else {
TDllGetClassObject entry = (TDllGetClassObject)::GetProcAddress(hLib,
"DllGetClassObject");
if (!entry) {
error = "Could not find entry point";
} else {
IClassFactory* factory;
GUID guid;
::CLSIDFromString(guidBuf+guidKeySize, &guid);
HRESULT stat = (*entry)(guid, IID_IClassFactory,
(void far*far*)&factory);
if (stat) {
error = "Could not obtain factory";
} else {
IUnknown* ifc;
stat = factory->CreateInstance(&TDummy(), IID_IUnknown,
(void far*far*)&ifc);
factory->Release();
if (stat) {
error = "Could not create object";
} else {
long refs = ifc->Release();
char buf[30];
wsprintf(buf, "Reference count = %li", refs);
if (refs != 0)
error = buf;
}
}
}
::FreeLibrary(hLib);
}
::OleUninitialize();
}
}
}
if (error)
::MessageBox(0, error, "DLLRUN - (c) Borland 1994", MB_OK);
return error != 0;
}