Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

90 lines
1.7 KiB

  1. __foldwin32sstuff __foldwin32sstuff;
  2. foldstyleinitialization = true;
  3. /*
  4. * REGISTRY thunks for Win32s
  5. */
  6. /*
  7. * Open issues:
  8. *
  9. */
  10. enablemapdirect3216 = true;
  11. #include "types.thk"
  12. #include "regtypes.thk"
  13. /*
  14. * Exported REGISTRY functions
  15. *
  16. */
  17. /**********************************************************************
  18. *
  19. * WINREG.DLL exports
  20. *
  21. **********************************************************************/
  22. /*
  23. * RegDeleteKeyA
  24. * RegEnumKeyA
  25. * RegCreateKeyA
  26. * RegCloseKey
  27. * RegOpenKeyA
  28. * RegQueryValueA
  29. * RegSetValueA
  30. */
  31. LONG RegDeleteKey(HKEY hkey, LPSTR lpSubKey) =
  32. LONG RegDeleteKeyA(HKEY hkey, LPSTR lpSubKey)
  33. {
  34. hkey = push;
  35. }
  36. LONG RegEnumKey(HKEY hkey, DWORD dwIndex, LPSTR lpName, LPDWORD lpcbName) =
  37. LONG RegEnumKeyA(HKEY hkey, DWORD dwIndex, LPSTR lpName, LPDWORD lpcbName)
  38. {
  39. hkey = push;
  40. lpcbName = inout;
  41. }
  42. LONG RegCreateKey(HKEY hkey, LPSTR lpszSubKey, PHKEY phkResult) =
  43. LONG RegCreateKeyA(HKEY hkey, LPSTR lpszSubKey, PHKEY phkResult)
  44. {
  45. hkey = push;
  46. phkResult = output;
  47. phkResult = unpack;
  48. }
  49. LONG RegCloseKey(HKEY hkey) =
  50. LONG RegCloseKey(HKEY hkey)
  51. {
  52. hkey = push;
  53. }
  54. LONG RegOpenKey(HKEY hkey, LPSTR lpSubKey, PHKEY phkResult) =
  55. LONG RegOpenKeyA(HKEY hkey, LPSTR lpSubKey, PHKEY phkResult)
  56. {
  57. hkey = push;
  58. phkResult = output;
  59. phkResult = unpack;
  60. }
  61. LONG RegQueryValue(HKEY hkey, LPSTR lpszSubKey, LPSTR lpszValue, LPLONG lpcb) =
  62. LONG RegQueryValueA(HKEY hkey, LPSTR lpszSubKey, LPSTR lpszValue, LPLONG lpcb)
  63. {
  64. hkey = push;
  65. lpcb = inout;
  66. }
  67. LONG RegSetValue(HKEY hkey, LPSTR lpszSubKey, DWORD dwType, LPSTR lpszValue, DWORD cb) =
  68. LONG RegSetValueA(HKEY hkey, LPSTR lpszSubKey, DWORD dwType, LPSTR lpszValue, DWORD cb)
  69. {
  70. hkey = push;
  71. }