Object.Finalize Methode

Definition

Gibt einem Objekt Gelegenheit zu dem Versuch, Ressourcen freizugeben und andere Bereinigungen durchzuführen, bevor es von der Garbage Collection freigegeben wird.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 ()

Beispiele

Im folgenden Beispiel wird überprüft, ob Finalize die-Methode aufgerufen wird, wenn ein Objekt Finalize , das überschreibt, zerstört wird.The following example verifies that the Finalize method is called when an object that overrides Finalize is destroyed. Beachten Sie, dass die Finalize -Methode in einer Produktionsanwendung außer Kraft gesetzt wird, um nicht verwaltete Ressourcen freizugeben, die vom-Objekt aufbewahrt werden.Note that, in a production application, the Finalize method would be overridden to release unmanaged resources held by the object. Beachten Sie außerdem, C# dass das Beispiel einen Dekonstruktor bereitstellt Finalize , anstatt die-Methode zu überschreiben.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

Ein weiteres Beispiel, das die Finalize -Methode überschreibt, finden Sie unter der GC.SuppressFinalize -Methode.For an additional example that overrides the Finalize method, see the GC.SuppressFinalize method.

Hinweise

Die Finalize -Methode wird verwendet, um Bereinigungs Vorgänge für nicht verwaltete Ressourcen durchzuführen, die vom aktuellen-Objekt aufbewahrt werden, bevor das-Objekt zerstört wird.The Finalize method is used to perform cleanup operations on unmanaged resources held by the current object before the object is destroyed. Die-Methode ist geschützt und kann daher nur über diese Klasse oder eine abgeleitete Klasse aufgerufen werden.The method is protected and therefore is accessible only through this class or through a derived class.

In diesem AbschnittIn this section:

Funktionsweise der FinalisierungHow finalization works

Die Object -Klasse stellt keine Implementierung für Finalize die-Methode bereit, und die Garbage Collector markiert keine von Object abgeleiteten Typen für die Finalisierung Finalize , es sei denn, Sie überschreiben die Methode.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.

Wenn ein Typ die Finalize -Methode überschreibt, fügt der Garbage Collector einen Eintrag für jede Instanz des Typs einer internen Struktur hinzu, die als Abschluss Queue bezeichnet wird.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. Die Finalisierungswarteschlange enthält Einträge für alle Objekte im verwalteten Heap, deren Finalisierungscode ausgeführt werden muss, bevor der Garbage Collector den Speicher freigeben kann.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. Der Garbage Collector Ruft die Finalize Methode dann unter den folgenden Bedingungen automatisch auf:The garbage collector then calls the Finalize method automatically under the following conditions:

  • Nachdem der Garbage Collector ermittelt hat, dass auf ein Objekt nicht mehr zugegriffen werden kann, es sei denn, das Objekt wurde von der GC.SuppressFinalize Finalisierung durch einen-aufzurufenden aufgerufen.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.

  • Nur auf .NET Framework, wenn eine Anwendungsdomäne heruntergefahren wird, es sei denn, das Objekt ist von der Finalisierung ausgenommen.On .NET Framework only, during shutdown of an application domain, unless the object is exempt from finalization. Während des herunter Fahrens werden auch Objekte, die weiterhin zugänglich sind, fertiggestellt.During shutdown, even objects that are still accessible are finalized.

Finalizewird automatisch nur einmal für eine bestimmte-Instanz aufgerufen, es sei denn, das Objekt wird mithilfe eines Mechanismus wie GC.ReRegisterForFinalize neu registriert, und die GC.SuppressFinalize -Methode wurde nachfolgend nicht aufgerufen.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.

Finalizefür Vorgänge gelten die folgenden Einschränkungen:Finalize operations have the following limitations:

  • Die genaue Zeit, zu der der Finalizer ausgeführt wird, ist nicht definiert.The exact time when the finalizer executes is undefined. Um die deterministische Freigabe von Ressourcen für Instanzen Ihrer Klasse sicherzustellen, implementieren Close Sie eine-Methode IDisposable.Dispose , oder stellen Sie eine-Implementierung bereit.To ensure deterministic release of resources for instances of your class, implement a Close method or provide a IDisposable.Dispose implementation.

  • Die Finalizer von zwei Objekten sind nicht garantiert, dass Sie in einer bestimmten Reihenfolge ausgeführt werden, auch wenn ein Objekt auf das andere Objekt verweist.The finalizers of two objects are not guaranteed to run in any specific order, even if one object refers to the other. Das heißt, wenn Objekt a einen Verweis auf Objekt b hat und beide über Finalizer verfügen, wurde Objekt B möglicherweise bereits abgeschlossen, wenn der Finalizer von Objekt A gestartet wird.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.

  • Der Thread, auf dem der Finalizer ausgeführt wird, ist nicht angegeben.The thread on which the finalizer runs is unspecified.

