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


オブジェクトが、ガベージ コレクションによって収集される前に、リソースの解放とその他のクリーンアップ操作の実行を試みることができるようにします。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 ()

次の例では、ことを確認、Finalizeオブジェクトをオーバーライドするときに、メソッドが呼び出されたFinalizeは破棄されます。The following example verifies that the Finalize method is called when an object that overrides Finalize is destroyed. 実稼働アプリケーションでそれに注意してください、Finalizeオブジェクトによって保持されているアンマネージ リソースを解放するメソッドはオーバーライドされます。Note that, in a production application, the Finalize method would be overridden to release unmanaged resources held by the object. なお、c# の例がオーバーライドする代わりにデストラクターを提供する、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);
      Console.WriteLine("Finalizing object");
      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();
// 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")
      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()
   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

オーバーライドする例については、Finalizeメソッドを参照してください、GC.SuppressFinalizeメソッド。For an additional example that overrides the Finalize method, see the GC.SuppressFinalize method.


Finalizeオブジェクトが破棄される前に、現在のオブジェクトによって保持されているアンマネージ リソースのクリーンアップ操作を実行するメソッドを使用します。The Finalize method is used to perform cleanup operations on unmanaged resources held by the current object before the object is destroyed. メソッドが保護されているし、そのため、このクラスまたは派生クラスからのみアクセスできますが。The method is protected and therefore is accessible only through this class or through a derived class.

このセクションの内容:In this section:

終了処理のしくみHow finalization works

Objectクラスの実装を提供しない、Finalizeメソッド、およびガベージ コレクターから派生した型をマークしませんObject終了がオーバーライドされない限り、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.

型をオーバーライドする場合、Finalizeファイナライズのキューと呼ばれる内部構造をメソッド、ガベージ コレクターは追加型の各インスタンスのエントリ。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. ファイナライザーのキューには、ガベージ コレクターが、メモリを解放する前に終了コードを実行する必要があります、マネージ ヒープ内のすべてのオブジェクトのエントリが含まれています。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. ガベージ コレクターを呼び出して、Finalizeメソッドは、次の条件下で自動的に。The garbage collector then calls the Finalize method automatically under the following conditions:

  • ガベージ コレクターが、オブジェクトがへの呼び出しで終了処理から除外されていない場合に、オブジェクトが、アクセスできないことを検出した後、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.

  • .NET Framework のみで、アプリケーション ドメインのシャット ダウン中に、オブジェクトが終了処理から除外しない限り、します。On .NET Framework only, during shutdown of an application domain, unless the object is exempt from finalization. シャット ダウン中、引き続きアクセス可能であるものオブジェクトが完了します。During shutdown, even objects that are still accessible are finalized.

Finalize 自動的に 1 回だけ呼び出す特定のインスタンスで、オブジェクトが再などのメカニズムを使用して、登録されている場合を除き、GC.ReRegisterForFinalizeGC.SuppressFinalizeメソッドが、その後に呼び出されていません。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 操作には、次の制限があります。Finalize operations have the following limitations:

  • ファイナライザーが実行される場合の正確な時間が定義されていません。The exact time when the finalizer executes is undefined. リソースの確定的解放をことを確認し、クラスのインスタンスを実装する、Closeメソッドを提供または、IDisposable.Dispose実装します。To ensure deterministic release of resources for instances of your class, implement a Close method or provide a IDisposable.Dispose implementation.

  • 2 つのオブジェクトのファイナライザーは、1 つのオブジェクトを参照する他の場合でも、特定の順序で実行する保証はありません。The finalizers of two objects are not guaranteed to run in any specific order, even if one object refers to the other. オブジェクト A がオブジェクト B への参照を両方ファイナライザーがある場合は、オブジェクト B が既にファイナライズされているオブジェクトのファイナライザーの開始時にします。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.

  • ファイナライザーが実行されているスレッドでは、指定されていません。The thread on which the finalizer runs is unspecified.

