Changeset 20

Timestamp:

May 14, 2010, 7:00:10 AM (15 years ago)

Author:

george

Message:

• Přidáno: Funkce pro zjištění jména přihlášeného uživatele.

File:

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

Common/UCommon.pas

@@ -16 +16 @@
 function BCDToInt(Value: Byte): Byte;
 function CompareByteArray(Data1, Data2: TArrayOfByte): Boolean;
+function GetUserName: string;
 
 implementation
@@ -112 +113 @@
 end;
 
+function GetUserName: string;
+const
+  MAX_USERNAME_LENGTH = 256;
+var
+  L: LongWord;
+begin
+  L := MAX_USERNAME_LENGTH + 2;
+  SetLength(Result, L);
+  if Windows.GetUserName(PChar(Result), L) and (L > 0) then
+    SetLength(Result, StrLen(PChar(Result))) else
+    Result := '';
+end;
+
 end.