Enhance DoliWamp installer.

This commit is contained in:
Laurent Destailleur 2009-08-28 16:06:29 +00:00
parent 0b463f6be3
commit 7795a4dd53

View File

@ -194,6 +194,27 @@ begin
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','smtpServer', value) then
begin
if value <> '' then smtpServer:=value;
end
else
begin
if RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Internet Account Manager\Accounts\00000001','SMTP Server', value) then
begin
if value <> '' then smtpServer:=value;
end
else
begin
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'PMail\ServiceInfo\Mail_Account_1','SvcSMTPHost', value) then
begin
if value <> '' then smtpServer:=value;
end
else
begin
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\MSCRM','SMTPServer', value) then
begin
if value <> '' then smtpServer:=value;
end
end
end
end;
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','apachePort', value) then