Unresolved external 'LresultFromObject' referenced from...

[Pitek]

Przy którejś z rzędu kompilacji wystąpił taki błąd i nie umie go usunąć :

[ILINK32 Error] Error: Unresolved external 'LresultFromObject' referenced from C:\PROGRAM FILES\EMBARCADERO\RAD STUDIO\7.0\LIB\DEBUG\VCLACTNBAND.LIB|ActnMenus [ILINK32 Error] Error: Unable to perform link

Błagam o pomoc bo można się załamać tak nagle mnie to zaskoczyło

[Cyfrowy Baron]

RozwiÄ…zanie problemu:

Åšrodowisko: Embarcadero RAD Studio C++ Builder 2010
Modyfikowana biblioteka: Forms.hpp
Lokalizacja: C:\Program Files\Embarcadero\RAD Studio\7.0\include\vcl\

W pliku Forms.hpp, należy dodać wpis: #pragma link "oleacc.lib".

Fragment pliku Forms.hpp po modyfikacji:

Kod: Zaznacz cały

// CodeGear C++Builder
// Copyright (c) 1995, 2009 by Embarcadero Technologies, Inc.
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Forms.pas' rev: 21.00

#ifndef FormsHPP
#define FormsHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>   // Pascal unit
#include <Sysinit.hpp>   // Pascal unit
#include <Messages.hpp>   // Pascal unit
#include <Windows.hpp>   // Pascal unit
#include <Sysutils.hpp>   // Pascal unit
#include <Classes.hpp>   // Pascal unit
#include <Graphics.hpp>   // Pascal unit
#include <Menus.hpp>   // Pascal unit
#include <Controls.hpp>   // Pascal unit
#include <Imm.hpp>   // Pascal unit
#include <Actnlist.hpp>   // Pascal unit
#include <Multimon.hpp>   // Pascal unit
#include <Helpintfs.hpp>   // Pascal unit
#include <Dwmapi.hpp>   // Pascal unit
#include <Types.hpp>   // Pascal unit

//-- user supplied -----------------------------------------------------------

#pragma link "oleacc.lib"                         /* TUTAJ DODANO WPIS */

#pragma link "dwmapi.lib"
#if defined(_VCL_ALIAS_RECORDS)
#if defined(UNICODE)
#pragma alias "@Forms@TApplication@MessageBoxW$qqrpxbt1i"="@Forms@TApplication@MessageBox$qqrpxbt1i"
#else
#pragma alias "@Forms@TApplication@MessageBoxA$qqrpxbt1i"="@Forms@TApplication@MessageBox$qqrpxbt1i"
#endif
#endif
namespace Controls {
  struct THintInfo;
};
namespace Forms {
  using Controls::THintInfo;
};

namespace Forms
{
//-- type declarations -------------------------------------------------------