Jump to content
Sign in to follow this  
Guest russw

installation no longer an msi ?

Recommended Posts

Guest russw

Am i right in thinking that the installation is no longer a wrapped msi ? shame if it isn't as it made pushing out the previous version via Active Directory group policies easy.

Share this post


Link to post
Share on other sites

Afaics, this is the most recent ones. I can't provide all files though.


#include "isxdl.iss"

[Dirs]
Name: {app}\Resources; Components: main; Flags: uninsalwaysuninstall
Name: {app}\CDBXPP Projects; Components: main; Flags: uninsalwaysuninstall
Name: {app}\libs; Components: main; Flags: uninsalwaysuninstall; attribs: hidden
Name: {app}\fr-FR; Flags: uninsalwaysuninstall; Components: lang\French
Name: {app}\de-DE; Flags: uninsalwaysuninstall; Components: lang\German
Name: {app}\hu-HU; Flags: uninsalwaysuninstall; Components: lang\Hungarian
Name: {app}\pl-PL; Flags: uninsalwaysuninstall; Components: lang\Polish
Name: {app}\zh-CHT; Flags: uninsalwaysuninstall; Components: lang\ChineseCHT
Name: {app}\ja-JP; Flags: uninsalwaysuninstall; Components: lang\Japanese
Name: {app}\ro-RO; Flags: uninsalwaysuninstall; Components: lang\Romanian
Name: {app}\sv-SE; Flags: uninsalwaysuninstall; Components: lang\Swedish
Name: {app}\zh-CHS; Flags: uninsalwaysuninstall; Components: lang\ChineseCHS

[Files]
Source: ..\..\CDBurnerXP\bin\Release\Bass.Net.dll; DestDir: {app}; Components: main; Flags: restartreplace ignoreversion replacesameversion
Source: ..\..\CDBurnerXP\bin\Release\libs\bass.dll; DestDir: {app}\libs; Components: main; Flags: restartreplace ignoreversion replacesameversion
Source: ..\..\CDBurnerXP\bin\Release\libs\basswma.dll; DestDir: {app}\libs; Components: main; Flags: restartreplace ignoreversion replacesameversion
Source: ..\..\CDBurnerXP\bin\Release\libs\bassflac.dll; DestDir: {app}\libs; Components: main; Flags: restartreplace ignoreversion replacesameversion

Source: ..\..\CDBurnerXP\bin\Release\AnimatedIcon.dll; DestDir: {app}; Components: main; Flags: restartreplace ignoreversion replacesameversion
Source: ..\..\CDBurnerXP\bin\Release\AxInterop.NMSDVDXLib.dll; DestDir: {app}; Components: main; Flags: restartreplace ignoreversion replacesameversion; Tasks:
Source: ..\..\CDBurnerXP\bin\Release\Interop.NMSDVDXLib.dll; DestDir: {app}; Components: main; Flags: restartreplace ignoreversion replacesameversion
Source: ..\..\..\Program Files\NuMediaSoft\NMSDVDX DVD Burning SDK\Bin\NMSDVDXU.dll; DestDir: {app}\libs; Components: main; Flags: regserver restartreplace ignoreversion replacesameversion
Source: ..\..\CDBurnerXP\bin\Release\SkySoftware.FileView.dll; Components: main; DestDir: {app}; Flags: restartreplace ignoreversion replacesameversion
Source: ..\..\CDBurnerXP\bin\Release\SkySoftware.FolderView.dll; Components: main; DestDir: {app}; Flags: restartreplace ignoreversion replacesameversion
Source: ..\..\CDBurnerXP\bin\Release\SkySoftware.ShComboBox.dll; Components: main; DestDir: {app}; Flags: restartreplace ignoreversion replacesameversion
Source: ..\..\CDBurnerXP\bin\Release\DownloaderLibrary.dll; Components: main; DestDir: {app}; Flags: restartreplace ignoreversion replacesameversion

