program MSInfo32_Location;
 
 function Get_MSInfo : String;
 var
   Regist: TRegistry;
 begin
   Regist := TRegistry.Create;
   Regist.RootKey := HKEY_LOCAL_MACHINE;
   if Regist.OpenKeyReadOnly('Software\Microsoft\Shared Tools\MSInfo') then
   begin
     Result := Regist.ReadString('Path')
   end
   else
   begin
     Result := ''
   end;
 
   Regist.CloseKey;
   Regist.Free;
 end;
 
 begin
 
 end.