Bagikan melalui


Metode System.Object.Finalize

Artikel ini menyediakan keterangan tambahan untuk dokumentasi referensi untuk API ini.

Metode Finalize ini digunakan untuk melakukan operasi pembersihan pada sumber daya yang tidak dikelola yang dipegang oleh objek saat ini sebelum objek dihancurkan. Metode ini dilindungi dan oleh karena itu hanya dapat diakses melalui kelas ini atau melalui kelas turunan.

Cara kerja finalisasi

Kelas Object tidak menyediakan implementasi untuk Finalize metode , dan pengumpul sampah tidak menandai jenis yang berasal dari Object untuk finalisasi kecuali mereka mengambil alih Finalize metode .

Jika sebuah tipe menggantikan metode Finalize, pengumpul sampah menambahkan entri untuk setiap instans dari tipe tersebut ke dalam struktur internal yang disebut antrean finalisasi. Antrean finalisasi berisi entri untuk semua objek dalam tumpukan terkelola yang kode finalisasinya harus berjalan sebelum pengumpul sampah dapat mengambil kembali memori mereka. Pengumpul sampah kemudian memanggil Finalize metode secara otomatis dalam kondisi berikut:

  • Setelah pengumpul sampah menemukan bahwa objek tidak dapat diakses, kecuali objek telah dikecualikan dari finalisasi dengan panggilan ke GC.SuppressFinalize metode .
  • Hanya pada .NET Framework, saat penonaktifan domain aplikasi, kecuali jika objek dikecualikan dari finalisasi. Selama penutupan, bahkan objek yang tetap dapat diakses dimatikan.

Finalize secara otomatis dipanggil hanya sekali pada instans tertentu, kecuali objek didaftarkan kembali dengan menggunakan mekanisme seperti GC.ReRegisterForFinalize dan GC.SuppressFinalize metode belum dipanggil berikutnya.

Finalize operasi memiliki batasan berikut:

  • Waktu yang tepat ketika finalizer dijalankan tidak terdefinisi. Untuk memastikan pelepasan sumber daya secara deterministik untuk instance dari kelas Anda, terapkan metode Close atau sediakan implementasi IDisposable.Dispose.
  • Finalizer dari dua objek tidak dijamin akan dijalankan dalam urutan tertentu, bahkan jika satu objek merujuk pada yang lain. Artinya, jika Objek A memiliki referensi ke Objek B dan keduanya memiliki finalizer, Objek B mungkin telah diselesaikan ketika finalizer Objek A dimulai.
  • Thread di mana finalizer berjalan tidak ditentukan atau tidak spesifik.

Metode Finalize ini mungkin tidak berjalan hingga selesai atau mungkin tidak berjalan sama sekali dalam keadaan luar biasa berikut:

  • Jika finalizer lain memblokir tanpa batas waktu (memasuki perulangan tanpa akhir, mencoba untuk mendapatkan kunci yang tidak dapat diperolehnya, dan sebagainya). Karena runtime mencoba menjalankan finalizer hingga selesai, finalizer lain mungkin tidak dipanggil jika finalizer memblokir tanpa batas waktu.
  • Jika proses berakhir tanpa memberikan kesempatan kepada runtime untuk membersihkan. Dalam hal ini, pemberitahuan pertama runtime penghentian proses adalah pemberitahuan DLL_PROCESS_DETACH.

Runtime akan terus melakukan finalisasi objek selama penutupan hanya jika jumlah objek yang perlu difinalisasi terus berkurang.

Jika Finalize atau Finalize melemparkan pengecualian, dan runtime tidak dihosting oleh aplikasi yang mengganti kebijakan default, runtime menghentikan proses dan tidak mengeksekusi blok aktif try/finally atau finalizer apapun. Perilaku ini memastikan integritas proses jika finalizer tidak dapat membebaskan atau menghancurkan sumber daya.

Mengesampingkan metode Finalisasi

Anda harus menyandangkan Finalize untuk kelas yang menggunakan sumber daya yang tidak dikelola, seperti handle file atau koneksi database yang harus dibebaskan ketika objek yang dikelola yang menggunakannya dibuang pada proses pengumpulan sampah. Anda tidak boleh menerapkan metode Finalize untuk objek terkelola karena pengumpul sampah secara otomatis melepaskan sumber daya terkelola.

Penting

