Как установить установленный Free Pascal на компьютер под управлением Windows?

Question

Я хочу обнаружить установленный бесплатный Pascal (о версии, установить каталог ...) на моем компьютере с Windows. С помощью C#, как найти информацию о FPC в реестре Windows?

Answer 1

Free Pascal является открытым исходным кодом, то innoscript файл для программы установки available

Из этого вы можете видеть, что есть две группы ключей реестра:

1. Расширения, зарегистрированные на текстовую IDE, если установлен
2. каталог добавляется в PATH

И в отличаясь способами, в зависимости от того, если установка побегать s admin или нет, в соответствии с результатом функций IsHKLM (Not) Записываемый

Версии, поставляемые с Lazarus, установлены другим установщиком, и, следовательно, другой скрипт.

И тогда есть люди, которые строят вручную. FPC не нуждается в какой-либо конфигурации системы, поэтому, если система упаковки (setup, msi и т. Д.) Этого не делает, единственное, что нужно сделать, это либо поиск на диске для fpc.exe, либо, вероятно, такие места, как c: \ fpc \ bin \ i386-win32 и 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; 
     } 

    } 
}