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

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 die Finalize Methode wird aufgerufen, wenn ein Objekt, das überschreibt Finalize zerstört wird.The following example verifies that the Finalize method is called when an object that overrides Finalize is destroyed. Beachten Sie, dass in einer produktionsanwendung die Finalize Methode zum Freigeben von nicht verwalteter Ressourcen frei, die das Objekt überschrieben werden.Note that, in a production application, the Finalize method would be overridden to release unmanaged resources held by the object. Beachten Sie, dass der C#-Beispiel wird einen Destruktor anstelle von bietet die Finalize Methode.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 überschreibt die Finalize -Methode finden Sie unter den GC.SuppressFinalize Methode.For an additional example that overrides the Finalize method, see the GC.SuppressFinalize method.

Hinweise

Die Finalize Methode wird verwendet, um Bereinigungsvorgänge für nicht verwaltete Ressourcen, die vom aktuellen Objekt gehalten 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 daher nur über diese Klasse oder durch eine abgeleitete Klasse zugegriffen 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 die Finalize -Methode, und der Garbage Collector von abgeleitete Typen nicht markiert Object auf einen Abschluss warten, wenn sie außer Kraft setzen der Finalize 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 überschreibt die Finalize -Methode der Garbage Collector Fügt einen Eintrag für jede Instanz des Typs internen Struktur einer Finalisierungswarteschlange.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 deren 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. Anschließend ruft der Garbage Collector die Finalize Methode automatisch in den folgenden Situationen:The garbage collector then calls the Finalize method automatically under the following conditions:

  • Nachdem der Garbage Collector ermittelt hat, dass ein Objekt kann nicht zugegriffen werden, es sei denn, das Objekt durch einen Aufruf, von der Finalisierung ausgenommen wurden die GC.SuppressFinalize Methode.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.

  • In .NET Framework nur, während des Herunterfahrens einer Anwendungsdomäne, es sei denn, das Objekt von der Finalisierung ausgeschlossen ist.On .NET Framework only, during shutdown of an application domain, unless the object is exempt from finalization. Während des Herunterfahrens sind auch Objekte, die immer noch zugänglich sind abgeschlossen.During shutdown, even objects that are still accessible are finalized.

Finalize automatisch nur einmal aufgerufen wird für eine bestimmte Instanz, es sei denn, das Objekt erneut registriert wird, wie z. B. mit einem Mechanismus GC.ReRegisterForFinalize und GC.SuppressFinalize Methode nicht anschließend aufgerufen wurde.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.

Finalize Vorgänge weisen die folgenden Einschränkungen:Finalize operations have the following limitations:

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

  • Der Finalizer von zwei Objekten sind Ausführung nicht garantiert in einer bestimmten Reihenfolge, selbst wenn ein Objekt in die andere verweist.The finalizers of two objects are not guaranteed to run in any specific order, even if one object refers to the other. D. h. wenn Objekt A verfügt über einen Verweis auf das Objekt B, und beide verfügen über Finalizer, Objekt B möglicherweise bereits beendet wurde zu Beginn der Finalizer des Objekts ein.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, der auf dem der Finalizer ausgeführt wird, ist nicht angegeben.The thread on which the finalizer runs is unspecified.

Die Finalize Methode möglicherweise nicht bis zum Abschluss ausgeführt, oder möglicherweise nicht alle in den folgenden außergewöhnlichen Situationen ausgeführt:The Finalize method might not run to completion or might not run at all under the following exceptional circumstances:

  • Wenn eine andere Finalizer auf unbestimmte Zeit blockiert (wird auf eine unendliche Schleife, versucht, eine Sperre kann nie zu erhalten und so weiter).If another finalizer blocks indefinitely (goes into an infinite loop, tries to obtain a lock it can never obtain, and so on). Da die Runtime versucht, die Finalizer vollständig ausgeführt werden, möglicherweise andere Finalizer nicht wenn ein Finalizer blockiert auf unbestimmte Zeit aufgerufen werden.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 dass die Laufzeit eine Gelegenheit zum Bereinigen von.If the process terminates without giving the runtime a chance to clean up. In diesem Fall ist die erste Benachrichtigung von der Runtime für Beendigung des Prozesses eine DLL_PROZESS_DETACH-Benachrichtigung.In this case, the runtime's first notification of process termination is a DLL_PROCESS_DETACH notification.

Die Laufzeit weiterhin Threadobjekte während des Herunterfahrens, nur, während die Anzahl der finalisierbare Objekte weiter verringern.The runtime continues to finalize objects during shutdown only while the number of finalizable objects continues to decrease.

Wenn Finalize oder eine Überschreibung von Finalize löst eine Ausnahme aus, und die Runtime nicht von einer Anwendung, die die Standardrichtlinie überschreibt gehostet wird, die Runtime beendet den Prozess und keine aktiven try / finally Blöcke oder 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. Dadurch wird die Prozessintegrität sichergestellt, wenn der Finalizer nicht freigeben kann, oder Löschen von Ressourcen.This behavior ensures process integrity if the finalizer cannot free or destroy resources.

Überschreiben der Finalize-MethodeOverriding the Finalize method

