Implement CreateUserProfileA().

svn path=/trunk/; revision=9184

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)

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

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