anchor.diff:  function GetApplicationLocalDataFolder (const aApplicationSubDir : string) : String;
   function GetApplicationDataFolder (const aApplicationSubDir : string) : String;
   function GetOSUser : string;
  +procedure FlashInWindowsTaskbar(const aFlashEvenIfActive : boolean);
   
   implementation
   
  
positive.code: {$ENDIF}
  
  uses
    Classes, SysUtils, Variants, {$ifdef windows}Windows,{$endif}
    mIntList, mDoubleList;
  
  const
  
negative.code:     Result := SysUtils.GetEnvironmentVariable('USER');
  end;
  
  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;
  
  
  initialization
    Randomize;
  