Mercurial > vim
view src/VisVim/Reg.cpp @ 26418:9a1b96ae26d1 v8.2.3740
patch 8.2.3740: memory left allocated on exit when using Tcl
Commit: https://github.com/vim/vim/commit/c7269f862748c3b0f56b5a651019e18c7d5190ee
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Dec 5 11:36:23 2021 +0000
patch 8.2.3740: memory left allocated on exit when using Tcl
Problem: Memory left allocated on exit when using Tcl.
Solution: Call Tcl_Finalize().
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sun, 05 Dec 2021 12:45:03 +0100 |
parents | 3fc0f57ecb91 |
children |
line wrap: on
line source
#include "stdafx.h" // Returns key for HKEY_CURRENT_USER\"Software"\Company\AppName // creating it if it doesn't exist // responsibility of the caller to call RegCloseKey() on the returned HKEY // HKEY GetAppKey (char* AppName) { HKEY hAppKey = NULL; HKEY hSoftKey = NULL; if (RegOpenKeyEx (HKEY_CURRENT_USER, "Software", 0, KEY_WRITE | KEY_READ, &hSoftKey) == ERROR_SUCCESS) { DWORD Dummy; RegCreateKeyEx (hSoftKey, AppName, 0, REG_NONE, REG_OPTION_NON_VOLATILE, KEY_WRITE | KEY_READ, NULL, &hAppKey, &Dummy); } if (hSoftKey) RegCloseKey (hSoftKey); return hAppKey; } // Returns key for // HKEY_CURRENT_USER\"Software"\RegistryKey\AppName\Section // creating it if it doesn't exist. // responsibility of the caller to call RegCloseKey () on the returned HKEY // HKEY GetSectionKey (HKEY hAppKey, LPCTSTR Section) { HKEY hSectionKey = NULL; DWORD Dummy; RegCreateKeyEx (hAppKey, Section, 0, REG_NONE, REG_OPTION_NON_VOLATILE, KEY_WRITE|KEY_READ, NULL, &hSectionKey, &Dummy); return hSectionKey; } int GetRegistryInt (HKEY hSectionKey, LPCTSTR Entry, int Default) { DWORD Value; DWORD Type; DWORD Count = sizeof (DWORD); if (RegQueryValueEx (hSectionKey, (LPTSTR) Entry, NULL, &Type, (LPBYTE) &Value, &Count) == ERROR_SUCCESS) return Value; return Default; } bool WriteRegistryInt (HKEY hSectionKey, char* Entry, int nValue) { return RegSetValueEx (hSectionKey, Entry, NULL, REG_DWORD, (LPBYTE) &nValue, sizeof (nValue)) == ERROR_SUCCESS; }