Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

Troubleshooting
Research
Professional Opinions
Ask a Question
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

troubleshooting Question

How can I prove if some applications are running with inno setup and if they are running tell the user to stop them

Avatar of rolandkg1001
rolandkg1001Flag for Austria asked on
Visual Basic ClassicMicrosoft ExcelInstallation
2 Comments1 Solution1228 ViewsLast Modified:
Hi,

I have programmed a VBA Application in Microsoft Word and Microsoft Excel. I use the script below in Inno Setup to install the application.

Problem:
1. How can I check if an Microsoft Office Application is running. If this is the case, I want to innterrupt the installation process with a message: "Please close all Office Applications"
2. I need to check if the Certificate SYSDES_Zertifikat has been installed correctly. This is the first line in the script under [Run]. If the certificate has not been installed correctly I need to tell this the user and to let him try again before the installation process continues.

Please help - Many thanks in advance
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
 
#define MyAppName "Checkit"
#define MyAppVerName "Checkit"
#define MyAppPublisher "SYSDES"
#define MyAppURL "http://www.sysdes.at/"
#define MyAppExeName "Checkit.xla"
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{645D947E-1A2B-469D-81DE-DD968760D9AB}
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=true
LicenseFile=E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Lizenz.txt
InfoBeforeFile=E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Installationshinweis1.rtf
InfoAfterFile=E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\InfoAfter.rtf
OutputDir=E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\
OutputBaseFilename=Checkit_Setup
SetupIconFile=E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\images\ChechIt.ico
Compression=lzma
SolidCompression=true
SourceDir=E:\Eigene Dateien\Sysdes\Checkit\Checkit CD
VersionInfoVersion=1.3.2
VersionInfoCompany=SYSDES
VersionInfoCopyright=SYSDES
SetupLogging=true
 
[Languages]
Name: german; MessagesFile: compiler:Languages\German.isl
 
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
 
[Files]
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Install.xls; DestDir: {app}; Flags: ignoreversion
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Checkit.dot; DestDir: {app}; Flags: ignoreversion
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Lizenz.txt; DestDir: {app}; Flags: ignoreversion
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Checkit_Uninstall.xls; DestDir: {app}; Flags: ignoreversion
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Checkit.xla; DestDir: {app}; Flags: ignoreversion
 
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe.htm; DestDir: {app}; Flags: ignoreversion
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Sysdes_Zertifikat.cer; DestDir: {app}; Flags: ignoreversion
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Start.doc; DestDir: {app}; Flags: ignoreversion
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Begrüßung.doc; DestDir: {app}; Flags: ignoreversion
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Template.xls; DestDir: {app}; Flags: ignoreversion
 
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image022.gif; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\filelist.xml; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\header.htm; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image001.gif; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image002.gif; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image003.gif; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image004.png; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image005.jpg; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image006.png; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image007.jpg; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image008.png; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image009.jpg; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image010.png; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image011.jpg; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image012.png; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image013.jpg; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image014.png; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image015.jpg; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image016.png; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image017.jpg; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image018.gif; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image019.png; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image020.gif; DestDir: {app}
Source: E:\Eigene Dateien\Sysdes\Checkit\Checkit CD\Hilfe-Dateien\image021.png; DestDir: {app}
 
[Icons]
Name: {group}\{cm:ProgramOnTheWeb,{#MyAppName}}; Filename: {#MyAppURL}
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}
 
 
 
[Registry]
Root: HKCU; Subkey: Software\SYSCM; Flags: uninsdeletekey; ValueType: string; ValueName: InstallDir; ValueData: {app}; Tasks: ; Languages: 
Root: HKCU; Subkey: Software\SYSCM; ValueType: string; ValueName: FirstRunWord; ValueData: 1; Flags: deletevalue uninsdeletekey
Root: HKCU; Subkey: Software\SYSCM; ValueType: string; ValueName: FirstRunExcel; ValueData: 1; Flags: deletevalue uninsdeletekey
Root: HKCU; Subkey: Software\SYSCM; ValueType: string; ValueName: HilfeAssistent; ValueData: 1; Flags: deletevalue uninsdeletekey
Root: HKCU; Subkey: Software\SYSCM; ValueType: string; ValueName: Begruessung; ValueData: 1; Flags: deletevalue uninsdeletekey
 
[Run]
Filename: {app}\Sysdes_Zertifikat.cer; Flags: shellexec waituntilterminated
Filename: {app}\Start.doc; Flags: shellexec waituntilterminated
Filename: {app}\Install.xls; Flags: shellexec waituntilterminated
Filename: {app}\{#MyAppExeName}; Description: Checkit fertig installieren; Flags: shellexec postinstall
Filename: {app}\Begrüßung.doc; Description: Hilfe-Assistent; Flags: shellexec postinstall
[UninstallRun]
Filename: {app}\Checkit_Uninstall.xls; Flags: shellexec
ASKER CERTIFIED SOLUTION
Avatar of rolandkg1001
rolandkg1001Flag of Austria image

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Commented:
This problem has been solved!
Unlock 1 Answer and 2 Comments.
See Answers