;USE TO ADD FILES CHANGED BY OBFOCUS
Source: ..\..\Obfocus\cdbxpp.exe; DestDir: {app}; Components: main; Flags: restartreplace ignoreversion replacesameversion
Source: ..\..\Obfocus\CDBXP.dll; DestDir: {app}; Components: main; Flags: restartreplace uninsrestartdelete ignoreversion replacesameversion
;USE TO ADD ORIGINAL FILES
;Source: ..\..\CDBurnerXP\bin\Release\cdbxpp.exe; DestDir: {app}; Components: main; Flags: restartreplace ignoreversion replacesameversion
;Source: ..\..\CDBurnerXP\bin\Release\CDBXP.dll; DestDir: {app}; Components: main; Flags: restartreplace uninsrestartdelete ignoreversion replacesameversion

Source: ..\..\CDBurnerXP\bin\Release\fr-FR\cdbxpp.resources.dll; DestDir: {app}\fr-FR; Flags: restartreplace overwritereadonly ignoreversion replacesameversion; Components: lang\French
Source: ..\..\CDBurnerXP\bin\Release\de-DE\cdbxpp.resources.dll; DestDir: {app}\de-DE; Flags: restartreplace overwritereadonly ignoreversion replacesameversion; Components: lang\German
Source: ..\..\CDBurnerXP\bin\Release\hu-HU\cdbxpp.resources.dll; DestDir: {app}\hu-HU; Flags: restartreplace overwritereadonly ignoreversion replacesameversion; Components: lang\Hungarian
Source: ..\..\CDBurnerXP\bin\Release\pl-PL\cdbxpp.resources.dll; DestDir: {app}\pl-PL; Flags: restartreplace overwritereadonly ignoreversion replacesameversion; Components: lang\Polish
Source: ..\..\CDBurnerXP\bin\Release\zh-CHT\cdbxpp.resources.dll; DestDir: {app}\zh-CHT; Flags: restartreplace overwritereadonly ignoreversion replacesameversion; Components: lang\ChineseCHT
Source: ..\..\CDBurnerXP\bin\Release\ja-JP\cdbxpp.resources.dll; DestDir: {app}\ja-JP; Flags: restartreplace overwritereadonly ignoreversion replacesameversion; Components: lang\Japanese
Source: ..\..\CDBurnerXP\bin\Release\ro-RO\cdbxpp.resources.dll; DestDir: {app}\ro-RO; Flags: restartreplace overwritereadonly ignoreversion replacesameversion; Components: lang\Romanian
Source: ..\..\CDBurnerXP\bin\Release\sv-SE\cdbxpp.resources.dll; DestDir: {app}\sv-SE; Flags: restartreplace overwritereadonly ignoreversion replacesameversion; Components: lang\Swedish
Source: ..\..\CDBurnerXP\bin\Release\zh-CHS\cdbxpp.resources.dll; DestDir: {app}\zh-CHS; Flags: restartreplace overwritereadonly ignoreversion replacesameversion; Components: lang\ChineseCHS
Source: ..\..\..\Program Files\NuMediaSoft\NMSDVDX DVD Burning SDK\Bin\NMSAccessU.exe; DestDir: {app}; Check: IsUsingWinNT; Components: nmsaccess
Source: homepage.url; DestDir: {app}
Source: download.url; DestDir: {app}
Source: help.url; DestDir: {app}
Source: forum.url; DestDir: {app}
Source: ..\Resources\audio_cover.jpg; DestDir: {app}\Resources
Source: ..\Resources\data_cover.jpg; DestDir: {app}\Resources

