|
1 | 1 | const |
| 2 | + TortoiseGitInstallKey='SOFTWARE\TortoiseGit'; |
2 | 3 | TortoiseSVNInstallKey='SOFTWARE\TortoiseSVN'; |
3 | 4 | TortoiseCVSUninstallKey='SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TortoiseCVS_is1'; |
4 | 5 | PuTTYUninstallKey='SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\PuTTY_is1'; |
5 | 6 | PuTTYPrivateKeyAssoc='PuTTYPrivateKey\shell\open\command'; |
6 | 7 |
|
7 | 8 | // Tries to detect the path to a PuTTY installation / an application that comes |
8 | | -// with an improved version of Plink. TortoisePlink from TortoiseSVN features a |
| 9 | +// with an improved version of Plink. TortoisePlink from TortoiseGit/SVN features a |
9 | 10 | // GUI dialog to accept new host keys, for example. |
10 | 11 | function GetPuTTYLocation:string; |
11 | 12 | begin |
12 | 13 | // Prefer TortoisePlink over vanilla Plink for its GUI dialog to accept host keys. |
13 | | - if (IsWin64 and RegQueryStringValue(HKEY_LOCAL_MACHINE_64,TortoiseSVNInstallKey,'Directory',Result)) or |
14 | | - RegQueryStringValue(HKEY_LOCAL_MACHINE_32,TortoiseSVNInstallKey,'Directory',Result) then begin |
15 | | - // C:\Program Files\TortoiseSVN\ |
| 14 | + if (IsWin64 and RegQueryStringValue(HKEY_LOCAL_MACHINE_64,TortoiseGitInstallKey,'Directory',Result)) or |
| 15 | + RegQueryStringValue(HKEY_LOCAL_MACHINE_32,TortoiseGitInstallKey,'Directory',Result) then begin |
| 16 | + // C:\Program Files\TortoiseGit\ |
16 | 17 | Result:=Result+'bin\'; |
17 | | - // C:\Program Files\TortoiseSVN\bin\ |
| 18 | + // C:\Program Files\TortoiseGit\bin\ |
| 19 | + end else if (IsWin64 and RegQueryStringValue(HKEY_LOCAL_MACHINE_64,TortoiseSVNInstallKey,'Directory',Result)) or |
| 20 | + RegQueryStringValue(HKEY_LOCAL_MACHINE_32,TortoiseSVNInstallKey,'Directory',Result) then begin |
| 21 | + // C:\Program Files\TortoiseSVN\ |
| 22 | + Result:=Result+'bin\'; |
| 23 | + // C:\Program Files\TortoiseSVN\bin\ |
18 | 24 | end else begin |
19 | 25 | if not (IsWin64 and RegQueryStringValue(HKEY_LOCAL_MACHINE_64,TortoiseCVSUninstallKey,'InstallLocation',Result)) then begin |
20 | 26 | RegQueryStringValue(HKEY_LOCAL_MACHINE_32,TortoiseCVSUninstallKey,'InstallLocation',Result); |
|
0 commit comments