Object.Finalize Metódus
Definíció
Fontos
Egyes információk olyan, kiadás előtti termékekre vonatkoznak, amelyek a kiadásig még jelentősen módosulhatnak. A Microsoft nem vállal kifejezett vagy törvényi garanciát az itt megjelenő információért.
Lehetővé teszi az objektumok számára, hogy megpróbálják felszabadítani az erőforrásokat, és más tisztítási műveleteket hajtsanak végre, mielőtt a szemétgyűjtés visszanyeri azt.
!Object ()~Object();abstract member Finalize : unit -> unit
override this.Finalize : unit -> unitFinalize ()Példák
Az alábbi példa ellenőrzi, hogy a Finalize metódus akkor lesz meghívva, ha egy felülbíráló Finalize objektum megsemmisül. Vegye figyelembe, hogy egy éles alkalmazásban a Finalize metódus felül lesz bírálva az objektum által birtokolt nem felügyelt erőforrások felszabadításához. Azt is vegye figyelembe, hogy a C# példa destruktort ad a Finalize módszer felülírása helyett.
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
open System.Diagnostics
type ExampleClass() =
let sw = Stopwatch.StartNew()
do
printfn "Instantiated object"
member this.ShowDuration() =
printfn $"This instance of {this} has been in existence for {sw.Elapsed}"
override this.Finalize() =
printfn "Finalizing object"
sw.Stop()
printfn $"This instance of {this} has been in existence for {sw.Elapsed}"
let ex = 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
A metódust felülbíráló Finalize további példákért tekintse meg a metódust GC.SuppressFinalize .
Megjegyzések
A Finalize metódussal tisztítási műveleteket hajthat végre az aktuális objektum által tárolt nem felügyelt erőforrásokon az objektum megsemmisítése előtt. A metódus védett, ezért csak ezen az osztályon vagy származtatott osztályon keresztül érhető el.
A véglegesítés működése
Az Object osztály nem biztosít implementációt a Finalize metódushoz, és a szemétgyűjtő nem jelöli meg a Object származó típusokat véglegesítésre, hacsak a Finalize metódust nem írják felül.
Ha egy típus felülírja a Finalize metódust, a szemétgyűjtő bejegyzést ad hozzá a típus minden példányához a véglegesítési sor nevű belső struktúrához. A véglegesítési üzenetsor a felügyelt halom összes objektumának bejegyzéseit tartalmazza, amelyeknek a véglegesítési kódnak futnia kell ahhoz, hogy a szemétgyűjtő visszanyerje a memóriáját. A szemétgyűjtő ezután automatikusan meghívja a Finalize metódust, amikor észleli, hogy egy objektum elérhetetlen, kivéve, ha az objektumot a metódus hívása mentesítette a GC.SuppressFinalize véglegesítés alól.
Finalize a rendszer csak egyszer hívja meg automatikusan egy adott példányon, kivéve, ha az objektumot egy olyan mechanizmussal regisztrálják újra, mint például GC.ReRegisterForFinalize a metódus, és a GC.SuppressFinalize metódust később nem hívták meg.
Finalize a műveletekre a következő korlátozások vonatkoznak:
- A véglegesítő végrehajtásának pontos időpontja nincs meghatározva. Implementáljon egy
Closemetódust vagy biztosítson egy IDisposable.Dispose megvalósítást az osztály példányai számára az erőforrások determinisztikus kiadásának érdekében. - Két objektum véglegesítői nem garantáltan egy adott sorrendben futnak, még akkor sem, ha az egyik objektum a másikra hivatkozik. Vagyis ha az A objektum a B objektumra hivatkozik, és mindkettő rendelkezik véglegesítővel, akkor lehet, hogy a B objektum már véglegesítve lett az A objektum véglegesítőjének indításakor.
- Az a szál, amelyen a véglegesítő fut, nincs meghatározva.
Előfordulhat, hogy a Finalize metódus nem fut a befejezésig, vagy egyáltalán nem fut a következő kivételes körülmények között:
- Ha egy másik finalizáló határozatlan ideig blokkol (végtelen hurokba kerül, megpróbál beszerezni egy zárolást, amit soha nem szerezhet be, és így tovább). Mivel a futtatókörnyezet a véglegesítőket a befejezésig próbálja futtatni, előfordulhat, hogy más véglegesítők nem hívódnak meg, ha egy véglegesítő határozatlan ideig blokkolja a folyamatot.
- Ha a folyamat leáll anélkül, hogy a futtatókörnyezetnek esélyt adna a tisztításra. Ebben az esetben a futtatókörnyezet első értesítése a folyamat leállításáról egy DLL_PROCESS_DETACH értesítés.
A futtatókörnyezet továbbra is csak a leállítás során véglegesíti az objektumokat, miközben a véglegesíthető objektumok száma folyamatosan csökken.
Ha a Finalize vagy a Finalize felülbírálása kivételt vált ki, és a futtatókörnyezetet nem az alapértelmezett házirendet felülíró alkalmazás működteti, akkor a futtatókörnyezet leállítja a folyamatot, és semmilyen aktív try/finally blokkot vagy véglegesítőt nem hajt végre. Ez a viselkedés biztosítja a folyamat integritását, ha a véglegesítő nem tud erőforrásokat felszabadítani vagy megsemmisíteni.
A Finalize metódus felülírása
Felül kell írnia Finalize egy olyan osztály esetében, amely nem felügyelt erőforrásokat használ, például fájlkezelőket vagy adatbázis-kapcsolatokat, amelyeket fel kell szabadítani, amikor a szemétgyűjtés során a használó felügyelt objektumot elvetik. A felügyelt objektumokhoz nem célszerű metódust Finalize implementálni, mert a szemétgyűjtő automatikusan felszabadítja a felügyelt erőforrásokat.
Important
SafeHandle Ha olyan objektum érhető el, amely a nem felügyelt erőforrást burkolja, az ajánlott alternatíva az ártalmatlanítási minta biztonságos fogóponttal történő implementálása, és nem felülbírálásFinalize. További információt a SafeHandle alternatív szakaszában talál.
A Object.Finalize metódus alapértelmezés szerint semmit sem tesz, de csak akkor írja felül a Finalize-et, ha ez szükséges, és kizárólag a nem felügyelt erőforrások felszabadítása érdekében. A memória visszanyerése általában sokkal tovább tart, ha egy véglegesítési művelet fut, mert legalább két szemétgyűjtésre van szükség. Ezenkívül felül kell írnia a Finalize metódust csak referenciatípusok esetében. A közös nyelvi futtatókörnyezet csak a referenciatípusokat véglegesíti. Figyelmen kívül hagyja az értéktípusok véglegesítőit.
A metódus hatóköre: Object.Finalizeprotected. Ezt a korlátozott hatókört akkor kell fenntartania, ha felülbírálja a metódust az osztályban. Egy Finalize metódus védelmével megakadályozhatja, hogy az alkalmazás felhasználói közvetlenül meghívják egy objektum Finalize metódusát.
A Finalize minden egyes megvalósításának a származtatott típusban meg kell hívnia az Finalize alaptípusban található megvalósítását. Ez az egyetlen eset, amikor az alkalmazáskód hívhatja meg a(z) Finalize. Az objektum metódusa Finalize nem hívhat metódust az alaposztályától eltérő objektumokon. Ennek az az oka, hogy a többi meghívandó objektumot a hívó objektummal egy időben lehet összegyűjteni, például egy közös nyelvi futtatókörnyezet leállítása esetén.
Megjegyzés:
A C#-fordító nem teszi lehetővé, hogy felülbíráld a Finalize metódust. Ehelyett a véglegesítőt egy destruktor alkalmazásával kell megadnia az osztály számára. A C#-destruktor automatikusan meghívja az alaposztály destruktorát.
A Visual C++ saját szintaxist is biztosít a Finalize metódus implementálására. További információkért lásd a "Destruktorok és véglegesítők" című szakaszt a Osztályok és szerkezetek definiálása és felhasználása (C++/CLI).
Mivel a szemétgyűjtés nem determinisztikus, nem tudja pontosan, hogy mikor végzi el a szemétgyűjtő a véglegesítést. Az erőforrások azonnali felszabadításához az elidegenítési mintát és az IDisposable interfészt is implementálhatja. Az IDisposable.Dispose implementációt meghívhatják az osztály felhasználói a nem felügyelt erőforrások felszabadítására, és a Finalize metódus használatával felszabadíthatja a nem felügyelt erőforrásokat abban az esetben, ha a Dispose metódust nem hívják meg.
Finalize szinte bármilyen műveletet végrehajthat, beleértve egy objektum újraélesztését (vagyis az objektum ismételt akadálymentesítését) a szemétgyűjtés során végzett tisztítás után. Az objektum azonban csak egyszer támadható fel; Finalize a szemétgyűjtés során nem hívhatók fel újra a feltámasztott objektumok.
A SafeHandle alternatívája
A megbízható véglegesítők létrehozása gyakran nehéz feladat, mert nem lehet feltételezéseket tenni az alkalmazás állapotáról, és mivel a rendszer által nem kezelt kivételek, mint például a OutOfMemoryException és a StackOverflowException, a véglegesítő leállítását okozzák. Ahelyett, hogy véglegesítőt implementál az osztályhoz a nem felügyelt erőforrások felszabadításához, használhat egy, az System.Runtime.InteropServices.SafeHandle osztályból származó objektumot a nem felügyelt erőforrások burkolásához, majd véglegesítő nélkül implementálhatja az ártalmatlanítási mintát. .NET a Microsoft.Win32 névtérben a következő osztályokat biztosítja, amelyek System.Runtime.InteropServices.SafeHandle származtathatók:
- SafeFileHandle egy fájlleíró burkolóosztálya.
- A SafeMemoryMappedFileHandle a memóriatérképes fájlleírók burkolóosztálya.
- SafeMemoryMappedViewHandle a nem felügyelt memória blokkjára mutató mutató burkolóosztálya.
- SafeNCryptKeyHandle, SafeNCryptProviderHandleés SafeNCryptSecretHandle burkolóosztályok a titkosítási fogópontokhoz.
- SafePipeHandle a csőfogantyúk burkolóosztálya.
- SafeRegistryHandle egy beállításkulcs leírójának burkolóosztálya.
- SafeWaitHandle a várakozási fogópont burkolóosztálya.
Az alábbi példa az ártalmatlanítási mintát használja biztonságos fogópontokkal ahelyett, hogy felülírja a metódust Finalize . Definiál egy osztályt FileAssociation , amely egy adott fájlkiterjesztéssel rendelkező fájlokat kezelő alkalmazás beállításjegyzék-adatait burkolja. A rendszer a Windows out függvényhívások által paraméterekként visszaadott két beállításjegyzék-kezelőt továbbítja a SafeRegistryHandle konstruktornak. A típus védett Dispose metódusa ezután meghívja a SafeRegistryHandle.Dispose metódust, hogy felszabadítsa ezt a két fogópontot.
using Microsoft.Win32.SafeHandles;
using System;
using System.ComponentModel;
using System.IO;
using System.Runtime.InteropServices;
public class FileAssociationInfo : IDisposable
{
// Private variables.
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)
{
if (!fileExtension.StartsWith("."))
fileExtension = "." + fileExtension;
Extension = fileExtension;
// Get the file extension value.
int retVal = RegOpenKeyEx(new IntPtr(HKEY_CLASSES_ROOT), fileExtension, 0, KEY_QUERY_VALUE, out IntPtr hExtension);
if (retVal != ERROR_SUCCESS)
throw new Win32Exception(retVal);
// Instantiate the first SafeRegistryHandle.
hExtHandle = new SafeRegistryHandle(hExtension, true);
string appId = new(' ', MAX_PATH);
uint appIdLength = (uint)appId.Length;
retVal = RegQueryValueEx(
hExtHandle.DangerousGetHandle(),
string.Empty,
0,
out _,
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(' ', MAX_PATH);
_ = (uint)exeName.Length;
retVal = RegOpenKeyEx(
new IntPtr(HKEY_CLASSES_ROOT),
appId,
0,
KEY_QUERY_VALUE | KEY_SET_VALUE,
out IntPtr 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(' ', MAX_PATH);
uint exePathLength = (uint)exePath.Length;
retVal = RegQueryValueEx(
hAppIdHandle.DangerousGetHandle(),
string.Empty,
0,
out _,
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; }
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,
cmd,
cmd.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, you release unmanaged resources here,
// but all are wrapped by safe handles.
// Release disposable objects.
if (disposing)
{
hExtHandle?.Dispose();
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, cmd, cmd.Length + 1)
if retVal <> ERROR_SUCCESS then
raise (Win32Exception retVal)
member this.Dispose() =
this.Dispose true
GC.SuppressFinalize this
member _.Dispose(disposing) =
// Ordinarily, you 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
Public Class FileAssociationInfo : Implements IDisposable
' Private variables.
Private ext As String
Private openCmd 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 args As String
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, cmd, cmd.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, you 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
