anchor.diff:  function GetApplicationLocalDataFolder (const aApplicationSubDir : string) : String;
   function GetApplicationDataFolder (const aApplicationSubDir : string) : String;
   function GetOSUser : string;
  -{$IFDEF GUI}
  -procedure FlashInWindowsTaskbar(const aFlashEvenIfActive : boolean);
  -{$ENDIF}
   // http://forum.codecall.net/topic/69184-solved-file-association-and-the-registry/
   function RegisterDefaultApplication(const aFullPathExe : string; const aFileExtension : string; var aError : string): boolean;
   
  
positive.code: end;
  
  {$IFDEF GUI}
  procedure FlashInWindowsTaskbar(const aFlashEvenIfActive : boolean);
  begin
    {$IFDEF WINDOWS}
    {$IFDEF FPC}{$push}{$warnings off}{$ENDIF}
    begin
    // 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);
    end;
    {$IFDEF FPC}{$pop}{$ENDIF}
    {$ENDIF}
  end;
  {$ENDIF}
  
  function RegisterDefaultApplication(const aFullPathExe: string; const aFileExtension: string; var aError : string) : boolean;
  
negative.code: uses
    Classes, SysUtils, Variants, {$IFDEF WINDOWS}Windows, {$IFDEF FPC}{$IFDEF GRAPHICS_AVAILABLE}InterfaceBase,{$ENDIF}{$ENDIF} {$ENDIF}
    {$IFDEF GRAPHICS_AVAILABLE}Graphics,{$ENDIF}
    mIntList, mDoubleList;
  
  const
  