even more tabulation fix
This commit is contained in:
		
							parent
							
								
									00e7b363f8
								
							
						
					
					
						commit
						711d06b42d
					
				
					 1 changed files with 7 additions and 7 deletions
				
			
		| 
						 | 
				
			
			@ -235,14 +235,14 @@ BeveledLabel= XChat-WDK
 | 
			
		|||
/////////////////////////////////////////////////////////////////////
 | 
			
		||||
function GetUninstallString(): String;
 | 
			
		||||
var
 | 
			
		||||
  sUnInstPath: String;
 | 
			
		||||
  sUnInstallString: String;
 | 
			
		||||
	sUnInstPath: String;
 | 
			
		||||
	sUnInstallString: String;
 | 
			
		||||
begin
 | 
			
		||||
  sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\XChat-WDK_is1');
 | 
			
		||||
  sUnInstallString := '';
 | 
			
		||||
  if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
 | 
			
		||||
    RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
 | 
			
		||||
  Result := sUnInstallString;
 | 
			
		||||
	sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\XChat-WDK_is1');
 | 
			
		||||
	sUnInstallString := '';
 | 
			
		||||
	if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
 | 
			
		||||
		RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
 | 
			
		||||
	Result := sUnInstallString;
 | 
			
		||||
end;
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		
		Reference in a new issue