Finalizeメソッドが完了するまで実行されない、または次の例外的な状況ではまったく実行されない可能性があります。The Finalize method might not run to completion or might not run at all under the following exceptional circumstances:

  • 別のファイナライザーを無期限にブロックする場合 (そのことはありません取得して、ロックを取得しようと、無限ループになる)。If another finalizer blocks indefinitely (goes into an infinite loop, tries to obtain a lock it can never obtain, and so on). ランタイムがファイナライザーの実行を完了しようとするとため、その他のファイナライザーが呼び出されません場合、ファイナライザーがブロック無期限にします。Because the runtime tries to run finalizers to completion, other finalizers might not be called if a finalizer blocks indefinitely.

  • 場合は、ランタイムをクリーンアップする機会を与えることがなく、プロセスを終了します。If the process terminates without giving the runtime a chance to clean up. この場合、ランタイムの最初の通知プロセスの終了は DLL_PROCESS_DETACH 通知です。In this case, the runtime's first notification of process termination is a DLL_PROCESS_DETACH notification.

ランタイムは、ファイナライズ可能なオブジェクトの数が減少し続けます中にのみシャット ダウン中にオブジェクトの終了が続行されます。The runtime continues to finalize objects during shutdown only while the number of finalizable objects continues to decrease.

場合FinalizeまたはのオーバーライドをFinalize、例外をスローし、ランタイムが、既定のポリシーをオーバーライドするアプリケーションによってホストされていない、プロセスとはアクティブなランタイムが終了するtry / finallyブロックまたはファイナライザーが実行されます。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. この動作は、ファイナライザーが解放またはリソースを破棄できない場合にプロセスの整合性を保証します。This behavior ensures process integrity if the finalizer cannot free or destroy resources.

Finalize メソッドをオーバーライドします。Overriding the Finalize method

オーバーライドする必要がありますFinalizeのファイル ハンドルやガベージ コレクション中にそれらを使用するマネージ オブジェクトが破棄されたときに解放する必要がありますのあるデータベース接続などのアンマネージ リソースを使用するクラス。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. 実装しないでください、Finalizeガベージ コレクターがマネージ リソースを自動的に解放するためのメソッドがオブジェクトを管理します。You shouldn't implement a Finalize method for managed objects because the garbage collector releases managed resources automatically.


場合、SafeHandleオブジェクトが使用可能なアンマネージ リソースをラップする、セーフ ハンドルの dispose パターンを実装し、無効にすることをお勧めの方法が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. 詳細については、次を参照してください。代わりに、SafeHandleセクション。For more information, see The SafeHandle alternative section.

Object.Finalizeメソッドは既定では、何しますが、オーバーライドする必要がありますFinalize必要に応じて、およびアンマネージ リソースを解放するだけである場合のみです。The Object.Finalize method does nothing by default, but you should override Finalize only if necessary, and only to release unmanaged resources. メモリを再利用は、少なくとも 2 つのガベージ コレクションを必要とするために、終了処理操作を実行する場合にかなり長くかかる傾向があります。Reclaiming memory tends to take much longer if a finalization operation runs, because it requires at least two garbage collections. さらに、オーバーライドする必要があります、Finalizeメソッド参照の型だけです。In addition, you should override the Finalize method for reference types only. 共通言語ランタイムは、参照型のみを終了します。The common language runtime only finalizes reference types. 値型にファイナライザーが無視されます。It ignores finalizers on value types.

スコープ、Object.Finalizeメソッドはprotectedします。The scope of the Object.Finalize method is protected. クラス内でこのメソッドをオーバーライドする場合は、このスコープの範囲を維持する必要があります。You should maintain this limited scope when you override the method in your class. 保持することで、Finalizeメソッドを protected に呼び出し元のオブジェクトから、アプリケーションのユーザーを防ぐFinalizeメソッドを直接します。By keeping a Finalize method protected, you prevent users of your application from calling an object's Finalize method directly.

すべての実装のFinalize派生型の基本型の実装を呼び出す必要がありますFinalizeします。Every implementation of Finalize in a derived type must call its base type's implementation of Finalize. これを呼び出すアプリケーション コードが許可されている場合のみFinalizeします。This is the only case in which application code is allowed to call Finalize. オブジェクトのFinalizeメソッドは、基底クラスのそれ以外のすべてのオブジェクトに対するメソッドを呼び出すことはできません。An object's Finalize method shouldn't call a method on any objects other than that of its base class. これは、共通言語ランタイムがシャットダウンされる場合など、呼び出し元のオブジェクトと呼び出された別のオブジェクトが同時にガベージ コレクションされることがあるからです。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.


