Fix DoliWamp installer
This commit is contained in:
Laurent Destailleur
parent
233ec0dfc9
commit
2459b4fd85
@ -179,320 +179,306 @@ begin
|
|||||||
begin
|
begin
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------------------
|
||||||
|
// renommage du fichier c:/windows/php.ini
|
||||||
|
//----------------------------------------------
|
||||||
|
|
||||||
//----------------------------------------------
|
if FileExists ('c:/windows/php.ini') then
|
||||||
// renommage du fichier c:/windows/php.ini
|
|
||||||
//----------------------------------------------
|
|
||||||
|
|
||||||
if FileExists ('c:/windows/php.ini') then
|
|
||||||
begin
|
|
||||||
if MsgBox('A previous c:/windows/php.ini file has been detected in your Windows directory. Do you want DoliWamp to rename it to php_old.ini to avoid conflicts ?',mbConfirmation,MB_YESNO) = IDYES then
|
|
||||||
begin
|
|
||||||
RenameFile('c:/windows/php.ini','c:/windows/php_old.ini');
|
|
||||||
end
|
|
||||||
end
|
|
||||||
if FileExists ('c:/winnt/php.ini') then
|
|
||||||
begin
|
|
||||||
if MsgBox('A previous c:/winnt/php.ini file has been detected in your Windows directory. Do you want DoliWamp to rename it to php_old.ini to avoid conflicts ?',mbConfirmation,MB_YESNO) = IDYES then
|
|
||||||
begin
|
|
||||||
RenameFile('c:/winnt/php.ini','c:/winnt/php_old.ini');
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
//----------------------------------------------
|
|
||||||
// rundoliwamp.bat
|
|
||||||
//----------------------------------------------
|
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/rundoliwamp.bat';
|
|
||||||
srcFile := pathWithSlashes+'/rundoliwamp.bat.install';
|
|
||||||
|
|
||||||
if not FileExists (destFile) and FileExists(srcFile) then
|
|
||||||
begin
|
|
||||||
|
|
||||||
//navigateur
|
|
||||||
browser := 'explorer.exe';
|
|
||||||
if FileExists ('C:/Program Files/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
|
|
||||||
begin
|
begin
|
||||||
browser := 'C:/Program Files/Mozilla Firefox/firefox.exe';
|
if MsgBox('A previous c:/windows/php.ini file has been detected in your Windows directory. Do you want DoliWamp to rename it to php_old.ini to avoid conflicts ?',mbConfirmation,MB_YESNO) = IDYES then
|
||||||
|
begin
|
||||||
|
RenameFile('c:/windows/php.ini','c:/windows/php_old.ini');
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if FileExists ('c:/winnt/php.ini') then
|
||||||
|
begin
|
||||||
|
if MsgBox('A previous c:/winnt/php.ini file has been detected in your Windows directory. Do you want DoliWamp to rename it to php_old.ini to avoid conflicts ?',mbConfirmation,MB_YESNO) = IDYES then
|
||||||
|
begin
|
||||||
|
RenameFile('c:/winnt/php.ini','c:/winnt/php_old.ini');
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
|
||||||
if browser = 'explorer.exe' then
|
|
||||||
begin
|
|
||||||
GetOpenFileName('Please choose your default browser. If you are not sure, just click Open :', browser, winPath,'exe files (*.exe)|*.exe|All files (*.*)|*.*' ,'exe');
|
|
||||||
end
|
|
||||||
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
StringChange (srcContents, 'WAMPBROWSER', browser);
|
|
||||||
StringChange (srcContents, 'WAMPAPACHEPORT', apachePort);
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
|
||||||
end
|
|
||||||
DeleteFile(srcFile);
|
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------------------
|
||||||
|
// rundoliwamp.bat
|
||||||
|
//----------------------------------------------
|
||||||
|
|
||||||
|
destFile := pathWithSlashes+'/rundoliwamp.bat';
|
||||||
|
srcFile := pathWithSlashes+'/rundoliwamp.bat.install';
|
||||||
|
|
||||||
//----------------------------------------------
|
if not FileExists (destFile) and FileExists(srcFile) then
|
||||||
// Fichier alias phpmyadmin
|
begin
|
||||||
//----------------------------------------------
|
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/alias/phpmyadmin.conf';
|
//navigateur
|
||||||
srcFile := pathWithSlashes+'/alias/phpmyadmin.conf.install';
|
browser := 'explorer.exe';
|
||||||
|
if FileExists ('C:/Program Files/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
|
||||||
|
begin
|
||||||
|
browser := 'C:/Program Files/Mozilla Firefox/firefox.exe';
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if browser = 'explorer.exe' then
|
||||||
|
begin
|
||||||
|
GetOpenFileName('Please choose your default browser. If you are not sure, just click Open :', browser, winPath,'exe files (*.exe)|*.exe|All files (*.*)|*.*' ,'exe');
|
||||||
|
end
|
||||||
|
|
||||||
if not FileExists (destFile) and FileExists(srcFile) then
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
begin
|
StringChange (srcContents, 'WAMPBROWSER', browser);
|
||||||
|
StringChange (srcContents, 'WAMPAPACHEPORT', apachePort);
|
||||||
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
|
end
|
||||||
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
|
|
||||||
//installDir et version de phpmyadmin
|
|
||||||
StringChange (srcContents, 'WAMPROOT', pathWithSlashes);
|
|
||||||
StringChange (srcContents, 'WAMPPHPMYADMINVERSION', phpmyadminVersion);
|
|
||||||
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
|
||||||
end
|
|
||||||
DeleteFile(srcFile);
|
|
||||||
|
|
||||||
|
//----------------------------------------------
|
||||||
|
// Fichier alias phpmyadmin
|
||||||
|
//----------------------------------------------
|
||||||
|
|
||||||
|
destFile := pathWithSlashes+'/alias/phpmyadmin.conf';
|
||||||
|
srcFile := pathWithSlashes+'/alias/phpmyadmin.conf.install';
|
||||||
|
|
||||||
//----------------------------------------------
|
if not FileExists (destFile) and FileExists(srcFile) then
|
||||||
// Fichier alias dolibarr
|
begin
|
||||||
//----------------------------------------------
|
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/alias/dolibarr.conf';
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
srcFile := pathWithSlashes+'/alias/dolibarr.conf.install';
|
|
||||||
|
|
||||||
if not FileExists (destFile) and FileExists(srcFile) then
|
//installDir et version de phpmyadmin
|
||||||
begin
|
StringChange (srcContents, 'WAMPROOT', pathWithSlashes);
|
||||||
|
StringChange (srcContents, 'WAMPPHPMYADMINVERSION', phpmyadminVersion);
|
||||||
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
|
end
|
||||||
|
DeleteFile(srcFile);
|
||||||
|
|
||||||
StringChange (srcContents, 'WAMPROOT', pathWithSlashes);
|
|
||||||
StringChange (srcContents, 'WAMPMYSQLNEWPASSWORD', newPassword);
|
|
||||||
|
|
||||||
SaveStringToFile(destFile, srcContents, False);
|
|
||||||
end
|
|
||||||
DeleteFile(srcFile);
|
|
||||||
|
|
||||||
|
//----------------------------------------------
|
||||||
|
// Fichier alias dolibarr
|
||||||
|
//----------------------------------------------
|
||||||
|
|
||||||
|
destFile := pathWithSlashes+'/alias/dolibarr.conf';
|
||||||
|
srcFile := pathWithSlashes+'/alias/dolibarr.conf.install';
|
||||||
|
|
||||||
|
if not FileExists (destFile) and FileExists(srcFile) then
|
||||||
|
begin
|
||||||
|
|
||||||
//----------------------------------------------
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
// Fichier de configuration de phpmyadmin
|
|
||||||
//----------------------------------------------
|
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/apps/phpmyadmin'+phpmyadminVersion+'/config.inc.php';
|
StringChange (srcContents, 'WAMPROOT', pathWithSlashes);
|
||||||
srcFile := pathWithSlashes+'/apps/phpmyadmin'+phpmyadminVersion+'/config.inc.php.install';
|
StringChange (srcContents, 'WAMPMYSQLNEWPASSWORD', newPassword);
|
||||||
|
|
||||||
if not FileExists (destFile) then
|
SaveStringToFile(destFile, srcContents, False);
|
||||||
begin
|
end
|
||||||
|
DeleteFile(srcFile);
|
||||||
|
|
||||||
// si un fichier existe pour une version precedente de phpmyadmin, on le recupere
|
|
||||||
if FileExists (pathWithSlashes+'/apps/phpmyadmin'+tmp+'/config.inc.php') then
|
|
||||||
begin
|
|
||||||
LoadStringFromFile (pathWithSlashes+'/apps/phpmyadmin'+tmp+'/config.inc.php', srcContents);
|
|
||||||
StringChange (srcContents, 'WAMPMYSQLNEWPASSWORD', newPassword);
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
// sinon on prends le fichier par defaut
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
StringChange (srcContents, 'WAMPMYSQLNEWPASSWORD', newPassword);
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
|
||||||
end
|
|
||||||
end
|
|
||||||
//DeleteFile(srcFile);
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
//----------------------------------------------
|
//----------------------------------------------
|
||||||
// Fichier httpd.conf
|
// Fichier de configuration de phpmyadmin
|
||||||
//----------------------------------------------
|
//----------------------------------------------
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/conf/httpd.conf';
|
destFile := pathWithSlashes+'/apps/phpmyadmin'+phpmyadminVersion+'/config.inc.php';
|
||||||
srcFile := pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/conf/httpd.conf.install';
|
srcFile := pathWithSlashes+'/apps/phpmyadmin'+phpmyadminVersion+'/config.inc.php.install';
|
||||||
|
|
||||||
if not FileExists (destFile) then
|
if not FileExists (destFile) then
|
||||||
begin
|
begin
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
|
|
||||||
//installDir et version de php
|
// si un fichier existe pour une version precedente de phpmyadmin, on le recupere
|
||||||
StringChange (srcContents, 'WAMPROOT', pathWithSlashes);
|
if FileExists (pathWithSlashes+'/apps/phpmyadmin'+tmp+'/config.inc.php') then
|
||||||
StringChange (srcContents, 'WAMPPHPVERSION', phpVersion);
|
begin
|
||||||
|
LoadStringFromFile (pathWithSlashes+'/apps/phpmyadmin'+tmp+'/config.inc.php', srcContents);
|
||||||
|
StringChange (srcContents, 'WAMPMYSQLNEWPASSWORD', newPassword);
|
||||||
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
// sinon on prends le fichier par defaut
|
||||||
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
|
StringChange (srcContents, 'WAMPMYSQLNEWPASSWORD', newPassword);
|
||||||
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
|
||||||
end
|
|
||||||
//DeleteFile(srcFile);
|
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------------------
|
||||||
|
// Fichier httpd.conf
|
||||||
|
//----------------------------------------------
|
||||||
|
|
||||||
|
destFile := pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/conf/httpd.conf';
|
||||||
|
srcFile := pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/conf/httpd.conf.install';
|
||||||
|
|
||||||
//----------------------------------------------
|
if not FileExists (destFile) then
|
||||||
// Fichier my.ini
|
begin
|
||||||
//----------------------------------------------
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/bin/mysql/mysql'+mysqlVersion+'/my.ini';
|
//installDir et version de php
|
||||||
srcFile := pathWithSlashes+'/bin/mysql/mysql'+mysqlVersion+'/my.ini.install';
|
StringChange (srcContents, 'WAMPROOT', pathWithSlashes);
|
||||||
|
StringChange (srcContents, 'WAMPPHPVERSION', phpVersion);
|
||||||
|
|
||||||
if not FileExists (destFile) then
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
begin
|
end
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
|
|
||||||
//installDir et version de php
|
|
||||||
StringChange (srcContents, 'WAMPROOT', pathWithSlashes);
|
|
||||||
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
|
||||||
end
|
|
||||||
//DeleteFile(SrcFile);
|
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------------------
|
||||||
|
// Fichier my.ini
|
||||||
|
//----------------------------------------------
|
||||||
|
|
||||||
|
destFile := pathWithSlashes+'/bin/mysql/mysql'+mysqlVersion+'/my.ini';
|
||||||
|
srcFile := pathWithSlashes+'/bin/mysql/mysql'+mysqlVersion+'/my.ini.install';
|
||||||
|
|
||||||
|
if not FileExists (destFile) then
|
||||||
|
begin
|
||||||
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
|
|
||||||
//----------------------------------------------
|
//installDir et version de php
|
||||||
// Fichier index.php
|
StringChange (srcContents, 'WAMPROOT', pathWithSlashes);
|
||||||
//----------------------------------------------
|
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/www/index.php';
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
srcFile := pathWithSlashes+'/www/index.php.install';
|
end
|
||||||
|
|
||||||
if not FileExists (destFile) then
|
|
||||||
begin
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
StringChange (srcContents, 'WAMPPHPVERSION', phpVersion);
|
|
||||||
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
|
||||||
StringChange (srcContents, 'WAMPAPACHEVERSION', apacheVersion);
|
|
||||||
SaveStringToFile(destFile, srcContents, False);
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
RenameFile(destFile, destFile+'.old');
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
StringChange (srcContents, 'WAMPPHPVERSION', phpVersion);
|
|
||||||
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
|
||||||
StringChange (srcContents, 'WAMPAPACHEVERSION', apacheVersion);
|
|
||||||
SaveStringToFile(destFile, srcContents, False);
|
|
||||||
end
|
|
||||||
DeleteFile(srcFile);
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------------------
|
||||||
|
// Fichier index.php
|
||||||
|
//----------------------------------------------
|
||||||
|
|
||||||
//----------------------------------------------
|
destFile := pathWithSlashes+'/www/index.php';
|
||||||
// Fichier dolibarr
|
srcFile := pathWithSlashes+'/www/index.php.install';
|
||||||
//----------------------------------------------
|
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/www/dolibarr/htdocs/install/install.forced.php';
|
if not FileExists (destFile) then
|
||||||
srcFile := pathWithSlashes+'/www/dolibarr/htdocs/install/install.forced.php.install';
|
begin
|
||||||
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
|
StringChange (srcContents, 'WAMPPHPVERSION', phpVersion);
|
||||||
|
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
||||||
|
StringChange (srcContents, 'WAMPAPACHEVERSION', apacheVersion);
|
||||||
|
SaveStringToFile(destFile, srcContents, False);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
RenameFile(destFile, destFile+'.old');
|
||||||
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
|
StringChange (srcContents, 'WAMPPHPVERSION', phpVersion);
|
||||||
|
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
||||||
|
StringChange (srcContents, 'WAMPAPACHEVERSION', apacheVersion);
|
||||||
|
SaveStringToFile(destFile, srcContents, False);
|
||||||
|
end
|
||||||
|
|
||||||
if not FileExists (destFile) then
|
|
||||||
begin
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
|
|
||||||
StringChange (srcContents, 'WAMPROOT', pathWithSlashes);
|
|
||||||
StringChange (srcContents, 'WAMPMYSQLPORT', mysqlPort);
|
|
||||||
StringChange (srcContents, 'WAMPMYSQLNEWPASSWORD', newPassword);
|
|
||||||
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
|
||||||
end
|
|
||||||
DeleteFile(srcFile);
|
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------------------
|
||||||
|
// Fichier dolibarr parametres predefins install web
|
||||||
|
//----------------------------------------------
|
||||||
|
|
||||||
//----------------------------------------------
|
destFile := pathWithSlashes+'/www/dolibarr/htdocs/install/install.forced.php';
|
||||||
// Fichier install_services.bat
|
srcFile := pathWithSlashes+'/www/dolibarr/htdocs/install/install.forced.php.install';
|
||||||
//----------------------------------------------
|
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/install_services.bat';
|
if not FileExists (destFile) then
|
||||||
srcFile := pathWithSlashes+'/install_services.bat.install';
|
begin
|
||||||
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
|
|
||||||
if not FileExists (destFile) then
|
StringChange (srcContents, 'WAMPROOT', pathWithSlashes);
|
||||||
begin
|
StringChange (srcContents, 'WAMPMYSQLPORT', mysqlPort);
|
||||||
|
StringChange (srcContents, 'WAMPMYSQLNEWPASSWORD', newPassword);
|
||||||
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
|
end
|
||||||
|
|
||||||
//version de apache et mysql
|
|
||||||
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
|
||||||
StringChange (srcContents, 'WAMPAPACHEVERSION', apacheVersion);
|
|
||||||
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
|
||||||
end
|
|
||||||
DeleteFile(srcFile);
|
|
||||||
|
|
||||||
|
//----------------------------------------------
|
||||||
|
// Fichier install_services.bat
|
||||||
|
//----------------------------------------------
|
||||||
|
|
||||||
|
destFile := pathWithSlashes+'/install_services.bat';
|
||||||
|
srcFile := pathWithSlashes+'/install_services.bat.install';
|
||||||
|
|
||||||
|
if not FileExists (destFile) then
|
||||||
|
begin
|
||||||
|
|
||||||
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
|
|
||||||
//----------------------------------------------
|
//version de apache et mysql
|
||||||
// Fichier install_services_auto.bat
|
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
||||||
//----------------------------------------------
|
StringChange (srcContents, 'WAMPAPACHEVERSION', apacheVersion);
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/install_services_auto.bat';
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
srcFile := pathWithSlashes+'/install_services_auto.bat.install';
|
end
|
||||||
|
|
||||||
if not FileExists (destFile) and FileExists (srcFile) then
|
|
||||||
begin
|
|
||||||
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
|
|
||||||
//version de apache et mysql
|
//----------------------------------------------
|
||||||
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
// Fichier install_services_auto.bat
|
||||||
StringChange (srcContents, 'WAMPAPACHEVERSION', apacheVersion);
|
//----------------------------------------------
|
||||||
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
destFile := pathWithSlashes+'/install_services_auto.bat';
|
||||||
end
|
srcFile := pathWithSlashes+'/install_services_auto.bat.install';
|
||||||
DeleteFile(srcFile);
|
|
||||||
|
|
||||||
|
if not FileExists (destFile) and FileExists (srcFile) then
|
||||||
|
begin
|
||||||
|
|
||||||
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
|
|
||||||
|
//version de apache et mysql
|
||||||
|
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
||||||
|
StringChange (srcContents, 'WAMPAPACHEVERSION', apacheVersion);
|
||||||
|
|
||||||
//----------------------------------------------
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
// Fichier uninstall_services.bat
|
end
|
||||||
//----------------------------------------------
|
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/uninstall_services.bat';
|
|
||||||
srcFile := pathWithSlashes+'/uninstall_services.bat.install';
|
|
||||||
|
|
||||||
if not FileExists (destFile) then
|
|
||||||
begin
|
|
||||||
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
|
|
||||||
//version de apache et mysql
|
//----------------------------------------------
|
||||||
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
// Fichier uninstall_services.bat
|
||||||
StringChange (srcContents, 'WAMPAPACHEVERSION', apacheVersion);
|
//----------------------------------------------
|
||||||
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
destFile := pathWithSlashes+'/uninstall_services.bat';
|
||||||
end
|
srcFile := pathWithSlashes+'/uninstall_services.bat.install';
|
||||||
DeleteFile(srcFile);
|
|
||||||
|
|
||||||
|
if not FileExists (destFile) then
|
||||||
|
begin
|
||||||
|
|
||||||
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
|
|
||||||
//----------------------------------------------
|
//version de apache et mysql
|
||||||
// Fichier mysqlinitpassword.bat
|
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
||||||
//----------------------------------------------
|
StringChange (srcContents, 'WAMPAPACHEVERSION', apacheVersion);
|
||||||
|
|
||||||
destFile := pathWithSlashes+'/mysqlinitpassword.bat';
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
srcFile := pathWithSlashes+'/mysqlinitpassword.bat.install';
|
end
|
||||||
|
|
||||||
if not FileExists (destFile) and FileExists (srcFile) then
|
|
||||||
begin
|
|
||||||
|
|
||||||
LoadStringFromFile (srcFile, srcContents);
|
|
||||||
|
|
||||||
//version de apache et mysql
|
//----------------------------------------------
|
||||||
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
// Fichier mysqlinitpassword.bat
|
||||||
StringChange (srcContents, 'WAMPMYSQLPORT', mysqlPort);
|
//----------------------------------------------
|
||||||
StringChange (srcContents, 'WAMPMYSQLNEWPASSWORD', newPassword);
|
|
||||||
|
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
destFile := pathWithSlashes+'/mysqlinitpassword.bat';
|
||||||
end
|
srcFile := pathWithSlashes+'/mysqlinitpassword.bat.install';
|
||||||
DeleteFile(srcFile);
|
|
||||||
|
if not FileExists (destFile) and FileExists (srcFile) then
|
||||||
|
begin
|
||||||
|
|
||||||
|
LoadStringFromFile (srcFile, srcContents);
|
||||||
|
|
||||||
|
//version de apache et mysql
|
||||||
|
StringChange (srcContents, 'WAMPMYSQLVERSION', mysqlVersion);
|
||||||
|
StringChange (srcContents, 'WAMPMYSQLPORT', mysqlPort);
|
||||||
|
StringChange (srcContents, 'WAMPMYSQLNEWPASSWORD', newPassword);
|
||||||
|
|
||||||
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -537,31 +523,29 @@ DeleteFile(srcFile);
|
|||||||
begin
|
begin
|
||||||
SaveStringToFile(destFile,srcContents, False);
|
SaveStringToFile(destFile,srcContents, False);
|
||||||
end
|
end
|
||||||
//DeleteFile(SrcFile);
|
|
||||||
|
|
||||||
|
|
||||||
// Install services
|
// Install services
|
||||||
batFile := path+'\uninstall_services.bat';
|
batFile := path+'\uninstall_services.bat';
|
||||||
Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult);
|
Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult);
|
||||||
batFile := path+'\install_services.bat';
|
batFile := path+'\install_services.bat';
|
||||||
Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult);
|
Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult);
|
||||||
|
|
||||||
// Stard services
|
// Stard services
|
||||||
batFile := path+'\startdoliwamp.bat';
|
batFile := path+'\startdoliwamp.bat';
|
||||||
Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult);
|
Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult);
|
||||||
|
|
||||||
// Change mysql password
|
// Change mysql password
|
||||||
batFile := path+'\mysqlinitpassword.bat';
|
batFile := path+'\mysqlinitpassword.bat';
|
||||||
Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult);
|
Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult);
|
||||||
|
|
||||||
// Remove dangerous files
|
// Remove dangerous files
|
||||||
batFile := path+'\removefiles.bat';
|
batFile := path+'\removefiles.bat';
|
||||||
Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult);
|
// Exec(batFile, '',path+'\', SW_HIDE, ewWaitUntilTerminated, myResult);
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
||||||
Result := True;
|
Result := True;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -597,61 +581,59 @@ begin
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------------------
|
||||||
|
// copie des dll de php vers apache
|
||||||
|
//----------------------------------------------
|
||||||
|
|
||||||
|
phpDllCopy := 'fdftk.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'fribidi.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'gds32.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'libeay32.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'libmhash.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'libmysql.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'msql.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'libmysqli.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'ntwdblib.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'php5activescript.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'php5isapi.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'php5nsapi.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'ssleay32.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'yaz.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'libmcrypt.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
phpDllCopy := 'php5ts.dll';
|
||||||
|
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
||||||
|
|
||||||
//----------------------------------------------
|
// Define pages
|
||||||
// copie des dll de php vers apache
|
|
||||||
//----------------------------------------------
|
|
||||||
|
|
||||||
phpDllCopy := 'fdftk.dll';
|
Page := CreateInputQueryPage(wpInstalling,
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'fribidi.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'gds32.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'libeay32.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'libmhash.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'libmysql.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'msql.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'libmysqli.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'ntwdblib.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'php5activescript.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'php5isapi.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'php5nsapi.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'ssleay32.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'yaz.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'libmcrypt.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
phpDllCopy := 'php5ts.dll';
|
|
||||||
filecopy (pathWithSlashes+'/bin/php/php'+phpVersion+'/'+phpDllCopy, pathWithSlashes+'/bin/apache/apache'+apacheVersion+'/bin/'+phpDllCopy, False);
|
|
||||||
|
|
||||||
// Define pages
|
|
||||||
|
|
||||||
Page := CreateInputQueryPage(wpInstalling,
|
|
||||||
'Technical parameters', '',
|
'Technical parameters', '',
|
||||||
'Please specify some technical parameters. If you don t understand or ' #13 'are not sure, just leave the default values.');
|
'Please specify some technical parameters. If you don t understand or ' #13 'are not sure, just leave the default values.');
|
||||||
|
|
||||||
Page.Add('SMTP server (your own or ISP SMTP server) :', False);
|
Page.Add('SMTP server (your own or ISP SMTP server) :', False);
|
||||||
Page.Add('Apache port:', False);
|
Page.Add('Apache port:', False);
|
||||||
Page.Add('Mysql port:', False);
|
Page.Add('Mysql port:', False);
|
||||||
Page.Add('Mysql and Dolibarr root password:', False);
|
Page.Add('Mysql and Dolibarr root password:', False);
|
||||||
|
|
||||||
// Valeurs par defaut
|
// Valeurs par defaut
|
||||||
Page.Values[0] := smtpServer;
|
Page.Values[0] := smtpServer;
|
||||||
Page.Values[1] := apachePort;
|
Page.Values[1] := apachePort;
|
||||||
Page.Values[2] := mysqlPort;
|
Page.Values[2] := mysqlPort;
|
||||||
Page.Values[3] := newPassword;
|
Page.Values[3] := newPassword;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -665,6 +647,7 @@ Filename: "{app}\rundoliwamp.bat"; Description: "Launch Dolibarr now"; Flags: sh
|
|||||||
|
|
||||||
[UninstallDelete]
|
[UninstallDelete]
|
||||||
Type: files; Name: "{app}\*.*"
|
Type: files; Name: "{app}\*.*"
|
||||||
|
Type: files; Name: "{app}\bin\mysql\mysq5.0.45\*.*"
|
||||||
Type: filesandordirs; Name: "{app}\alias"
|
Type: filesandordirs; Name: "{app}\alias"
|
||||||
Type: filesandordirs; Name: "{app}\apps"
|
Type: filesandordirs; Name: "{app}\apps"
|
||||||
Type: filesandordirs; Name: "{app}\bin\apache"
|
Type: filesandordirs; Name: "{app}\bin\apache"
|
||||||
|
|||||||
@ -5,6 +5,9 @@
|
|||||||
// et Romain Bourdon <romain@anaska.com>
|
// et Romain Bourdon <romain@anaska.com>
|
||||||
//
|
//
|
||||||
// icônes par Mark James <http://www.famfamfam.com/lab/icons/silk/>
|
// icônes par Mark James <http://www.famfamfam.com/lab/icons/silk/>
|
||||||
|
//
|
||||||
|
// Modified from WampServer project by Laurent Destailleur (NLTechno)
|
||||||
|
// for DoliWamp project.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user