Sie sollten überschreiben Finalize für eine Klasse, die nicht verwaltete Ressourcen wie Dateihandles oder Verbindungen mit der Datenbank, die freigegeben werden müssen, wenn das verwaltete Objekt, das sie verwendet, während der Garbagecollection verworfen wird verwendet.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 nicht implementieren, eine Finalize -Methode für verwaltete Objekte auf, da der 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 eine SafeHandle Objekt steht, die nicht verwaltete Ressource einschließt, die empfohlene Alternative ist das Implementieren des Dispose-Musters mit einem sicheren Handle und überschreiben Sie nicht Finalize.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 unter die SafeHandle-Alternative Abschnitt.For more information, see The SafeHandle alternative section.

Die Object.Finalize Methode führt keine Aktion standardmäßig, jedoch sollten Sie überschreiben Finalize nur dann, wenn erforderlich, und nur auf nicht verwaltete Ressourcen freizugeben.The Object.Finalize method does nothing by default, but you should override Finalize only if necessary, and only to release unmanaged resources. Freigeben von Arbeitsspeicher eher zu viel länger, wenn ein Vorgang für die Beendigung ausgeführt wird, da er mindestens zwei Garbage Collections erforderlich ist.Reclaiming memory tends to take much longer if a finalization operation runs, because it requires at least two garbage collections. Darüber hinaus sollten Sie überschreiben die Finalize -Methode für den Verweis nur Typen.In addition, you should override the Finalize method for reference types only. Die common Language Runtime finalisiert nur Verweistypen.The common language runtime only finalizes reference types. Finalizer für Werttypen werden dabei ignoriert.It ignores finalizers on value types.

Im Rahmen der Object.Finalize Methode protected.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. Durch aufbewahren einer Finalize -Methode geschützt ist, können Benutzer der Anwendung Aufrufen eines Objekts Finalize -Methode direkt.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 den Basistyp-Implementierung von Aufrufen Finalize.Every implementation of Finalize in a derived type must call its base type's implementation of Finalize. Dies ist der einzige Fall, bei denen Code aufrufen, darf Finalize.This is the only case in which application code is allowed to call Finalize. Ein Objekt des Finalize Methode darf keine Methode für alle Objekte, die von der Basisklasse aufrufen.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 überschreiben, die Finalize Methode.The C# compiler does not allow you to override the Finalize method. Stattdessen Sie einen Finalizer bereitstellen, durch die Implementierung einer Destruktor für die Klasse.Instead, you provide a finalizer by implementing a destructor for your class. Ein C#-Destruktor ruft automatisch den Destruktor der Basisklasse.A C# destructor automatically calls the destructor of its base class.

Visual C++ stellt auch eine eigene Syntax bereit, für die Implementierung der Finalize Methode.Visual C++ also provides its own syntax for implementing the Finalize method. Weitere Informationen finden Sie im Abschnitt "Destruktoren und Finalizer" Vorgehensweise: 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 der Garbagecollection nicht deterministisch ist, wissen Sie nicht genau, wann der Garbage Collector Beendigung führt.Because garbage collection is non-deterministic, you do not know precisely when the garbage collector performs finalization. Um Ressourcen freizugeben sofort, Sie können auch zum Implementieren der dispose-Muster und IDisposable Schnittstelle.To release resources immediately, you can also choose to implement the dispose pattern and the IDisposable interface. Die IDisposable.Dispose Implementierung aufgerufen werden kann, durch die Benutzer Ihrer Klasse, die nicht verwaltete Ressourcen freizugeben, und können Sie die Finalize Methode, um nicht verwaltete Ressourcen freizugeben, die Dispose Methode wird nicht aufgerufen.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.

Finalize dauert nahezu jede Aktion, z. B. kann zugänglich ein-Objekt (das das Objekt wieder zugänglich gemacht werden,) aus, nachdem es während der Garbagecollection bereinigt wurden.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. Allerdings kann das Objekt nur einmal wieder zugänglich gemacht werden; Finalize kann nicht während der Garbagecollection wieder zugänglich gemachte Objekte 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

Zuverlässige Finalizer ist oft schwierig, da Sie keine Annahmen über den Zustand Ihrer Anwendung vornehmen können, und Systemausnahmen wie z. B. nicht behandelte OutOfMemoryException und StackOverflowException den Finalizer zu 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 zum Freigeben von nicht verwalteter Ressourcen zu implementieren, können Sie ein Objekt, das von abgeleitet ist die System.Runtime.InteropServices.SafeHandle Klasse, um die nicht verwalteten Ressourcen zu umschließen, und klicken Sie dann das Dispose-Muster ohne einen Finalizer zu 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. .NET Framework bietet die folgenden Klassen in der Microsoft.Win32 Namespace, der von abgeleitet werden System.Runtime.InteropServices.SafeHandle:The .NET Framework provides the following classes in the Microsoft.Win32 namespace that are derived from System.Runtime.InteropServices.SafeHandle:

Im folgenden Beispiel wird die dispose-Muster mit SafeHandles anstelle von der Finalize Methode.The following example uses the dispose pattern with safe handles instead of overriding the Finalize method. Definiert eine FileAssociation -Klasse, die Informationen in der Registrierung über die Anwendung einschließt, die Dateien mit einer bestimmten Dateierweiterung behandelt.It defines a FileAssociation class that wraps registry information about the application that handles files with a particular file extension. Die beiden Registrierungsschlüssel Handles als out Parameter nach Windows "RegOpenKeyEx" an Funktionsaufrufe übergeben werden die SafeRegistryHandle Konstruktor.The two registry handles returned as out parameters by Windows RegOpenKeyEx function calls are passed to the SafeRegistryHandle constructor. Der Typ der geschützte Dispose -Methode ruft dann die SafeRegistryHandle.Dispose Methode, um diese zwei 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
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