System.Object.Finalize yöntemi

  • Makale

Bu makale, bu API'nin başvuru belgelerine ek açıklamalar sağlar.

Finalize yöntemi, nesne yok edilmeden önce geçerli nesne tarafından tutulan yönetilmeyen kaynaklarda temizleme işlemleri gerçekleştirmek için kullanılır. yöntemi korunur ve bu nedenle yalnızca bu sınıf veya türetilmiş bir sınıf aracılığıyla erişilebilir.

Sonlandırma nasıl çalışır?

Object sınıfı yöntemi için Finalize hiçbir uygulama sağlamaz ve atık toplayıcı yöntemi geçersiz kılmadığı Finalize sürece öğesinden Object türetilen türleri sonlandırma için işaretlemez.

Bir tür yöntemini geçersiz kılarsa Finalize , çöp toplayıcı türün her örneği için sonlandırma kuyruğu adı verilen bir iç yapıya bir giriş ekler. Sonlandırma kuyruğu, atık toplayıcının belleğini geri kazanabilmesi için sonlandırma kodunun çalışması gereken yönetilen yığındaki tüm nesnelerin girdilerini içerir. Ardından çöp toplayıcı aşağıdaki Finalize koşullar altında yöntemini otomatik olarak çağırır:

  • Atık toplayıcı bir nesnenin erişilemez olduğunu keşfettikten sonra, nesne yöntemine GC.SuppressFinalize yapılan bir çağrıyla sonlandırmadan muaf tutulmazsa.
  • Nesne sonlandırmadan muaf olmadığı sürece, yalnızca .NET Framework'te bir uygulama etki alanının kapatılması sırasında. Kapatma sırasında, hala erişilebilir olan nesneler bile son haline getirilir.

Finalizegibi bir mekanizma kullanılarak nesne yeniden kaydedilmediği ve GC.SuppressFinalize yöntemi daha sonra çağrılmadığı sürece, belirli bir örnekte yalnızca bir kez otomatik olarak GC.ReRegisterForFinalize çağrılır.

Finalize işlemleri aşağıdaki sınırlamalara sahiptir:

  • Sonlandırıcının tam olarak ne zaman yürütülürse tanımsız olur. Sınıfınızın örnekleri için kaynakların belirleyici bir şekilde yayınlanmasını sağlamak için bir Close yöntem uygulayın veya bir IDisposable.Dispose uygulama sağlayın.
  • İki nesnenin sonlandırıcılarının, bir nesne diğerine başvuruda bulunursa bile belirli bir sırada çalışması garanti edilmemektedir. Başka bir ifadeyle, A Nesnesinin B Nesnesine bir başvurusu varsa ve her ikisi de sonlandırıcılara sahipse, Nesne A'nın sonlandırıcısı başlatıldığında B Nesnesi zaten sonlandırılmış olabilir.
  • Sonlandırıcının çalıştığı iş parçacığı belirtilmemiş.

Yöntem Finalize tamamlanmak üzere çalışmayabilir veya aşağıdaki olağanüstü durumlarda hiç çalışmayabilir:

  • Başka bir sonlandırıcı süresiz olarak engellerse (sonsuz bir döngüye geçerse, asla alamayacağı bir kilit elde etmeye çalışır, vb.). Çalışma zamanı tamamlamaya sonlandırıcıları çalıştırmaya çalıştığından, sonlandırıcı süresiz olarak engellerse diğer sonlandırıcılar çağrılmayabilir.
  • İşlem çalışma zamanına temizleme şansı vermeden sonlandırılırsa. Bu durumda, çalışma zamanının ilk işlem sonlandırma bildirimi DLL_PROCESS_DETACH bir bildirimdir.

Çalışma zamanı, kapatma sırasında yalnızca sonlandırılabilir nesne sayısı azalmaya devam ederken nesneleri sonlandırmaya devam eder.

veya geçersiz kılması bir özel durum oluşturursa ve çalışma zamanı varsayılan ilkeyi geçersiz kılan bir uygulama tarafından barındırılmazsaFinalize, çalışma zamanı işlemi sonlandırır ve etkin try/finally bloklar veya sonlandırıcılar yürütülür.Finalize Bu davranış, sonlandırıcı kaynakları boşaltamaz veya yok edemezse işlem bütünlüğünü sağlar.

Finalize yöntemini geçersiz kılma

Bunları kullanan yönetilen nesne çöp toplama sırasında atıldığında serbest bırakılması gereken dosya tanıtıcıları veya veritabanı bağlantıları gibi yönetilmeyen kaynakları kullanan bir sınıf için geçersiz kılmanız Finalize gerekir. Çöp toplayıcı yönetilen kaynakları otomatik olarak serbest bıraktığından yönetilen nesneler için bir Finalize yöntem uygulamamalısınız.

Önemli

Yönetilmeyen kaynağınızı sarmalayan bir SafeHandle nesne varsa, önerilen alternatif, atma desenini geçersiz kılmadan Finalizegüvenli bir tanıtıcıyla uygulamaktır. Daha fazla bilgi için bkz. Kasa Handle alternatif bölümü.

