[PATCH 35/35] userenv: Implement DestroyEnvironmentBlock

[Maarten Lankhorst]

---
 dlls/userenv/userenv.spec   |    2 +-
 dlls/userenv/userenv_main.c |   10 ++++++++++
 2 files changed, 11 insertions(+), 1 deletions(-)

diff --git a/dlls/userenv/userenv.spec b/dlls/userenv/userenv.spec
index 95280bf..7a6481c 100644
--- a/dlls/userenv/userenv.spec
+++ b/dlls/userenv/userenv.spec
@@ -1,5 +1,5 @@
 @ stdcall CreateEnvironmentBlock(ptr ptr long)
-@ stub DestroyEnvironmentBlock
+@ stdcall DestroyEnvironmentBlock(ptr)
 @ stdcall ExpandEnvironmentStringsForUserA(ptr str ptr long)
 @ stdcall ExpandEnvironmentStringsForUserW(ptr wstr ptr long)
 @ stdcall GetProfilesDirectoryA(ptr ptr)
diff --git a/dlls/userenv/userenv_main.c b/dlls/userenv/userenv_main.c
index 01f3a1b..a87bfb4 100644
--- a/dlls/userenv/userenv_main.c
+++ b/dlls/userenv/userenv_main.c
@@ -65,6 +65,16 @@ BOOL WINAPI CreateEnvironmentBlock( LPVOID* lpEnvironment,
     return FALSE;
 }
 
+BOOL WINAPI DestroyEnvironmentBlock(LPVOID lpEnvironment)
+{
+    NTSTATUS r;
+
+    r = RtlDestroyEnvironment(lpEnvironment);
+    if (r == STATUS_SUCCESS)
+        return TRUE;
+    return FALSE;
+}
+
 BOOL WINAPI ExpandEnvironmentStringsForUserA( HANDLE hToken, LPCSTR lpSrc,
                      LPSTR lpDest, DWORD dwSize )
 {
-- 
1.6.5


--------------040805020407020907040407--