[Setup]
InternalCompressLevel=ultra
OutputDir=C:\Development\Installer
SourceDir=C:\Development\Installer\Source
OutputBaseFilename=cdbxp_setup_4.0.013.220
SolidCompression=true
VersionInfoVersion=4.0.013.220
VersionInfoCompany=CDBurnerXP Software
VersionInfoDescription=CDBurnerXP
VersionInfoTextVersion=4.0.013.220
AppName=CDBurnerXP
MinVersion=0,5.0.2195
AppCopyright=Stefan & Fredrik Haglund
AppVerName=4.0.013.220
ChangesAssociations=true
DefaultDirName={pf}\CDBurnerXP
DefaultGroupName=CDBurnerXP
AlwaysShowDirOnReadyPage=true
AlwaysShowGroupOnReadyPage=true
ShowLanguageDialog=yes
SetupIconFile=cdbxpp_setup3.ico
AppPublisher=CDBurnerXP
AppPublisherURL=http://www.cdburnerxp.se
AppSupportURL=http://www.cdburnerxp.se
AppUpdatesURL=http://www.cdburnerxp.se
AppVersion=4.0.013.220
AppID={{8D9D8304-5241-41EB-BC97-D78E094323B7}
UninstallDisplayIcon={app}\cdbxpp.exe
UninstallDisplayName=CDBurnerXP
Compression=lzma/ultra
UsePreviousAppDir=false
WizardImageFile=WizModernImage3.bmp
WizardSmallImageFile=WizModernSmallImage3.bmp
LicenseFile=License Agreement.rtf
PrivilegesRequired=admin
AlwaysRestart=false
RestartIfNeededByRun=false
DisableStartupPrompt=true
AppendDefaultGroupName=true
UsePreviousGroup=true
ShowTasksTreeLines=yes

[Registry]
Root: HKLM; SubKey: SYSTEM\ControlSet001\Services\NMSAccess; ValueType: string; ValueData: Description; ValueName: Allows Non-Admins to use the CDBurnerXP Application; Flags: uninsdeletevalue
Root: HKCR; SubKey: CDBurnerXPOpen; ValueType: string; ValueData: CDBurnerXP (ISO); Flags: uninsdeletevalue
Root: HKCR; SubKey: CDBurnerXPOpen\DefaultIcon; ValueType: string; ValueData: """{app}\cdbxpp.exe"",1"; Flags: uninsdeletevalue
Root: HKCR; SubKey: CDBurnerXPOpen\shell\open\command; ValueType: string; ValueData: """{app}\cdbxpp.exe"""; Flags: uninsdeletevalue
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\EventHandlers\HandleCDBurningOnArrival; ValueType: string; ValueName: CDBurnerXP; Flags: uninsdeletevalue
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Handlers\CDBurnerXP; ValueType: string; ValueName: Action; ValueData: Burn a disc with CDBurnerXP; Flags: uninsdeletevalue
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Handlers\CDBurnerXP; ValueType: string; ValueName: DefaultIcon; ValueData: """{app}\cdbxpp.exe"",0"; Flags: uninsdeletevalue
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Handlers\CDBurnerXP; ValueType: string; ValueName: InvokeProgID; ValueData: CDBurnerXPOpen; Flags: uninsdeletevalue
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Handlers\CDBurnerXP; ValueType: string; ValueName: InvokeVerb; ValueData: open; Flags: uninsdeletevalue
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Handlers\CDBurnerXP; ValueType: string; ValueName: Provider; ValueData: CDBurnerXP; Flags: uninsdeletevalue
Root: HKCR; SubKey: .dxp; ValueType: string; ValueData: dxp-file; Flags: uninsdeletekey; Tasks: associate
Root: HKCR; SubKey: dxp-file; ValueType: string; ValueData: CDBurnerXP Data Compilation; Flags: uninsdeletekey; Tasks: associate
Root: HKCR; SubKey: dxp-file\Shell\Open\Command; ValueType: string; ValueData: """{app}\cdbxpp.exe"" /od ""%1"""; Flags: uninsdeletevalue; Tasks: associate
Root: HKCR; Subkey: dxp-file\DefaultIcon; ValueType: string; ValueData: {app}\cdbxpp.exe,1; Flags: uninsdeletevalue; Tasks: associate
Root: HKCR; SubKey: .axp; ValueType: string; ValueData: axp-file; Flags: uninsdeletekey; Tasks: associate
Root: HKCR; SubKey: axp-file; ValueType: string; ValueData: CDBurnerXP Audio Compilation; Flags: uninsdeletekey; Tasks: associate
Root: HKCR; SubKey: axp-file\Shell\Open\Command; ValueType: string; ValueData: """{app}\cdbxpp.exe"" /oa ""%1"""; Flags: uninsdeletevalue; Tasks: associate
Root: HKCR; Subkey: axp-file\DefaultIcon; ValueType: string; ValueData: {app}\cdbxpp.exe,2; Flags: uninsdeletevalue; Tasks: associate

[Icons]
Name: {group}\CDBurnerXP; Filename: {app}\cdbxpp.exe; WorkingDir: {app}; IconFilename: {app}\cdbxpp.exe; Comment: CDBurnerXP; IconIndex: 0; Flags: createonlyiffileexists; Components: (access\currentuser or access\currentusernotnt or access\allusers) and main
Name: {group}\Uninstall CDBurnerXP; Filename: {uninstallexe}; WorkingDir: {app}; Comment: Uninstall CDBurnerXP; Components: (access\currentuser or access\currentusernotnt or access\allusers) and main
Name: {group}\CDBurnerXP Homepage; Filename: {app}\homepage.url; WorkingDir: {app}; Comment: Visit CDBurnerXP Homepage; Components: (access\currentuser or access\currentusernotnt or access\allusers) and main
Name: {group}\CDBurnerXP Downloads; Filename: {app}\download.url; WorkingDir: {app}; Comment: Downloads for CDBurnerXP; Components: (access\currentuser or access\currentusernotnt or access\allusers) and main
Name: {group}\CDBurnerXP Online Help; Filename: {app}\help.url; WorkingDir: {app}; Comment: Online Help for CDBurnerXP; Components: (access\currentuser or access\currentusernotnt or access\allusers) and main
Name: {group}\CDBurnerXP Forum; Filename: {app}\forum.url; WorkingDir: {app}; Comment: Visit CDBurnerXP Forums; Components: (access\currentuser or access\currentusernotnt or access\allusers) and main
Name: {userdesktop}\CDBurnerXP; Filename: {app}\cdbxpp.exe; WorkingDir: {app}; Comment: CDBurnerXP a CD/DVD burning application; Flags: createonlyiffileexists; IconFilename: {app}\cdbxpp.exe; IconIndex: 0; Components: (access\currentuser or access\currentusernotnt) and main; Tasks: desktopicon\user
Name: {commondesktop}\CDBurnerXP; Filename: {app}\cdbxpp.exe; WorkingDir: {app}; IconFilename: {app}\cdbxpp.exe; Comment: CDBurnerXP a CD/DVD burning application; IconIndex: 0; Components: access\allusers and main; Flags: createonlyiffileexists; Tasks: desktopicon\common
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\CDBurnerXP; Filename: {app}\cdbxpp.exe; WorkingDir: {app}; IconFilename: {app}\cdbxpp.exe; Comment: CD/DVD burning application; IconIndex: 0; Components: (access\currentuser or access\currentusernotnt or access\allusers) and main; Flags: createonlyiffileexists; Tasks: quicklaunchicon\user
Name: {commonappdata}\Microsoft\Internet Explorer\Quick Launch\CDBurnerXP; Filename: {app}\cdbxpp.exe; WorkingDir: {app}; IconFilename: {app}\cdbxpp.exe; Comment: CD/DVD burning application; IconIndex: 0; Components: (access\currentuser or access\currentusernotnt or access\allusers) and main; Flags: createonlyiffileexists; Tasks: quicklaunchicon\common

[Components]
Name: main; Description: Program Files; Flags: fixed; Types: custom compact full
Name: access\currentusernotnt; Description: Start Menu & Icons; Flags: fixed; Types: custom compact full; Check: NotUsingWinNT
Name: access\allusers; Description: Install for all users; Flags: exclusive; Types: custom compact full; Check: IsUsingWinNT
Name: access\currentuser; Description: Install for current user only; Flags: exclusive; Types: custom compact full; Check: IsUsingWinNT
Name: lang; Description: Languages; Types: custom compact full
Name: lang\French; Description: French; Types: custom compact full; Flags: checkablealone
Name: lang\German; Description: German; Types: custom compact full; Flags: checkablealone
Name: lang\Hungarian; Description: Hungarian; Flags: checkablealone; Types: custom compact full
Name: lang\Polish; Description: Polish; Flags: checkablealone; Types: custom compact full
Name: lang\ChineseCHT; Description: Chinese (CHT); Flags: checkablealone; Types: custom compact full
Name: lang\Japanese; Description: Japanese; Flags: checkablealone; Types: custom compact full
Name: lang\Romanian; Description: Romanian; Flags: checkablealone; Types: custom compact full
Name: lang\Swedish; Description: Swedish; Flags: checkablealone; Types: custom compact full
Name: lang\ChineseCHS; Description: Chinese (CHS); Flags: checkablealone; Types: custom compact full
Name: nmsaccess; Description: Provide CD/DVD access for any user under NT/XP/2000 regardless of security policies; Flags: restart; Types: custom compact full; Check: IsUsingWinNT

[Tasks]
Name: desktopicon; Description: Create &Desktop Icon; GroupDescription: Additional Icons:; Components: main
Name: desktopicon\common; Description: For all users; Components: main; Flags: exclusive
Name: desktopicon\user; Description: For the current user only; Components: main; Flags: exclusive unchecked

Name: quicklaunchicon; Description: Create a &Quick Launch icon; Components: main
Name: quicklaunchicon\common; Description: For all users; Components: main; Flags: exclusive
Name: quicklaunchicon\user; Description: For the current user only; Components: main; Flags: exclusive unchecked

Name: associate; Description: Associate Data- and Audio Compilation Files With CDBurnerXP; GroupDescription: Other tasks:; Components: main; Flags: unchecked

[_ISTool]
EnableISX=false

[Run]
Filename: {app}\NMSAccessU.exe; Parameters: -install; StatusMsg: Installing NMS Access Service; Flags: skipifdoesntexist runhidden
[UninstallRun]
Filename: {app}\NMSAccessU.exe; Parameters: -remove; Flags: skipifdoesntexist runhidden
[Code]
const
// WMF URL
WMFurl1 = 'http://w1.880.telia.com/~u88002685/wmfdist.exe';
//
var
NotUsingWinNTChecked: Boolean;
NotUsingWinNTCheckResult: Boolean;
IsUsingWinNTChecked: Boolean;
IsUsingWinNTCheckResult: Boolean;
InstallWMF: Boolean;
InstallOLEChecked: Boolean;
InstallOLEResult: Boolean;
InstallATLChecked: Boolean;
InstallATLResult: Boolean;

function NotUsingWinNT(): Boolean;
begin
if not NotUsingWinNTChecked then begin
NotUsingWinNTCheckResult := not UsingWinNT();
NotUsingWinNTChecked := True;
end;
Result := NotUsingWinNTCheckResult;
end;

function IsUsingWinNT(): Boolean;
begin
if not IsUsingWinNTChecked then begin
IsUsingWinNTCheckResult := UsingWinNT();
IsUsingWinNTChecked := True;
end;
Result := IsUsingWinNTCheckResult;
end;

function InstallATL(): Boolean;
var
strSysFolder: String;
strFilename: String;
begin
if Not InstallATLChecked then
begin
InstallATLChecked := TRUE;
strSysFolder := ExpandConstant('{sys}');
strFilename := strSysFolder + '\atl.dll';
if FileExists(strFilename) then
begin
InstallATLResult := FALSE;
Result := FALSE;
end
else
begin
InstallATLResult := TRUE;
Result :=TRUE;
end;
end
else
begin
Result := InstallATLResult;
end;
end;

function InstallATLUNI(): Boolean;
begin
if InstallATL then
begin
if IsUsingWinNT then
begin
//MsgBox('Installing ATL UNICODE.', mbInformation, MB_OK);
Result := TRUE;
end
else
begin
//MsgBox('Not Installing ATL UNICODE.', mbInformation, MB_OK);
Result := FALSE;
end;
end
else
begin
//MsgBox('Not Installing ATL UNICODE.', mbInformation, MB_OK);
Result := FALSE;
end;
end;

function InstallATLANSI(): Boolean;
begin
if InstallATL then
begin
if NotUsingWinNT then
begin
//MsgBox('Installing ATL ANSI.', mbInformation, MB_OK);
Result := TRUE;
end
else
begin
//MsgBox('Not Installing ATL ANSI.', mbInformation, MB_OK);
Result := FALSE;
end;
end
else
begin
//MsgBox('Not Installing ATL ANSI.', mbInformation, MB_OK);
Result := FALSE;
end;
end;

function InstallOLE(): Boolean;
var
strSysFolder: String;
strFilename: String;
begin
if Not InstallOLEChecked then
begin
InstallOLEChecked := TRUE;
strSysFolder := ExpandConstant('{sys}');
strFilename := strSysFolder + '\oleaut32.dll';
if FileExists(strFilename) then
begin
strFilename := strSysFolder + '\olepro32.dll';
if FileExists(strFilename) then
begin
strFilename := strSysFolder + '\asycfilt.dll';
if FileExists(strFilename) then
begin
strFilename := strsysfolder + '\stdole2.tlb';
if FileExists(strFilename) then
begin
//MsgBox('Not Installing OLE32.', mbInformation, MB_OK);
InstallOLEResult := FALSE;
Result := FALSE;
end
else
begin
InstallOLEResult := TRUE;
Result := TRUE;
end;
end
else
begin
InstallOLEResult := TRUE;
Result := TRUE;
end;
end
else
begin
InstallOLEResult := TRUE;
Result := TRUE;
end;
end
else
begin
InstallOLEResult := TRUE;
Result := TRUE;
end;
end
else
begin
Result := InstallOLEResult;
end;
end;

function CheckWMF(): Boolean;
begin
if InstallWMF = TRUE then
begin
Result := TRUE;
end
else
begin
Result := FALSE;
end;
end;

procedure DecodeVersion( verstr: String; var verint: array of Integer );
var
i,p: Integer; s: string;
cSep: char;
begin
//A little help for the Europeans
cSep := '.';
if (0 = pos ('.', verstr)) and (0 pos (',', verstr)) then begin
cSep := ',';
end;
// initialize array
verint := [0,0,0,0];
i := 0;
while ( (Length(verstr) > 0) and (i begin
p := pos(cSep, verstr);
if p > 0 then
begin
if p = 1 then s:= '0' else s:= Copy( verstr, 1, p - 1 );
verint[i] := StrToInt(s);
i := i + 1;
verstr := Copy( verstr, p+1, Length(verstr));
end
else
begin
verint[i] := StrToInt( verstr );
verstr := '';
end;
end;


end;

function WMFDistInstalled(): Boolean;
var
result5: Boolean;
begin
result5 := RegKeyExists(HKCU,'Software\Microsoft\MediaPlayer\Setup');
if result5 = TRUE then
begin
result5 := RegValueExists(HKCU,'Software\Microsoft\MediaPlayer\Setup','InstallResult');
if result5 = True then
begin
Result := True;
end
else
begin
Result := False;
end;
end
else
begin
Result := False;
end;
end;
//RegQueryDWordValue(HKCU, 'Software\Microsoft\MediaPlayer\Setup','InstallResult',dwIsInstalled);

function WMP9Installed(): Boolean;
var
ErrorCode: Integer;
dwIsInstalled: Cardinal;
strVersion: String;
lCurrInstalledVersion: Longint;
verint: array of Integer;
Result2: Boolean;
begin
if CompareStr(GetWindowsVersionString,'4.00.1381') 0 then
begin
if RegKeyExists(HKLM,'Software\Microsoft\Active Setup\Installed Components\{6BF52A52-394A-11d3-B153-00C04F79FAA6}') = TRUE then
begin
RegQueryDWordValue(HKLM, 'Software\Microsoft\Active Setup\Installed Components\{6BF52A52-394A-11d3-B153-00C04F79FAA6}',
'IsInstalled', dwIsInstalled);
if 1 = dwIsInstalled then
begin
RegQueryStringValue(HKLM, 'Software\Microsoft\Active Setup\Installed Components\{6BF52A52-394A-11d3-B153-00C04F79FAA6}',
'Version', strVersion);
//MsgBox (strVersion, mbInformation, MB_OK);
SetArrayLength(verint, 4);
DecodeVersion(strVersion, verint);
if verint[0] >= 9 then
begin
//MsgBox ('Its 9', mbInformation, MB_OK);
Result := TRUE;
end
else
begin
//
Result2 := WMFDistInstalled();
if Result2 = TRUE then
begin
InstallWMF := FALSE;
Result := TRUE;
end
else
begin
Result2 := MsgBox('Setup has detected that the version of Window Media Player is lower than 9. Windows Media Player 9 is required for full functionality of CDBurnerXP(WMA Files). Do you want the installer to download and install wmfdist.exe for you?', mbConfirmation, MB_YESNO) = idYes;
if Result2 = true then
begin
InstallWMF := TRUE;
Result := TRUE; //FALSE
//InstShellExec('http://www.cdburnerxp.se/wmf/wmfdist.exe','','',SW_SHOWNORMAL,ErrorCode);
end
else
begin
Result := FALSE;
end;
end;

end;
end;
end
else
begin
Result2 := WMFDistInstalled();
if Result2 = TRUE then
begin
InstallWMF := FALSE;
Result := TRUE;
end
else
begin
Result2 := MsgBox('Setup has detected that the version of Window Media Player is lower than 9. Windows Media Player 9 is required for full functionality of CDBurnerXP(WMA Files). Do you want the installer to download and install wmfdist.exe for you?', mbConfirmation, MB_YESNO) = idYes;
if Result2 = true then
begin
InstallWMF := TRUE;
Result := TRUE; //FALSE
//InstShellExec('http://www.cdburnerxp.se/wmf/wmfdist.exe','','',SW_SHOWNORMAL,ErrorCode);
end
else
begin
Result := FALSE;
end;
end;
end;
end
else
begin
Result := TRUE;
end;
end;

function FrameworkInstalled(): Boolean;
var
ErrorCode: Integer;
NetFrameWorkInstalled : Boolean;
Net1_1 : Boolean;
Net2_0 : Boolean;
Net3_0 : Boolean;
Result1 : Boolean;
begin

Net1_1 := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v1.1');
Net2_0 := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v2.0');
Net3_0 := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v3.0');
//NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v1.1');
if Net3_0 or Net2_0 then
begin
NetFrameWorkInstalled :=true;
end
else
Begin
NetFrameWorkInstalled :=False;
end;

if NetFrameWorkInstalled =true then
begin
Result := true;
end;
if NetFrameWorkInstalled =false then
begin
Result1 := MsgBox('CDBurnerXP version 4.0(or above) requires the .NET Framework. Please download and install the .NET Framework v2.0 or v3.0 and run this setup again. Do you want to download the framework now?',mbConfirmation, MB_YESNO) = idYes;
if Result1 =false then
begin
Result:=false;
end
else
begin
Result:=false;
ShellExec('','http://msdn2.microsoft.com/en-us/netframework/aa569263.aspx','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
//ShellExec('','http://www.microsoft.com/downloads/details.aspx?familyid=262d25e3-f589-4842-8157-034d1e7cf3a3','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
//ShellExec('','http://download.microsoft.com/download/a/a/c/aac39226-8825-44ce-90e3-bf8203e74006/dotnetfx.exe','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
end;
end;

function NextButtonClick(CurPage: Integer): Boolean;
var
hWnd: Integer;
sFileName: String;
sTasks: String;
nCode: Integer;
begin
Result := true;

if CurPage = wpReady then begin
if InstallWMF = TRUE then
begin
hWnd := StrToInt(ExpandConstant('{wizardhwnd}'));

sTasks := WizardSelectedTasks(false);

isxdl_ClearFiles;

if Pos('wmfdownload',sTasks)>0 then begin
sFileName := ExpandConstant('{tmp}\wmfdist.exe');
isxdl_AddFile(WMFurl1,sFileName);
end;

if isxdl_DownloadFiles(hWnd) 0 then begin
sFileName := ExpandConstant('{tmp}\wmfdist.exe');
if FileExists(sFileName) then Exec(sFileName,'/Q:A /R:N','',SW_HIDE,ewWaitUntilTerminated,nCode)
end else
Result := false;

end;
end;
end;

function SetAIN(): Boolean;
var
AINSet: Cardinal;
begin
if isUsingWinNT then
begin
RegQueryDWordValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Services\Cdrom','AutoRun', AINSet);
if AINSet = 0 then
begin
RegWriteDWordValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Services\Cdrom','AutoRun', 1);
Result := TRUE
end
else
begin
Result :=FALSE
end;
end
else
begin

end;
end;

function InitializeSetup(): Boolean;
var
result3: Boolean;
slask: Boolean;
begin
if CheckForMutexes('CDBXPMutex') = FALSE then begin
Createmutex('CDBXPMutex');
end else begin
Result := False;
exit;
end;
//isxdl_SetOption('language',ExpandConstant('{tmp}\norwegian.ini'));
isxdl_SetOption('title','Setup - Download WMFDist.exe');
//isxdl_SetOption('label','Some label...');
//isxdl_SetOption('description','Some description...');
isxdl_SetOption('resume','false');
result3 := FrameworkInstalled();
if result3 = FALSE then
begin
Result := FALSE;
end
else
begin
result3 := WMP9Installed();
if result3 = FALSE then
begin
slask :=MsgBox('Warning! Without Windows Media Player/WMFDist installed CDBurnerXP will not have full functionality.', mbInformation, MB_OK) = idYes;
Result := TRUE;

end
else
begin
Result := TRUE;
end;
end;
end;
[/code]

Share this post


Link to post
Share on other sites

Thanks gods =) for using INNO and see the concept of silent installation (unattended) script provided by me =)

@ECHO OFF


REM Unattend Source Path

SET usp=\\samba\setup


ECHO .

ECHO . CDBurnerXP... Default: turn on


IF NOT %1.==/u. GOTO enable

GOTO disable


:enable

START "CDBXPP" /W /I %usp%\_FW\CDBurnerXP\cdbxp_setup_4.0.015.277.exe /sp- /verysilent /norestart /lang=english /components="main,nmsaccess,lang,lang\french,lang\german,lang\hungarian,lang\polish,lang\chinesecht,lang\japanese,lang\romanian,lang\swedish,lang\chinesechs,lang\czech,lang\italian,lang\portuguese,lang\russian,lang\turkish"


REM to enable all users rights to burn (NMSAccessU included in CDBurnerXP)

START "NMSAU" /W /I "%ProgramFiles%\CDBurnerXP\NMSAccessU.exe" -install


NET START NMSAccessU


REM CWD fix

CD /D "%TEMP%"


REM Start Menu fix

CD /D "%ALLUSERSPROFILE%"

IF EXIST "Nab?dka Start" GOTO smcz

IF EXIST "Start Menu" GOTO smen

GOTO smout

:smcz

REM Czech Start Menu

CD /D "Nab?dka Start"

COPY /b /y /z "Programy\CDBurnerXP\CDBurnerXP.lnk" "..\Plocha\"

DEL /F /Q "Programy\CDBurnerXP\Uninstall CDBurnerXP.lnk"

CD /D "%USERPROFILE%\Nab?dka Start"

DEL /F /Q "..\Plocha\CDBurnerXP.lnk"

IF EXIST "%ALLUSERSPROFILE%\Start Menu" GOTO smen

GOTO smout

:smen

REM English Start Menu

CD /D "Start Menu"

COPY /b /y /z "Programs\CDBurnerXP\CDBurnerXP.lnk" "..\Desktop\"

DEL /F /Q "Programs\CDBurnerXP\Uninstall CDBurnerXP.lnk"

CD /D "%USERPROFILE%\Start Menu"

DEL /F /Q "..\Desktop\CDBurnerXP.lnk"

:smout

GOTO finish


:disable

REM CWD fix

CD /D "%TEMP%"


REM Start Menu fix

CD /D "%ALLUSERSPROFILE%"

IF EXIST "Nab?dka Start" GOTO smcz

IF EXIST "Start Menu" GOTO smen

GOTO smout

:smcz

REM Czech Start Menu

CD /D "Nab?dka Start"

DEL /F /Q "..\Plocha\CDBurnerXP.lnk"

IF EXIST "%ALLUSERSPROFILE%\Start Menu" GOTO smen

GOTO smout

:smen

REM English Start Menu

CD /D "Start Menu"

DEL /F /Q "..\Desktop\CDBurnerXP.lnk"

:smout


REM to kill CDBurnerXP window tasks

FOR %%x IN (cdbxpp) DO %usp%\_DEPLOY\BIN\pskill.exe %%x


NET STOP NMSAccessU


START "NMSAU" /W /I "%ProgramFiles%\CDBurnerXP\NMSAccessU.exe" -remove


START "CDBXPP" /W /I "%ProgramFiles%\CDBurnerXP\unins000.exe" /verysilent /norestart


IF EXIST "%ProgramFiles%\CDBurnerXP" MOVE /Y "%ProgramFiles%\CDBurnerXP" "%TEMP%\2del_%RANDOM%.del"

GOTO finish


:finish

EXIT

Share this post


Link to post
Share on other sites
Guest Corbendallas

Anyway I can change the "ShowLanguageDialog=yes" to NO?

I dont want that dialog when I deploy the software.

I figured out that if I remove the folders with the languages I just get the default, but the window is still annoying.

/T

Share this post


Link to post
Share on other sites

Can windows media player work with windows vista? I have this mp3 player that works with only windows media player 10 but I use a windows vista that comes with windows media player 11. Do u think wmp10 will work with vista or is there some kinda plug-in I can download to solve the problem?

____________________

keyword research ~ keyword tool ~ keyword tracking ~ affiliate elite

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.