如何定义新扩展名的文件类型？(100分)

henry3 · 2001-04-05

如何定义新扩展名的文件类型，并且用特定的应用程序打开。 （应该是在注册表中，我看到HKEY_CLASSES_ROOT，下有各种文件类型。）

mikedeakins · 2001-04-05

HKEY_CLASSES_ROOT/.xxx (xxx是文件扩展名)，默认键值是扩展名描述。

MrMengyi · 2001-04-05

补充：Sample: HKEY_CLASSES_ROOT/.xxx 默认键值 myfile HKEY_CLASSES_ROOT/myfile/DefaultIcon 默认键值 Icon  Locate HKEY_CLASSES_ROOT/myfile/Shell/Open/Command 默认键值 Applicatin Path and name 为什么不用资源管理器的新建文件类型？ 是想在程序中使用么？ 如果这样，好象还要调用某个API通知Windows注册表已经更新 不然关联图标在Reboot后才生效.

henry3 · 2001-04-06

我是想在安装程序时使用。 （自己写的安装程序）

beta · 2001-04-06

那你就用TRegistry把这些东西写到注册表里面就可以了！ 比如，你做安装程序，需要关联一个自定义的.abc类型： 这样就可以在用户双击.abc文件时，默认用YourExeFile 打开，当然，记住在程序卸载的时候把这些东西清除掉。 procedure TMainForm.AddABC; var   reg: TRegistry; begin   reg := TRegistry.Create;   reg.RootKey := HKEY_CLASSES_ROOT;   reg.OpenKey('.abc', true);   reg.WriteString('', 'abc_auto_file');   reg.CloseKey;   reg.OpenKey('abc_auto_file/shell/open/command', true);   reg.WriteString('', '"' + YourExeFile + '" "%1"');   reg.CloseKey;   reg.Free; end;

Jams · 2001-04-06

>>

LanFairy · 2001-04-06

sluger · 2001-04-06

=======================listen

go2 · 2001-04-29

to beta: (1)程序卸载时，如何清除 (2)Netants在没有下载前，好象使用了!!!扩展名，此时图标是蚂蚁，可是我们在资源管理器仍然 看到是不带!!!扩展名的文件名称，请问，他是如何实现的

beta · 2001-04-29

1. var   reg: TRegistry; begin   reg := TRegistry.Create;   reg.RootKey := HKEY_CLASSES_ROOT;   reg.DeleteKey('.abc');   reg.DeleteKey('abc_auto_file');   reg.Free; end; 2.因为我不用蚂蚁，所以不是很清楚你说的意思，请你再说详细一点。

go2 · 2001-04-30

to Bate: 请看：http://www.delphibbs.com/delphibbs/dispq.asp?LID=518711

lincgroup · 2001-11-12

要改注册表的啊。

wind28 · 2003-08-02

不错

pihome · 2003-08-02

给你两个函数，注册、卸载就方便了[

] function RegAssociatedExec(FileExt, Filetype, FileDescription, MIMEType, Icon,   ExecName: String): Boolean; begin   Result := False;   if (FileExt = '') or (ExecName = '') then     Exit;   with TRegistry.Create do   begin     try       RootKey:=HKEY_CLASSES_ROOT;       if not OpenKey(FileExt, True) then         Exit;       WriteString('', FileType);       if MIMEType <> '' then         WriteString('Content Type', MIMEType);       CloseKey;       if not OpenKey(FileType, True) then         Exit;       WriteString('', FileDescription);       CloseKey;       if Icon<>'' then       begin         if not OpenKey(FileType+'/DefaultIcon', True) then           Exit;         WriteString('', Icon);         CloseKey;       end;       if not OpenKey(FileType+'/Shell/Open/Command', True) then         Exit;       WriteString('', ExecName);       CloseKey;       SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);     finally       Free;     end;   end; end; procedure UnRegAssociatedExec(FileExt, FileType: String); begin   with TRegistry.Create do   begin     try       RootKey:=HKEY_CLASSES_ROOT;       if KeyExists(FileExt) then         DeleteKey(FileExt);       if KeyExists(FileType) then         DeleteKey(FileType);     finally       Free;     end;   end; end; 例： RegAssociatedExec('.txt','txtfile','文本文档','text/plain',%SystemRoot%/system32/shell32.dll,-152','%SystemRoot%/system32/NOTEPAD.EXE %1');

takashiki · 2003-08-02

直接写个*.reg文件得啦。安装是使用程序启动就可以了，有错误也好改正。 注册表文件格式： Regedit 4 [HKCR/abc_auto_file/shell/open/command] "your program"='%SystemRoot%/system32/NOTEPAD.EXE %1'   ;新建 "your program"=-  ;删除项 [-HKCR/abc_auto_file/shell/open/command] //删除子键

阿东喊魔 · 2003-08-02

with Field do   begin     if not (State in dsWriteModes) then DatabaseError(SNotEditing, Self);     GetActiveRecBuf(RecBuf);     if FieldNo > 0 then     begin       if ReadOnly and not (State in [dsSetKey, dsFilter]) then         DatabaseErrorFmt(SFieldReadOnly, [DisplayName]);       Validate(Buffer);       if FModifiedFields.IndexOf(Field) = -1 then         FModifiedFields.Add(Field);     end;     if Buffer = nil then       Data := Null else       BufferToVar(Data);     PVariantList(RecBuf+SizeOf(TRecInfo))[Field.Index] := Data;     if not (State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) then       DataEvent(deFieldChange, Longint(Field));   end; end;

如何定义新扩展名的文件类型？(100分)

henry3

Unregistered / Unconfirmed

mikedeakins

Unregistered / Unconfirmed

MrMengyi

Unregistered / Unconfirmed

henry3

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

LanFairy

Unregistered / Unconfirmed

sluger

Unregistered / Unconfirmed

go2

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

go2

Unregistered / Unconfirmed

lincgroup

Unregistered / Unconfirmed

wind28

Unregistered / Unconfirmed

pihome

Unregistered / Unconfirmed

takashiki

Unregistered / Unconfirmed

阿东喊魔

Unregistered / Unconfirmed

Similar threads