Changeset 139 for trunk/Packages/Common/UCommon.pas

Timestamp:

Mar 5, 2022, 5:32:14 PM (3 years ago)

Author:

chronos

Message:

• Modified: Version 1.2.0 release related changes.

File:

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

trunk/Packages/Common/UCommon.pas

@@ -33 +33 @@
   ExceptionHandler: TExceptionEvent;
   DLLHandle1: HModule;
+{$IFDEF WINDOWS}
+  GetUserNameEx: procedure (NameFormat: DWORD;
+    lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
+{$ENDIF}
 
 const
@@ -38 +42 @@
   clLightGreen = TColor($80FF80);
   clLightRed = TColor($8080FF);
-
-{$IFDEF WINDOWS}
-  GetUserNameEx: procedure (NameFormat: DWORD;
-    lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
-{$ENDIF}
 
 function AddLeadingZeroes(const aNumber, Length : integer) : string;