Die Finalize Methode kann möglicherweise nicht vollständig ausgeführt werden oder unter den folgenden außergewöhnlichen Umständen überhaupt nicht ausgeführt werden:The Finalize method might not run to completion or might not run at all under the following exceptional circumstances:

  • Wenn ein anderer Finalizer unbegrenzt blockiert wird (in eine Endlosschleife wechselt, versucht, eine Sperre zu erhalten, die er niemals abrufen kann usw.).If another finalizer blocks indefinitely (goes into an infinite loop, tries to obtain a lock it can never obtain, and so on). Da die Laufzeit versucht, Finalizer für den Abschluss auszuführen, werden möglicherweise andere Finalizer nicht aufgerufen, wenn ein Finalizer unbegrenzt blockiert wird.Because the runtime tries to run finalizers to completion, other finalizers might not be called if a finalizer blocks indefinitely.

  • , Wenn der Prozess beendet wird, ohne der Laufzeit die Möglichkeit zu geben, zu bereinigen.If the process terminates without giving the runtime a chance to clean up. In diesem Fall ist die erste Benachrichtigung des Prozesses bei der Beendigung der Laufzeit eine DLL_PROCESS_DETACH-Benachrichtigung.In this case, the runtime's first notification of process termination is a DLL_PROCESS_DETACH notification.

Die Laufzeit setzt das Beenden von Objekten während des herunter Fahrens fort, während die Anzahl der finalisierbaren Objekte weiterhin abnimmt.The runtime continues to finalize objects during shutdown only while the number of finalizable objects continues to decrease.

Wenn Finalize oder eine außer Kraft Finalize Setzung von eine Ausnahme auslöst und die Laufzeit nicht von einer Anwendung gehostet wird, die die Standard Richtlinie überschreibt, beendet die Common Language Runtime den try Prozess und keine aktiven / finally Blöcke. Finalizer werden ausgeführt.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. Durch dieses Verhalten wird die Prozess Integrität sichergestellt, wenn der Finalizer Ressourcen nicht freigeben oder zerstören kann.This behavior ensures process integrity if the finalizer cannot free or destroy resources.

Überschreiben der Finalize-MethodeOverriding the Finalize method

Sie sollten für Finalize eine Klasse außer Kraft setzen, die nicht verwaltete Ressourcen verwendet, z. b. Datei Handles oder Datenbankverbindungen, die freigegeben werden müssen, wenn das verwaltete Objekt, das Sie verwendet, während Garbage Collection verworfen wird.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. Sie sollten keine Finalize Methode für verwaltete Objekte implementieren, da die Garbage Collector verwaltete Ressourcen automatisch freigibt.You shouldn't implement a Finalize method for managed objects because the garbage collector releases managed resources automatically.

Wichtig

Wenn ein SafeHandle -Objekt verfügbar ist, das Ihre nicht verwaltete Ressource umschließt, empfiehlt es sich, das Lösch Muster mit einem sicheren Handle zu implementieren Finalizeund nicht überschreiben.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. Weitere Informationen finden Sie im Abschnitt " SafeHandle-Alternative ".For more information, see The SafeHandle alternative section.

Die Object.Finalize -Methode führt standardmäßig keine Aktion aus, Sie Finalize sollten jedoch nur bei Bedarf überschreiben und nur nicht verwaltete Ressourcen freigeben.The Object.Finalize method does nothing by default, but you should override Finalize only if necessary, and only to release unmanaged resources. Das Freigeben des Speichers dauert tendenziell viel länger, wenn ein Abschluss Vorgang ausgeführt wird, da er mindestens zwei Garbage Collections erfordert.Reclaiming memory tends to take much longer if a finalization operation runs, because it requires at least two garbage collections. Außerdem sollten Sie die Finalize -Methode nur für Verweis Typen überschreiben.In addition, you should override the Finalize method for reference types only. Der Common Language Runtime der nur Verweis Typen finalisiert.The common language runtime only finalizes reference types. Finalizer werden für Werttypen ignoriert.It ignores finalizers on value types.

Der Gültigkeitsbereich Object.Finalize der- protectedMethode ist.The scope of the Object.Finalize method is protected. Sie sollten diesen eingeschränkten Gültigkeitsbereich beibehalten, wenn Sie die Methode in der Klasse überschreiben.You should maintain this limited scope when you override the method in your class. Wenn Sie eine Finalize Methode schützen, verhindern Sie, dass Benutzer der Anwendung die- Finalize Methode eines Objekts direkt aufrufen.By keeping a Finalize method protected, you prevent users of your application from calling an object's Finalize method directly.

