如何用程序读出word的最近使用文件的信息(再次提问) ( 积分: 100 )

在word中，打开一个word文件，word系统会在word菜单--“文件”--“最近使用文件”中增加一条链接（刚刚打开的那个文件的名字），请问如何用delphi读出这些文件名称那，又如何用delphi删除这些链接那。谢谢！

在word中，打开一个word文件，word系统会在word菜单--“文件”--“最近使用文件”中增加一条链接（刚刚打开的那个文件的名字），请问如何用delphi读出这些文件名称那，又如何用delphi删除这些链接那。谢谢！

其实都是读注册表的，看这些：WORD2000的
[Registry]
Reg0=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/Office/9.0/Word/Data; Type: Value; Action: Delete; Pattern: Settings;
Reg1=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/Office/9.0/Excel; Type: Key; Action: Delete; Pattern: Recent Files;
Reg2=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/Office/9.0/Access; Type: Key; Action: Delete; Pattern: Settings;
Reg3=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/Office/9.0/PowerPoint; Type: Key; Action: Delete; Pattern: Recent File List;
Reg4=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/FrontPage/Explorer/FrontPage Explorer; Type: Key; Action: Delete; Pattern: Recent File List;
Reg5=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/FrontPage/Explorer/FrontPage Explorer; Type: Key; Action: Delete; Pattern: Recent Page List;
Reg6=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/FrontPage/Explorer/FrontPage Explorer; Type: Key; Action: Delete; Pattern: Recent Web List;

WORD97的
Reg0=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/Windows/CurrentVersion/Explorer; Type: Key; Action: Delete; Pattern: RecentDocs;

WORDXP的
Reg0=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/Office/10.0/Word/Data; Type: Value; Action: Delete; Pattern: Settings;
Reg1=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/Office/10.0/Excel; Type: Key; Action: Delete; Pattern: Recent Files;
Reg2=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/Office/10.0/Access; Type: Key; Action: Delete; Pattern: Settings;
Reg3=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/Office/10.0/PowerPoint; Type: Key; Action: Delete; Pattern: Recent File List;
Reg4=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/FrontPage/Explorer/FrontPage Explorer; Type: Key; Action: Delete; Pattern: Recent File List;
Reg5=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/FrontPage/Explorer/FrontPage Explorer; Type: Key; Action: Delete; Pattern: Recent Page List;
Reg6=RootKey: HKEY_CURRENT_USER; SubKey: /Software/Microsoft/FrontPage/Explorer/FrontPage Explorer; Type: Key; Action: Delete; Pattern: Recent Web List;

还有一种方法，利用Word的Ole对象属性

RecentFiles 属性
请参阅 应用于 示例 特性
返回一个 RecentFiles 集合，该集合代表最近存取过的文档。

expression.RecentFiles

expression 必需。该表达式返回“应用于”列表中的一个对象。

说明
有关返回集合中单个成员的详细信息，请参阅返回集合中的对象。

示例
本示例打开 RecentFiles 集合中的第一项（即“文件”菜单列出的第一个文档名）。

If RecentFiles.Count >= 1 Then RecentFiles(1).Open
本示例显示 RecentFiles 集合中的每个文件的名称。

For Each rFile In RecentFiles
MsgBox rFile.Name
Next rFile

操纵注册表比较简单。

谢谢三位的解答，非常感谢！