Ignore:
Timestamp:
Mar 16, 2022, 11:41:49 AM (2 years ago)
Author:
chronos
Message:
  • Fixed: Build under Windows.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/Common/UCommon.pas

    r121 r124  
    3434  DLLHandle1: HModule;
    3535
     36  {$IFDEF WINDOWS}
     37    GetUserNameEx: procedure (NameFormat: DWORD;
     38      lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
     39  {$ENDIF}
     40
    3641const
    3742  clLightBlue = TColor($FF8080);
    3843  clLightGreen = TColor($80FF80);
    3944  clLightRed = TColor($8080FF);
    40 
    41 {$IFDEF WINDOWS}
    42   GetUserNameEx: procedure (NameFormat: DWORD;
    43     lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
    44 {$ENDIF}
    4545
    4646function AddLeadingZeroes(const aNumber, Length : integer) : string;
Note: See TracChangeset for help on using the changeset viewer.