anchor.diff:    FLastFM := TLastFM.Create(frmLogin.edtLastFMUser.Text,
       GetAppConfigDirUTF8(False), FDebug);
   
  +  //Todo: Check this still works in Windows.
  +  {$IFDEF WINDOWS}
  +  if ForceDirectoriesUTF8(GetAppConfigDirUTF8(False)) then
  +  begin
  +    frmLogin.XMLPropStorage1.FileName := GetAppConfigDirUTF8(False) +
  +      'settings.xml';
  +
  +    XMLPropStorage1.FileName := GetAppConfigDirUTF8(False) + 'settings.xml';
  +  end
  +  else
  +  begin
  +    XMLPropStorage1.Active := False;
  +    frmLogin.XMLPropStorage1.Active := False;
  +  end;
  +
  +  {$ENDIF WINDOWS}
     tmrPlaylistTimer(Self);
   end;
   
  
positive.code: 
  procedure TfrmMain.FormCreate(Sender: TObject);
  begin
    {$IFDEF WINDOWS}
    if ForceDirectoriesUTF8(GetAppConfigDirUTF8(False)) then
    begin
      frmLogin.XMLPropStorage1.FileName := GetAppConfigDirUTF8(False) +
        'settings.xml';
  
      XMLPropStorage1.FileName := GetAppConfigDirUTF8(False) + 'settings.xml';
    end
    else
    begin
      XMLPropStorage1.Active := False;
      frmLogin.XMLPropStorage1.Active := False;
    end;
    {$ENDIF WINDOWS}
    Self.Caption := Self.Caption + ' ' +  VERSION;
    FArtworkAttempts := 0;
    FCurrentlyDisplayedArtwork := '';
  
negative.code:       FClient.QueueSong(Filenames[i]);
        pbarUpload.Visible := False;
      end;
      //todo move queueing into common function
      Screen.Cursor := crDefault;
      EnableAllGUI();
    end;
  