SHOW:
|
|
- or go back to the newest paste.
| 1 | function GetDefaultDir(def: string): string; | |
| 2 | var | |
| 3 | sTemp: string; | |
| 4 | begin | |
| 5 | #if CommonTest == true | |
| 6 | - | if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1', 'InstallLocation', sTemp) then
|
| 6 | + | if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C814CT}_is1', 'InstallLocation', sTemp) then
|
| 7 | - | if not RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812CT}_is1', 'InstallLocation', sTemp) then
|
| 7 | + | if not RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C814CT}_is1', 'InstallLocation', sTemp) then
|
| 8 | #else | |
| 9 | - | if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', sTemp) then
|
| 9 | + | if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C814RU}_is1', 'InstallLocation', sTemp) then
|
| 10 | - | if not RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', sTemp) then
|
| 10 | + | if not RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C81RU}_is1', 'InstallLocation', sTemp) then
|
| 11 | - | if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812}_is1', 'InstallLocation', sTemp) then
|
| 11 | + | if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C814}_is1', 'InstallLocation', sTemp) then
|
| 12 | - | if not RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812}_is1', 'InstallLocation', sTemp) then
|
| 12 | + | if not RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C814}_is1', 'InstallLocation', sTemp) then
|
| 13 | #endif | |
| 14 | sTemp := 'C:\Games\World_of_Tanks'; | |
| 15 | Result := sTemp; | |
| 16 | end; |
