Object.Finalize Object.Finalize Object.Finalize Object.Finalize Method

Définition

Autorise un objet à tenter de libérer des ressources et à exécuter d'autres opérations de nettoyage avant qu'il ne soit récupéré par une opération garbage collection.Allows an object to try to free resources and perform other cleanup operations before it is reclaimed by garbage collection.

!Object ()
~Object ();
abstract member Finalize : unit -> unit
override this.Finalize : unit -> unit
Finalize ()

Exemples

L’exemple suivant vérifie que la Finalize méthode est appelée lorsqu’un objet qui Finalize Substitue est détruit.The following example verifies that the Finalize method is called when an object that overrides Finalize is destroyed. Notez que, dans une application de production, Finalize la méthode est substituée pour libérer les ressources non managées détenues par l’objet.Note that, in a production application, the Finalize method would be overridden to release unmanaged resources held by the object. Notez également que l' C# exemple fournit un destructeur au lieu de substituer la Finalize méthode.Also note that the C# example provides a destructor instead of overriding the Finalize method.

using System;
using System.Diagnostics;

public class ExampleClass
{
   Stopwatch sw;
   
   public ExampleClass()
   {
      sw = Stopwatch.StartNew();
      Console.WriteLine("Instantiated object");
   } 

   public void ShowDuration()
   {
      Console.WriteLine("This instance of {0} has been in existence for {1}",
                        this, sw.Elapsed);
   }
   
   ~ExampleClass()
   {
      Console.WriteLine("Finalizing object");
      sw.Stop();
      Console.WriteLine("This instance of {0} has been in existence for {1}",
                        this, sw.Elapsed);
   }
}

public class Demo
{
   public static void Main()
   {
      ExampleClass ex = new ExampleClass();
      ex.ShowDuration();
   }
}
// The example displays output like the following:
//    Instantiated object
//    This instance of ExampleClass has been in existence for 00:00:00.0011060
//    Finalizing object
//    This instance of ExampleClass has been in existence for 00:00:00.0036294
Imports System.Diagnostics

Public Class ExampleClass
   Dim sw As StopWatch
   
   Public Sub New()
      sw = Stopwatch.StartNew()
      Console.WriteLine("Instantiated object")
   End Sub 

   Public Sub ShowDuration()
      Console.WriteLine("This instance of {0} has been in existence for {1}",
                        Me, sw.Elapsed)
   End Sub
   
   Protected Overrides Sub Finalize()
      Console.WriteLine("Finalizing object")
      sw.Stop()
      Console.WriteLine("This instance of {0} has been in existence for {1}",
                        Me, sw.Elapsed)
   End Sub
End Class

Module Demo
   Public Sub Main()
      Dim ex As New ExampleClass()
      ex.ShowDuration()
   End Sub
End Module
' The example displays output like the following:
'    Instantiated object
'    This instance of ExampleClass has been in existence for 00:00:00.0011060
'    Finalizing object
'    This instance of ExampleClass has been in existence for 00:00:00.0036294

Pour obtenir un exemple supplémentaire qui remplace la Finalize méthode, consultez la GC.SuppressFinalize méthode.For an additional example that overrides the Finalize method, see the GC.SuppressFinalize method.

Remarques

La Finalize méthode est utilisée pour effectuer des opérations de nettoyage sur les ressources non managées détenues par l’objet actuel avant la destruction de l’objet.The Finalize method is used to perform cleanup operations on unmanaged resources held by the current object before the object is destroyed. La méthode est protégée et est donc accessible uniquement par le biais de cette classe ou par le biais d’une classe dérivée.The method is protected and therefore is accessible only through this class or through a derived class.

Dans cette section :In this section:

Fonctionnement de la finalisationHow finalization works

La Object classe ne fournit aucune implémentation pour Finalize la méthode, et le garbage collector ne marque Object pas les types dérivés de pour la finalisation, Finalize sauf s’ils substituent la méthode.The Object class provides no implementation for the Finalize method, and the garbage collector does not mark types derived from Object for finalization unless they override the Finalize method.

