Object.Finalize Metoda

Definicja

Umożliwia obiektowi podjęcie próby zwolnienia zasobów i wykonywanie innych operacji czyszczenia przed odinstalowaniem ich przez wyrzucanie elementów bezużytecznych.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 ()

Przykłady

Poniższy przykład sprawdza, czy metoda Finalize jest wywoływana, gdy obiekt zastępujący Finalize został zniszczony.The following example verifies that the Finalize method is called when an object that overrides Finalize is destroyed. Należy pamiętać, że w aplikacji produkcyjnej Metoda Finalize zostałaby zastąpiona, aby zwolnić niezarządzane zasoby przechowywane przez obiekt.Note that, in a production application, the Finalize method would be overridden to release unmanaged resources held by the object. Należy również zauważyć, C# że przykład zawiera destruktor zamiast przesłaniać metodę Finalize.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

Aby uzyskać dodatkowy przykład, który zastępuje metodę Finalize, zobacz GC.SuppressFinalize metody.For an additional example that overrides the Finalize method, see the GC.SuppressFinalize method.

Uwagi

Metoda Finalize służy do wykonywania operacji czyszczenia w niezarządzanych zasobach przechowywanych przez bieżący obiekt przed zniszczeniem obiektu.The Finalize method is used to perform cleanup operations on unmanaged resources held by the current object before the object is destroyed. Metoda jest chroniona i w związku z tym jest dostępna tylko za pomocą tej klasy lub klasy pochodnej.The method is protected and therefore is accessible only through this class or through a derived class.

W tej sekcji:In this section:

Jak działa finalizowanieHow finalization works

Klasa Object nie zapewnia implementacji dla metody Finalize, a Moduł wyrzucania elementów bezużytecznych nie oznacza typów pochodzących od Object do finalizacji, chyba że zastąpi metodę Finalize.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.

Jeśli typ zastępuje metodę Finalize, Moduł wyrzucania elementów bezużytecznych dodaje wpis dla każdego wystąpienia typu do wewnętrznej struktury zwanej kolejką finalizacji.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. Kolejka finalizowania zawiera wpisy dla wszystkich obiektów w stercie zarządzanym, których kod finalizacji musi być uruchomiony przed odjęciem pamięci przez moduł wyrzucania elementów bezużytecznych.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. Moduł wyrzucania elementów bezużytecznych automatycznie wywołuje metodę Finalize w następujących warunkach:The garbage collector then calls the Finalize method automatically under the following conditions:

  • Po odnalezieniu przez moduł wyrzucania elementów bezużytecznych obiektu jest niedostępny, chyba że obiekt został zwolniony z finalizowania przez wywołanie metody GC.SuppressFinalize.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.

  • Tylko na .NET Frameworkpodczas zamykania domeny aplikacji, chyba że obiekt jest wykluczony z finalizowania.On .NET Framework only, during shutdown of an application domain, unless the object is exempt from finalization. W trakcie zamykania nawet te obiekty, które są nadal dostępne, są finalizowane.During shutdown, even objects that are still accessible are finalized.

Finalize jest automatycznie wywoływana tylko raz w danym wystąpieniu, chyba że obiekt jest ponownie zarejestrowany przy użyciu mechanizmu, takiego jak GC.ReRegisterForFinalize, a metoda GC.SuppressFinalize nie została następnie wywołana.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 operacji mają następujące ograniczenia:Finalize operations have the following limitations:

  • Dokładny czas wykonywania finalizatora jest niezdefiniowany.The exact time when the finalizer executes is undefined. Aby zapewnić deterministyczną wersję zasobów dla wystąpień klasy, Zaimplementuj metodę Close lub podaj implementację IDisposable.Dispose.To ensure deterministic release of resources for instances of your class, implement a Close method or provide a IDisposable.Dispose implementation.

  • Finalizatory dwóch obiektów nie są gwarantowane do uruchomienia w żadnej określonej kolejności, nawet jeśli jeden obiekt odwołuje się do drugiego.The finalizers of two objects are not guaranteed to run in any specific order, even if one object refers to the other. Oznacza to, że jeśli obiekt A ma odwołanie do obiektu B i oba mają finalizatory, obiekt B mógł zostać już sfinalizowany podczas uruchamiania finalizatora obiektu.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.

  • Nie określono wątku, w którym działa finalizator.The thread on which the finalizer runs is unspecified.

