Effacer la liste des fichiers recents de windows media player (toutes versions)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 640 fois - Téléchargée 34 fois

Contenu du snippet

Si toi ausi tu t'es apercu que la liste des fichiers recemments ouverts n'est pas effacable dans les versions de windows media player inferieures à la 9 et que t'aimerai bien le faire quand meme, ce source est pour toi. En plus c pas long, Le fichier executable est telechargeable sur la première page de www.oursfluo.fr.st.

Source / Exemple :


{Ce programme accede a la base de registre}

Var
Registre : TRegistry  ; {Variable utilisée pour acceder à la base de registre windows}

iCompteur : integer; {Une variable pour compter}

sClef,sValeur : String; {sClef: contiendra le "chemin" de la clef a chercher, sValeur: le nom de la clef }

Begin

  // La premiere clef est tjs "FILE0"
 sValeur := 'File';
 iCompteur := 0;

 registre := TRegistry.Create ;
 sClef := '\Software\Microsoft\Mediaplayer\Player\RecentFilelist\';
 Registre.RootKey := HKEY_CURRENT_USER;

 if ( Registre.openkey(sClef,true) ) then
      begin
      while ( Registre.ValueExists( sValeur + inttostr(iCompteur) ) ) do
          Begin
              Registre.Deletevalue( sValeur + inttostr(iCompteur) ) ;
              iCompteur:= iCompteur+1 ;
          end;
      ShowMessage ( 'Done !' )  ;
      end
  else
      ShowMessage( 'Failed !' );

 Registre.Free;

end;

Conclusion :


Pour le moment pas de bugs connus, mais si vous en trouvez, un ptit mail serai le bienvenu.

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Souillasse)