Jede Implementierung von Finalize in einem abgeleiteten Typ muss die Implementierung von des FinalizeBasistyps aufzurufen.Every implementation of Finalize in a derived type must call its base type's implementation of Finalize. Dies ist der einzige Fall, in dem Anwendungscode aufgerufen Finalizewerden darf.This is the only case in which application code is allowed to call Finalize. Die- Finalize Methode eines Objekts sollte keine Methode für andere Objekte als die seiner Basisklasse aufzurufen.An object's Finalize method shouldn't call a method on any objects other than that of its base class. Der Grund hierfür ist, dass das aufrufende Objekt möglicherweise zur gleichen Zeit an die Garbage Collection übergeben wird wie die anderen aufgerufenen Objekte, z. B. wenn eine Common Language Runtime beendet wird.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.

Hinweis

Der C# Compiler lässt nicht zu, dass Sie die Finalize -Methode überschreiben.The C# compiler does not allow you to override the Finalize method. Stattdessen stellen Sie einen Finalizer bereit, indem Sie einen debugtor für Ihre Klasse implementieren.Instead, you provide a finalizer by implementing a destructor for your class. Ein C# Dekonstruktor ruft automatisch den Dekonstruktor der Basisklasse auf.A C# destructor automatically calls the destructor of its base class.

Visual C++ bietet auch eine eigene Syntax für die Implementierung Finalize der-Methode.Visual C++ also provides its own syntax for implementing the Finalize method. Weitere Informationen finden Sie im Abschnitt "debugtoren und Finalizer" unter Gewusst wie: Definieren und Verarbeiten von Klassen und Strukturen (C++/CLI).For more information, see the "Destructors and finalizers" section of How to: Define and Consume Classes and Structs (C++/CLI).

Da Garbage Collection nicht deterministisch ist, wissen Sie nicht genau, wann der Garbage Collector die Finalisierung ausführt.Because garbage collection is non-deterministic, you do not know precisely when the garbage collector performs finalization. Um Ressourcen sofort freizugeben, können Sie auch das Verwerfen- Muster und die IDisposable -Schnittstelle implementieren.To release resources immediately, you can also choose to implement the dispose pattern and the IDisposable interface. Die IDisposable.Dispose -Implementierung kann von Consumern der-Klasse aufgerufen werden, um nicht verwaltete Ressourcen freizugeben, und Finalize Sie können die-Methode verwenden, um nicht verwaltete Ressourcen Dispose freizugeben, wenn die-Methode nicht aufgerufen wird.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.

Finalizekann fast jede Aktion ausführen, einschließlich der Wiederaufnahme eines Objekts (d. h., das Objekt kann wieder zugänglich gemacht werden), nachdem es während der Garbage Collection bereinigt wurde.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. Das Objekt kann jedoch nur einmal wieder auferstanden werden. Finalize kann nicht für wiederbelebte Objekte während Garbage Collection aufgerufen werden.However, the object can only be resurrected once; Finalize cannot be called on resurrected objects during garbage collection.

Die SafeHandle-AlternativeThe SafeHandle alternative

Das Erstellen zuverlässiger Finalizer ist oft schwierig, da Sie keine Annahmen über den Zustand der Anwendung treffen können und weil nicht behandelte System Ausnahmen wie OutOfMemoryException und StackOverflowException den Finalizer beenden.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. Anstatt einen Finalizer für die Klasse zu implementieren, um nicht verwaltete Ressourcen freizugeben, können Sie ein Objekt verwenden, das von System.Runtime.InteropServices.SafeHandle der-Klasse abgeleitet wird, um die nicht verwalteten Ressourcen zu umschließen, und dann das Lösch Muster ohne Finalizer implementieren.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. Der .NET Framework stellt die folgenden Klassen im Microsoft.Win32 -Namespace bereit, die von System.Runtime.InteropServices.SafeHandleabgeleitet sind:The .NET Framework provides the following classes in the Microsoft.Win32 namespace that are derived from System.Runtime.InteropServices.SafeHandle:

Im folgenden Beispiel wird das Verwerfen- Muster mit sicheren Handles verwendet, anstatt Finalize die-Methode zu überschreiben.The following example uses the dispose pattern with safe handles instead of overriding the Finalize method. Es definiert eine FileAssociation Klasse, die Registrierungsinformationen über die Anwendung umschließt, die Dateien mit einer bestimmten Dateierweiterung verarbeitet.It defines a FileAssociation class that wraps registry information about the application that handles files with a particular file extension. Die beiden Registrierungs Handles, die out von Windows RegOpenKeyEx -Funktionsaufrufen als Parameter zurückgegeben SafeRegistryHandle werden, werden an den-Konstruktor übergeben.The two registry handles returned as out parameters by Windows RegOpenKeyEx function calls are passed to the SafeRegistryHandle constructor. Die geschützte Dispose -Methode des Typs ruft dann SafeRegistryHandle.Dispose die-Methode auf, um diese beiden Handles freizugeben.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

Gilt für:

Siehe auch