Si un type remplace la Finalize méthode, le garbage collector ajoute une entrée pour chaque instance du type à une structure interne appelée file d’attente de finalisation.If a type does override the Finalize method, the garbage collector adds an entry for each instance of the type to an internal structure called the finalization queue. La file d’attente de finalisation contient des entrées pour tous les objets du tas managé dont le code de finalisation doit s’exécuter avant que le garbage collector puisse récupérer leur mémoire.The finalization queue contains entries for all the objects in the managed heap whose finalization code must run before the garbage collector can reclaim their memory. Le garbage collector appelle ensuite automatiquement Finalize la méthode dans les conditions suivantes :The garbage collector then calls the Finalize method automatically under the following conditions:

  • Une fois que le garbage collector a découvert qu’un objet est inaccessible, à moins que l’objet ne soit exempté de la finalisation par GC.SuppressFinalize un appel à la méthode.After the garbage collector has discovered that an object is inaccessible, unless the object has been exempted from finalization by a call to the GC.SuppressFinalize method.

  • Sur .NET Framework uniquement, pendant l’arrêt d’un domaine d’application, à moins que l’objet ne soit exempté de la finalisation.On .NET Framework only, during shutdown of an application domain, unless the object is exempt from finalization. Pendant l’arrêt, même les objets qui sont toujours accessibles sont finalisés.During shutdown, even objects that are still accessible are finalized.

Finalizeest appelé automatiquement une seule fois sur une instance donnée, à moins que l’objet ne soit réinscrit à l’aide GC.ReRegisterForFinalize d’un GC.SuppressFinalize mécanisme tel que et que la méthode n’ait pas été appelée par la suite.Finalize is automatically called only once on a given instance, unless the object is re-registered by using a mechanism such as GC.ReRegisterForFinalize and the GC.SuppressFinalize method has not been subsequently called.

Finalizeles opérations présentent les limitations suivantes :Finalize operations have the following limitations:

  • L’heure exacte à laquelle le finaliseur s’exécute n’est pas définie.The exact time when the finalizer executes is undefined. Pour garantir la libération de ressources déterministes pour les instances de votre classe Close , implémentez une IDisposable.Dispose méthode ou fournissez une implémentation.To ensure deterministic release of resources for instances of your class, implement a Close method or provide a IDisposable.Dispose implementation.

  • Il n’est pas garanti que les finaliseurs de deux objets s’exécutent dans un ordre spécifique, même si un objet fait référence à l’autre.The finalizers of two objects are not guaranteed to run in any specific order, even if one object refers to the other. Autrement dit, si l’objet a a une référence à l’objet B et que les deux ont des finaliseurs, l’objet B peut avoir déjà été finalisé quand le finaliseur de l’objet A démarre.That is, if Object A has a reference to Object B and both have finalizers, Object B might have already been finalized when the finalizer of Object A starts.

  • Le thread sur lequel le finaliseur s’exécute n’est pas spécifié.The thread on which the finalizer runs is unspecified.

La Finalize méthode peut ne pas s’exécuter jusqu’à la fin ou ne pas s’exécuter du tout dans les circonstances exceptionnelles suivantes :The Finalize method might not run to completion or might not run at all under the following exceptional circumstances:

  • Si un autre finaliseur se bloque indéfiniment (passe dans une boucle infinie, tente d’obtenir un verrou qu’il ne peut jamais obtenir, etc.).If another finalizer blocks indefinitely (goes into an infinite loop, tries to obtain a lock it can never obtain, and so on). Étant donné que le Runtime essaie d’exécuter des finaliseurs vers l’achèvement, d’autres finaliseurs peuvent ne pas être appelés si un finaliseur bloque indéfiniment.Because the runtime tries to run finalizers to completion, other finalizers might not be called if a finalizer blocks indefinitely.

  • Si le processus se termine sans donner au runtime la possibilité de le nettoyer.If the process terminates without giving the runtime a chance to clean up. Dans ce cas, la première notification de l’arrêt du processus du runtime est une notification DLL_PROCESS_DETACH.In this case, the runtime's first notification of process termination is a DLL_PROCESS_DETACH notification.