Jika sebuah objek SafeHandle tersedia yang membungkus sumber daya Anda yang tak terkelola, alternatif yang direkomendasikan adalah menerapkan pola pembuangan dengan pegangan yang aman dan tidak menimpa Finalize. Untuk informasi selengkapnya, lihat bagian alternatif SafeHandle .

Metode ini Object.Finalize tidak melakukan apa pun secara default, tetapi Anda harus mengambil alih Finalize hanya jika perlu, dan hanya untuk merilis sumber daya yang tidak dikelola. Merebut kembali memori cenderung memakan waktu lebih lama jika operasi finalisasi berjalan, karena membutuhkan setidaknya dua pengumpulan sampah. Selain itu, Anda harus menimpa metode Finalize hanya untuk jenis referensi. Common language runtime hanya mengakhiri tipe referensi. Ini mengabaikan finalizer pada jenis nilai.

Cakupan Object.Finalize metode ini adalah protected. Anda harus mempertahankan cakupan terbatas ini saat mengambil alih metode di kelas Anda. Dengan membiarkan metode Finalize terlindungi, Anda mencegah pengguna aplikasi Anda memanggil metode Finalize dari objek tersebut secara langsung.

Setiap implementasi Finalize dalam jenis turunan harus memanggil implementasi jenis dasarnya dari Finalize. Ini adalah satu-satunya kasus di mana kode aplikasi diizinkan untuk memanggil Finalize. Metode objek Finalize tidak boleh memanggil metode pada objek apa pun selain dari kelas dasarnya. Ini karena objek lain yang dipanggil dapat dikumpulkan pada saat yang sama dengan pemanggilan objek, seperti dalam kasus penghentian waktu jalan bahasa umum.

Nota

Kompilator C# tidak memungkinkan Anda untuk menggantikan metode Finalize. Sebagai gantinya, Anda menyediakan finalizer dengan menerapkan destruktor untuk kelas Anda. Destruktor C# secara otomatis memanggil destruktor kelas dasarnya.

Visual C++ juga menyediakan sintaksisnya sendiri untuk mengimplementasikan Finalize metode . Untuk informasi selengkapnya, lihat bagian "Destruktor dan Finalizer" dari Cara: Menentukan dan Mengonsumsi Kelas dan Struktur (C++/CLI).

Karena pengumpulan sampah tidak deterministik, Anda tidak tahu persis kapan pengumpul sampah melakukan finalisasi. Untuk segera merilis sumber daya, Anda juga dapat memilih untuk mengimplementasikan pola pembuangan dan IDisposable antarmuka. Implementasi IDisposable.Dispose dapat dipanggil oleh konsumen kelas Anda untuk membebaskan sumber daya yang tidak dikelola, dan Anda dapat menggunakan metode Finalize untuk membebaskan sumber daya yang tidak dikelola jika metode Dispose tidak dipanggil.

Finalize dapat mengambil hampir semua tindakan, termasuk memunculkan kembali objek (yaitu, membuat objek dapat diakses lagi) setelah dibersihkan selama pengumpulan sampah. Namun, objek hanya dapat dibangkitkan sekali; Finalize tidak dapat dipanggil pada objek yang dibangkitkan selama pengumpulan sampah.

Alternatif SafeHandle

Membuat finalizer yang andal seringkali sulit, karena Anda tidak dapat membuat asumsi tentang status aplikasi Anda, dan karena pengecualian sistem yang tidak tertangani seperti OutOfMemoryException dan StackOverflowException mengakhiri finalizer. Alih-alih mengimplementasikan finalizer untuk kelas Anda untuk merilis sumber daya yang tidak dikelola, Anda dapat menggunakan objek yang berasal dari System.Runtime.InteropServices.SafeHandle kelas untuk membungkus sumber daya Anda yang tidak dikelola, lalu menerapkan pola pembuangan tanpa finalizer. .NET Framework menyediakan kelas-kelas berikut di Microsoft.Win32 namespace yang diturunkan dari System.Runtime.InteropServices.SafeHandle:

Contoh berikut menggunakan pola dispose dengan handle aman alih-alih menimpa Finalize metode. Ini mendefinisikan FileAssociation kelas yang membungkus informasi registri tentang aplikasi yang menangani file dengan ekstensi file tertentu. Dua handel registri yang dikembalikan sebagai out parameter oleh panggilan fungsi Windows RegOpenKeyEx diteruskan ke SafeRegistryHandle konstruktor. Metode yang dilindungi Dispose jenis kemudian memanggil metode SafeRegistryHandle.Dispose untuk membebaskan kedua handel ini.

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