fix uninstaller logic
This commit is contained in:
parent
abf1d817cf
commit
d805d30957
|
@ -157,7 +157,7 @@ var
|
||||||
sUnInstPath: String;
|
sUnInstPath: String;
|
||||||
sUnInstallString: String;
|
sUnInstallString: String;
|
||||||
begin
|
begin
|
||||||
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\XChat-WDK_is1');
|
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\XChat-WDK (x64)_is1');
|
||||||
sUnInstallString := '';
|
sUnInstallString := '';
|
||||||
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
|
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
|
||||||
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
|
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
|
||||||
|
|
|
@ -156,7 +156,7 @@ var
|
||||||
sUnInstPath: String;
|
sUnInstPath: String;
|
||||||
sUnInstallString: String;
|
sUnInstallString: String;
|
||||||
begin
|
begin
|
||||||
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\XChat-WDK_is1');
|
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\XChat-WDK (x86)_is1');
|
||||||
sUnInstallString := '';
|
sUnInstallString := '';
|
||||||
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
|
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
|
||||||
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
|
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
|
||||||
|
|
Loading…
Reference in New Issue