Maarten Lankhorst : userenv: Implement DestroyEnvironmentBlock.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 83486aaf668a7319c1a0c740c1c6ea67b737dc96
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=83486aaf668a7319c1a0c740c1...

Author: Maarten Lankhorst 
Date:   Mon Feb  1 10:35:37 2010 +0100

userenv: Implement DestroyEnvironmentBlock.

---

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

diff --git a/dlls/userenv/userenv.spec b/dlls/userenv/userenv.spec
index 26475e5..8b0b749 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 GetAllUsersProfileDirectoryA(ptr ptr)
diff --git a/dlls/userenv/userenv_main.c b/dlls/userenv/userenv_main.c
index 8782c94..38fb64c 100644
--- a/dlls/userenv/userenv_main.c
+++ b/dlls/userenv/userenv_main.c
@@ -65,6 +65,17 @@ BOOL WINAPI CreateEnvironmentBlock( LPVOID* lpEnvironment,
     return FALSE;
 }

+BOOL WINAPI DestroyEnvironmentBlock(LPVOID lpEnvironment)
+{
+    NTSTATUS r;
+
+    TRACE("%p\n", lpEnvironment);
+    r = RtlDestroyEnvironment(lpEnvironment);
+    if (r == STATUS_SUCCESS)
+        return TRUE;
+    return FALSE;
+}
+
 BOOL WINAPI ExpandEnvironmentStringsForUserA( HANDLE hToken, LPCSTR lpSrc,
                      LPSTR lpDest, DWORD dwSize )
 {