Delen via


Methode System.Object.Finalize

Opmerking

In dit artikel vindt u aanvullende opmerkingen in de referentiedocumentatie voor deze API.

De Finalize methode wordt gebruikt om opschoonbewerkingen uit te voeren op onbeheerde resources die door het huidige object worden bewaard voordat het object wordt vernietigd. De methode is beveiligd en is daarom alleen toegankelijk via deze klasse of via een afgeleide klasse.

Hoe voltooien werkt

De Object Class biedt geen implementatie voor de Finalize-methode. De garbagecollector markeert geen typen die zijn afgeleid van Object voor finalisatie, tenzij ze de Finalize-methode overschrijven.

Als een type de Finalize methode overschrijft, voegt de garbagecollector een vermelding voor elk exemplaar van het type toe aan een interne structuur, de zogenaamde finalisatiewachtrij. De finalisatiewachtrij bevat vermeldingen voor alle objecten in de beheerde heap waarvan de definitieve code moet worden uitgevoerd voordat de garbagecollector hun geheugen kan vrijmaken. De garbagecollector roept de Finalize methode vervolgens automatisch aan onder de volgende omstandigheden:

  • Nadat de vuilnisopruimer heeft ontdekt dat een object niet toegankelijk is, tenzij het object is uitgesloten van finalisatie door een oproep naar de methode GC.SuppressFinalize.
  • Alleen in .NET Framework, tijdens het afsluiten van een toepassingsdomein, tenzij het object is uitgesloten van voltooien. Tijdens het afsluiten worden zelfs objecten die nog toegankelijk zijn, voltooid.

Finalize wordt automatisch slechts eenmaal aangeroepen op een bepaald exemplaar, tenzij het object opnieuw wordt geregistreerd met behulp van een mechanisme, zoals GC.ReRegisterForFinalize en de GC.SuppressFinalize methode vervolgens niet is aangeroepen.

Finalize bewerkingen hebben de volgende beperkingen:

  • De exacte tijd waarop de finalizer wordt uitgevoerd, is niet gedefinieerd. Als u wilt zorgen voor deterministische release van resources voor exemplaren van uw klasse, implementeert u een Close methode of levert u een IDisposable.Dispose implementatie.
  • De finalizers van twee objecten kunnen niet in een bepaalde volgorde worden uitgevoerd, zelfs niet als het ene object naar het andere verwijst. Als Object A een verwijzing naar Object B heeft en beide finalizers hebben, is Object B mogelijk al voltooid wanneer de finalizer van Object A wordt gestart.
  • De thread waarop de finalizer wordt uitgevoerd, is niet opgegeven.

De Finalize methode wordt mogelijk niet uitgevoerd tot voltooiing of wordt mogelijk helemaal niet uitgevoerd onder de volgende uitzonderlijke omstandigheden:

  • Als een andere finalizer voor onbepaalde tijd blokkeert (gaat in een oneindige lus, probeert een vergrendeling te verkrijgen die het nooit kan verkrijgen, enzovoort). Omdat de runtime finalizers probeert uit te voeren tot voltooiing, worden andere finalizers mogelijk niet aangeroepen als een finalizer voor onbepaalde tijd blokkeert.
  • Als het proces wordt beëindigd zonder de runtime een kans te geven om op te schonen. In dit geval is de eerste melding van procesbeëindiging van de runtime een DLL_PROCESS_DETACH melding.

De runtime blijft alleen objecten finaliseren tijdens het afsluiten, zolang het aantal finaliseerbare objecten blijft afnemen.

Als Finalize of een overschrijving van Finalize een uitzondering werpt en de runtime niet door een toepassing wordt gehost die het standaardbeleid overschrijft, beëindigt de runtime het proces en worden er geen actieve try/finally blokken of finalizers uitgevoerd. Dit gedrag zorgt voor procesintegriteit als de finalizer geen resources kan vrijmaken of vernietigen.

De methode Finalize overschrijven

U moet Finalize overschrijven voor een klasse die gebruikmaakt van niet-beheerde resources, zoals bestandshandvatten of databaseverbindingen die vrijgegeven moeten worden wanneer het beheerde object dat deze gebruikt, verwijderd wordt tijdens de vuilnisinzameling. Je moet geen Finalize methode implementeren voor beheerde objecten, omdat de garbagecollector automatisch de beheerde resources vrijgeeft.

Belangrijk

