From 2716e12077804cc40035b762f0551c1ba615582a Mon Sep 17 00:00:00 2001
From: Eric Kohl <eric.kohl@reactos.org>
Date: Mon, 19 Apr 2004 10:51:17 +0000
Subject: [PATCH] Implement CreateUserProfileA().

svn path=/trunk/; revision=9184
---
 reactos/lib/userenv/profile.c   | 27 ++++++++++++++++++++++++++-
 reactos/lib/userenv/userenv.def |  1 +
 reactos/lib/userenv/userenv.edf |  1 +
 3 files changed, 28 insertions(+), 1 deletion(-)

diff --git a/reactos/lib/userenv/profile.c b/reactos/lib/userenv/profile.c
index a6335bee3cf..664e24d02b7 100644
--- a/reactos/lib/userenv/profile.c
+++ b/reactos/lib/userenv/profile.c
@@ -1,4 +1,4 @@
-/* $Id: profile.c,v 1.8 2004/03/17 14:46:23 ekohl Exp $
+/* $Id: profile.c,v 1.9 2004/04/19 10:51:17 ekohl Exp $
  *
  * COPYRIGHT:       See COPYING in the top level directory
  * PROJECT:         ReactOS system libraries
@@ -75,6 +75,31 @@ AppendSystemPostfix (LPWSTR lpName,
 }
 
 
+BOOL WINAPI
+CreateUserProfileA (PSID Sid,
+		    LPCSTR lpUserName)
+{
+  UNICODE_STRING UserName;
+  BOOL bResult;
+  NTSTATUS Status;
+
+  Status = RtlCreateUnicodeStringFromAsciiz (&UserName,
+					     (LPSTR)lpUserName);
+  if (!NT_SUCCESS(Status))
+    {
+      SetLastError (RtlNtStatusToDosError (Status));
+      return FALSE;
+    }
+
+  bResult = CreateUserProfileW (Sid,
+				UserName.Buffer);
+
+  RtlFreeUnicodeString (&UserName);
+
+  return bResult;
+}
+
+
 BOOL WINAPI
 CreateUserProfileW (PSID Sid,
 		    LPCWSTR lpUserName)
diff --git a/reactos/lib/userenv/userenv.def b/reactos/lib/userenv/userenv.def
index 8d7e1ae31e3..8eb7e669068 100644
--- a/reactos/lib/userenv/userenv.def
+++ b/reactos/lib/userenv/userenv.def
@@ -1,6 +1,7 @@
 LIBRARY userenv.dll
 EXPORTS
 InitializeProfiles@0 @100 NONAME
+CreateUserProfileA@8 @109 NONAME
 CreateUserProfileW@8 @110 NONAME
 CreateEnvironmentBlock@12
 DestroyEnvironmentBlock@4
diff --git a/reactos/lib/userenv/userenv.edf b/reactos/lib/userenv/userenv.edf
index 25f8b5dbbba..173edb76516 100644
--- a/reactos/lib/userenv/userenv.edf
+++ b/reactos/lib/userenv/userenv.edf
@@ -1,6 +1,7 @@
 LIBRARY userenv.dll
 EXPORTS
 InitializeProfiles=InitializeProfiles@0 @100 NONAME
+CreateUserProfileA=CreateUserProfileA@8 @109 NONAME
 CreateUserProfileW=CreateUserProfileW@8 @110 NONAME
 CreateEnvironmentBlock=CreateEnvironmentBlock@12
 DestroyEnvironmentBlock=DestroyEnvironmentBlock@4