Changeset 139 for trunk/Packages/Common


Ignore:
Timestamp:
Mar 5, 2022, 5:32:14 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Version 1.2.0 release related changes.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/Common/UCommon.pas

    r133 r139  
    3333  ExceptionHandler: TExceptionEvent;
    3434  DLLHandle1: HModule;
     35{$IFDEF WINDOWS}
     36  GetUserNameEx: procedure (NameFormat: DWORD;
     37    lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
     38{$ENDIF}
    3539
    3640const
    … …  
    3842  clLightGreen = TColor($80FF80);
    3943  clLightRed = TColor($8080FF);
    40 
    41 {$IFDEF WINDOWS}
    42   GetUserNameEx: procedure (NameFormat: DWORD;
    43     lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
    44 {$ENDIF}
    4544
    4645function AddLeadingZeroes(const aNumber, Length : integer) : string;
Note: See TracChangeset for help on using the changeset viewer.