Changeset 123 for Common/UCommon.pas

Timestamp:

Jan 5, 2011, 4:18:16 PM (14 years ago)

Author:

george

Message:

• Added: Package TEditExtensions which will contains components derived from TEdit with specific edit constrains.

File:

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

Common/UCommon.pas

@@ -4 +4 @@
 
 uses
-  Windows, SysUtils, ShFolder, ShellAPI;
+  Windows, Classes, SysUtils, SpecializedList; //, ShFolder, ShellAPI;
 
 type
@@ -10 +10 @@
   TArrayOfString = array of string;
 
-function DelTree(DirName : string): Boolean;
+  TUserNameFormat = (
+    unfNameUnknown = 0, // Unknown name type.
+    unfNameFullyQualifiedDN = 1,  // Fully qualified distinguished name
+    unfNameSamCompatible = 2, // Windows NT® 4.0 account name
+    unfNameDisplay = 3,  // A "friendly" display name
+    unfNameUniqueId = 6, // GUID string that the IIDFromString function returns
+    unfNameCanonical = 7,  // Complete canonical name
+    unfNameUserPrincipal = 8, // User principal name
+    unfNameCanonicalEx = 9,
+    unfNameServicePrincipal = 10,  // Generalized service principal name
+    unfDNSDomainName = 11);
+
+
 function IntToBin(Data: Cardinal; Count: Byte): string;
 function TryHexToInt(Data: string; var Value: Integer): Boolean;
 function TryBinToInt(Data: string; var Value: Integer): Boolean;
-function GetSpecialFolderPath(Folder: Integer): string;
+//function DelTree(DirName : string): Boolean;
+//function GetSpecialFolderPath(Folder: Integer): string;
 function BCDToInt(Value: Byte): Byte;
 function CompareByteArray(Data1, Data2: TArrayOfByte): Boolean;
 function GetUserName: string;
+function LoggedOnUserNameEx(Format: TUserNameFormat): string;
 function SplitString(var Text: string; Count: Word): string;
 function GetBit(Variable: QWord; Index: Byte): Boolean;
@@ -27 +41 @@
 implementation
 
-function DelTree(DirName : string): Boolean;
+(*function DelTree(DirName : string): Boolean;
 var
   SHFileOpStruct : TSHFileOpStruct;
@@ -49 +63 @@
      Result := False;
   end;
-end;
+end;*)
 
 function BCDToInt(Value: Byte): Byte;
@@ -56 +70 @@
 end;
 
-function GetSpecialFolderPath(Folder: Integer): string;
+(*function GetSpecialFolderPath(Folder: Integer): string;
 const
   SHGFP_TYPE_CURRENT = 0;
@@ -67 +81 @@
   else
     Result := '';
-end;
+end;*)
 
 function IntToBin(Data: Cardinal; Count: Byte): string;
@@ -158 +172 @@
 end;
 
+procedure GetUserNameEx(NameFormat: DWORD;
+  lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
+  external 'secur32.dll' Name 'GetUserNameExA';
+
+
+function LoggedOnUserNameEx(Format: TUserNameFormat): string;
+var
+  UserName: array[0..250] of Char;
+  Size: DWORD;
+begin
+  Size := 250;
+  GetUserNameEx(Integer(Format), @UserName, @Size);
+  Result := UTF8Encode(UserName);
+end;
+
 function SplitString(var Text: string; Count: Word): string;
 begin