Als er een SafeHandle object beschikbaar is dat uw onbeheerde resource verpakt, is het aanbevolen om het dispose-patroon te implementeren met een veilig handvat en Finalize niet te overschrijven. Zie de sectie SafeHandle alternative voor meer informatie.

De Object.Finalize methode doet standaard niets, maar u moet alleen overschrijven Finalize indien nodig en alleen om onbeheerde resources vrij te geven. Terugwinning van geheugen duurt meestal veel langer als een voltooiingsproces wordt uitgevoerd, omdat er ten minste twee vuilnisverzamelingen nodig zijn. Bovendien moet u alleen de Finalize methode overschrijven voor referentietypen. De algemene taalruntime voltooit alleen referentietypen. Het negeert finalizers voor waardetypen.

Het bereik van de Object.Finalize methode is protected. Houd dit beperkte bereik bij wanneer u de methode in uw klasse overschrijft. Door een Finalize methode beveiligd te houden, voorkomt u dat gebruikers van uw toepassing de methode van Finalize een object rechtstreeks aanroepen.

Elke implementatie van Finalize in een afgeleid type moet de implementatie van Finalize van het basistype aanroepen. Dit is het enige geval waarin toepassingscode Finalize mag aanroepen. De methode van Finalize een object mag geen methode aanroepen voor andere objecten dan die van de basisklasse. Dit komt doordat de andere objecten die worden aangeroepen, tegelijkertijd met het aanroepende object kunnen worden verzameld, zoals in het geval van het afsluiten van een gemeenschappelijke taalruntime.

Opmerking

Met de C#-compiler kunt u de Finalize methode niet overschrijven. In plaats daarvan geeft u een finalizeerder op door een destructor voor uw klasse te implementeren. Een C#-destructor roept automatisch de destructor van de basisklasse aan.

Visual C++ biedt ook een eigen syntaxis voor het implementeren van de Finalize methode. Zie de sectie 'Destructors en finalizers' van How to: Define and Consume Classes and Structs (C++/CLI) (Klassen en Structs definiëren en gebruiken) voor meer informatie.

Omdat garbage collection niet deterministisch is, weet je niet precies wanneer de garbagecollector de finalisatie uitvoert. Als u resources onmiddellijk wilt vrijgeven, kunt u er ook voor kiezen om het verwijderingspatroon en de IDisposable interface te implementeren. De IDisposable.Dispose implementatie kan worden aangeroepen door consumenten van uw klasse om onbeheerde resources vrij te maken en u kunt de Finalize methode gebruiken om onbeheerde resources vrij te maken in het geval dat de Dispose methode niet wordt aangeroepen.

Finalize kan bijna elke actie ondernemen, waaronder het tot leven brengen van een object (dat wil zeggen, waardoor het object opnieuw toegankelijk is) nadat het is opgeschoond tijdens de afvalinzameling. Het object kan echter slechts eenmaal worden hersteld; Finalize kan niet worden aangeroepen voor herstelde objecten tijdens de garbage-collection.

Het Alternatief voor SafeHandle

Het maken van betrouwbare finalizers is vaak moeilijk, omdat u geen veronderstellingen kunt maken over de status van uw toepassing en omdat systeemuitzonderingen die niet zijn afgehandeld, zoals OutOfMemoryException en StackOverflowException, de finalizer beëindigen. In plaats van een finalizer te implementeren voor uw klasse om onbeheerde resources vrij te geven, kunt u een object gebruiken dat is afgeleid van de System.Runtime.InteropServices.SafeHandle klasse om uw onbeheerde resources in te pakken en vervolgens het verwijderingspatroon te implementeren zonder een finalizer. Het .NET Framework biedt de volgende klassen in de Microsoft.Win32 naamruimte die zijn afgeleid van System.Runtime.InteropServices.SafeHandle:

In het volgende voorbeeld wordt het verwijderingspatroon met veilige handvatten gebruikt in plaats van de Finalize methode te overschrijven. Het definieert een FileAssociation klasse die registerinformatie verpakt over de toepassing die bestanden verwerkt met een bepaalde bestandsextensie. De twee registersleutels die worden geretourneerd als out parameters door Windows RegOpenKeyEx-functieaanroepen, worden doorgegeven aan de SafeRegistryHandle constructor. De beveiligde Dispose-methode van het type roept vervolgens de SafeRegistryHandle.Dispose-methode aan om deze twee handlers vrij te maken.

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