Metoda Finalize może nie działać do zakończenia lub może nie działać w ogóle w następujących wyjątkowych okolicznościach:The Finalize method might not run to completion or might not run at all under the following exceptional circumstances:

  • Jeśli inne finalizatory blokują się nieskończonie (przechodzą w nieskończoną pętlę, próbuje uzyskać blokadę, która nigdy nie może uzyskać itd.).If another finalizer blocks indefinitely (goes into an infinite loop, tries to obtain a lock it can never obtain, and so on). Ponieważ środowisko uruchomieniowe podejmuje próbę uruchomienia finalizatorów, inne finalizatory mogą nie być wywoływane, jeśli finalizator jest blokowany na czas nieokreślony.Because the runtime tries to run finalizers to completion, other finalizers might not be called if a finalizer blocks indefinitely.

  • Jeśli proces zakończy się bez zapewnienia, że środowisko uruchomieniowe zostanie oczyszczone.If the process terminates without giving the runtime a chance to clean up. W takim przypadku pierwsze powiadomienie o zakończeniu procesu w czasie wykonywania jest DLL_PROCESS_DETACH powiadomienia.In this case, the runtime's first notification of process termination is a DLL_PROCESS_DETACH notification.

Środowisko uruchomieniowe kontynuuje finalizowanie obiektów podczas zamykania tylko wtedy, gdy liczba obiektów, które mają być nadal zmniejszane.The runtime continues to finalize objects during shutdown only while the number of finalizable objects continues to decrease.

Jeśli Finalize lub przesłonięcie Finalize zgłasza wyjątek, a środowisko uruchomieniowe nie jest hostowane przez aplikację, która zastąpi zasady domyślne, środowisko uruchomieniowe kończy proces i nie są wykonywane żadne aktywne try/finally bloków lub finalizatorów.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. Takie zachowanie zapewnia integralność procesu, jeśli finalizator nie może zwolnić lub zniszczyć zasobów.This behavior ensures process integrity if the finalizer cannot free or destroy resources.

Zastępowanie metody FinalizeOverriding the Finalize method

Należy przesłonić Finalize dla klasy, która korzysta z zasobów niezarządzanych, takich jak dojścia do plików lub połączenia bazy danych, które muszą zostać wydane, gdy zarządzany obiekt, który używa ich, jest odrzucany podczas wyrzucania elementów bezużytecznych.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. Nie należy implementować metody Finalize dla obiektów zarządzanych, ponieważ moduł wyrzucania elementów bezużytecznych automatycznie zwalnia zarządzane zasoby.You shouldn't implement a Finalize method for managed objects because the garbage collector releases managed resources automatically.

Ważne

Jeśli jest dostępny obiekt SafeHandle, który otacza niezarządzany zasób, Zalecaną alternatywą jest implementacja wzorca Dispose z bezpiecznym dojściem i nie przesłania 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. Aby uzyskać więcej informacji, zobacz sekcję alternatywna elementu SafeHandle .For more information, see The SafeHandle alternative section.

Metoda Object.Finalize domyślnie nie wykonuje żadnych operacji, ale należy przesłonić Finalize tylko w razie potrzeby i tylko w celu zwolnienia niezarządzanych zasobów.The Object.Finalize method does nothing by default, but you should override Finalize only if necessary, and only to release unmanaged resources. Odzyskiwanie pamięci może zająć dużo czasu w przypadku uruchomienia operacji finalizowania, ponieważ wymaga co najmniej dwóch wyrzucania elementów bezużytecznych.Reclaiming memory tends to take much longer if a finalization operation runs, because it requires at least two garbage collections. Ponadto należy zastąpić metodę Finalize tylko dla typów referencyjnych.In addition, you should override the Finalize method for reference types only. Środowisko uruchomieniowe języka wspólnego kończy tylko typy odwołań.The common language runtime only finalizes reference types. Ignoruje finalizatory w typach wartości.It ignores finalizers on value types.

Zakres metody Object.Finalize jest protected.The scope of the Object.Finalize method is protected. Należy zachować ten ograniczony zakres podczas zastąpienia metody w klasie.You should maintain this limited scope when you override the method in your class. Utrzymując Finalize metodę chronioną, uniemożliwiasz użytkownikom aplikacji bezpośrednie wywoływanie metody Finalize obiektu.By keeping a Finalize method protected, you prevent users of your application from calling an object's Finalize method directly.

