Enhance DoliWamp installer.
This commit is contained in:
parent
0b463f6be3
commit
7795a4dd53
@ -194,6 +194,27 @@ begin
|
|||||||
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','smtpServer', value) then
|
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','smtpServer', value) then
|
||||||
begin
|
begin
|
||||||
if value <> '' then smtpServer:=value;
|
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;
|
end;
|
||||||
|
|
||||||
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','apachePort', value) then
|
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\NLTechno\DoliWamp','apachePort', value) then
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user