Changeset 358 for Common/UCommon.pas

Timestamp:

May 2, 2012, 12:27:54 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Compilation under Linux of Common package.

File:

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

Common/UCommon.pas

@@ -45 +45 @@
 function BCDToInt(Value: Byte): Byte;
 function CompareByteArray(Data1, Data2: TArrayOfByte): Boolean;
-{$IFDEF Windows}
 function GetUserName: string;
 function LoggedOnUserNameEx(Format: TUserNameFormat): string;
-{$ENDIF}
 function SplitString(var Text: string; Count: Word): string;
 function GetBit(Variable: QWord; Index: Byte): Boolean;
@@ -285 +283 @@
   L: LongWord;
 begin
+
   L := MAX_USERNAME_LENGTH + 2;
   SetLength(Result, L);
@@ -317 +316 @@
   end else Result := GetUserName;
 end;
+{$ELSE}
+function GetUserName: string;
+begin
+  Result := '';
+end;
+
+function LoggedOnUserNameEx(Format: TUserNameFormat): string;
+begin
+  Result := '';
+end;
+
 {$ENDIF}