@@ -125,6 +125,8 @@ Name: "{userdesktop}\Dolibarr Help center"; Filename: "{app}\rundolihelp.bat"; W
var phpVersion: String;
var apacheVersion: String;
var path: String;
var pfPath: String;
var winPath: String;
var pathWithSlashes: String;
var Page: TInputQueryWizardPage;
...
...
@@ -141,12 +143,8 @@ var srcFileA: String;
var destFileA: String;
var srcContents: String;
var browser: String;
var winPath: String;
var mysqlVersion: String;
var wampserverVersion: String;
var phpmyadminVersion: String;
var sqlitemanagerVersion: String;
var tmp: String;
var phpDllCopy: String;
var batFile: String;
...
...
@@ -164,7 +162,7 @@ var value: String;
//procedures lancees au debut de l'installation
function InitializeSetup(): Boolean;
begin
Result := MsgBox('You will install or upgrade DoliWamp (Apache+Mysql+PHP+Dolibarr) on your computer.' #13#13 'This setup install or upgrade Dolibarr ERP-CRM and required third party softwares (Apache, Mysql and PHP) configured for a Dolibarr usage.' #13#13 'If you have technical knowledge and plan to share your Apache, Mysql and PHP with other projects than Dolibarr, you should not use this assistant and make a manual installation of Dolibarr on an existing Apache, Mysql and PHP installation. If you don't need a sophisticated manual setup, you're on the good way...' #13#13 'Do you want to start installation/upgrade process ?', mbConfirmation, MB_YESNO) = idYes;
Result := MsgBox('You will install or upgrade DoliWamp (Apache+Mysql+PHP+Dolibarr) on your computer.' #13#13 'This setup install or upgrade Dolibarr ERP-CRM and required third party softwares (Apache, Mysql and PHP) configured for a Dolibarr usage.' #13#13 'If you have technical knowledge and plan to share your Apache, Mysql and PHP with other projects than Dolibarr, you should not use this assistant and make a manual installation of Dolibarr on an existing Apache, Mysql and PHP installation. If you don''t need a sophisticated manual setup, you''re on the good way...' #13#13 'Do you want to start installation/upgrade process ?', mbConfirmation, MB_YESNO) = IDYES;
end;
procedure InitializeWizard();
...
...
@@ -173,9 +171,7 @@ begin
apacheVersion := '2.2.6';
phpVersion := '5.2.5' ;
mysqlVersion := '5.0.45';
wampserverVersion := '2.0';
phpmyadminVersion := '2.10.1';
sqlitemanagerVersion := '1.2.0';
phpmyadminVersion := '3.2.0.1';
smtpServer := 'localhost';
apachePort := '80';
...
...
@@ -268,6 +264,7 @@ procedure close();
var myResult: Integer;
begin
path := ExpandConstant('{app}');
pfPath := ExpandConstant('{pf}');
winPath := ExpandConstant('{win}');
pathWithSlashes := path;
StringChange (pathWithSlashes, '\','/');
...
...
@@ -459,11 +456,11 @@ begin
begin
//navigateur
browser := 'explorer.exe';
if FileExists ('C:/Program Files/Mozilla Firefox/firefox.exe') then
if FileExists (pfPath+'/Mozilla Firefox/firefox.exe') then
begin
if MsgBox('Firefox has been detected on your computer. Would you like to use it as the default browser with Dolibarr ?',mbConfirmation,MB_YESNO) = IDYES then
