大家救救我！(50分)

我是个初学者，刚刚在一家电脑公司上班，我正在做一个rtf编辑器，并可以自动在网络中传递，但我想自己定义一个文件格式（根据rtf），
也就是我想文件在系统中有自己的显示图标，有自己的后缀名！谢谢！

把RTF文件换个后缀名，设置一下图标、关联就行了。

请问远帆如何设置图标和进行关联呀，可以举个例子吗？

再加100分！！

资源管理器
文件夹选项
文件类型
新类型
更改图标
相关扩展名
如：.abc
操作---新建----如用ABC。EXE应用程序打开

OK？

编程实现文件关联

---- 文件关联的目的是要实现某种扩展名的文件由相应的应用程序来打开，对于编写的应用软件来说，由于一般都有设计者特定的扩展名的数据文件，软件编制者应在程序中实现自动关联而不能由用户手工去实现。下面给出实现文件关联的实用程序。

---- 实现文件关联的核心是对注册表的操作， 所有的文件关联都在HKEY—CLASSES— ROOT 下面， 要实现文件关联必须在HKEY—CLASSES—ROOT 中增加两个键值，一是和文件扩展名对应的类型说明，二是对这种类型文件的操作所需要执行的应用程序。下面举例说明，本例实现将扩展名为.xyz的文件定义为“我自己的文件”类型，双击此种类型的文件时执行的打开功能使用记事簿程序。 实现这一功能需要用到Delphi中的函数 RegCreateKey、RegSetValue。实现如下：

---- 在窗体中放置一个按钮，双击按钮写如下代码：

procedure TForm1.Button1Click(Sender: TObject);
var
lphKey: HKEY;
sKeyName: string;
sKeyValue: string;
begin
sKeyName := ′myfile′;
sKeyValue := ′我的文档′;
RegCreateKey(HKEY—CLASSES—ROOT,
pchar(sKeyName), lphKey);
RegSetValue(lphKey, ′′, REG—SZ,
pchar(sKeyValue), 0);
sKeyName := ′.xyz′;
sKeyValue := ′myfile′;
RegCreateKey(HKEY—CLASSES—ROOT,
pchar(sKeyName), lphKey);
RegSetValue(lphKey, ′′, REG—SZ,
pchar(sKeyValue), 0);
sKeyName := ′myfile′;
sKeyValue := ′c:/Windows/NotePad.exe ％1′;
RegCreateKey(HKEY—CLASSES—ROOT,
pchar(sKeyName), lphKey);
RegSetValue(lphKey, ′shell/open/command′, REG—SZ,
pchar(sKeyValue), MAX—PATH);
end;

---- 建立一新文件，使其扩展名为.xyz，然后双击它看是否是启动记事簿来打开的。
[]

上面的说了。

谢谢！

接受答案了.