Object.Finalize yöntemi varsayılan olarak hiçbir şey yapmaz, ancak yalnızca gerekirse ve yalnızca yönetilmeyen kaynakları serbest bırakmak için geçersiz kılmanız Finalize gerekir. En az iki çöp toplama gerektirdiği için sonlandırma işlemi çalıştırılırsa belleğin geri kazanılması çok daha uzun sürme eğilimindedir. Ayrıca, yöntemini yalnızca başvuru türleri için geçersiz kılmalısınız Finalize . Ortak dil çalışma zamanı yalnızca başvuru türlerini son halini alır. Değer türlerindeki sonlandırıcıları yoksayar.

yönteminin Object.Finalize kapsamıdır protected. Yöntemi sınıfınızda geçersiz kılarken bu sınırlı kapsamı korumanız gerekir. Bir Finalize yöntemi korumalı tutarak, uygulamanızın kullanıcılarının bir nesnenin Finalize yöntemini doğrudan çağırmasını engellersiniz.

Türetilmiş bir türdeki her uygulaması Finalize , temel türünün uygulamasını Finalizeçağırmalıdır. Bu, uygulama kodunun çağrısına Finalizeizin verilen tek durumdur. Bir nesnenin Finalize yöntemi, temel sınıfı dışındaki nesnelerde bir yöntemi çağırmamalıdır. Bunun sebebi, ortak dil çalışma zamanı kapatması örneğinde olduğu gibi, çağrılan diğer nesnelerin aynı zamanda çağrı nesnesi olarak da toplanabilmesidir.

Not

C# derleyicisi yöntemini geçersiz kılmanıza Finalize izin vermez. Bunun yerine, sınıfınız için bir yıkıcı uygulayarak bir sonlandırıcı sağlarsınız. C# yıkıcısı, kendi temel sınıfının yıkıcısını otomatik olarak çağırır.

Visual C++, yöntemini uygulamak için kendi söz dizimini Finalize de sağlar. Daha fazla bilgi için, Nasıl yapılır: Sınıfları ve Yapıları Tanımlama ve Kullanma (C++/CLI) bölümünün "Yıkıcılar ve sonlandırıcılar" bölümüne bakın.

Çöp toplama belirlenimci olmadığından, çöp toplayıcının kesinleştirmeyi ne zaman gerçekleştirdiğini tam olarak bilemezsiniz. Kaynakları hemen serbest bırakmak için dispose desenini ve arabirimini IDisposable uygulamayı da seçebilirsiniz. UygulamaIDisposable.Dispose, yönetilmeyen kaynakları serbest etmek için sınıfınızın tüketicileri tarafından çağrılabilir ve yöntemi çağrılmaması durumunda Dispose yönetilmeyen kaynakları serbest etmek için yöntemini kullanabilirsinizFinalize.

Finalize , atık toplama sırasında temizlendikten sonra bir nesneyi yeniden canlandırma (yani nesneyi yeniden erişilebilir hale getirme) dahil olmak üzere neredeyse tüm eylemleri gerçekleştirebilir. Ancak, nesne yalnızca bir kez yeniden canlandırılabilir; Finalize atık toplama sırasında yeniden dirilen nesnelerde çağrılamaz.

Kasa Handle alternatifi

Uygulamanızın durumu hakkında varsayımlarda bulunamadığınız ve sonlandırıcı gibi OutOfMemoryExceptionStackOverflowException işlenmemiş sistem özel durumları nedeniyle güvenilir sonlandırıcılar oluşturmak genellikle zordur. Yönetilmeyen kaynakları serbest bırakmak için sınıfınız için bir sonlandırıcı uygulamak yerine, yönetilmeyen kaynaklarınızı sarmak için sınıfından System.Runtime.InteropServices.SafeHandle türetilmiş bir nesne kullanabilir ve ardından sonlandırıcı olmadan atma desenini uygulayabilirsiniz. .NET Framework, ad alanında Microsoft.Win32 aşağıdaki System.Runtime.InteropServices.SafeHandlesınıflardan türetilir:

Aşağıdaki örnek, yöntemini geçersiz kılma yerine güvenli tanıtıcılarla atma deseniniFinalize kullanır. Belirli bir FileAssociation dosya uzantısına sahip dosyaları işleyen uygulama hakkındaki kayıt defteri bilgilerini sarmalayan bir sınıf tanımlar. Windows RegOpenKeyEx işlev çağrıları tarafından parametre olarak out döndürülen iki kayıt defteri tanıtıcısı oluşturucuya SafeRegistryHandle geçirilir. Türün korumalı Dispose yöntemi daha sonra bu iki tanıtıcıyı SafeRegistryHandle.Dispose boşaltmak için yöntemini çağırır.

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(disposing: 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();
      }
   }
}

open Microsoft.Win32.SafeHandles
open System
open System.ComponentModel
open System.IO
open System.Runtime.InteropServices