C# コンパイラ オーバーライドはできません、Finalizeメソッド。The C# compiler does not allow you to override the Finalize method. 代わりに、実装することでファイナライザーを提供する、デストラクタークラス。Instead, you provide a finalizer by implementing a destructor for your class. C# のデストラクターは、その基底クラスのデストラクターを自動的に呼び出します。A C# destructor automatically calls the destructor of its base class.

Visual C を実装するため独自の構文を提供することも、Finalizeメソッド。Visual C++ also provides its own syntax for implementing the Finalize method. 詳細については、の「デストラクターおよびファイナライザー」セクションを参照してください。方法。クラスと構造体定義および使用 (C +/cli CLI)します。For more information, see the "Destructors and finalizers" section of How to: Define and Consume Classes and Structs (C++/CLI).

ガベージ コレクションは非決定的であるため、ガベージ コレクターがファイナライズを実行するときに正確にはおわからない場合。Because garbage collection is non-deterministic, you do not know precisely when the garbage collector performs finalization. リソースを解放する、すぐに選択することできますも実装するために、dispose パターンIDisposableインターフェイス。To release resources immediately, you can also choose to implement the [dispose pattern](~/docs/standard/garbage-collection/implementing-dispose .md) and the IDisposable interface. IDisposable.Dispose実装を呼び出すことができるクラスのコンシューマーが、アンマネージ リソースを解放して、使用することができます、Finalizeアンマネージ リソースを解放するメソッドをDisposeメソッドは呼び出されません。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 ガベージ コレクション中にクリーンアップされた後に、(つまり、オブジェクトにアクセスできるように再度) オブジェクトを復活させる方法を含め、ほとんどすべてのアクションを実行することができます。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. ただし、オブジェクトできますのみ再生できるは 1 回です。Finalizeガベージ コレクション中に再生されたオブジェクトで呼び出すことはできません。However, the object can only be resurrected once; Finalize cannot be called on resurrected objects during garbage collection. 1 つのアクションを実装のFinalizeかかることはありません: 例外をスローする必要がありますしません。There is one action that your implementation of Finalize should never take: it should never throw an exception. メソッドによってスローされた例外がから呼び出された場合、Finalizeメソッドによって処理されない、Finalizeメソッド、ランタイムを想定、Finalizeメソッドが返され、呼び出しは引き続き、Finalize他のオブジェクトのメソッド。If any exceptions thrown by methods called from the Finalize method are unhandled by the Finalize method, the runtime assumes that the Finalize method returned and continues to call the Finalize methods of other objects.

代替手段としての SafeHandleThe SafeHandle alternative

信頼性の高いファイナライザーを作成することが難しい、アプリケーションの状態に関する想定を行うことはできませんしなどのシステム例外をハンドルされていないためOutOfMemoryExceptionStackOverflowExceptionファイナライザーを終了します。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. 派生したオブジェクトを使用するアンマネージ リソースを解放するには、クラスのファイナライザーを実装するには、代わりに、 System.Runtime.InteropServices.SafeHandle 、アンマネージ リソースをラップするクラスし、ファイナライザーなしの dispose パターンを実装します。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 の次のクラスには、Microsoft.Win32名前空間から派生したSystem.Runtime.InteropServices.SafeHandle:The .NET Framework provides the following classes in the Microsoft.Win32 namespace that are derived from System.Runtime.InteropServices.SafeHandle:

次の例では、 dispose パターンオーバーライドする代わりにセーフ ハンドルを使った、Finalizeメソッド。The following example uses the dispose pattern with safe handles instead of overriding the Finalize method. 定義、FileAssociation特定のファイル拡張子を持つファイルを処理するアプリケーションのレジストリ情報をラップするクラス。It defines a FileAssociation class that wraps registry information about the application that handles files with a particular file extension. として返される 2 つのレジストリ ハンドルoutWindows によるパラメーター RegOpenKeyExに渡される関数呼び出し、SafeRegistryHandleコンス トラクター。The two registry handles returned as out parameters by Windows RegOpenKeyEx function calls are passed to the SafeRegistryHandle constructor. 型の保護されたDisposeメソッドを呼び出して、SafeRegistryHandle.Disposeこれら 2 つのハンドルを解放します。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",
   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.

      // 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() 
   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.

      ' 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
         Return ext
      End Get
   End Property
   Public Property Open As String
         Return openCmd
      End Get    
        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 
   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