function GetDefaultDir(def: string): string;
var
  sTemp: string;
begin
#if CommonTest == true
  if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C814CT}_is1', 'InstallLocation', sTemp) then
  if not RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C814CT}_is1', 'InstallLocation', sTemp) then
#else
  if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C814RU}_is1', 'InstallLocation', sTemp) then
  if not RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C81RU}_is1', 'InstallLocation', sTemp) then
  if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C814}_is1', 'InstallLocation', sTemp) then
  if not RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C814}_is1', 'InstallLocation', sTemp) then
#endif
    sTemp := 'C:\Games\World_of_Tanks';
  Result := sTemp;
end;