Le runtime continue de finaliser les objets pendant l’arrêt uniquement lorsque le nombre d’objets finalisables continue à diminuer.The runtime continues to finalize objects during shutdown only while the number of finalizable objects continues to decrease.

Si Finalize ou une substitution de Finalize lève une exception et que le runtime n’est pas hébergé par une application qui remplace la stratégie par défaut, le runtime arrête le processus et aucun bloc actif tryou / finally les finaliseurs sont exécutés.If Finalize or an override of Finalize throws an exception, and the runtime is not hosted by an application that overrides the default policy, the runtime terminates the process and no active try/finally blocks or finalizers are executed. Ce comportement garantit l’intégrité des processus si le finaliseur ne peut pas libérer ou détruire des ressources.This behavior ensures process integrity if the finalizer cannot free or destroy resources.

Substitution de la méthode FinalizeOverriding the Finalize method

Vous devez substituer Finalize pour une classe qui utilise des ressources non managées, telles que des handles de fichiers ou des connexions de base de données qui doivent être libérées lorsque l’objet managé qui les utilise est ignoré pendant la garbage collection.You should override Finalize for a class that uses unmanaged resources, such as file handles or database connections that must be released when the managed object that uses them is discarded during garbage collection. Vous ne devez pas Finalize implémenter une méthode pour les objets managés, car le garbage collector libère automatiquement les ressources managées.You shouldn't implement a Finalize method for managed objects because the garbage collector releases managed resources automatically.

Important

Si un SafeHandle objet qui encapsule votre ressource non managée est disponible, l’alternative recommandée consiste à implémenter le modèle de suppression avec un handle sécurisé et à Finalizene pas substituer.If a SafeHandle object is available that wraps your unmanaged resource, the recommended alternative is to implement the dispose pattern with a safe handle and not override Finalize. Pour plus d’informations, consultez la section alternative de SafeHandle .For more information, see The SafeHandle alternative section.

La Object.Finalize méthode n’a aucun effet par défaut, mais vous devez Finalize substituer uniquement si nécessaire, et uniquement pour libérer des ressources non managées.The Object.Finalize method does nothing by default, but you should override Finalize only if necessary, and only to release unmanaged resources. La récupération de la mémoire a tendance à prendre plus de temps si une opération de finalisation est exécutée, car elle nécessite au moins deux garbage collection.Reclaiming memory tends to take much longer if a finalization operation runs, because it requires at least two garbage collections. En outre, vous devez substituer la Finalize méthode uniquement pour les types référence.In addition, you should override the Finalize method for reference types only. Le common language runtime finalise uniquement les types référence.The common language runtime only finalizes reference types. Elle ignore les finaliseurs sur les types valeur.It ignores finalizers on value types.

La portée de la Object.Finalize méthode est protected.The scope of the Object.Finalize method is protected. Vous devez conserver cette portée limitée lorsque vous substituez la méthode dans votre classe.You should maintain this limited scope when you override the method in your class. En gardant une Finalize méthode protégée, vous empêchez les utilisateurs de votre application d’appeler Finalize directement la méthode d’un objet.By keeping a Finalize method protected, you prevent users of your application from calling an object's Finalize method directly.

Chaque implémentation de Finalize dans un type dérivé doit appeler l’implémentation de son type de Finalizebase de.Every implementation of Finalize in a derived type must call its base type's implementation of Finalize. Il s’agit du seul cas dans lequel le code d’application est Finalizeautorisé à appeler.This is the only case in which application code is allowed to call Finalize. La méthode d' Finalize un objet ne doit pas appeler une méthode sur les objets autres que celui de sa classe de base.An object's Finalize method shouldn't call a method on any objects other than that of its base class. Cela est dû au fait que les autres objets appelés peuvent être collectés en même temps que l’objet appelant, comme dans le cas d’un arrêt de common language runtime.This is because the other objects being called could be collected at the same time as the calling object, such as in the case of a common language runtime shutdown.

Notes

