Comment détecter Free Pascal installé sur un ordinateur Windows?

Question

Je veux détecter Free Pascal installé (à propos de la version, répertoire d'installation ...) sur mon ordinateur Windows. En utilisant C#, comment trouver des informations FPC sur le registre Windows?

Answer 1

Free Pascal est open source, le fichier InnoScript pour le programme d'installation est available

De cela, vous pouvez le voir il y a deux groupes de clés de Registre:

1. Les extensions sont enregistrés à l'IDE textmode, si elle est installée
2. le répertoire est ajouté au PATH

deux de différentes manières en fonction de si l'installation est exécuté un s admin ou non, selon le résultat des fonctions IsHKLM (Not) Writeable

Les versions fournies avec Lazarus sont installées par un installateur différent, et donc un script différent.

Et puis il y a des gens qui construisent à la main. FPC n'a pas besoin de configuration système pour fonctionner, donc si le système d'empaquetage (setup, msi, etc.) ne le fait pas, la seule chose à faire est de chercher sur le disque pour fpc.exe ou essayer des emplacements comme c: \ fpc \ bin \ i386-win32 et c: \ lazarus \ fpc \ bin \ i386-win32

Answer 2

using Microsoft.Win32; 
using System; 
using System.Collections.Generic; 
using System.Linq; 
using System.Text; 
using System.Threading.Tasks; 
using System.Threading; 
using System.Management; 

namespace ConsoleApplication7 
{ 
    class Program 
    { 
     static void Main(string[] args) 
     { 
      Console.WriteLine(IsProgramInstalled("Free Pascal")); 
      Console.ReadKey(); 
     } 

     public static bool IsProgramInstalled(string programDisplayName) 
     { 

      Console.WriteLine(string.Format("Checking install status of: {0}", programDisplayName)); 
      foreach (var item in Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall").GetSubKeyNames()) 
      { 

       object programName = Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\" + item).GetValue("DisplayName"); 

       string n = (string)programName; 
       if (n!= null && n.Contains(programDisplayName)) 
       { 
        Console.WriteLine("Install status: INSTALLED"); 
        Console.WriteLine(programName); 
        Console.WriteLine(Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\" + item).GetValue("InstallLocation")); 
        return true; 
       } 
      } 
      Console.WriteLine("Install status: NOT INSTALLED"); 
      return false; 
     } 

    } 
}