This website uses cookies. By clicking Accept, you consent to the use of cookies. Click Here to learn more about how we use cookies.
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
- Revenera Community
- :
- InstallShield
- :
- InstallShield Forum
- :
- error C8025 MsiSetProperty : undefined identifier
Subscribe
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Subscribe
- Mute
- Printer Friendly Page
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
Dec 20, 2018
07:22 AM
error C8025 MsiSetProperty : undefined identifier
Hello,
I'm trying to create a suite advanced UI project with an installscript in it.
When i compile my sript i get an error C8025 MsiSetProperty : undefined identifier.
I don't know where is the problem.
Here is my installscript :
Thanks in advance
I'm trying to create a suite advanced UI project with an installscript in it.
When i compile my sript i get an error C8025 MsiSetProperty : undefined identifier.
I don't know where is the problem.
Here is my installscript :
////////////////////////////////////////////////////////////////////////////////
//
// IIIIIII SSSSSS
// II SS InstallShield (R)
// II SSSSSS (c) 1996-2002, InstallShield Software Corporation
// II SS All rights reserved.
// IIIIIII SSSSSS
//
//
// This template script provides the code necessary to build an entry-point
// function to be called in an InstallScript custom action.
//
//
// File Name: Setup.rul
//
// Description: InstallShield script
//
////////////////////////////////////////////////////////////////////////////////
// Include Ifx.h for built-in InstallScript function prototypes, for Windows
// Installer API function prototypes and constants, and to declare code for
// the OnBegin and OnEnd events.
#include "ifx.h"
// Include header file for built-in functions
#include "isrt.h"
// Include header file for MSI API functions and constants
#include "iswi.h"
// The keyword export identifies MyFunction() as an entry-point function.
// The argument it accepts must be a handle to the Installer database.
prototype LONG kernel32.GetBinaryTypeA (BYVAL STRING , BYREF INT );
export prototype SetOfficeBitnessProperty(HWND);
// To Do: Declare global variables, define constants, and prototype user-
// defined and DLL functions here.
// To Do: Create a custom action for this entry-point function:
// 1. Right-click on "Custom Actions" in the Sequences/Actions view.
// 2. Select "Custom Action Wizard" from the context menu.
// 3. Proceed through the wizard and give the custom action a unique name.
// 4. Select "Run InstallScript code" for the custom action type, and in
// the next panel select "MyFunction" (or the new name of the entry-
// point function) for the source.
// 5. Click Next, accepting the default selections until the wizard
// creates the custom action.
//
// Once you have made a custom action, you must execute it in your setup by
// inserting it into a sequence or making it the result of a dialog's
// control event.
///////////////////////////////////////////////////////////////////////////////
//
// Definition de la propriété OFFICEBITNESS (permet de savoir si excel est 32 ou 64 bits)
// http://codes-sources.commentcamarche.net/forum/affich-1611755-identifier-le-type-d-un-fichier-exe
//
///////////////////////////////////////////////////////////////////////////////
function SetOfficeBitnessProperty(hMSI)
NUMBER nBinaryType;
STRING svExcelFilePath;
NUMBER nvType, nvSize;
begin
try
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
RegDBGetKeyValueEx("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\excel.exe","",nvType,svExcelFilePath,nvSize);
//MessageBox("EXCELFILEPATH \n" + svExcelFilePath, SEVERE);
if GetBinaryTypeA(svExcelFilePath, nBinaryType)>0 then
if (nBinaryType=6) then
//64 bits
MsiSetProperty(hMSI, "ISOFFICE64", "1");
else
//32 bits
MsiSetProperty(hMSI, "ISOFFICE32", "1");
endif;
else
//Rechecherche si le chemin comporte x86 ou x64 (WindowsApp)
if StrFind(svExcelFilePath,"x86")<0 && StrFind(svExcelFilePath,"x64")<0 then
MessageBox("EXCEL FILE PATH \n" + "Impossible to determine Office bitness" , SEVERE);
return ERROR_INSTALL_FAILURE;
else
if StrFind(svExcelFilePath,"x86")<0 then
//64 bits
MsiSetProperty(hMSI, "ISOFFICE64", "1");
else
//32 bits
MsiSetProperty(hMSI, "ISOFFICE32", "1");
endif;
endif;
endif;
catch
MessageBox("SetOfficeBitnessProperty Error \n" + Err.Number + "\n" + Err.Description + "\n" + Err.LastDllError , SEVERE);
return ERROR_INSTALL_FAILURE;
endcatch;
end;
Thanks in advance
(1) Reply
- Mark as New
- Subscribe
- Mute
- Permalink
- Report Inappropriate Content
Dec 20, 2018
10:18 AM
I think that i've found the solution, i've suppressed #include "isrt.h" and #include "iswi.h".
Then i've used SuiteSetProperty instead of MsiSetProperty.
Then i've used SuiteSetProperty instead of MsiSetProperty.
![](/skins/images/A5EADE085F77DE82FB3B14D6B307AE6A/responsive_peak/images/icon_anonymous_message.png)