Le C# compilateur ne vous permet pas de substituer la Finalize méthode.The C# compiler does not allow you to override the Finalize method. Au lieu de cela, vous fournissez un finaliseur en implémentant un destructeur pour votre classe.Instead, you provide a finalizer by implementing a destructor for your class. Un C# destructeur appelle automatiquement le destructeur de sa classe de base.A C# destructor automatically calls the destructor of its base class.

Visual C++ fournit également sa propre syntaxe pour l’implémentation Finalize de la méthode.Visual C++ also provides its own syntax for implementing the Finalize method. Pour plus d’informations, consultez la section « destructeurs et finaliseurs » de la rubrique How to : Définir et utiliser des classes et des structsC++(/CLI).For more information, see the "Destructors and finalizers" section of How to: Define and Consume Classes and Structs (C++/CLI).

Étant donné que garbage collection n’est pas déterministe, vous ne connaissez pas précisément le moment où le garbage collector effectue la finalisation.Because garbage collection is non-deterministic, you do not know precisely when the garbage collector performs finalization. Pour libérer immédiatement des ressources, vous pouvez également choisir d’implémenter le modèle de IDisposable suppression et l’interface.To release resources immediately, you can also choose to implement the dispose pattern and the IDisposable interface. L' IDisposable.Dispose implémentation peut être appelée par les consommateurs de votre classe pour libérer des ressources non managées, et vous pouvez Finalize utiliser la méthode pour libérer des ressources non managées dans le Dispose cas où la méthode n’est pas appelée.The IDisposable.Dispose implementation can be called by consumers of your class to free unmanaged resources, and you can use the Finalize method to free unmanaged resources in the event that the Dispose method is not called.

Finalizepeut prendre quasiment n’importe quelle action, y compris la réactivation d’un objet (autrement dit, rendre l’objet accessible à nouveau) après son nettoyage pendant la garbage collection.Finalize can take almost any action, including resurrecting an object (that is, making the object accessible again) after it has been cleaned up during garbage collection. Toutefois, l’objet ne peut être réactivé qu’une seule fois ; Finalize ne peut pas être appelé sur des objets restants pendant garbage collection.However, the object can only be resurrected once; Finalize cannot be called on resurrected objects during garbage collection.

Alternative SafeHandleThe SafeHandle alternative

La création de finaliseurs fiables est souvent difficile, car vous ne pouvez pas faire d’hypothèses sur l’état de votre application, et parce que les OutOfMemoryException exceptions StackOverflowException système non gérées telles que et terminent le finaliseur.Creating reliable finalizers is often difficult, because you cannot make assumptions about the state of your application, and because unhandled system exceptions such as OutOfMemoryException and StackOverflowException terminate the finalizer. Au lieu d’implémenter un finaliseur pour votre classe pour libérer des ressources non managées, vous pouvez utiliser un objet dérivé de System.Runtime.InteropServices.SafeHandle la classe pour encapsuler vos ressources non managées, puis implémenter le modèle de suppression sans finaliseur.Instead of implementing a finalizer for your class to release unmanaged resources, you can use an object that is derived from the System.Runtime.InteropServices.SafeHandle class to wrap your unmanaged resources, and then implement the dispose pattern without a finalizer. L' .NET Framework fournit les classes suivantes dans l' Microsoft.Win32 espace de noms qui sont System.Runtime.InteropServices.SafeHandledérivées de :The .NET Framework provides the following classes in the Microsoft.Win32 namespace that are derived from System.Runtime.InteropServices.SafeHandle:

L’exemple suivant utilise le modèle de suppression avec des Handles sécurisés au Finalize lieu de substituer la méthode.The following example uses the dispose pattern with safe handles instead of overriding the Finalize method. Il définit une FileAssociation classe qui encapsule les informations de Registre relatives à l’application qui gère les fichiers avec une extension de fichier particulière.It defines a FileAssociation class that wraps registry information about the application that handles files with a particular file extension. Les deux handles de Registre out retournés en tant que paramètres par les SafeRegistryHandle appels de fonction Windows RegOpenKeyEx sont passés au constructeur.The two registry handles returned as out parameters by Windows RegOpenKeyEx function calls are passed to the SafeRegistryHandle constructor. La méthode protégée Dispose du type appelle ensuite la SafeRegistryHandle.Dispose méthode pour libérer ces deux handles.The type's protected Dispose method then calls the SafeRegistryHandle.Dispose method to free these two handles.

