🚀 go-pugleaf

Hi Frank,
   The HRESULT value of -2147221008 corresponds to the error 
"CoInitialize() has not been called."  You can determine this by 
including <ComObj.hpp>, and then by passing the return value of 
CoCreateInstance() to the OleCheck() VCL function.  In this case, 
OleCheck(-2147221008) returns the string "CoInitialize() has not been 
called."

So in your code, call...

   CoInitialize(NULL);
   //
   // add your code here...
   //
   CoUnintialize();

Alternatively, you can call CoInitialize(NULL) in your form's 
constructor, and then call CoUninitialize() in the destructor.

I read about the NO_WIN32_LEAN_AND_MEAN workaround in a post that 
someone had made to this group a while back.  Apprarently, the 
workaround was mentioned in a README file that accompanied either BCB5 
or BCB6 (I don't recall which, and I don't usually read README files to 
closely :).

Good luck,
--
Damon (TeamB)


Frank Chisme wrote:
> Hello Damon,
> 
> Now my compiler doesn�t give an error (with the NO_WIN32_LEAN_AND_MEAN
> conditional), but the function:
> 
>  if (SUCCEEDED(CoCreateInstance(CLSID_ShellLink,
> NULL,CLSCTX_INPROC_SERVER,IID_IShellLink,(void **)&psl))) {
> 
> gives an error (not SUCCEDDED). But I don�t know how to solve it, in fact, I
> even don�t know which the error is. All I have achieved is to know that the
> error si -2147221008
> 
> And how did you figure out that it was mandatory to establish the
> NO_WIN32_LEAN_AND_MEAN conditional?