DELPHI编程清除Windows Media Player播放记录.docVIP

DELPHI编程清除Windows Media Player播放记录 　　摘 要：Windows Media Player是一款流行的媒体播放器。为了使它更容易为您找到经常播放的内容，Windows媒体播放器保持您最近访问的文件和网址列表。它可能会严重危及您的隐私，您应该清理Windows Media Player的历史。本文介绍了通过DELPHI操作注册表，实现Windows Media Player的播放记录的清除。 　　关键词：播放器；DELPHI；注册表 　　中图分类号：TP311 文献标识码：A 　　1 引言 　　Windows Media Player是一款流行的媒体播放器，为了使它更容易为您找到经常播放的内容，Windows媒体播放器的“文件”菜单保存了最近访问的文件和网址列表。它可能会严重危及您的隐私，任何人都可以看到你看过什么电影，听什么歌等。那么如何将它们清除呢？一般的方法是通过操作注册表来完成。对于一般用户来说，操作注册表不但麻烦，而且还容易出错。现在已有很多程序可以清除，比如360安全卫士等。本文介绍利用DELPHI7编程，来清除Windows Media Player的播放记录。 　　2 基本原理 　　Windows Media Player 的播放记录存储在注册表中，运行注册表编辑器，逐级展开到“HKEY_CURRENT_USER＼Software＼Microsoft＼MediaPlayer＼Player＼RecentFileList”[1]，此时程序的右半部出现了许多键值，它们按“file1”“file2”，…的顺序排列，这些就是Windows Media Player播放器的历史记录，如图1所示。 　　图1 注册表中保存的Windows Media Player 的播放记录 　　其中的file1-file7即为注册表中保存的Windows Media Player的播放记录信息，只要删除相应的键即可清除相应的播放记录。 　　Delphi提供了TRegistry类，可以对Windows的注册表进行相关操作[2，3]。 　　3 界面设计 　　在默认窗体Form1上添加如下组件：一个checklistbox组件，三个speedbutton组件，一个EDIT组件，设计完成后运行的界面如图2所示。 　　图2 运行界面 　　4 程序源代码 　　由于要操作注册表，因此要特别注意在USES单元中引用Registry。主要功能代码如下： 　　//程序启动时将播放记录加到列表中 　　procedure TForm1.FormCreate（Sender： TObject）； 　　var 　　i：integer； 　　myreg：tregistry；//引用注册表类 　　regkeys：tstringlist； 　　value：string； 　　begin ???　myreg：=tregistry.Create ；//创建注册表对象 　　myreg.RootKey ：=hkey_current_user； 　　if myreg.OpenKey（software＼microsoft＼MediaPlayer＼Player＼RecentFileList，false） then 　　//打开注册表主键 　　begin 　　regkeys：=tstringlist.Create ； 　　myreg.GetValueNames（regkeys）；//获取键名 　　for i：=0 to regkeys.Count -1 do 　　if （myreg. GetDataType（regkeys. Strings[i]）=rdstring） or （myreg. GetDataType（regkeys. Strings[i]）=rdexpandstring） then 　　begin 　　value：=myreg.ReadString （regkeys.Strings[i]）；//循环读取注册表键值，并将其添加到列表框中 　　checklistbox1.Items.Add（regkeys.Strings[i]+=+value）； 　　end； 　　end； 　　end； 　　//删除列表中选中的条目 　　procedure TForm1.SpeedButton1Click（Sender： TObject）； 　　var 　　i：integer； 　　begin 　　for i：=checkListBox1.Items.Count-1 downTo 0 do 　　begin 　　if checklistbox1.Checked[i] then