using Microsoft.Win32.SafeHandles;
using System;
using System.ComponentModel;
using System.IO;
using System.Runtime.InteropServices;

public class FileAssociationInfo : IDisposable
{
   // Private variables.
   private String ext;
   private String openCmd;
   private String args;
   private SafeRegistryHandle hExtHandle, hAppIdHandle;

   // Windows API calls.
   [DllImport("advapi32.dll", CharSet= CharSet.Auto, SetLastError=true)]
   private static extern int RegOpenKeyEx(IntPtr hKey, 
                  String lpSubKey, int ulOptions, int samDesired,
                  out IntPtr phkResult);
   [DllImport("advapi32.dll", CharSet= CharSet.Unicode, EntryPoint = "RegQueryValueExW",
              SetLastError=true)]
   private static extern int RegQueryValueEx(IntPtr hKey,
                  string lpValueName, int lpReserved, out uint lpType, 
                  string lpData, ref uint lpcbData);   
   [DllImport("advapi32.dll", SetLastError = true)]
   private static extern int RegSetValueEx(IntPtr hKey, [MarshalAs(UnmanagedType.LPStr)] string lpValueName,
                  int Reserved, uint dwType, [MarshalAs(UnmanagedType.LPStr)] string lpData,
                  int cpData);
   [DllImport("advapi32.dll", SetLastError=true)]
   private static extern int RegCloseKey(UIntPtr hKey);

   // Windows API constants.
   private const int HKEY_CLASSES_ROOT = unchecked((int) 0x80000000);
   private const int ERROR_SUCCESS = 0;

    private const int KEY_QUERY_VALUE = 1;
    private const int KEY_SET_VALUE = 0x2;
   
   private const uint REG_SZ = 1;
   
   private const int MAX_PATH = 260;
   
   public FileAssociationInfo(String fileExtension)
   {
      int retVal = 0;
      uint lpType = 0;
                  
      if (!fileExtension.StartsWith("."))
             fileExtension = "." + fileExtension;
      ext = fileExtension;
       
      IntPtr hExtension = IntPtr.Zero;
      // Get the file extension value.
      retVal = RegOpenKeyEx(new IntPtr(HKEY_CLASSES_ROOT), fileExtension, 0, KEY_QUERY_VALUE, out hExtension);
      if (retVal != ERROR_SUCCESS) 
         throw new Win32Exception(retVal);
      // Instantiate the first SafeRegistryHandle.
      hExtHandle = new SafeRegistryHandle(hExtension, true);
      
      string appId = new string(' ', MAX_PATH);
      uint appIdLength = (uint) appId.Length;
      retVal = RegQueryValueEx(hExtHandle.DangerousGetHandle(), String.Empty, 0, out lpType, appId, ref appIdLength);
      if (retVal != ERROR_SUCCESS)
         throw new Win32Exception(retVal);
      // We no longer need the hExtension handle.
      hExtHandle.Dispose();

      // Determine the number of characters without the terminating null.
      appId = appId.Substring(0, (int) appIdLength / 2 - 1) + @"\shell\open\Command";

      // Open the application identifier key.
      string exeName = new string(' ', MAX_PATH);
      uint exeNameLength = (uint) exeName.Length;
      IntPtr hAppId;
      retVal = RegOpenKeyEx(new IntPtr(HKEY_CLASSES_ROOT), appId, 0, KEY_QUERY_VALUE | KEY_SET_VALUE,
                            out hAppId);
       if (retVal != ERROR_SUCCESS) 
         throw new Win32Exception(retVal);

      // Instantiate the second SafeRegistryHandle.
      hAppIdHandle = new SafeRegistryHandle(hAppId, true);

      // Get the executable name for this file type.
      string exePath = new string(' ', MAX_PATH);
      uint exePathLength = (uint) exePath.Length;
      retVal = RegQueryValueEx(hAppIdHandle.DangerousGetHandle(), String.Empty, 0, out lpType, exePath, ref exePathLength);
      if (retVal != ERROR_SUCCESS)
         throw new Win32Exception(retVal);
           
      // Determine the number of characters without the terminating null.
      exePath = exePath.Substring(0, (int) exePathLength / 2 - 1);
      // Remove any environment strings.
      exePath = Environment.ExpandEnvironmentVariables(exePath);

      int position = exePath.IndexOf('%');
      if (position >= 0) {
         args = exePath.Substring(position);
         // Remove command line parameters ('%0', etc.).
         exePath = exePath.Substring(0, position).Trim();
      }
      openCmd = exePath;   
   }

