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

Timestamp:

Sep 9, 2022, 1:16:58 AM (2 years ago)

Author:

chronos

Message:

• Added: Robots page.
• Modified: Canonical URL for webcams.
• Modified: Removed compiler mode delphi as it is already set in project.
• Modified: Updated Common package.
• Modified: Use Generics.Collections instead of fgl.

File:

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

trunk/Packages/Common/UCommon.pas

@@ -1 +1 @@
 unit UCommon;
-
-{$mode delphi}
 
 interface
@@ -34 +32 @@
   DLLHandle1: HModule;
 
+  {$IFDEF WINDOWS}
+    GetUserNameEx: procedure (NameFormat: DWORD;
+      lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
+  {$ENDIF}
+
 const
   clLightBlue = TColor($FF8080);
   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;