// Windows API constants.
let HKEY_CLASSES_ROOT = 0x80000000
let ERROR_SUCCESS = 0
let KEY_QUERY_VALUE = 1
let KEY_SET_VALUE = 0x2
let REG_SZ = 1u
let MAX_PATH = 260

// Windows API calls.
[<DllImport("advapi32.dll", CharSet= CharSet.Auto, SetLastError=true)>]
extern int RegOpenKeyEx(nativeint hKey, string lpSubKey, int ulOptions, int samDesired, nativeint& phkResult)
[<DllImport("advapi32.dll", CharSet= CharSet.Unicode, EntryPoint = "RegQueryValueExW", SetLastError=true)>]
extern int RegQueryValueEx(nativeint hKey, string lpValueName, int lpReserved, uint& lpType, string lpData, uint& lpcbData)
[<DllImport("advapi32.dll", SetLastError = true)>]
extern int RegSetValueEx(nativeint hKey, [<MarshalAs(UnmanagedType.LPStr)>] string lpValueName, int Reserved, uint dwType, [<MarshalAs(UnmanagedType.LPStr)>] string lpData, int cpData)
[<DllImport("advapi32.dll", SetLastError=true)>]
extern int RegCloseKey(unativeint hKey)

type FileAssociationInfo(fileExtension: string) =
    // Private values.
    let ext =
        if fileExtension.StartsWith "." |> not then
            "." + fileExtension
        else
            fileExtension
    let mutable args = ""
    let mutable hAppIdHandle = Unchecked.defaultof<SafeRegistryHandle>
    let mutable hExtHandle = Unchecked.defaultof<SafeRegistryHandle>
    let openCmd = 
        let mutable lpType = 0u
        let mutable hExtension = 0n
        // Get the file extension value.
        let retVal = RegOpenKeyEx(nativeint HKEY_CLASSES_ROOT, fileExtension, 0, KEY_QUERY_VALUE, &hExtension)
        if retVal <> ERROR_SUCCESS then
            raise (Win32Exception retVal)
        // Instantiate the first SafeRegistryHandle.
        hExtHandle <- new SafeRegistryHandle(hExtension, true)

        let appId = String(' ', MAX_PATH)
        let mutable appIdLength = uint appId.Length
        let retVal = RegQueryValueEx(hExtHandle.DangerousGetHandle(), String.Empty, 0, &lpType, appId, &appIdLength)
        if retVal <> ERROR_SUCCESS then
            raise (Win32Exception retVal)
        // We no longer need the hExtension handle.
        hExtHandle.Dispose()

        // Determine the number of characters without the terminating null.
        let appId = appId.Substring(0, int appIdLength / 2 - 1) + @"\shell\open\Command"

        // Open the application identifier key.
        let exeName = String(' ', MAX_PATH)
        let exeNameLength = uint exeName.Length
        let mutable hAppId = 0n
        let retVal = RegOpenKeyEx(nativeint HKEY_CLASSES_ROOT, appId, 0, KEY_QUERY_VALUE ||| KEY_SET_VALUE, &hAppId)
        if retVal <> ERROR_SUCCESS then
            raise (Win32Exception retVal)

        // Instantiate the second SafeRegistryHandle.
        hAppIdHandle <- new SafeRegistryHandle(hAppId, true)

        // Get the executable name for this file type.
        let exePath = String(' ', MAX_PATH)
        let mutable exePathLength = uint exePath.Length
        let retVal = RegQueryValueEx(hAppIdHandle.DangerousGetHandle(), String.Empty, 0, &lpType, exePath, &exePathLength)
        if retVal <> ERROR_SUCCESS then
            raise (Win32Exception retVal)

        // Determine the number of characters without the terminating null.
        let exePath = 
            exePath.Substring(0, int exePathLength / 2 - 1)
            // Remove any environment strings.
            |> Environment.ExpandEnvironmentVariables

        let position = exePath.IndexOf '%'
        if position >= 0 then
            args <- exePath.Substring position
            // Remove command line parameters ('%0', etc.).
            exePath.Substring(0, position).Trim()
        else
            exePath

    member _.Extension =
        ext

    member _.Open
        with get () = openCmd
        and set (value) =
            if hAppIdHandle.IsInvalid || hAppIdHandle.IsClosed then
                raise (InvalidOperationException "Cannot write to registry key.")
            if not (File.Exists value) then
                raise (FileNotFoundException $"'{value}' does not exist")
            
            let cmd = value + " %1"
            let retVal = RegSetValueEx(hAppIdHandle.DangerousGetHandle(), String.Empty, 0, REG_SZ, value, value.Length + 1)
            if retVal <> ERROR_SUCCESS then
                raise (Win32Exception retVal)

    member this.Dispose() =
        this.Dispose true
        GC.SuppressFinalize this

    member _.Dispose(disposing) =
        // Ordinarily, we release unmanaged resources here
        // but all are wrapped by safe handles.

        // Release disposable objects.
        if disposing then
           if hExtHandle <> null then hExtHandle.Dispose()
           if hAppIdHandle <> null then hAppIdHandle.Dispose()

    interface IDisposable with
        member this.Dispose() =
            this.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(disposing:=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