Changeset 260 for Common

Timestamp:

Aug 9, 2011, 10:02:32 AM (13 years ago)

Author:

george

Message:

• Fixed: If GetUserNameEx fail than fallback to GetUserName.

File:

• Common/UCommon.pas (modified) (2 diffs)

Common/UCommon.pas

@@ -277 +277 @@
 
 function LoggedOnUserNameEx(Format: TUserNameFormat): string;
-var
-  UserName: array[0..250] of Char;
+const
+  MaxLength = 1000;
+var
+  UserName: array[0..MaxLength] of Char;
   VersionInfo: TOSVersionInfo;
   Size: DWORD;
@@ -284 +286 @@
   VersionInfo := GetVersionInfo;
   if VersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then begin
-    Size := 250;
+    Size := MaxLength;
     GetUserNameEx(Integer(Format), @UserName, @Size);
-    Result := UTF8Encode(UserName);
+    //ShowMessage(SysErrorMessage(GetLastError));
+    if GetLastError = 0 then Result := UTF8Encode(UserName)
+      else Result := GetUserName;
   end else Result := GetUserName;
 end;