Każda implementacja Finalize w typie pochodnym musi wywoływać implementację Finalizetypu podstawowego.Every implementation of Finalize in a derived type must call its base type's implementation of Finalize. Jest to jedyny przypadek, w którym kod aplikacji może wywoływać Finalize.This is the only case in which application code is allowed to call Finalize. Metoda Finalize obiektu nie powinna wywołać metody dla żadnych obiektów innych niż jej Klasa bazowa.An object's Finalize method shouldn't call a method on any objects other than that of its base class. Jest tak, ponieważ inne wywołania obiektów mogą być kolekcjonowane w tym samym czasie, co obiekt wywołujący, tak jak w przypadku zamknięcia środowiska uruchomieniowego języka wspólnego.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.

Uwaga

C# Kompilator nie zezwala na zastępowanie metody Finalize.The C# compiler does not allow you to override the Finalize method. Zamiast tego należy podać finalizator, implementując destruktor dla klasy.Instead, you provide a finalizer by implementing a destructor for your class. C# Destruktor automatycznie wywołuje destruktor swojej klasy bazowej.A C# destructor automatically calls the destructor of its base class.

Wizualizacja C++ zawiera również własną składnię do implementowania metody Finalize.Visual C++ also provides its own syntax for implementing the Finalize method. Aby uzyskać więcej informacji, zobacz sekcję "destruktory i finalizatory" tematu : Definiowanie i korzystanie z klas i struktur (C++/CLI).For more information, see the "Destructors and finalizers" section of How to: Define and Consume Classes and Structs (C++/CLI).

Ponieważ wyrzucanie elementów bezużytecznych jest niedeterministyczne, nie wiadomo dokładnie, kiedy moduł zbierający elementy bezużyteczne wykonuje finalizowanie.Because garbage collection is non-deterministic, you do not know precisely when the garbage collector performs finalization. Aby natychmiast zwolnić zasoby, możesz również wybrać opcję implementacji wzorca Dispose i interfejsu IDisposable.To release resources immediately, you can also choose to implement the dispose pattern and the IDisposable interface. Wdrożenie IDisposable.Dispose może zostać wywołane przez użytkowników klasy w celu zwolnienia niezarządzanych zasobów i można użyć metody Finalize do zwolnienia niezarządzanych zasobów w przypadku, gdy metoda Dispose nie zostanie wywołana.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 może podejmować niemal wszelkich akcji, w tym resurrecting obiektu (to oznacza, że można ponownie uzyskać dostęp do obiektu) po jego oczyszczeniu podczas wyrzucania elementów bezużytecznych.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. Jednak obiekt może być nastąpił tylko raz; nie można wywołać Finalize obiektów nastąpił podczas wyrzucania elementów bezużytecznych.However, the object can only be resurrected once; Finalize cannot be called on resurrected objects during garbage collection.

Alternatywa elementu SafeHandleThe SafeHandle alternative

Tworzenie niezawodnych finalizatorów jest często trudne, ponieważ nie można wykonać założeń dotyczących stanu aplikacji i ponieważ Nieobsłużone wyjątki systemowe, takie jak OutOfMemoryException i StackOverflowException zakończyć finalizator.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. Zamiast implementować finalizator dla klasy w celu zwolnienia zasobów niezarządzanych, można użyć obiektu pochodnego od klasy System.Runtime.InteropServices.SafeHandle, aby otoczyć niezarządzane zasoby, a następnie zaimplementować wzorzec usuwania bez finalizatora.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 udostępnia następujące klasy w przestrzeni nazw Microsoft.Win32, które pochodzą z System.Runtime.InteropServices.SafeHandle:The .NET Framework provides the following classes in the Microsoft.Win32 namespace that are derived from System.Runtime.InteropServices.SafeHandle:

Poniższy przykład używa wzorca Dispose z bezpiecznymi uchwytami zamiast przesłaniać metodę Finalize.The following example uses the dispose pattern with safe handles instead of overriding the Finalize method. Definiuje klasę FileAssociation, która otacza informacje rejestru dotyczące aplikacji, która obsługuje pliki z określonym rozszerzeniem pliku.It defines a FileAssociation class that wraps registry information about the application that handles files with a particular file extension. Dwa uchwyty rejestru zwracane jako parametry out przez wywołania funkcji RegOpenKeyEx systemu Windows są przesyłane do konstruktora SafeRegistryHandle.The two registry handles returned as out parameters by Windows RegOpenKeyEx function calls are passed to the SafeRegistryHandle constructor. Metoda Dispose chroniona przez typ wywołuje metodę SafeRegistryHandle.Dispose, aby zwolnić te dwa uchwyty.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

Dotyczy

Zobacz też