Automating QTP Test Automation Home Automation Articles Downloads QTP Gotchas Links Books Contact About Site Map
General Function - Registry DeleteThis function deletes an entry from the Registry Download it Here (right-click and then save target as). (NOTE - you can just cut & paste from below, but the formatting will have multiple spaces instead of tabs).
'=========================================================================
Sub zGen_RegistryDelete(sKey) 'Delete a key from the registry 'Usage: ' Call zGen_RegistryDelete(sKey) 'Where: 'sKey = The root and path of the key to be deleted Dim oShell, sRet Set oShell = CreateObject("WScript.Shell") sRet = oShell.RegDelete(sKey) Set oShell = Nothing End Sub '========================================================================= |