Hola compañeros tengo un problema con esta parte de mi código ya que requiero obtener la ruta de de instalacion de un programa y guardarlo en un siring

Ejemplo :string a= windows/program files/.../ lol.exe

Busque por todos lados y no encontré nada satisfactorio excepto este código en delfi
procedure TForm1.Button1Click(Sender: TObject);
var
MyList: TStringList;
MyRegistry: TRegistry;
i: Integer;
Str: string;
begin
MyRegistry:=TRegistry.Create;
MyList:=TStringList.Create;
with MyRegistry do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey(
'Software\Microsoft\Windows\CurrentVersion\Uninstall',
False)=True then GetKeyNames(MyList);
CloseKey;

for i:=0 to MyList.Count-1 do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey(
'Software\Microsoft\Windows\CurrentVersion\Uninstall\'+
MyList[i],
False);
Str:=ReadString('DisplayName');
if Str<>'' then
Memo1.Lines.Add(ReadString('DisplayName')+' - '+ReadString('InstallLocation));
CloseKey;
end;
end;
end;

Si fueran tan amables para orientarme en este predicamento.
Gracias de antemano