Changeset 252 for Common/UCommon.pas

Timestamp:

Jun 16, 2011, 11:39:42 AM (13 years ago)

Author:

george

Message:

• Fixed: Compilation on Linux.

File:

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

Common/UCommon.pas

@@ -6 +6 @@
 
 uses
-  Windows, Classes, SysUtils, SpecializedList, StrUtils, Dialogs,
+  {$IFDEF Windows}Windows,{$ENDIF}
+  Classes, SysUtils, SpecializedList, StrUtils, Dialogs,
   FileUtil; //, ShFolder, ShellAPI;
 
@@ -29 +30 @@
   ExceptionHandler: TExceptionEvent;
   DLLHandle1: HModule;
+
+{$IFDEF Windows}
   GetUserNameEx: procedure (NameFormat: DWORD;
     lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
-
+{$ENDIF}
 
 function IntToBin(Data: Cardinal; Count: Byte): string;
@@ -41 +44 @@
 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;
@@ -250 +255 @@
 end;
 
+{$IFDEF Windows}
 function GetUserName: string;
 const
@@ -283 +289 @@
   end else Result := GetUserName;
 end;
+{$ENDIF}
 
 function SplitString(var Text: string; Count: Word): string;
@@ -317 +324 @@
 procedure LoadLibraries;
 begin
+  {$IFDEF Windows}
   DLLHandle1 := LoadLibrary('secur32.dll');
   if DLLHandle1 <> 0 then
@@ -322 +330 @@
     @GetUserNameEx := GetProcAddress(DLLHandle1, 'GetUserNameExA');
   end;
+  {$ENDIF}
 end;
 
 procedure FreeLibraries;
 begin
+  {$IFDEF Windows}
   if DLLHandle1 <> 0 then FreeLibrary(DLLHandle1);
+  {$ENDIF}
 end;