Object.Finalize メソッド

定義

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

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 メソッドの実装を提供しません。また、ガベージコレクターは、Finalize メソッドをオーバーライドしない限り、Object から派生した型に終了をマークしません。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 FrameworkOn .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.ReRegisterForFinalize などの機構を使用してオブジェクトを再登録しても、その後、GC.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つのオブジェクトのファイナライザーは、一方のオブジェクトが他方を参照している場合でも、特定の順序で実行されることは保証されません。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 は、オブジェクト A のファイナライザーが開始されたときに既に完了している可能性があります。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 メソッドを保護したままにすると、アプリケーションのユーザーがオブジェクトの 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.

ビジュアルC++には、Finalize メソッドを実装するための独自の構文も用意されています。Visual C++ also provides its own syntax for implementing the Finalize method. 詳細については、「方法: クラスと構造体を定義および使用する (C++/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 and the IDisposable interface. IDisposable.Dispose 実装は、アンマネージリソースを解放するためにクラスのコンシューマーによって呼び出すことができます。また、Dispose メソッドが呼び出されていない場合は、Finalize メソッドを使用してアンマネージリソースを解放できます。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 は、ガベージコレクション中にクリーンアップされた後、オブジェクトの resurrecting (つまり、オブジェクトに再度アクセスできるようにする) など、ほぼすべてのアクションを実行できます。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. ただし、オブジェクトを再生することはできません。Finalize は、ガベージコレクション中に再生オブジェクトで呼び出すことはできません。However, the object can only be resurrected once; Finalize cannot be called on resurrected objects during garbage collection.

代替手段としての 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 には、System.Runtime.InteropServices.SafeHandleから派生した Microsoft.Win32 名前空間の次のクラスが用意されています。The .NET Framework provides the following classes in the Microsoft.Win32 namespace that are derived from System.Runtime.InteropServices.SafeHandle:

次の例では、Finalize メソッドをオーバーライドする代わりに、セーフハンドルでdispose パターンを使用します。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. Windows regopenkeyex が関数の呼び出しによって out パラメーターとして返される2つのレジストリハンドルは、SafeRegistryHandle コンストラクターに渡されます。The two registry handles returned as out parameters by Windows RegOpenKeyEx function calls are passed to the SafeRegistryHandle constructor. 次に、型の protected 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",
              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

適用対象

こちらもご覧ください