anchor.diff:    GetSystemInfo(Info);
     Result := Info.dwNumberOfProcessors;
   end;
  -{$else}
  -
  -{$ifdef linux}
  +{$ELSE}
  +
  +{$IFDEF LINUX}
   function GetCPUCores : integer;
   begin
     // http://forum.lazarus.freepascal.org/index.php?topic=33125.0
     Result := sysconf(83);
   end;
  -{$else}
  -{$ifdef Darwin}
  +{$ELSE}
  +{$IFDEF DARWIN}
   // http://forum.lazarus.freepascal.org/index.php?topic=4098.0
   function GetCPUCores : integer;
   //returns number of CPUs for MacOSX computer
  
positive.code:   end;
  end;
  
  (*
  http://users.atw.hu/delphicikk/listaz.php?id=2189&oldal=11
  
  
negative.code:     Result := SysUtils.GetEnvironmentVariable('USER');
  end;
  
  {$IFDEF GUI}
  procedure FlashInWindowsTaskbar(const aFlashEvenIfActive : boolean);
  begin
    {$IFDEF WINDOWS}
    // http://forum.lazarus.freepascal.org/index.php?topic=33574.0
    If aFlashEvenIfActive or (not Application.Active) Then
      FlashWindow({$IFDEF FPC}WidgetSet.AppHandle{$ELSE}Application.Handle{$ENDIF}, True);
    {$ENDIF}
  end;
  {$ENDIF}
  
  function RegisterDefaultApplication(const aFullPathExe: string; const aFileExtension: string; var aError : string) : boolean;
  {$IFDEF WINDOWS}
  var
    a: byte;
    tmpRegistry : TRegistry;
  