怎样使自己编的程序作为某一种文件的默认打开程序（如*.rtf)

Question

修改注册表啊，让自己的程序与某种文件相关联就行了。

Answer 1

var
  lphKey:HKEY;
  sKenName:string;
  sKenValue:string;
begin
  sKeyName:='File';
  sKeyValue:='文档';
  RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey);
  RegSetValue(lphKey,'',REG_SZ,pchar(sKeyValue),0);
  sKeyName:='.rtf';
  sKeyValue:='File';
  RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey);
  RegSetValue(lphKey,'',REG_SZ,pchar(sKeyValue),0);
  sKeyName:='File';
  sKeyValue:='你的程序的路径和文件名 %1;
  RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey);
  RegSetValue(lphKey,'shell\open\command',REG_SZ,pchar(sKeyValue),MAX_PATH);呵呵...抄来的,不知道成不成,祝你好运!