   public String Extension
   { get { return ext; } }
   
   public String Open
   { get { return openCmd; } 
     set {
        if (hAppIdHandle.IsInvalid | hAppIdHandle.IsClosed)
           throw new InvalidOperationException("Cannot write to registry key."); 
        if (! File.Exists(value)) {
           string message = String.Format("'{0}' does not exist", value);
           throw new FileNotFoundException(message); 
        }
        string cmd = value + " %1";
        int retVal = RegSetValueEx(hAppIdHandle.DangerousGetHandle(), String.Empty, 0, 
                                   REG_SZ, value, value.Length + 1);
        if (retVal != ERROR_SUCCESS)
           throw new Win32Exception(retVal);                          
     } }
   
   public void Dispose() 
   {
      Dispose(true);
      GC.SuppressFinalize(this);
   }   
   
   protected void Dispose(bool disposing)
   {
      // Ordinarily, we release unmanaged resources here; 
      // but all are wrapped by safe handles.
      
      // Release disposable objects.
      if (disposing) {
         if (hExtHandle != null) hExtHandle.Dispose();
         if (hAppIdHandle != null) hAppIdHandle.Dispose();
      }
   }
}
Imports Microsoft.Win32.SafeHandles
Imports System.ComponentModel
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Text

Public Class FileAssociationInfo : Implements IDisposable
   ' Private variables.
   Private ext As String
   Private openCmd As String
   Private args As String
   Private hExtHandle, hAppIdHandle As SafeRegistryHandle

   ' Windows API calls.
   Private Declare Unicode Function RegOpenKeyEx Lib"advapi32.dll" _
                   Alias "RegOpenKeyExW" (hKey As IntPtr, lpSubKey As String, _
                   ulOptions As Integer, samDesired As Integer, _
                   ByRef phkResult As IntPtr) As Integer
   Private Declare Unicode Function RegQueryValueEx Lib "advapi32.dll" _
                   Alias "RegQueryValueExW" (hKey As IntPtr, _
                   lpValueName As String, lpReserved As Integer, _
                   ByRef lpType As UInteger, lpData As String, _
                   ByRef lpcbData As UInteger) As Integer   
   Private Declare Function RegSetValueEx Lib "advapi32.dll" _
                  (hKey As IntPtr, _
                  <MarshalAs(UnmanagedType.LPStr)> lpValueName As String, _
                  reserved As Integer, dwType As UInteger, _
                  <MarshalAs(UnmanagedType.LPStr)> lpData As String, _
                  cpData As Integer) As Integer 
   Private Declare Function RegCloseKey Lib "advapi32.dll" _
                  (hKey As IntPtr) As Integer

   ' Windows API constants.
   Private Const HKEY_CLASSES_ROOT As Integer = &h80000000
   Private Const ERROR_SUCCESS As Integer = 0

   Private Const KEY_QUERY_VALUE As Integer = 1
   Private Const KEY_SET_VALUE As Integer = &h2
   
   Private REG_SZ As UInteger = 1
   
   Private Const MAX_PATH As Integer  = 260
   
   Public Sub New(fileExtension As String)
      Dim retVal As Integer = 0
      Dim lpType As UInteger = 0
                  
      If Not fileExtension.StartsWith(".") Then 
         fileExtension = "." + fileExtension
      End If   
      ext = fileExtension
       
      Dim hExtension As IntPtr = IntPtr.Zero
      ' Get the file extension value.
      retVal = RegOpenKeyEx(New IntPtr(HKEY_CLASSES_ROOT), fileExtension, 0, 
                            KEY_QUERY_VALUE, hExtension)
      if retVal <> ERROR_SUCCESS Then 
         Throw New Win32Exception(retVal)
      End If  
      ' Instantiate the first SafeRegistryHandle.
      hExtHandle = New SafeRegistryHandle(hExtension, True)
      
      Dim appId As New String(" "c, MAX_PATH)
      Dim appIdLength As UInteger = CUInt(appId.Length)
      retVal = RegQueryValueEx(hExtHandle.DangerousGetHandle(), String.Empty, _
                               0, lpType, appId, appIdLength)
      if retVal <> ERROR_SUCCESS Then
         Throw New Win32Exception(retVal)
      End If   
      ' We no longer need the hExtension handle.
      hExtHandle.Dispose()

      ' Determine the number of characters without the terminating null.
      appId = appId.Substring(0, CInt(appIdLength) \ 2 - 1) + "\shell\open\Command"

      ' Open the application identifier key.
      Dim exeName As New string(" "c, MAX_PATH)
      Dim exeNameLength As UInteger = CUInt(exeName.Length)
      Dim hAppId As IntPtr
      retVal = RegOpenKeyEx(New IntPtr(HKEY_CLASSES_ROOT), appId, 0, 
                            KEY_QUERY_VALUE Or KEY_SET_VALUE, hAppId)
      If retVal <> ERROR_SUCCESS Then 
         Throw New Win32Exception(retVal)
      End If   

      ' Instantiate the second SafeRegistryHandle.
      hAppIdHandle = New SafeRegistryHandle(hAppId, True)

      ' Get the executable name for this file type.
      Dim exePath As New string(" "c, MAX_PATH)
      Dim exePathLength As UInteger = CUInt(exePath.Length)
      retVal = RegQueryValueEx(hAppIdHandle.DangerousGetHandle(), _
                               String.Empty, 0, lpType, exePath, exePathLength)
      If retVal <> ERROR_SUCCESS Then
         Throw New Win32Exception(retVal)
      End If     
      ' Determine the number of characters without the terminating null.
      exePath = exePath.Substring(0, CInt(exePathLength) \ 2 - 1)
  
      exePath = Environment.ExpandEnvironmentVariables(exePath)
      Dim position As Integer = exePath.IndexOf("%"c)
      If position >= 0 Then
         args = exePath.Substring(position)
         ' Remove command line parameters ('%0', etc.).
         exePath = exePath.Substring(0, position).Trim()
      End If   
      openCmd = exePath
   End Sub

   Public ReadOnly Property Extension As String
      Get
         Return ext
      End Get
   End Property
   
   Public Property Open As String
      Get
         Return openCmd
      End Get    
      Set 
        If hAppIdHandle.IsInvalid Or hAppIdHandle.IsClosed Then
           Throw New InvalidOperationException("Cannot write to registry key.")
        End If    
        If Not File.Exists(value) Then
           Dim message As String = String.Format("'{0}' does not exist", value)
           Throw New FileNotFoundException(message) 
        End If
        Dim cmd As String = value + " %1"
        Dim retVal As Integer = RegSetValueEx(hAppIdHandle.DangerousGetHandle(), String.Empty, 0, 
                                              REG_SZ, value, value.Length + 1)
        If retVal <> ERROR_SUCCESS Then 
           Throw New Win32Exception(retVal)
        End If                             
      End Set
   End Property   
   
   Public Sub Dispose() _
      Implements IDisposable.Dispose 
      Dispose(true)
      GC.SuppressFinalize(Me)
   End Sub   
   
   Protected Sub Dispose(disposing As Boolean)
      ' Ordinarily, we release unmanaged resources here 
      ' but all are wrapped by safe handles.
      
      ' Release disposable objects.
      If disposing Then
         If hExtHandle IsNot Nothing Then hExtHandle.Dispose()
         If hAppIdHandle IsNot Nothing Then hAppIdHandle.Dispose()
      End If
   End Sub
End Class

S’applique à

Voir aussi